compiler/ecere: completed intptr/uintptr support
[sdk] / compiler / bootstrap / libec / bootstrap / firstPass.c
1 #if defined(__GNUC__)
2 typedef long long int64;
3 typedef unsigned long long uint64;
4 #elif defined(__TINYC__)
5 #include <stdarg.h>
6 #define __builtin_va_list va_list
7 #define __builtin_va_start va_start
8 #define __builtin_va_end va_end
9 #ifdef _WIN32
10 #define strcasecmp stricmp
11 #define strncasecmp strnicmp
12 #define __declspec(x) __attribute__((x))
13 #endif
14 typedef long long int64;
15 typedef unsigned long long uint64;
16 #else
17 typedef __int64 int64;
18 typedef unsigned __int64 uint64;
19 #endif
20 #ifdef __BIG_ENDIAN__
21 #define __ENDIAN_PAD(x) (8 - (x))
22 #else
23 #define __ENDIAN_PAD(x) 0
24 #endif
25 #include <stdint.h>
26 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__sys__BTNode;
27
28 struct __ecereNameSpace__ecere__sys__BTNode;
29
30 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__sys__BinaryTree;
31
32 struct __ecereNameSpace__ecere__sys__BinaryTree
33 {
34 struct __ecereNameSpace__ecere__sys__BTNode * root;
35 int count;
36 int (*  CompareKey)(struct __ecereNameSpace__ecere__sys__BinaryTree * tree, uintptr_t a, uintptr_t b);
37 void (*  FreeKey)(void *  key);
38 } __attribute__ ((gcc_struct));
39
40 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__sys__OldList;
41
42 struct __ecereNameSpace__ecere__sys__OldList
43 {
44 void *  first;
45 void *  last;
46 int count;
47 unsigned int offset;
48 unsigned int circ;
49 } __attribute__ ((gcc_struct));
50
51 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__Method;
52
53 struct __ecereNameSpace__ecere__com__Method
54 {
55 char *  name;
56 struct __ecereNameSpace__ecere__com__Method * parent;
57 struct __ecereNameSpace__ecere__com__Method * left;
58 struct __ecereNameSpace__ecere__com__Method * right;
59 int depth;
60 int (*  function)();
61 int vid;
62 int type;
63 struct __ecereNameSpace__ecere__com__Class * _class;
64 void *  symbol;
65 char *  dataTypeString;
66 struct Type * dataType;
67 int memberAccess;
68 } __attribute__ ((gcc_struct));
69
70 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__Property;
71
72 struct __ecereNameSpace__ecere__com__Property
73 {
74 struct __ecereNameSpace__ecere__com__Property * prev;
75 struct __ecereNameSpace__ecere__com__Property * next;
76 char *  name;
77 unsigned int isProperty;
78 int memberAccess;
79 int id;
80 struct __ecereNameSpace__ecere__com__Class * _class;
81 char *  dataTypeString;
82 struct __ecereNameSpace__ecere__com__Class * dataTypeClass;
83 struct Type * dataType;
84 void (*  Set)();
85 int (*  Get)();
86 unsigned int (*  IsSet)();
87 void *  data;
88 void *  symbol;
89 int vid;
90 unsigned int conversion;
91 unsigned int watcherOffset;
92 char *  category;
93 unsigned int compiled;
94 unsigned int selfWatchable;
95 unsigned int isWatchable;
96 } __attribute__ ((gcc_struct));
97
98 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_CodePosition;
99
100 struct CodePosition
101 {
102 int line;
103 int charPos;
104 int pos;
105 unsigned int included;
106 } __attribute__ ((gcc_struct));
107
108 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Location;
109
110 struct Location
111 {
112 struct CodePosition start;
113 struct CodePosition end;
114 } __attribute__ ((gcc_struct));
115
116 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Attrib;
117
118 struct Attrib;
119
120 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_ExtDecl;
121
122 struct ExtDecl;
123
124 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_ClassDefinition;
125
126 struct ClassDefinition
127 {
128 struct ClassDefinition * prev;
129 struct ClassDefinition * next;
130 struct Location loc;
131 struct Specifier * _class;
132 struct __ecereNameSpace__ecere__sys__OldList *  baseSpecs;
133 struct __ecereNameSpace__ecere__sys__OldList *  definitions;
134 struct Symbol * symbol;
135 struct Location blockStart;
136 struct Location nameLoc;
137 int endid;
138 int declMode;
139 unsigned int deleteWatchable;
140 } __attribute__ ((gcc_struct));
141
142 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Context;
143
144 struct Context
145 {
146 struct Context * parent;
147 struct __ecereNameSpace__ecere__sys__BinaryTree types;
148 struct __ecereNameSpace__ecere__sys__BinaryTree classes;
149 struct __ecereNameSpace__ecere__sys__BinaryTree symbols;
150 struct __ecereNameSpace__ecere__sys__BinaryTree structSymbols;
151 int nextID;
152 int simpleID;
153 struct __ecereNameSpace__ecere__sys__BinaryTree templateTypes;
154 struct ClassDefinition * classDef;
155 unsigned int templateTypesOnly;
156 unsigned int hasNameSpace;
157 } __attribute__ ((gcc_struct));
158
159 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Instantiation;
160
161 struct Instantiation
162 {
163 struct Instantiation * prev;
164 struct Instantiation * next;
165 struct Location loc;
166 struct Specifier * _class;
167 struct Expression * exp;
168 struct __ecereNameSpace__ecere__sys__OldList *  members;
169 struct Symbol * symbol;
170 unsigned int fullSet;
171 unsigned int isConstant;
172 unsigned char *  data;
173 struct Location nameLoc;
174 struct Location insideLoc;
175 unsigned int built;
176 } __attribute__ ((gcc_struct));
177
178 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Declaration;
179
180 struct Declaration
181 {
182 struct Declaration * prev;
183 struct Declaration * next;
184 struct Location loc;
185 int type;
186 union
187 {
188 struct
189 {
190 struct __ecereNameSpace__ecere__sys__OldList *  specifiers;
191 struct __ecereNameSpace__ecere__sys__OldList *  declarators;
192 } __attribute__ ((gcc_struct));
193 struct Instantiation * inst;
194 struct
195 {
196 struct Identifier * id;
197 struct Expression * exp;
198 } __attribute__ ((gcc_struct));
199 } __attribute__ ((gcc_struct));
200 struct Specifier * extStorage;
201 struct Symbol * symbol;
202 int declMode;
203 } __attribute__ ((gcc_struct));
204
205 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Statement;
206
207 struct Statement;
208
209 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_TypeName;
210
211 struct TypeName;
212
213 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Initializer;
214
215 struct Initializer;
216
217 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__DataValue;
218
219 struct __ecereNameSpace__ecere__com__DataValue
220 {
221 union
222 {
223 char c;
224 unsigned char uc;
225 short s;
226 unsigned short us;
227 int i;
228 unsigned int ui;
229 void *  p;
230 float f;
231 double d;
232 long long i64;
233 uint64 ui64;
234 } __attribute__ ((gcc_struct));
235 } __attribute__ ((gcc_struct));
236
237 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Expression;
238
239 struct Expression
240 {
241 struct Expression * prev;
242 struct Expression * next;
243 struct Location loc;
244 int type;
245 union
246 {
247 struct
248 {
249 char *  constant;
250 struct Identifier * identifier;
251 } __attribute__ ((gcc_struct));
252 struct Statement * compound;
253 struct Instantiation * instance;
254 char *  string;
255 struct __ecereNameSpace__ecere__sys__OldList *  list;
256 struct
257 {
258 struct __ecereNameSpace__ecere__sys__OldList * specifiers;
259 struct Declarator * decl;
260 } __attribute__ ((gcc_struct)) _classExp;
261 struct
262 {
263 struct Identifier * id;
264 } __attribute__ ((gcc_struct)) classData;
265 struct
266 {
267 struct Expression * exp;
268 struct __ecereNameSpace__ecere__sys__OldList * arguments;
269 struct Location argLoc;
270 } __attribute__ ((gcc_struct)) call;
271 struct
272 {
273 struct Expression * exp;
274 struct __ecereNameSpace__ecere__sys__OldList * index;
275 } __attribute__ ((gcc_struct)) index;
276 struct
277 {
278 struct Expression * exp;
279 struct Identifier * member;
280 int memberType;
281 unsigned int thisPtr;
282 } __attribute__ ((gcc_struct)) member;
283 struct
284 {
285 int op;
286 struct Expression * exp1;
287 struct Expression * exp2;
288 } __attribute__ ((gcc_struct)) op;
289 struct TypeName * typeName;
290 struct Specifier * _class;
291 struct
292 {
293 struct TypeName * typeName;
294 struct Expression * exp;
295 } __attribute__ ((gcc_struct)) cast;
296 struct
297 {
298 struct Expression * cond;
299 struct __ecereNameSpace__ecere__sys__OldList * exp;
300 struct Expression * elseExp;
301 } __attribute__ ((gcc_struct)) cond;
302 struct
303 {
304 struct TypeName * typeName;
305 struct Expression * size;
306 } __attribute__ ((gcc_struct)) _new;
307 struct
308 {
309 struct TypeName * typeName;
310 struct Expression * size;
311 struct Expression * exp;
312 } __attribute__ ((gcc_struct)) _renew;
313 struct
314 {
315 char * table;
316 struct Identifier * id;
317 } __attribute__ ((gcc_struct)) db;
318 struct
319 {
320 struct Expression * ds;
321 struct Expression * name;
322 } __attribute__ ((gcc_struct)) dbopen;
323 struct
324 {
325 struct TypeName * typeName;
326 struct Initializer * initializer;
327 } __attribute__ ((gcc_struct)) initializer;
328 struct
329 {
330 struct Expression * exp;
331 struct TypeName * typeName;
332 } __attribute__ ((gcc_struct)) vaArg;
333 } __attribute__ ((gcc_struct));
334 unsigned int debugValue;
335 struct __ecereNameSpace__ecere__com__DataValue val;
336 unsigned int address;
337 unsigned int hasAddress;
338 struct Type * expType;
339 struct Type * destType;
340 unsigned int usage;
341 int tempCount;
342 unsigned int byReference;
343 unsigned int isConstant;
344 unsigned int addedThis;
345 unsigned int needCast;
346 unsigned int thisPtr;
347 } __attribute__ ((gcc_struct));
348
349 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_TemplateDatatype;
350
351 struct TemplateDatatype
352 {
353 struct __ecereNameSpace__ecere__sys__OldList *  specifiers;
354 struct Declarator * decl;
355 } __attribute__ ((gcc_struct));
356
357 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_TemplateArgument;
358
359 struct TemplateArgument
360 {
361 struct TemplateArgument * prev;
362 struct TemplateArgument * next;
363 struct Location loc;
364 struct Identifier * name;
365 int type;
366 union
367 {
368 struct Expression * expression;
369 struct Identifier * identifier;
370 struct TemplateDatatype * templateDatatype;
371 } __attribute__ ((gcc_struct));
372 } __attribute__ ((gcc_struct));
373
374 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_TemplateParameter;
375
376 struct TemplateParameter
377 {
378 struct TemplateParameter * prev;
379 struct TemplateParameter * next;
380 struct Location loc;
381 int type;
382 struct Identifier * identifier;
383 union
384 {
385 struct TemplateDatatype * dataType;
386 int memberType;
387 } __attribute__ ((gcc_struct));
388 struct TemplateArgument * defaultArgument;
389 char *  dataTypeString;
390 struct Type * baseType;
391 } __attribute__ ((gcc_struct));
392
393 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Specifier;
394
395 struct Specifier
396 {
397 struct Specifier * prev;
398 struct Specifier * next;
399 struct Location loc;
400 int type;
401 union
402 {
403 int specifier;
404 struct
405 {
406 struct ExtDecl * extDecl;
407 char *  name;
408 struct Symbol * symbol;
409 struct __ecereNameSpace__ecere__sys__OldList *  templateArgs;
410 } __attribute__ ((gcc_struct));
411 struct
412 {
413 struct Identifier * id;
414 struct __ecereNameSpace__ecere__sys__OldList *  list;
415 struct __ecereNameSpace__ecere__sys__OldList *  baseSpecs;
416 struct __ecereNameSpace__ecere__sys__OldList *  definitions;
417 unsigned int addNameSpace;
418 struct Context * ctx;
419 } __attribute__ ((gcc_struct));
420 struct Expression * expression;
421 struct Specifier * _class;
422 struct TemplateParameter * templateParameter;
423 } __attribute__ ((gcc_struct));
424 } __attribute__ ((gcc_struct));
425
426 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Identifier;
427
428 struct Identifier
429 {
430 struct Identifier * prev;
431 struct Identifier * next;
432 struct Location loc;
433 struct Symbol * classSym;
434 struct Specifier * _class;
435 char *  string;
436 struct Identifier * badID;
437 } __attribute__ ((gcc_struct));
438
439 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Pointer;
440
441 struct Pointer;
442
443 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Declarator;
444
445 struct Declarator
446 {
447 struct Declarator * prev;
448 struct Declarator * next;
449 struct Location loc;
450 int type;
451 struct Symbol * symbol;
452 struct Declarator * declarator;
453 union
454 {
455 struct Identifier * identifier;
456 struct
457 {
458 struct Expression * exp;
459 struct Expression * posExp;
460 struct Attrib * attrib;
461 } __attribute__ ((gcc_struct)) structDecl;
462 struct
463 {
464 struct Expression * exp;
465 struct Specifier * enumClass;
466 } __attribute__ ((gcc_struct)) array;
467 struct
468 {
469 struct __ecereNameSpace__ecere__sys__OldList * parameters;
470 } __attribute__ ((gcc_struct)) function;
471 struct
472 {
473 struct Pointer * pointer;
474 } __attribute__ ((gcc_struct)) pointer;
475 struct
476 {
477 struct ExtDecl * extended;
478 } __attribute__ ((gcc_struct)) extended;
479 } __attribute__ ((gcc_struct));
480 } __attribute__ ((gcc_struct));
481
482 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_FunctionDefinition;
483
484 struct FunctionDefinition;
485
486 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_DBTableDef;
487
488 struct DBTableDef;
489
490 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_External;
491
492 struct External
493 {
494 struct External * prev;
495 struct External * next;
496 struct Location loc;
497 int type;
498 struct Symbol * symbol;
499 union
500 {
501 struct FunctionDefinition * function;
502 struct ClassDefinition * _class;
503 struct Declaration * declaration;
504 char *  importString;
505 struct Identifier * id;
506 struct DBTableDef * table;
507 } __attribute__ ((gcc_struct));
508 int importType;
509 } __attribute__ ((gcc_struct));
510
511 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_ModuleImport;
512
513 struct ModuleImport;
514
515 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_ClassImport;
516
517 struct ClassImport;
518
519 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Symbol;
520
521 struct Symbol
522 {
523 char *  string;
524 struct Symbol * parent;
525 struct Symbol * left;
526 struct Symbol * right;
527 int depth;
528 struct Type * type;
529 union
530 {
531 struct __ecereNameSpace__ecere__com__Method * method;
532 struct __ecereNameSpace__ecere__com__Property * _property;
533 struct __ecereNameSpace__ecere__com__Class * registered;
534 } __attribute__ ((gcc_struct));
535 int id;
536 int idCode;
537 union
538 {
539 struct
540 {
541 struct External * pointerExternal;
542 struct External * structExternal;
543 } __attribute__ ((gcc_struct));
544 struct
545 {
546 struct External * externalGet;
547 struct External * externalSet;
548 struct External * externalPtr;
549 struct External * externalIsSet;
550 } __attribute__ ((gcc_struct));
551 struct
552 {
553 struct External * methodExternal;
554 struct External * methodCodeExternal;
555 } __attribute__ ((gcc_struct));
556 } __attribute__ ((gcc_struct));
557 unsigned int imported;
558 unsigned int declaredStructSym;
559 struct __ecereNameSpace__ecere__com__Class * _class;
560 unsigned int declaredStruct;
561 unsigned int needConstructor;
562 unsigned int needDestructor;
563 char *  constructorName;
564 char *  structName;
565 char *  className;
566 char *  destructorName;
567 struct ModuleImport * module;
568 struct ClassImport * _import;
569 struct Location nameLoc;
570 unsigned int isParam;
571 unsigned int isRemote;
572 unsigned int isStruct;
573 unsigned int fireWatchersDone;
574 int declaring;
575 unsigned int classData;
576 unsigned int isStatic;
577 char *  shortName;
578 struct __ecereNameSpace__ecere__sys__OldList *  templateParams;
579 struct __ecereNameSpace__ecere__sys__OldList templatedClasses;
580 struct Context * ctx;
581 int isIterator;
582 struct Expression * propCategory;
583 } __attribute__ ((gcc_struct));
584
585 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Type;
586
587 struct Type
588 {
589 struct Type * prev;
590 struct Type * next;
591 int refCount;
592 union
593 {
594 struct Symbol * _class;
595 struct
596 {
597 struct __ecereNameSpace__ecere__sys__OldList members;
598 char *  enumName;
599 } __attribute__ ((gcc_struct));
600 struct
601 {
602 struct Type * returnType;
603 struct __ecereNameSpace__ecere__sys__OldList params;
604 struct Symbol * thisClass;
605 unsigned int staticMethod;
606 struct TemplateParameter * thisClassTemplate;
607 } __attribute__ ((gcc_struct));
608 struct
609 {
610 struct __ecereNameSpace__ecere__com__Method * method;
611 struct __ecereNameSpace__ecere__com__Class * methodClass;
612 struct __ecereNameSpace__ecere__com__Class * usedClass;
613 } __attribute__ ((gcc_struct));
614 struct
615 {
616 struct Type * arrayType;
617 int arraySize;
618 struct Expression * arraySizeExp;
619 unsigned int freeExp;
620 struct Symbol * enumClass;
621 } __attribute__ ((gcc_struct));
622 struct Type * type;
623 struct TemplateParameter * templateParameter;
624 } __attribute__ ((gcc_struct));
625 unsigned int isSigned;
626 int kind;
627 unsigned int constant;
628 unsigned int size;
629 char *  name;
630 char *  typeName;
631 unsigned int count;
632 unsigned int truth;
633 int classObjectType;
634 unsigned int byReference;
635 unsigned int extraParam;
636 int alignment;
637 unsigned int directClassAccess;
638 unsigned int computing;
639 unsigned int dllExport;
640 unsigned int offset;
641 unsigned int keepCast;
642 unsigned int passAsTemplate;
643 int bitFieldCount;
644 } __attribute__ ((gcc_struct));
645
646 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__Class;
647
648 struct __ecereNameSpace__ecere__com__Class
649 {
650 struct __ecereNameSpace__ecere__com__Class * prev;
651 struct __ecereNameSpace__ecere__com__Class * next;
652 char *  name;
653 int offset;
654 int structSize;
655 int (* *  _vTbl)();
656 int vTblSize;
657 int (*  Constructor)(struct __ecereNameSpace__ecere__com__Instance *);
658 void (*  Destructor)(struct __ecereNameSpace__ecere__com__Instance *);
659 int offsetClass;
660 int sizeClass;
661 struct __ecereNameSpace__ecere__com__Class * base;
662 struct __ecereNameSpace__ecere__sys__BinaryTree methods;
663 struct __ecereNameSpace__ecere__sys__BinaryTree members;
664 struct __ecereNameSpace__ecere__sys__BinaryTree prop;
665 struct __ecereNameSpace__ecere__sys__OldList membersAndProperties;
666 struct __ecereNameSpace__ecere__sys__BinaryTree classProperties;
667 struct __ecereNameSpace__ecere__sys__OldList derivatives;
668 int memberID;
669 int startMemberID;
670 int type;
671 struct __ecereNameSpace__ecere__com__Instance * module;
672 struct __ecereNameSpace__ecere__com__NameSpace *  nameSpace;
673 char *  dataTypeString;
674 struct Type * dataType;
675 int typeSize;
676 int defaultAlignment;
677 void (*  Initialize)();
678 int memberOffset;
679 struct __ecereNameSpace__ecere__sys__OldList selfWatchers;
680 char *  designerClass;
681 unsigned int noExpansion;
682 char *  defaultProperty;
683 unsigned int comRedefinition;
684 int count;
685 unsigned int isRemote;
686 unsigned int internalDecl;
687 void *  data;
688 unsigned int computeSize;
689 int structAlignment;
690 int destructionWatchOffset;
691 unsigned int fixed;
692 struct __ecereNameSpace__ecere__sys__OldList delayedCPValues;
693 int inheritanceAccess;
694 char *  fullName;
695 void *  symbol;
696 struct __ecereNameSpace__ecere__sys__OldList conversions;
697 struct __ecereNameSpace__ecere__sys__OldList templateParams;
698 struct __ecereNameSpace__ecere__com__ClassTemplateArgument *  templateArgs;
699 struct __ecereNameSpace__ecere__com__Class * templateClass;
700 struct __ecereNameSpace__ecere__sys__OldList templatized;
701 int numParams;
702 } __attribute__ ((gcc_struct));
703
704 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__Instance;
705
706 struct __ecereNameSpace__ecere__com__Instance
707 {
708 int (* *  _vTbl)();
709 struct __ecereNameSpace__ecere__com__Class * _class;
710 int _refCount;
711 } __attribute__ ((gcc_struct));
712
713 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__DataMember;
714
715 struct __ecereNameSpace__ecere__com__DataMember
716 {
717 struct __ecereNameSpace__ecere__com__DataMember * prev;
718 struct __ecereNameSpace__ecere__com__DataMember * next;
719 char *  name;
720 unsigned int isProperty;
721 int memberAccess;
722 int id;
723 struct __ecereNameSpace__ecere__com__Class * _class;
724 char *  dataTypeString;
725 struct __ecereNameSpace__ecere__com__Class * dataTypeClass;
726 struct Type * dataType;
727 int type;
728 int offset;
729 int memberID;
730 struct __ecereNameSpace__ecere__sys__OldList members;
731 struct __ecereNameSpace__ecere__sys__BinaryTree membersAlpha;
732 int memberOffset;
733 int structAlignment;
734 } __attribute__ ((gcc_struct));
735
736 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__SerialBuffer;
737
738 struct __ecereNameSpace__ecere__com__SerialBuffer
739 {
740 unsigned char *  _buffer;
741 unsigned int count;
742 unsigned int _size;
743 unsigned int pos;
744 } __attribute__ ((gcc_struct));
745
746 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__ClassTemplateArgument;
747
748 struct __ecereNameSpace__ecere__com__ClassTemplateArgument
749 {
750 union
751 {
752 struct
753 {
754 char *  dataTypeString;
755 struct __ecereNameSpace__ecere__com__Class * dataTypeClass;
756 } __attribute__ ((gcc_struct));
757 struct __ecereNameSpace__ecere__com__DataValue expression;
758 struct
759 {
760 char *  memberString;
761 union
762 {
763 struct __ecereNameSpace__ecere__com__DataMember * member;
764 struct __ecereNameSpace__ecere__com__Property * prop;
765 struct __ecereNameSpace__ecere__com__Method * method;
766 } __attribute__ ((gcc_struct));
767 } __attribute__ ((gcc_struct));
768 } __attribute__ ((gcc_struct));
769 } __attribute__ ((gcc_struct));
770
771 enum yytokentype
772 {
773 IDENTIFIER = 258, CONSTANT = 259, STRING_LITERAL = 260, SIZEOF = 261, PTR_OP = 262, INC_OP = 263, DEC_OP = 264, LEFT_OP = 265, RIGHT_OP = 266, LE_OP = 267, GE_OP = 268, EQ_OP = 269, NE_OP = 270, AND_OP = 271, OR_OP = 272, MUL_ASSIGN = 273, DIV_ASSIGN = 274, MOD_ASSIGN = 275, ADD_ASSIGN = 276, SUB_ASSIGN = 277, LEFT_ASSIGN = 278, RIGHT_ASSIGN = 279, AND_ASSIGN = 280, XOR_ASSIGN = 281, OR_ASSIGN = 282, TYPE_NAME = 283, TYPEDEF = 284, EXTERN = 285, STATIC = 286, AUTO = 287, REGISTER = 288, CHAR = 289, SHORT = 290, INT = 291, UINT = 292, INT64 = 293, LONG = 294, SIGNED = 295, UNSIGNED = 296, FLOAT = 297, DOUBLE = 298, CONST = 299, VOLATILE = 300, VOID = 301, VALIST = 302, STRUCT = 303, UNION = 304, ENUM = 305, ELLIPSIS = 306, CASE = 307, DEFAULT = 308, IF = 309, SWITCH = 310, WHILE = 311, DO = 312, FOR = 313, GOTO = 314, CONTINUE = 315, BREAK = 316, RETURN = 317, IFX = 318, ELSE = 319, CLASS = 320, THISCLASS = 321, CLASS_NAME = 322, PROPERTY = 323, SETPROP = 324, GETPROP = 325, NEWOP = 326, RENEW = 327, DELETE = 328, EXT_DECL = 329, EXT_STORAGE = 330, IMPORT = 331, DEFINE = 332, VIRTUAL = 333, ATTRIB = 334, PUBLIC = 335, PRIVATE = 336, TYPED_OBJECT = 337, ANY_OBJECT = 338, _INCREF = 339, EXTENSION = 340, ASM = 341, TYPEOF = 342, WATCH = 343, STOPWATCHING = 344, FIREWATCHERS = 345, WATCHABLE = 346, CLASS_DESIGNER = 347, CLASS_NO_EXPANSION = 348, CLASS_FIXED = 349, ISPROPSET = 350, CLASS_DEFAULT_PROPERTY = 351, PROPERTY_CATEGORY = 352, CLASS_DATA = 353, CLASS_PROPERTY = 354, SUBCLASS = 355, NAMESPACE = 356, NEW0OP = 357, RENEW0 = 358, VAARG = 359, DBTABLE = 360, DBFIELD = 361, DBINDEX = 362, DATABASE_OPEN = 363, ALIGNOF = 364, ATTRIB_DEP = 365, __ATTRIB = 366
774 };
775
776 typedef union YYSTYPE
777 {
778 int specifierType;
779 int i;
780 int declMode;
781 struct Identifier * id;
782 struct Expression * exp;
783 struct Specifier * specifier;
784 struct __ecereNameSpace__ecere__sys__OldList * list;
785 struct Enumerator * enumerator;
786 struct Declarator * declarator;
787 struct Pointer * pointer;
788 struct Initializer * initializer;
789 struct InitDeclarator * initDeclarator;
790 struct TypeName * typeName;
791 struct Declaration * declaration;
792 struct Statement * stmt;
793 struct FunctionDefinition * function;
794 struct External * external;
795 struct Context * context;
796 struct AsmField * asmField;
797 struct Attrib * attrib;
798 struct ExtDecl * extDecl;
799 struct Attribute * attribute;
800 struct Instantiation * instance;
801 struct MembersInit * membersInit;
802 struct MemberInit * memberInit;
803 struct ClassFunction * classFunction;
804 struct ClassDefinition * _class;
805 struct ClassDef * classDef;
806 struct PropertyDef * prop;
807 char * string;
808 struct Symbol * symbol;
809 struct PropertyWatch * propertyWatch;
810 struct TemplateParameter * templateParameter;
811 struct TemplateArgument * templateArgument;
812 struct TemplateDatatype * templateDatatype;
813 struct DBTableEntry * dbtableEntry;
814 struct DBIndexItem * dbindexItem;
815 struct DBTableDef * dbtableDef;
816 } __attribute__ ((gcc_struct)) YYSTYPE;
817
818 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Enumerator;
819
820 struct Enumerator;
821
822 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_InitDeclarator;
823
824 struct InitDeclarator;
825
826 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_AsmField;
827
828 struct AsmField;
829
830 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Attribute;
831
832 struct Attribute;
833
834 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_ClassFunction;
835
836 struct ClassFunction
837 {
838 struct ClassFunction * prev;
839 struct ClassFunction * next;
840 struct Location loc;
841 struct __ecereNameSpace__ecere__sys__OldList *  specifiers;
842 struct Declarator * declarator;
843 struct __ecereNameSpace__ecere__sys__OldList *  declarations;
844 struct Statement * body;
845 struct __ecereNameSpace__ecere__com__Class * _class;
846 struct __ecereNameSpace__ecere__sys__OldList attached;
847 int declMode;
848 struct Type * type;
849 struct Symbol * propSet;
850 unsigned int isVirtual;
851 unsigned int isConstructor;
852 unsigned int isDestructor;
853 unsigned int dontMangle;
854 int id;
855 int idCode;
856 } __attribute__ ((gcc_struct));
857
858 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_MembersInit;
859
860 struct MembersInit;
861
862 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_MemberInit;
863
864 struct MemberInit;
865
866 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_PropertyDef;
867
868 struct PropertyDef
869 {
870 struct PropertyDef * prev;
871 struct PropertyDef * next;
872 struct Location loc;
873 struct __ecereNameSpace__ecere__sys__OldList *  specifiers;
874 struct Declarator * declarator;
875 struct Identifier * id;
876 struct Statement * getStmt;
877 struct Statement * setStmt;
878 struct Statement * issetStmt;
879 struct Symbol * symbol;
880 unsigned int conversion;
881 unsigned int isWatchable;
882 struct Expression * category;
883 } __attribute__ ((gcc_struct));
884
885 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_PropertyWatch;
886
887 struct PropertyWatch;
888
889 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_ClassDef;
890
891 struct ClassDef
892 {
893 struct ClassDef * prev;
894 struct ClassDef * next;
895 struct Location loc;
896 int type;
897 union
898 {
899 struct Declaration * decl;
900 struct ClassFunction * function;
901 struct __ecereNameSpace__ecere__sys__OldList *  defProperties;
902 struct PropertyDef * propertyDef;
903 struct PropertyWatch * propertyWatch;
904 char *  designer;
905 struct Identifier * defaultProperty;
906 struct
907 {
908 struct Identifier * id;
909 struct Initializer * initializer;
910 } __attribute__ ((gcc_struct));
911 } __attribute__ ((gcc_struct));
912 int memberAccess;
913 void *  object;
914 } __attribute__ ((gcc_struct));
915
916 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_DBTableEntry;
917
918 struct DBTableEntry;
919
920 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_DBIndexItem;
921
922 struct DBIndexItem;
923
924 extern YYSTYPE yylval;
925
926 extern struct Location yylloc;
927
928 extern struct Identifier * GetDeclId(struct Declarator * decl);
929
930 extern void ProcessExpressionType(struct Expression * exp);
931
932 extern void ComputeExpression(struct Expression * exp);
933
934 extern int strtol(char * , char * * , int base);
935
936 extern void FreeExpression(struct Expression * exp);
937
938 extern struct Type * ProcessType(struct __ecereNameSpace__ecere__sys__OldList * specs, struct Declarator * decl);
939
940 extern void PrintType(struct Type * type, char *  string, unsigned int printName, unsigned int fullName);
941
942 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__BitMember;
943
944 struct __ecereNameSpace__ecere__com__BitMember
945 {
946 struct __ecereNameSpace__ecere__com__BitMember * prev;
947 struct __ecereNameSpace__ecere__com__BitMember * next;
948 char *  name;
949 unsigned int isProperty;
950 int memberAccess;
951 int id;
952 struct __ecereNameSpace__ecere__com__Class * _class;
953 char *  dataTypeString;
954 struct __ecereNameSpace__ecere__com__Class * dataTypeClass;
955 struct Type * dataType;
956 int type;
957 int size;
958 int pos;
959 uint64 mask;
960 } __attribute__ ((gcc_struct));
961
962 extern struct __ecereNameSpace__ecere__com__BitMember * __ecereNameSpace__ecere__com__eClass_AddBitMember(struct __ecereNameSpace__ecere__com__Class * _class, char *  name, char *  type, int bitSize, int bitPos, int declMode);
963
964 extern void Compiler_Error(char *  format, ...);
965
966 extern char *  __ecereNameSpace__ecere__GetTranslatedString(struct __ecereNameSpace__ecere__com__Instance * module, char *  string, char *  stringAndContext);
967
968 extern struct __ecereNameSpace__ecere__com__Instance * __thisModule;
969
970 extern void FreeType(struct Type * type);
971
972 extern struct __ecereNameSpace__ecere__com__DataMember * __ecereNameSpace__ecere__com__eMember_AddDataMember(struct __ecereNameSpace__ecere__com__DataMember * member, char *  name, char *  type, unsigned int size, unsigned int alignment, int declMode);
973
974 extern struct __ecereNameSpace__ecere__com__DataMember * __ecereNameSpace__ecere__com__eClass_AddDataMember(struct __ecereNameSpace__ecere__com__Class * _class, char *  name, char *  type, unsigned int size, unsigned int alignment, int declMode);
975
976 extern struct __ecereNameSpace__ecere__com__DataMember * __ecereNameSpace__ecere__com__eMember_New(int type, int declMode);
977
978 extern unsigned int __ecereNameSpace__ecere__com__eMember_AddMember(struct __ecereNameSpace__ecere__com__DataMember * addTo, struct __ecereNameSpace__ecere__com__DataMember * dataMember);
979
980 extern unsigned int __ecereNameSpace__ecere__com__eClass_AddMember(struct __ecereNameSpace__ecere__com__Class * _class, struct __ecereNameSpace__ecere__com__DataMember * dataMember);
981
982 extern struct __ecereNameSpace__ecere__sys__OldList *  MkListOne(void *  item);
983
984 extern struct Declarator * MkDeclaratorIdentifier(struct Identifier * id);
985
986 extern char *  StringFromSpecDecl(struct __ecereNameSpace__ecere__sys__OldList * specs, struct Declarator * decl);
987
988 extern struct __ecereNameSpace__ecere__com__Property * __ecereNameSpace__ecere__com__eClass_AddProperty(struct __ecereNameSpace__ecere__com__Class * _class, char *  name, char *  dataType, void *  setStmt, void *  getStmt, int declMode);
989
990 extern unsigned int inCompiler;
991
992 extern char *  __ecereNameSpace__ecere__sys__CopyString(char *  string);
993
994 extern void __ecereNameSpace__ecere__com__eProperty_Watchable(struct __ecereNameSpace__ecere__com__Property * _property);
995
996 extern int printf(char * , ...);
997
998 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__ClassProperty;
999
1000 struct __ecereNameSpace__ecere__com__ClassProperty;
1001
1002 extern struct __ecereNameSpace__ecere__com__ClassProperty * __ecereNameSpace__ecere__com__eClass_AddClassProperty(struct __ecereNameSpace__ecere__com__Class * _class, char *  name, char *  dataType, void *  setStmt, void *  getStmt);
1003
1004 extern void *  __ecereNameSpace__ecere__com__eInstance_New(struct __ecereNameSpace__ecere__com__Class * _class);
1005
1006 static void AddDefinitions(struct __ecereNameSpace__ecere__com__Class * regClass, struct __ecereNameSpace__ecere__com__DataMember * member, struct __ecereNameSpace__ecere__sys__OldList * definitions)
1007 {
1008 void * __ecereTemp1;
1009
1010 if(definitions != (((void *)0)))
1011 {
1012 struct ClassDef * def;
1013
1014 for(def = definitions->first; def; def = def->next)
1015 {
1016 if(def->type == 2)
1017 {
1018 struct Declaration * decl = def->decl;
1019 struct __ecereNameSpace__ecere__com__DataMember * dataMember;
1020 struct Type * dataType;
1021
1022 if(decl->type == 0)
1023 {
1024 struct Declarator * d;
1025
1026 if(decl->declarators)
1027 {
1028 for(d = (*decl->declarators).first; d; d = d->next)
1029 {
1030 struct Identifier * declId = GetDeclId(d);
1031
1032 if(declId)
1033 {
1034 if(regClass && regClass->type == 2)
1035 {
1036 struct Expression * sizeExp = d->structDecl.exp, * posExp = d->structDecl.posExp;
1037 int bitSize = 0, bitPos = -1;
1038 char dataTypeString[1024] = "";
1039
1040 if(sizeExp)
1041 {
1042 ProcessExpressionType(sizeExp);
1043 ComputeExpression(sizeExp);
1044 if(sizeExp->isConstant)
1045 bitSize = strtol(sizeExp->constant, (((void *)0)), 0);
1046 FreeExpression(sizeExp);
1047 }
1048 if(posExp)
1049 {
1050 ProcessExpressionType(posExp);
1051 ComputeExpression(posExp);
1052 if(posExp->isConstant)
1053 bitPos = strtol(posExp->constant, (((void *)0)), 0);
1054 FreeExpression(posExp);
1055 }
1056 d->structDecl.posExp = (((void *)0));
1057 d->structDecl.exp = (((void *)0));
1058 dataType = ProcessType(decl->specifiers, d);
1059 PrintType(dataType, dataTypeString, 0x0, 0x1);
1060 {
1061 struct __ecereNameSpace__ecere__com__BitMember * member = __ecereNameSpace__ecere__com__eClass_AddBitMember(regClass, declId->string, dataTypeString, 0, 0, def->memberAccess);
1062
1063 if(member)
1064 {
1065 member->size = bitSize;
1066 member->pos = bitPos;
1067 }
1068 dataMember = (struct __ecereNameSpace__ecere__com__DataMember *)member;
1069 }
1070 if(dataMember)
1071 dataMember->dataType = dataType;
1072 else
1073 {
1074 Compiler_Error(__ecereNameSpace__ecere__GetTranslatedString(__thisModule, "Member with same name already exists %s in class %s\n", (((void *)0))), declId->string, regClass->name);
1075 FreeType(dataType);
1076 }
1077 }
1078 else
1079 {
1080 {
1081 char typeString[1024] = "";
1082
1083 dataType = ProcessType(decl->specifiers, d);
1084 PrintType(dataType, typeString, 0x0, 0x1);
1085 if(member)
1086 {
1087 dataMember = __ecereNameSpace__ecere__com__eMember_AddDataMember(member, declId->string, typeString, 0, 0, def->memberAccess);
1088 if(!dataMember)
1089 Compiler_Error(__ecereNameSpace__ecere__GetTranslatedString(__thisModule, "Member with same name already exists %s in member %s\n", (((void *)0))), declId->string, member->name);
1090 }
1091 else
1092 {
1093 dataMember = __ecereNameSpace__ecere__com__eClass_AddDataMember(regClass, declId->string, typeString, 0, 0, def->memberAccess);
1094 if(!dataMember)
1095 Compiler_Error(__ecereNameSpace__ecere__GetTranslatedString(__thisModule, "Member with same name already exists %s in class %s\n", (((void *)0))), declId->string, regClass->name);
1096 }
1097 if(dataMember)
1098 dataMember->dataType = dataType;
1099 else
1100 FreeType(dataType);
1101 }
1102 }
1103 }
1104 }
1105 }
1106 else if(decl->specifiers)
1107 {
1108 struct Specifier * spec;
1109
1110 for(spec = (*decl->specifiers).first; spec; spec = spec->next)
1111 {
1112 if(spec->type == 3 || spec->type == 4)
1113 {
1114 if(spec->definitions && !spec->id)
1115 {
1116 struct __ecereNameSpace__ecere__com__DataMember * dataMember = __ecereNameSpace__ecere__com__eMember_New((spec->type == 4) ? 1 : 2, def->memberAccess);
1117
1118 AddDefinitions((((void *)0)), dataMember, spec->definitions);
1119 if(member)
1120 {
1121 __ecereNameSpace__ecere__com__eMember_AddMember(member, dataMember);
1122 }
1123 else
1124 {
1125 __ecereNameSpace__ecere__com__eClass_AddMember(regClass, dataMember);
1126 }
1127 }
1128 else if(spec->definitions && spec->id)
1129 {
1130 {
1131 struct Identifier * id = spec->id;
1132 char typeString[1024] = "";
1133
1134 spec->id = (((void *)0));
1135 decl->declarators = MkListOne(MkDeclaratorIdentifier(id));
1136 dataType = ProcessType(decl->specifiers, (((void *)0)));
1137 PrintType(dataType, typeString, 0x0, 0x1);
1138 if(member)
1139 {
1140 dataMember = __ecereNameSpace__ecere__com__eMember_AddDataMember(member, id->string, typeString, 0, 0, def->memberAccess);
1141 if(!dataMember)
1142 Compiler_Error(__ecereNameSpace__ecere__GetTranslatedString(__thisModule, "Member with same name already exists %s in member %s\n", (((void *)0))), id->string, member->name);
1143 }
1144 else
1145 {
1146 dataMember = __ecereNameSpace__ecere__com__eClass_AddDataMember(regClass, id->string, typeString, 0, 0, def->memberAccess);
1147 if(!dataMember)
1148 Compiler_Error(__ecereNameSpace__ecere__GetTranslatedString(__thisModule, "Member with same name already exists %s in class %s\n", (((void *)0))), id->string, regClass->name);
1149 }
1150 if(dataMember)
1151 dataMember->dataType = dataType;
1152 else
1153 FreeType(dataType);
1154 }
1155 }
1156 }
1157 }
1158 }
1159 }
1160 else if(decl->type == 2)
1161 {
1162 struct Instantiation * inst = decl->inst;
1163 struct Expression * exp = inst->exp;
1164
1165 if(exp)
1166 {
1167 char * string = exp->identifier->string;
1168
1169 {
1170 struct Type * dataType = (dataType = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_Type), dataType->kind = 8, dataType->_class = inst->_class->symbol, dataType->refCount = 1, dataType);
1171
1172 if(member)
1173 {
1174 dataMember = __ecereNameSpace__ecere__com__eMember_AddDataMember(member, string, inst->_class->name, 0, 0, def->memberAccess);
1175 if(!dataMember)
1176 Compiler_Error(__ecereNameSpace__ecere__GetTranslatedString(__thisModule, "Member with same name already exists %s in member %s\n", (((void *)0))), string, member->name);
1177 }
1178 else
1179 {
1180 dataMember = __ecereNameSpace__ecere__com__eClass_AddDataMember(regClass, string, inst->_class->name, 0, 0, def->memberAccess);
1181 if(!dataMember)
1182 Compiler_Error(__ecereNameSpace__ecere__GetTranslatedString(__thisModule, "Member with same name already exists %s in class %s\n", (((void *)0))), string, regClass->name);
1183 }
1184 if(dataMember)
1185 dataMember->dataType = dataType;
1186 else
1187 FreeType(dataType);
1188 }
1189 }
1190 }
1191 }
1192 else if(def->type == 3 && def->propertyDef)
1193 {
1194 struct PropertyDef * propertyDef = def->propertyDef;
1195 struct __ecereNameSpace__ecere__com__Property * prop;
1196 char * dataTypeString = StringFromSpecDecl(propertyDef->specifiers, propertyDef->declarator);
1197
1198 prop = __ecereNameSpace__ecere__com__eClass_AddProperty(regClass, propertyDef->conversion ? (((void *)0)) : propertyDef->id->string, dataTypeString, inCompiler ? propertyDef->setStmt : (((void *)0)), inCompiler ? propertyDef->getStmt : (((void *)0)), def->memberAccess);
1199 (__ecereNameSpace__ecere__com__eSystem_Delete(dataTypeString), dataTypeString = 0);
1200 if(prop)
1201 {
1202 if(inCompiler)
1203 prop->IsSet = (void *)propertyDef->issetStmt;
1204 prop->compiled = 0x0;
1205 prop->symbol = (__ecereTemp1 = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_Symbol), ((struct Symbol *)__ecereTemp1)->string = __ecereNameSpace__ecere__sys__CopyString(propertyDef->symbol->string), ((struct Symbol *)__ecereTemp1)->id = propertyDef->symbol->id, ((struct Symbol *)__ecereTemp1)->type = propertyDef->symbol->type, ((struct Symbol *)__ecereTemp1));
1206 ((struct Symbol *)prop->symbol)->propCategory = propertyDef->category;
1207 propertyDef->category = (((void *)0));
1208 if(propertyDef->isWatchable)
1209 __ecereNameSpace__ecere__com__eProperty_Watchable(prop);
1210 }
1211 else
1212 printf("");
1213 propertyDef->symbol->_property = prop;
1214 if(propertyDef->symbol->type)
1215 propertyDef->symbol->type->refCount++;
1216 }
1217 else if(def->type == 10 && def->propertyDef)
1218 {
1219 struct PropertyDef * propertyDef = def->propertyDef;
1220 struct __ecereNameSpace__ecere__com__ClassProperty * prop;
1221 char * dataTypeString = StringFromSpecDecl(propertyDef->specifiers, propertyDef->declarator);
1222
1223 prop = __ecereNameSpace__ecere__com__eClass_AddClassProperty(regClass, propertyDef->id->string, dataTypeString, inCompiler ? propertyDef->setStmt : (((void *)0)), inCompiler ? propertyDef->getStmt : (((void *)0)));
1224 (__ecereNameSpace__ecere__com__eSystem_Delete(dataTypeString), dataTypeString = 0);
1225 }
1226 }
1227 }
1228 }
1229
1230 extern struct __ecereNameSpace__ecere__com__Class * __ecereNameSpace__ecere__com__eSystem_FindClass(struct __ecereNameSpace__ecere__com__Instance * module, char *  name);
1231
1232 extern struct __ecereNameSpace__ecere__com__Instance * privateModule;
1233
1234 extern struct Context * globalContext;
1235
1236 extern struct __ecereNameSpace__ecere__sys__OldList *  excludedSymbols;
1237
1238 extern struct __ecereNameSpace__ecere__com__Class * __ecereNameSpace__ecere__com__eSystem_RegisterClass(int type, char *  name, char *  baseName, int size, int sizeClass, unsigned int (* )(void * ), void (* )(void * ), struct __ecereNameSpace__ecere__com__Instance * module, int declMode, int inheritanceAccess);
1239
1240 extern unsigned int buildingECERECOMModule;
1241
1242 extern struct Declarator * GetFuncDecl(struct Declarator * decl);
1243
1244 extern struct __ecereNameSpace__ecere__com__Method * __ecereNameSpace__ecere__com__eClass_AddVirtualMethod(struct __ecereNameSpace__ecere__com__Class * _class, char *  name, char *  type, void *  function, int declMode);
1245
1246 extern struct __ecereNameSpace__ecere__com__Method * __ecereNameSpace__ecere__com__eClass_AddMethod(struct __ecereNameSpace__ecere__com__Class * _class, char *  name, char *  type, void *  function, int declMode);
1247
1248 extern char *  strcpy(char * , const char * );
1249
1250 extern char *  strcat(char * , const char * );
1251
1252 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_OpTable;
1253
1254 struct OpTable
1255 {
1256 unsigned int (*  Add)(struct Expression *, struct Operand *, struct Operand *);
1257 unsigned int (*  Sub)(struct Expression *, struct Operand *, struct Operand *);
1258 unsigned int (*  Mul)(struct Expression *, struct Operand *, struct Operand *);
1259 unsigned int (*  Div)(struct Expression *, struct Operand *, struct Operand *);
1260 unsigned int (*  Mod)(struct Expression *, struct Operand *, struct Operand *);
1261 unsigned int (*  Neg)(struct Expression *, struct Operand *);
1262 unsigned int (*  Inc)(struct Expression *, struct Operand *);
1263 unsigned int (*  Dec)(struct Expression *, struct Operand *);
1264 unsigned int (*  Asign)(struct Expression *, struct Operand *, struct Operand *);
1265 unsigned int (*  AddAsign)(struct Expression *, struct Operand *, struct Operand *);
1266 unsigned int (*  SubAsign)(struct Expression *, struct Operand *, struct Operand *);
1267 unsigned int (*  MulAsign)(struct Expression *, struct Operand *, struct Operand *);
1268 unsigned int (*  DivAsign)(struct Expression *, struct Operand *, struct Operand *);
1269 unsigned int (*  ModAsign)(struct Expression *, struct Operand *, struct Operand *);
1270 unsigned int (*  BitAnd)(struct Expression *, struct Operand *, struct Operand *);
1271 unsigned int (*  BitOr)(struct Expression *, struct Operand *, struct Operand *);
1272 unsigned int (*  BitXor)(struct Expression *, struct Operand *, struct Operand *);
1273 unsigned int (*  LShift)(struct Expression *, struct Operand *, struct Operand *);
1274 unsigned int (*  RShift)(struct Expression *, struct Operand *, struct Operand *);
1275 unsigned int (*  BitNot)(struct Expression *, struct Operand *);
1276 unsigned int (*  AndAsign)(struct Expression *, struct Operand *, struct Operand *);
1277 unsigned int (*  OrAsign)(struct Expression *, struct Operand *, struct Operand *);
1278 unsigned int (*  XorAsign)(struct Expression *, struct Operand *, struct Operand *);
1279 unsigned int (*  LShiftAsign)(struct Expression *, struct Operand *, struct Operand *);
1280 unsigned int (*  RShiftAsign)(struct Expression *, struct Operand *, struct Operand *);
1281 unsigned int (*  Not)(struct Expression *, struct Operand *);
1282 unsigned int (*  Equ)(struct Expression *, struct Operand *, struct Operand *);
1283 unsigned int (*  Nqu)(struct Expression *, struct Operand *, struct Operand *);
1284 unsigned int (*  And)(struct Expression *, struct Operand *, struct Operand *);
1285 unsigned int (*  Or)(struct Expression *, struct Operand *, struct Operand *);
1286 unsigned int (*  Grt)(struct Expression *, struct Operand *, struct Operand *);
1287 unsigned int (*  Sma)(struct Expression *, struct Operand *, struct Operand *);
1288 unsigned int (*  GrtEqu)(struct Expression *, struct Operand *, struct Operand *);
1289 unsigned int (*  SmaEqu)(struct Expression *, struct Operand *, struct Operand *);
1290 unsigned int (*  Cond)(struct Expression *, struct Operand *, struct Operand *, struct Operand *);
1291 } __attribute__ ((gcc_struct));
1292
1293 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Operand;
1294
1295 struct Operand
1296 {
1297 int kind;
1298 struct Type * type;
1299 unsigned int ptrSize;
1300 union
1301 {
1302 char c;
1303 unsigned char uc;
1304 short s;
1305 unsigned short us;
1306 int i;
1307 unsigned int ui;
1308 float f;
1309 double d;
1310 unsigned char *  p;
1311 long long i64;
1312 uint64 ui64;
1313 intptr_t iptr;
1314 uintptr_t uiptr;
1315 } __attribute__ ((gcc_struct));
1316 struct OpTable ops;
1317 } __attribute__ ((gcc_struct));
1318
1319 extern struct Operand GetOperand(struct Expression * exp);
1320
1321 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__ClassTemplateParameter;
1322
1323 struct __ecereNameSpace__ecere__com__ClassTemplateParameter;
1324
1325 extern struct __ecereNameSpace__ecere__com__ClassTemplateParameter * __ecereNameSpace__ecere__com__eClass_AddTemplateParameter(struct __ecereNameSpace__ecere__com__Class * _class, char *  name, int type, void *  info, struct __ecereNameSpace__ecere__com__ClassTemplateArgument * defaultArg);
1326
1327 extern void __ecereNameSpace__ecere__com__eClass_DoneAddingTemplateParameters(struct __ecereNameSpace__ecere__com__Class * base);
1328
1329 void __ecereMethod___ecereNameSpace__ecere__sys__BinaryTree_Remove(struct __ecereNameSpace__ecere__sys__BinaryTree * this, struct __ecereNameSpace__ecere__sys__BTNode * node);
1330
1331 void __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add(struct __ecereNameSpace__ecere__sys__OldList * this, void *  item);
1332
1333 static void ProcessClass(int classType, struct __ecereNameSpace__ecere__sys__OldList * definitions, struct Symbol * symbol, struct __ecereNameSpace__ecere__sys__OldList * baseSpecs, struct __ecereNameSpace__ecere__sys__OldList * enumValues, struct Location * loc, struct __ecereNameSpace__ecere__sys__OldList * defs, void * after, struct __ecereNameSpace__ecere__sys__OldList * initDeclarators, int declMode)
1334 {
1335 void * __ecereTemp1;
1336 struct __ecereNameSpace__ecere__com__Class * regClass;
1337 struct ClassDef * def;
1338 unsigned int redefinition = 0x0;
1339
1340 regClass = __ecereNameSpace__ecere__com__eSystem_FindClass(privateModule, symbol->string);
1341 if(regClass && !regClass->internalDecl)
1342 {
1343 if(symbol->parent || (struct Symbol *)globalContext->classes.root == symbol)
1344 {
1345 __ecereMethod___ecereNameSpace__ecere__sys__BinaryTree_Remove(&globalContext->classes, (struct __ecereNameSpace__ecere__sys__BTNode *)symbol);
1346 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add((&*excludedSymbols), symbol);
1347 }
1348 redefinition = 0x1;
1349 if(inCompiler)
1350 {
1351 yylloc = *loc;
1352 Compiler_Error(__ecereNameSpace__ecere__GetTranslatedString(__thisModule, "redefinition of class %s\n", (((void *)0))), symbol->string);
1353 return ;
1354 }
1355 }
1356 else
1357 {
1358 char baseName[1024] = "";
1359 unsigned int unitType = 0x0;
1360 unsigned int wouldBeEnum = 0x0;
1361 int inheritanceAccess = 1;
1362
1363 if(baseSpecs != (((void *)0)))
1364 {
1365 struct Type * baseType = ProcessType(baseSpecs, (((void *)0)));
1366
1367 PrintType(baseType, baseName, 0x0, 0x1);
1368 if(baseType->kind == 8)
1369 {
1370 if(baseType->_class->registered && classType == 0)
1371 {
1372 if(baseType->_class->registered->type == 3)
1373 classType = 3;
1374 else if(baseType->_class->registered->type == 2)
1375 classType = 2;
1376 else if(baseType->_class->registered->type == 5)
1377 classType = 5;
1378 else if(baseType->_class->registered->type == 4)
1379 {
1380 wouldBeEnum = 0x1;
1381 }
1382 }
1383 }
1384 else if(baseType->kind == 9 || baseType->kind == 10)
1385 {
1386 classType = 5;
1387 baseName[0] = '\0';
1388 }
1389 else
1390 unitType = 0x1;
1391 FreeType(baseType);
1392 if(((struct Specifier *)baseSpecs->first)->type == 0 && ((struct Specifier *)baseSpecs->first)->specifier == PRIVATE)
1393 inheritanceAccess = 2;
1394 }
1395 if(classType == 0)
1396 {
1397 if(unitType)
1398 classType = 3;
1399 if(definitions != (((void *)0)))
1400 {
1401 for(def = definitions->first; def; def = def->next)
1402 {
1403 if(def->type == 2)
1404 {
1405 struct Declaration * decl = def->decl;
1406
1407 if(decl->type == 0)
1408 {
1409 if(unitType)
1410 {
1411 classType = 2;
1412 break;
1413 }
1414 if(decl->declarators)
1415 {
1416 struct Declarator * d;
1417
1418 for(d = (*decl->declarators).first; d; d = d->next)
1419 {
1420 if(d->structDecl.exp)
1421 {
1422 classType = 2;
1423 break;
1424 }
1425 }
1426 if(d)
1427 break;
1428 }
1429 }
1430 }
1431 }
1432 }
1433 }
1434 if(classType == 0 && wouldBeEnum)
1435 classType = 4;
1436 regClass = symbol->registered = __ecereNameSpace__ecere__com__eSystem_RegisterClass((classType == 6) ? 1 : classType, symbol->string, baseName[0] ? baseName : (((void *)0)), 0, 0, (((void *)0)), (((void *)0)), privateModule, buildingECERECOMModule ? 4 : declMode, inheritanceAccess);
1437 if(regClass)
1438 regClass->symbol = symbol;
1439 }
1440 if(!redefinition)
1441 {
1442 if(classType == 6)
1443 {
1444 struct __ecereNameSpace__ecere__com__DataMember * unionMember = __ecereNameSpace__ecere__com__eMember_New(1, 1);
1445
1446 AddDefinitions(regClass, unionMember, definitions);
1447 __ecereNameSpace__ecere__com__eClass_AddMember(regClass, unionMember);
1448 }
1449 else
1450 AddDefinitions(regClass, (((void *)0)), definitions);
1451 }
1452 if(definitions != (((void *)0)))
1453 {
1454 for(def = definitions->first; def; def = def->next)
1455 {
1456 if(def->type == 0 && def->function->declarator)
1457 {
1458 struct ClassFunction * func = def->function;
1459
1460 func->_class = regClass;
1461 if(!redefinition && !func->dontMangle)
1462 {
1463 struct Declarator * funcDecl = GetFuncDecl(func->declarator);
1464 struct Identifier * id = GetDeclId(funcDecl);
1465 struct __ecereNameSpace__ecere__com__Method * method;
1466
1467 if(func->isVirtual)
1468 {
1469 char * typeString = StringFromSpecDecl(func->specifiers, func->declarator);
1470
1471 method = __ecereNameSpace__ecere__com__eClass_AddVirtualMethod(regClass, id->string, typeString, inCompiler ? func->declarator->symbol : (((void *)0)), def->memberAccess);
1472 (__ecereNameSpace__ecere__com__eSystem_Delete(typeString), typeString = 0);
1473 }
1474 else
1475 {
1476 char * typeString = StringFromSpecDecl(func->specifiers, func->declarator);
1477
1478 method = __ecereNameSpace__ecere__com__eClass_AddMethod(regClass, id->string, typeString, inCompiler ? func->declarator->symbol : (((void *)0)), def->memberAccess);
1479 if(!method)
1480 Compiler_Error(__ecereNameSpace__ecere__GetTranslatedString(__thisModule, "Redefinition of method %s in class %s\n", (((void *)0))), id->string, regClass->name);
1481 (__ecereNameSpace__ecere__com__eSystem_Delete(typeString), typeString = 0);
1482 }
1483 if(method && (method->type != 1 || method->_class == regClass))
1484 {
1485 method->symbol = (__ecereTemp1 = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_Symbol), ((struct Symbol *)__ecereTemp1)->string = __ecereNameSpace__ecere__sys__CopyString(func->declarator->symbol->string), ((struct Symbol *)__ecereTemp1)->id = func->declarator->symbol->id, ((struct Symbol *)__ecereTemp1)->type = func->declarator->symbol->type, ((struct Symbol *)__ecereTemp1)->method = method, ((struct Symbol *)__ecereTemp1));
1486 if(func->declarator->symbol->type)
1487 func->declarator->symbol->type->refCount++;
1488 func->declarator->symbol->method = method;
1489 }
1490 else
1491 {
1492 func->declarator->symbol->method = method;
1493 }
1494 }
1495 }
1496 }
1497 }
1498 if(regClass && symbol->templateParams)
1499 {
1500 struct TemplateParameter * param;
1501
1502 for(param = (*symbol->templateParams).first; param; param = param->next)
1503 {
1504 struct __ecereNameSpace__ecere__com__ClassTemplateArgument defaultArg = 
1505 {
1506 0, 0, 0, 0, 0
1507 };
1508
1509 if(param->defaultArgument)
1510 {
1511 switch(param->type)
1512 {
1513 case 0:
1514 defaultArg.dataTypeString = StringFromSpecDecl(param->defaultArgument->templateDatatype->specifiers, param->defaultArgument->templateDatatype->decl);
1515 break;
1516 case 1:
1517 {
1518 char memberString[1024];
1519
1520 memberString[0] = '\0';
1521 if(param->defaultArgument->identifier->_class)
1522 {
1523 if(param->defaultArgument->identifier->_class->type == 8)
1524 {
1525 if(param->defaultArgument->identifier->_class->templateParameter)
1526 strcpy(memberString, param->defaultArgument->identifier->_class->templateParameter->identifier->string);
1527 }
1528 else
1529 {
1530 if(param->defaultArgument->identifier->_class->name)
1531 strcpy(memberString, param->defaultArgument->identifier->_class->name);
1532 }
1533 }
1534 if(memberString[0])
1535 {
1536 strcat(memberString, "::");
1537 }
1538 strcat(memberString, param->defaultArgument->identifier->string);
1539 defaultArg.memberString = __ecereNameSpace__ecere__sys__CopyString(memberString);
1540 break;
1541 }
1542 case 2:
1543 {
1544 struct Operand op;
1545
1546 param->defaultArgument->expression->destType = ProcessType(param->dataType->specifiers, param->dataType->decl);
1547 ProcessExpressionType(param->defaultArgument->expression);
1548 ComputeExpression(param->defaultArgument->expression);
1549 op = GetOperand(param->defaultArgument->expression);
1550 defaultArg.expression.ui64 = op.ui64;
1551 break;
1552 }
1553 }
1554 }
1555 if(param->type == 1)
1556 {
1557 __ecereNameSpace__ecere__com__eClass_AddTemplateParameter(regClass, param->identifier->string, 1, (void *)param->memberType, &defaultArg);
1558 }
1559 else
1560 {
1561 char * typeString = param->dataType ? StringFromSpecDecl(param->dataType->specifiers, param->dataType->decl) : (((void *)0));
1562
1563 __ecereNameSpace__ecere__com__eClass_AddTemplateParameter(regClass, param->identifier->string, param->type, typeString, &defaultArg);
1564 (__ecereNameSpace__ecere__com__eSystem_Delete(typeString), typeString = 0);
1565 }
1566 if(param->type == 0 || param->type == 1)
1567 (__ecereNameSpace__ecere__com__eSystem_Delete(defaultArg.dataTypeString), defaultArg.dataTypeString = 0);
1568 }
1569 __ecereNameSpace__ecere__com__eClass_DoneAddingTemplateParameters(regClass);
1570 }
1571 }
1572
1573 extern struct External * curExternal;
1574
1575 extern struct __ecereNameSpace__ecere__sys__OldList *  ast;
1576
1577 extern struct Symbol * FindType(struct Context * ctx, char *  name);
1578
1579 extern struct Symbol * FindClass(char *  name);
1580
1581 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__sys__OldLink;
1582
1583 struct __ecereNameSpace__ecere__sys__OldLink
1584 {
1585 struct __ecereNameSpace__ecere__sys__OldLink * prev;
1586 struct __ecereNameSpace__ecere__sys__OldLink * next;
1587 void *  data;
1588 } __attribute__ ((gcc_struct));
1589
1590 extern struct ModuleImport * mainModule;
1591
1592 void PrePreProcessClassDefinitions()
1593 {
1594 struct External * external, * next;
1595
1596 curExternal = (((void *)0));
1597 if(ast)
1598 {
1599 for(external = (*ast).first; external; external = next)
1600 {
1601 next = external->next;
1602 curExternal = external;
1603 if(external->type == 2)
1604 {
1605 struct ClassDefinition * _class = external->_class;
1606
1607 if(_class->definitions && (!_class->symbol->registered || !inCompiler))
1608 {
1609 ProcessClass(0, _class->definitions, _class->symbol, _class->baseSpecs, (((void *)0)), &_class->loc, ast, external->prev, (((void *)0)), _class->declMode);
1610 _class->symbol->isStatic = _class->declMode == 3;
1611 }
1612 }
1613 else if(external->type == 1)
1614 {
1615 struct Declaration * declaration = external->declaration;
1616
1617 if(declaration->type == 1)
1618 {
1619 if(declaration->specifiers)
1620 {
1621 struct Specifier * specifier;
1622
1623 for(specifier = (*declaration->specifiers).first; specifier; specifier = specifier->next)
1624 {
1625 if((specifier->type == 2 || specifier->type == 3 || specifier->type == 4) && specifier->id && specifier->id->string && (declaration->declMode || specifier->baseSpecs || (specifier->type == 2 && specifier->definitions)))
1626 {
1627 struct Symbol * type = FindType(globalContext, specifier->id->string);
1628 struct Symbol * symbol = FindClass(specifier->id->string);
1629
1630 if(type)
1631 {
1632 declaration->declMode = 0;
1633 if(symbol)
1634 {
1635 __ecereMethod___ecereNameSpace__ecere__sys__BinaryTree_Remove(&globalContext->classes, (struct __ecereNameSpace__ecere__sys__BTNode *)symbol);
1636 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add((&*excludedSymbols), symbol);
1637 }
1638 }
1639 else if(symbol && !symbol->registered)
1640 {
1641 int classType;
1642
1643 if(specifier->type == 2)
1644 classType = 4;
1645 else if(specifier->type == 4)
1646 classType = 6;
1647 else
1648 classType = 1;
1649 ProcessClass(classType, specifier->definitions, symbol, specifier->baseSpecs, specifier->list, &specifier->loc, ast, external->prev, declaration->declarators, declaration->declMode);
1650 symbol->isStatic = declaration->declMode == 3;
1651 }
1652 }
1653 }
1654 }
1655 }
1656 }
1657 else if(external->type == 3)
1658 {
1659 }
1660 }
1661 {
1662 for(external = (*ast).first; external; external = external->next)
1663 {
1664 if(external->type == 2)
1665 {
1666 struct ClassDefinition * _class = external->_class;
1667
1668 if(_class->symbol)
1669 {
1670 struct __ecereNameSpace__ecere__sys__OldLink * link;
1671
1672 for(link = _class->symbol->templatedClasses.first; link; link = link->next)
1673 {
1674 struct Symbol * symbol = link->data;
1675
1676 symbol->registered = __ecereNameSpace__ecere__com__eSystem_FindClass(privateModule, symbol->string);
1677 }
1678 }
1679 }
1680 else if(external->type == 1)
1681 {
1682 struct Declaration * declaration = external->declaration;
1683
1684 if(declaration->type == 1)
1685 {
1686 if(declaration->specifiers)
1687 {
1688 struct Specifier * specifier;
1689
1690 for(specifier = (*declaration->specifiers).first; specifier; specifier = specifier->next)
1691 {
1692 if((specifier->type == 2 || specifier->type == 3 || specifier->type == 4) && specifier->id && specifier->id->string && (declaration->declMode || specifier->baseSpecs || (specifier->type == 2 && specifier->definitions)))
1693 {
1694 struct Symbol * type = FindType(globalContext, specifier->id->string);
1695 struct Symbol * symbol = FindClass(specifier->id->string);
1696
1697 if(type)
1698 {
1699 }
1700 else if(symbol)
1701 {
1702 struct __ecereNameSpace__ecere__sys__OldLink * link;
1703
1704 for(link = symbol->templatedClasses.first; link; link = link->next)
1705 {
1706 struct Symbol * tplSymbol = link->data;
1707
1708 tplSymbol->registered = __ecereNameSpace__ecere__com__eSystem_FindClass(privateModule, tplSymbol->string);
1709 tplSymbol->module = symbol->module ? symbol->module : mainModule;
1710 }
1711 }
1712 }
1713 }
1714 }
1715 }
1716 }
1717 }
1718 }
1719 }
1720 }
1721
1722 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__GlobalFunction;
1723
1724 struct __ecereNameSpace__ecere__com__GlobalFunction;
1725
1726 extern struct __ecereNameSpace__ecere__com__GlobalFunction * __ecereNameSpace__ecere__com__eSystem_RegisterFunction(char *  name, char *  type, void *  func, struct __ecereNameSpace__ecere__com__Instance * module, int declMode);
1727
1728 void __ecereRegisterModule_firstPass(struct __ecereNameSpace__ecere__com__Instance * module)
1729 {
1730 struct __ecereNameSpace__ecere__com__Class * class;
1731
1732 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("PrePreProcessClassDefinitions", "void PrePreProcessClassDefinitions(void)", PrePreProcessClassDefinitions, module, 1);
1733 }
1734
1735 void __ecereUnregisterModule_firstPass(struct __ecereNameSpace__ecere__com__Instance * module)
1736 {
1737
1738 }
1739