search for: parenlevel

...Thomas for the suggestions). The keywords are saved as comments, and can easily be used as soon as keywords are supported. As usual, any feedback ... -k ********************************************************************** #!/usr/bin/perl -w $VERSION = "0.1"; $\ = "\n"; $parenLevel = 0; $doprint = 1; $needArg = 1; $needVal = 0; $seealso = 0; $output = ""; while (<>) { chop; &substitute; @word = split; if (/^[^.]/) { &output($_); } if (/^\.AG/) { if ($needArg) { &section(0, "ARGUMENTS("); $needArg = 0; }...

Oops, Just found a typo. Here's the updated version. -k *********************************************************************** #!/usr/bin/perl $VERSION = "0.1-5"; $\ = "\n"; $parenLevel = 0; $inVerbatim = 0; $inSeeAlso = 0; $doprint = 1; $needArg = 1; $needVal = 0; $output = ""; use Getopt::Long; GetOptions (("x")) || &usage(); while (<>) { chop; &substitute unless /^\./; @word = split; if (/^\s*$/) { if ($inVerbatim) { &a...

...;) *) blank lines are mapped into PARA so that e.g. reference sections come out better *) comments are mapped into comments :-) Please have a try. -k ************************************************************************ #!/usr/bin/perl -w $VERSION = "0.1-1"; $\ = "\n"; $parenLevel = 0; $inSeeAlso = 0; $doprint = 1; $needArg = 1; $needVal = 0; $output = ""; while (<>) { chop; &substitute unless /^\./; @word = split; if (/^\s*$/) { &output("PARA"); } if (/^[^.]/) { &output($_); } if (/^\.AG/) { if ($needArg) {...

Thanks to Martin, there is another update of the S doc -> R doc script. It now 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 ($inVerbati...

...k the current version should be rather stable and pretty much usable, so perhaps one could include it in the R distribution'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 ($inVerbati...

.../parser.c @@ -80,6 +80,18 @@ struct heredoc { int striptabs; /* if set, strip leading tabs */ }; +struct synstack { + const char *syntax; + struct synstack *prev; + struct synstack *next; + int innerdq; + int varpushed; + int dblquote; + int varnest; /* levels of variables expansion */ + int parenlevel; /* levels of parens in arithmetic */ + int dqvarnest; /* levels of variables expansion within double quotes */ +}; + struct heredoc *heredoclist; /* list of here documents to read */ @@ -841,6 +853,21 @@ static int pgetc_eatbnl(void) return c; } +static void synstack_push(struct synsta...

.../parser.c @@ -80,6 +80,18 @@ struct heredoc { int striptabs; /* if set, strip leading tabs */ }; +struct synstack { + const char *syntax; + struct synstack *prev; + struct synstack *next; + int innerdq; + int varpushed; + int dblquote; + int varnest; /* levels of variables expansion */ + int parenlevel; /* levels of parens in arithmetic */ + int dqvarnest; /* levels of variables expansion within double quotes */ +}; + struct heredoc *heredoclist; /* list of here documents to read */ @@ -841,6 +853,21 @@ static int pgetc_eatbnl(void) return c; } +static void synstack_push(struct synsta...

...o work reasonably well (it should get the arguments lists right, distinguish between VALUE and VALUES, and know about REFERENCES and SEEALSO). Any comments etc are most welcome. -k ************************************************************************ #!/usr/bin/perl -w $\ = "\n"; $parenLevel = 0; $doprint = 1; $needArg = 1; $needVal = 0; $output = ""; while (<>) { chop; &substitute; @word = split; if (/^[^.]/) { &output($_); } if (/^\.AG/) { if ($needArg) { &section(0, "ARGUMENTS("); $needArg = 0; } &section(...

...ngjmp' or 'vfork' dash/parser.c:844: warning: variable 'varnest' might be clobbered by 'longjmp' or 'vfork' dash/parser.c:845: warning: variable 'arinest' might be clobbered by 'longjmp' or 'vfork' dash/parser.c:846: warning: variable 'parenlevel' might be clobbered by 'longjmp' or 'vfork' dash/parser.c:847: warning: variable 'dqvarnest' might be clobbered by 'longjmp' or 'vfork' dash/parser.c:848: warning: variable 'oldstyle' might be clobbered by 'longjmp' or 'vfork' dash...

..., char const *syntax, char *eofmark, int striptabs) USTPUTC(CTLESC, out); USTPUTC('\\', out); pungetc(); - } else if (c == '\n') { - nlprompt(); } else { if ( dblquote && @@ -997,7 +989,7 @@ quotemark: USTPUTC(c, out); --parenlevel; } else { - if (pgetc() == ')') { + if (pgetc_eatbnl() == ')') { USTPUTC(CTLENDARI, out); if (!--arinest) syntax = prevsyntax; @@ -1025,7 +1017,7 @@ quotemark: USTPUTC(c, out); } } - c = pgetc(); + c = syntax == SQSYNTAX ? pgetc(...

..., char const *syntax, char *eofmark, int striptabs) USTPUTC(CTLESC, out); USTPUTC('\\', out); pungetc(); - } else if (c == '\n') { - nlprompt(); } else { if ( dblquote && @@ -997,7 +989,7 @@ quotemark: USTPUTC(c, out); --parenlevel; } else { - if (pgetc() == ')') { + if (pgetc_eatbnl() == ')') { USTPUTC(CTLENDARI, out); if (!--arinest) syntax = prevsyntax; @@ -1025,7 +1017,7 @@ quotemark: USTPUTC(c, out); } } - c = pgetc(); + c = syntax == SQSYNTAX ? pgetc(...