\n
\n| \n\n |
$_\n" and next}; if ( $block eq "comment" ){ #handle the name line specially /(Name:[\s]+)(.+)/ && {$stuff=$stuff."\n" and $toc[$i++]=$2}; #find tcl source code file references to link to. #smarter patterns can be used here!! #s/ LDASgwrap/ LDASgwrap<\/a>/g; s/ (([a-zA-Z_]+)\.tcl)/ $1<\/a>/g; #s/ (([a-zA-Z]+)\.rsc)/ $1<\/a>/g; #find things that look like proc names (mixed case words). s/$procnames/$&<\/i>/g; #s/$ns_var_rx/$&<\/i>/g; #find ordered lists s/^( +)?1\.// && {$stuff=$stuff."
" and next};
/Comments:$/ && {$stuff=$stuff."\n$&\n\n" and next};
#preformat tag the proc
if (/^proc/o){
s/$procnames/$&<\/b>/g;
#s/$ns_var_rx/$&<\/b>/g;
$stuff=$stuff."\n$_";
next;
}
#find the final curly of a proc and close preformatting
/^\}( +)?$/o
&& {$stuff=$stuff."$_\n\n$sect" and next};
#handle an ;#end tag
/^;#end( +)?$/o
&& {$stuff=$stuff."\n\n$sect" and next};
#deal with a line consisting solely of a comment
/^( +)?\;\#/o
&& {$stuff=$stuff."$_" and next};
#line continuation backslashes
s/(\\)\s*$/\\<\/font>\n/g;
#block delineating braces
s/^(\s*)(\})/$1$2<\/font>/g;
s/(\{)\s*$/$1<\/font>\n/g;
#special handling of quoted strings
s/(\\)?\".+\"/$&<\/font>/g;
#don't do syntax highlighting in embedded comments!
$comment="";
/(.+)(;.+)/o
&& {$_=$1 and $comment="$2\n"};
#various syntax highlighting rules
s/ -[a-zA-Z]+/$&<\/font>/g;
s/$procnames/$&<\/b>/g;
#s/$ns_var_rx/$&<\/b>/g;
s/$bolds/$&<\/b>/g;
s/$global_rsc_vars/$&<\/font><\/b>/g;
s/$oranges/$&<\/font>/g;
s/$numbers/$&<\/font>/g;
s/$varnames/$&<\/font>/g;
s/$reds/$&<\/font>/g;
s/$blues/$&<\/font>/g;
s/$greens/$&<\/font>/g;
s/$violets/$&<\/font>/g;
s/^\s*(frame|menu|label|(check)?button|toplevel|canvas|entry|text) /$&<\/font>/g;
s/$escapes/$&<\/font>/g;
$stuff=$stuff."$_"."$comment" and next;
}
}
close infid;
# initialize the iterator for the toc printing.
$i = 1;
# set up the table:
print outfid "\n\n\n";
# dump the toc entries into two columns:
foreach (sort @toc) {
print outfid " $_\n"; if ($i++ == int($#toc/2)+1) {print outfid " | \n"}; } # lock up the table. print outfid " |
\n\n\n"; # print all the stuff from the main loop: print outfid $stuff; # print the footer: print outfid "\n
\nBack to Top\n\n