1#!/usr/local/bin/perl -n
2#
3if (/^VMPRIM\((\w+),,\s*\"(\S+)\"\s*,\s*(\S+)\)/) {
4	print "\t{&&l_$1, \"$2\", $3,0,0,0 },\n";
5}
6if (/^Prim\((\w+),\s*\"(\S+)\"\s*,\s*(\S+)\)/) {
7	print "\t{&&l_$1, \"$2\", $3,0,0,0 },\n";
8}
9if (/^PrimVarargs\((\w+),\s*\"(\S+)\"\)/) {
10	print "\t{&&l_$1, \"$2\", -1,0,0,1 },\n";
11}
12