github.com/mikpe.pdp10-tools
1
0
Fork 0
mirror of https://github.com/mikpe/pdp10-tools.git synced 2026-01-23 02:49:07 +00:00
Code Issues Projects Releases Wiki Activity

od: enable long command-line options

Browse Source
This commit is contained in:
Mikael Pettersson 2018-12-26 13:41:47 +01:00
parent ea4861ad33
commit b03e167eca
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
erlang/apps/od/src/od.erl
View File

@ -42,7 +42,14 @@ main(Argv) ->
escript_runtime:start(fun main_/1, Argv).
main_(Argv) ->
case getopt:parse(Argv, "VbcdDiloOsxXA:j:N:t:w::") of
case getopt:parse(Argv, "VbcdDiloOsxXA:j:N:t:w::",
[ {"version", no, $V}
, {"address-radix", required, $A}
, {"skip-bytes", required, $j}
, {"read-bytes", required, $N}
, {"format", required, $t}
, {"width", optional, $w}
]) of
{ok, {Options, Files}} ->
od(scan_options(Options), Files);
{error, ErrMsg} ->
@ -69,7 +76,7 @@ scan_options(Options) ->
compile_options(lists:foldl(fun scan_option/2, Opts, Options)).
scan_option($V, _Opts) -> % -V, non-standard alias for --version
io:format(standard_io, "pdp10-tools od version 0.2\n", []),
io:format(standard_io, "pdp10-tools od version 0.3\n", []),
halt(0);
scan_option($b, Opts) -> % -b, same as -t o1
Opts#options{ output_type = $o