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 struct
 339 {
 340 char *  string;
 341 unsigned int intlString;
 342 } __attribute__ ((gcc_struct));
 343 struct __ecereNameSpace__ecere__sys__OldList *  list;
 344 struct
 345 {
 346 struct __ecereNameSpace__ecere__sys__OldList * specifiers;
 347 struct Declarator * decl;
 348 } __attribute__ ((gcc_struct)) _classExp;
 349 struct
 350 {
 351 struct Identifier * id;
 352 } __attribute__ ((gcc_struct)) classData;
 353 struct
 354 {
 355 struct Expression * exp;
 356 struct __ecereNameSpace__ecere__sys__OldList * arguments;
 357 struct Location argLoc;
 358 } __attribute__ ((gcc_struct)) call;
 359 struct
 360 {
 361 struct Expression * exp;
 362 struct __ecereNameSpace__ecere__sys__OldList * index;
 363 } __attribute__ ((gcc_struct)) index;
 364 struct
 365 {
 366 struct Expression * exp;
 367 struct Identifier * member;
 368 int memberType;
 369 unsigned int thisPtr;
 370 } __attribute__ ((gcc_struct)) member;
 371 struct
 372 {
 373 int op;
 374 struct Expression * exp1;
 375 struct Expression * exp2;
 376 } __attribute__ ((gcc_struct)) op;
 377 struct TypeName * typeName;
 378 struct Specifier * _class;
 379 struct
 380 {
 381 struct TypeName * typeName;
 382 struct Expression * exp;
 383 } __attribute__ ((gcc_struct)) cast;
 384 struct
 385 {
 386 struct Expression * cond;
 387 struct __ecereNameSpace__ecere__sys__OldList * exp;
 388 struct Expression * elseExp;
 389 } __attribute__ ((gcc_struct)) cond;
 390 struct
 391 {
 392 struct TypeName * typeName;
 393 struct Expression * size;
 394 } __attribute__ ((gcc_struct)) _new;
 395 struct
 396 {
 397 struct TypeName * typeName;
 398 struct Expression * size;
 399 struct Expression * exp;
 400 } __attribute__ ((gcc_struct)) _renew;
 401 struct
 402 {
 403 char * table;
 404 struct Identifier * id;
 405 } __attribute__ ((gcc_struct)) db;
 406 struct
 407 {
 408 struct Expression * ds;
 409 struct Expression * name;
 410 } __attribute__ ((gcc_struct)) dbopen;
 411 struct
 412 {
 413 struct TypeName * typeName;
 414 struct Initializer * initializer;
 415 } __attribute__ ((gcc_struct)) initializer;
 416 struct
 417 {
 418 struct Expression * exp;
 419 struct TypeName * typeName;
 420 } __attribute__ ((gcc_struct)) vaArg;
 421 } __attribute__ ((gcc_struct));
 422 unsigned int debugValue;
 423 struct __ecereNameSpace__ecere__com__DataValue val;
 424 uint64 address;
 425 unsigned int hasAddress;
 426 struct Type * expType;
 427 struct Type * destType;
 428 unsigned int usage;
 429 int tempCount;
 430 unsigned int byReference;
 431 unsigned int isConstant;
 432 unsigned int addedThis;
 433 unsigned int needCast;
 434 unsigned int thisPtr;
 435 } __attribute__ ((gcc_struct));
 436
 437 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_TemplateDatatype;
 438
 439 struct TemplateDatatype
 440 {
 441 struct __ecereNameSpace__ecere__sys__OldList *  specifiers;
 442 struct Declarator * decl;
 443 } __attribute__ ((gcc_struct));
 444
 445 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_TemplateArgument;
 446
 447 struct TemplateArgument;
 448
 449 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_TemplateParameter;
 450
 451 struct TemplateParameter
 452 {
 453 struct TemplateParameter * prev;
 454 struct TemplateParameter * next;
 455 struct Location loc;
 456 int type;
 457 struct Identifier * identifier;
 458 union
 459 {
 460 struct TemplateDatatype * dataType;
 461 int memberType;
 462 } __attribute__ ((gcc_struct));
 463 struct TemplateArgument * defaultArgument;
 464 char *  dataTypeString;
 465 struct Type * baseType;
 466 } __attribute__ ((gcc_struct));
 467
 468 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Specifier;
 469
 470 struct Specifier
 471 {
 472 struct Specifier * prev;
 473 struct Specifier * next;
 474 struct Location loc;
 475 int type;
 476 union
 477 {
 478 int specifier;
 479 struct
 480 {
 481 struct ExtDecl * extDecl;
 482 char *  name;
 483 struct Symbol * symbol;
 484 struct __ecereNameSpace__ecere__sys__OldList *  templateArgs;
 485 } __attribute__ ((gcc_struct));
 486 struct
 487 {
 488 struct Identifier * id;
 489 struct __ecereNameSpace__ecere__sys__OldList *  list;
 490 struct __ecereNameSpace__ecere__sys__OldList *  baseSpecs;
 491 struct __ecereNameSpace__ecere__sys__OldList *  definitions;
 492 unsigned int addNameSpace;
 493 struct Context * ctx;
 494 struct ExtDecl * extDeclStruct;
 495 } __attribute__ ((gcc_struct));
 496 struct Expression * expression;
 497 struct Specifier * _class;
 498 struct TemplateParameter * templateParameter;
 499 } __attribute__ ((gcc_struct));
 500 } __attribute__ ((gcc_struct));
 501
 502 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Identifier;
 503
 504 struct Identifier
 505 {
 506 struct Identifier * prev;
 507 struct Identifier * next;
 508 struct Location loc;
 509 struct Symbol * classSym;
 510 struct Specifier * _class;
 511 char *  string;
 512 struct Identifier * badID;
 513 } __attribute__ ((gcc_struct));
 514
 515 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Pointer;
 516
 517 struct Pointer;
 518
 519 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Declarator;
 520
 521 struct Declarator
 522 {
 523 struct Declarator * prev;
 524 struct Declarator * next;
 525 struct Location loc;
 526 int type;
 527 struct Symbol * symbol;
 528 struct Declarator * declarator;
 529 union
 530 {
 531 struct Identifier * identifier;
 532 struct
 533 {
 534 struct Expression * exp;
 535 struct Expression * posExp;
 536 struct Attrib * attrib;
 537 } __attribute__ ((gcc_struct)) structDecl;
 538 struct
 539 {
 540 struct Expression * exp;
 541 struct Specifier * enumClass;
 542 } __attribute__ ((gcc_struct)) array;
 543 struct
 544 {
 545 struct __ecereNameSpace__ecere__sys__OldList * parameters;
 546 } __attribute__ ((gcc_struct)) function;
 547 struct
 548 {
 549 struct Pointer * pointer;
 550 } __attribute__ ((gcc_struct)) pointer;
 551 struct
 552 {
 553 struct ExtDecl * extended;
 554 } __attribute__ ((gcc_struct)) extended;
 555 } __attribute__ ((gcc_struct));
 556 } __attribute__ ((gcc_struct));
 557
 558 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_FunctionDefinition;
 559
 560 struct FunctionDefinition
 561 {
 562 struct FunctionDefinition * prev;
 563 struct FunctionDefinition * next;
 564 struct Location loc;
 565 struct __ecereNameSpace__ecere__sys__OldList *  specifiers;
 566 struct Declarator * declarator;
 567 struct __ecereNameSpace__ecere__sys__OldList *  declarations;
 568 struct Statement * body;
 569 struct __ecereNameSpace__ecere__com__Class * _class;
 570 struct __ecereNameSpace__ecere__sys__OldList attached;
 571 int declMode;
 572 struct Type * type;
 573 struct Symbol * propSet;
 574 int tempCount;
 575 unsigned int propertyNoThis;
 576 } __attribute__ ((gcc_struct));
 577
 578 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_DBTableDef;
 579
 580 struct DBTableDef;
 581
 582 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_External;
 583
 584 struct External
 585 {
 586 struct External * prev;
 587 struct External * next;
 588 struct Location loc;
 589 int type;
 590 struct Symbol * symbol;
 591 union
 592 {
 593 struct FunctionDefinition * function;
 594 struct ClassDefinition * _class;
 595 struct Declaration * declaration;
 596 char *  importString;
 597 struct Identifier * id;
 598 struct DBTableDef * table;
 599 } __attribute__ ((gcc_struct));
 600 int importType;
 601 } __attribute__ ((gcc_struct));
 602
 603 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_ModuleImport;
 604
 605 struct ModuleImport;
 606
 607 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_ClassImport;
 608
 609 struct ClassImport;
 610
 611 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Symbol;
 612
 613 struct Symbol
 614 {
 615 char *  string;
 616 struct Symbol * parent;
 617 struct Symbol * left;
 618 struct Symbol * right;
 619 int depth;
 620 struct Type * type;
 621 union
 622 {
 623 struct __ecereNameSpace__ecere__com__Method * method;
 624 struct __ecereNameSpace__ecere__com__Property * _property;
 625 struct __ecereNameSpace__ecere__com__Class * registered;
 626 } __attribute__ ((gcc_struct));
 627 int id;
 628 int idCode;
 629 union
 630 {
 631 struct
 632 {
 633 struct External * pointerExternal;
 634 struct External * structExternal;
 635 } __attribute__ ((gcc_struct));
 636 struct
 637 {
 638 struct External * externalGet;
 639 struct External * externalSet;
 640 struct External * externalPtr;
 641 struct External * externalIsSet;
 642 } __attribute__ ((gcc_struct));
 643 struct
 644 {
 645 struct External * methodExternal;
 646 struct External * methodCodeExternal;
 647 } __attribute__ ((gcc_struct));
 648 } __attribute__ ((gcc_struct));
 649 unsigned int imported;
 650 unsigned int declaredStructSym;
 651 struct __ecereNameSpace__ecere__com__Class * _class;
 652 unsigned int declaredStruct;
 653 unsigned int needConstructor;
 654 unsigned int needDestructor;
 655 char *  constructorName;
 656 char *  structName;
 657 char *  className;
 658 char *  destructorName;
 659 struct ModuleImport * module;
 660 struct ClassImport * _import;
 661 struct Location nameLoc;
 662 unsigned int isParam;
 663 unsigned int isRemote;
 664 unsigned int isStruct;
 665 unsigned int fireWatchersDone;
 666 int declaring;
 667 unsigned int classData;
 668 unsigned int isStatic;
 669 char *  shortName;
 670 struct __ecereNameSpace__ecere__sys__OldList *  templateParams;
 671 struct __ecereNameSpace__ecere__sys__OldList templatedClasses;
 672 struct Context * ctx;
 673 int isIterator;
 674 struct Expression * propCategory;
 675 } __attribute__ ((gcc_struct));
 676
 677 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Type;
 678
 679 struct Type
 680 {
 681 struct Type * prev;
 682 struct Type * next;
 683 int refCount;
 684 union
 685 {
 686 struct Symbol * _class;
 687 struct
 688 {
 689 struct __ecereNameSpace__ecere__sys__OldList members;
 690 char *  enumName;
 691 } __attribute__ ((gcc_struct));
 692 struct
 693 {
 694 struct Type * returnType;
 695 struct __ecereNameSpace__ecere__sys__OldList params;
 696 struct Symbol * thisClass;
 697 unsigned int staticMethod;
 698 struct TemplateParameter * thisClassTemplate;
 699 } __attribute__ ((gcc_struct));
 700 struct
 701 {
 702 struct __ecereNameSpace__ecere__com__Method * method;
 703 struct __ecereNameSpace__ecere__com__Class * methodClass;
 704 struct __ecereNameSpace__ecere__com__Class * usedClass;
 705 } __attribute__ ((gcc_struct));
 706 struct
 707 {
 708 struct Type * arrayType;
 709 int arraySize;
 710 struct Expression * arraySizeExp;
 711 unsigned int freeExp;
 712 struct Symbol * enumClass;
 713 } __attribute__ ((gcc_struct));
 714 struct Type * type;
 715 struct TemplateParameter * templateParameter;
 716 } __attribute__ ((gcc_struct));
 717 int kind;
 718 unsigned int size;
 719 char *  name;
 720 char *  typeName;
 721 int classObjectType;
 722 int alignment;
 723 unsigned int offset;
 724 int bitFieldCount;
 725 int count;
 726 unsigned int isSigned : 1;
 727 unsigned int constant : 1;
 728 unsigned int truth : 1;
 729 unsigned int byReference : 1;
 730 unsigned int extraParam : 1;
 731 unsigned int directClassAccess : 1;
 732 unsigned int computing : 1;
 733 unsigned int keepCast : 1;
 734 unsigned int passAsTemplate : 1;
 735 unsigned int dllExport : 1;
 736 unsigned int attrStdcall : 1;
 737 unsigned int declaredWithStruct : 1;
 738 unsigned int typedByReference : 1;
 739 } __attribute__ ((gcc_struct));
 740
 741 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__Class;
 742
 743 struct __ecereNameSpace__ecere__com__Class
 744 {
 745 struct __ecereNameSpace__ecere__com__Class * prev;
 746 struct __ecereNameSpace__ecere__com__Class * next;
 747 char *  name;
 748 int offset;
 749 int structSize;
 750 int (* *  _vTbl)();
 751 int vTblSize;
 752 int (*  Constructor)(struct __ecereNameSpace__ecere__com__Instance *);
 753 void (*  Destructor)(struct __ecereNameSpace__ecere__com__Instance *);
 754 int offsetClass;
 755 int sizeClass;
 756 struct __ecereNameSpace__ecere__com__Class * base;
 757 struct __ecereNameSpace__ecere__sys__BinaryTree methods;
 758 struct __ecereNameSpace__ecere__sys__BinaryTree members;
 759 struct __ecereNameSpace__ecere__sys__BinaryTree prop;
 760 struct __ecereNameSpace__ecere__sys__OldList membersAndProperties;
 761 struct __ecereNameSpace__ecere__sys__BinaryTree classProperties;
 762 struct __ecereNameSpace__ecere__sys__OldList derivatives;
 763 int memberID;
 764 int startMemberID;
 765 int type;
 766 struct __ecereNameSpace__ecere__com__Instance * module;
 767 struct __ecereNameSpace__ecere__com__NameSpace *  nameSpace;
 768 char *  dataTypeString;
 769 struct Type * dataType;
 770 int typeSize;
 771 int defaultAlignment;
 772 void (*  Initialize)();
 773 int memberOffset;
 774 struct __ecereNameSpace__ecere__sys__OldList selfWatchers;
 775 char *  designerClass;
 776 unsigned int noExpansion;
 777 char *  defaultProperty;
 778 unsigned int comRedefinition;
 779 int count;
 780 unsigned int isRemote;
 781 unsigned int internalDecl;
 782 void *  data;
 783 unsigned int computeSize;
 784 int structAlignment;
 785 int destructionWatchOffset;
 786 unsigned int fixed;
 787 struct __ecereNameSpace__ecere__sys__OldList delayedCPValues;
 788 int inheritanceAccess;
 789 char *  fullName;
 790 void *  symbol;
 791 struct __ecereNameSpace__ecere__sys__OldList conversions;
 792 struct __ecereNameSpace__ecere__sys__OldList templateParams;
 793 struct __ecereNameSpace__ecere__com__ClassTemplateArgument *  templateArgs;
 794 struct __ecereNameSpace__ecere__com__Class * templateClass;
 795 struct __ecereNameSpace__ecere__sys__OldList templatized;
 796 int numParams;
 797 unsigned int isInstanceClass;
 798 unsigned int byValueSystemClass;
 799 } __attribute__ ((gcc_struct));
 800
 801 extern long long __ecereNameSpace__ecere__com__eClass_GetProperty(struct __ecereNameSpace__ecere__com__Class * _class, char *  name);
 802
 803 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__Instance;
 804
 805 struct __ecereNameSpace__ecere__com__Instance
 806 {
 807 int (* *  _vTbl)();
 808 struct __ecereNameSpace__ecere__com__Class * _class;
 809 int _refCount;
 810 } __attribute__ ((gcc_struct));
 811
 812 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__DataMember;
 813
 814 struct __ecereNameSpace__ecere__com__DataMember
 815 {
 816 struct __ecereNameSpace__ecere__com__DataMember * prev;
 817 struct __ecereNameSpace__ecere__com__DataMember * next;
 818 char *  name;
 819 unsigned int isProperty;
 820 int memberAccess;
 821 int id;
 822 struct __ecereNameSpace__ecere__com__Class * _class;
 823 char *  dataTypeString;
 824 struct __ecereNameSpace__ecere__com__Class * dataTypeClass;
 825 struct Type * dataType;
 826 int type;
 827 int offset;
 828 int memberID;
 829 struct __ecereNameSpace__ecere__sys__OldList members;
 830 struct __ecereNameSpace__ecere__sys__BinaryTree membersAlpha;
 831 int memberOffset;
 832 int structAlignment;
 833 } __attribute__ ((gcc_struct));
 834
 835 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__SerialBuffer;
 836
 837 struct __ecereNameSpace__ecere__com__SerialBuffer
 838 {
 839 unsigned char *  _buffer;
 840 unsigned int count;
 841 unsigned int _size;
 842 unsigned int pos;
 843 } __attribute__ ((gcc_struct));
 844
 845 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__ClassTemplateArgument;
 846
 847 struct __ecereNameSpace__ecere__com__ClassTemplateArgument
 848 {
 849 union
 850 {
 851 struct
 852 {
 853 char *  dataTypeString;
 854 struct __ecereNameSpace__ecere__com__Class * dataTypeClass;
 855 } __attribute__ ((gcc_struct));
 856 struct __ecereNameSpace__ecere__com__DataValue expression;
 857 struct
 858 {
 859 char *  memberString;
 860 union
 861 {
 862 struct __ecereNameSpace__ecere__com__DataMember * member;
 863 struct __ecereNameSpace__ecere__com__Property * prop;
 864 struct __ecereNameSpace__ecere__com__Method * method;
 865 } __attribute__ ((gcc_struct));
 866 } __attribute__ ((gcc_struct));
 867 } __attribute__ ((gcc_struct));
 868 } __attribute__ ((gcc_struct));
 869
 870 enum yytokentype
 871 {
 872 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
 873 };
 874
 875 typedef union YYSTYPE
 876 {
 877 int specifierType;
 878 int i;
 879 int declMode;
 880 struct Identifier * id;
 881 struct Expression * exp;
 882 struct Specifier * specifier;
 883 struct __ecereNameSpace__ecere__sys__OldList * list;
 884 struct Enumerator * enumerator;
 885 struct Declarator * declarator;
 886 struct Pointer * pointer;
 887 struct Initializer * initializer;
 888 struct InitDeclarator * initDeclarator;
 889 struct TypeName * typeName;
 890 struct Declaration * declaration;
 891 struct Statement * stmt;
 892 struct FunctionDefinition * function;
 893 struct External * external;
 894 struct Context * context;
 895 struct AsmField * asmField;
 896 struct Attrib * attrib;
 897 struct ExtDecl * extDecl;
 898 struct Attribute * attribute;
 899 struct Instantiation * instance;
 900 struct MembersInit * membersInit;
 901 struct MemberInit * memberInit;
 902 struct ClassFunction * classFunction;
 903 struct ClassDefinition * _class;
 904 struct ClassDef * classDef;
 905 struct PropertyDef * prop;
 906 char * string;
 907 struct Symbol * symbol;
 908 struct PropertyWatch * propertyWatch;
 909 struct TemplateParameter * templateParameter;
 910 struct TemplateArgument * templateArgument;
 911 struct TemplateDatatype * templateDatatype;
 912 struct DBTableEntry * dbtableEntry;
 913 struct DBIndexItem * dbindexItem;
 914 struct DBTableDef * dbtableDef;
 915 } __attribute__ ((gcc_struct)) YYSTYPE;
 916
 917 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Enumerator;
 918
 919 struct Enumerator
 920 {
 921 struct Enumerator * prev;
 922 struct Enumerator * next;
 923 struct Location loc;
 924 struct Identifier * id;
 925 struct Expression * exp;
 926 } __attribute__ ((gcc_struct));
 927
 928 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_InitDeclarator;
 929
 930 struct InitDeclarator
 931 {
 932 struct InitDeclarator * prev;
 933 struct InitDeclarator * next;
 934 struct Location loc;
 935 struct Declarator * declarator;
 936 struct Initializer * initializer;
 937 } __attribute__ ((gcc_struct));
 938
 939 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_AsmField;
 940
 941 struct AsmField
 942 {
 943 struct AsmField * prev;
 944 struct AsmField * next;
 945 struct Location loc;
 946 char *  command;
 947 struct Expression * expression;
 948 struct Identifier * symbolic;
 949 } __attribute__ ((gcc_struct));
 950
 951 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Attribute;
 952
 953 struct Attribute;
 954
 955 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_ClassFunction;
 956
 957 struct ClassFunction;
 958
 959 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_MembersInit;
 960
 961 struct MembersInit;
 962
 963 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_MemberInit;
 964
 965 struct MemberInit;
 966
 967 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_PropertyDef;
 968
 969 struct PropertyDef;
 970
 971 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_PropertyWatch;
 972
 973 struct PropertyWatch;
 974
 975 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_ClassDef;
 976
 977 struct ClassDef
 978 {
 979 struct ClassDef * prev;
 980 struct ClassDef * next;
 981 struct Location loc;
 982 int type;
 983 union
 984 {
 985 struct Declaration * decl;
 986 struct ClassFunction * function;
 987 struct __ecereNameSpace__ecere__sys__OldList *  defProperties;
 988 struct PropertyDef * propertyDef;
 989 struct PropertyWatch * propertyWatch;
 990 char *  designer;
 991 struct Identifier * defaultProperty;
 992 struct
 993 {
 994 struct Identifier * id;
 995 struct Initializer * initializer;
 996 } __attribute__ ((gcc_struct));
 997 } __attribute__ ((gcc_struct));
 998 int memberAccess;
 999 void *  object;
1000 } __attribute__ ((gcc_struct));
1001
1002 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_DBTableEntry;
1003
1004 struct DBTableEntry;
1005
1006 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_DBIndexItem;
1007
1008 struct DBIndexItem;
1009
1010 extern YYSTYPE yylval;
1011
1012 extern struct Location yylloc;
1013
1014 extern struct External * curExternal;
1015
1016 extern struct __ecereNameSpace__ecere__sys__OldList *  MkList(void);
1017
1018 extern struct Declarator * SpecDeclFromString(char *  string, struct __ecereNameSpace__ecere__sys__OldList *  specs, struct Declarator * baseDecl);
1019
1020 extern struct Specifier * CopySpecifier(struct Specifier * spec);
1021
1022 extern void FreeList(struct __ecereNameSpace__ecere__sys__OldList * list, void (*  FreeFunction)(void * ));
1023
1024 extern void FreeSpecifier(struct Specifier * spec);
1025
1026 extern void FreeDeclarator(struct Declarator * decl);
1027
1028 extern char *  __ecereNameSpace__ecere__sys__CopyString(char *  string);
1029
1030 extern struct Symbol * FindClass(char *  name);
1031
1032 extern void FreeTemplateArgument(struct TemplateArgument * arg);
1033
1034 extern void FullClassNameCat(char *  output, char *  className, unsigned int includeTemplateParams);
1035
1036 extern struct Identifier * MkIdentifier(char *  string);
1037
1038 extern int strcmp(const char * , const char * );
1039
1040 extern struct Type * ProcessTypeString(char *  string, unsigned int staticMethod);
1041
1042 static unsigned int ReplaceClassSpec(struct __ecereNameSpace__ecere__sys__OldList * specs, struct Specifier * spec, unsigned int param)
1043 {
1044 if(spec->type == 8)
1045 {
1046 struct TemplateParameter * parameter = spec->templateParameter;
1047
1048 if(!param && parameter->dataTypeString)
1049 {
1050 struct __ecereNameSpace__ecere__sys__OldList * newSpecs = MkList();
1051 struct Declarator * decl = SpecDeclFromString(parameter->dataTypeString, newSpecs, (((void *)0)));
1052
1053 if((*newSpecs).first)
1054 {
1055 struct Specifier * newSpec = CopySpecifier((*newSpecs).first);
1056
1057 *spec = *newSpec;
1058 ((newSpec ? (__ecereClass_Specifier->Destructor ? __ecereClass_Specifier->Destructor(newSpec) : 0, __ecereNameSpace__ecere__com__eSystem_Delete(newSpec)) : 0), newSpec = 0);
1059 }
1060 FreeList(newSpecs, FreeSpecifier);
1061 if(decl)
1062 {
1063 unsigned int isPointer = decl->type == 5;
1064
1065 if(decl)
1066 FreeDeclarator(decl);
1067 if(isPointer)
1068 return 0x1;
1069 }
1070 }
1071 else if(!param && parameter->dataType)
1072 {
1073 struct __ecereNameSpace__ecere__sys__OldList * newSpecs = parameter->dataType->specifiers;
1074 struct Declarator * decl = parameter->dataType->decl;
1075
1076 if((*newSpecs).first)
1077 {
1078 struct Specifier * newSpec = CopySpecifier((*newSpecs).first);
1079
1080 *spec = *newSpec;
1081 ((newSpec ? (__ecereClass_Specifier->Destructor ? __ecereClass_Specifier->Destructor(newSpec) : 0, __ecereNameSpace__ecere__com__eSystem_Delete(newSpec)) : 0), newSpec = 0);
1082 }
1083 if(decl)
1084 {
1085 unsigned int isPointer = decl->type == 5;
1086
1087 if(isPointer)
1088 return 0x1;
1089 }
1090 }
1091 else
1092 {
1093 spec->type = 1;
1094 spec->name = __ecereNameSpace__ecere__sys__CopyString("uint64");
1095 spec->symbol = FindClass("uint64");
1096 }
1097 }
1098 if(spec->type == 1 || spec->type == 7)
1099 {
1100 struct Symbol * classSym = spec->symbol;
1101
1102 if(spec->type == 7)
1103 {
1104 classSym = FindClass("ecere::com::Class");
1105 }
1106 if(classSym)
1107 {
1108 struct __ecereNameSpace__ecere__com__Class * _class = classSym->registered;
1109
1110 spec->type = 1;
1111 if(spec->templateArgs)
1112 {
1113 FreeList(spec->templateArgs, FreeTemplateArgument);
1114 spec->templateArgs = (((void *)0));
1115 }
1116 if(_class && _class->type == 1)
1117 {
1118 char name[1024];
1119
1120 name[0] = (char)0;
1121 FullClassNameCat(name, _class->fullName, 0x0);
1122 (__ecereNameSpace__ecere__com__eSystem_Delete(spec->name), spec->name = 0);
1123 spec->type = 3;
1124 spec->baseSpecs = (((void *)0));
1125 spec->id = MkIdentifier(name);
1126 spec->list = (((void *)0));
1127 spec->definitions = (((void *)0));
1128 spec->ctx = (((void *)0));
1129 spec->addNameSpace = 0x0;
1130 }
1131 else if(_class && _class->type == 5)
1132 {
1133 char name[1024] = "";
1134
1135 FullClassNameCat(name, _class->fullName, 0x0);
1136 (__ecereNameSpace__ecere__com__eSystem_Delete(spec->name), spec->name = 0);
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 (__ecereNameSpace__ecere__com__eSystem_Delete(spec->name), spec->name = 0);
1150 if(_class->dataTypeString)
1151 {
1152 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"))
1153 {
1154 if(!_class->dataType)
1155 _class->dataType = ProcessTypeString(_class->dataTypeString, 0x0);
1156 if(_class->dataType && _class->dataType->kind == 8)
1157 classSym = _class->dataType->_class;
1158 else
1159 classSym = FindClass(_class->dataTypeString);
1160 _class = classSym ? classSym->registered : (((void *)0));
1161 }
1162 if(!strcmp(_class->dataTypeString, "char *"))
1163 spec->name = __ecereNameSpace__ecere__sys__CopyString("char");
1164 else
1165 spec->name = __ecereNameSpace__ecere__sys__CopyString(_class->dataTypeString);
1166 spec->symbol = (((void *)0));
1167 }
1168 else
1169 {
1170 spec->name = __ecereNameSpace__ecere__sys__CopyString((((void *)0)));
1171 spec->symbol = (((void *)0));
1172 }
1173 }
1174 else if(!_class->base)
1175 {
1176 (__ecereNameSpace__ecere__com__eSystem_Delete(spec->name), spec->name = 0);
1177 spec->type = 0;
1178 spec->specifier = VOID;
1179 return 0x1;
1180 }
1181 }
1182 else
1183 {
1184 (__ecereNameSpace__ecere__com__eSystem_Delete(spec->name), spec->name = 0);
1185 spec->type = 3;
1186 spec->id = MkIdentifier("__ecereNameSpace__ecere__com__Instance");
1187 spec->list = (((void *)0));
1188 spec->baseSpecs = (((void *)0));
1189 spec->definitions = (((void *)0));
1190 spec->ctx = (((void *)0));
1191 spec->addNameSpace = 0x0;
1192 }
1193 if(_class && _class->dataTypeString && !strcmp(_class->dataTypeString, "char *"))
1194 return 0x1;
1195 if(!_class || _class->type == 0 || _class->type == 5)
1196 return 0x1;
1197 else if(param && _class->type == 1)
1198 return (unsigned int)2;
1199 }
1200 }
1201 else if(spec->type == 0)
1202 {
1203 if(spec->specifier == ANY_OBJECT)
1204 {
1205 spec->specifier = VOID;
1206 return 0x1;
1207 }
1208 }
1209 return 0x0;
1210 }
1211
1212 extern struct Pointer * MkPointer(struct __ecereNameSpace__ecere__sys__OldList * qualifiers, struct Pointer * pointer);
1213
1214 extern void *  __ecereNameSpace__ecere__com__eInstance_New(struct __ecereNameSpace__ecere__com__Class * _class);
1215
1216 static void ReplaceByInstancePtr(struct Specifier * spec, struct Declarator ** declPtr, int type)
1217 {
1218 struct Declarator * decl = *declPtr;
1219
1220 if(decl && decl->type == 5)
1221 {
1222 if(type == 2)
1223 ;
1224 else
1225 decl->pointer.pointer = MkPointer((((void *)0)), decl->pointer.pointer);
1226 }
1227 else
1228 {
1229 struct Declarator * newDecl = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_Declarator);
1230
1231 if(decl)
1232 {
1233 *newDecl = *decl;
1234 decl->declarator = newDecl;
1235 }
1236 else
1237 decl = newDecl;
1238 decl->type = 5;
1239 decl->pointer.pointer = MkPointer((((void *)0)), (((void *)0)));
1240 *declPtr = decl;
1241 }
1242 }
1243
1244 extern struct ExtDecl * MkExtDeclString(char * s);
1245
1246 static void InstDeclPassDeclaration(struct Declaration * decl);
1247
1248 static void InstDeclPassIdentifier(struct Identifier * id);
1249
1250 extern int targetPlatform;
1251
1252 static void InstDeclPassSpecifier(struct Specifier * spec)
1253 {
1254 switch(spec->type)
1255 {
1256 case 0:
1257 if(spec->specifier == TYPED_OBJECT)
1258 {
1259 spec->type = 5;
1260 spec->extDecl = MkExtDeclString(__ecereNameSpace__ecere__sys__CopyString("struct __ecereNameSpace__ecere__com__Class * class, void *"));
1261 }
1262 break;
1263 case 1:
1264 break;
1265 case 2:
1266 {
1267 struct Enumerator * e;
1268
1269 if(spec->list)
1270 {
1271 for(e = (*spec->list).first; e; e = e->next)
1272 {
1273 }
1274 }
1275 break;
1276 }
1277 case 3:
1278 case 4:
1279 {
1280 if(spec->definitions)
1281 {
1282 struct ClassDef * def;
1283
1284 for(def = (*spec->definitions).first; def; def = def->next)
1285 if(def->decl)
1286 InstDeclPassDeclaration(def->decl);
1287 }
1288 if(spec->id)
1289 InstDeclPassIdentifier(spec->id);
1290 break;
1291 }
1292 case 5:
1293 if(spec->extDecl && spec->extDecl->type == 0 && spec->extDecl->s)
1294 {
1295 if(!strcmp(spec->extDecl->s, "dllexport"))
1296 {
1297 struct Specifier * prevSpec;
1298
1299 (__ecereNameSpace__ecere__com__eSystem_Delete(spec->extDecl->s), spec->extDecl->s = 0);
1300 for(prevSpec = spec->prev; prevSpec; prevSpec = prevSpec->prev)
1301 if(prevSpec->type == 0 && prevSpec->specifier == EXTERN)
1302 break;
1303 if(prevSpec)
1304 {
1305 if(targetPlatform == 1)
1306 spec->extDecl->s = __ecereNameSpace__ecere__sys__CopyString("__declspec(dllexport)");
1307 else
1308 spec->extDecl->s = __ecereNameSpace__ecere__sys__CopyString("__attribute__ ((visibility(\"default\")))");
1309 }
1310 else
1311 {
1312 if(targetPlatform == 1)
1313 spec->extDecl->s = __ecereNameSpace__ecere__sys__CopyString("extern __declspec(dllexport)");
1314 else
1315 spec->extDecl->s = __ecereNameSpace__ecere__sys__CopyString("extern __attribute__ ((visibility(\"default\")))");
1316 }
1317 }
1318 else if(!strcmp(spec->extDecl->s, "stdcall") || !strcmp(spec->extDecl->s, "_stdcall") || !strcmp(spec->extDecl->s, "__stdcall") || !strcmp(spec->extDecl->s, "__stdcall__"))
1319 {
1320 (__ecereNameSpace__ecere__com__eSystem_Delete(spec->extDecl->s), spec->extDecl->s = 0);
1321 if(targetPlatform == 1)
1322 spec->extDecl->s = __ecereNameSpace__ecere__sys__CopyString("__attribute__((__stdcall__))");
1323 else
1324 spec->extDecl->s = __ecereNameSpace__ecere__sys__CopyString("");
1325 }
1326 }
1327 break;
1328 }
1329 }
1330
1331 void InstDeclPassTypeName(struct TypeName * type, unsigned int param);
1332
1333 extern struct __ecereNameSpace__ecere__sys__OldList *  MkListOne(void *  item);
1334
1335 extern struct Specifier * MkStructOrUnion(int type, struct Identifier * id, struct __ecereNameSpace__ecere__sys__OldList * definitions);
1336
1337 extern struct Declarator * MkDeclaratorPointer(struct Pointer * pointer, struct Declarator * declarator);
1338
1339 extern struct Declarator * MkDeclaratorIdentifier(struct Identifier * id);
1340
1341 unsigned int __ecereMethod___ecereNameSpace__ecere__sys__OldList_Insert(struct __ecereNameSpace__ecere__sys__OldList * this, void *  prevItem, void *  item);
1342
1343 static void InstDeclPassDeclarator(struct Declarator * decl)
1344 {
1345 switch(decl->type)
1346 {
1347 case 0:
1348 if(decl->declarator)
1349 InstDeclPassDeclarator(decl->declarator);
1350 break;
1351 case 1:
1352 {
1353 if(decl->identifier)
1354 InstDeclPassIdentifier(decl->identifier);
1355 break;
1356 }
1357 case 2:
1358 if(decl->declarator)
1359 InstDeclPassDeclarator(decl->declarator);
1360 break;
1361 case 3:
1362 if(decl->declarator)
1363 InstDeclPassDeclarator(decl->declarator);
1364 break;
1365 case 4:
1366 {
1367 if(decl->declarator)
1368 InstDeclPassDeclarator(decl->declarator);
1369 if(decl->function.parameters)
1370 {
1371 struct TypeName * type;
1372
1373 if(decl->declarator)
1374 InstDeclPassDeclarator(decl->declarator);
1375 for(type = (*decl->function.parameters).first; type; type = type->next)
1376 {
1377 unsigned int typedObject = 0x0;
1378 struct Specifier * spec = (((void *)0));
1379
1380 if(type->qualifiers)
1381 {
1382 spec = (struct Specifier *)(*type->qualifiers).first;
1383 if(spec && spec->type == 1 && !strcmp(spec->name, "class"))
1384 typedObject = 0x1;
1385 }
1386 InstDeclPassTypeName(type, 0x1);
1387 if(typedObject)
1388 {
1389 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);
1390
1391 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Insert((&*decl->function.parameters), spec->prev, _class);
1392 }
1393 }
1394 }
1395 break;
1396 }
1397 case 5:
1398 case 6:
1399 case 7:
1400 if((decl->type == 6 || decl->type == 7) && decl->extended.extended)
1401 {
1402 if(decl->extended.extended->type == 0 && decl->extended.extended->s && !strcmp(decl->extended.extended->s, "dllexport"))
1403 {
1404 (__ecereNameSpace__ecere__com__eSystem_Delete(decl->extended.extended->s), decl->extended.extended->s = 0);
1405 if(targetPlatform == 1)
1406 decl->extended.extended->s = __ecereNameSpace__ecere__sys__CopyString("extern __declspec(dllexport)");
1407 else
1408 decl->extended.extended->s = __ecereNameSpace__ecere__sys__CopyString("extern __attribute__ ((visibility(\"default\")))");
1409 }
1410 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__")))
1411 {
1412 (__ecereNameSpace__ecere__com__eSystem_Delete(decl->extended.extended->s), decl->extended.extended->s = 0);
1413 if(targetPlatform == 1)
1414 decl->extended.extended->s = __ecereNameSpace__ecere__sys__CopyString("__attribute__((__stdcall__))");
1415 else
1416 decl->extended.extended->s = __ecereNameSpace__ecere__sys__CopyString("");
1417 }
1418 }
1419 if(decl->declarator)
1420 InstDeclPassDeclarator(decl->declarator);
1421 break;
1422 }
1423 }
1424
1425 void InstDeclPassTypeName(struct TypeName * type, unsigned int param)
1426 {
1427 if(type->qualifiers)
1428 {
1429 struct Specifier * spec;
1430
1431 for(spec = (*type->qualifiers).first; spec; spec = spec->next)
1432 {
1433 int result;
1434
1435 if((result = (unsigned int)ReplaceClassSpec(type->qualifiers, spec, param)))
1436 ReplaceByInstancePtr(spec, &type->declarator, result);
1437 else
1438 {
1439 struct Symbol * classSym = (spec->type == 1) ? spec->symbol : (((void *)0));
1440
1441 if(type->classObjectType && (!classSym || (classSym && classSym->registered && (classSym->registered->type == 4 || classSym->registered->type == 2 || classSym->registered->type == 3))))
1442 ReplaceByInstancePtr(spec, &type->declarator, 2);
1443 }
1444 InstDeclPassSpecifier(spec);
1445 }
1446 }
1447 if(type->declarator)
1448 InstDeclPassDeclarator(type->declarator);
1449 }
1450
1451 extern char *  strchr(const char * , int);
1452
1453 extern char *  strcpy(char * , const char * );
1454
1455 extern size_t strlen(const char * );
1456
1457 static void InstDeclPassIdentifier(struct Identifier * id)
1458 {
1459 if(strchr(id->string, ':'))
1460 {
1461 char newID[1024];
1462 int c;
1463 char ch;
1464 int len;
1465
1466 strcpy(newID, "__ecereNameSpace__");
1467 len = strlen(newID);
1468 for(c = 0; (ch = id->string[c]); c++)
1469 {
1470 if(ch == ':')
1471 ch = '_';
1472 newID[len++] = ch;
1473 }
1474 newID[len] = (char)0;
1475 (__ecereNameSpace__ecere__com__eSystem_Delete(id->string), id->string = 0);
1476 id->string = __ecereNameSpace__ecere__sys__CopyString(newID);
1477 }
1478 }
1479
1480 extern void FreeExpContents(struct Expression * exp);
1481
1482 extern void FreeType(struct Type * type);
1483
1484 static void InstDeclPassStatement(struct Statement * stmt);
1485
1486 static void InstDeclPassInitializer(struct Initializer * init);
1487
1488 static void InstDeclPassExpression(struct Expression * exp)
1489 {
1490 switch(exp->type)
1491 {
1492 case 0:
1493 {
1494 if(exp->identifier)
1495 InstDeclPassIdentifier(exp->identifier);
1496 break;
1497 }
1498 case 2:
1499 break;
1500 case 3:
1501 break;
1502 case 4:
1503 if(exp->op.exp1)
1504 InstDeclPassExpression(exp->op.exp1);
1505 if(exp->op.exp2)
1506 InstDeclPassExpression(exp->op.exp2);
1507 break;
1508 case 34:
1509 case 5:
1510 {
1511 struct Expression * e;
1512
1513 for(e = (*exp->list).first; e; e = e->next)
1514 InstDeclPassExpression(e);
1515 break;
1516 }
1517 case 6:
1518 {
1519 struct Expression * e;
1520
1521 InstDeclPassExpression(exp->index.exp);
1522 for(e = (*exp->index.index).first; e; e = e->next)
1523 InstDeclPassExpression(e);
1524 break;
1525 }
1526 case 7:
1527 {
1528 struct Expression * e;
1529
1530 InstDeclPassExpression(exp->call.exp);
1531 if(exp->call.arguments)
1532 {
1533 for(e = (*exp->call.arguments).first; e; e = e->next)
1534 InstDeclPassExpression(e);
1535 }
1536 break;
1537 }
1538 case 8:
1539 {
1540 if(exp->member.exp)
1541 InstDeclPassExpression(exp->member.exp);
1542 break;
1543 }
1544 case 9:
1545 {
1546 if(exp->member.exp)
1547 InstDeclPassExpression(exp->member.exp);
1548 break;
1549 }
1550 case 10:
1551 InstDeclPassTypeName(exp->typeName, 0x0);
1552 break;
1553 case 11:
1554 {
1555 struct Type * type = exp->expType;
1556
1557 if(type && type->kind == 8 && type->_class->registered && type->_class->registered->type == 1)
1558 {
1559 struct Expression * castExp = exp->cast.exp;
1560 struct Expression * prev = exp->prev, * next = exp->next;
1561
1562 exp->cast.exp = (((void *)0));
1563 FreeExpContents(exp);
1564 FreeType(exp->expType);
1565 FreeType(exp->destType);
1566 *exp = *castExp;
1567 ((castExp ? (__ecereClass_Expression->Destructor ? __ecereClass_Expression->Destructor(castExp) : 0, __ecereNameSpace__ecere__com__eSystem_Delete(castExp)) : 0), castExp = 0);
1568 exp->prev = prev;
1569 exp->next = next;
1570 InstDeclPassExpression(exp);
1571 }
1572 else
1573 {
1574 InstDeclPassTypeName(exp->cast.typeName, 0x0);
1575 if(exp->cast.exp)
1576 InstDeclPassExpression(exp->cast.exp);
1577 }
1578 break;
1579 }
1580 case 12:
1581 {
1582 struct Expression * e;
1583
1584 InstDeclPassExpression(exp->cond.cond);
1585 for(e = (*exp->cond.exp).first; e; e = e->next)
1586 InstDeclPassExpression(e);
1587 InstDeclPassExpression(exp->cond.elseExp);
1588 break;
1589 }
1590 case 25:
1591 {
1592 InstDeclPassStatement(exp->compound);
1593 break;
1594 }
1595 case 36:
1596 {
1597 InstDeclPassExpression(exp->vaArg.exp);
1598 break;
1599 }
1600 case 35:
1601 {
1602 InstDeclPassTypeName(exp->initializer.typeName, 0x0);
1603 InstDeclPassInitializer(exp->initializer.initializer);
1604 break;
1605 }
1606 }
1607 }
1608
1609 static void InstDeclPassInitializer(struct Initializer * init)
1610 {
1611 switch(init->type)
1612 {
1613 case 0:
1614 if(init->exp)
1615 InstDeclPassExpression(init->exp);
1616 break;
1617 case 1:
1618 {
1619 struct Initializer * i;
1620
1621 for(i = (*init->list).first; i; i = i->next)
1622 InstDeclPassInitializer(i);
1623 break;
1624 }
1625 }
1626 }
1627
1628 static void InstDeclPassDeclaration(struct Declaration * decl)
1629 {
1630 switch(decl->type)
1631 {
1632 case 1:
1633 {
1634 if(decl->specifiers)
1635 {
1636 struct Specifier * spec;
1637
1638 for(spec = (*decl->specifiers).first; spec; spec = spec->next)
1639 {
1640 int type;
1641
1642 if((type = (unsigned int)ReplaceClassSpec(decl->specifiers, spec, 0x0)))
1643 {
1644 struct InitDeclarator * d;
1645
1646 if(decl->declarators)
1647 {
1648 for(d = (*decl->declarators).first; d; d = d->next)
1649 ReplaceByInstancePtr(spec, &d->declarator, type);
1650 }
1651 }
1652 InstDeclPassSpecifier(spec);
1653 }
1654 }
1655 if(decl->declarators)
1656 {
1657 struct InitDeclarator * d;
1658
1659 for(d = (*decl->declarators).first; d; d = d->next)
1660 {
1661 InstDeclPassDeclarator(d->declarator);
1662 if(d->initializer)
1663 InstDeclPassInitializer(d->initializer);
1664 }
1665 }
1666 break;
1667 }
1668 case 0:
1669 {
1670 if(decl->specifiers)
1671 {
1672 struct Specifier * spec;
1673
1674 for(spec = (*decl->specifiers).first; spec; spec = spec->next)
1675 {
1676 int type;
1677
1678 if((type = (unsigned int)ReplaceClassSpec(decl->specifiers, spec, 0x0)))
1679 {
1680 if(decl->declarators)
1681 {
1682 struct Declarator * d;
1683
1684 for(d = (*decl->declarators).first; d; d = d->next)
1685 ReplaceByInstancePtr(spec, &d, type);
1686 }
1687 }
1688 InstDeclPassSpecifier(spec);
1689 }
1690 }
1691 if(decl->declarators)
1692 {
1693 struct Declarator * d;
1694
1695 for(d = (*decl->declarators).first; d; d = d->next)
1696 InstDeclPassDeclarator(d);
1697 }
1698 break;
1699 }
1700 case 2:
1701 break;
1702 }
1703 }
1704
1705 extern struct Context * curContext;
1706
1707 static void InstDeclPassStatement(struct Statement * stmt)
1708 {
1709 switch(stmt->type)
1710 {
1711 case 14:
1712 if(stmt->decl)
1713 InstDeclPassDeclaration(stmt->decl);
1714 break;
1715 case 0:
1716 InstDeclPassStatement(stmt->labeled.stmt);
1717 break;
1718 case 1:
1719 if(stmt->caseStmt.exp)
1720 InstDeclPassExpression(stmt->caseStmt.exp);
1721 if(stmt->caseStmt.stmt)
1722 InstDeclPassStatement(stmt->caseStmt.stmt);
1723 break;
1724 case 2:
1725 {
1726 struct Declaration * decl;
1727 struct Statement * s;
1728 struct Context * prevContext = curContext;
1729
1730 if(!stmt->compound.isSwitch)
1731 curContext = stmt->compound.context;
1732 if(stmt->compound.declarations)
1733 {
1734 for(decl = (*stmt->compound.declarations).first; decl; decl = decl->next)
1735 InstDeclPassDeclaration(decl);
1736 }
1737 if(stmt->compound.statements)
1738 {
1739 for(s = (*stmt->compound.statements).first; s; s = s->next)
1740 InstDeclPassStatement(s);
1741 }
1742 curContext = prevContext;
1743 break;
1744 }
1745 case 3:
1746 {
1747 if(stmt->expressions)
1748 {
1749 struct Expression * exp;
1750
1751 for(exp = (*stmt->expressions).first; exp; exp = exp->next)
1752 InstDeclPassExpression(exp);
1753 }
1754 break;
1755 }
1756 case 4:
1757 {
1758 if(stmt->ifStmt.exp)
1759 {
1760 struct Expression * exp;
1761
1762 for(exp = (*stmt->ifStmt.exp).first; exp; exp = exp->next)
1763 InstDeclPassExpression(exp);
1764 }
1765 if(stmt->ifStmt.stmt)
1766 InstDeclPassStatement(stmt->ifStmt.stmt);
1767 if(stmt->ifStmt.elseStmt)
1768 InstDeclPassStatement(stmt->ifStmt.elseStmt);
1769 break;
1770 }
1771 case 5:
1772 {
1773 struct Expression * exp;
1774
1775 for(exp = (*stmt->switchStmt.exp).first; exp; exp = exp->next)
1776 InstDeclPassExpression(exp);
1777 InstDeclPassStatement(stmt->switchStmt.stmt);
1778 break;
1779 }
1780 case 6:
1781 {
1782 struct Expression * exp;
1783
1784 for(exp = (*stmt->whileStmt.exp).first; exp; exp = exp->next)
1785 InstDeclPassExpression(exp);
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 = (unsigned int)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