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 unsigned int opDestType;
 438 } __attribute__ ((gcc_struct));
 439
 440 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_TemplateDatatype;
 441
 442 struct TemplateDatatype
 443 {
 444 struct __ecereNameSpace__ecere__sys__OldList *  specifiers;
 445 struct Declarator * decl;
 446 } __attribute__ ((gcc_struct));
 447
 448 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_TemplateArgument;
 449
 450 struct TemplateArgument;
 451
 452 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_TemplateParameter;
 453
 454 struct TemplateParameter
 455 {
 456 struct TemplateParameter * prev;
 457 struct TemplateParameter * next;
 458 struct Location loc;
 459 int type;
 460 struct Identifier * identifier;
 461 union
 462 {
 463 struct TemplateDatatype * dataType;
 464 int memberType;
 465 } __attribute__ ((gcc_struct));
 466 struct TemplateArgument * defaultArgument;
 467 char *  dataTypeString;
 468 struct Type * baseType;
 469 } __attribute__ ((gcc_struct));
 470
 471 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Specifier;
 472
 473 struct Specifier
 474 {
 475 struct Specifier * prev;
 476 struct Specifier * next;
 477 struct Location loc;
 478 int type;
 479 union
 480 {
 481 int specifier;
 482 struct
 483 {
 484 struct ExtDecl * extDecl;
 485 char *  name;
 486 struct Symbol * symbol;
 487 struct __ecereNameSpace__ecere__sys__OldList *  templateArgs;
 488 } __attribute__ ((gcc_struct));
 489 struct
 490 {
 491 struct Identifier * id;
 492 struct __ecereNameSpace__ecere__sys__OldList *  list;
 493 struct __ecereNameSpace__ecere__sys__OldList *  baseSpecs;
 494 struct __ecereNameSpace__ecere__sys__OldList *  definitions;
 495 unsigned int addNameSpace;
 496 struct Context * ctx;
 497 struct ExtDecl * extDeclStruct;
 498 } __attribute__ ((gcc_struct));
 499 struct Expression * expression;
 500 struct Specifier * _class;
 501 struct TemplateParameter * templateParameter;
 502 } __attribute__ ((gcc_struct));
 503 } __attribute__ ((gcc_struct));
 504
 505 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Identifier;
 506
 507 struct Identifier
 508 {
 509 struct Identifier * prev;
 510 struct Identifier * next;
 511 struct Location loc;
 512 struct Symbol * classSym;
 513 struct Specifier * _class;
 514 char *  string;
 515 struct Identifier * badID;
 516 } __attribute__ ((gcc_struct));
 517
 518 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Pointer;
 519
 520 struct Pointer;
 521
 522 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Declarator;
 523
 524 struct Declarator
 525 {
 526 struct Declarator * prev;
 527 struct Declarator * next;
 528 struct Location loc;
 529 int type;
 530 struct Symbol * symbol;
 531 struct Declarator * declarator;
 532 union
 533 {
 534 struct Identifier * identifier;
 535 struct
 536 {
 537 struct Expression * exp;
 538 struct Expression * posExp;
 539 struct Attrib * attrib;
 540 } __attribute__ ((gcc_struct)) structDecl;
 541 struct
 542 {
 543 struct Expression * exp;
 544 struct Specifier * enumClass;
 545 } __attribute__ ((gcc_struct)) array;
 546 struct
 547 {
 548 struct __ecereNameSpace__ecere__sys__OldList * parameters;
 549 } __attribute__ ((gcc_struct)) function;
 550 struct
 551 {
 552 struct Pointer * pointer;
 553 } __attribute__ ((gcc_struct)) pointer;
 554 struct
 555 {
 556 struct ExtDecl * extended;
 557 } __attribute__ ((gcc_struct)) extended;
 558 } __attribute__ ((gcc_struct));
 559 } __attribute__ ((gcc_struct));
 560
 561 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_FunctionDefinition;
 562
 563 struct FunctionDefinition
 564 {
 565 struct FunctionDefinition * prev;
 566 struct FunctionDefinition * next;
 567 struct Location loc;
 568 struct __ecereNameSpace__ecere__sys__OldList *  specifiers;
 569 struct Declarator * declarator;
 570 struct __ecereNameSpace__ecere__sys__OldList *  declarations;
 571 struct Statement * body;
 572 struct __ecereNameSpace__ecere__com__Class * _class;
 573 struct __ecereNameSpace__ecere__sys__OldList attached;
 574 int declMode;
 575 struct Type * type;
 576 struct Symbol * propSet;
 577 int tempCount;
 578 unsigned int propertyNoThis;
 579 } __attribute__ ((gcc_struct));
 580
 581 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_DBTableDef;
 582
 583 struct DBTableDef;
 584
 585 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_External;
 586
 587 struct External
 588 {
 589 struct External * prev;
 590 struct External * next;
 591 struct Location loc;
 592 int type;
 593 struct Symbol * symbol;
 594 union
 595 {
 596 struct FunctionDefinition * function;
 597 struct ClassDefinition * _class;
 598 struct Declaration * declaration;
 599 char *  importString;
 600 struct Identifier * id;
 601 struct DBTableDef * table;
 602 } __attribute__ ((gcc_struct));
 603 int importType;
 604 } __attribute__ ((gcc_struct));
 605
 606 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_ModuleImport;
 607
 608 struct ModuleImport;
 609
 610 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_ClassImport;
 611
 612 struct ClassImport;
 613
 614 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Symbol;
 615
 616 struct Symbol
 617 {
 618 char *  string;
 619 struct Symbol * parent;
 620 struct Symbol * left;
 621 struct Symbol * right;
 622 int depth;
 623 struct Type * type;
 624 union
 625 {
 626 struct __ecereNameSpace__ecere__com__Method * method;
 627 struct __ecereNameSpace__ecere__com__Property * _property;
 628 struct __ecereNameSpace__ecere__com__Class * registered;
 629 } __attribute__ ((gcc_struct));
 630 int id;
 631 int idCode;
 632 union
 633 {
 634 struct
 635 {
 636 struct External * pointerExternal;
 637 struct External * structExternal;
 638 } __attribute__ ((gcc_struct));
 639 struct
 640 {
 641 struct External * externalGet;
 642 struct External * externalSet;
 643 struct External * externalPtr;
 644 struct External * externalIsSet;
 645 } __attribute__ ((gcc_struct));
 646 struct
 647 {
 648 struct External * methodExternal;
 649 struct External * methodCodeExternal;
 650 } __attribute__ ((gcc_struct));
 651 } __attribute__ ((gcc_struct));
 652 unsigned int imported;
 653 unsigned int declaredStructSym;
 654 struct __ecereNameSpace__ecere__com__Class * _class;
 655 unsigned int declaredStruct;
 656 unsigned int needConstructor;
 657 unsigned int needDestructor;
 658 char *  constructorName;
 659 char *  structName;
 660 char *  className;
 661 char *  destructorName;
 662 struct ModuleImport * module;
 663 struct ClassImport * _import;
 664 struct Location nameLoc;
 665 unsigned int isParam;
 666 unsigned int isRemote;
 667 unsigned int isStruct;
 668 unsigned int fireWatchersDone;
 669 int declaring;
 670 unsigned int classData;
 671 unsigned int isStatic;
 672 char *  shortName;
 673 struct __ecereNameSpace__ecere__sys__OldList *  templateParams;
 674 struct __ecereNameSpace__ecere__sys__OldList templatedClasses;
 675 struct Context * ctx;
 676 int isIterator;
 677 struct Expression * propCategory;
 678 } __attribute__ ((gcc_struct));
 679
 680 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Type;
 681
 682 struct Type
 683 {
 684 struct Type * prev;
 685 struct Type * next;
 686 int refCount;
 687 union
 688 {
 689 struct Symbol * _class;
 690 struct
 691 {
 692 struct __ecereNameSpace__ecere__sys__OldList members;
 693 char *  enumName;
 694 } __attribute__ ((gcc_struct));
 695 struct
 696 {
 697 struct Type * returnType;
 698 struct __ecereNameSpace__ecere__sys__OldList params;
 699 struct Symbol * thisClass;
 700 unsigned int staticMethod;
 701 struct TemplateParameter * thisClassTemplate;
 702 } __attribute__ ((gcc_struct));
 703 struct
 704 {
 705 struct __ecereNameSpace__ecere__com__Method * method;
 706 struct __ecereNameSpace__ecere__com__Class * methodClass;
 707 struct __ecereNameSpace__ecere__com__Class * usedClass;
 708 } __attribute__ ((gcc_struct));
 709 struct
 710 {
 711 struct Type * arrayType;
 712 int arraySize;
 713 struct Expression * arraySizeExp;
 714 unsigned int freeExp;
 715 struct Symbol * enumClass;
 716 } __attribute__ ((gcc_struct));
 717 struct Type * type;
 718 struct TemplateParameter * templateParameter;
 719 } __attribute__ ((gcc_struct));
 720 int kind;
 721 unsigned int size;
 722 char *  name;
 723 char *  typeName;
 724 int classObjectType;
 725 int alignment;
 726 unsigned int offset;
 727 int bitFieldCount;
 728 int count;
 729 unsigned int isSigned : 1;
 730 unsigned int constant : 1;
 731 unsigned int truth : 1;
 732 unsigned int byReference : 1;
 733 unsigned int extraParam : 1;
 734 unsigned int directClassAccess : 1;
 735 unsigned int computing : 1;
 736 unsigned int keepCast : 1;
 737 unsigned int passAsTemplate : 1;
 738 unsigned int dllExport : 1;
 739 unsigned int attrStdcall : 1;
 740 unsigned int declaredWithStruct : 1;
 741 unsigned int typedByReference : 1;
 742 } __attribute__ ((gcc_struct));
 743
 744 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__Class;
 745
 746 struct __ecereNameSpace__ecere__com__Class
 747 {
 748 struct __ecereNameSpace__ecere__com__Class * prev;
 749 struct __ecereNameSpace__ecere__com__Class * next;
 750 char *  name;
 751 int offset;
 752 int structSize;
 753 int (* *  _vTbl)();
 754 int vTblSize;
 755 int (*  Constructor)(struct __ecereNameSpace__ecere__com__Instance *);
 756 void (*  Destructor)(struct __ecereNameSpace__ecere__com__Instance *);
 757 int offsetClass;
 758 int sizeClass;
 759 struct __ecereNameSpace__ecere__com__Class * base;
 760 struct __ecereNameSpace__ecere__sys__BinaryTree methods;
 761 struct __ecereNameSpace__ecere__sys__BinaryTree members;
 762 struct __ecereNameSpace__ecere__sys__BinaryTree prop;
 763 struct __ecereNameSpace__ecere__sys__OldList membersAndProperties;
 764 struct __ecereNameSpace__ecere__sys__BinaryTree classProperties;
 765 struct __ecereNameSpace__ecere__sys__OldList derivatives;
 766 int memberID;
 767 int startMemberID;
 768 int type;
 769 struct __ecereNameSpace__ecere__com__Instance * module;
 770 struct __ecereNameSpace__ecere__com__NameSpace *  nameSpace;
 771 char *  dataTypeString;
 772 struct Type * dataType;
 773 int typeSize;
 774 int defaultAlignment;
 775 void (*  Initialize)();
 776 int memberOffset;
 777 struct __ecereNameSpace__ecere__sys__OldList selfWatchers;
 778 char *  designerClass;
 779 unsigned int noExpansion;
 780 char *  defaultProperty;
 781 unsigned int comRedefinition;
 782 int count;
 783 int isRemote;
 784 unsigned int internalDecl;
 785 void *  data;
 786 unsigned int computeSize;
 787 int structAlignment;
 788 int destructionWatchOffset;
 789 unsigned int fixed;
 790 struct __ecereNameSpace__ecere__sys__OldList delayedCPValues;
 791 int inheritanceAccess;
 792 char *  fullName;
 793 void *  symbol;
 794 struct __ecereNameSpace__ecere__sys__OldList conversions;
 795 struct __ecereNameSpace__ecere__sys__OldList templateParams;
 796 struct __ecereNameSpace__ecere__com__ClassTemplateArgument *  templateArgs;
 797 struct __ecereNameSpace__ecere__com__Class * templateClass;
 798 struct __ecereNameSpace__ecere__sys__OldList templatized;
 799 int numParams;
 800 unsigned int isInstanceClass;
 801 unsigned int byValueSystemClass;
 802 } __attribute__ ((gcc_struct));
 803
 804 extern long long __ecereNameSpace__ecere__com__eClass_GetProperty(struct __ecereNameSpace__ecere__com__Class * _class, char *  name);
 805
 806 extern void __ecereNameSpace__ecere__com__eInstance_FireSelfWatchers(struct __ecereNameSpace__ecere__com__Instance * instance, struct __ecereNameSpace__ecere__com__Property * _property);
 807
 808 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__Instance;
 809
 810 struct __ecereNameSpace__ecere__com__Instance
 811 {
 812 int (* *  _vTbl)();
 813 struct __ecereNameSpace__ecere__com__Class * _class;
 814 int _refCount;
 815 } __attribute__ ((gcc_struct));
 816
 817 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__DataMember;
 818
 819 struct __ecereNameSpace__ecere__com__DataMember
 820 {
 821 struct __ecereNameSpace__ecere__com__DataMember * prev;
 822 struct __ecereNameSpace__ecere__com__DataMember * next;
 823 char *  name;
 824 unsigned int isProperty;
 825 int memberAccess;
 826 int id;
 827 struct __ecereNameSpace__ecere__com__Class * _class;
 828 char *  dataTypeString;
 829 struct __ecereNameSpace__ecere__com__Class * dataTypeClass;
 830 struct Type * dataType;
 831 int type;
 832 int offset;
 833 int memberID;
 834 struct __ecereNameSpace__ecere__sys__OldList members;
 835 struct __ecereNameSpace__ecere__sys__BinaryTree membersAlpha;
 836 int memberOffset;
 837 int structAlignment;
 838 } __attribute__ ((gcc_struct));
 839
 840 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__SerialBuffer;
 841
 842 struct __ecereNameSpace__ecere__com__SerialBuffer
 843 {
 844 unsigned char *  _buffer;
 845 unsigned int count;
 846 unsigned int _size;
 847 unsigned int pos;
 848 } __attribute__ ((gcc_struct));
 849
 850 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__ClassTemplateArgument;
 851
 852 struct __ecereNameSpace__ecere__com__ClassTemplateArgument
 853 {
 854 union
 855 {
 856 struct
 857 {
 858 char *  dataTypeString;
 859 struct __ecereNameSpace__ecere__com__Class * dataTypeClass;
 860 } __attribute__ ((gcc_struct));
 861 struct __ecereNameSpace__ecere__com__DataValue expression;
 862 struct
 863 {
 864 char *  memberString;
 865 union
 866 {
 867 struct __ecereNameSpace__ecere__com__DataMember * member;
 868 struct __ecereNameSpace__ecere__com__Property * prop;
 869 struct __ecereNameSpace__ecere__com__Method * method;
 870 } __attribute__ ((gcc_struct));
 871 } __attribute__ ((gcc_struct));
 872 } __attribute__ ((gcc_struct));
 873 } __attribute__ ((gcc_struct));
 874
 875 enum yytokentype
 876 {
 877 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
 878 };
 879
 880 typedef union YYSTYPE
 881 {
 882 int specifierType;
 883 int i;
 884 int declMode;
 885 struct Identifier * id;
 886 struct Expression * exp;
 887 struct Specifier * specifier;
 888 struct __ecereNameSpace__ecere__sys__OldList * list;
 889 struct Enumerator * enumerator;
 890 struct Declarator * declarator;
 891 struct Pointer * pointer;
 892 struct Initializer * initializer;
 893 struct InitDeclarator * initDeclarator;
 894 struct TypeName * typeName;
 895 struct Declaration * declaration;
 896 struct Statement * stmt;
 897 struct FunctionDefinition * function;
 898 struct External * external;
 899 struct Context * context;
 900 struct AsmField * asmField;
 901 struct Attrib * attrib;
 902 struct ExtDecl * extDecl;
 903 struct Attribute * attribute;
 904 struct Instantiation * instance;
 905 struct MembersInit * membersInit;
 906 struct MemberInit * memberInit;
 907 struct ClassFunction * classFunction;
 908 struct ClassDefinition * _class;
 909 struct ClassDef * classDef;
 910 struct PropertyDef * prop;
 911 char * string;
 912 struct Symbol * symbol;
 913 struct PropertyWatch * propertyWatch;
 914 struct TemplateParameter * templateParameter;
 915 struct TemplateArgument * templateArgument;
 916 struct TemplateDatatype * templateDatatype;
 917 struct DBTableEntry * dbtableEntry;
 918 struct DBIndexItem * dbindexItem;
 919 struct DBTableDef * dbtableDef;
 920 } __attribute__ ((gcc_struct)) YYSTYPE;
 921
 922 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Enumerator;
 923
 924 struct Enumerator
 925 {
 926 struct Enumerator * prev;
 927 struct Enumerator * next;
 928 struct Location loc;
 929 struct Identifier * id;
 930 struct Expression * exp;
 931 } __attribute__ ((gcc_struct));
 932
 933 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_InitDeclarator;
 934
 935 struct InitDeclarator
 936 {
 937 struct InitDeclarator * prev;
 938 struct InitDeclarator * next;
 939 struct Location loc;
 940 struct Declarator * declarator;
 941 struct Initializer * initializer;
 942 } __attribute__ ((gcc_struct));
 943
 944 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_AsmField;
 945
 946 struct AsmField
 947 {
 948 struct AsmField * prev;
 949 struct AsmField * next;
 950 struct Location loc;
 951 char *  command;
 952 struct Expression * expression;
 953 struct Identifier * symbolic;
 954 } __attribute__ ((gcc_struct));
 955
 956 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Attribute;
 957
 958 struct Attribute;
 959
 960 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_ClassFunction;
 961
 962 struct ClassFunction;
 963
 964 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_MembersInit;
 965
 966 struct MembersInit;
 967
 968 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_MemberInit;
 969
 970 struct MemberInit;
 971
 972 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_PropertyDef;
 973
 974 struct PropertyDef;
 975
 976 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_PropertyWatch;
 977
 978 struct PropertyWatch;
 979
 980 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_ClassDef;
 981
 982 struct ClassDef
 983 {
 984 struct ClassDef * prev;
 985 struct ClassDef * next;
 986 struct Location loc;
 987 int type;
 988 union
 989 {
 990 struct Declaration * decl;
 991 struct ClassFunction * function;
 992 struct __ecereNameSpace__ecere__sys__OldList *  defProperties;
 993 struct PropertyDef * propertyDef;
 994 struct PropertyWatch * propertyWatch;
 995 char *  designer;
 996 struct Identifier * defaultProperty;
 997 struct
 998 {
 999 struct Identifier * id;
1000 struct Initializer * initializer;
1001 } __attribute__ ((gcc_struct));
1002 } __attribute__ ((gcc_struct));
1003 int memberAccess;
1004 void *  object;
1005 } __attribute__ ((gcc_struct));
1006
1007 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_DBTableEntry;
1008
1009 struct DBTableEntry;
1010
1011 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_DBIndexItem;
1012
1013 struct DBIndexItem;
1014
1015 extern YYSTYPE yylval;
1016
1017 extern struct Location yylloc;
1018
1019 extern struct External * curExternal;
1020
1021 extern struct __ecereNameSpace__ecere__sys__OldList *  MkList(void);
1022
1023 extern struct Declarator * SpecDeclFromString(char *  string, struct __ecereNameSpace__ecere__sys__OldList *  specs, struct Declarator * baseDecl);
1024
1025 extern struct Specifier * CopySpecifier(struct Specifier * spec);
1026
1027 extern void FreeList(struct __ecereNameSpace__ecere__sys__OldList * list, void (*  FreeFunction)(void * ));
1028
1029 extern void FreeSpecifier(struct Specifier * spec);
1030
1031 extern void FreeDeclarator(struct Declarator * decl);
1032
1033 extern char *  __ecereNameSpace__ecere__sys__CopyString(char *  string);
1034
1035 extern struct Symbol * FindClass(char *  name);
1036
1037 extern void FreeSpecifierContents(struct Specifier * spec);
1038
1039 extern void FullClassNameCat(char *  output, char *  className, unsigned int includeTemplateParams);
1040
1041 extern struct Identifier * MkIdentifier(char *  string);
1042
1043 extern int strcmp(const char * , const char * );
1044
1045 extern struct Type * ProcessTypeString(char *  string, unsigned int staticMethod);
1046
1047 static int ReplaceClassSpec(struct __ecereNameSpace__ecere__sys__OldList * specs, struct Specifier * spec, unsigned int param)
1048 {
1049 if(spec->type == 8)
1050 {
1051 struct TemplateParameter * parameter = spec->templateParameter;
1052
1053 if(!param && parameter->dataTypeString)
1054 {
1055 struct __ecereNameSpace__ecere__sys__OldList * newSpecs = MkList();
1056 struct Declarator * decl = SpecDeclFromString(parameter->dataTypeString, newSpecs, (((void *)0)));
1057
1058 if((*newSpecs).first)
1059 {
1060 struct Specifier * newSpec = CopySpecifier((*newSpecs).first);
1061
1062 *spec = *newSpec;
1063 ((newSpec ? (__ecereClass_Specifier->Destructor ? __ecereClass_Specifier->Destructor(newSpec) : 0, __ecereNameSpace__ecere__com__eSystem_Delete(newSpec)) : 0), newSpec = 0);
1064 }
1065 FreeList(newSpecs, FreeSpecifier);
1066 if(decl)
1067 {
1068 unsigned int isPointer = decl->type == 5;
1069
1070 if(decl)
1071 FreeDeclarator(decl);
1072 if(isPointer)
1073 return 1;
1074 }
1075 }
1076 else if(!param && parameter->dataType)
1077 {
1078 struct __ecereNameSpace__ecere__sys__OldList * newSpecs = parameter->dataType->specifiers;
1079 struct Declarator * decl = parameter->dataType->decl;
1080
1081 if((*newSpecs).first)
1082 {
1083 struct Specifier * newSpec = CopySpecifier((*newSpecs).first);
1084
1085 *spec = *newSpec;
1086 ((newSpec ? (__ecereClass_Specifier->Destructor ? __ecereClass_Specifier->Destructor(newSpec) : 0, __ecereNameSpace__ecere__com__eSystem_Delete(newSpec)) : 0), newSpec = 0);
1087 }
1088 if(decl)
1089 {
1090 unsigned int isPointer = decl->type == 5;
1091
1092 if(isPointer)
1093 return 1;
1094 }
1095 }
1096 else
1097 {
1098 spec->type = 1;
1099 spec->name = __ecereNameSpace__ecere__sys__CopyString("uint64");
1100 spec->symbol = FindClass("uint64");
1101 }
1102 }
1103 if(spec->type == 1 || spec->type == 7)
1104 {
1105 struct Symbol * classSym = spec->symbol;
1106
1107 if(spec->type == 7)
1108 {
1109 classSym = FindClass("ecere::com::Class");
1110 }
1111 if(classSym)
1112 {
1113 struct __ecereNameSpace__ecere__com__Class * _class = classSym->registered;
1114
1115 FreeSpecifierContents(spec);
1116 spec->type = 1;
1117 if(_class && _class->type == 1)
1118 {
1119 char name[1024];
1120
1121 name[0] = (char)0;
1122 FullClassNameCat(name, _class->fullName, 0x0);
1123 FreeSpecifierContents(spec);
1124 spec->type = 3;
1125 spec->baseSpecs = (((void *)0));
1126 spec->id = MkIdentifier(name);
1127 spec->list = (((void *)0));
1128 spec->definitions = (((void *)0));
1129 spec->ctx = (((void *)0));
1130 spec->addNameSpace = 0x0;
1131 }
1132 else if(_class && _class->type == 5)
1133 {
1134 char name[1024] = "";
1135
1136 FullClassNameCat(name, _class->fullName, 0x0);
1137 spec->type = 3;
1138 spec->baseSpecs = (((void *)0));
1139 spec->id = MkIdentifier(name);
1140 spec->list = (((void *)0));
1141 spec->definitions = (((void *)0));
1142 spec->ctx = (((void *)0));
1143 spec->addNameSpace = 0x0;
1144 }
1145 else if(_class)
1146 {
1147 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")))
1148 {
1149 if(_class->dataTypeString)
1150 {
1151 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"))
1152 {
1153 if(!_class->dataType)
1154 _class->dataType = ProcessTypeString(_class->dataTypeString, 0x0);
1155 if(_class->dataType && _class->dataType->kind == 8)
1156 classSym = _class->dataType->_class;
1157 else
1158 classSym = FindClass(_class->dataTypeString);
1159 _class = classSym ? classSym->registered : (((void *)0));
1160 }
1161 spec->name = __ecereNameSpace__ecere__sys__CopyString(!strcmp(_class->dataTypeString, "char *") ? "char" : _class->dataTypeString);
1162 spec->symbol = (((void *)0));
1163 }
1164 else
1165 {
1166 spec->name = __ecereNameSpace__ecere__sys__CopyString((((void *)0)));
1167 spec->symbol = (((void *)0));
1168 }
1169 }
1170 else if(!_class->base)
1171 {
1172 spec->type = 0;
1173 spec->specifier = VOID;
1174 return 1;
1175 }
1176 }
1177 else
1178 {
1179 spec->type = 3;
1180 spec->id = MkIdentifier("__ecereNameSpace__ecere__com__Instance");
1181 spec->list = (((void *)0));
1182 spec->baseSpecs = (((void *)0));
1183 spec->definitions = (((void *)0));
1184 spec->ctx = (((void *)0));
1185 spec->addNameSpace = 0x0;
1186 }
1187 if(_class && _class->dataTypeString && !strcmp(_class->dataTypeString, "char *"))
1188 return 1;
1189 if(!_class || _class->type == 0 || _class->type == 5)
1190 return 1;
1191 else if(param && _class->type == 1)
1192 return 2;
1193 }
1194 }
1195 else if(spec->type == 0)
1196 {
1197 if(spec->specifier == ANY_OBJECT)
1198 {
1199 spec->specifier = VOID;
1200 return 1;
1201 }
1202 }
1203 return 0;
1204 }
1205
1206 extern struct Pointer * MkPointer(struct __ecereNameSpace__ecere__sys__OldList * qualifiers, struct Pointer * pointer);
1207
1208 extern void *  __ecereNameSpace__ecere__com__eInstance_New(struct __ecereNameSpace__ecere__com__Class * _class);
1209
1210 static void ReplaceByInstancePtr(struct Specifier * spec, struct Declarator ** declPtr, int type)
1211 {
1212 struct Declarator * decl = *declPtr;
1213
1214 if(decl && decl->type == 5)
1215 {
1216 if(type == 2)
1217 ;
1218 else
1219 decl->pointer.pointer = MkPointer((((void *)0)), decl->pointer.pointer);
1220 }
1221 else
1222 {
1223 struct Declarator * newDecl = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_Declarator);
1224
1225 if(decl)
1226 {
1227 *newDecl = *decl;
1228 decl->declarator = newDecl;
1229 }
1230 else
1231 decl = newDecl;
1232 decl->type = 5;
1233 decl->pointer.pointer = MkPointer((((void *)0)), (((void *)0)));
1234 *declPtr = decl;
1235 }
1236 }
1237
1238 extern struct ExtDecl * MkExtDeclString(char * s);
1239
1240 static void InstDeclPassDeclaration(struct Declaration * decl);
1241
1242 static void InstDeclPassIdentifier(struct Identifier * id);
1243
1244 extern int targetPlatform;
1245
1246 static void InstDeclPassSpecifier(struct Specifier * spec)
1247 {
1248 switch(spec->type)
1249 {
1250 case 0:
1251 if(spec->specifier == TYPED_OBJECT)
1252 {
1253 spec->type = 5;
1254 spec->extDecl = MkExtDeclString(__ecereNameSpace__ecere__sys__CopyString("struct __ecereNameSpace__ecere__com__Class * class, void *"));
1255 }
1256 break;
1257 case 1:
1258 break;
1259 case 2:
1260 {
1261 struct Enumerator * e;
1262
1263 if(spec->list)
1264 {
1265 for(e = (*spec->list).first; e; e = e->next)
1266 {
1267 }
1268 }
1269 break;
1270 }
1271 case 3:
1272 case 4:
1273 {
1274 if(spec->definitions)
1275 {
1276 struct ClassDef * def;
1277
1278 for(def = (*spec->definitions).first; def; def = def->next)
1279 if(def->decl)
1280 InstDeclPassDeclaration(def->decl);
1281 }
1282 if(spec->id)
1283 InstDeclPassIdentifier(spec->id);
1284 break;
1285 }
1286 case 5:
1287 if(spec->extDecl && spec->extDecl->type == 0 && spec->extDecl->s)
1288 {
1289 if(!strcmp(spec->extDecl->s, "dllexport"))
1290 {
1291 struct Specifier * prevSpec;
1292
1293 (__ecereNameSpace__ecere__com__eSystem_Delete(spec->extDecl->s), spec->extDecl->s = 0);
1294 for(prevSpec = spec->prev; prevSpec; prevSpec = prevSpec->prev)
1295 if(prevSpec->type == 0 && prevSpec->specifier == EXTERN)
1296 break;
1297 if(prevSpec)
1298 {
1299 if(targetPlatform == 1)
1300 spec->extDecl->s = __ecereNameSpace__ecere__sys__CopyString("__declspec(dllexport)");
1301 else
1302 spec->extDecl->s = __ecereNameSpace__ecere__sys__CopyString("__attribute__ ((visibility(\"default\")))");
1303 }
1304 else
1305 {
1306 if(targetPlatform == 1)
1307 spec->extDecl->s = __ecereNameSpace__ecere__sys__CopyString("extern __declspec(dllexport)");
1308 else
1309 spec->extDecl->s = __ecereNameSpace__ecere__sys__CopyString("extern __attribute__ ((visibility(\"default\")))");
1310 }
1311 }
1312 else if(!strcmp(spec->extDecl->s, "stdcall") || !strcmp(spec->extDecl->s, "_stdcall") || !strcmp(spec->extDecl->s, "__stdcall") || !strcmp(spec->extDecl->s, "__stdcall__"))
1313 {
1314 (__ecereNameSpace__ecere__com__eSystem_Delete(spec->extDecl->s), spec->extDecl->s = 0);
1315 if(targetPlatform == 1)
1316 spec->extDecl->s = __ecereNameSpace__ecere__sys__CopyString("__attribute__((__stdcall__))");
1317 else
1318 spec->extDecl->s = __ecereNameSpace__ecere__sys__CopyString("");
1319 }
1320 }
1321 break;
1322 }
1323 }
1324
1325 void InstDeclPassTypeName(struct TypeName * type, unsigned int param);
1326
1327 extern struct __ecereNameSpace__ecere__sys__OldList *  MkListOne(void *  item);
1328
1329 extern struct Specifier * MkStructOrUnion(int type, struct Identifier * id, struct __ecereNameSpace__ecere__sys__OldList * definitions);
1330
1331 extern struct Declarator * MkDeclaratorPointer(struct Pointer * pointer, struct Declarator * declarator);
1332
1333 extern struct Declarator * MkDeclaratorIdentifier(struct Identifier * id);
1334
1335 unsigned int __ecereMethod___ecereNameSpace__ecere__sys__OldList_Insert(struct __ecereNameSpace__ecere__sys__OldList * this, void *  prevItem, void *  item);
1336
1337 static void InstDeclPassDeclarator(struct Declarator * decl)
1338 {
1339 switch(decl->type)
1340 {
1341 case 0:
1342 if(decl->declarator)
1343 InstDeclPassDeclarator(decl->declarator);
1344 break;
1345 case 1:
1346 {
1347 if(decl->identifier)
1348 InstDeclPassIdentifier(decl->identifier);
1349 break;
1350 }
1351 case 2:
1352 if(decl->declarator)
1353 InstDeclPassDeclarator(decl->declarator);
1354 break;
1355 case 3:
1356 if(decl->declarator)
1357 InstDeclPassDeclarator(decl->declarator);
1358 break;
1359 case 4:
1360 {
1361 if(decl->declarator)
1362 InstDeclPassDeclarator(decl->declarator);
1363 if(decl->function.parameters)
1364 {
1365 struct TypeName * type;
1366
1367 if(decl->declarator)
1368 InstDeclPassDeclarator(decl->declarator);
1369 for(type = (*decl->function.parameters).first; type; type = type->next)
1370 {
1371 unsigned int typedObject = 0x0;
1372 struct Specifier * spec = (((void *)0));
1373
1374 if(type->qualifiers)
1375 {
1376 spec = (struct Specifier *)(*type->qualifiers).first;
1377 if(spec && spec->type == 1 && !strcmp(spec->name, "class"))
1378 typedObject = 0x1;
1379 }
1380 InstDeclPassTypeName(type, 0x1);
1381 if(typedObject)
1382 {
1383 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);
1384
1385 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Insert((&*decl->function.parameters), spec->prev, _class);
1386 }
1387 }
1388 }
1389 break;
1390 }
1391 case 5:
1392 case 6:
1393 case 7:
1394 if((decl->type == 6 || decl->type == 7) && decl->extended.extended)
1395 {
1396 if(decl->extended.extended->type == 0 && decl->extended.extended->s && !strcmp(decl->extended.extended->s, "dllexport"))
1397 {
1398 (__ecereNameSpace__ecere__com__eSystem_Delete(decl->extended.extended->s), decl->extended.extended->s = 0);
1399 if(targetPlatform == 1)
1400 decl->extended.extended->s = __ecereNameSpace__ecere__sys__CopyString("extern __declspec(dllexport)");
1401 else
1402 decl->extended.extended->s = __ecereNameSpace__ecere__sys__CopyString("extern __attribute__ ((visibility(\"default\")))");
1403 }
1404 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__")))
1405 {
1406 (__ecereNameSpace__ecere__com__eSystem_Delete(decl->extended.extended->s), decl->extended.extended->s = 0);
1407 if(targetPlatform == 1)
1408 decl->extended.extended->s = __ecereNameSpace__ecere__sys__CopyString("__attribute__((__stdcall__))");
1409 else
1410 decl->extended.extended->s = __ecereNameSpace__ecere__sys__CopyString("");
1411 }
1412 }
1413 if(decl->declarator)
1414 InstDeclPassDeclarator(decl->declarator);
1415 break;
1416 }
1417 }
1418
1419 void InstDeclPassTypeName(struct TypeName * type, unsigned int param)
1420 {
1421 if(type->qualifiers)
1422 {
1423 struct Specifier * spec;
1424
1425 for(spec = (*type->qualifiers).first; spec; spec = spec->next)
1426 {
1427 int result;
1428
1429 if((result = ReplaceClassSpec(type->qualifiers, spec, param)))
1430 ReplaceByInstancePtr(spec, &type->declarator, result);
1431 else
1432 {
1433 struct Symbol * classSym = (spec->type == 1) ? spec->symbol : (((void *)0));
1434
1435 if(type->classObjectType && (!classSym || (classSym && classSym->registered && (classSym->registered->type == 4 || classSym->registered->type == 2 || classSym->registered->type == 3))))
1436 ReplaceByInstancePtr(spec, &type->declarator, 2);
1437 }
1438 InstDeclPassSpecifier(spec);
1439 }
1440 }
1441 if(type->declarator)
1442 InstDeclPassDeclarator(type->declarator);
1443 }
1444
1445 extern char *  strchr(const char * , int);
1446
1447 extern char *  strcpy(char * , const char * );
1448
1449 extern size_t strlen(const char * );
1450
1451 static void InstDeclPassIdentifier(struct Identifier * id)
1452 {
1453 if(strchr(id->string, ':'))
1454 {
1455 char newID[1024];
1456 int c;
1457 char ch;
1458 int len;
1459
1460 strcpy(newID, "__ecereNameSpace__");
1461 len = strlen(newID);
1462 for(c = 0; (ch = id->string[c]); c++)
1463 {
1464 if(ch == ':')
1465 ch = '_';
1466 newID[len++] = ch;
1467 }
1468 newID[len] = (char)0;
1469 (__ecereNameSpace__ecere__com__eSystem_Delete(id->string), id->string = 0);
1470 id->string = __ecereNameSpace__ecere__sys__CopyString(newID);
1471 }
1472 }
1473
1474 extern void FreeExpContents(struct Expression * exp);
1475
1476 extern void FreeType(struct Type * type);
1477
1478 static void InstDeclPassStatement(struct Statement * stmt);
1479
1480 static void InstDeclPassInitializer(struct Initializer * init);
1481
1482 static void InstDeclPassExpression(struct Expression * exp)
1483 {
1484 switch(exp->type)
1485 {
1486 case 0:
1487 {
1488 if(exp->identifier)
1489 InstDeclPassIdentifier(exp->identifier);
1490 break;
1491 }
1492 case 2:
1493 break;
1494 case 3:
1495 break;
1496 case 4:
1497 if(exp->op.exp1)
1498 InstDeclPassExpression(exp->op.exp1);
1499 if(exp->op.exp2)
1500 InstDeclPassExpression(exp->op.exp2);
1501 break;
1502 case 32:
1503 case 5:
1504 {
1505 struct Expression * e;
1506
1507 for(e = (*exp->list).first; e; e = e->next)
1508 InstDeclPassExpression(e);
1509 break;
1510 }
1511 case 6:
1512 {
1513 struct Expression * e;
1514
1515 InstDeclPassExpression(exp->index.exp);
1516 for(e = (*exp->index.index).first; e; e = e->next)
1517 InstDeclPassExpression(e);
1518 break;
1519 }
1520 case 7:
1521 {
1522 struct Expression * e;
1523
1524 InstDeclPassExpression(exp->call.exp);
1525 if(exp->call.arguments)
1526 {
1527 for(e = (*exp->call.arguments).first; e; e = e->next)
1528 InstDeclPassExpression(e);
1529 }
1530 break;
1531 }
1532 case 8:
1533 {
1534 if(exp->member.exp)
1535 InstDeclPassExpression(exp->member.exp);
1536 break;
1537 }
1538 case 9:
1539 {
1540 if(exp->member.exp)
1541 InstDeclPassExpression(exp->member.exp);
1542 break;
1543 }
1544 case 10:
1545 InstDeclPassTypeName(exp->typeName, 0x0);
1546 break;
1547 case 11:
1548 {
1549 struct Type * type = exp->expType;
1550
1551 if(type && type->kind == 8 && type->_class->registered && type->_class->registered->type == 1)
1552 {
1553 struct Expression * castExp = exp->cast.exp;
1554 struct Expression * prev = exp->prev, * next = exp->next;
1555
1556 exp->cast.exp = (((void *)0));
1557 FreeExpContents(exp);
1558 FreeType(exp->expType);
1559 FreeType(exp->destType);
1560 *exp = *castExp;
1561 ((castExp ? (__ecereClass_Expression->Destructor ? __ecereClass_Expression->Destructor(castExp) : 0, __ecereNameSpace__ecere__com__eSystem_Delete(castExp)) : 0), castExp = 0);
1562 exp->prev = prev;
1563 exp->next = next;
1564 InstDeclPassExpression(exp);
1565 }
1566 else
1567 {
1568 InstDeclPassTypeName(exp->cast.typeName, 0x0);
1569 if(exp->cast.exp)
1570 InstDeclPassExpression(exp->cast.exp);
1571 }
1572 break;
1573 }
1574 case 12:
1575 {
1576 struct Expression * e;
1577
1578 InstDeclPassExpression(exp->cond.cond);
1579 for(e = (*exp->cond.exp).first; e; e = e->next)
1580 InstDeclPassExpression(e);
1581 InstDeclPassExpression(exp->cond.elseExp);
1582 break;
1583 }
1584 case 23:
1585 {
1586 InstDeclPassStatement(exp->compound);
1587 break;
1588 }
1589 case 34:
1590 {
1591 InstDeclPassExpression(exp->vaArg.exp);
1592 break;
1593 }
1594 case 33:
1595 {
1596 InstDeclPassTypeName(exp->initializer.typeName, 0x0);
1597 InstDeclPassInitializer(exp->initializer.initializer);
1598 break;
1599 }
1600 }
1601 }
1602
1603 static void InstDeclPassInitializer(struct Initializer * init)
1604 {
1605 switch(init->type)
1606 {
1607 case 0:
1608 if(init->exp)
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 = 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 = 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 if(stmt->switchStmt.exp)
1770 {
1771 for(exp = (*stmt->switchStmt.exp).first; exp; exp = exp->next)
1772 InstDeclPassExpression(exp);
1773 }
1774 InstDeclPassStatement(stmt->switchStmt.stmt);
1775 break;
1776 }
1777 case 6:
1778 {
1779 struct Expression * exp;
1780
1781 if(stmt->whileStmt.exp)
1782 {
1783 for(exp = (*stmt->whileStmt.exp).first; exp; exp = exp->next)
1784 InstDeclPassExpression(exp);
1785 }
1786 InstDeclPassStatement(stmt->whileStmt.stmt);
1787 break;
1788 }
1789 case 7:
1790 {
1791 if(stmt->doWhile.exp)
1792 {
1793 struct Expression * exp;
1794
1795 for(exp = (*stmt->doWhile.exp).first; exp; exp = exp->next)
1796 InstDeclPassExpression(exp);
1797 }
1798 if(stmt->doWhile.stmt)
1799 InstDeclPassStatement(stmt->doWhile.stmt);
1800 break;
1801 }
1802 case 8:
1803 {
1804 struct Expression * exp;
1805
1806 if(stmt->forStmt.init)
1807 InstDeclPassStatement(stmt->forStmt.init);
1808 if(stmt->forStmt.check)
1809 InstDeclPassStatement(stmt->forStmt.check);
1810 if(stmt->forStmt.increment)
1811 {
1812 for(exp = (*stmt->forStmt.increment).first; exp; exp = exp->next)
1813 InstDeclPassExpression(exp);
1814 }
1815 if(stmt->forStmt.stmt)
1816 InstDeclPassStatement(stmt->forStmt.stmt);
1817 break;
1818 }
1819 case 9:
1820 break;
1821 case 10:
1822 break;
1823 case 11:
1824 break;
1825 case 12:
1826 {
1827 struct Expression * exp;
1828
1829 if(stmt->expressions)
1830 {
1831 for(exp = (*stmt->expressions).first; exp; exp = exp->next)
1832 InstDeclPassExpression(exp);
1833 }
1834 break;
1835 }
1836 case 13:
1837 {
1838 struct AsmField * field;
1839
1840 if(stmt->asmStmt.inputFields)
1841 {
1842 for(field = (*stmt->asmStmt.inputFields).first; field; field = field->next)
1843 if(field->expression)
1844 InstDeclPassExpression(field->expression);
1845 }
1846 if(stmt->asmStmt.outputFields)
1847 {
1848 for(field = (*stmt->asmStmt.outputFields).first; field; field = field->next)
1849 if(field->expression)
1850 InstDeclPassExpression(field->expression);
1851 }
1852 if(stmt->asmStmt.clobberedFields)
1853 {
1854 for(field = (*stmt->asmStmt.clobberedFields).first; field; field = field->next)
1855 if(field->expression)
1856 InstDeclPassExpression(field->expression);
1857 }
1858 break;
1859 }
1860 }
1861 }
1862
1863 extern struct Context * globalContext;
1864
1865 extern struct __ecereNameSpace__ecere__sys__OldList *  ast;
1866
1867 void ProcessInstanceDeclarations()
1868 {
1869 struct External * external;
1870
1871 curContext = globalContext;
1872 for(external = (*ast).first; external; external = external->next)
1873 {
1874 curExternal = external;
1875 if(external->type == 0)
1876 {
1877 struct FunctionDefinition * func = external->function;
1878
1879 if(func->specifiers)
1880 {
1881 struct Specifier * spec;
1882
1883 for(spec = (*func->specifiers).first; spec; spec = spec->next)
1884 {
1885 int type;
1886
1887 if((type = ReplaceClassSpec(func->specifiers, spec, 0x0)))
1888 ReplaceByInstancePtr(spec, &func->declarator, type);
1889 InstDeclPassSpecifier(spec);
1890 }
1891 }
1892 InstDeclPassDeclarator(func->declarator);
1893 if(func->body)
1894 InstDeclPassStatement(func->body);
1895 }
1896 else if(external->type == 1)
1897 {
1898 if(external->declaration)
1899 InstDeclPassDeclaration(external->declaration);
1900 }
1901 }
1902 }
1903
1904 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__GlobalFunction;
1905
1906 struct __ecereNameSpace__ecere__com__GlobalFunction;
1907
1908 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);
1909
1910 void __ecereRegisterModule_pass3(struct __ecereNameSpace__ecere__com__Instance * module)
1911 {
1912 struct __ecereNameSpace__ecere__com__Class * class;
1913
1914 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("InstDeclPassTypeName", "void InstDeclPassTypeName(TypeName type, bool param)", InstDeclPassTypeName, module, 2);
1915 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ProcessInstanceDeclarations", "void ProcessInstanceDeclarations(void)", ProcessInstanceDeclarations, module, 1);
1916 }
1917
1918 void __ecereUnregisterModule_pass3(struct __ecereNameSpace__ecere__com__Instance * module)
1919 {
1920
1921 }
1922