add link to github wiki page for sgrep, spatch, and codemap

facebookarchive · Jan 20, 2011 · 9f4fc26 · 9f4fc26
1 parent 7b1fc10
commit 9f4fc26
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 6 deletions.
diff --git a/main_codemap.ml b/main_codemap.ml
@@ -316,7 +316,9 @@ let main () =
   Common_extra.set_link ();
 
   let usage_msg = 
-    ("Usage: " ^ basename Sys.argv.(0) ^ " [options] <path> \nOptions are:") 
+    spf "Usage: %s [options] <file or dir> \nDoc: %s\nOptions:"
+      (Common.basename Sys.argv.(0))
+      "https://github.com/facebook/pfff/wiki/Codemap"
   in
   let args = Common.parse_options (options()) usage_msg Sys.argv in
 

diff --git a/main_sgrep.ml b/main_sgrep.ml
@@ -296,8 +296,9 @@ let options () =
 
 let main () = 
   let usage_msg = 
-    "Usage: " ^ Common.basename Sys.argv.(0) ^ 
-      " [options] <file or dir> " ^ "\n" ^ "Options are:"
+    spf "Usage: %s [options] <file or dir> \nDoc: %s\nOptions:"
+      (Common.basename Sys.argv.(0))
+      "https://github.com/facebook/pfff/wiki/Sgrep"
   in
   (* does side effect on many global flags *)
   let args = Common.parse_options (options()) usage_msg Sys.argv in

diff --git a/main_spatch.ml b/main_spatch.ml
@@ -599,10 +599,10 @@ let options () =
 let main () = 
   Common_extra.set_link ();
 
-
   let usage_msg = 
-    "Usage: " ^ Common.basename Sys.argv.(0) ^ 
-      " [options] <file or dir> " ^ "\n" ^ "Options are:"
+    spf "Usage: %s [options] <file or dir> \nDoc: %s\nOptions:"
+      (Common.basename Sys.argv.(0))
+      "https://github.com/facebook/pfff/wiki/Spatch"
   in
   (* does side effect on many global flags *)
   let args = Common.parse_options (options()) usage_msg Sys.argv in