The Ecere SDK - sdk/blob - compiler/bootstrap/libec/bootstrap/pass3.c

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