1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
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;
|