diff options
Diffstat (limited to 'docs/tutorials/colorize')
-rwxr-xr-x | docs/tutorials/colorize | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/docs/tutorials/colorize b/docs/tutorials/colorize deleted file mode 100755 index ee61d4bfb14..00000000000 --- a/docs/tutorials/colorize +++ /dev/null @@ -1,20 +0,0 @@ -eval '(exit $?0)' && eval 'exec perl -w -S $0 ${1+"$@"}' - & eval 'exec perl -S $0 $argv:q' - if 0; - -print "<PRE>\n"; -while( <STDIN> ) -{ - s/</\</g; - 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 STDOUT $_; -} -print "</PRE>\n"; - -0; |