+
−#!/usr/bin/perl
+
−
+
−# Copyright 2014  Tormod Volden
+
−#
+
−# Digests assembly listings generated by lwasm, and stores the
+
−# module body listing in a file named by the module CRC.
+
−# Example: for f in *.lst; do ../scripts/list2crc.pl $f; done
+
−
+
−open(CRCFILE, ">", "crc.tmp") or die "cannot create crc.tmp: $!";
+
−
+
−while (<>) {
+
−	($hoffset, $opbytes, $filepath, $lineno,  $label, $opcode, $operand, $comment) =
+
−		( $_ =~ /^(\w+) (\w+)\s+\((.*)\):(\d+) (\S+)?\s+(\w+)\s*(\S+)?\s*(.*)?/ );
+
−
+
−	# print $hoffset, "\t", $opcode, "\t", $comment, "\n";
+
−	if (lc($opcode) eq "mod") {
+
−		$in_module = 1;
+
−	}
+
−
+
−	if (lc($opcode) eq "emod") {
+
−		die "double emod" if $found_emod;
+
−		$found_emod = 1;
+
−		$crc = $opbytes;
+
−		$in_module = 0;
+
−	}
+
−
+
−#	if ($in_module && $hoffset) {
+
−#		$offset = hex($hoffset);
+
−#		print CRCFILE "$offset\t$filepath\t$lineno\n";
+
−#	}
+
−	if ($in_module) {
+
−		print CRCFILE $_
+
−	}
+
−}
+
−close(CRCFILE);
+
−if ($crc) {
+
−	print "writing $crc.crc\n";
+
−	rename "crc.tmp", $crc . ".crc";
+
−}