Initial, from oneko-1.2.sakura.5

1 files changed, 26 insertions, 0 deletions

diff --git a/src/fixbitmaps.pl b/src/fixbitmaps.pl
new file mode 100755
index 0000000..36f4f8c
--- /dev/null
+++ b/src/fixbitmaps.pl
@@ -0,0 +1,26 @@
+#!/usr/contributed/bin/perl
+foreach $elem( @ARGV) {
+    if ($elem =~ /\.xbm$/io) {
+	rename ($elem, $elem . '.bak');
+	open (OUTFILE, ">$elem");
+	$oldfile = $elem . '.bak';
+	open (INFILE, $oldfile);
+	print "Working on $elem\n";
+	@data = <INFILE>;
+	$name = $elem;
+	$name =~ s/\.xbm$//;
+	@parts = split(/\//,$name);
+	$count = @parts;
+	$name = @parts[$count - 1];
+	print "name = $name count = $count\n";
+	foreach $line (@data) {
+	    $line =~ s/ \S*width/' ' . $name . '_width'/e;
+	    $line =~ s/ \S*height/' ' . $name . '_height'/e;
+	    $line =~ s/ \S*x_hot/' ' . $name . '_x_hot'/e;
+	    $line =~ s/ \S*y_hot/' ' . $name . '_y_hot'/e;
+	    $line =~ s/ \S*bits/' ' . $name . '_bits'/e;
+	}
+	print OUTFILE @data;
+	unlink ($oldfile);
+    }
+}