summary refs log tree commit diff
path: root/fixbitmaps.pl
blob: 36f4f8cd0f2ab5a19970159d1ab25fe68103ec8e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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);
    }
}