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

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