Import of Empire 4.2.12

scripts/mapper/param.pl

@@ -0,0 +1,41 @@
+#!/usr/local/bin/perl
+
+open(FRAMES_FH, 'frames') || die 'Cannot open file "frames".';
+
+
+# modify the INPUT stanza of a mpeg param file to reflect the actual input
+
+$[ = 1;			# set array base to 1
+$, = ' ';		# set output field separator
+$\ = "\n";		# set output record separator
+
+line: while (<>) {
+    chop;	# strip record separator
+    @Fld = split(' ', $_, 9999);
+    if (/^INPUT$/ .. /^END_INPUT$/) {
+	next line;
+    }
+
+    print $_;
+}
+
+printf (("INPUT\n"));
+$_ = &Getline2('FRAMES_FH');
+$frames = $Fld[1];
+for ($i = 0; $i <= $frames; $i++) {
+    $file = sprintf('map-%d.gif', $i);
+    $size = -s $file;
+    if ($size>300 && $size<10000) {
+	printf "%s\n", $file;
+    }
+}
+printf (("END_INPUT\n"));
+
+sub Getline2 {
+    ($fh) = @_;
+    if ($getline_ok = (($_ = <$fh>) ne '')) {
+	chop;	# strip record separator
+	@Fld = split(' ', $_, 9999);
+    }
+    $_;
+}