Changeset 66 in code for trunk/cli/file.ml

Timestamp:

Aug 21, 2024, 1:37:05 AM (8 months ago)

Author:

Izuru Yakumo

Message:

Migrate the codebase to the latest revision of Cmdliner

Signed-off-by: Izuru Yakumo <yakumo.izuru@…>

File:

• trunk/cli/file.ml (modified) (1 diff)

trunk/cli/file.ml

@@ -9 +9 @@
         List.iter (fun d -> List.iter (link d) files) dirs
 
-let unfile files =
-        let dirs, files = File_store.split_filetypes files in
-        let unlink dir file = try Unix.unlink (Filename.concat dir file)
-                with Unix.(Unix_error(ENOENT,_,_))-> () in
-        List.iter (fun d -> List.iter (unlink d) files) dirs
+open Cmdliner
+let files = Arg.(value & pos_all string [] & info [] ~docv: "Text filenames and subdirectories")
+let file_t = Term.(const file $ files)
 
-open Ocmd
-let term =
-        let files = Arg.(value & pos_all string [] & info []
-                ~docv:"text filenames and subdirectories") in
-        Term.(const file $ files), Term.info "file"
-                ~doc:"file texts in subdirectories"
-                ~man:[ `S "DESCRIPTION"; `P "Files all texts in parameter in every
-                directory in parameter, using hardlinks.
-
-                Use it to create sub-repositories for sharing or converting" ]
-
-let unfile_term =
-        let files = Arg.(value & pos_all string [] & info []
-                ~docv:"text filenames and subdirectories") in
-        Term.(const unfile $ files), Term.info "unfile"
-                ~doc:"unfile texts from subdirectories"
-                ~man:[ `S "DESCRIPTION"; `P "unfile texts in parameter from
-        directories in parameter, by removing hardlinks" ]
+let cmd =
+  let doc = "File texts in subdirectories" in
+  let man = [
+      `S Manpage.s_description;
+      `P "Files all texts in parameter in every directory in parameter, using hardlinks";
+      `P "Use it to create sub-repositories for sharing or converting" ]
+  in
+  let info = Cmd.info "file" ~version:"%%VERSION%%" ~doc ~man in
+  Cmd.v info file_t