Commits

camlspotter  committed 9d87942

help message and spot/spit support

  • Participants
  • Parent commits 124bd28

Comments (0)

Files changed (1)

File spotinstall.ml

     imp [] (fun packages -> 
       imp_ false (fun verbose -> 
         Arg.parse ["-v", Arg.Set verbose, "verbose"]  (fun x -> packages := x :: !packages)
-          "spotinstall <packages>"
+          "spotinstall <packages>\n  \
+  Check the files installed as ocamlfind package <package>, and if there are corresponding .annot/.cmt/.cmti/.spot/.spit files in the current and sub directories, copy them to the installation directory."
       ))
   with
   | [], _ -> failwith "You must specify a package name"
   | Some p -> p
 
 let exts_of_sp = function
-  | ".cmx" | ".cmo" -> [ ".cmt"; ".annot" ]
-  | ".cmi" -> [ ".cmti"; ".cmt" ] (* Packed .cmi has no .spit but .spot *)
+  | ".cmx" | ".cmo" -> [ ".spot"; ".cmt"; ".annot" ]
+  | ".cmi" -> [ ".spit"; ".cmti"; ".cmt" ] (* Packed .cmi has no .spit but .spot *)
   | _ -> assert false
 
 let dest_dir package= ocamlfind_path ^/ package
   (* check not found *)
   Hashtbl.iter (fun _ path -> 
     if not (Hashset.mem copied path) then
-      Printf.eprintf "No spot/spit found for %s\n" path) installed_cms
+      Printf.eprintf "No spot/spit/cmt/cmti found for %s\n" path) installed_cms