eudora-mac/Bits/AddDlgx

# creates dlgx and alrx resources from a file containing derezed DLOGs and ALRTs
# this file will probably have to change as the Appearance.r files change

$dlgxHierString = ") {\n\tversionZero {\n\tkDialogFlagsUseThemeBackground + kDialogFlagsUseThemeControls + kDialogFlagsUseControlHierarchy\n\t}\n};\n";
$dlgxNormString = ") {\n\tversionZero {\n\tkDialogFlagsUseThemeBackground + kDialogFlagsUseThemeControls\n\t}\n};\n";
$alrxString = ") {\n\tversionOne {\n\t0x09, 0, kUseThemeWindow, \"\"\n\t}\n};\n";

$dlist = '1002, ';
$alist = '1002, ';
$hlist = '1005, 1034, 1064, 1068, 1075, 1078, 1079, 1080, 1081, 1082, 1083, 1084, 1085, 1086, 1088, 1089, 1090, 1091, 1092, 1093, 1094, 1095, 1098, 1099, 1100, 1101, 1103, 1104, 2000, ';

while (<>)
{
	@line = split(/^/);
	foreach (@line)
	{
		s/data/resource/;
		@word = split(" ",$_,4);
		$word[2] =~ s/\(//;
		if ($_ =~ /DLOG/ && ($dlist !~ $word[2]))
		{
			$dlist .= "$word[2] ";
			s/DLOG/dlgx/;
			if ($hlist =~ $word[2])
			{
				s/\,.*/$dlgxHierString/;
			}
			else
			{
				s/\,.*/$dlgxNormString/;
			}
			print;
		}
		elsif ($_ =~ /ALRT/ && ($alist !~ $word[2]))
		{
			$alist .= "$word[2] ";
			s/ALRT/alrx/;			
			s/\,.*/$alrxString/;
			print;
		}
	}
}