The Ecere SDK - sdk/blob - compiler/bootstrap/ecs/bootstrap/ecs.c

   1 #if defined(__GNUC__)
   2 typedef long long int64;
   3 typedef unsigned long long uint64;
   4 #elif defined(__TINYC__)
   5 #include <stdarg.h>
   6 #define __builtin_va_list va_list
   7 #define __builtin_va_start va_start
   8 #define __builtin_va_end va_end
   9 #ifdef _WIN32
  10 #define strcasecmp stricmp
  11 #define strncasecmp strnicmp
  12 #define __declspec(x) __attribute__((x))
  13 #endif
  14 typedef long long int64;
  15 typedef unsigned long long uint64;
  16 #else
  17 typedef __int64 int64;
  18 typedef unsigned __int64 uint64;
  19 #endif
  20 #ifdef __BIG_ENDIAN__
  21 #define __ENDIAN_PAD(x) (8 - (x))
  22 #else
  23 #define __ENDIAN_PAD(x) 0
  24 #endif
  25 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__sys__BTNode;
  26
  27 struct __ecereNameSpace__ecere__sys__BTNode;
  28
  29 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__sys__BinaryTree;
  30
  31 struct __ecereNameSpace__ecere__sys__BinaryTree
  32 {
  33 struct __ecereNameSpace__ecere__sys__BTNode * root;
  34 int count;
  35 int (*  CompareKey)(struct __ecereNameSpace__ecere__sys__BinaryTree * tree, unsigned int a, unsigned int b);
  36 void (*  FreeKey)(void *  key);
  37 };
  38
  39 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__sys__OldList;
  40
  41 struct __ecereNameSpace__ecere__sys__OldList
  42 {
  43 void *  first;
  44 void *  last;
  45 int count;
  46 unsigned int offset;
  47 unsigned int circ;
  48 };
  49
  50 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__Method;
  51
  52 struct __ecereNameSpace__ecere__com__Method
  53 {
  54 char *  name;
  55 struct __ecereNameSpace__ecere__com__Method * parent;
  56 struct __ecereNameSpace__ecere__com__Method * left;
  57 struct __ecereNameSpace__ecere__com__Method * right;
  58 int depth;
  59 int (*  function)();
  60 int vid;
  61 int type;
  62 struct __ecereNameSpace__ecere__com__Class * _class;
  63 void *  symbol;
  64 char *  dataTypeString;
  65 struct Type * dataType;
  66 int memberAccess;
  67 };
  68
  69 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__Property;
  70
  71 struct __ecereNameSpace__ecere__com__Property
  72 {
  73 struct __ecereNameSpace__ecere__com__Property * prev;
  74 struct __ecereNameSpace__ecere__com__Property * next;
  75 char *  name;
  76 unsigned int isProperty;
  77 int memberAccess;
  78 int id;
  79 struct __ecereNameSpace__ecere__com__Class * _class;
  80 char *  dataTypeString;
  81 struct __ecereNameSpace__ecere__com__Class * dataTypeClass;
  82 struct Type * dataType;
  83 void (*  Set)();
  84 int (*  Get)();
  85 unsigned int (*  IsSet)();
  86 void *  data;
  87 void *  symbol;
  88 int vid;
  89 unsigned int conversion;
  90 unsigned int watcherOffset;
  91 char *  category;
  92 unsigned int compiled;
  93 unsigned int selfWatchable;
  94 unsigned int isWatchable;
  95 };
  96
  97 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_CodePosition;
  98
  99 struct CodePosition
 100 {
 101 int line;
 102 int charPos;
 103 int pos;
 104 unsigned int included;
 105 };
 106
 107 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Location;
 108
 109 struct Location
 110 {
 111 struct CodePosition start;
 112 struct CodePosition end;
 113 };
 114
 115 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_ClassDefinition;
 116
 117 struct ClassDefinition;
 118
 119 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Context;
 120
 121 struct Context;
 122
 123 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Instantiation;
 124
 125 struct Instantiation;
 126
 127 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Declaration;
 128
 129 struct Declaration;
 130
 131 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Statement;
 132
 133 struct Statement;
 134
 135 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_TypeName;
 136
 137 struct TypeName;
 138
 139 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Initializer;
 140
 141 struct Initializer;
 142
 143 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__DataValue;
 144
 145 struct __ecereNameSpace__ecere__com__DataValue
 146 {
 147 union
 148 {
 149 char c;
 150 unsigned char uc;
 151 short s;
 152 unsigned short us;
 153 int i;
 154 unsigned int ui;
 155 void *  p;
 156 float f;
 157 double d;
 158 long long i64;
 159 uint64 ui64;
 160 };
 161 };
 162
 163 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Expression;
 164
 165 struct Expression;
 166
 167 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_TemplateDatatype;
 168
 169 struct TemplateDatatype;
 170
 171 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_TemplateArgument;
 172
 173 struct TemplateArgument;
 174
 175 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_TemplateParameter;
 176
 177 struct TemplateParameter;
 178
 179 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Specifier;
 180
 181 struct Specifier;
 182
 183 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Identifier;
 184
 185 struct Identifier;
 186
 187 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Declarator;
 188
 189 struct Declarator;
 190
 191 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_FunctionDefinition;
 192
 193 struct FunctionDefinition;
 194
 195 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_DBTableDef;
 196
 197 struct DBTableDef;
 198
 199 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_External;
 200
 201 struct External;
 202
 203 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_ModuleImport;
 204
 205 struct ModuleImport
 206 {
 207 struct ModuleImport * prev;
 208 struct ModuleImport * next;
 209 char *  name;
 210 struct __ecereNameSpace__ecere__sys__OldList classes;
 211 struct __ecereNameSpace__ecere__sys__OldList functions;
 212 int importType;
 213 int importAccess;
 214 };
 215
 216 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_ClassImport;
 217
 218 struct ClassImport
 219 {
 220 struct ClassImport * prev;
 221 struct ClassImport * next;
 222 char *  name;
 223 struct __ecereNameSpace__ecere__sys__OldList methods;
 224 struct __ecereNameSpace__ecere__sys__OldList properties;
 225 unsigned int itself;
 226 unsigned int isRemote;
 227 };
 228
 229 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Symbol;
 230
 231 struct Symbol
 232 {
 233 char *  string;
 234 struct Symbol * parent;
 235 struct Symbol * left;
 236 struct Symbol * right;
 237 int depth;
 238 struct Type * type;
 239 union
 240 {
 241 struct __ecereNameSpace__ecere__com__Method * method;
 242 struct __ecereNameSpace__ecere__com__Property * _property;
 243 struct __ecereNameSpace__ecere__com__Class * registered;
 244 };
 245 int id;
 246 int idCode;
 247 union
 248 {
 249 struct
 250 {
 251 struct External * pointerExternal;
 252 struct External * structExternal;
 253 };
 254 struct
 255 {
 256 struct External * externalGet;
 257 struct External * externalSet;
 258 struct External * externalPtr;
 259 struct External * externalIsSet;
 260 };
 261 struct
 262 {
 263 struct External * methodExternal;
 264 struct External * methodCodeExternal;
 265 };
 266 };
 267 unsigned int imported;
 268 unsigned int declaredStructSym;
 269 struct __ecereNameSpace__ecere__com__Class * _class;
 270 unsigned int declaredStruct;
 271 unsigned int needConstructor;
 272 unsigned int needDestructor;
 273 char *  constructorName;
 274 char *  structName;
 275 char *  className;
 276 char *  destructorName;
 277 struct ModuleImport * module;
 278 struct ClassImport * _import;
 279 struct Location nameLoc;
 280 unsigned int isParam;
 281 unsigned int isRemote;
 282 unsigned int isStruct;
 283 unsigned int fireWatchersDone;
 284 int declaring;
 285 unsigned int classData;
 286 unsigned int isStatic;
 287 char *  shortName;
 288 struct __ecereNameSpace__ecere__sys__OldList *  templateParams;
 289 struct __ecereNameSpace__ecere__sys__OldList templatedClasses;
 290 struct Context * ctx;
 291 int isIterator;
 292 };
 293
 294 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Type;
 295
 296 struct Type
 297 {
 298 struct Type * prev;
 299 struct Type * next;
 300 int refCount;
 301 union
 302 {
 303 struct Symbol * _class;
 304 struct
 305 {
 306 struct __ecereNameSpace__ecere__sys__OldList members;
 307 char *  enumName;
 308 };
 309 struct
 310 {
 311 struct Type * returnType;
 312 struct __ecereNameSpace__ecere__sys__OldList params;
 313 struct Symbol * thisClass;
 314 unsigned int staticMethod;
 315 struct TemplateParameter * thisClassTemplate;
 316 };
 317 struct
 318 {
 319 struct __ecereNameSpace__ecere__com__Method * method;
 320 struct __ecereNameSpace__ecere__com__Class * methodClass;
 321 struct __ecereNameSpace__ecere__com__Class * usedClass;
 322 };
 323 struct
 324 {
 325 struct Type * arrayType;
 326 int arraySize;
 327 struct Expression * arraySizeExp;
 328 unsigned int freeExp;
 329 struct Symbol * enumClass;
 330 };
 331 struct Type * type;
 332 struct TemplateParameter * templateParameter;
 333 };
 334 unsigned int isSigned;
 335 int kind;
 336 unsigned int constant;
 337 unsigned int size;
 338 char *  name;
 339 char *  typeName;
 340 unsigned int count;
 341 unsigned int truth;
 342 int classObjectType;
 343 unsigned int byReference;
 344 unsigned int extraParam;
 345 int alignment;
 346 unsigned int directClassAccess;
 347 unsigned int computing;
 348 unsigned int dllExport;
 349 unsigned int offset;
 350 unsigned int keepCast;
 351 unsigned int passAsTemplate;
 352 int bitFieldCount;
 353 };
 354
 355 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__Class;
 356
 357 struct __ecereNameSpace__ecere__com__Class
 358 {
 359 struct __ecereNameSpace__ecere__com__Class * prev;
 360 struct __ecereNameSpace__ecere__com__Class * next;
 361 char *  name;
 362 int offset;
 363 int structSize;
 364 int (* *  _vTbl)();
 365 int vTblSize;
 366 int (*  Constructor)(struct __ecereNameSpace__ecere__com__Instance *);
 367 void (*  Destructor)(struct __ecereNameSpace__ecere__com__Instance *);
 368 int offsetClass;
 369 int sizeClass;
 370 struct __ecereNameSpace__ecere__com__Class * base;
 371 struct __ecereNameSpace__ecere__sys__BinaryTree methods;
 372 struct __ecereNameSpace__ecere__sys__BinaryTree members;
 373 struct __ecereNameSpace__ecere__sys__BinaryTree prop;
 374 struct __ecereNameSpace__ecere__sys__OldList membersAndProperties;
 375 struct __ecereNameSpace__ecere__sys__BinaryTree classProperties;
 376 struct __ecereNameSpace__ecere__sys__OldList derivatives;
 377 int memberID;
 378 int startMemberID;
 379 int type;
 380 struct __ecereNameSpace__ecere__com__Instance * module;
 381 struct __ecereNameSpace__ecere__com__NameSpace *  nameSpace;
 382 char *  dataTypeString;
 383 struct Type * dataType;
 384 int typeSize;
 385 int defaultAlignment;
 386 void (*  Initialize)();
 387 int memberOffset;
 388 struct __ecereNameSpace__ecere__sys__OldList selfWatchers;
 389 char *  designerClass;
 390 unsigned int noExpansion;
 391 char *  defaultProperty;
 392 unsigned int comRedefinition;
 393 int count;
 394 unsigned int isRemote;
 395 unsigned int internalDecl;
 396 void *  data;
 397 unsigned int computeSize;
 398 int structAlignment;
 399 int destructionWatchOffset;
 400 unsigned int fixed;
 401 struct __ecereNameSpace__ecere__sys__OldList delayedCPValues;
 402 int inheritanceAccess;
 403 char *  fullName;
 404 void *  symbol;
 405 struct __ecereNameSpace__ecere__sys__OldList conversions;
 406 struct __ecereNameSpace__ecere__sys__OldList templateParams;
 407 struct __ecereNameSpace__ecere__com__ClassTemplateArgument *  templateArgs;
 408 struct __ecereNameSpace__ecere__com__Class * templateClass;
 409 struct __ecereNameSpace__ecere__sys__OldList templatized;
 410 int numParams;
 411 };
 412
 413 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__Instance;
 414
 415 struct __ecereNameSpace__ecere__com__Instance
 416 {
 417 int (* *  _vTbl)();
 418 struct __ecereNameSpace__ecere__com__Class * _class;
 419 int _refCount;
 420 };
 421
 422 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__DataMember;
 423
 424 struct __ecereNameSpace__ecere__com__DataMember
 425 {
 426 struct __ecereNameSpace__ecere__com__DataMember * prev;
 427 struct __ecereNameSpace__ecere__com__DataMember * next;
 428 char *  name;
 429 unsigned int isProperty;
 430 int memberAccess;
 431 int id;
 432 struct __ecereNameSpace__ecere__com__Class * _class;
 433 char *  dataTypeString;
 434 struct __ecereNameSpace__ecere__com__Class * dataTypeClass;
 435 struct Type * dataType;
 436 int type;
 437 int offset;
 438 int memberID;
 439 struct __ecereNameSpace__ecere__sys__OldList members;
 440 struct __ecereNameSpace__ecere__sys__BinaryTree membersAlpha;
 441 int memberOffset;
 442 int structAlignment;
 443 };
 444
 445 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__SerialBuffer;
 446
 447 struct __ecereNameSpace__ecere__com__SerialBuffer
 448 {
 449 unsigned char *  _buffer;
 450 unsigned int count;
 451 unsigned int _size;
 452 unsigned int pos;
 453 };
 454
 455 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__ClassTemplateArgument;
 456
 457 struct __ecereNameSpace__ecere__com__ClassTemplateArgument
 458 {
 459 union
 460 {
 461 struct
 462 {
 463 char *  dataTypeString;
 464 struct __ecereNameSpace__ecere__com__Class * dataTypeClass;
 465 };
 466 struct __ecereNameSpace__ecere__com__DataValue expression;
 467 struct
 468 {
 469 char *  memberString;
 470 union
 471 {
 472 struct __ecereNameSpace__ecere__com__DataMember * member;
 473 struct __ecereNameSpace__ecere__com__Property * prop;
 474 struct __ecereNameSpace__ecere__com__Method * method;
 475 };
 476 };
 477 };
 478 };
 479
 480 static int targetPlatform;
 481
 482 static unsigned int isConsole;
 483
 484 static unsigned int isDynamicLibrary;
 485
 486 static unsigned int isStaticLibrary;
 487
 488 static struct __ecereNameSpace__ecere__sys__OldList modules;
 489
 490 static struct __ecereNameSpace__ecere__com__Instance * dcomSymbols;
 491
 492 struct __ecereNameSpace__ecere__sys__OldList _defines =
 493 {
 494 0, 0, 0, 0, 0
 495 };
 496
 497 struct __ecereNameSpace__ecere__sys__OldList _imports =
 498 {
 499 0, 0, 0, 0, 0
 500 };
 501
 502 struct __ecereNameSpace__ecere__sys__OldList _excludedSymbols =
 503 {
 504 0, 0, 0, (unsigned int)&((struct Symbol *)(void *)0)->left, 0
 505 };
 506
 507 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__NameSpace;
 508
 509 struct __ecereNameSpace__ecere__com__NameSpace
 510 {
 511 char *  name;
 512 struct __ecereNameSpace__ecere__com__NameSpace *  btParent;
 513 struct __ecereNameSpace__ecere__com__NameSpace *  left;
 514 struct __ecereNameSpace__ecere__com__NameSpace *  right;
 515 int depth;
 516 struct __ecereNameSpace__ecere__com__NameSpace *  parent;
 517 struct __ecereNameSpace__ecere__sys__BinaryTree nameSpaces;
 518 struct __ecereNameSpace__ecere__sys__BinaryTree classes;
 519 struct __ecereNameSpace__ecere__sys__BinaryTree defines;
 520 struct __ecereNameSpace__ecere__sys__BinaryTree functions;
 521 };
 522
 523 static struct __ecereNameSpace__ecere__com__NameSpace globalData;
 524
 525 static struct Context * theGlobalContext;
 526
 527 static struct ModuleImport * mainModule;
 528
 529 static struct __ecereNameSpace__ecere__com__Instance * privateModule;
 530
 531 static char mainModuleName[797];
 532
 533 static char projectName[797];
 534
 535 extern struct __ecereNameSpace__ecere__com__Instance * __ecereNameSpace__ecere__sys__FileOpen(char *  fileName, int mode);
 536
 537 extern char *  __ecereNameSpace__ecere__sys__TrimLSpaces(char *  string, char *  output);
 538
 539 extern int strcmp(const char * , const char * );
 540
 541 extern struct ModuleImport * GetMainModule(void);
 542
 543 extern void SetMainModule(struct ModuleImport * moduleImport);
 544
 545 extern char *  __ecereNameSpace__ecere__sys__CopyString(char *  string);
 546
 547 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_MethodImport;
 548
 549 struct MethodImport
 550 {
 551 struct MethodImport * prev;
 552 struct MethodImport * next;
 553 char *  name;
 554 unsigned int isVirtual;
 555 };
 556
 557 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_PropertyImport;
 558
 559 struct PropertyImport
 560 {
 561 struct PropertyImport * prev;
 562 struct PropertyImport * next;
 563 char *  name;
 564 unsigned int isVirtual;
 565 unsigned int hasSet;
 566 unsigned int hasGet;
 567 };
 568
 569 extern void *  __ecereNameSpace__ecere__com__eInstance_New(struct __ecereNameSpace__ecere__com__Class * _class);
 570
 571 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_FunctionImport;
 572
 573 struct FunctionImport
 574 {
 575 struct FunctionImport * prev;
 576 struct FunctionImport * next;
 577 char *  name;
 578 };
 579
 580 unsigned int __ecereMethod___ecereNameSpace__ecere__sys__File_GetLine(struct __ecereNameSpace__ecere__com__Instance * this, char *  s, int max);
 581
 582 unsigned int __ecereMethod___ecereNameSpace__ecere__sys__OldList_AddName(struct __ecereNameSpace__ecere__sys__OldList * this, void *  item);
 583
 584 void *  __ecereMethod___ecereNameSpace__ecere__sys__OldList_FindName(struct __ecereNameSpace__ecere__sys__OldList * this, char *  name, unsigned int warn);
 585
 586 extern void __ecereNameSpace__ecere__com__eInstance_DecRef(struct __ecereNameSpace__ecere__com__Instance * instance);
 587
 588 static void LoadImports(char * fileName)
 589 {
 590 void * __ecereTemp1;
 591 struct __ecereNameSpace__ecere__com__Instance * f = __ecereNameSpace__ecere__sys__FileOpen(fileName, 1);
 592
 593 if(f)
 594 {
 595 for(; ; )
 596 {
 597 char line[1024];
 598
 599 if(!__ecereMethod___ecereNameSpace__ecere__sys__File_GetLine(f, line, sizeof line))
 600 break;
 601 __ecereNameSpace__ecere__sys__TrimLSpaces(line, line);
 602 if(line[0] == '[')
 603 {
 604 if(!strcmp(line, "[Imported Modules]"))
 605 {
 606 struct ModuleImport * module = (((void *)0));
 607
 608 for(; ; )
 609 {
 610 if(!__ecereMethod___ecereNameSpace__ecere__sys__File_GetLine(f, line, sizeof line))
 611 break;
 612 __ecereNameSpace__ecere__sys__TrimLSpaces(line, line);
 613 if(!strcmp(line, "."))
 614 break;
 615 if(line[0] == '[')
 616 {
 617 struct ClassImport * _class = (((void *)0));
 618 struct FunctionImport * function = (((void *)0));
 619
 620 if(!strcmp(line, "[This]"))
 621 {
 622 if((mainModule = GetMainModule()))
 623 module = mainModule;
 624 else
 625 {
 626 mainModule = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_ModuleImport);
 627 SetMainModule(mainModule);
 628 module = mainModule;
 629 __ecereMethod___ecereNameSpace__ecere__sys__OldList_AddName(&_imports, module);
 630 }
 631 }
 632 else if(!strcmp(line, "[Static]"))
 633 {
 634 module->importType = 1;
 635 }
 636 else if(!strcmp(line, "[Remote]"))
 637 {
 638 module->importType = 2;
 639 }
 640 else if(!strcmp(line, "[Private]"))
 641 {
 642 if(module->importAccess != 1)
 643 module->importAccess = 2;
 644 }
 645 else if(!strcmp(line, "[Public]"))
 646 {
 647 module->importAccess = 1;
 648 }
 649 else if(!strcmp(line, "[Imported Classes]"))
 650 {
 651 for(; ; )
 652 {
 653 if(!__ecereMethod___ecereNameSpace__ecere__sys__File_GetLine(f, line, sizeof line))
 654 break;
 655 __ecereNameSpace__ecere__sys__TrimLSpaces(line, line);
 656 if(!strcmp(line, "."))
 657 break;
 658 if(line[0] == '[')
 659 {
 660 if(!strcmp(line, "[Instantiated]"))
 661 {
 662 _class->itself = 0x1;
 663 }
 664 else if(!strcmp(line, "[Remote]"))
 665 {
 666 _class->isRemote = (unsigned int)1;
 667 }
 668 else if(!strcmp(line, "[Imported Methods]"))
 669 {
 670 struct MethodImport * method = (((void *)0));
 671
 672 for(; ; )
 673 {
 674 if(!__ecereMethod___ecereNameSpace__ecere__sys__File_GetLine(f, line, sizeof line))
 675 break;
 676 __ecereNameSpace__ecere__sys__TrimLSpaces(line, line);
 677 if(!strcmp(line, "."))
 678 break;
 679 if(line[0] != '[')
 680 {
 681 if(!(method = __ecereMethod___ecereNameSpace__ecere__sys__OldList_FindName(&_class->methods, line, 0x0)))
 682 {
 683 method = (__ecereTemp1 = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_MethodImport), ((struct MethodImport *)__ecereTemp1)->name = __ecereNameSpace__ecere__sys__CopyString(line), ((struct MethodImport *)__ecereTemp1));
 684 __ecereMethod___ecereNameSpace__ecere__sys__OldList_AddName(&_class->methods, method);
 685 }
 686 }
 687 else if(!strcmp(line, "[Virtual]"))
 688 method->isVirtual = 0x1;
 689 }
 690 }
 691 else if(!strcmp(line, "[Imported Properties]"))
 692 {
 693 struct PropertyImport * prop = (((void *)0));
 694
 695 for(; ; )
 696 {
 697 if(!__ecereMethod___ecereNameSpace__ecere__sys__File_GetLine(f, line, sizeof line))
 698 break;
 699 __ecereNameSpace__ecere__sys__TrimLSpaces(line, line);
 700 if(!strcmp(line, "."))
 701 break;
 702 if(line[0] != '[')
 703 {
 704 if(!(prop = __ecereMethod___ecereNameSpace__ecere__sys__OldList_FindName(&_class->properties, line, 0x0)))
 705 {
 706 prop = (__ecereTemp1 = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_PropertyImport), ((struct PropertyImport *)__ecereTemp1)->name = __ecereNameSpace__ecere__sys__CopyString(line), ((struct PropertyImport *)__ecereTemp1));
 707 __ecereMethod___ecereNameSpace__ecere__sys__OldList_AddName(&_class->properties, prop);
 708 }
 709 }
 710 else if(!strcmp(line, "[Set]"))
 711 prop->hasSet = 0x1;
 712 else if(!strcmp(line, "[Get]"))
 713 prop->hasGet = 0x1;
 714 else if(!strcmp(line, "[Virtual]"))
 715 prop->isVirtual = 0x1;
 716 }
 717 }
 718 }
 719 else
 720 {
 721 if(!(_class = __ecereMethod___ecereNameSpace__ecere__sys__OldList_FindName(&module->classes, line, 0x0)))
 722 {
 723 _class = (__ecereTemp1 = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_ClassImport), ((struct ClassImport *)__ecereTemp1)->name = __ecereNameSpace__ecere__sys__CopyString(line), ((struct ClassImport *)__ecereTemp1));
 724 __ecereMethod___ecereNameSpace__ecere__sys__OldList_AddName(&module->classes, _class);
 725 }
 726 }
 727 }
 728 }
 729 else if(!strcmp(line, "[Imported Functions]"))
 730 {
 731 for(; ; )
 732 {
 733 if(!__ecereMethod___ecereNameSpace__ecere__sys__File_GetLine(f, line, sizeof line))
 734 break;
 735 __ecereNameSpace__ecere__sys__TrimLSpaces(line, line);
 736 if(!strcmp(line, "."))
 737 break;
 738 if(line[0] == '[')
 739 {
 740 }
 741 else
 742 {
 743 if(!(function = __ecereMethod___ecereNameSpace__ecere__sys__OldList_FindName(&module->functions, line, 0x0)))
 744 {
 745 function = (__ecereTemp1 = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_FunctionImport), ((struct FunctionImport *)__ecereTemp1)->name = __ecereNameSpace__ecere__sys__CopyString(line), ((struct FunctionImport *)__ecereTemp1));
 746 __ecereMethod___ecereNameSpace__ecere__sys__OldList_AddName(&module->functions, function);
 747 }
 748 }
 749 }
 750 }
 751 }
 752 else
 753 {
 754 if(!(module = __ecereMethod___ecereNameSpace__ecere__sys__OldList_FindName(&_imports, line, 0x0)))
 755 {
 756 if(!strcmp(line, "ecereCOM"))
 757 {
 758 module = __ecereMethod___ecereNameSpace__ecere__sys__OldList_FindName(&_imports, "ecere", 0x0);
 759 }
 760 else if(!strcmp(line, "ecere"))
 761 {
 762 module = __ecereMethod___ecereNameSpace__ecere__sys__OldList_FindName(&_imports, "ecereCOM", 0x0);
 763 if(module)
 764 {
 765 (__ecereNameSpace__ecere__com__eSystem_Delete(module->name), module->name = 0);
 766 module->name = __ecereNameSpace__ecere__sys__CopyString("ecere");
 767 }
 768 }
 769 if(!module)
 770 {
 771 module = (__ecereTemp1 = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_ModuleImport), ((struct ModuleImport *)__ecereTemp1)->name = __ecereNameSpace__ecere__sys__CopyString(line), ((struct ModuleImport *)__ecereTemp1));
 772 __ecereMethod___ecereNameSpace__ecere__sys__OldList_AddName(&_imports, module);
 773 }
 774 }
 775 }
 776 }
 777 }
 778 }
 779 }
 780 (__ecereNameSpace__ecere__com__eInstance_DecRef(f), f = 0);
 781 }
 782 }
 783
 784 static struct __ecereNameSpace__ecere__com__Class * thisAppClass;
 785
 786 struct ModuleInfo
 787 {
 788 struct ModuleInfo * prev, * next;
 789 char * name;
 790 unsigned int globalInstance;
 791 };
 792
 793 static struct __ecereNameSpace__ecere__com__Class * __ecereClass_ModuleInfo;
 794
 795 extern char *  __ecereNameSpace__ecere__sys__GetLastDirectory(char *  string, char *  output);
 796
 797 extern unsigned int __ecereNameSpace__ecere__sys__StripExtension(char *  string);
 798
 799 extern char *  strcpy(char * , const char * );
 800
 801 extern void __ecereNameSpace__ecere__sys__ChangeCh(char *  string, char ch1, char ch2);
 802
 803 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_ImportedModule;
 804
 805 struct ImportedModule
 806 {
 807 struct ImportedModule * prev;
 808 struct ImportedModule * next;
 809 char *  name;
 810 int type;
 811 int importType;
 812 unsigned int globalInstance;
 813 unsigned int dllOnly;
 814 int importAccess;
 815 };
 816
 817 static void BindDCOMServer();
 818
 819 static void BindDCOMClient();
 820
 821 extern struct __ecereNameSpace__ecere__com__Class * __ecereNameSpace__ecere__com__eSystem_FindClass(struct __ecereNameSpace__ecere__com__Instance * module, char *  name);
 822
 823 extern void FullClassNameCat(char *  output, char *  className, unsigned int includeTemplateParams);
 824
 825 extern void MangleClassName(char *  className);
 826
 827 extern struct __ecereNameSpace__ecere__com__Method * __ecereNameSpace__ecere__com__eClass_FindMethod(struct __ecereNameSpace__ecere__com__Class * _class, char *  name, struct __ecereNameSpace__ecere__com__Instance * module);
 828
 829 extern struct Context * SetupTemplatesContext(struct __ecereNameSpace__ecere__com__Class * _class);
 830
 831 extern struct Type * ProcessTypeString(char *  string, unsigned int staticMethod);
 832
 833 extern void FinishTemplatesContext(struct Context * context);
 834
 835 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__GlobalFunction;
 836
 837 struct __ecereNameSpace__ecere__com__GlobalFunction
 838 {
 839 struct __ecereNameSpace__ecere__com__GlobalFunction * prev;
 840 struct __ecereNameSpace__ecere__com__GlobalFunction * next;
 841 char *  name;
 842 int (*  function)();
 843 struct __ecereNameSpace__ecere__com__Instance * module;
 844 struct __ecereNameSpace__ecere__com__NameSpace *  nameSpace;
 845 char *  dataTypeString;
 846 struct Type * dataType;
 847 void *  symbol;
 848 };
 849
 850 extern struct __ecereNameSpace__ecere__com__GlobalFunction * __ecereNameSpace__ecere__com__eSystem_FindFunction(struct __ecereNameSpace__ecere__com__Instance * module, char *  name);
 851
 852 extern int sprintf(char * , char * , ...);
 853
 854 extern void __ecereNameSpace__ecere__com__eInstance_Delete(struct __ecereNameSpace__ecere__com__Instance * instance);
 855
 856 int __ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts;
 857
 858 int __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(struct __ecereNameSpace__ecere__com__Instance * this, char *  format, ...);
 859
 860 int __ecereVMethodID___ecereNameSpace__ecere__sys__File_Seek;
 861
 862 int __ecereVMethodID___ecereNameSpace__ecere__sys__File_Eof;
 863
 864 int __ecereVMethodID___ecereNameSpace__ecere__sys__File_Read;
 865
 866 int __ecereVMethodID___ecereNameSpace__ecere__sys__File_Write;
 867
 868 static void WriteMain(char * fileName)
 869 {
 870 struct __ecereNameSpace__ecere__com__Instance * f = __ecereNameSpace__ecere__sys__FileOpen(fileName, 2);
 871
 872 if(f)
 873 {
 874 struct ModuleImport * module;
 875 struct ModuleInfo * defModule;
 876 unsigned int nonInst = 0x0, anyMethod = 0x0, anyProp = 0x0, anyFunction = 0x0;
 877 struct ImportedModule * importedModule;
 878
 879 __ecereNameSpace__ecere__sys__GetLastDirectory(fileName, mainModuleName);
 880 __ecereNameSpace__ecere__sys__StripExtension(mainModuleName);
 881 if(!projectName[0])
 882 {
 883 strcpy(projectName, mainModuleName);
 884 __ecereNameSpace__ecere__sys__StripExtension(projectName);
 885 }
 886 __ecereNameSpace__ecere__sys__ChangeCh(mainModuleName, '.', '_');
 887 __ecereNameSpace__ecere__sys__ChangeCh(mainModuleName, '-', '_');
 888 __ecereNameSpace__ecere__sys__ChangeCh(mainModuleName, ' ', '_');
 889 if(targetPlatform == 1 && !isConsole && !isStaticLibrary && !isDynamicLibrary)
 890 {
 891 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "typedef void * HINSTANCE;\n");
 892 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "#define WINAPI __stdcall\n");
 893 }
 894 for(importedModule = _defines.first; importedModule; importedModule = importedModule->next)
 895 {
 896 if(importedModule->type == 0)
 897 {
 898 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "import ");
 899 if(importedModule->importType == 1)
 900 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "static ", importedModule->name);
 901 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\"%s\"\n", importedModule->name);
 902 }
 903 }
 904 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "default:\n");
 905 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "static Module __currentModule;\n\n");
 906 if(!isStaticLibrary)
 907 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "Module __thisModule;\n\n");
 908 BindDCOMServer();
 909 BindDCOMClient();
 910 if(dcomSymbols)
 911 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "void __ecereRegisterModule_%s(Module module);\n\n", mainModuleName);
 912 for(module = _imports.first; module; module = module->next)
 913 {
 914 struct ClassImport * _class;
 915 struct FunctionImport * function;
 916
 917 if(module->importType == 1)
 918 {
 919 {
 920 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "bool __ecereDll_Load_%s(Module module);\n", module->name);
 921 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "bool __ecereDll_Unload_%s(Module module);\n", module->name);
 922 }
 923 }
 924 for(_class = module->classes.first; _class; _class = _class->next)
 925 {
 926 struct MethodImport * method;
 927 struct PropertyImport * prop;
 928 char className[1024] = "";
 929 struct __ecereNameSpace__ecere__com__Class * regClass = __ecereNameSpace__ecere__com__eSystem_FindClass(privateModule, _class->name);
 930
 931 FullClassNameCat(className, _class->name, 0x1);
 932 MangleClassName(className);
 933 if(_class->itself)
 934 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "Class __ecereClass_%s;\n", className);
 935 else
 936 nonInst = 0x1;
 937 {
 938 {
 939 for(method = _class->methods.first; method; method = method->next)
 940 {
 941 struct __ecereNameSpace__ecere__com__Method * meth = __ecereNameSpace__ecere__com__eClass_FindMethod(regClass, method->name, privateModule);
 942
 943 if(meth && !meth->dataType)
 944 {
 945 struct Context * context = SetupTemplatesContext(regClass);
 946
 947 meth->dataType = ProcessTypeString(meth->dataTypeString, 0x0);
 948 FinishTemplatesContext(context);
 949 }
 950 if(method->isVirtual)
 951 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "int __ecereVMethodID_%s_%s;\n", className, method->name);
 952 else if(module->name && module->importType != 1 && (!meth || !meth->dataType->dllExport))
 953 {
 954 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "int (*__ecereMethod_%s_%s)();\n", className, method->name);
 955 }
 956 anyMethod = 0x1;
 957 }
 958 }
 959 for(prop = _class->properties.first; prop; prop = prop->next)
 960 {
 961 char propName[1024];
 962
 963 propName[0] = (char)0;
 964 FullClassNameCat(propName, prop->name, 0x1);
 965 MangleClassName(propName);
 966 if(module->name && module->importType != 1)
 967 {
 968 if(prop->hasSet)
 969 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "void * __ecereProp_%s_Set_%s;\n", className, propName);
 970 if(prop->hasGet)
 971 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "void * __ecereProp_%s_Get_%s;\n", className, propName);
 972 }
 973 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "Property __ecereProp_%s_%s;\n", className, propName);
 974 anyProp = 0x1;
 975 }
 976 }
 977 }
 978 for(function = module->functions.first; function; function = function->next)
 979 {
 980 struct __ecereNameSpace__ecere__com__GlobalFunction * func = __ecereNameSpace__ecere__com__eSystem_FindFunction(privateModule, function->name);
 981
 982 if(func && !func->dataType)
 983 func->dataType = ProcessTypeString(func->dataTypeString, 0x0);
 984 if(module->name && module->importType != 1 && (!func || !func->dataType || !func->dataType->dllExport))
 985 {
 986 char functionName[1024];
 987
 988 functionName[0] = (char)0;
 989 FullClassNameCat(functionName, function->name, 0x0);
 990 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "void * __ecereFunction_%s;\n", functionName);
 991 anyFunction = 0x1;
 992 }
 993 }
 994 }
 995 for(defModule = modules.first; defModule; defModule = defModule->next)
 996 {
 997 char moduleName[1024];
 998
 999 strcpy(moduleName, defModule->name);
1000 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, ' ', '_');
1001 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, '-', '_');
1002 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, '.', '_');
1003 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "void __ecereRegisterModule_%s(Module module);\n", moduleName);
1004 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "void __ecereUnregisterModule_%s(Module module);\n", moduleName);
1005 if(defModule->globalInstance)
1006 {
1007 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "void __ecereCreateModuleInstances_%s();\n", moduleName);
1008 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "void __ecereDestroyModuleInstances_%s();\n", moduleName);
1009 }
1010 }
1011 if(dcomSymbols)
1012 {
1013 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1014 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, int pos, int mode))dcomSymbols->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Seek])(dcomSymbols, 0, 0);
1015 while(!((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *))dcomSymbols->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Eof])(dcomSymbols))
1016 {
1017 char buffer[4096];
1018 int read = ((int (*)(struct __ecereNameSpace__ecere__com__Instance *, void *  buffer, unsigned int size, unsigned int count))dcomSymbols->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Read])(dcomSymbols, buffer, 1, sizeof buffer);
1019
1020 if(!read)
1021 break;
1022 ((int (*)(struct __ecereNameSpace__ecere__com__Instance *, void *  buffer, unsigned int size, unsigned int count))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Write])(f, buffer, 1, read);
1023 }
1024 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1025 }
1026 if(isStaticLibrary)
1027 {
1028 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\nbool __ecereDll_Load_%s(Module module)\n{\n", projectName);
1029 }
1030 else if(isDynamicLibrary)
1031 {
1032 if(targetPlatform == 1)
1033 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "\ndllexport bool __stdcall __ecereDll_Load(Module module)\n{\n");
1034 else
1035 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "\ndllexport bool __ecereDll_Load(Module module)\n{\n");
1036 }
1037 else if(targetPlatform == 1 && !isConsole)
1038 {
1039 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "\nint WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInst, char * cmdLine, int show)\n{\n");
1040 }
1041 else
1042 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "\nint main(int _argc, char * _argv[])\n{\n");
1043 if(!isDynamicLibrary)
1044 {
1045 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   int exitCode;\n");
1046 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   Module module;\n");
1047 }
1048 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   Class _class;\n");
1049 if(anyMethod)
1050 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   Method method;\n");
1051 if(anyProp)
1052 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   Property _property;\n");
1053 if(anyFunction)
1054 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   GlobalFunction function;\n");
1055 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "\n");
1056 if(isDynamicLibrary)
1057 {
1058 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   if(!__currentModule)\n");
1059 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   {\n");
1060 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "      __currentModule = module;\n");
1061 if(!isStaticLibrary)
1062 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "      __thisModule = module;\n");
1063 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   }\n\n");
1064 }
1065 else if(targetPlatform == 1 && !isConsole)
1066 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   __thisModule = __currentModule = module = __ecere_COM_Initialize(1, 0, null);\n\n");
1067 else
1068 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   __thisModule = __currentModule = module = __ecere_COM_Initialize(1, _argc, (void *)_argv);\n\n");
1069 if(_imports.count)
1070 {
1071 for(module = _imports.first; module; module = module->next)
1072 {
1073 if(module->name)
1074 {
1075 {
1076 if(module->importType == 1)
1077 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   eModule_LoadStatic(module, \"%s\", %s, __ecereDll_Load_%s, __ecereDll_Unload_%s);\n", module->name, (module->importAccess == 2) ? "privateAccess" : "publicAccess", module->name, module->name);
1078 else
1079 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   eModule_Load(module, \"%s\", %s);\n", module->name, (module->importAccess == 2) ? "privateAccess" : "publicAccess");
1080 }
1081 }
1082 }
1083 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1084 }
1085 if(modules.count)
1086 {
1087 for(defModule = modules.first; defModule; defModule = defModule->next)
1088 {
1089 char moduleName[1024];
1090
1091 strcpy(moduleName, defModule->name);
1092 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, ' ', '_');
1093 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, '-', '_');
1094 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, '.', '_');
1095 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   __ecereRegisterModule_%s(module);\n", moduleName);
1096 }
1097 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1098 }
1099 if(dcomSymbols)
1100 {
1101 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   __ecereRegisterModule_%s(module);\n\n", mainModuleName);
1102 (__ecereNameSpace__ecere__com__eInstance_DecRef(dcomSymbols), dcomSymbols = 0);
1103 }
1104 if(isDynamicLibrary)
1105 {
1106 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   if(__currentModule == module)\n");
1107 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   {\n");
1108 }
1109 for(module = _imports.first; module; module = module->next)
1110 {
1111 struct ClassImport * _class;
1112 struct FunctionImport * function;
1113
1114 if(module->classes.count)
1115 {
1116 for(_class = module->classes.first; _class; _class = _class->next)
1117 {
1118 struct __ecereNameSpace__ecere__com__Class * regClass = __ecereNameSpace__ecere__com__eSystem_FindClass(privateModule, _class->name);
1119
1120 {
1121 struct MethodImport * method;
1122 struct PropertyImport * prop;
1123 char classID[1024];
1124 char className[1024] = "";
1125
1126 FullClassNameCat(className, _class->name, 0x1);
1127 MangleClassName(className);
1128 if(_class->itself)
1129 sprintf(classID, "__ecereClass_%s", className);
1130 else
1131 strcpy(classID, "_class");
1132 if(isDynamicLibrary && !isStaticLibrary)
1133 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   %s = eSystem_FindClass(__currentModule, \"%s\");\n", classID, _class->name);
1134 else
1135 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   %s = eSystem_FindClass(module, \"%s\");\n", classID, _class->name);
1136 for(method = _class->methods.first; method; method = method->next)
1137 {
1138 struct __ecereNameSpace__ecere__com__Method * meth = __ecereNameSpace__ecere__com__eClass_FindMethod(regClass, method->name, privateModule);
1139
1140 if(!meth || !meth->dataType->dllExport)
1141 {
1142 if(method->isVirtual || (module->name && module->importType != 1))
1143 {
1144 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   method = eClass_FindMethod(%s, \"%s\", module);\n", classID, method->name);
1145 if(method->isVirtual)
1146 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   if(method) __ecereVMethodID_%s_%s = method.vid;\n", className, method->name);
1147 else
1148 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   if(method) __ecereMethod_%s_%s = method.function;\n", className, method->name);
1149 }
1150 }
1151 }
1152 for(prop = _class->properties.first; prop; prop = prop->next)
1153 {
1154 char propName[1024];
1155
1156 propName[0] = (char)0;
1157 FullClassNameCat(propName, prop->name, 0x1);
1158 MangleClassName(propName);
1159 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   __ecereProp_%s_%s = _property = eClass_FindProperty(%s, \"%s\", module);\n", className, propName, classID, prop->name);
1160 if(module->name && module->importType != 1)
1161 {
1162 if(prop->hasSet)
1163 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   __ecereProp_%s_Set_%s = _property.Set;\n", className, propName);
1164 if(prop->hasGet)
1165 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   __ecereProp_%s_Get_%s = _property.Get;\n", className, propName);
1166 }
1167 }
1168 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1169 }
1170 }
1171 }
1172 if(module->functions.count)
1173 {
1174 for(function = module->functions.first; function; function = function->next)
1175 {
1176 struct __ecereNameSpace__ecere__com__GlobalFunction * func = __ecereNameSpace__ecere__com__eSystem_FindFunction(privateModule, function->name);
1177
1178 if(module->name && module->importType != 1 && (!func || !func->dataType || !func->dataType->dllExport))
1179 {
1180 char functionName[1024];
1181
1182 functionName[0] = (char)0;
1183 FullClassNameCat(functionName, function->name, 0x0);
1184 if(isDynamicLibrary && !isStaticLibrary)
1185 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   function = eSystem_FindFunction(__currentModule, \"%s\");\n", function->name);
1186 else
1187 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   function = eSystem_FindFunction(module, \"%s\");\n", function->name);
1188 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   if(function) __ecereFunction_%s = function.function;\n", functionName);
1189 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1190 }
1191 }
1192 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1193 }
1194 }
1195 if(isDynamicLibrary)
1196 {
1197 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   }\n");
1198 }
1199 if(!isDynamicLibrary && thisAppClass)
1200 {
1201 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   _class = eSystem_FindClass(__currentModule, \"%s\");\n", thisAppClass->name);
1202 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   eInstance_Evolve((Instance *)&__currentModule, _class);\n");
1203 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   __thisModule = __currentModule;\n");
1204 }
1205 if(isDynamicLibrary)
1206 {
1207 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   if(__currentModule == module)\n");
1208 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   {\n");
1209 }
1210 if(modules.count)
1211 {
1212 for(defModule = modules.first; defModule; defModule = defModule->next)
1213 if(defModule->globalInstance)
1214 {
1215 char moduleName[1024];
1216
1217 strcpy(moduleName, defModule->name);
1218 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, ' ', '_');
1219 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, '-', '_');
1220 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, '.', '_');
1221 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   __ecereCreateModuleInstances_%s();\n", moduleName);
1222 }
1223 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1224 }
1225 if(isDynamicLibrary)
1226 {
1227 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   }\n");
1228 }
1229 if(!isDynamicLibrary && thisAppClass)
1230 {
1231 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   __currentModule._vTbl[12](__currentModule);\n");
1232 }
1233 if(isDynamicLibrary)
1234 {
1235 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   return true;\n");
1236 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "}\n");
1237 if(isStaticLibrary)
1238 {
1239 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\nbool __ecereDll_Unload_%s(Module module)\n{\n", projectName);
1240 }
1241 else
1242 {
1243 if(targetPlatform == 1)
1244 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "\ndllexport bool __stdcall __ecereDll_Unload(Module module)\n{\n");
1245 else
1246 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "\ndllexport bool __ecereDll_Unload(Module module)\n{\n");
1247 }
1248 }
1249 if(isDynamicLibrary)
1250 {
1251 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   if(__currentModule == module)\n");
1252 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   {\n");
1253 }
1254 if(modules.count)
1255 {
1256 for(defModule = modules.first; defModule; defModule = defModule->next)
1257 if(defModule->globalInstance)
1258 {
1259 char moduleName[1024];
1260
1261 strcpy(moduleName, defModule->name);
1262 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, ' ', '_');
1263 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, '-', '_');
1264 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, '.', '_');
1265 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   __ecereDestroyModuleInstances_%s();\n", moduleName);
1266 }
1267 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1268 }
1269 if(isDynamicLibrary)
1270 {
1271 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   }\n");
1272 if(isDynamicLibrary)
1273 {
1274 }
1275 if(modules.count)
1276 {
1277 for(defModule = modules.first; defModule; defModule = defModule->next)
1278 {
1279 char moduleName[1024];
1280
1281 strcpy(moduleName, defModule->name);
1282 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, ' ', '_');
1283 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, '-', '_');
1284 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, '.', '_');
1285 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   __ecereUnregisterModule_%s(module);\n", moduleName);
1286 }
1287 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1288 }
1289 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   if(__currentModule == module)\n");
1290 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "      __currentModule = (void *)0;\n");
1291 if(!isStaticLibrary)
1292 {
1293 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   if(__thisModule == module)\n");
1294 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "      __thisModule = (void *)0;\n");
1295 }
1296 }
1297 if(!isDynamicLibrary)
1298 {
1299 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "\n   _class = eSystem_FindClass(__currentModule, \"ecere::com::Application\");\n   exitCode = ((ecere::com::Application)__currentModule).exitCode;\n   delete __currentModule;\n   return exitCode;\n");
1300 }
1301 else
1302 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   return true;\n");
1303 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "}\n");
1304 __ecereNameSpace__ecere__com__eInstance_Delete(f);
1305 }
1306 }
1307
1308 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__BTNamedLink;
1309
1310 struct __ecereNameSpace__ecere__com__BTNamedLink
1311 {
1312 char *  name;
1313 struct __ecereNameSpace__ecere__com__BTNamedLink * parent;
1314 struct __ecereNameSpace__ecere__com__BTNamedLink * left;
1315 struct __ecereNameSpace__ecere__com__BTNamedLink * right;
1316 int depth;
1317 void *  data;
1318 };
1319
1320 struct __ecereNameSpace__ecere__sys__BTNode * __ecereProp___ecereNameSpace__ecere__sys__BinaryTree_Get_first(struct __ecereNameSpace__ecere__sys__BinaryTree * this);
1321
1322 extern struct __ecereNameSpace__ecere__com__Property ** __ecereProp___ecereNameSpace__ecere__sys__BinaryTree_first;
1323
1324 struct __ecereNameSpace__ecere__sys__BTNode * __ecereProp___ecereNameSpace__ecere__sys__BTNode_Get_next(struct __ecereNameSpace__ecere__sys__BTNode * this);
1325
1326 extern struct __ecereNameSpace__ecere__com__Property ** __ecereProp___ecereNameSpace__ecere__sys__BTNode_next;
1327
1328 static struct __ecereNameSpace__ecere__com__Class * FindAppClass(struct __ecereNameSpace__ecere__com__NameSpace * nameSpace, unsigned int thisModule)
1329 {
1330 struct __ecereNameSpace__ecere__com__BTNamedLink * link;
1331 struct __ecereNameSpace__ecere__com__NameSpace * ns;
1332
1333 for(link = (struct __ecereNameSpace__ecere__com__BTNamedLink *)__ecereProp___ecereNameSpace__ecere__sys__BinaryTree_Get_first(&(*nameSpace).classes); link; link = (struct __ecereNameSpace__ecere__com__BTNamedLink *)__ecereProp___ecereNameSpace__ecere__sys__BTNode_Get_next(((struct __ecereNameSpace__ecere__sys__BTNode *)link)))
1334 {
1335 struct __ecereNameSpace__ecere__com__Class * _class = link->data;
1336
1337 if(strcmp(_class->fullName, "ecere::com::Application") && (!thisModule || _class->module == privateModule))
1338 {
1339 struct __ecereNameSpace__ecere__com__Class * base;
1340
1341 for(base = _class->base; base && base->type != 1000; base = base->base)
1342 if(!strcmp(base->fullName, "ecere::com::Application"))
1343 return _class;
1344 }
1345 }
1346 for(ns = (struct __ecereNameSpace__ecere__com__NameSpace *)__ecereProp___ecereNameSpace__ecere__sys__BinaryTree_Get_first(&(*nameSpace).nameSpaces); ns; ns = (struct __ecereNameSpace__ecere__com__NameSpace *)__ecereProp___ecereNameSpace__ecere__sys__BTNode_Get_next(((struct __ecereNameSpace__ecere__sys__BTNode *)ns)))
1347 {
1348 struct __ecereNameSpace__ecere__com__Class * _class = FindAppClass(ns, thisModule);
1349
1350 if(_class)
1351 return _class;
1352 }
1353 return (((void *)0));
1354 }
1355
1356 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__Module;
1357
1358 struct __ecereNameSpace__ecere__com__Module
1359 {
1360 struct __ecereNameSpace__ecere__com__Instance * application;
1361 struct __ecereNameSpace__ecere__sys__OldList classes;
1362 struct __ecereNameSpace__ecere__sys__OldList defines;
1363 struct __ecereNameSpace__ecere__sys__OldList functions;
1364 struct __ecereNameSpace__ecere__sys__OldList modules;
1365 struct __ecereNameSpace__ecere__com__Instance * prev;
1366 struct __ecereNameSpace__ecere__com__Instance * next;
1367 char *  name;
1368 void *  library;
1369 void *  Unload;
1370 int importType;
1371 struct __ecereNameSpace__ecere__com__NameSpace privateNameSpace;
1372 struct __ecereNameSpace__ecere__com__NameSpace publicNameSpace;
1373 };
1374
1375 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__SubModule;
1376
1377 struct __ecereNameSpace__ecere__com__SubModule
1378 {
1379 struct __ecereNameSpace__ecere__com__SubModule * prev;
1380 struct __ecereNameSpace__ecere__com__SubModule * next;
1381 struct __ecereNameSpace__ecere__com__Instance * module;
1382 int importMode;
1383 };
1384
1385 static struct __ecereNameSpace__ecere__com__Class * SearchAppClass_Module(struct __ecereNameSpace__ecere__com__Instance * module)
1386 {
1387 struct __ecereNameSpace__ecere__com__Class * appClass;
1388 struct __ecereNameSpace__ecere__com__SubModule * subModule;
1389
1390 appClass = FindAppClass(&((struct __ecereNameSpace__ecere__com__Module *)(((char *)module + 12)))->publicNameSpace, 0x0);
1391 if(appClass)
1392 return appClass;
1393 appClass = FindAppClass(&((struct __ecereNameSpace__ecere__com__Module *)(((char *)module + 12)))->privateNameSpace, 0x0);
1394 if(appClass)
1395 return appClass;
1396 for(subModule = ((struct __ecereNameSpace__ecere__com__Module *)(((char *)module + 12)))->modules.first; subModule; subModule = subModule->next)
1397 {
1398 appClass = SearchAppClass_Module(subModule->module);
1399 if(appClass)
1400 return appClass;
1401 }
1402 return (((void *)0));
1403 }
1404
1405 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__sys__TempFile;
1406
1407 struct __ecereNameSpace__ecere__sys__TempFile
1408 {
1409 char __ecere_padding[24];
1410 };
1411
1412 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__sys__OldLink;
1413
1414 struct __ecereNameSpace__ecere__sys__OldLink
1415 {
1416 struct __ecereNameSpace__ecere__sys__OldLink * prev;
1417 struct __ecereNameSpace__ecere__sys__OldLink * next;
1418 void *  data;
1419 };
1420
1421 extern void DeclareClass(struct Symbol * classSym, char *  className);
1422
1423 extern struct Symbol * FindClass(char *  name);
1424
1425 extern struct __ecereNameSpace__ecere__sys__OldList *  MkList(void);
1426
1427 extern void PrintType(struct Type * type, char *  string, unsigned int printName, unsigned int fullName);
1428
1429 extern struct Declarator * SpecDeclFromString(char *  string, struct __ecereNameSpace__ecere__sys__OldList *  specs, struct Declarator * baseDecl);
1430
1431 extern struct Declarator * MkDeclaratorIdentifier(struct Identifier * id);
1432
1433 extern struct Identifier * MkIdentifier(char *  string);
1434
1435 extern struct TypeName * MkTypeName(struct __ecereNameSpace__ecere__sys__OldList * qualifiers, struct Declarator * declarator);
1436
1437 extern void OutputTypeName(struct TypeName * type, struct __ecereNameSpace__ecere__com__Instance * f);
1438
1439 extern char *  strcat(char * , const char * );
1440
1441 extern void DeclareMethod(struct __ecereNameSpace__ecere__com__Method * method, char *  name);
1442
1443 static void BindDCOMClient()
1444 {
1445 struct __ecereNameSpace__ecere__com__Class * dcomClientObjectClass = __ecereNameSpace__ecere__com__eSystem_FindClass(privateModule, "ecere::net::DCOMClientObject");
1446 struct __ecereNameSpace__ecere__sys__OldLink * deriv;
1447
1448 if(dcomClientObjectClass && dcomClientObjectClass->derivatives.first)
1449 {
1450 struct __ecereNameSpace__ecere__com__Instance * f;
1451
1452 if(!dcomSymbols)
1453 dcomSymbols = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass___ecereNameSpace__ecere__sys__TempFile);
1454 f = dcomSymbols;
1455 for(deriv = dcomClientObjectClass->derivatives.first; deriv; deriv = deriv->next)
1456 {
1457 struct __ecereNameSpace__ecere__com__Class * _class = deriv->data;
1458 struct __ecereNameSpace__ecere__com__Method * method, * next;
1459 int id = 0;
1460 int vid;
1461 unsigned int doVirtual;
1462
1463 DeclareClass(FindClass("ecere::net::DCOMClientObject"), "__ecereClass___ecereNameSpace__ecere__net__DCOMClientObject");
1464 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "class %s : ecere::net::DCOMClientObject\n", _class->fullName);
1465 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "{\n");
1466 if(_class->vTblSize > _class->base->vTblSize)
1467 {
1468 int vid;
1469
1470 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   virtual void CallVirtualMethod(uint __ecereMethodID, SerialBuffer __ecereBuffer)\n");
1471 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   {\n");
1472 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      switch(__ecereMethodID)\n");
1473 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      {\n");
1474 for(vid = _class->base->vTblSize; vid < _class->vTblSize; vid++)
1475 {
1476 struct __ecereNameSpace__ecere__com__Method * method;
1477
1478 for(method = (struct __ecereNameSpace__ecere__com__Method *)__ecereProp___ecereNameSpace__ecere__sys__BinaryTree_Get_first(&_class->methods); method; method = (struct __ecereNameSpace__ecere__com__Method *)__ecereProp___ecereNameSpace__ecere__sys__BTNode_Get_next(((struct __ecereNameSpace__ecere__sys__BTNode *)method)))
1479 {
1480 if(method->type == 1 && method->_class == _class && method->vid == vid)
1481 break;
1482 }
1483 if(method)
1484 {
1485 struct Type * param;
1486
1487 method->dataType = ProcessTypeString(method->dataTypeString, 0x0);
1488 if(method->dataType && method->dataType->name)
1489 {
1490 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "         case %d:\n", vid - _class->base->vTblSize);
1491 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "         {\n");
1492 {
1493 if(method->dataType->returnType->kind != 0)
1494 {
1495 struct TypeName * resultType;
1496 struct __ecereNameSpace__ecere__sys__OldList * specs = MkList();
1497 struct Declarator * decl;
1498 char type[1024] = "";
1499 char className[1024];
1500 struct Symbol * classSym;
1501
1502 if(method->dataType->returnType->kind == 8)
1503 classSym = method->dataType->returnType->_class;
1504 else
1505 {
1506 PrintType(method->dataType->returnType, type, 0x0, 0x1);
1507 classSym = FindClass(type);
1508 type[0] = (char)0;
1509 }
1510 strcpy(className, "__ecereClass_");
1511 FullClassNameCat(className, classSym->string, 0x1);
1512 MangleClassName(className);
1513 DeclareClass(classSym, className);
1514 PrintType(method->dataType->returnType, type, 0x1, 0x1);
1515 decl = SpecDeclFromString(type, specs, MkDeclaratorIdentifier(MkIdentifier("__ecereResult")));
1516 resultType = MkTypeName(specs, decl);
1517 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "            ");
1518 OutputTypeName(resultType, f);
1519 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, ";\n");
1520 }
1521 for(param = method->dataType->params.first; param; param = param->next)
1522 {
1523 if(param->kind == 8 && !strcmp(param->_class->string, "String"))
1524 {
1525 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "            char %s[1024];\n", param->name);
1526 DeclareClass(FindClass("StaticString"), "__ecereClass_StaticString");
1527 DeclareClass(FindClass("String"), "__ecereClass_String");
1528 }
1529 else
1530 {
1531 struct TypeName * paramTypeName;
1532 struct __ecereNameSpace__ecere__sys__OldList * specs = MkList();
1533 struct Declarator * decl;
1534 char type[1024] = "";
1535 char className[1024];
1536 struct Symbol * classSym;
1537
1538 if(param->kind == 8)
1539 classSym = param->_class;
1540 else
1541 {
1542 PrintType(param, type, 0x0, 0x1);
1543 classSym = FindClass(type);
1544 type[0] = (char)0;
1545 }
1546 strcpy(className, "__ecereClass_");
1547 FullClassNameCat(className, classSym->string, 0x1);
1548 MangleClassName(className);
1549 DeclareClass(classSym, className);
1550 PrintType(param, type, 0x1, 0x1);
1551 decl = SpecDeclFromString(type, specs, MkDeclaratorIdentifier(MkIdentifier(param->name)));
1552 paramTypeName = MkTypeName(specs, decl);
1553 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "            ");
1554 OutputTypeName(paramTypeName, f);
1555 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, ";\n");
1556 }
1557 }
1558 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1559 for(param = method->dataType->params.first; param; param = param->next)
1560 {
1561 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "            __ecereBuffer.Unserialize(");
1562 if(param->kind == 8 && !strcmp(param->_class->string, "String"))
1563 {
1564 DeclareClass(FindClass("StaticString"), "__ecereClass_StaticString");
1565 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "(StaticString)");
1566 }
1567 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, param->name);
1568 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, ");\n");
1569 }
1570 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "            ");
1571 if(method->dataType->returnType->kind != 0)
1572 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "__ecereResult = ");
1573 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "%s(", method->name);
1574 for(param = method->dataType->params.first; param; param = param->next)
1575 {
1576 if(param->prev)
1577 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, ", ");
1578 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "%s", param->name);
1579 }
1580 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, ");\n");
1581 for(param = method->dataType->params.first; param; param = param->next)
1582 {
1583 if(param->kind == 8 && ((param->_class && param->_class->registered && param->_class->registered->type == 1) || !strcmp(param->_class->string, "String")) && !param->constant)
1584 {
1585 if(!strcmp(param->_class->string, "String"))
1586 {
1587 DeclareClass(FindClass("StaticString"), "__ecereClass_StaticString");
1588 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "            __ecereBuffer.Serialize((StaticString)%s);\n", param->name);
1589 }
1590 else
1591 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "            __ecereBuffer.Serialize(%s);\n", param->name);
1592 }
1593 }
1594 if(method->dataType->returnType->kind != 0)
1595 {
1596 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "            __ecereBuffer.Serialize(__ecereResult);\n");
1597 }
1598 for(param = method->dataType->params.first; param; param = param->next)
1599 {
1600 if(param->kind == 8 && strcmp(param->_class->string, "String") && param->_class->registered && (param->_class->registered->type == 0 || param->_class->registered->type == 5))
1601 {
1602 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "            delete %s;\n", param->name);
1603 }
1604 }
1605 if(method->dataType->returnType->kind == 8 && strcmp(method->dataType->returnType->_class->string, "String") && method->dataType->returnType->_class->registered && (method->dataType->returnType->_class->registered->type == 0 || method->dataType->returnType->_class->registered->type == 5))
1606 {
1607 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "            delete __ecereResult;\n");
1608 }
1609 }
1610 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "            break;\n");
1611 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "         }\n");
1612 }
1613 }
1614 }
1615 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      }\n");
1616 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   }\n");
1617 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1618 }
1619 doVirtual = 0x1;
1620 id = 0;
1621 vid = _class->base->vTblSize;
1622 next = (struct __ecereNameSpace__ecere__com__Method *)__ecereProp___ecereNameSpace__ecere__sys__BinaryTree_Get_first(&_class->methods);
1623 while(next && ((next->type == 1) != doVirtual || (doVirtual && next->vid != vid)))
1624 {
1625 id++;
1626 next = (struct __ecereNameSpace__ecere__com__Method *)__ecereProp___ecereNameSpace__ecere__sys__BTNode_Get_next(((struct __ecereNameSpace__ecere__sys__BTNode *)next));
1627 if(!next && doVirtual)
1628 {
1629 if(vid == _class->vTblSize)
1630 doVirtual = 0x0;
1631 else
1632 vid++;
1633 id = 0;
1634 next = (struct __ecereNameSpace__ecere__com__Method *)__ecereProp___ecereNameSpace__ecere__sys__BinaryTree_Get_first(&_class->methods);
1635 }
1636 }
1637 for(method = next; method; method = next)
1638 {
1639 struct Type * param;
1640
1641 if(!method->dataType)
1642 method->dataType = ProcessTypeString(method->dataTypeString, 0x0);
1643 if(method->dataType->name)
1644 {
1645 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   ");
1646 if(doVirtual)
1647 {
1648 char name[1024];
1649
1650 strcpy(name, "__ecereVMethodID_");
1651 FullClassNameCat(name, method->_class->fullName, 0x1);
1652 strcat(name, "_");
1653 strcat(name, method->name);
1654 DeclareMethod(method, name);
1655 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "virtual ");
1656 }
1657 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "%s\n", method->dataTypeString);
1658 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   {\n");
1659 if(method->dataType)
1660 {
1661 if(method->dataType->returnType->kind != 0)
1662 {
1663 struct TypeName * resultType;
1664 struct __ecereNameSpace__ecere__sys__OldList * specs = MkList();
1665 struct Declarator * decl;
1666 char type[1024] = "";
1667 char className[1024];
1668 struct Symbol * classSym;
1669
1670 if(method->dataType->returnType->kind == 8)
1671 classSym = method->dataType->returnType->_class;
1672 else
1673 {
1674 PrintType(method->dataType->returnType, type, 0x0, 0x1);
1675 classSym = FindClass(type);
1676 type[0] = (char)0;
1677 }
1678 strcpy(className, "__ecereClass_");
1679 FullClassNameCat(className, classSym->string, 0x1);
1680 MangleClassName(className);
1681 DeclareClass(classSym, className);
1682 PrintType(method->dataType->returnType, type, 0x1, 0x1);
1683 decl = SpecDeclFromString(type, specs, MkDeclaratorIdentifier(MkIdentifier("__ecereResult")));
1684 resultType = MkTypeName(specs, decl);
1685 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      ");
1686 OutputTypeName(resultType, f);
1687 if(method->dataType->returnType->kind == 9)
1688 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " = { 0 }");
1689 else if(method->dataType->returnType->kind == 8 && method->dataType->returnType->_class->registered && method->dataType->returnType->_class->registered->type == 1)
1690 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " { }");
1691 else
1692 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " = 0");
1693 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, ";\n\n");
1694 }
1695 for(param = method->dataType->params.first; param; param = param->next)
1696 {
1697 char type[1024] = "";
1698 char className[1024];
1699 struct Symbol * classSym;
1700
1701 if(param->kind == 8)
1702 classSym = param->_class;
1703 else
1704 {
1705 PrintType(param, type, 0x0, 0x1);
1706 classSym = FindClass(type);
1707 type[0] = (char)0;
1708 }
1709 strcpy(className, "__ecereClass_");
1710 FullClassNameCat(className, classSym->string, 0x1);
1711 MangleClassName(className);
1712 DeclareClass(classSym, className);
1713 if(param->kind == 8 && !strcmp(param->_class->string, "String"))
1714 {
1715 DeclareClass(FindClass("StaticString"), "__ecereClass_StaticString");
1716 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      __ecereBuffer.Serialize((StaticString)%s);\n", param->name);
1717 }
1718 else
1719 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      __ecereBuffer.Serialize(%s);\n", param->name);
1720 }
1721 DeclareMethod(__ecereNameSpace__ecere__com__eClass_FindMethod(__ecereNameSpace__ecere__com__eSystem_FindClass(privateModule, "ecere::net::DCOMClientObject"), "CallMethod", privateModule), "__ecereMethod___ecereNameSpace__ecere__net__DCOMClientObject_CallMethod");
1722 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      if(DCOMClientObject::CallMethod(%d))\n", id++);
1723 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      {\n");
1724 for(param = method->dataType->params.first; param; param = param->next)
1725 {
1726 if(param->kind == 8 && ((param->_class && param->_class->registered && param->_class->registered->type == 1) || !strcmp(param->_class->string, "String")) && !param->constant)
1727 {
1728 if(!strcmp(param->_class->string, "String"))
1729 {
1730 DeclareClass(FindClass("StaticString"), "__ecereClass_StaticString");
1731 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "         __ecereBuffer.Unserialize((StaticString)%s);\n", param->name);
1732 }
1733 else
1734 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "         __ecereBuffer.Unserialize(%s);\n", param->name);
1735 }
1736 }
1737 if(method->dataType->returnType->kind != 0)
1738 {
1739 if(method->dataType->returnType->kind == 8 && !strcmp(method->dataType->returnType->_class->string, "String"))
1740 {
1741 DeclareClass(FindClass("StaticString"), "__ecereClass_StaticString");
1742 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "         __ecereBuffer.Unserialize((StaticString)__ecereResult);\n");
1743 }
1744 else
1745 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "         __ecereBuffer.Unserialize(__ecereResult);\n");
1746 }
1747 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      }\n");
1748 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      __ecereBuffer.Free();\n");
1749 if(method->dataType->returnType->kind != 0)
1750 {
1751 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      return __ecereResult;\n");
1752 }
1753 }
1754 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   }\n");
1755 }
1756 next = (struct __ecereNameSpace__ecere__com__Method *)__ecereProp___ecereNameSpace__ecere__sys__BTNode_Get_next(((struct __ecereNameSpace__ecere__sys__BTNode *)method));
1757 while(next && ((next->type == 1) != doVirtual || (doVirtual && next->vid != vid)))
1758 {
1759 id++;
1760 next = (struct __ecereNameSpace__ecere__com__Method *)__ecereProp___ecereNameSpace__ecere__sys__BTNode_Get_next(((struct __ecereNameSpace__ecere__sys__BTNode *)next));
1761 if(!next && doVirtual)
1762 {
1763 if(vid == _class->vTblSize)
1764 doVirtual = 0x0;
1765 else
1766 vid++;
1767 id = 0;
1768 next = (struct __ecereNameSpace__ecere__com__Method *)__ecereProp___ecereNameSpace__ecere__sys__BinaryTree_Get_first(&_class->methods);
1769 }
1770 }
1771 if(next)
1772 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1773 }
1774 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "}\n");
1775 if(deriv->next)
1776 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1777 }
1778 }
1779 }
1780
1781 static void BindDCOMServer()
1782 {
1783 struct __ecereNameSpace__ecere__com__Class * _class;
1784
1785 for(_class = ((struct __ecereNameSpace__ecere__com__Module *)(((char *)privateModule + 12)))->classes.first; _class; _class = _class->next)
1786 {
1787 if(_class->isRemote == (unsigned int)3)
1788 break;
1789 }
1790 if(_class)
1791 {
1792 struct __ecereNameSpace__ecere__com__Instance * f;
1793
1794 if(!dcomSymbols)
1795 dcomSymbols = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass___ecereNameSpace__ecere__sys__TempFile);
1796 f = dcomSymbols;
1797 DeclareClass(FindClass("ecere::net::DCOMServerObject"), "__ecereClass___ecereNameSpace__ecere__net__DCOMServerObject");
1798 for(_class = ((struct __ecereNameSpace__ecere__com__Module *)(((char *)privateModule + 12)))->classes.first; _class; _class = _class->next)
1799 {
1800 if(_class->isRemote == (unsigned int)3)
1801 {
1802 struct __ecereNameSpace__ecere__com__Method * method;
1803 int id = 0;
1804 int vid;
1805
1806 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "class DCOM%s : ecere::net::DCOMServerObject\n", _class->fullName);
1807 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "{\n");
1808 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   virtual void CallMethod(uint __ecereMethodID, SerialBuffer __ecereBuffer)\n");
1809 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   {\n");
1810 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      switch(__ecereMethodID)\n");
1811 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      {\n");
1812 for(method = (struct __ecereNameSpace__ecere__com__Method *)__ecereProp___ecereNameSpace__ecere__sys__BinaryTree_Get_first(&_class->methods); method; method = (struct __ecereNameSpace__ecere__com__Method *)__ecereProp___ecereNameSpace__ecere__sys__BTNode_Get_next(((struct __ecereNameSpace__ecere__sys__BTNode *)method)))
1813 {
1814 struct Type * param;
1815
1816 method->dataType = ProcessTypeString(method->dataTypeString, 0x0);
1817 if(method->dataType && method->dataType->name)
1818 {
1819 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "         case %d:\n", id++);
1820 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "         {\n");
1821 {
1822 if(method->dataType->returnType->kind != 0)
1823 {
1824 struct TypeName * resultType;
1825 struct __ecereNameSpace__ecere__sys__OldList * specs = MkList();
1826 struct Declarator * decl;
1827 char type[1024] = "";
1828 char className[1024];
1829 struct Symbol * classSym;
1830
1831 if(method->dataType->returnType->kind == 8)
1832 classSym = method->dataType->returnType->_class;
1833 else
1834 {
1835 PrintType(method->dataType->returnType, type, 0x0, 0x1);
1836 classSym = FindClass(type);
1837 type[0] = (char)0;
1838 }
1839 strcpy(className, "__ecereClass_");
1840 FullClassNameCat(className, classSym->string, 0x1);
1841 MangleClassName(className);
1842 DeclareClass(classSym, className);
1843 PrintType(method->dataType->returnType, type, 0x1, 0x1);
1844 decl = SpecDeclFromString(type, specs, MkDeclaratorIdentifier(MkIdentifier("__ecereResult")));
1845 resultType = MkTypeName(specs, decl);
1846 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "            ");
1847 OutputTypeName(resultType, f);
1848 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, ";\n");
1849 }
1850 for(param = method->dataType->params.first; param; param = param->next)
1851 {
1852 if(param->kind == 8 && !strcmp(param->_class->string, "String"))
1853 {
1854 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "            char %s[1024];\n", param->name);
1855 DeclareClass(FindClass("StaticString"), "__ecereClass_StaticString");
1856 DeclareClass(FindClass("String"), "__ecereClass_String");
1857 }
1858 else
1859 {
1860 struct TypeName * paramTypeName;
1861 struct __ecereNameSpace__ecere__sys__OldList * specs = MkList();
1862 struct Declarator * decl;
1863 char type[1024] = "";
1864 char className[1024];
1865 struct Symbol * classSym;
1866
1867 if(param->kind == 8)
1868 classSym = param->_class;
1869 else
1870 {
1871 PrintType(param, type, 0x0, 0x1);
1872 classSym = FindClass(type);
1873 type[0] = (char)0;
1874 }
1875 strcpy(className, "__ecereClass_");
1876 FullClassNameCat(className, classSym->string, 0x1);
1877 MangleClassName(className);
1878 DeclareClass(classSym, className);
1879 PrintType(param, type, 0x1, 0x1);
1880 decl = SpecDeclFromString(type, specs, MkDeclaratorIdentifier(MkIdentifier(param->name)));
1881 paramTypeName = MkTypeName(specs, decl);
1882 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "            ");
1883 OutputTypeName(paramTypeName, f);
1884 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, ";\n");
1885 }
1886 }
1887 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1888 for(param = method->dataType->params.first; param; param = param->next)
1889 {
1890 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "            __ecereBuffer.Unserialize(");
1891 if(param->kind == 8 && !strcmp(param->_class->string, "String"))
1892 {
1893 DeclareClass(FindClass("StaticString"), "__ecereClass_StaticString");
1894 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "(StaticString)");
1895 }
1896 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, param->name);
1897 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, ");\n");
1898 }
1899 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "            ");
1900 if(method->dataType->returnType->kind != 0)
1901 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "__ecereResult = ");
1902 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "((%s)instance).%s(", _class->fullName, method->name);
1903 for(param = method->dataType->params.first; param; param = param->next)
1904 {
1905 if(param->prev)
1906 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, ", ");
1907 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "%s", param->name);
1908 }
1909 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, ");\n");
1910 for(param = method->dataType->params.first; param; param = param->next)
1911 {
1912 if(param->kind == 8 && ((param->_class && param->_class->registered && param->_class->registered->type == 1) || !strcmp(param->_class->string, "String")) && !param->constant)
1913 {
1914 if(!strcmp(param->_class->string, "String"))
1915 {
1916 DeclareClass(FindClass("StaticString"), "__ecereClass_StaticString");
1917 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "            __ecereBuffer.Serialize((StaticString)%s);\n", param->name);
1918 }
1919 else
1920 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "            __ecereBuffer.Serialize(%s);\n", param->name);
1921 }
1922 }
1923 if(method->dataType->returnType->kind != 0)
1924 {
1925 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "            __ecereBuffer.Serialize(__ecereResult);\n");
1926 }
1927 for(param = method->dataType->params.first; param; param = param->next)
1928 {
1929 if(param->kind == 8 && strcmp(param->_class->string, "String") && param->_class->registered && (param->_class->registered->type == 0 || param->_class->registered->type == 5))
1930 {
1931 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "            delete %s;\n", param->name);
1932 }
1933 }
1934 if(method->dataType->returnType->kind == 8 && strcmp(method->dataType->returnType->_class->string, "String") && method->dataType->returnType->_class->registered && (method->dataType->returnType->_class->registered->type == 0 || method->dataType->returnType->_class->registered->type == 5))
1935 {
1936 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "            delete __ecereResult;\n");
1937 }
1938 }
1939 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "            break;\n");
1940 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "         }\n");
1941 }
1942 }
1943 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      }\n");
1944 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   }\n");
1945 for(vid = _class->base->vTblSize; vid < _class->vTblSize; vid++)
1946 {
1947 struct __ecereNameSpace__ecere__com__Method * method;
1948 struct Type * param;
1949
1950 for(method = (struct __ecereNameSpace__ecere__com__Method *)__ecereProp___ecereNameSpace__ecere__sys__BinaryTree_Get_first(&_class->methods); method; method = (struct __ecereNameSpace__ecere__com__Method *)__ecereProp___ecereNameSpace__ecere__sys__BTNode_Get_next(((struct __ecereNameSpace__ecere__sys__BTNode *)method)))
1951 if(method->type == 1 && method->_class == _class && method->vid == vid)
1952 break;
1953 if(method)
1954 {
1955 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1956 if(!method->dataType)
1957 method->dataType = ProcessTypeString(method->dataTypeString, 0x0);
1958 if(method->dataType->name)
1959 {
1960 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   virtual %s\n", method->dataTypeString);
1961 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   {\n");
1962 if(method->dataType)
1963 {
1964 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      DCOM%s __ecereObject = (void *)_vTbl[-1];\n", _class->fullName);
1965 if(method->dataType->returnType->kind != 0)
1966 {
1967 struct TypeName * resultType;
1968 struct __ecereNameSpace__ecere__sys__OldList * specs = MkList();
1969 struct Declarator * decl;
1970 char type[1024] = "";
1971 char className[1024];
1972 struct Symbol * classSym;
1973
1974 if(method->dataType->returnType->kind == 8)
1975 classSym = method->dataType->returnType->_class;
1976 else
1977 {
1978 PrintType(method->dataType->returnType, type, 0x0, 0x1);
1979 classSym = FindClass(type);
1980 type[0] = (char)0;
1981 }
1982 strcpy(className, "__ecereClass_");
1983 FullClassNameCat(className, classSym->string, 0x1);
1984 MangleClassName(className);
1985 DeclareClass(classSym, className);
1986 PrintType(method->dataType->returnType, type, 0x1, 0x1);
1987 decl = SpecDeclFromString(type, specs, MkDeclaratorIdentifier(MkIdentifier("__ecereResult")));
1988 resultType = MkTypeName(specs, decl);
1989 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      ");
1990 OutputTypeName(resultType, f);
1991 if(method->dataType->returnType->kind == 9)
1992 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " = { 0 }");
1993 else if(method->dataType->returnType->kind == 8 && method->dataType->returnType->_class->registered && method->dataType->returnType->_class->registered->type == 1)
1994 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " { }");
1995 else
1996 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " = 0");
1997 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, ";\n\n");
1998 }
1999 for(param = method->dataType->params.first; param; param = param->next)
2000 {
2001 char type[1024] = "";
2002 char className[1024];
2003 struct Symbol * classSym;
2004
2005 if(param->kind == 8)
2006 classSym = param->_class;
2007 else
2008 {
2009 PrintType(param, type, 0x0, 0x1);
2010 classSym = FindClass(type);
2011 type[0] = (char)0;
2012 }
2013 strcpy(className, "__ecereClass_");
2014 FullClassNameCat(className, classSym->string, 0x1);
2015 MangleClassName(className);
2016 DeclareClass(classSym, className);
2017 if(param->kind == 8 && !strcmp(param->_class->string, "String"))
2018 {
2019 DeclareClass(FindClass("StaticString"), "__ecereClass_StaticString");
2020 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      __ecereObject.virtualsBuffer.Serialize((StaticString)%s);\n", param->name);
2021 }
2022 else
2023 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      __ecereObject.virtualsBuffer.Serialize(%s);\n", param->name);
2024 }
2025 DeclareMethod(__ecereNameSpace__ecere__com__eClass_FindMethod(__ecereNameSpace__ecere__com__eSystem_FindClass(privateModule, "ecere::net::DCOMServerObject"), "CallVirtualMethod", privateModule), "__ecereMethod___ecereNameSpace__ecere__net__DCOMServerObject_CallVirutalMethod");
2026 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      if(__ecereObject.CallVirtualMethod(%d))\n", vid - _class->base->vTblSize);
2027 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      {\n");
2028 for(param = method->dataType->params.first; param; param = param->next)
2029 {
2030 if(param->kind == 8 && ((param->_class && param->_class->registered && param->_class->registered->type == 1) || !strcmp(param->_class->string, "String")) && !param->constant)
2031 {
2032 if(!strcmp(param->_class->string, "String"))
2033 {
2034 DeclareClass(FindClass("StaticString"), "__ecereClass_StaticString");
2035 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "         __ecereObject.virtualsBuffer.Unserialize((StaticString)%s);\n", param->name);
2036 }
2037 else
2038 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "         __ecereObject.virtualsBuffer.Unserialize(%s);\n", param->name);
2039 }
2040 }
2041 if(method->dataType->returnType->kind != 0)
2042 {
2043 if(method->dataType->returnType->kind == 8 && !strcmp(method->dataType->returnType->_class->string, "String"))
2044 {
2045 DeclareClass(FindClass("StaticString"), "__ecereClass_StaticString");
2046 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "         __ecereObject.virtualsBuffer.Unserialize((StaticString)__ecereResult);\n");
2047 }
2048 else
2049 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "         __ecereObject.virtualsBuffer.Unserialize(__ecereResult);\n");
2050 }
2051 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      }\n");
2052 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      else\n");
2053 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "         ((%s)this).%s::%s(", _class->fullName, _class->fullName, method->name);
2054 for(param = method->dataType->params.first; param; param = param->next)
2055 {
2056 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "%s", param->name);
2057 if(param->next)
2058 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, ", ");
2059 }
2060 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, ");\n");
2061 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      __ecereObject.virtualsBuffer.Free();\n");
2062 if(method->dataType->returnType->kind != 0)
2063 {
2064 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      return __ecereResult;\n");
2065 }
2066 }
2067 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   }\n");
2068 }
2069 }
2070 }
2071 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "}\n");
2072 }
2073 }
2074 }
2075 }
2076
2077 static struct __ecereNameSpace__ecere__com__Class * __ecereClass_SymbolgenApp;
2078
2079 extern int __ecereNameSpace__ecere__com__GetRuntimePlatform(void);
2080
2081 extern void SetSymbolsDir(char *  s);
2082
2083 extern int printf(char * , ...);
2084
2085 extern char *  __ecereNameSpace__ecere__sys__GetExtension(char *  string, char *  output);
2086
2087 extern void SetDefines(struct __ecereNameSpace__ecere__sys__OldList *  list);
2088
2089 extern void SetImports(struct __ecereNameSpace__ecere__sys__OldList *  list);
2090
2091 extern void SetGlobalData(struct __ecereNameSpace__ecere__com__NameSpace *  nameSpace);
2092
2093 extern void SetExcludedSymbols(struct __ecereNameSpace__ecere__sys__OldList *  list);
2094
2095 extern void SetGlobalContext(struct Context * context);
2096
2097 extern void SetTopContext(struct Context * context);
2098
2099 extern void SetCurrentContext(struct Context * context);
2100
2101 extern void SetTargetPlatform(int platform);
2102
2103 extern struct __ecereNameSpace__ecere__com__Instance * __ecereNameSpace__ecere__com____ecere_COM_Initialize(unsigned int guiApp, int argc, char *  argv[]);
2104
2105 extern void SetPrivateModule(struct __ecereNameSpace__ecere__com__Instance * module);
2106
2107 extern int strcasecmp(const char * , const char * );
2108
2109 extern unsigned int LoadSymbols(char *  fileName, int importType, unsigned int loadDllOnly);
2110
2111 extern void CheckDataRedefinitions(void);
2112
2113 extern void ComputeModuleClasses(struct __ecereNameSpace__ecere__com__Instance * module);
2114
2115 extern void FreeContext(struct Context * context);
2116
2117 extern void FreeExcludedSymbols(struct __ecereNameSpace__ecere__sys__OldList * excludedSymbols);
2118
2119 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Definition;
2120
2121 struct Definition;
2122
2123 extern void FreeModuleDefine(struct Definition * def);
2124
2125 extern void FreeModuleImport(struct ModuleImport * imp);
2126
2127 extern void FreeTypeData(struct __ecereNameSpace__ecere__com__Instance * privateModule);
2128
2129 extern void FreeIncludeFiles(void);
2130
2131 extern void FreeGlobalData(struct __ecereNameSpace__ecere__com__NameSpace * globalDataList);
2132
2133 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__Application;
2134
2135 struct __ecereNameSpace__ecere__com__Application
2136 {
2137 int argc;
2138 char * *  argv;
2139 int exitCode;
2140 unsigned int isGUIApp;
2141 struct __ecereNameSpace__ecere__sys__OldList allModules;
2142 char *  parsedCommand;
2143 struct __ecereNameSpace__ecere__com__NameSpace systemNameSpace;
2144 };
2145
2146 char *  __ecereProp___ecereNameSpace__ecere__com__Platform_Get_char__PTR_(int this);
2147
2148 int __ecereProp___ecereNameSpace__ecere__com__Platform_Set_char__PTR_(char *  value);
2149
2150 extern struct __ecereNameSpace__ecere__com__Property ** __ecereProp___ecereNameSpace__ecere__com__Platform_char__PTR_;
2151
2152 void __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add(struct __ecereNameSpace__ecere__sys__OldList * this, void *  item);
2153
2154 void __ecereMethod___ecereNameSpace__ecere__sys__OldList_Free(struct __ecereNameSpace__ecere__sys__OldList * this, void (*  freeFn)(void * ));
2155
2156 void __ecereMethod_SymbolgenApp_Main(struct __ecereNameSpace__ecere__com__Instance * this)
2157 {
2158 void * __ecereTemp1;
2159 int c;
2160 unsigned int valid = 0x1;
2161 char * output = (((void *)0));
2162
2163 targetPlatform = __ecereNameSpace__ecere__com__GetRuntimePlatform();
2164 for(c = 1; c < ((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 296)))->argc; c++)
2165 {
2166 char * arg = ((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 296)))->argv[c];
2167
2168 if(arg[0] == '-')
2169 {
2170 if(!strcmp(arg + 1, "o"))
2171 {
2172 if(!output && c + 1 < ((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 296)))->argc)
2173 {
2174 output = ((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 296)))->argv[c + 1];
2175 c++;
2176 }
2177 else
2178 valid = 0x0;
2179 }
2180 else if(!strcmp(arg, "-name"))
2181 {
2182 if(c + 1 < ((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 296)))->argc)
2183 {
2184 strcpy(projectName, ((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 296)))->argv[c + 1]);
2185 c++;
2186 }
2187 else
2188 valid = 0x0;
2189 }
2190 else if(!strcmp(arg, "-t"))
2191 {
2192 if(++c < ((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 296)))->argc)
2193 targetPlatform = __ecereProp___ecereNameSpace__ecere__com__Platform_Set_char__PTR_(((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 296)))->argv[c]);
2194 else
2195 valid = 0x0;
2196 }
2197 else if(!strcmp(arg, "-console"))
2198 isConsole = 0x1;
2199 else if(!strcmp(arg, "-dynamiclib"))
2200 isDynamicLibrary = 0x1;
2201 else if(!strcmp(arg, "-staticlib"))
2202 {
2203 isDynamicLibrary = 0x1;
2204 isStaticLibrary = 0x1;
2205 }
2206 else if(!strcmp(arg, "-symbols"))
2207 {
2208 if(c + 1 < ((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 296)))->argc)
2209 {
2210 SetSymbolsDir(((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 296)))->argv[c + 1]);
2211 c++;
2212 }
2213 else
2214 valid = 0x0;
2215 }
2216 }
2217 }
2218 if(!output)
2219 valid = 0x0;
2220 if(!valid)
2221 printf("Syntax:\n   ecs [-t <target platform>] <input>[, <input>]* -o <output>\n");
2222 else
2223 {
2224 int c;
2225 char ext[17];
2226 char symbolModule[274];
2227
2228 __ecereNameSpace__ecere__sys__GetExtension(output, ext);
2229 __ecereNameSpace__ecere__sys__GetLastDirectory(output, symbolModule);
2230 SetDefines(&_defines);
2231 SetImports(&_imports);
2232 SetGlobalData(&globalData);
2233 SetExcludedSymbols(&_excludedSymbols);
2234 SetGlobalContext(theGlobalContext);
2235 SetTopContext(theGlobalContext);
2236 SetCurrentContext(theGlobalContext);
2237 SetTargetPlatform(targetPlatform);
2238 privateModule = __ecereNameSpace__ecere__com____ecere_COM_Initialize(0x1, 1, (((void *)0)));
2239 SetPrivateModule(privateModule);
2240 mainModule = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_ModuleImport);
2241 SetMainModule(mainModule);
2242 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add(&_imports, mainModule);
2243 {
2244 for(c = 1; c < ((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 296)))->argc; c++)
2245 {
2246 char * file = ((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 296)))->argv[c];
2247
2248 if(file[0] == '-')
2249 {
2250 if(!strcmp(file, "-c"))
2251 c++;
2252 }
2253 else
2254 {
2255 char ext[17];
2256
2257 __ecereNameSpace__ecere__sys__GetExtension(file, ext);
2258 if(!strcmp(ext, "imp"))
2259 LoadImports(file);
2260 }
2261 }
2262 for(c = 1; c < ((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 296)))->argc; c++)
2263 {
2264 char * file = ((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 296)))->argv[c];
2265
2266 if(file[0] == '-')
2267 {
2268 if(!strcmp(file, "-c"))
2269 c++;
2270 }
2271 }
2272 for(c = 1; c < ((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 296)))->argc; c++)
2273 {
2274 char * file = ((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 296)))->argv[c];
2275
2276 if(file[0] == '-')
2277 {
2278 if(!strcmp(file, "-c"))
2279 c++;
2280 }
2281 else
2282 {
2283 char ext[17];
2284 char moduleName[797];
2285
2286 __ecereNameSpace__ecere__sys__GetExtension(file, ext);
2287 __ecereNameSpace__ecere__sys__GetLastDirectory(file, moduleName);
2288 __ecereNameSpace__ecere__sys__StripExtension(moduleName);
2289 strcat(moduleName, ".ec");
2290 if(((__ecereNameSpace__ecere__com__GetRuntimePlatform() == 1) ? (strcasecmp) : strcmp)(moduleName, symbolModule) && (!strcmp(ext, "sym") || !strcmp(ext, "ec")))
2291 {
2292 struct ImportedModule * importedModule;
2293 struct ModuleInfo * module = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_ModuleInfo);
2294 char fileName[274];
2295
2296 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add(&modules, module);
2297 __ecereNameSpace__ecere__sys__GetLastDirectory(file, fileName);
2298 module->name = __ecereNameSpace__ecere__sys__CopyString(fileName);
2299 __ecereNameSpace__ecere__sys__StripExtension(module->name);
2300 for(importedModule = _defines.first; importedModule; importedModule = importedModule->next)
2301 {
2302 if(importedModule->type == 0 && !(strcasecmp)(importedModule->name, module->name) && !(importedModule->importType == 2))
2303 break;
2304 }
2305 if(importedModule)
2306 module->globalInstance = importedModule->globalInstance;
2307 else
2308 {
2309 importedModule = (__ecereTemp1 = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_ImportedModule), ((struct ImportedModule *)__ecereTemp1)->name = __ecereNameSpace__ecere__sys__CopyString(module->name), ((struct ImportedModule *)__ecereTemp1)->type = 0, ((struct ImportedModule *)__ecereTemp1)->importType = 0, ((struct ImportedModule *)__ecereTemp1));
2310 __ecereMethod___ecereNameSpace__ecere__sys__OldList_AddName(&_defines, importedModule);
2311 module->globalInstance = LoadSymbols(file, 0, 0x0);
2312 CheckDataRedefinitions();
2313 }
2314 }
2315 }
2316 }
2317 ComputeModuleClasses(privateModule);
2318 if(!isDynamicLibrary)
2319 {
2320 thisAppClass = SearchAppClass_Module(privateModule);
2321 }
2322 WriteMain(output);
2323 }
2324 FreeContext(theGlobalContext);
2325 FreeExcludedSymbols(&_excludedSymbols);
2326 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Free(&_defines, FreeModuleDefine);
2327 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Free(&_imports, FreeModuleImport);
2328 FreeTypeData(privateModule);
2329 FreeIncludeFiles();
2330 FreeGlobalData(&globalData);
2331 (__ecereNameSpace__ecere__com__eInstance_DecRef(privateModule), privateModule = 0);
2332 }
2333 SetSymbolsDir((((void *)0)));
2334 }
2335
2336 extern struct __ecereNameSpace__ecere__com__Class * __ecereNameSpace__ecere__com__eSystem_RegisterClass(int type, char *  name, char *  baseName, int size, int sizeClass, unsigned int (* )(void * ), void (* )(void * ), struct __ecereNameSpace__ecere__com__Instance * module, int declMode, int inheritanceAccess);
2337
2338 extern struct __ecereNameSpace__ecere__com__Instance * __thisModule;
2339
2340 extern struct __ecereNameSpace__ecere__com__Method * __ecereNameSpace__ecere__com__eClass_AddMethod(struct __ecereNameSpace__ecere__com__Class * _class, char *  name, char *  type, void *  function, int declMode);
2341
2342 void __ecereRegisterModule_ecs(struct __ecereNameSpace__ecere__com__Instance * module)
2343 {
2344 struct __ecereNameSpace__ecere__com__Class * class;
2345
2346 class = __ecereNameSpace__ecere__com__eSystem_RegisterClass(5, "ModuleInfo", 0, sizeof(struct ModuleInfo), 0, 0, 0, module, 2, 1);
2347 if(((struct __ecereNameSpace__ecere__com__Module *)(((char *)module + 12)))->application == ((struct __ecereNameSpace__ecere__com__Module *)(((char *)__thisModule + 12)))->application && class)
2348 __ecereClass_ModuleInfo = class;
2349 class = __ecereNameSpace__ecere__com__eSystem_RegisterClass(0, "SymbolgenApp", "ecere::com::Application", 0, 0, 0, 0, module, 2, 1);
2350 if(((struct __ecereNameSpace__ecere__com__Module *)(((char *)module + 12)))->application == ((struct __ecereNameSpace__ecere__com__Module *)(((char *)__thisModule + 12)))->application && class)
2351 __ecereClass_SymbolgenApp = class;
2352 __ecereNameSpace__ecere__com__eClass_AddMethod(class, "Main", 0, __ecereMethod_SymbolgenApp_Main, 1);
2353 }
2354
2355 void __ecereUnregisterModule_ecs(struct __ecereNameSpace__ecere__com__Instance * module)
2356 {
2357
2358 }
2359
2360 int __ecereMethod___ecereNameSpace__ecere__sys__BinaryTree_CompareString(struct __ecereNameSpace__ecere__sys__BinaryTree * this, char *  a, char *  b);
2361
2362 void __ecereCreateModuleInstances_ecs()
2363 {
2364 (globalData.classes.CompareKey = (void *)__ecereMethod___ecereNameSpace__ecere__sys__BinaryTree_CompareString, globalData.defines.CompareKey = (void *)__ecereMethod___ecereNameSpace__ecere__sys__BinaryTree_CompareString, globalData.functions.CompareKey = (void *)__ecereMethod___ecereNameSpace__ecere__sys__BinaryTree_CompareString, globalData.nameSpaces.CompareKey = (void *)__ecereMethod___ecereNameSpace__ecere__sys__BinaryTree_CompareString);
2365 theGlobalContext = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_Context);
2366 }
2367
2368 void __ecereDestroyModuleInstances_ecs()
2369 {
2370 ((theGlobalContext ? (__ecereClass_Context->Destructor ? __ecereClass_Context->Destructor(theGlobalContext) : 0, __ecereNameSpace__ecere__com__eSystem_Delete(theGlobalContext)) : 0), theGlobalContext = 0);
2371 }
2372