call_subs.winxed

function main[main]()
{
    var curpf = getinterp()["packfile"];
    var all_subs = curpf.all_subs();
    for (var sub in all_subs)
        say(sub);
    all_subs[2]();
    all_subs[3]();
}

function foo() {
    say("in foo!");
}

function bar() {
    say("in bar!");
}

dump_constants.winxed

function main[main]()
{
    var curpf = getinterp()["packfile"];
    var counts = curpf.constant_counts();

    int pmc_count = counts[2];
    say("PMC Constants");
    for (int i = 0; i < pmc_count; i++) {
        var c = curpf[i];
        say(sprintf("\t%d: %s", [i, typeof(c)]));
    }

    int str_count = counts[1];
    say("String Constants");
    for (int i = 0; i < str_count; i++) {
        string c = curpf[i];
        say(sprintf("\t%d: '%s'", [i, c]));
    }
}