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