put_line($p, 0);
if ($t{type}->{dtor}) {
my $dtor = $t{type}->{dtor};
+ $dtor =~ s/\$L/L/;
$dtor =~ s/\$\$/\&$var/;
print " $dtor;\n";
}
print " case LTK_$tok: \n";
if ($t{type}->{dtor}) {
my $dtor = $t{type}->{dtor};
+ $dtor =~ s/\$L/L/;
$dtor =~ s/\$\$/\&$var/;
print " $dtor;\n";
}
if ($t{type}->{ctor}) {
my $ctor = $t{type}->{ctor};
+ $ctor =~ s/\$L/L/;
$ctor =~ s/\$\$/$check/;
$check = $ctor;
}