first draft
This commit is contained in:
atagen
parent
ab009ec9af
commit
01ccf64efc
13 changed files with 1311 additions and 239 deletions
279
bin/main.ml
279
bin/main.ml
|
|
@ -1,171 +1,112 @@
|
|||
open Inshellah_parser.Parser
|
||||
open Inshellah.Parser
|
||||
open Inshellah.Manpage
|
||||
open Inshellah.Nushell
|
||||
|
||||
let usage () =
|
||||
Printf.eprintf {|inshellah — generate nushell completions from manpages and --help output
|
||||
|
||||
Usage:
|
||||
inshellah manpage FILE Parse a manpage (.1, .1.gz) and emit nushell extern
|
||||
inshellah manpage-dir DIR Batch-process all manpages under DIR/man1/
|
||||
inshellah help CMD [ARGS...] Run CMD ARGS --help, parse output, emit nushell extern
|
||||
inshellah parse-help CMD Read --help text from stdin, emit nushell extern for CMD
|
||||
inshellah demo Run built-in demo
|
||||
|
||||
|};
|
||||
exit 1
|
||||
|
||||
(* Extract command name from a manpage filename *)
|
||||
let cmd_name_of_manpage path =
|
||||
let base = Filename.basename path in
|
||||
(* strip .gz if present *)
|
||||
let base =
|
||||
if Filename.check_suffix base ".gz" then Filename.chop_suffix base ".gz"
|
||||
else base
|
||||
in
|
||||
(* strip .N section suffix *)
|
||||
try Filename.chop_extension base
|
||||
with Invalid_argument _ -> base
|
||||
|
||||
let cmd_manpage file =
|
||||
let cmd = cmd_name_of_manpage file in
|
||||
let entries = parse_manpage_file file in
|
||||
if entries <> [] then
|
||||
print_string (generate_extern_from_entries cmd entries)
|
||||
|
||||
let cmd_manpage_dir dir =
|
||||
(* Walk man1/ through man9/ looking for manpages *)
|
||||
for section = 1 to 9 do
|
||||
let subdir = Filename.concat dir (Printf.sprintf "man%d" section) in
|
||||
if Sys.file_exists subdir && Sys.is_directory subdir then begin
|
||||
let files = Sys.readdir subdir in
|
||||
Array.sort String.compare files;
|
||||
Array.iter (fun file ->
|
||||
let path = Filename.concat subdir file in
|
||||
try cmd_manpage path
|
||||
with _ -> () (* skip unparseable manpages *)
|
||||
) files
|
||||
end
|
||||
done
|
||||
|
||||
let cmd_help args =
|
||||
match args with
|
||||
| [] -> Printf.eprintf "error: help mode requires a command name\n"; exit 1
|
||||
| cmd :: rest ->
|
||||
let full_cmd =
|
||||
String.concat " " (List.map Filename.quote (cmd :: rest @ ["--help"]))
|
||||
in
|
||||
let ic = Unix.open_process_in (full_cmd ^ " 2>&1") in
|
||||
let buf = Buffer.create 4096 in
|
||||
(try while true do
|
||||
let line = input_line ic in
|
||||
Buffer.add_string buf line;
|
||||
Buffer.add_char buf '\n'
|
||||
done with End_of_file -> ());
|
||||
let _ = Unix.close_process_in ic in
|
||||
let text = Buffer.contents buf in
|
||||
let cmd_name = Filename.basename cmd in
|
||||
(match parse_help text with
|
||||
| Ok r -> print_string (generate_extern cmd_name r)
|
||||
| Error msg -> Printf.eprintf "parse error for %s: %s\n" cmd_name msg; exit 1)
|
||||
|
||||
let cmd_parse_help cmd =
|
||||
let buf = Buffer.create 4096 in
|
||||
(try while true do
|
||||
let line = input_line stdin in
|
||||
Buffer.add_string buf line;
|
||||
Buffer.add_char buf '\n'
|
||||
done with End_of_file -> ());
|
||||
let text = Buffer.contents buf in
|
||||
(match parse_help text with
|
||||
| Ok r -> print_string (generate_extern cmd r)
|
||||
| Error msg -> Printf.eprintf "parse error for %s: %s\n" cmd msg; exit 1)
|
||||
|
||||
let cmd_demo () =
|
||||
let ls_help =
|
||||
{|Usage: ls [OPTION]... [FILE]...
|
||||
List information about the FILEs (the current directory by default).
|
||||
|
||||
-a, --all do not ignore entries starting with .
|
||||
-A, --almost-all do not list implied . and ..
|
||||
--block-size=SIZE with -l, scale sizes by SIZE when printing them;
|
||||
e.g., '--block-size=M'; see SIZE format below
|
||||
--color[=WHEN] color the output WHEN
|
||||
-h, --human-readable with -l and -s, print sizes like 1K 234M 2G etc.
|
||||
--help display this help and exit
|
||||
--version output version information and exit
|
||||
|}
|
||||
in
|
||||
Printf.printf "# Generated by: inshellah demo\n\n";
|
||||
(match parse_help ls_help with
|
||||
| Ok r -> print_string (generate_extern "ls" r)
|
||||
| Error msg -> Printf.eprintf "parse error: %s\n" msg)
|
||||
|
||||
let () =
|
||||
let _cp =
|
||||
{|
|
||||
-A, --show-all equivalent to -vET
|
||||
-b, --number-nonblank number nonempty output lines, overrides -n
|
||||
-e equivalent to -vE
|
||||
-E, --show-ends display $ or ^M$ at end of each line
|
||||
-n, --number number all output lines
|
||||
-s, --squeeze-blank suppress repeated empty output lines
|
||||
-t equivalent to -vT
|
||||
-T, --show-tabs display TAB characters as ^I
|
||||
-u (ignored)
|
||||
-v, --show-nonprinting use ^ and M- notation, except for LFD and TAB
|
||||
--help
|
||||
display this help and exit
|
||||
--version
|
||||
output version information and exit
|
||||
|}
|
||||
and ls =
|
||||
{|
|
||||
-a, --all
|
||||
do not ignore entries starting with .
|
||||
-A, --almost-all
|
||||
do not list implied . and ..
|
||||
--author
|
||||
with -l, print the author of each file
|
||||
-b, --escape
|
||||
print C-style escapes for nongraphic characters
|
||||
--block-size=SIZE
|
||||
with -l, scale sizes by SIZE when printing them;
|
||||
e.g., '--block-size=M'; see SIZE format below
|
||||
-B, --ignore-backups
|
||||
do not list implied entries ending with ~
|
||||
-c
|
||||
with -lt: sort by, and show, ctime
|
||||
(time of last change of file status information);
|
||||
with -l: show ctime and sort by name;
|
||||
otherwise: sort by ctime, newest first
|
||||
-C
|
||||
list entries by columns
|
||||
--color[=WHEN]
|
||||
color the output WHEN; more info below
|
||||
-d, --directory
|
||||
list directories themselves, not their contents
|
||||
-D, --dired
|
||||
generate output designed for Emacs' dired mode
|
||||
-f
|
||||
same as -a -U
|
||||
-F, --classify[=WHEN]
|
||||
append indicator (one of */=>@|) to entries WHEN
|
||||
--file-type
|
||||
like -F, except do not append '*'
|
||||
--format=WORD
|
||||
across,horizontal (-x), commas (-m), long (-l),
|
||||
single-column (-1), verbose (-l), vertical (-C)
|
||||
--full-time
|
||||
like -l --time-style=full-iso
|
||||
-g
|
||||
like -l, but do not list owner
|
||||
--group-directories-first
|
||||
group directories before files
|
||||
-G, --no-group
|
||||
in a long listing, don't print group names
|
||||
-h, --human-readable
|
||||
with -l and -s, print sizes like 1K 234M 2G etc.
|
||||
--si
|
||||
likewise, but use powers of 1000 not 1024
|
||||
-H, --dereference-command-line
|
||||
follow symbolic links listed on the command line
|
||||
--dereference-command-line-symlink-to-dir
|
||||
follow each command line symbolic link that points to a directory
|
||||
--hide=PATTERN
|
||||
do not list implied entries matching shell PATTERN
|
||||
(overridden by -a or -A)
|
||||
--hyperlink[=WHEN]
|
||||
hyperlink file names WHEN
|
||||
--indicator-style=WORD
|
||||
append indicator with style WORD to entry names:
|
||||
none (default), slash (-p), file-type (--file-type), classify (-F)
|
||||
-i, --inode
|
||||
print the index number of each file
|
||||
-I, --ignore=PATTERN
|
||||
do not list implied entries matching shell PATTERN
|
||||
-k, --kibibytes
|
||||
default to 1024-byte blocks for file system usage;
|
||||
used only with -s and per directory totals
|
||||
-l
|
||||
use a long listing format
|
||||
-L, --dereference
|
||||
when showing file information for a symbolic link,
|
||||
show information for the file the link references
|
||||
rather than for the link itself
|
||||
-m
|
||||
fill width with a comma separated list of entries
|
||||
-n, --numeric-uid-gid
|
||||
like -l, but list numeric user and group IDs
|
||||
-N, --literal
|
||||
print entry names without quoting
|
||||
-o
|
||||
like -l, but do not list group information
|
||||
-p, --indicator-style=slash
|
||||
append / indicator to directories
|
||||
-q, --hide-control-chars
|
||||
print ? instead of nongraphic characters
|
||||
--show-control-chars
|
||||
show nongraphic characters as-is;
|
||||
the default, unless program is 'ls' and output is a terminal
|
||||
-Q, --quote-name
|
||||
enclose entry names in double quotes
|
||||
--quoting-style=WORD
|
||||
use quoting style WORD for entry names:
|
||||
literal, locale, shell, shell-always,
|
||||
shell-escape, shell-escape-always, c, escape
|
||||
(overrides QUOTING_STYLE environment variable)
|
||||
-r, --reverse
|
||||
reverse order while sorting
|
||||
-R, --recursive
|
||||
list subdirectories recursively
|
||||
-s, --size
|
||||
print the allocated size of each file, in blocks
|
||||
-S
|
||||
sort by file size, largest first
|
||||
--sort=WORD
|
||||
change default 'name' sort to WORD:
|
||||
none (-U), size (-S), time (-t),
|
||||
version (-v), extension (-X), name, width
|
||||
--time=WORD
|
||||
select which timestamp used to display or sort;
|
||||
access time (-u): atime, access, use;
|
||||
metadata change time (-c): ctime, status;
|
||||
modified time (default): mtime, modification;
|
||||
birth time: birth, creation;
|
||||
with -l, WORD determines which time to show;
|
||||
with --sort=time, sort by WORD (newest first)
|
||||
--time-style=TIME_STYLE
|
||||
time/date format with -l; see TIME_STYLE below
|
||||
-t
|
||||
sort by time, newest first; see --time
|
||||
-T, --tabsize=COLS
|
||||
assume tab stops at each COLS instead of 8
|
||||
-u
|
||||
with -lt: sort by, and show, access time;
|
||||
with -l: show access time and sort by name;
|
||||
otherwise: sort by access time, newest first
|
||||
-U
|
||||
do not sort directory entries
|
||||
-v
|
||||
natural sort of (version) numbers within text
|
||||
-w, --width=COLS
|
||||
set output width to COLS. 0 means no limit
|
||||
-x
|
||||
list entries by lines instead of by columns
|
||||
-X
|
||||
sort alphabetically by entry extension
|
||||
-Z, --context
|
||||
print any security context of each file
|
||||
--zero
|
||||
end each output line with NUL, not newline
|
||||
-1
|
||||
list one file per line
|
||||
--help
|
||||
display this help and exit
|
||||
--version
|
||||
output version information and exit
|
||||
|}
|
||||
in
|
||||
match parse_help ls with
|
||||
| Ok entries -> List.iter (fun e -> print_entry e) entries
|
||||
| Error msg -> Printf.eprintf "parse error: %s\n" msg
|
||||
let args = Array.to_list Sys.argv |> List.tl in
|
||||
match args with
|
||||
| ["manpage"; file] -> cmd_manpage file
|
||||
| ["manpage-dir"; dir] -> cmd_manpage_dir dir
|
||||
| "help" :: rest -> cmd_help rest
|
||||
| ["parse-help"; cmd] -> cmd_parse_help cmd
|
||||
| ["demo"] -> cmd_demo ()
|
||||
| _ -> usage ()
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue