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