#!/usr/local/bin/perl # # creates images.c and images.h. Takes the imagedir as a parameter. # # Bill Dyess, 10/5/94 # # Bill Dyess, 2/11/95 # - Now always compiles in default.x[pb]m. # - Compiles in all image files if -c given as a parameter. # require "find.pl"; $path = $ARGV[0]; if ($path eq "-c") { $compile_in = 1; $path = $ARGV[1]; } else { $compile_in = 0; } die "Usage: $0 [-c] \n -c Compile in all images.\n" unless $path; &find($path); &init_lookup(); open(C,">images.c") || die "can't open images.c: $!\n"; open(H,">images.h") || die "can't open images.h: $!\n"; open(SCRIPT,"+<$0") || die "can't open $0: $!\n"; while(