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

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