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

4b825dc642cb6eb9a060e54bf8d69288fbee4904cfad47cfa334b206c65f22086bcc5d63e6f70944
1
/*
2
 *   test of object definitions using braces 
3
 */
4
5
#include "tads.h"
6
7
object template "sdesc" 'name';
8
9
class Book: object ;
10
11
blueBook: Book
12
{
13
    name = 'blue book'
14
    sdesc = "blue book"
15
    ldesc = "It's a blue book."
16
}
17
18
redBook: Book
19
    name = 'red book'
20
    sdesc = "red book"
21
    ldesc = "It's a red book."
22
;
23
24
greenBook: Book "green book" 'green book'
25
    ldesc = "It's a green book."
26
;
27
28
yellowBook: Book "yellow book" 'yellow book'
29
{
30
    ldesc = "It's a yellow book."
31
}
32
33
orangeBook: Book
34
{
35
    "orange book" 'orange book'
36
    ldesc = "It's an orange book."
37
}
38
39
Book "purple book" 'purple book'
40
    ldesc = "It's a purple book."
41
;
42
43
Book
44
{
45
    "brown book" 'brown book';
46
    ldesc = "It's a brown book.";
47
}
48
49
main(args)
50
{
51
    forEachInstance(Book, { x: "sdesc = <<x.sdesc>>\n" });
52
}
53