cfad47cfa3/t3compiler/tads3/test/data/propdef.t

Show revision log
 
4b825dc642cb6eb9a060e54bf8d69288fbee4904cfad47cfa334b206c65f22086bcc5d63e6f70944
1
#include <tads.h>



2



3
#include <lookup.h>



4



5
global: PreinitObject



6
    execute()



7
    {



8
        symtab = t3GetGlobalSymbols();



9
        reverseSymtab = new LookupTable();



10
        symtab.forEachAssoc({key, val: global.reverseSymtab[val] = key});



11
    }



12
    symtab = nil



13
    reverseSymtab = nil



14
;



15



16
main(args)



17
{



18
    local obj = TadsObject.propDefined(&propDefined, PropDefGetClass);



19
    if (obj == nil)



20
        "undefined\n";



21
    else



22
    {



23
        local str = global.reverseSymtab[obj];



24
        if (str == nil)



25
            "unnamed\n";



26
        else



27
            "<<str>>\n";



28
    }



29
}