eudora-mac/Bits/buildacap

open (RFILE,">acap.r") || die;

print RFILE <<'EOF';

#include ":include:acap.h"

resource 'EuAC' (128,purgeable)
{{
EOF

while (<>)
{
	chop;
	($id, $name, $type) = split;
	if ($type eq "") {$type = 0;}
	$nums[$#nums+1] = $id;
	print RFILE "\t$id,$type,0,\"vendor.Eudora.$name\",\n";
}

print RFILE <<'EOF';
}};

resource 'EuAl' (128,purgeable)
{{
EOF

foreach $num (sort{$a<=>$b}@nums)
{
	print RFILE "\t$num,\n";
}

print RFILE <<'EOF';
}};
EOF