Ecere Software / sdk / blob
? search:


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