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

Show revision log
 
4b825dc642cb6eb9a060e54bf8d69288fbee4904cfad47cfa334b206c65f22086bcc5d63e6f70944
1
/*



2
 *   object definition tests 



3
 */



4



5
Item: object



6
    sdesc = "thing"



7
    adesc = "a <<sdesc>>"



8
    ldesc = "It's an ordinary <<sdesc>>."



9
    idesc = "<<sdesc>>"



10
;



11



12
LightItem: Item



13
    idesc



14
    {



15
        sdesc;



16
        if (isLit)



17
            " (providing light)";



18
    }



19
;



20



21
redBook: Item



22
    sdesc = "red book"



23
;



24



25
class Item



26
    sdesc "thing"



27
    adesc "a <<sdesc>>"



28
    ldesc "It's an ordinary <<sdesc>>."



29
    idesc "<<sdesc>>"



30
;



31



32
class LightItem: Item



33
    idesc



34
    {



35
        sdesc;



36
        if (isLit)



37
            " (providing light)";



38
    }



39
;



40



41
Item 



42