#!/usr/bin/perl # # (C) 2006 Gregor Jehle # # GCC / MSCL Precompiler Output Include Depths Mapper # # Usage: # gcc -E | perl e2html.pl # cl /P | perl e2html.pl # print < GCC/MSCL Include Depths Map
HTML @istack = (); # only needed for MSCL $GNU = 0; $stylecheck = 0; $leftout = 0; while() { $line = $_; chomp($line);chomp($line); $line =~ s/\r//g; $line =~ s/\/\>\;/g; if (!$stylecheck) { if($line =~ /\#line/) { $GNU = 0; # MS CL $stylecheck = 1; } elsif($line =~ /\#\s/) { $GNU = 1; # GCC $stylecheck = 1; } else { die("UNABLE TO DETECT COMPILER FLAVOR!\n"); } } if ($GNU) { # GNU STYLE # while() { $line = $_; chomp($line);chomp($line); $line =~ s/\/\>\;/g; $line =~ s/\r//g; if($line =~ /\# \d+ "[^"]+\s?(.+)/) { $flags = $1; if($flags =~ /1/) { # new include print "
$line
\n"; } if($flags =~ /2/) { # returned from include print "$line
\n"; } } else { if(length($line)>=1) { # don't print the empty lines, just those with content print $line; print "
\n"; } } } } else # !GNU { # MS CL STYLE # if($line =~ /^\s*\#line (\d+) "([^"]+)/) { $lineno = $1; $include = $2; if ($lineno == 1) { # a new include $leftout = 0; push(@istack,$include); print "
$line
\n"; } elsif ($istack[$#istack] eq $include) { # we're still in the same include # this is just a notice that some code got ommited if(!$leftout) { $leftout = 1; print "[...]
"; } } elsif ($istack[$#istack-1] eq $include) { # we have returned from an include file $leftout = 0; $pinclude = pop(@istack); print "$pinclude
$line
\n"; } else { die("unexpected #line directive, something went wrong:\n$line\n"); } } else { # remove tabs and spaces from the beginning $line =~ s/^\s+//; if(length($line)>=1) { # don't print the empty lines, just those with content $leftout = 0; print $line; print "
"; } } } } print < HTML