diff options
Diffstat (limited to 'src/roff/grog/grog.pl')
-rw-r--r-- | src/roff/grog/grog.pl | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/roff/grog/grog.pl b/src/roff/grog/grog.pl index da31514b..57cd1594 100644 --- a/src/roff/grog/grog.pl +++ b/src/roff/grog/grog.pl @@ -13,7 +13,8 @@ push(@command, "groff"); while ($ARGV[0] =~ /^-./) { $arg = shift(@ARGV); $sp = "" if $arg eq "-C"; - &usage(0) if $arg eq "-v"; + &usage(0) if $arg eq "-v" || $arg eq "--version"; + &help() if $arg eq "--help"; last if $arg eq "--"; push(@command, $arg); } @@ -133,6 +134,11 @@ sub usage { exit $exit_status; } +sub help { + print "usage: grog [ option ...] [files...]\n"; + exit 0; +} + if ($pic || $tbl || $eqn || $grn || $grap || $refer) { $s = "-"; $s .= "s" if $soelim; |