"; NL;
$paragraph = 1;
}
}
sub htmlVerb
{
$arg = $_[0];
$arg =~ s/>/>/g;
$arg =~ s/ 1) {
NL; Print ""; NL;
}
Print "
\n';
}
$first_column = 0;
}
} elsif ($opt_T) {
# handling of TexInfo specific stuff
if ($nesting == 0) {
s'@'@@'g;
}
if ($inside_table == 1) {
if ($first_column == 1) {
Print '\n@item ';
}
$first_column = 0;
}
}
$nesting ++;
SWITCH: {
/^$/ && do {$add_blank = 0;
last SWITCH;
};
/\\verb\+([^+]*)\+/ && do {$s=$`;$m=$1;$r=$';
interpret_word $s;
PrintM $Macro1a->{'verb'};
&{$Prefix . "Verb"} ($m);
PrintM $Macro1b->{'verb'};
interpret_word $r;
last SWITCH;
};
/\\(".|ss)/ && do {$s=$`;$m=$1;$r=$'; #"
interpret_word $s;
check_Macro $m;
PrintM $Macro->{$m};
interpret_word $r;
last SWITCH;
};
/\\item\s*\[([^]]*)\]/ && do {$s=$`;$m=$1;$r=$';
interpret_word $s;
$item_nr[$list_nest] ++;
&{$Prefix . "ItemWithArg"} ($m);
interpret_word $r;
last SWITCH;
};
/\\item\s*/ && do {$s=$`;$r=$';
interpret_word $s;
$item_nr[$list_nest] ++;
&{$Prefix . "Item"};
interpret_word $r;
last SWITCH;
};
# LaTeX macros with two arguments
/\\([a-zA-Z]+){([^}]*)}{([^}]*)}/
&& do {$s=$`;$m=$1;$a1=$2;$a2=$3;$r=$';
check_Macro2 $m;
interpret_word $s;
PrintM $Macro2a->{$m};
interpret_word $a1;
PrintM $Macro2b->{$m};
interpret_word $a2;
PrintM $Macro2c->{$m};
interpret_word $r;
NL;
last SWITCH;
};
# Special Handling of Email and URL LaTeX macros with one argument
/\\(URL|Email){([^}]*)}/ && ($opt_H)
&& do {$s=$`;$m=$1;$a1=$2;$r=$';
interpret_word $s;
PrintM $Macro2a->{$m};
interpret_word $a1;
PrintM $Macro2b->{$m};
interpret_word $a1;
PrintM $Macro2c->{$m};
interpret_word $r;
NL;
last SWITCH;
};
# LaTeX macros with one argument
/\\([a-zA-Z]+){([^}]*)}/ && do {$s=$`;$m=$1;$a1=$2;$r=$';
check_Macro1 $m;
interpret_word $s;
PrintM $Macro1a->{$m};
interpret_word $a1;
PrintM $Macro1b->{$m};
interpret_word $r;
NL;
last SWITCH;
};
# Special handling of some LaTeX macros without an argument
/\\SP\s*/ && do {$s=$`;$m=$1;$r=$';
interpret_word $s;
if ($first_word) {
PrintM $Macro->{"SPfirst"};
} else {
PrintM $Macro->{"SP"};
}
interpret_word $r;
$add_blank = 0;
last SWITCH;
};
/\\(MANbr|TEXIbr|HTMLbr)\s*/ && do {$s=$`;$m=$1;$r=$';
# set $first_word to true
check_Macro $m;
interpret_word $s;
PrintM $Macro->{$m};
$first_word = 1;
interpret_word $r;
$add_blank = 0;
last SWITCH;
};
# LaTeX macros without an argument:
/\\([a-zA-Z]+)\s*/ && do {$s=$`;$m=$1;$r=$';
check_Macro $m;
interpret_word $s;
PrintM $Macro->{$m};
interpret_word $r;
$add_blank = 0;
last SWITCH;
};
/\\({|}|\$|_|#|&|-|%|,|\.|;)/ && do {$s=$`;$m=$1;$r=$';
interpret_word $s;
PrintM $Macro->{$m};
interpret_word $r;
last SWITCH;
};
# LaTeX Math
/\$(<|>|<=|>=|=|<>)\$/ && do {$s=$`;$m=$1;$r=$';
interpret_word $s;
PrintM $Macro->{$m};
interpret_word $r;
last SWITCH;
};
/\$([^\$]*)\$/ && do {$s=$`;$m=$1;$r=$';
interpret_word $s;
interpret_word $m;
interpret_word $r;
last SWITCH;
};
/&/ && do {$s=$`;$r=$';
interpret_word $s;
&{$Prefix . "TableSep"};
$first_column = 0;
interpret_word $r;
last SWITCH;
};
/~/ && do {$s=$`;$r=$';
interpret_word $s;
PrintM $Macro->{'~'};
interpret_word $r;
last SWITCH;
};
/\\\\/ && do {$s=$`;$r=$';
interpret_word $s;
if ($inside_table) {
PrintM $Macro->{'\\Tab'};
$first_column = 1;
if (length ($r) > 0) {
interpret_word $r;
}
} else {
PrintM $Macro->{'\\'};
$first_word = 1;
interpret_word $r;
}
last SWITCH;
};
/\\$|\\ / && do {$s=$`;$r=$';
# LaTeX explicit blank \ will be
# represented as a single \ at
# the end of the word
interpret_word $s;
Print " ";
interpret_word $r;
last SWITCH;
};
/\\/ && do {$s=$`;$r=$';
interpret_word $s;
interpret_word "\\$r";
last SWITCH;
};
($ManCode == 1) && /((^\.|')+)/ && do {$s=$`;$m=$1;$r=$';
interpret_word $s;
print DEST "\\&$m";
$newline = 0;
interpret_word $r;
last SWITCH;
};
Print "$_";
};
$nesting --;
Print " " if ($nesting == 0 && $add_blank);
}
sub interpret_line
{
my $line = $_[0]; chomp $line;
my @words = split(/\s+/,$line);
my $max = $#words;
my $i;
my $join = 0; # true, if words must be joined
my $word = ""; # the joined word
my $kind = 0; # 1: item[ .. ], 2: { .. }, 3: \verb+ .. +
if ($max < 0) {
# empty line marks a paragraph
&{$Prefix . "Paragraph"};
$first_word = 1;
return;
}
for ($i = 0; $i <= $max; $i++) {
$_ = $words[$i];
# printf "\`$words[$i]'";
if (/^[\s]*$/) { # skip leading blanks
# nothing
} elsif (/^%+/) { # skip comments
last;
} else {
# if blanks in a { .. }, \item[ .. ], \verb+ .. + then we have to joind words
if ($join) {
# check whether this is the last word to be joined
if ($kind == 1) { # item
$join = index ($_, "]") == -1;
} elsif ($kind == 2) { # braces
my @x = $_ =~ /[^\\]}/g;
$join = $#x == -1;
} elsif ($kind == 3) { # verb
$join = index ($_, "+") == -1;
}
$word .= " " . $words[$i];
if (!$join) {
interpret_word $word;
$word = "";
}
} else {
# check whether we have to join some words
if (/\\item/) {
my $cnt1 = tr/[/[/;
my $cnt2 = tr/]/]/;
$join = $cnt1 != $cnt2 | $cnt1 == 0;
$kind = 1;
} elsif (/\\verb/) {
my $cnt = tr/+/+/;
$join = $cnt % 2 != 0;
$kind = 3;
} else {
my @x = $_ =~ /[^\\]{/g;
my @y = $_ =~ /[^\\]}/g;
$join = $#x != $#y;
$kind = 2;
}
if ($join) {
$word = $words[$i];
} else {
interpret_word $words[$i];
}
}
}
}
if ($join) {
interpret_word $word;
}
NL;
}
sub PrintM
# print only for Macro command text
{
if (@_ <= 0 || length ($_[0]) == 0) {
return;
}
my $l = shift;
my $c;
$l =~ s/\\n/\n/g;
foreach $c (split ("", $l)) {
if ($c eq "\n") {
NL;
$newline = 0;
} else {
print DEST "$c";
}
}
}
sub Print
{
# printf "\`$_[0]'\n";
if (@_ <= 0 || length ($_[0]) == 0) {
return;
}
my $x = $_[0];
unless ($x =~ /^\s*$/) {
# if other chars than blanks are printed:
$first_word = 0;
}
if (!$inside_verb) {
# transform special characters
$x =~ s/([äöüÄÖÜß])/$LetterCode->{"$1"}/go;
}
my @parts = split /\\n/, $x, -1;
# -1: trailing \n generates an empty list element
my $i;
for ($i = 0; $i <= $#parts; $i++) {
if ($newline) {
# skip leading blanks after a newline
$parts[$i] =~ s/^\s+//;
}
if (length($parts[$i]) > 0) {
if ($ManCode) {
$parts[$i] =~ s/\\/\\\\/g;
$parts[$i] =~ s/-/\\-/g;
}
printf DEST "%s", $parts[$i];
$newline = 0;
}
if ($i < $#parts) {
NL;
}
}
$paragraph = 0;
}
#########################################################################
sub date2str
{
@EnglishMonthName = ('','January','February','March','April','May','June','July',
'August','September','October','November','December');
# split date
my ($Year,$Month,$Day) = split (/\//,$_[0]);
return $Day . " " . $EnglishMonthName[$Month] . " " . $Year;
}
$rcs_date=`date '+%Y/%m/%d/'`; # date of the man-page, overwritten
# by \rcsInfo
$date = date2str ($rcs_date);
$Macro->{'today'} = $date;
#########################################################################
my @skip; # stack of skip-flags, 1: skip, 0: don't skip
push @skip, 0; # synthetic "outer most" IF, don't skip
my $last_cond_clause = "";
sub handle_conditional_text
{
$_ = $_[0];
# printf "skip-stack: %s;\t top = %s\n", join (", ", @skip), $skip[-1];
if (/^\s*%@%\s+IF\s+([^%]*)\s+%@%\s*$/) {
# produce a program, which evaluates the condition:
my $prog_cond = $1;
$prog_cond =~ s/(\w+)/\$$1/g;
my $prog = "";
my $var;
foreach $var (keys %cond_name) {
if ($var ne "") {
$prog .= "my \$$var = 1; " # declare set names,
# undeclared ones get value 0
}
}
$prog .= "return ($prog_cond) ? 0 : 1;";
# print "\n**** [$prog]\n";
my $skip = eval $prog;
($@ eq "") || die "$CMD: error in line $.: wrong condition of `%@% IF.. ($@)\n";
# print "**** skip=$skip\n";
$last_cond_clause = "IF";
if ($skip[-1] == 1) {
# skip this text, since outer IF skips
push @skip, 1;
} else {
# outer IF is not skipped, hence consider this IF
push @skip, $skip;
}
} elsif (/^\s*%@%\s+ELSE\s+%@%\s*$/) {
($last_cond_clause =~ /IF/ && ($#skip > 0)) ||
die "$CMD: error in line $.: `%@% ELSE %@%' without an `%@% IF..'\n";
$last_cond_clause = "ELSE";
if ($skip[-2] == 0) {
$skip[-1] = $skip[-1]? 0 : 1;
}
} elsif (/^\s*%@%\s+END-IF\s+%@%\s*$/) {
$last_cond_clause = "END-IF";
($#skip == 0) &&
die "$CMD: error in line $.: `%@% END-IF %@%' without an `%@% IF..'\n";
pop @skip;
}
# print "$last_cond_clause: skip = $skip[-1]\n";
}
############################################################################
# handle LaTeX output
if ($opt_L) {
while () {
if ($opt_D == 1) {
my $line = $_; chop $line;
print "--- \`$line'\n";
}
if (/^\s*%@%\s/) {
my $skip = $skip[-1];
handle_conditional_text ("$_");
# write %@% directive
print DEST $_;
next;
}
next if ($skip[-1] == 1);
print DEST $_;
}
close (DEST);
exit (0);
}
############################################################################
# handle non-LaTeX output
# read sections
# Variables: $section name of the section in uppercase letters
# $chapter chapter of the man page
# $name name of the man page
# $Name name of the man page in uppercase
# $author author of the man page
# $tool info about the tool set, $name is part of
# $date date
# $version version info
$started = 0;
while () {
if ($opt_D == 1) {
my $line = $_; chop $line;
print "--- \`$line'\n";
}
if ((/^\s*%@%\s/) && ($inside_verb==0)) {
my $skip = $skip[-1];
handle_conditional_text ("$_");
}
next if ($skip[-1] == 1);
if ($inside_verb) {
if (/^\s*\\end{verbatim}/) {
if ($started == 1) {
&{$Prefix . "VerbatimEnd"};
$inside_verb = 0;
}
} else {
&{$Prefix . "VerbatimLine"} ($_);
}
next;
}
# remove {, } around Umlaute
s/{(\\".)}/\1/g; # "
s/{(\\ss)}/\1/g;
# normalize special characters
s/\\"a/ä/g;
s/\\"o/ö/g;
s/\\"u/ü/g;
s/\\"A/Ä/g;
s/\\"O/Ö/g;
s/\\"U/Ü/g;
s/\\ss/ß/g;
if (/^\s*\\rcsInfo \$(.*)\$/) {
my ($rcs_id,$rcs_file,$rcs_revision,
$rcs_date,$rcs_time,$rcs_owner,$rcs_status,$rcs_locker) = split(/\s/,$1);
$date = date2str ($rcs_date);
$Macro->{'today'} = $date;
} elsif (/^\s*\\setDate{\\rcsInfoLongDate}/) {
$Macro->{'Date'} = $date;
} elsif (/^\s*\\setDate{\\today}/) {
$Macro->{'Date'} = $date;
} elsif (/^\s*\\setDate{([^}]*)}/) {
$date = $1;
$date =~ s/~/$Macro->{'~'}/g;
$Macro->{'Date'} = $date;
} elsif (/^\s*\\setVersion{([^}]*)}/) {
$version = $1;
$versin =~ s/~/$Macro->{'~'}/g;
$Macro->{'Version'} = $version;
} elsif (/^\s*\\begin{Name}{([^}]*)}{([^}]*)}{([^}]*)}{([^}]*)}{([^}]*)}/) {
$section = "Name";
$chapter = $1;
$name = $2;
$Name = uc $name;
$author = $3;
$tool = $4;
$title = $5;
$rest = $';
$started = 1;
$sections[0] = $section;
$section_cnt = 0;
&{$Prefix . "Start"} ($name, $chapter, $author, $tool, $title);
&{$Prefix . "NameStart"} ($name, $chapter, $author, $tool, $title);
} elsif (/^\s*\\end{Name}/) {
&{$Prefix . "NameEnd"} ($name, $chapter, $author, $tool);
} elsif (/^\s*\\begin{Table}{([^}]*)}/) {
if ($started == 1) {
$columns = $1;
$column = $_[0];
$inside_table = 1;
$first_column = 1;
&{$Prefix . "TableStart"} ($columns);
}
} elsif (/^\s*\\end{Table}/) {
if ($started == 1) {
$inside_table = 0;
$first_column = 0;
&{$Prefix . "TableEnd"} ($columns);
}
} elsif (/^\s*\\begin{Description}(\[[^]]*\])?/) {
if ($started == 1) {
$list_nest++;
$cur_list[$list_nest] = 'descr';
$item_nr[$list_nest] = 0;
&{$Prefix . "DescriptionStart"};
}
} elsif (/^\s*\\end{Description}/) {
if ($started == 1) {
&{$Prefix . "DescriptionEnd"};
$list_nest--;
}
} elsif (/^\s*\\begin{description}/) {
if ($started == 1) {
$list_nest++;
$cur_list[$list_nest] = 'descr';
$item_nr[$list_nest] = 0;
&{$Prefix . "DescriptionStart"};
}
} elsif (/^\s*\\end{description}/) {
if ($started == 1) {
&{$Prefix . "DescriptionEnd"};
$list_nest--;
}
} elsif (/^\s*\\begin{center}/) {
if ($started == 1) {
&{$Prefix . "CenterStart"};
}
} elsif (/^\s*\\end{center}/) {
if ($started == 1) {
&{$Prefix . "CenterEnd"};
}
} elsif (/^\s*\\begin{enumerate}/) {
if ($started == 1) {
$list_nest++;
$cur_list[$list_nest] = 'enum';
$item_nr[$list_nest] = 0;
&{$Prefix . "EnumStart"} ;
}
} elsif (/^\s*\\end{enumerate}/) {
if ($started == 1) {
&{$Prefix . "EnumEnd"} ;
$list_nest--;
}
} elsif (/^\s*\\begin{itemize}/) {
if ($started == 1) {
$list_nest++;
$cur_list[$list_nest] = 'item';
$item_nr[$list_nest] = 0;
&{$Prefix . "ItemStart"} ;
}
} elsif (/^\s*\\end{itemize}/) {
if ($started == 1) {
&{$Prefix . "ItemEnd"} ;
$list_nest--;
}
} elsif (/^\s*\\begin{verbatim}/) {
if ($started == 1) {
&{$Prefix . "VerbatimStart"};
$inside_verb = 1;
}
} elsif (/^\s*\\(subsection|section){([^}]*)}/) {
$kind = $1;
$section = $2;
$section_cnt ++;
$sections[$section_cnt] = $section;
$section_kind[$section_cnt] = $kind;
if ($started == 1) {
&{$Prefix . "Section"} ($section_cnt, $kind, $section);
}
} elsif (/^\s*\\LatexManEnd/) {
last;
} elsif (/^\s*((\\begin{Name|Table|Description})|(\\(sub)?section))/) {
die "$CMD: in line $.\n " .
"Arguments of $1 are not contained in a single " .
"line.\n " .
"Remember: all arguments of a macro must be on the same line.\n";
} else {
if ($started == 1) {
interpret_line $_;
}
}
}
&{$Prefix . "End"};
close DEST;
if ($opt_H || $opt_T) {
open (TMP, "<$tmp") || die "$CMD: Can't open file \`$tmp' for reading.\n";
open (DEST, ">$DestFile") || die "$CMD: Can't open file \`$DestFile' for writing.\n";
while () {
if (/^\@\@INSERTION-POINT\@\@-TOC\@\@$/) {
if ($opt_H) {
# Table of contents for HTML
my $is_first = 1;
my $last_was_subsection = 0; # use a nested for subsections
Print '\nTable of Contents\n';
Print '\n';
for ($i = 1; $i <= $section_cnt; $i++) {
if ($section_kind[$i] eq "subsection" &&
!$last_was_subsection) {
Print '\n\n';
$last_was_subsection = 1;
} elsif ($section_kind[$i] eq "section" &&
$last_was_subsection) {
Print '\n \n';
$last_was_subsection = 0;
} else {
Print '\n' if (!$is_first);
}
Print "- ";
interpret_word $sections[$i];
Print "";
$is_first = 0;
}
if ($last_was_subsection) {
Print '
\n \n';
}
Print '\n \n';
} else {
# Menu of sections for texi
Print '@menu\n';
for ($i = 2; $i <= $section_cnt; $i++) {
interpret_line "* " . $sections[$i] . "::";
}
Print '@end menu\n';
}
} elsif (/\@\@INSERTION-POINT\@\@-TEXI-TOP\@\@/) {
# Texi-top node
Print '@node Top, ' . $sections[2] . ', (dir), (dir)\n';
} elsif (/\@\@INSERTION-POINT\@\@-TEXI-SEC\@\@ (\w+) (\d+)/) {
# print section header for texi
$kind = $1;
$cnt = $2;
$section = $sections[$cnt];
Print '@node ' ;
interpret_word "$sections[$cnt], ";
interpret_word "$sections[$cnt+1], ";
interpret_word "$sections[$cnt-1], Top ";
NL;
} else {
print DEST $_;
}
}
close TMP;
close DEST;
unlink $tmp;
}
#########################################################################
## Emacs specific:
## Local Variables: ***
## mode: perl ***
## End: ***
|