#line 1 "varmacpp.c"

#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:

Total blocks in use: 0
