Displaying 3 results from an estimated 3 matches for "opt_x".
Did you mean:
opt_
1997 Jul 01
1
R-alpha: sd2rd v0.1-3
...correctly maps .SE into SECTION.
-k
***********************************************************************
#!/usr/bin/perl -w
$VERSION = "0.1-3";
$\ = "\n";
$parenLevel = 0;
$inVerbatim = 0;
$inSeeAlso = 0;
$doprint = 1;
$needArg = 1;
$needVal = 0;
$output = "";
$opt_x = 0;
use Getopt::Long;
GetOptions (("x")) || &usage();
while (<>) {
chop;
&substitute unless /^\./;
@word = split;
if (/^\s*$/) {
if ($inVerbatim) {
&output("BLANK");
} else {
&output("PARA");
}
}
if (/^[^.]/...
1997 Jun 10
0
R-alpha: sd2rd 0.1-2
...bution's `etc' directory.
-k
*********************************************************************
#!/usr/bin/perl -w
$VERSION = "0.1-2";
$\ = "\n";
$parenLevel = 0;
$inVerbatim = 0;
$inSeeAlso = 0;
$doprint = 1;
$needArg = 1;
$needVal = 0;
$output = "";
$opt_x = 0;
use Getopt::Long;
GetOptions (("x")) || &usage();
while (<>) {
chop;
&substitute unless /^\./;
@word = split;
if (/^\s*$/) {
if ($inVerbatim) {
&output("BLANK");
} else {
&output("PARA");
}
}
if (/^[^.]/...
1997 Aug 04
0
R-alpha: sd2rd version 0.1-5
...rguments to");
output("LANG(LINK(title)) may be supplied to this function.");
}
}
sub substitute {
if (!$inVerbatim) {
s/\(/\\\(/g;
s/\)/\\\)/g;
}
s/\.\.\./DOTS/g;
s/\\fB/BOLD\(/g;
s/\\fR/\)/g;
s/\\\.(.*)$/COMMENT($1)/g;
if ($inSeeAlso) {
if ($opt_x) {
s/\`?([\.\w]*\w+)\'?/LANG(LINK($1))/g;
} else {
s/\`([^\']*)\'/LANG(LINK($1))/g;
}
} else {
s/\`([^\']*)\'/LANG($1)/g;
}
}
sub section {
local($level, $text) = @_;
$n = $parenLevel - $level;
print(")" x $n) if ($n > 0);
if ($...