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