diff options
| author | John Ankarström <john@ankarstrom.se> | 2021-06-28 16:48:04 +0200 |
|---|---|---|
| committer | John Ankarström <john@ankarstrom.se> | 2021-06-28 16:52:00 +0200 |
| commit | 6e603db0d71a49b499313eca7bb7d8e7ef9c492e (patch) | |
| tree | b6b5fbc5541188cbf6fd4d4c8a303eb4554211c6 /list | |
| parent | b23a1093b73e16f1b69e5d8d05c9e3dcf8ee5d65 (diff) | |
| download | mk-6e603db0d71a49b499313eca7bb7d8e7ef9c492e.tar.gz | |
list: Use getopt
Diffstat (limited to 'list')
| -rwxr-xr-x | list/list | 13 | ||||
| -rw-r--r-- | list/list.1 | 4 |
2 files changed, 11 insertions, 6 deletions
@@ -1,13 +1,18 @@ -#!/usr/bin/perl -ps +#!/usr/bin/perl -p # list -- escape code listing for troff +use Getopt::Std; +BEGIN { getopt('Ep:s:'); } + if (/^\.\s*l\(\s*$/ .. /^\.\s*l\)\s*$/) { - not $E and s/^\\!// and next; + not $opt_E and s/^\\!// and next; if (/^\.\s*l\(\s*$/) { - print "$p\n" if $p; + $_ = ''; + $_ = "$opt_p\n" if $opt_p; } elsif (/^\.\s*l\)\s*$/) { - print "$s\n" if $s; + $_ = ''; + $_ = "$opt_s\n" if $opt_s; } else { s/\\/\\$&/g; s/^/\\&/g; diff --git a/list/list.1 b/list/list.1 index 085bb20..02a89d8 100644 --- a/list/list.1 +++ b/list/list.1 @@ -7,9 +7,9 @@ . .Sh SYNOPSIS .Nm -.Op Fl p=prefix -.Op Fl s=suffix .Op Fl E +.Op Fl p Ar prefix +.Op Fl s Ar suffix .Op Ar file .Sh DESCRIPTION .Pp |