From ea985be43439073a8357758db49b2c65016726bd Mon Sep 17 00:00:00 2001
From: David Griffith <dave@661.org>
Date: Wed, 20 Mar 2013 18:10:14 -0700
Subject: [PATCH] Modified for multiple input files.

---
 nki2inf.pl | 30 ++++++++++++++++++------------
 1 file changed, 18 insertions(+), 12 deletions(-)

diff --git a/nki2inf.pl b/nki2inf.pl
index 5b9f3c0..9f11bc3 100755
--- a/nki2inf.pl
+++ b/nki2inf.pl
@@ -11,13 +11,15 @@
 # This script automatically takes care of '`', '\', and '@' by replacing 
 # them with '@@126', '@@92', and '@@64' respectively.
 
-my $infile = $ARGV[0];
+foreach my $infile (@ARGV) {
+	if (! -r $infile) { die "$0: Unable to read $infile\n"; }
+}
+
 my $count = 0;
 my $line;
 
-if (!$infile) { die "Usage: $0 foobar.nki > nki.inf\n"; }
+if (!$ARGV[0]) { die "Usage: $0 <files> > nki.inf\n"; }
 
-open (INFILE, "< $infile") || die "$0: Cannot open $infile\n";
 
 print "! The following code was automatically generated by nki2inf.pl\n";
 print "! Do not edit this file.\n";
@@ -34,15 +36,19 @@ print "!    \@  --> \@\@64\n\n";
 print "[ lookup_msg num;\n";
 print "\tswitch(num) {\n";
 
-while (<INFILE>) {
-	$count++;
-	next if /^\s*($|#|!)/;
-	chomp;
-	$line = $_;
-	$line =~ s/"/~/g;
-	$line =~ s/@/\@\@64/g;
-	$line =~ s/\\/\@\@92/g;
-	print "$count:\treturn \"$line\";\n";
+foreach my $infile (@ARGV) {
+	open (INFILE, "< $infile") || die "$0: Cannot open $infile\n";
+
+	while (<INFILE>) {
+		$count++;
+		next if /^\s*($|#|!)/;
+		chomp;
+		$line = $_;
+		$line =~ s/"/~/g;
+		$line =~ s/@/\@\@64/g;
+		$line =~ s/\\/\@\@92/g;
+		print "$count:\treturn \"$line\";\n";
+	}
 }
 print "default: return \"Unknown NKI (this should not happen)\";\n\t}\n];\n";
 print "Constant MESSAGE_NUM $count;\n";
-- 
2.31.1