#line 4 "varmacpp.c"

#line 11 "varmacpp.c"

#line 14 "varmacpp.c"

main(args)

{

    local a = 1;

    local b = 2;

    local xyz = 3;

    local lst;

    tadsSay('hello'); "\n";    "\t"; tadsSay('a' + ' = ' + a); "\n"; "\t"; tadsSay('b' + ' = ' + b); "\n";
"\t"; tadsSay('xyz' + ' = ' + xyz); "\n"; ;

    tadsSay('goodbye'); "\n";    ;

    "\blist 1 a:\n";

    lst = [1,2,3];

    foreach(local cur in lst)

        "cur = <<cur>>\n";

    "\blist 1 b:\n";

    lst = [];

    foreach(local cur in lst)

        "cur = <<cur>>\n";

    "\blist 1 c:\n";

    lst = [8];

    foreach(local cur in lst)

        "cur = <<cur>>\n";

    "\blist2 a:\n";

    (lst = [4,7, 8, 9, 10]);

    foreach(local cur in lst)

        "cur = <<cur>>\n";

    "\blist2 b:\n";

    (lst = [0]);

    foreach(local cur in lst)

        "cur = <<cur>>\n";

    doInheritNext(getMethodDefiner(), &sdesc, 1,2,3);

    doInheritNext(getMethodDefiner(), &sdesc, 'hello');

    doInheritNext(getMethodDefiner(), &ldesc, );

    "\b";

    tadsSay('no-arguments'  ); "\n";

    tadsSay('args' , 'a'+'b'+'c'); "\n";

}

property sdesc, ldesc;

doInheritNext(obj, prop, [args])

{

    "doInheritNext: ";

    switch(prop)

    {

    case &sdesc: "sdesc"; break;

    case &ldesc: "ldesc"; break;

    default: "unknown prop"; break;

    }

    "\n";

    foreach(local cur in args)

        "\t<<cur>>\n";

}

hash table: total 15, longest 1, average 0

number of buckets over average length: 15

number of empty buckets: 497

(T3VM) Memory blocks still in use: