eudora-mac/Bits/buildtext

#!/usr/local/bin/perl
foreach $f (@ARGV)
{
	open(STDIN,"<$f") || die;
	$f =~ s/\.[a-zA-Z]*$//;	# strip extension
	($name,$id) = split('=',$f);
	$name =~ s/.*://;	# strip path
	print "data 'TEXT' ($id," . '"' . "$name" . '"' . ",purgeable) {\n";
	$neednewline = 0;
	while(<STDIN>)
	{
		chop;
		s/"/\\"/g;
		if ($neednewline) {print '	"\n" ';}
		$neednewline = 1;
		print '	"' . $_ . '"' . "\n";
	}
	print "};\n";
}