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