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