diff options
Diffstat (limited to 'devtools/bin/crc32filewithincludes.pl')
| -rw-r--r-- | devtools/bin/crc32filewithincludes.pl | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/devtools/bin/crc32filewithincludes.pl b/devtools/bin/crc32filewithincludes.pl new file mode 100644 index 0000000..6c90778 --- /dev/null +++ b/devtools/bin/crc32filewithincludes.pl @@ -0,0 +1,41 @@ +use String::CRC32; + +sub ReadInputFileWithIncludes +{ + local( $filename ) = shift; + + local( *INPUT ); + local( $output ); + + open INPUT, "<$filename" || die; + + local( $line ); + local( $linenum ) = 1; + while( $line = <INPUT> ) + { + if( $line =~ m/\#include\s+\"(.*)\"/i ) + { + $output.= ReadInputFileWithIncludes( $1 ); + } + else + { + $output .= $line; + } + } + + close INPUT; + return $output; +} + +if( !scalar( @ARGV ) ) +{ + die "Usage: crc32filewithincludes.pl filename\n"; +} + +$data = &ReadInputFileWithIncludes( shift ); + +#print "data: $data\n"; + +$crc = crc32( $data ); +print $crc; +exit 0; |