2 typedef long long int64;
3 typedef unsigned long long uint64;
4 #elif defined(__TINYC__)
6 #define __builtin_va_list va_list
7 #define __builtin_va_start va_start
8 #define __builtin_va_end va_end
10 #define strcasecmp stricmp
11 #define strncasecmp strnicmp
12 #define __declspec(x) __attribute__((x))
14 typedef long long int64;
15 typedef unsigned long long uint64;
17 typedef __int64 int64;
18 typedef unsigned __int64 uint64;
21 #define __ENDIAN_PAD(x) (8 - (x))
23 #define __ENDIAN_PAD(x) 0
26 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__sys__BTNode;
28 struct __ecereNameSpace__ecere__sys__BTNode;
30 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__sys__BinaryTree;
32 struct __ecereNameSpace__ecere__sys__BinaryTree
34 struct __ecereNameSpace__ecere__sys__BTNode * root;
36 int (* CompareKey)(struct __ecereNameSpace__ecere__sys__BinaryTree * tree, uintptr_t a, uintptr_t b);
37 void (* FreeKey)(void * key);
38 } __attribute__ ((gcc_struct));
40 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__sys__OldList;
42 struct __ecereNameSpace__ecere__sys__OldList
49 } __attribute__ ((gcc_struct));
51 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__Method;
53 struct __ecereNameSpace__ecere__com__Method
56 struct __ecereNameSpace__ecere__com__Method * parent;
57 struct __ecereNameSpace__ecere__com__Method * left;
58 struct __ecereNameSpace__ecere__com__Method * right;
63 struct __ecereNameSpace__ecere__com__Class * _class;
65 char * dataTypeString;
66 struct Type * dataType;
68 } __attribute__ ((gcc_struct));
70 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__Property;
72 struct __ecereNameSpace__ecere__com__Property
74 struct __ecereNameSpace__ecere__com__Property * prev;
75 struct __ecereNameSpace__ecere__com__Property * next;
77 unsigned int isProperty;
80 struct __ecereNameSpace__ecere__com__Class * _class;
81 char * dataTypeString;
82 struct __ecereNameSpace__ecere__com__Class * dataTypeClass;
83 struct Type * dataType;
86 unsigned int (* IsSet)();
90 unsigned int conversion;
91 unsigned int watcherOffset;
93 unsigned int compiled;
94 unsigned int selfWatchable;
95 unsigned int isWatchable;
96 } __attribute__ ((gcc_struct));
98 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_CodePosition;
105 unsigned int included;
106 } __attribute__ ((gcc_struct));
108 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Location;
112 struct CodePosition start;
113 struct CodePosition end;
114 } __attribute__ ((gcc_struct));
116 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Attrib;
120 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_ExtDecl;
124 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_ClassDefinition;
126 struct ClassDefinition;
128 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Context;
132 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Instantiation;
134 struct Instantiation;
136 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Declaration;
140 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Statement;
144 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_TypeName;
148 struct TypeName * prev;
149 struct TypeName * next;
151 struct __ecereNameSpace__ecere__sys__OldList * qualifiers;
152 struct Declarator * declarator;
154 struct Expression * bitCount;
155 } __attribute__ ((gcc_struct));
157 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Initializer;
161 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__DataValue;
163 struct __ecereNameSpace__ecere__com__DataValue
178 } __attribute__ ((gcc_struct));
179 } __attribute__ ((gcc_struct));
181 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Expression;
185 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_TemplateDatatype;
187 struct TemplateDatatype;
189 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_TemplateArgument;
191 struct TemplateArgument;
193 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_TemplateParameter;
195 struct TemplateParameter;
197 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Specifier;
201 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Identifier;
205 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Pointer;
209 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Declarator;
213 struct Declarator * prev;
214 struct Declarator * next;
217 struct Symbol * symbol;
218 struct Declarator * declarator;
221 struct Identifier * identifier;
224 struct Expression * exp;
225 struct Expression * posExp;
226 struct Attrib * attrib;
227 } __attribute__ ((gcc_struct)) structDecl;
230 struct Expression * exp;
231 struct Specifier * enumClass;
232 } __attribute__ ((gcc_struct)) array;
235 struct __ecereNameSpace__ecere__sys__OldList * parameters;
236 } __attribute__ ((gcc_struct)) function;
239 struct Pointer * pointer;
240 } __attribute__ ((gcc_struct)) pointer;
243 struct ExtDecl * extended;
244 } __attribute__ ((gcc_struct)) extended;
245 } __attribute__ ((gcc_struct));
246 } __attribute__ ((gcc_struct));
248 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_FunctionDefinition;
250 struct FunctionDefinition;
252 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_DBTableDef;
256 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_External;
260 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_ModuleImport;
264 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_ClassImport;
268 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Symbol;
272 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Type;
276 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__Class;
278 struct __ecereNameSpace__ecere__com__Class
280 struct __ecereNameSpace__ecere__com__Class * prev;
281 struct __ecereNameSpace__ecere__com__Class * next;
287 int (* Constructor)(struct __ecereNameSpace__ecere__com__Instance *);
288 void (* Destructor)(struct __ecereNameSpace__ecere__com__Instance *);
291 struct __ecereNameSpace__ecere__com__Class * base;
292 struct __ecereNameSpace__ecere__sys__BinaryTree methods;
293 struct __ecereNameSpace__ecere__sys__BinaryTree members;
294 struct __ecereNameSpace__ecere__sys__BinaryTree prop;
295 struct __ecereNameSpace__ecere__sys__OldList membersAndProperties;
296 struct __ecereNameSpace__ecere__sys__BinaryTree classProperties;
297 struct __ecereNameSpace__ecere__sys__OldList derivatives;
301 struct __ecereNameSpace__ecere__com__Instance * module;
302 struct __ecereNameSpace__ecere__com__NameSpace * nameSpace;
303 char * dataTypeString;
304 struct Type * dataType;
306 int defaultAlignment;
307 void (* Initialize)();
309 struct __ecereNameSpace__ecere__sys__OldList selfWatchers;
310 char * designerClass;
311 unsigned int noExpansion;
312 char * defaultProperty;
313 unsigned int comRedefinition;
315 unsigned int isRemote;
316 unsigned int internalDecl;
318 unsigned int computeSize;
320 int destructionWatchOffset;
322 struct __ecereNameSpace__ecere__sys__OldList delayedCPValues;
323 int inheritanceAccess;
326 struct __ecereNameSpace__ecere__sys__OldList conversions;
327 struct __ecereNameSpace__ecere__sys__OldList templateParams;
328 struct __ecereNameSpace__ecere__com__ClassTemplateArgument * templateArgs;
329 struct __ecereNameSpace__ecere__com__Class * templateClass;
330 struct __ecereNameSpace__ecere__sys__OldList templatized;
332 } __attribute__ ((gcc_struct));
334 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__Instance;
336 struct __ecereNameSpace__ecere__com__Instance
339 struct __ecereNameSpace__ecere__com__Class * _class;
341 } __attribute__ ((gcc_struct));
343 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__DataMember;
345 struct __ecereNameSpace__ecere__com__DataMember
347 struct __ecereNameSpace__ecere__com__DataMember * prev;
348 struct __ecereNameSpace__ecere__com__DataMember * next;
350 unsigned int isProperty;
353 struct __ecereNameSpace__ecere__com__Class * _class;
354 char * dataTypeString;
355 struct __ecereNameSpace__ecere__com__Class * dataTypeClass;
356 struct Type * dataType;
360 struct __ecereNameSpace__ecere__sys__OldList members;
361 struct __ecereNameSpace__ecere__sys__BinaryTree membersAlpha;
364 } __attribute__ ((gcc_struct));
366 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__SerialBuffer;
368 struct __ecereNameSpace__ecere__com__SerialBuffer
370 unsigned char * _buffer;
374 } __attribute__ ((gcc_struct));
376 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__ClassTemplateArgument;
378 struct __ecereNameSpace__ecere__com__ClassTemplateArgument
384 char * dataTypeString;
385 struct __ecereNameSpace__ecere__com__Class * dataTypeClass;
386 } __attribute__ ((gcc_struct));
387 struct __ecereNameSpace__ecere__com__DataValue expression;
393 struct __ecereNameSpace__ecere__com__DataMember * member;
394 struct __ecereNameSpace__ecere__com__Property * prop;
395 struct __ecereNameSpace__ecere__com__Method * method;
396 } __attribute__ ((gcc_struct));
397 } __attribute__ ((gcc_struct));
398 } __attribute__ ((gcc_struct));
399 } __attribute__ ((gcc_struct));
401 unsigned int parsingType;
403 void SetParsingType(unsigned int b)
408 extern struct TypeName * parsedType;
410 extern unsigned int echoOn;
412 extern unsigned int type_yydebug;
414 extern struct Location yylloc;
418 void resetScannerPos(struct CodePosition * pos);
420 extern struct Declarator * CopyDeclarator(struct Declarator * declarator);
422 extern int printf(char * , ...);
424 extern void FreeDeclarator(struct Declarator * decl);
426 struct Declarator * PlugDeclarator(struct Declarator * decl, struct Declarator * baseDecl)
428 if(decl && decl->type != 1)
430 struct Declarator * base;
432 decl = CopyDeclarator(decl);
436 for(; base->declarator && base->declarator->type != 1; base = base->declarator)
444 FreeDeclarator(base->declarator);
445 base->declarator = baseDecl;
447 else if(base->type == 1)
449 FreeDeclarator(decl);
450 decl = (((void *)0));
458 extern struct Declarator * MkDeclaratorIdentifier(struct Identifier * id);
460 extern struct Identifier * MkIdentifier(char * string);
462 extern struct Declarator * MkDeclaratorPointer(struct Pointer * pointer, struct Declarator * declarator);
464 extern struct Pointer * MkPointer(struct __ecereNameSpace__ecere__sys__OldList * qualifiers, struct Pointer * pointer);
466 struct Declarator * QMkPtrDecl(char * id)
468 struct Declarator * declarator = id ? MkDeclaratorIdentifier(MkIdentifier(id)) : (((void *)0));
470 return MkDeclaratorPointer(MkPointer((((void *)0)), (((void *)0))), declarator);
473 extern struct __ecereNameSpace__ecere__sys__OldList * MkList(void);
475 extern void ListAdd(struct __ecereNameSpace__ecere__sys__OldList * list, void * item);
477 extern struct Specifier * MkSpecifierName(char * name);
479 extern struct TypeName * MkTypeName(struct __ecereNameSpace__ecere__sys__OldList * qualifiers, struct Declarator * declarator);
481 struct TypeName * QMkType(char * spec, struct Declarator * decl)
483 struct __ecereNameSpace__ecere__sys__OldList * specs = MkList();
485 ListAdd(specs, MkSpecifierName(spec));
486 return MkTypeName(specs, decl);
489 struct TypeName * QMkClass(char * spec, struct Declarator * decl)
491 struct __ecereNameSpace__ecere__sys__OldList * specs = MkList();
493 ListAdd(specs, MkSpecifierName(spec));
494 return MkTypeName(specs, decl);
497 extern struct Expression * MkExpBrackets(struct __ecereNameSpace__ecere__sys__OldList * expressions);
499 struct Expression * QBrackets(struct Expression * exp)
501 struct __ecereNameSpace__ecere__sys__OldList * expList = MkList();
503 ListAdd(expList, exp);
504 return MkExpBrackets(expList);
507 extern struct Expression * MkExpIdentifier(struct Identifier * id);
509 struct Expression * QMkExpId(char * id)
511 return MkExpIdentifier(MkIdentifier(id));
514 extern struct Expression * MkExpCondition(struct Expression * cond, struct __ecereNameSpace__ecere__sys__OldList * expressions, struct Expression * elseExp);
516 struct Expression * QMkExpCond(struct Expression * cond, struct Expression * exp, struct Expression * elseExp)
518 struct __ecereNameSpace__ecere__sys__OldList * expList = MkList();
520 ListAdd(expList, exp);
521 return MkExpCondition(cond, expList, elseExp);
524 extern struct Declaration * MkDeclaration(struct __ecereNameSpace__ecere__sys__OldList * specifiers, struct __ecereNameSpace__ecere__sys__OldList * initDeclarators);
526 struct Declaration * QMkDeclaration(char * name, struct InitDeclarator * initDecl)
528 struct __ecereNameSpace__ecere__sys__OldList * specs = MkList(), * initDecls = (((void *)0));
530 ListAdd(specs, MkSpecifierName(name));
533 initDecls = MkList();
534 ListAdd(initDecls, initDecl);
536 return MkDeclaration(specs, initDecls);
539 extern struct Specifier * MkSpecifier(int specifier);
541 struct Declaration * QMkDeclarationBase(int base, struct InitDeclarator * initDecl)
543 struct __ecereNameSpace__ecere__sys__OldList * specs = MkList(), * initDecls = (((void *)0));
545 ListAdd(specs, MkSpecifier(base));
548 initDecls = MkList();
549 ListAdd(initDecls, initDecl);
551 return MkDeclaration(specs, initDecls);
554 extern char * __ecereNameSpace__ecere__sys__CopyString(char * string);
556 char * QMkString(char * source)
566 for(i = 0; (ch = source[i]); i++)
569 if(ch == '\"' || ch == '\\')
572 string = __ecereNameSpace__ecere__com__eSystem_New(sizeof(char) * (len + 3));
574 for(i = 0; (ch = source[i]); i++)
576 if(ch == '\"' || ch == '\\')
584 string = __ecereNameSpace__ecere__sys__CopyString("0");
588 struct Declarator * GetFuncDecl(struct Declarator * decl)
590 while(decl && decl->type != 4 && decl->type != 1)
591 decl = decl->declarator;
592 return (decl && decl->type == 4) ? decl : (((void *)0));
595 unsigned int parseTypeError;
597 extern struct __ecereNameSpace__ecere__com__Instance * fileInput;
599 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__sys__TempFile;
601 struct __ecereNameSpace__ecere__sys__TempFile
603 char __ecere_padding[24];
604 } __attribute__ ((gcc_struct));
606 extern int strlen(const char * );
610 extern void resetScanner();
612 extern struct Declarator * MkStructDeclarator(struct Declarator * declarator, struct Expression * exp);
614 extern void FreeTypeName(struct TypeName * typeName);
616 extern void Compiler_Warning(char * format, ...);
618 extern char * __ecereNameSpace__ecere__GetTranslatedString(struct __ecereNameSpace__ecere__com__Instance * module, char * string, char * stringAndContext);
620 extern struct __ecereNameSpace__ecere__com__Instance * __thisModule;
622 extern void * __ecereNameSpace__ecere__com__eInstance_New(struct __ecereNameSpace__ecere__com__Class * _class);
624 int __ecereVMethodID___ecereNameSpace__ecere__sys__File_Write;
626 int __ecereVMethodID___ecereNameSpace__ecere__sys__File_Seek;
628 extern void __ecereNameSpace__ecere__com__eInstance_DecRef(struct __ecereNameSpace__ecere__com__Instance * instance);
630 void __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove(struct __ecereNameSpace__ecere__sys__OldList * this, void * item);
632 void __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add(struct __ecereNameSpace__ecere__sys__OldList * this, void * item);
634 struct Declarator * SpecDeclFromString(char * string, struct __ecereNameSpace__ecere__sys__OldList * specs, struct Declarator * baseDecl)
636 struct Location oldLocation = yylloc;
637 struct Declarator * decl = (((void *)0));
638 struct __ecereNameSpace__ecere__com__Instance * backFileInput = fileInput;
642 fileInput = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass___ecereNameSpace__ecere__sys__TempFile);
643 ((int (*)(struct __ecereNameSpace__ecere__com__Instance *, void * buffer, unsigned int size, unsigned int count))fileInput->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Write])(fileInput, string, 1, strlen(string));
644 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, int pos, int mode))fileInput->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Seek])(fileInput, 0, 0);
646 parseTypeError = 0x0;
647 parsedType = (((void *)0));
651 unsigned int oldParsingType = parsingType;
655 parsingType = oldParsingType;
659 (__ecereNameSpace__ecere__com__eInstance_DecRef(fileInput), fileInput = 0);
662 if(parsedType->qualifiers)
664 struct Specifier * spec;
666 for(; (spec = (*parsedType->qualifiers).first); )
668 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove((&*parsedType->qualifiers), spec);
669 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add((&*specs), spec);
672 if(parsedType->bitCount)
674 parsedType->declarator = MkStructDeclarator(parsedType->declarator, parsedType->bitCount);
675 parsedType->bitCount = (((void *)0));
677 decl = PlugDeclarator(parsedType->declarator, baseDecl);
678 FreeTypeName(parsedType);
679 parsedType = (((void *)0));
682 Compiler_Warning(__ecereNameSpace__ecere__GetTranslatedString(__thisModule, "parsing type %s\n", (((void *)0))), string);
687 Compiler_Warning(__ecereNameSpace__ecere__GetTranslatedString(__thisModule, "parsing type %s\n", (((void *)0))), string);
690 yylloc = oldLocation;
691 fileInput = backFileInput;
695 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__GlobalFunction;
697 struct __ecereNameSpace__ecere__com__GlobalFunction;
699 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);
701 void __ecereRegisterModule_shortcuts(struct __ecereNameSpace__ecere__com__Instance * module)
703 struct __ecereNameSpace__ecere__com__Class * class;
705 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("SetParsingType", "void SetParsingType(bool b)", SetParsingType, module, 1);
706 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("PlugDeclarator", "Declarator PlugDeclarator(Declarator decl, Declarator baseDecl)", PlugDeclarator, module, 2);
707 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("QMkPtrDecl", "Declarator QMkPtrDecl(char * id)", QMkPtrDecl, module, 2);
708 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("QMkType", "TypeName QMkType(char * spec, Declarator decl)", QMkType, module, 2);
709 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("QMkClass", "TypeName QMkClass(char * spec, Declarator decl)", QMkClass, module, 2);
710 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("QBrackets", "Expression QBrackets(Expression exp)", QBrackets, module, 2);
711 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("QMkExpId", "Expression QMkExpId(char * id)", QMkExpId, module, 2);
712 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("QMkExpCond", "Expression QMkExpCond(Expression cond, Expression exp, Expression elseExp)", QMkExpCond, module, 2);
713 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("QMkDeclaration", "Declaration QMkDeclaration(char * name, InitDeclarator initDecl)", QMkDeclaration, module, 2);
714 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("QMkDeclarationBase", "Declaration QMkDeclarationBase(int base, InitDeclarator initDecl)", QMkDeclarationBase, module, 2);
715 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("QMkString", "char * QMkString(char * source)", QMkString, module, 2);
716 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("GetFuncDecl", "Declarator GetFuncDecl(Declarator decl)", GetFuncDecl, module, 1);
717 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("SpecDeclFromString", "Declarator SpecDeclFromString(char * string, ecere::sys::OldList * specs, Declarator baseDecl)", SpecDeclFromString, module, 1);
720 void __ecereUnregisterModule_shortcuts(struct __ecereNameSpace__ecere__com__Instance * module)