[people/ms/putty.git] / icons / cicon.pl

#!/usr/bin/perl 

# Given a list of input PNGs, create a C source file containing a
# const array of XPMs, named by a given C identifier.

$id = shift @ARGV;
$k = 0;
@xpms = ();
foreach $f (@ARGV) {
  # XPM format is generated directly by ImageMagick, so that's easy
  # enough. We just have to adjust the declaration line so that it
  # has the right name, linkage and storage class.
  @lines = ();
  open XPM, "convert $f xpm:- |";
  push @lines, $_ while <XPM>;
  close XPM;
  die "XPM from $f in unexpected format\n" unless $lines[1] =~ /^static.*\{$/;
  $lines[1] = "static const char *const ${id}_$k"."[] = {\n";
  $k++;
  push @xpms, @lines, "\n";
}

# Now output.
foreach $line (@xpms) { print $line; }
print "const char *const *const ${id}[] = {\n";
for ($i = 0; $i < $k; $i++) { print "    ${id}_$i,\n"; }
print "};\n";
print "const int n_${id} = $k;\n";
Commit	Line	Data
1c1af145	1	#!/usr/bin/perl
	2
	3	# Given a list of input PNGs, create a C source file containing a
	4	# const array of XPMs, named by a given C identifier.
	5
	6	$id = shift @ARGV;
	7	$k = 0;
	8	@xpms = ();
	9	foreach $f (@ARGV) {
	10	# XPM format is generated directly by ImageMagick, so that's easy
	11	# enough. We just have to adjust the declaration line so that it
	12	# has the right name, linkage and storage class.
	13	@lines = ();
	14	open XPM, "convert $f xpm:- \|";
	15	push @lines, $_ while <XPM>;
	16	close XPM;
	17	die "XPM from $f in unexpected format\n" unless $lines[1] =~ /^static.*\{$/;
	18	$lines[1] = "static const char *const ${id}_$k"."[] = {\n";
	19	$k++;
	20	push @xpms, @lines, "\n";
	21	}
	22
	23	# Now output.
	24	foreach $line (@xpms) { print $line; }
	25	print "const char const const ${id}[] = {\n";
	26	for ($i = 0; $i < $k; $i++) { print " ${id}_$i,\n"; }
	27	print "};\n";
	28	print "const int n_${id} = $k;\n";