diff options
author | jcej <jcej@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1999-02-24 22:36:09 +0000 |
---|---|---|
committer | jcej <jcej@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1999-02-24 22:36:09 +0000 |
commit | 5d10b2110d257859c76d26cdaadbfaf1b98b79a5 (patch) | |
tree | 6bfd456a736205e7e1e600b4815110e86f19e954 /docs | |
parent | 4f8e3d76fbf9ea86bec5d9b5306a8e7faf60c96a (diff) | |
download | ATCD-5d10b2110d257859c76d26cdaadbfaf1b98b79a5.tar.gz |
*** empty log message ***
Diffstat (limited to 'docs')
-rwxr-xr-x | docs/tutorials/colorize | 4 | ||||
-rwxr-xr-x | docs/tutorials/combine | 21 |
2 files changed, 16 insertions, 9 deletions
diff --git a/docs/tutorials/colorize b/docs/tutorials/colorize index 5b324eac473..60ffaae1348 100755 --- a/docs/tutorials/colorize +++ b/docs/tutorials/colorize @@ -5,8 +5,8 @@ eval '(exit $?0)' && eval 'exec perl -w -S $0 ${1+"$@"}' while( <STDIN> ) { s/</\</g; - s,\#(e?l?if !?defined|pragma|ifn?def|define)(\W*)([\w\.]+),<font color=blue>\#$1</font>$2<font color=purple>$3</font>,; - s,\#(include|endif),<font color=blue>$&</font>,; + s,\#(\s*)(e?l?if !?defined|pragma|ifn?def|define)(\W*)([\w\.]+),<font color=blue>\#$1$2</font>$3<font color=purple>$4</font>,; + s,\#\s*(include|endif),<font color=blue>$&</font>,; s,"([^"]+)","<font color=green>$1</font>",g; s,//.*$,<font color=red>$&</font>,; s,/\*,<font color=red>$&,; diff --git a/docs/tutorials/combine b/docs/tutorials/combine index 7d29dab60d4..c464f389e00 100755 --- a/docs/tutorials/combine +++ b/docs/tutorials/combine @@ -143,13 +143,20 @@ sub addFile { while( <INPUT> ) { s/</\</g; - s,\#(e?l?if !?defined|pragma|ifn?def|define)(\W*)([\w\.]+),<font color=blue>\#$1</font>$2<font color=purple>$3</font>,; - s,\#(include|endif),<font color=blue>$&</font>,; - s,"([^"]+)","<font color=green>$1</font>",g; - s,//.*$,<font color=red>$&</font>,; - s,/\*,<font color=red>$&,; - s,\*/,$&</font>,; - s,\w+::\~?\w+,<font color=\#008888>$&</font>,; + if( m,include\s+"ace/.*\.h", ) { + s,(ace/.*\.h),<A HREF="../../../$1">$1</A>,; + s,\#\s*include,<font color=blue>$&</font>,; + } + else + { + s,\#(\s*)(e?l?if !?defined|pragma|ifn?def|define)(\W*)([\w\.]+),<font color=blue>\#$1$2</font>$3<font color=purple>$4</font>,; + s,\#\s*(include|endif),<font color=blue>$&</font>,; + s,"([^"]+)","<font color=green>$1</font>",g; + s,//.*$,<font color=red>$&</font>,; + s,/\*,<font color=red>$&,; + s,\*/,$&</font>,; + s,\w+::\~?\w+,<font color=\#008888>$&</font>,; + } print FILE $_; } print FILE "</PRE>\n"; |