diff options
| author | B. Watson <urchlay@slackware.uk> | 2025-11-28 00:38:24 -0500 |
|---|---|---|
| committer | B. Watson <urchlay@slackware.uk> | 2025-11-28 00:38:24 -0500 |
| commit | 772312762986a7ec36262069a28ad3d4dde30559 (patch) | |
| tree | 4b825dc642cb6eb9a060e54bf8d69288fbee4904 /src/mkusage.pl | |
| parent | cedd4bada6e88daa0c527380e6dc22f52685f197 (diff) | |
| download | unalf-772312762986a7ec36262069a28ad3d4dde30559.tar.gz | |
Project has been renamed, use https://slackware.uk/~urchlay/repos/alftools
Diffstat (limited to 'src/mkusage.pl')
| -rw-r--r-- | src/mkusage.pl | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/src/mkusage.pl b/src/mkusage.pl deleted file mode 100644 index 1c6a1bf..0000000 --- a/src/mkusage.pl +++ /dev/null @@ -1,19 +0,0 @@ -#!/usr/bin/perl -w - -print "const char *usage_msg[] = {\n"; - -while(<>) { - chomp; - next if /^---/; - last if /^\.\. ENFOPTS/; - if(/^(?:\*\*)?(-[-a-zA-Z\d]+)/) { - $opt = $1; - next; - } - if($opt && (/^\.\. (.*)$/)) { - print "\t\" $opt: $1\",\n"; - undef $opt; - } -} - -print "\t(const char*)0\n};\n"; |