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