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