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