1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
|
;;; This file should tweak all the warnings in the kernel,
;;; but not cause any fatal errors.
(game-module "not-the-file-name"
(program-version "0.0")
)
;;; Warn about attempted modification of a constant.
(set true false)
;;; Warn about an undefined table.
(table foo)
;;; Warn about too long of a string.
(define str2 "
0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789
0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789
0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789
0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789
0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789
0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789
0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789
0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789
0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789
0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789
0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789
")
(print str2)
;;; The following definitions give us some types to work with,
;;; they prevent Xconq from erroring out completely, and they
;;; prevent attempts to load a default game, which can happen
;;; as part of trying to make sense of some top-level forms.
(unit-type u1)
(unit-type u2)
(unit-type u3)
(terrain-type t1)
(terrain-type t2)
;;; Nonsensical top-level forms.
12345
(burp)
;;; Including non-modules.
(include)
(include 0)
;;; Warn about basic syntax of property add.
(add)
(add u1)
(add u1 4)
;;; Warn about non-matching lists.
(add u* speed (0 100))
;;; Warn about trying to fill an empty list.
(define xxx nil)
(add xxx speed nil)
;;; Warn about incorrect table fill-in.
(table acp-to-research
(u* (u1 u2) (1 2 3 4 5 6))
)
(table acp-to-toolup
(u* (u1 u2) ((1 2) (3 4) (5 6)))
)
(table acp-to-create ("string" 56 89))
(table acp-to-create (-3 56 89))
(table acp-to-create (u1 -3 89))
(table acp-to-create (u1 u2 "foo"))
;;; Warn about setting a non-symbol.
(set 0 2)
;;; Warn about overwriting an existing definition.
(define u1 u2)
(set synthesis-methods nil)
(area 10 5 (terrain
"10a"
"10b"
"4a2c4b"
"10b"
"10a"
))
|
