pcc gh1080

gistfile1.pl

        my $sigtype = {'P' => 'pmc',
                       'S' => 'string',
                       'I' => 'integer',
                       'N' => 'number'};
        my $arg_index = 0;
        my @sig_vals = split(//, $params_signature);
        my @params_vararg_list = split(/, &/,substr($params_varargs, 1));

        foreach my $sig (@sig_vals) {
            if ($sigtype{$sig}) {
                my $type = $sigtype{$sig};
                $e->emit( <<"END");
        $params_vararg_list[$arg_index] = VTABLE_get_${type}_keyed_int(interp, _call_object, $arg_index);
END
                $arg_index++;
            }
            else {
                # TODO check for the other sig modifiers: i, o, s
            }
        }