diff options
author | Didier Raboud <didier@raboud.com> | 2010-05-23 00:04:44 +0200 |
---|---|---|
committer | Didier Raboud <didier@raboud.com> | 2010-05-23 00:04:44 +0200 |
commit | 454c800872592a44a898f796b9517cf2f2690c1f (patch) | |
tree | cc9bc047e9551a33b59d45572b6d499f22f3ea82 /makeMan.in | |
parent | ebd1310b25eb6e2e0f8711e85ca6195a36fe1767 (diff) | |
parent | 5c357f2c54c02fe6c8f9e6095fcdce547206ed51 (diff) |
Merge branch 'upstream'
Diffstat (limited to 'makeMan.in')
-rwxr-xr-x | makeMan.in | 49 |
1 files changed, 0 insertions, 49 deletions
diff --git a/makeMan.in b/makeMan.in deleted file mode 100755 index 310b8e0..0000000 --- a/makeMan.in +++ /dev/null @@ -1,49 +0,0 @@ -#!@PERL@ -w -# -# Generates manpages from manpage.in files by substituting @...@ tags. -# - -use Getopt::Std; - -my (%opt,@files); -getopts( 'v', \%opt); -my $VERBOSE = defined $opt{v} ? $opt{v} : 0; - -if (@ARGV) -{ - @files = @ARGV; -} -else -{ - opendir CWD, "." or die "Ooops! Can't read current dir!"; - @files = readdir CWD; - closedir CWD; -} - -my $append; -FILE: -foreach my $file (@files) -{ - print STDERR "Checking file `$file' ... " if $VERBOSE; - $append = "discard\n"; - next unless -f $file and $file =~ /^(.*\.[1-9])\.in$/; - my ($man) = $1; - $man =~ s,.*/,,; - next unless ((`file $file` =~ m/\b[ntg]roff\b/) or - (`file $file` =~ m/\[nt\]roff/)); - print STDERR "MATCHED\n" if $VERBOSE; - $append = ''; - open IN, "<$file" or (warn "Can't read input file $file!" and next FILE); - unlink $man; - open OUT, ">$man" or (warn "Can't write output file $man!" and next FILE); - while (<IN>) - { - s/@@([^@]*)@@/eval $1/ge; - print OUT; - } - close IN; -} -continue -{ - print STDERR $append if $VERBOSE; -} |