docs/tutorials/colorize


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

eval '(exit $?0)' && eval 'exec perl -w -S $0 ${1+"$@"}'
    & eval 'exec perl -S $0 $argv:q'
    if 0;

while( <STDIN> )
{
  s/</\&lt;/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>,;
  print STDOUT $_;
}

0;