inshellah/bin/main.ml

open Inshellah_parser.Parser

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