aboutsummaryrefslogtreecommitdiff
path: root/linuxthreads/man/troffprepro
diff options
context:
space:
mode:
authorRoland McGrath <roland@gnu.org>2005-07-03 04:40:34 +0000
committerRoland McGrath <roland@gnu.org>2005-07-03 04:40:34 +0000
commit88e3fbcb5d6829f8980d6bb356b1c0cd7a38187b (patch)
tree41b73f55c91439f87d82e5d32b9d8e46e82ce3c1 /linuxthreads/man/troffprepro
parentd19b1b4f2ff49e085b55e8564b52ca17b028e335 (diff)
downloadglibc-88e3fbcb5d6829f8980d6bb356b1c0cd7a38187b.zip
glibc-88e3fbcb5d6829f8980d6bb356b1c0cd7a38187b.tar.gz
glibc-88e3fbcb5d6829f8980d6bb356b1c0cd7a38187b.tar.bz2
linuxthreads, linuxthreads_db: Directories removed (preserved in ports repository).
Diffstat (limited to 'linuxthreads/man/troffprepro')
-rwxr-xr-xlinuxthreads/man/troffprepro68
1 files changed, 0 insertions, 68 deletions
diff --git a/linuxthreads/man/troffprepro b/linuxthreads/man/troffprepro
deleted file mode 100755
index ba564fe..0000000
--- a/linuxthreads/man/troffprepro
+++ /dev/null
@@ -1,68 +0,0 @@
-#!/usr/local/bin/perl
-
-$insynopsis = 0;
-
-open(INPUT, $ARGV[0]) || die("cannot open $ARGV[0]");
-open(OUTPUT, "> $ARGV[1]") || die("cannot create $ARGV[1]");
-
-select(OUTPUT);
-
-line:
-while(<INPUT>) {
- if (/^\.XREF (.*)$/) {
- $xref = $1;
- $_ = $ARGV[1];
- m/^.*\.(([1-8]).*)$/;
- $suffix = $1;
- $extension = $2;
- open(XREF, "> $xref.$suffix");
- print XREF ".so man$extension/$ARGV[1]\n";
- close(XREF);
- next line;
- }
- if (/^\.SH/) {
- $insynopsis = /SYNOPSIS/;
- print $_;
- next;
- }
- if ($insynopsis) {
- if (/^#/) {
- print ".B ", $_;
- }
- elsif (/^[a-z]/) {
- chop;
-# if (m/^([a-zA-Z][a-zA-Z0-9_]*\s+[a-zA-Z][a-zA-Z0-9_]*)\(/) {
-# print ".B \"", $1, "\"\n";
-# $_ = '(' . $';
-# }
-# s/([a-zA-Z][a-zA-Z0-9_]*)(\s*[,()=])/" \1 "\2/g;
- s/([ *])([a-zA-Z][a-zA-Z0-9_]*)(\s*[,)=])/\1" \2 "\3/g;
- print ".BI \"", $_, "\"\n";
- }
- else {
- print $_;
- }
- next;
- }
- chop;
- s/!([^!]+)!\|([^|]+)\|([^\s]*)\s*/\n.BI "\1" "\2\3"\n/g;
- s/([!|])([^!|]+)\1([^\s]*)\s*/do subst($1,$2,$3)/eg;
- s/^\n+//;
- s/\n+$//;
- s/\n\n+/\n/g;
- print $_, "\n";
-}
-
-close(INPUT);
-close(OUTPUT);
-
-sub subst {
- local ($a, $b, $c) = @_;
- if ($c) {
- "\n" . ($a eq "!" ? ".BR " : ".IR ") . "\"$b\" $c\n"
- } else {
- "\n" . ($a eq "!" ? ".B " : ".I ") . "\"$b\"\n"
- }
-}
-
-