1

2026-08-09 02:09:35 +00:00 · 2020-04-22 12:56:21 -04:00
commit 3bf9df6b27
15370 changed files with 5489726 additions and 0 deletions
@@ -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;