569 |
if ($prologue) { |
if ($prologue) { |
570 |
if ($verb) { |
if ($verb) { |
571 |
&end_verbatim(); |
&end_verbatim(); |
572 |
printf "\n{\\sf DESCRIPTION:\\\\ }\n\n"; |
printf "\n{\\sf DESCRIPTION: }\n\\medskip\n"; |
573 |
} |
} |
574 |
else { # probably never occurs |
else { # probably never occurs |
575 |
} |
} |
597 |
&end_verbatim(); |
&end_verbatim(); |
598 |
} |
} |
599 |
else { |
else { |
600 |
printf "\n\\bigskip"; |
printf "\n\\medskip\n"; |
601 |
} |
} |
602 |
$k = sprintf('%s', $key); |
$k = sprintf('%s', $key); |
603 |
$ln = length($k); |
$ln = length($k); |
604 |
###printf "\\subsubsection*{%s}\n", substr($k, 2, $ln - 1); |
###printf "\\subsubsection*{%s}\n", substr($k, 2, $ln - 1); |
605 |
###printf "{\\Large \\em %s}\n", ucfirst lc substr($k, 2, $ln - 1); |
###printf "{\\Large \\em %s}\n", ucfirst lc substr($k, 2, $ln - 1); |
606 |
$_ = $key; |
$_ = $key; |
607 |
if( /USES/ || /INPUT/ || /OUTPUT/ || /PARAMETERS/ || |
printf "{\\sf %s}\n", substr($k, 2, $ln - 1); # san serif |
|
/VALUE/ || /ARGUMENTS/ ) { |
|
|
printf "{\\em %s}\n", substr($k, 2, $ln - 1); } # italics |
|
|
else { |
|
|
printf "{\\sf %s}\n", substr($k, 2, $ln - 1); # san serif |
|
|
} |
|
608 |
&begin_verbatim(); |
&begin_verbatim(); |
609 |
$first_verb = 1; |
$first_verb = 1; |
610 |
if ( $key eq "!INTERFACE:" ) { $have_intf = 1; } |
if ( $key eq "!INTERFACE:" ) { $have_intf = 1; } |
711 |
|
|
712 |
sub begin_verbatim |
sub begin_verbatim |
713 |
{ |
{ |
714 |
printf "\n{\\small \\begin{verbatim} "; |
printf "\n{\\footnotesize \\begin{verbatim} "; |
715 |
$verb = 1; |
$verb = 1; |
716 |
return 0; |
return 0; |
717 |
} |
} |