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