5 * Permission is hereby granted, free of charge, to any person obtaining a copy of
6 * this software and associated documentation files (the "Software"), to deal in
7 * the Software without restriction, including without limitation the rights to
8 * use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies
9 * of the Software, and to permit persons to whom the Software is furnished to do
10 * so, subject to the following conditions:
12 * The above copyright notice and this permission notice shall be included in all
13 * copies or substantial portions of the Software.
15 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
16 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
17 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
18 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
19 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
20 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
27 //===================================================================
28 //============================ lex.c ================================
29 //===================================================================
42 * It's important that this table never exceed 32 keywords, the ascii
43 * table starts at 33 (and we don't want conflicts)
50 #define TOKEN_CONTINUE 5
51 #define TOKEN_RETURN 6
53 #define TOKEN_FOR 8 // extension
54 #define TOKEN_TYPEDEF 9 // extension
56 // ensure the token types are out of the
57 // bounds of anyothers that may conflict.
58 #define TOKEN_FLOAT 110
59 #define TOKEN_VECTOR 111
60 #define TOKEN_STRING 112
61 #define TOKEN_ENTITY 113
62 #define TOKEN_VOID 114
65 * Lexer state constants, these are numbers for where exactly in
66 * the lexing the lexer is at. Or where it decided to stop if a lexer
67 * error occurs. These numbers must be > where the ascii-table ends
68 * and > the last type token which is TOKEN_VOID
70 #define LEX_COMMENT 1128
71 #define LEX_CHRLIT 1129
72 #define LEX_STRLIT 1130
73 #define LEX_IDENT 1131
75 int lex_token(struct lex_file *);
76 void lex_reset(struct lex_file *);
77 void lex_close(struct lex_file *);
78 struct lex_file *lex_open (FILE *);
80 //===================================================================
81 //========================== error.c ================================
82 //===================================================================
83 #define ERROR_LEX (SHRT_MAX+0)
84 #define ERROR_PARSE (SHRT_MAX+1)
85 #define ERROR_INTERNAL (SHRT_MAX+2)
86 #define ERROR_COMPILER (SHRT_MAX+3)
87 #define ERROR_PREPRO (SHRT_MAX+4)
88 int error(int, const char *, ...);
90 //===================================================================
91 //========================== parse.c ================================
92 //===================================================================
93 int parse_tree(struct lex_file *);
95 struct parsenode *next;
96 int type; /* some token */
99 //===================================================================
100 //========================== typedef.c ==============================
101 //===================================================================
102 typedef struct typedef_node_t {
107 void typedef_clear();
108 typedef_node *typedef_find(const char *);
109 int typedef_add (const char *, const char *);
112 //===================================================================
113 //=========================== util.c ================================
114 //===================================================================
115 void *util_memory_a(unsigned int, unsigned int, const char *);
116 void util_memory_d(void *, unsigned int, const char *);
117 char *util_strdup (const char *);
120 # define mem_a(x) malloc(x)
121 # define mem_d(x) free (x)
123 # define mem_a(x) util_memory_a((x), __LINE__, __FILE__)
124 # define mem_d(x) util_memory_d((x), __LINE__, __FILE__)
127 #define VECTOR_MAKE(T,N) \
128 T* N##_data = NULL; \
129 long N##_elements = 0; \
130 long N##_allocated = 0; \
131 int N##_add(T element) { \
132 if (N##_elements == N##_allocated) { \
133 if (N##_allocated == 0) { \
134 N##_allocated = 12; \
136 N##_allocated *= 2; \
138 void *temp = realloc(N##_data, (N##_allocated * sizeof(T))); \
143 N##_data = (T*)temp; \
145 N##_data[N##_elements] = element; \
146 return N##_elements++; \
149 //===================================================================
150 //=========================== code.c ================================
151 //===================================================================
153 #define TYPE_STRING 1
155 #define TYPE_VECTOR 3
156 #define TYPE_ENTITY 4
158 #define TYPE_FUNCTION 6
159 #define TYPE_POINTER 7
162 * Each paramater incerements by 3 since vector types hold
163 * 3 components (x,y,z).
167 #define OFS_PARM0 (OFS_RETURN+3)
168 #define OFS_PARM1 (OFS_PARM0 +3)
169 #define OFS_PARM2 (OFS_PARM1 +3)
170 #define OFS_PARM3 (OFS_PARM2 +3)
171 #define OFS_PARM4 (OFS_PARM3 +3)
172 #define OFS_PARM5 (OFS_PARM4 +3)
173 #define OFS_PARM6 (OFS_PARM5 +3)
174 #define OFS_PARM7 (OFS_PARM6 +3)
178 * These are the external instructions supported by the interperter
179 * this is what things compile to (from the C code).