#! /usr/bin/perl

$b="  ";
$t=" "x8;
$r="<br>";
$lt="&lt;";
$gt="&gt;";
$comment="<font color="."\"blue\"".">";
$matcher="</font>";
$macro="<font color="."\"#df41ff\"".">";
$number="<font color="."\"pink\"".">";
$strs="<font color="."\"red\"".">";
$keywd="<font color="."\"green\"".">";
if(@ARGV!=2){
	die("Wrong usage!\n");
	}

open(INF,"<",$ARGV[0]) or die("Can't open file: $ARGV[0]\n");
open(OUTF,">",$ARGV[1]) or die("Can't open file: $ARGV[1]\n");

$keystring="int|char|short|unsigned|signed|long|register|static|extern|if|for|else|while|return|sizeof|void|struct|union|inline|typedef|do|double|float|const";

while(<INF>){
	chomp;
	s/</$lt/g;#these two must be first.
	s/>/$gt/g;
	s/$/$r/g;
	s/ /$b/g;
	s/\t/$t/g;
	s/\".*\"/$strs$&$matcher/g;#this one also must be first among the last.
	s/\'.*\'/$number$&$matcher/g;
	s/\/\*/$comment\/\*/g;
	s/\*\//\*\/$matcher/g;
	s/^[ \t]*#[a-z]+/$macro$&$matcher/g;
	#look ahead & after, but NOT go.
	s/(?=\W)\d\w*(?=\W)/$number$&$matcher/ig;
	s/(?=\W|^)$keystring(?=\W)/$keywd$&$matcher/g;
	print OUTF "$_\n";
}
print OUTF "<hr>";
print OUTF "<div align=\"center\">This is generated by c2html.pl. Copyright &copy; WANG Cong.</div>\n";