File tree Expand file tree Collapse file tree 1 file changed +4
-3
lines changed Expand file tree Collapse file tree 1 file changed +4
-3
lines changed Original file line number Diff line number Diff line change @@ -61,7 +61,8 @@ let usage =
6161  " \t -no-tc don't typecheck the program\n "   ^  
6262  " \t -delay-problems-outside-pattern-fragment (deprecated, for Teyjus\n "   ^ 
6363  " \t                                           compatibility)\n "   ^ 
64-   " \t -version prints the version of Elpi\n "   ^  
64+   " \t --version prints the version of Elpi (also -v or -version)\n "   ^  
65+   " \t --help prints this help (also -h or -help)\n "   ^  
6566 API.Setup. usage ^ 
6667  " \n Debug options (for debugging Elpi, not your program):\n "   ^  
6768  " \t -print-accumulated-files prints files loaded via accumulate\n "   ^  
@@ -103,8 +104,8 @@ let _ =
103104    |  "-no-tc"  :: rest  -> typecheck :=  false ; eat_options rest
104105    |  "-document-builtins"  :: rest  -> doc_builtins :=  true ; eat_options rest
105106    |  "-D"  :: var  :: rest  -> vars :=  API.Compile.StrSet. add var ! vars; eat_options rest
106-     |  ("-h"  | "--help" ) :: _  -> Printf. eprintf " %s"   usage; exit 0 
107-     |  "- version"  :: _  -> Printf. printf " %s\n "   " %%VERSION_NUM%%"  ; exit 0 
107+     |  ("-h"  | "--help"  |  "-help" ) :: _  -> Printf. eprintf " %s"   usage; exit 0 
108+     |  ( "-v"  |  "-- version" |  "-version" )  :: _  -> Printf. printf " %s\n "   " %%VERSION_NUM%%"  ; exit 0 
108109    |  "--"  :: rest  -> rest
109110    |  x  :: rest  -> x :: eat_options rest
110111  in 
    
 
   
 
     
   
   
          
     
  
    
     
 
    
      
     
 
     
    You can’t perform that action at this time.
  
 
    
  
     
    
      
        
     
 
       
      
     
   
 
    
    
  
 
  
 
     
    
0 commit comments