X-Git-Url: https://git.gag.com/?p=debian%2Ftar;a=blobdiff_plain;f=debian%2Ftarman;fp=debian%2Ftarman;h=0000000000000000000000000000000000000000;hp=10928a356349b8230fa22b6b59a8c6e2d87fe3fc;hb=9843760ee8d4f4285a7c635bf78a30cdb3ddf3d6;hpb=5704aeb8a496b8562f4e9c37b064758913311a7e

diff --git a/debian/tarman b/debian/tarman
deleted file mode 100644
index 10928a35..00000000
--- a/debian/tarman
+++ /dev/null
@@ -1,333 +0,0 @@
-#
-# tarman - make tar man page from src/tar.c
-# some text cribbed from debian tar man page
-#
-
-use strict;
-use POSIX qw(strftime);
-
-my $t = $ENV{'BUILD_DATE'} // strftime("%a, %d %b %Y %H:%M:%S %z", localtime(time));
-my $datestr = substr($t,8,3)." ".substr($t,5,2).", ".substr($t,12,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 (!$nflag && !/\}/) {
-				while (<>) {
-					my @extended_desc = split('"', $_);
-					$$lastoperation{'description'} .= $extended_desc[1];
-					if (/\}/) {
-						last;
-					}
-				}
-			}
-		}
-	}
-	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__