summaryrefslogtreecommitdiff
path: root/makeMan.in
diff options
context:
space:
mode:
Diffstat (limited to 'makeMan.in')
-rwxr-xr-xmakeMan.in49
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;
-}