39 lines
813 B
Perl
39 lines
813 B
Perl
|
#!/usr/bin/perl -w
|
||
|
|
#
|
||
|
|
# Learning Text::CPP... conclusion: not what I need.
|
||
|
|
#
|
||
|
|
#
|
||
|
|
|
||
|
|
package cpptokenizer;
|
||
|
|
|
||
|
|
use Text::CPP;
|
||
|
|
use Data::Dumper;
|
||
|
|
|
||
|
|
$Data::Dumper::TERSE = 1;
|
||
|
|
$Data::Dumper::INDENT = 1;
|
||
|
|
|
||
|
|
my $reader = new Text::CPP ( Language => "GNUC99" );
|
||
|
|
|
||
|
|
my ( $text, $type, $prettytype, $flags );
|
||
|
|
|
||
|
|
foreach my $file ( @ARGV ) {
|
||
|
|
print "File: $file\n", '-' x 70, "\n";
|
||
|
|
|
||
|
|
$reader->read( $file );
|
||
|
|
|
||
|
|
#print join("\n", $reader->tokens);
|
||
|
|
|
||
|
|
while ( ($text, $type, $flags) = $reader->token ) {
|
||
|
|
$prettytype = $reader->type( $type );
|
||
|
|
chomp( $text );
|
||
|
|
#print "$prettytype: $text ($type) +$flags\n";
|
||
|
|
print Data::Dumper->Dumpxs( [$text,$type,$flags,$prettytype],
|
||
|
|
[qw{text type flags prettytype}] ), "\n";
|
||
|
|
print "---\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
print "\n\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
|