1 line
447 B
Plaintext
Executable File
1 line
447 B
Plaintext
Executable File
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
|