source: patches/tar-1.27-manpage-1.patch@ 3cff625

Submitted By: William Harrington < kb0iic at cross-lfs dot org >
Date: 2013-10-25
Initial Package Version: 1.27
Origin: Debian
Upstream Status: Unknown
Description: This makes a tar.1 manpage from src/tar.c 
Usage: perl tarman > /usr/share/man/man1/tar.1

diff -Naur tar-1.27.orig/tarman tar-1.27/tarman
--- tar-1.27.orig/tarman        1970-01-01 00:00:00.000000000 +0000
+++ tar-1.27/tarman     2013-10-25 18:56:17.753173995 +0000
@@ -0,0 +1,323 @@
+#
+# tarman - make tar man page from src/tar.c
+# some text cribbed from debian tar man page
+#
+
+use strict;
+
+my $t = "".localtime(time);
+my $datestr = substr($t,4,3)." ".substr($t,8,2).", ".substr($t,20,4);
+
+@ARGV=qw(src/tar.c);
+my $mode;
+my @operations;
+my $lastoperation;
+my @options;
+my @formats;
+my @short;
+my $examples;
+my $saw_format;
+my @env_vars;
+while (<>) {
+       my $nflag = 0;
+       chomp;
+# print "$mode: $_\n";
+       if (/getenv.*"/) {
+               next if defined($mode);
+               my @c1 = split('"');
+               if ($#c1 > 0) {
+                       push @env_vars, $c1[1];
+               }
+       }
+       if (/Main operation mode:/) {
+               $mode = 1;
+               next;
+       }
+       if (/Operation modifiers:/) {
+               $mode = 2;
+               next;
+       }
+       if (/Examples:/) {
+               $mode = 3;
+               next;
+       }
+       if (/define GRID/) {
+               $mode = 2;
+       }
+       if (/undef GRID/) {
+               undef $lastoperation;
+               undef $mode;
+               next;
+       }
+       if ($mode == 1 || $mode == 2) {
+               if (/{"/) {     # }
+                       my @j = split(',');
+                       my @c1 = split('"', $j[0]);
+                       if (/OPTION_ALIAS/) {
+                               next unless defined($lastoperation);
+                               push @{$$lastoperation{'alias'} }, $c1[1];
+                               next;
+                       }
+                       my %newhash = ();
+                       $lastoperation = \%newhash;
+                       my $name = $c1[1];
+                       if ($name =~ /^  /) {
+                               $name =~ s/^  */format=/;
+                               push @formats, $lastoperation;
+                       } elsif ($mode == 1) {
+                               push @operations, $lastoperation;
+                       } else {
+                               push @options, $lastoperation;
+                       }
+                       $newhash{'name'} = $name;
+                       if ($mode == 2 && $name eq 'format') {
+                               $saw_format = $lastoperation;
+                       }
+                       my @c2 = split("'", $j[1]);
+                       if ($#c2 > 0) {
+                               $newhash{'short'} = $c2[1];
+                               push @short, $c2[1] if ($mode == 1);
+                       }
+                       if ($j[2] =~ /N_/) {
+                               $nflag = 1;
+                       }
+               }
+               if (/N_/) {
+                       next unless defined($lastoperation);
+                       my $nrest = $_;
+                       $nrest =~ s/.*N_//;
+                       my @c3 = split('"', $nrest);
+                       if ($#c3 > 0) {
+                               if ($nflag) {
+                                       $$lastoperation{'operand'} .= $c3[1];
+                               } else {
+                                       $$lastoperation{'description'} .= $c3[1];
+                               }
+                       }
+               }
+       }
+       if ($mode == 3 ) {
+               my $j = $_;
+               $j =~ s/\\n.*//;
+               my ($c1, $c2) = split('#', $j, 2);
+               $c1 =~ s/  *$//;
+               $c1 =~ s/^  *//;
+$c1 =~ s/-/\\-/g;
+               $c2 =~ s/^  *//;
+$examples .= <<".";
+$c2
+.Bd -literal -offset indent -compact
+$c1
+.Ed
+.
+               # (
+               if (/"\)/) {
+                       undef $mode;
+               }
+       }
+}
+
+# for my $q ( @operations) {
+#      print "\nshort=".$$q{'short'}."\n";
+#      print "name=".$$q{'name'}."\n";
+#      print "desc=".$$q{'description'}."\n";
+#      if (defined($$q{'alias'})) {
+#              print "alias=".join(',',@{ $$q{'alias'}})."\n";
+#      }
+# }
+
+sub long2nroff {
+       my $f = shift;
+       if ($f !~ /^-/) {
+               $f = "Fl -$f";
+       }
+       $f =~ s/-/\\-/g;
+       return $f;
+}
+
+sub format_options
+{
+       my $h = shift;
+       my $r;
+       for my $q ( @$h ) {
+               $r .= ".It";
+               my @functions;
+               push @functions, " Fl ".$$q{'short'} if defined($$q{'short'});
+               push @functions, " ".long2nroff($$q{'name'});
+               push @functions, join(' ', '', map {long2nroff $_} @{ $$q{'alias'} })
+                       if defined($$q{'alias'});
+               $r .= join(' ,', @functions);
+               if (defined($$q{'operand'})) {
+                       if ($#functions > 0) {
+                               $r .= " ";
+                       } else {
+                               $r .= " Ns \\= Ns ";
+                       }
+                       $r .= "Ar ".$$q{'operand'};
+               }
+               $r .= "\n".$$q{'description'}."\n";
+               $r .= $$q{'extra'};
+       }
+       return $r;
+}
+
+sub optionkeyword
+{
+       my $h = shift;
+       my $k = $$h{'short'};
+       $k = $$h{'name'} if !defined($k);
+       my $l = $k;
+       if ($l =~ s/^no-//) {
+               $l .= "-no";
+       }
+       return ($l,$k);
+}
+
+sub optioncmp
+{
+       my ($x1, $x2) = optionkeyword($a);
+       my ($y1, $y2) = optionkeyword($b);
+       my $r = lc($x1) cmp lc($y1);
+       return $r if $r;
+       $r = $y1 cmp $x1;
+       return $r if $r;
+       return $x2 cmp $y2;
+}
+
+@operations = sort optioncmp @operations;
+@operations = sort optioncmp @operations;
+@options = sort optioncmp @options;
+@formats = sort optioncmp @formats;
+
+if ($#formats >= 0 && !$saw_format) {
+       print STDERR "FIXME: saw --format=X but no root --format!\n";
+       exit(1);
+}
+
+my $function_letters;
+my $short_letters = join('', sort @short);
+my $option_letters;
+my $format_letters;
+my $command_string = <<".";
+.Nm tar
+.
+$command_string .= ".Oo Fl Oc";
+my $env_variables;
+my %env_description = (
+'SIMPLE_BACKUP_SUFFIX' => <<".",
+Backup prefix to use when extracting, if
+.Fl \\-suffix
+is not specified.
+The backup suffix defaults to `~' if neither is specified.
+.
+'TAPE' => <<".",
+Device or file to use for the archive if 
+.Fl \\-file
+is not specified.
+If this environment variable is unset, use stdin or stdout instead.
+.
+'TAR_OPTIONS' => <<".",
+Options to prepend to those specified on the command line, separated by
+whitespace.  Embedded backslashes may be used to escape whitespace or
+backslashes within an option.
+.
+);
+my $sep = "";
+for my $q ( @operations) {
+       $command_string .= " Cm";
+       $command_string .= $sep;
+       $command_string .= " ".$$q{'short'} if defined($$q{'short'});
+       $command_string .= " ".long2nroff($$q{'name'});
+       if (defined($$q{'alias'})) {
+               my $t = join(' ', '', map{long2nroff $_} @{ $$q{'alias'} });
+               $t =~ s/ Fl / /g;
+               $command_string .= $t;
+       }
+       $sep = " \\||\\|";
+}
+$function_letters = ".Bl -tag -width flag\n";
+$function_letters .= format_options(\@operations);
+$function_letters .= ".El";
+if ($#formats >= 0) {
+       $format_letters = ".Bl -tag -width flag\n";
+       $format_letters .= format_options(\@formats);
+       $format_letters .= ".El\n";
+       $$saw_format{'extra'} = $format_letters;
+}
+### Ar Cm Ic Li Nm Op Pa Va
+$option_letters = ".Bl -tag -width flag\n";
+$option_letters .= format_options(\@options);
+$option_letters .= ".El";
+$env_variables .= ".Bl -tag -width Ds\n";
+for my $q ( @env_vars) {
+       $env_variables .= ".It Ev $q\n";
+       $env_variables .= $env_description{$q};
+}
+$env_variables .= ".El";
+
+$examples =~ s/\n$//;
+$function_letters =~ s/\n$//;
+$option_letters =~ s/\n$//;
+$env_variables =~ s/\n$//;
+print <<".";
+.\\" generated by script on $t
+.Dd $datestr
+.Dt TAR 1
+.Sh NAME
+.Nm tar
+.Nd The GNU version of the tar archiving utility
+.Sh SYNOPSIS
+$command_string
+.Op Ar options
+.Op Ar pathname ...
+.Sh DESCRIPTION
+.Nm Tar
+stores and extracts files from a tape or disk archive.
+.Pp
+The first argument to
+tar
+should be a function; either one of the letters
+.Cm $short_letters ,
+or one of the long function names.
+A function letter need not be prefixed with ``\\-'', and may be combined
+with other single-letter options.
+A long function name must be prefixed with
+.Cm \\\\-\\\\- .
+Some options take a parameter; with the single-letter form
+these must be given as separate arguments.
+With the long form, they may be given by appending
+.Cm = Ns Ar value
+to the option.
+.Sh FUNCTION LETTERS
+Main operation mode:
+$function_letters
+.Sh OTHER OPTIONS
+Operation modifiers:
+$option_letters
+.Sh ENVIRONMENT
+The behavior of tar is controlled by the following environment variables,
+among others:
+$env_variables
+.Sh EXAMPLES
+$examples
+.Sh SEE ALSO
+.\\" libarchive
+.Xr tar 5 ,
+.\\" man-pages
+.Xr symlink 7 ,
+.Xr rmt 8
+.Sh HISTORY
+The
+.Nm tar
+command appeared in
+.At v7 .
+.Sh BUGS
+The GNU folks, in general, abhor man pages, and create info documents instead.
+Unfortunately, the info document describing tar is licensed under the GFDL with
+invariant cover texts, which makes it impossible to include any text
+from that document in this man page.
+Most of the text in this document was automatically extracted from the usage
+text in the source.
+It may not completely describe all features of the program.
+.
+__END__