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 struct Expression * propCategory;
 293 };
 294
 295 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Type;
 296
 297 struct Type
 298 {
 299 struct Type * prev;
 300 struct Type * next;
 301 int refCount;
 302 union
 303 {
 304 struct Symbol * _class;
 305 struct
 306 {
 307 struct __ecereNameSpace__ecere__sys__OldList members;
 308 char *  enumName;
 309 };
 310 struct
 311 {
 312 struct Type * returnType;
 313 struct __ecereNameSpace__ecere__sys__OldList params;
 314 struct Symbol * thisClass;
 315 unsigned int staticMethod;
 316 struct TemplateParameter * thisClassTemplate;
 317 };
 318 struct
 319 {
 320 struct __ecereNameSpace__ecere__com__Method * method;
 321 struct __ecereNameSpace__ecere__com__Class * methodClass;
 322 struct __ecereNameSpace__ecere__com__Class * usedClass;
 323 };
 324 struct
 325 {
 326 struct Type * arrayType;
 327 int arraySize;
 328 struct Expression * arraySizeExp;
 329 unsigned int freeExp;
 330 struct Symbol * enumClass;
 331 };
 332 struct Type * type;
 333 struct TemplateParameter * templateParameter;
 334 };
 335 unsigned int isSigned;
 336 int kind;
 337 unsigned int constant;
 338 unsigned int size;
 339 char *  name;
 340 char *  typeName;
 341 unsigned int count;
 342 unsigned int truth;
 343 int classObjectType;
 344 unsigned int byReference;
 345 unsigned int extraParam;
 346 int alignment;
 347 unsigned int directClassAccess;
 348 unsigned int computing;
 349 unsigned int dllExport;
 350 unsigned int offset;
 351 unsigned int keepCast;
 352 unsigned int passAsTemplate;
 353 int bitFieldCount;
 354 };
 355
 356 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__Class;
 357
 358 struct __ecereNameSpace__ecere__com__Class
 359 {
 360 struct __ecereNameSpace__ecere__com__Class * prev;
 361 struct __ecereNameSpace__ecere__com__Class * next;
 362 char *  name;
 363 int offset;
 364 int structSize;
 365 int (* *  _vTbl)();
 366 int vTblSize;
 367 int (*  Constructor)(struct __ecereNameSpace__ecere__com__Instance *);
 368 void (*  Destructor)(struct __ecereNameSpace__ecere__com__Instance *);
 369 int offsetClass;
 370 int sizeClass;
 371 struct __ecereNameSpace__ecere__com__Class * base;
 372 struct __ecereNameSpace__ecere__sys__BinaryTree methods;
 373 struct __ecereNameSpace__ecere__sys__BinaryTree members;
 374 struct __ecereNameSpace__ecere__sys__BinaryTree prop;
 375 struct __ecereNameSpace__ecere__sys__OldList membersAndProperties;
 376 struct __ecereNameSpace__ecere__sys__BinaryTree classProperties;
 377 struct __ecereNameSpace__ecere__sys__OldList derivatives;
 378 int memberID;
 379 int startMemberID;
 380 int type;
 381 struct __ecereNameSpace__ecere__com__Instance * module;
 382 struct __ecereNameSpace__ecere__com__NameSpace *  nameSpace;
 383 char *  dataTypeString;
 384 struct Type * dataType;
 385 int typeSize;
 386 int defaultAlignment;
 387 void (*  Initialize)();
 388 int memberOffset;
 389 struct __ecereNameSpace__ecere__sys__OldList selfWatchers;
 390 char *  designerClass;
 391 unsigned int noExpansion;
 392 char *  defaultProperty;
 393 unsigned int comRedefinition;
 394 int count;
 395 unsigned int isRemote;
 396 unsigned int internalDecl;
 397 void *  data;
 398 unsigned int computeSize;
 399 int structAlignment;
 400 int destructionWatchOffset;
 401 unsigned int fixed;
 402 struct __ecereNameSpace__ecere__sys__OldList delayedCPValues;
 403 int inheritanceAccess;
 404 char *  fullName;
 405 void *  symbol;
 406 struct __ecereNameSpace__ecere__sys__OldList conversions;
 407 struct __ecereNameSpace__ecere__sys__OldList templateParams;
 408 struct __ecereNameSpace__ecere__com__ClassTemplateArgument *  templateArgs;
 409 struct __ecereNameSpace__ecere__com__Class * templateClass;
 410 struct __ecereNameSpace__ecere__sys__OldList templatized;
 411 int numParams;
 412 };
 413
 414 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__Instance;
 415
 416 struct __ecereNameSpace__ecere__com__Instance
 417 {
 418 int (* *  _vTbl)();
 419 struct __ecereNameSpace__ecere__com__Class * _class;
 420 int _refCount;
 421 };
 422
 423 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__DataMember;
 424
 425 struct __ecereNameSpace__ecere__com__DataMember
 426 {
 427 struct __ecereNameSpace__ecere__com__DataMember * prev;
 428 struct __ecereNameSpace__ecere__com__DataMember * next;
 429 char *  name;
 430 unsigned int isProperty;
 431 int memberAccess;
 432 int id;
 433 struct __ecereNameSpace__ecere__com__Class * _class;
 434 char *  dataTypeString;
 435 struct __ecereNameSpace__ecere__com__Class * dataTypeClass;
 436 struct Type * dataType;
 437 int type;
 438 int offset;
 439 int memberID;
 440 struct __ecereNameSpace__ecere__sys__OldList members;
 441 struct __ecereNameSpace__ecere__sys__BinaryTree membersAlpha;
 442 int memberOffset;
 443 int structAlignment;
 444 };
 445
 446 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__SerialBuffer;
 447
 448 struct __ecereNameSpace__ecere__com__SerialBuffer
 449 {
 450 unsigned char *  _buffer;
 451 unsigned int count;
 452 unsigned int _size;
 453 unsigned int pos;
 454 };
 455
 456 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__ClassTemplateArgument;
 457
 458 struct __ecereNameSpace__ecere__com__ClassTemplateArgument
 459 {
 460 union
 461 {
 462 struct
 463 {
 464 char *  dataTypeString;
 465 struct __ecereNameSpace__ecere__com__Class * dataTypeClass;
 466 };
 467 struct __ecereNameSpace__ecere__com__DataValue expression;
 468 struct
 469 {
 470 char *  memberString;
 471 union
 472 {
 473 struct __ecereNameSpace__ecere__com__DataMember * member;
 474 struct __ecereNameSpace__ecere__com__Property * prop;
 475 struct __ecereNameSpace__ecere__com__Method * method;
 476 };
 477 };
 478 };
 479 };
 480
 481
 482 static unsigned int i18n;
 483
 484 static int targetPlatform;
 485
 486 static unsigned int isConsole;
 487
 488 static unsigned int isDynamicLibrary;
 489
 490 static unsigned int isStaticLibrary;
 491
 492 static struct __ecereNameSpace__ecere__sys__OldList modules;
 493
 494 static struct __ecereNameSpace__ecere__com__Instance * dcomSymbols;
 495
 496 struct __ecereNameSpace__ecere__sys__OldList _defines =
 497 {
 498 0, 0, 0, 0, 0
 499 };
 500
 501 struct __ecereNameSpace__ecere__sys__OldList _imports =
 502 {
 503 0, 0, 0, 0, 0
 504 };
 505
 506 struct __ecereNameSpace__ecere__sys__OldList _excludedSymbols =
 507 {
 508 0, 0, 0, (unsigned int)&((struct Symbol *)(void *)0)->left, 0
 509 };
 510
 511 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__NameSpace;
 512
 513 struct __ecereNameSpace__ecere__com__NameSpace
 514 {
 515 char *  name;
 516 struct __ecereNameSpace__ecere__com__NameSpace *  btParent;
 517 struct __ecereNameSpace__ecere__com__NameSpace *  left;
 518 struct __ecereNameSpace__ecere__com__NameSpace *  right;
 519 int depth;
 520 struct __ecereNameSpace__ecere__com__NameSpace *  parent;
 521 struct __ecereNameSpace__ecere__sys__BinaryTree nameSpaces;
 522 struct __ecereNameSpace__ecere__sys__BinaryTree classes;
 523 struct __ecereNameSpace__ecere__sys__BinaryTree defines;
 524 struct __ecereNameSpace__ecere__sys__BinaryTree functions;
 525 };
 526
 527 static struct __ecereNameSpace__ecere__com__NameSpace globalData;
 528
 529 static struct Context * theGlobalContext;
 530
 531 static struct ModuleImport * mainModule;
 532
 533 static struct __ecereNameSpace__ecere__com__Instance * privateModule;
 534
 535 static char mainModuleName[797];
 536
 537 static char projectName[797];
 538
 539 extern struct __ecereNameSpace__ecere__com__Instance * __ecereNameSpace__ecere__sys__FileOpen(char *  fileName, int mode);
 540
 541 extern char *  __ecereNameSpace__ecere__sys__TrimLSpaces(char *  string, char *  output);
 542
 543 extern int strcmp(const char * , const char * );
 544
 545 extern struct ModuleImport * GetMainModule(void);
 546
 547 extern void SetMainModule(struct ModuleImport * moduleImport);
 548
 549 extern char *  __ecereNameSpace__ecere__sys__CopyString(char *  string);
 550
 551 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_MethodImport;
 552
 553 struct MethodImport
 554 {
 555 struct MethodImport * prev;
 556 struct MethodImport * next;
 557 char *  name;
 558 unsigned int isVirtual;
 559 };
 560
 561 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_PropertyImport;
 562
 563 struct PropertyImport
 564 {
 565 struct PropertyImport * prev;
 566 struct PropertyImport * next;
 567 char *  name;
 568 unsigned int isVirtual;
 569 unsigned int hasSet;
 570 unsigned int hasGet;
 571 };
 572
 573 extern void *  __ecereNameSpace__ecere__com__eInstance_New(struct __ecereNameSpace__ecere__com__Class * _class);
 574
 575 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_FunctionImport;
 576
 577 struct FunctionImport
 578 {
 579 struct FunctionImport * prev;
 580 struct FunctionImport * next;
 581 char *  name;
 582 };
 583
 584 unsigned int __ecereMethod___ecereNameSpace__ecere__sys__File_GetLine(struct __ecereNameSpace__ecere__com__Instance * this, char *  s, int max);
 585
 586 unsigned int __ecereMethod___ecereNameSpace__ecere__sys__OldList_AddName(struct __ecereNameSpace__ecere__sys__OldList * this, void *  item);
 587
 588 void *  __ecereMethod___ecereNameSpace__ecere__sys__OldList_FindName(struct __ecereNameSpace__ecere__sys__OldList * this, char *  name, unsigned int warn);
 589
 590 extern void __ecereNameSpace__ecere__com__eInstance_DecRef(struct __ecereNameSpace__ecere__com__Instance * instance);
 591
 592 static void LoadImports(char * fileName)
 593 {
 594 void * __ecereTemp1;
 595 struct __ecereNameSpace__ecere__com__Instance * f = __ecereNameSpace__ecere__sys__FileOpen(fileName, 1);
 596
 597 if(f)
 598 {
 599 for(; ; )
 600 {
 601 char line[1024];
 602
 603 if(!__ecereMethod___ecereNameSpace__ecere__sys__File_GetLine(f, line, sizeof line))
 604 break;
 605 __ecereNameSpace__ecere__sys__TrimLSpaces(line, line);
 606 if(line[0] == '[')
 607 {
 608 if(!strcmp(line, "[Imported Modules]"))
 609 {
 610 struct ModuleImport * module = (((void *)0));
 611
 612 for(; ; )
 613 {
 614 if(!__ecereMethod___ecereNameSpace__ecere__sys__File_GetLine(f, line, sizeof line))
 615 break;
 616 __ecereNameSpace__ecere__sys__TrimLSpaces(line, line);
 617 if(!strcmp(line, "."))
 618 break;
 619 if(line[0] == '[')
 620 {
 621 struct ClassImport * _class = (((void *)0));
 622 struct FunctionImport * function = (((void *)0));
 623
 624 if(!strcmp(line, "[This]"))
 625 {
 626 if((mainModule = GetMainModule()))
 627 module = mainModule;
 628 else
 629 {
 630 mainModule = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_ModuleImport);
 631 SetMainModule(mainModule);
 632 module = mainModule;
 633 __ecereMethod___ecereNameSpace__ecere__sys__OldList_AddName(&_imports, module);
 634 }
 635 }
 636 else if(!strcmp(line, "[Static]"))
 637 {
 638 module->importType = 1;
 639 }
 640 else if(!strcmp(line, "[Remote]"))
 641 {
 642 module->importType = 2;
 643 }
 644 else if(!strcmp(line, "[Private]"))
 645 {
 646 if(module->importAccess != 1)
 647 module->importAccess = 2;
 648 }
 649 else if(!strcmp(line, "[Public]"))
 650 {
 651 module->importAccess = 1;
 652 }
 653 else if(!strcmp(line, "[Imported Classes]"))
 654 {
 655 for(; ; )
 656 {
 657 if(!__ecereMethod___ecereNameSpace__ecere__sys__File_GetLine(f, line, sizeof line))
 658 break;
 659 __ecereNameSpace__ecere__sys__TrimLSpaces(line, line);
 660 if(!strcmp(line, "."))
 661 break;
 662 if(line[0] == '[')
 663 {
 664 if(!strcmp(line, "[Instantiated]"))
 665 {
 666 _class->itself = 0x1;
 667 }
 668 else if(!strcmp(line, "[Remote]"))
 669 {
 670 _class->isRemote = (unsigned int)1;
 671 }
 672 else if(!strcmp(line, "[Imported Methods]"))
 673 {
 674 struct MethodImport * method = (((void *)0));
 675
 676 for(; ; )
 677 {
 678 if(!__ecereMethod___ecereNameSpace__ecere__sys__File_GetLine(f, line, sizeof line))
 679 break;
 680 __ecereNameSpace__ecere__sys__TrimLSpaces(line, line);
 681 if(!strcmp(line, "."))
 682 break;
 683 if(line[0] != '[')
 684 {
 685 if(!(method = __ecereMethod___ecereNameSpace__ecere__sys__OldList_FindName(&_class->methods, line, 0x0)))
 686 {
 687 method = (__ecereTemp1 = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_MethodImport), ((struct MethodImport *)__ecereTemp1)->name = __ecereNameSpace__ecere__sys__CopyString(line), ((struct MethodImport *)__ecereTemp1));
 688 __ecereMethod___ecereNameSpace__ecere__sys__OldList_AddName(&_class->methods, method);
 689 }
 690 }
 691 else if(!strcmp(line, "[Virtual]"))
 692 method->isVirtual = 0x1;
 693 }
 694 }
 695 else if(!strcmp(line, "[Imported Properties]"))
 696 {
 697 struct PropertyImport * prop = (((void *)0));
 698
 699 for(; ; )
 700 {
 701 if(!__ecereMethod___ecereNameSpace__ecere__sys__File_GetLine(f, line, sizeof line))
 702 break;
 703 __ecereNameSpace__ecere__sys__TrimLSpaces(line, line);
 704 if(!strcmp(line, "."))
 705 break;
 706 if(line[0] != '[')
 707 {
 708 if(!(prop = __ecereMethod___ecereNameSpace__ecere__sys__OldList_FindName(&_class->properties, line, 0x0)))
 709 {
 710 prop = (__ecereTemp1 = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_PropertyImport), ((struct PropertyImport *)__ecereTemp1)->name = __ecereNameSpace__ecere__sys__CopyString(line), ((struct PropertyImport *)__ecereTemp1));
 711 __ecereMethod___ecereNameSpace__ecere__sys__OldList_AddName(&_class->properties, prop);
 712 }
 713 }
 714 else if(!strcmp(line, "[Set]"))
 715 prop->hasSet = 0x1;
 716 else if(!strcmp(line, "[Get]"))
 717 prop->hasGet = 0x1;
 718 else if(!strcmp(line, "[Virtual]"))
 719 prop->isVirtual = 0x1;
 720 }
 721 }
 722 }
 723 else
 724 {
 725 if(!(_class = __ecereMethod___ecereNameSpace__ecere__sys__OldList_FindName(&module->classes, line, 0x0)))
 726 {
 727 _class = (__ecereTemp1 = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_ClassImport), ((struct ClassImport *)__ecereTemp1)->name = __ecereNameSpace__ecere__sys__CopyString(line), ((struct ClassImport *)__ecereTemp1));
 728 __ecereMethod___ecereNameSpace__ecere__sys__OldList_AddName(&module->classes, _class);
 729 }
 730 }
 731 }
 732 }
 733 else if(!strcmp(line, "[Imported Functions]"))
 734 {
 735 for(; ; )
 736 {
 737 if(!__ecereMethod___ecereNameSpace__ecere__sys__File_GetLine(f, line, sizeof line))
 738 break;
 739 __ecereNameSpace__ecere__sys__TrimLSpaces(line, line);
 740 if(!strcmp(line, "."))
 741 break;
 742 if(line[0] == '[')
 743 {
 744 }
 745 else
 746 {
 747 if(!(function = __ecereMethod___ecereNameSpace__ecere__sys__OldList_FindName(&module->functions, line, 0x0)))
 748 {
 749 function = (__ecereTemp1 = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_FunctionImport), ((struct FunctionImport *)__ecereTemp1)->name = __ecereNameSpace__ecere__sys__CopyString(line), ((struct FunctionImport *)__ecereTemp1));
 750 __ecereMethod___ecereNameSpace__ecere__sys__OldList_AddName(&module->functions, function);
 751 }
 752 }
 753 }
 754 }
 755 }
 756 else
 757 {
 758 if(!(module = __ecereMethod___ecereNameSpace__ecere__sys__OldList_FindName(&_imports, line, 0x0)))
 759 {
 760 if(!strcmp(line, "ecereCOM"))
 761 {
 762 module = __ecereMethod___ecereNameSpace__ecere__sys__OldList_FindName(&_imports, "ecere", 0x0);
 763 }
 764 else if(!strcmp(line, "ecere"))
 765 {
 766 module = __ecereMethod___ecereNameSpace__ecere__sys__OldList_FindName(&_imports, "ecereCOM", 0x0);
 767 if(module)
 768 {
 769 (__ecereNameSpace__ecere__com__eSystem_Delete(module->name), module->name = 0);
 770 module->name = __ecereNameSpace__ecere__sys__CopyString("ecere");
 771 }
 772 }
 773 if(!module)
 774 {
 775 module = (__ecereTemp1 = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_ModuleImport), ((struct ModuleImport *)__ecereTemp1)->name = __ecereNameSpace__ecere__sys__CopyString(line), ((struct ModuleImport *)__ecereTemp1));
 776 __ecereMethod___ecereNameSpace__ecere__sys__OldList_AddName(&_imports, module);
 777 }
 778 }
 779 }
 780 }
 781 }
 782 }
 783 }
 784 (__ecereNameSpace__ecere__com__eInstance_DecRef(f), f = 0);
 785 }
 786 }
 787
 788 static struct __ecereNameSpace__ecere__com__Class * thisAppClass;
 789
 790 struct ModuleInfo
 791 {
 792 struct ModuleInfo * prev, * next;
 793 char * name;
 794 unsigned int globalInstance;
 795 };
 796
 797 static struct __ecereNameSpace__ecere__com__Class * __ecereClass_ModuleInfo;
 798
 799 extern char *  __ecereNameSpace__ecere__sys__GetLastDirectory(char *  string, char *  output);
 800
 801 extern unsigned int __ecereNameSpace__ecere__sys__StripExtension(char *  string);
 802
 803 extern char *  strcpy(char * , const char * );
 804
 805 extern void __ecereNameSpace__ecere__sys__ChangeCh(char *  string, char ch1, char ch2);
 806
 807 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_ImportedModule;
 808
 809 struct ImportedModule
 810 {
 811 struct ImportedModule * prev;
 812 struct ImportedModule * next;
 813 char *  name;
 814 int type;
 815 int importType;
 816 unsigned int globalInstance;
 817 unsigned int dllOnly;
 818 int importAccess;
 819 };
 820
 821 static void BindDCOMServer();
 822
 823 static void BindDCOMClient();
 824
 825 extern struct __ecereNameSpace__ecere__com__Class * __ecereNameSpace__ecere__com__eSystem_FindClass(struct __ecereNameSpace__ecere__com__Instance * module, char *  name);
 826
 827 extern void FullClassNameCat(char *  output, char *  className, unsigned int includeTemplateParams);
 828
 829 extern void MangleClassName(char *  className);
 830
 831 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);
 832
 833 extern struct Context * SetupTemplatesContext(struct __ecereNameSpace__ecere__com__Class * _class);
 834
 835 extern struct Type * ProcessTypeString(char *  string, unsigned int staticMethod);
 836
 837 extern void FinishTemplatesContext(struct Context * context);
 838
 839 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__GlobalFunction;
 840
 841 struct __ecereNameSpace__ecere__com__GlobalFunction
 842 {
 843 struct __ecereNameSpace__ecere__com__GlobalFunction * prev;
 844 struct __ecereNameSpace__ecere__com__GlobalFunction * next;
 845 char *  name;
 846 int (*  function)();
 847 struct __ecereNameSpace__ecere__com__Instance * module;
 848 struct __ecereNameSpace__ecere__com__NameSpace *  nameSpace;
 849 char *  dataTypeString;
 850 struct Type * dataType;
 851 void *  symbol;
 852 };
 853
 854 extern struct __ecereNameSpace__ecere__com__GlobalFunction * __ecereNameSpace__ecere__com__eSystem_FindFunction(struct __ecereNameSpace__ecere__com__Instance * module, char *  name);
 855
 856 extern int sprintf(char * , char * , ...);
 857
 858 extern void __ecereNameSpace__ecere__com__eInstance_Delete(struct __ecereNameSpace__ecere__com__Instance * instance);
 859
 860 int __ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts;
 861
 862 int __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(struct __ecereNameSpace__ecere__com__Instance * this, char *  format, ...);
 863
 864 int __ecereVMethodID___ecereNameSpace__ecere__sys__File_Seek;
 865
 866 int __ecereVMethodID___ecereNameSpace__ecere__sys__File_Eof;
 867
 868 int __ecereVMethodID___ecereNameSpace__ecere__sys__File_Read;
 869
 870 int __ecereVMethodID___ecereNameSpace__ecere__sys__File_Write;
 871
 872 static void WriteMain(char * fileName)
 873 {
 874 struct __ecereNameSpace__ecere__com__Instance * f = __ecereNameSpace__ecere__sys__FileOpen(fileName, 2);
 875
 876 if(f)
 877 {
 878 struct ModuleImport * module;
 879 struct ModuleInfo * defModule;
 880 unsigned int nonInst = 0x0, anyMethod = 0x0, anyProp = 0x0, anyFunction = 0x0;
 881 struct ImportedModule * importedModule;
 882
 883 __ecereNameSpace__ecere__sys__GetLastDirectory(fileName, mainModuleName);
 884 __ecereNameSpace__ecere__sys__StripExtension(mainModuleName);
 885 if(!projectName[0])
 886 {
 887 strcpy(projectName, mainModuleName);
 888 __ecereNameSpace__ecere__sys__StripExtension(projectName);
 889 }
 890 __ecereNameSpace__ecere__sys__ChangeCh(mainModuleName, '.', '_');
 891 __ecereNameSpace__ecere__sys__ChangeCh(mainModuleName, '-', '_');
 892 __ecereNameSpace__ecere__sys__ChangeCh(mainModuleName, ' ', '_');
 893 if(targetPlatform == 1 && !isConsole && !isStaticLibrary && !isDynamicLibrary)
 894 {
 895 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "typedef void * HINSTANCE;\n");
 896 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "#define WINAPI __stdcall\n");
 897 }
 898 for(importedModule = _defines.first; importedModule; importedModule = importedModule->next)
 899 {
 900 if(importedModule->type == 0)
 901 {
 902 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "import ");
 903 if(importedModule->importType == 1)
 904 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "static ", importedModule->name);
 905 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\"%s\"\n", importedModule->name);
 906 }
 907 }
 908 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "default:\n");
 909 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "static Module __currentModule;\n\n");
 910 if(!isStaticLibrary)
 911 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "Module __thisModule;\n\n");
 912 BindDCOMServer();
 913 BindDCOMClient();
 914 if(dcomSymbols)
 915 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "void __ecereRegisterModule_%s(Module module);\n\n", mainModuleName);
 916 for(module = _imports.first; module; module = module->next)
 917 {
 918 struct ClassImport * _class;
 919 struct FunctionImport * function;
 920
 921 if(module->importType == 1)
 922 {
 923 {
 924 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "bool __ecereDll_Load_%s(Module module);\n", module->name);
 925 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "bool __ecereDll_Unload_%s(Module module);\n", module->name);
 926 }
 927 }
 928 for(_class = module->classes.first; _class; _class = _class->next)
 929 {
 930 struct MethodImport * method;
 931 struct PropertyImport * prop;
 932 char className[1024] = "";
 933 struct __ecereNameSpace__ecere__com__Class * regClass = __ecereNameSpace__ecere__com__eSystem_FindClass(privateModule, _class->name);
 934
 935 FullClassNameCat(className, _class->name, 0x1);
 936 MangleClassName(className);
 937 if(_class->itself)
 938 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "Class __ecereClass_%s;\n", className);
 939 else
 940 nonInst = 0x1;
 941 {
 942 {
 943 for(method = _class->methods.first; method; method = method->next)
 944 {
 945 struct __ecereNameSpace__ecere__com__Method * meth = __ecereNameSpace__ecere__com__eClass_FindMethod(regClass, method->name, privateModule);
 946
 947 if(meth && !meth->dataType)
 948 {
 949 struct Context * context = SetupTemplatesContext(regClass);
 950
 951 meth->dataType = ProcessTypeString(meth->dataTypeString, 0x0);
 952 FinishTemplatesContext(context);
 953 }
 954 if(method->isVirtual)
 955 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "int __ecereVMethodID_%s_%s;\n", className, method->name);
 956 else if(module->name && module->importType != 1 && (!meth || !meth->dataType->dllExport))
 957 {
 958 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "int (*__ecereMethod_%s_%s)();\n", className, method->name);
 959 }
 960 anyMethod = 0x1;
 961 }
 962 }
 963 for(prop = _class->properties.first; prop; prop = prop->next)
 964 {
 965 char propName[1024];
 966
 967 propName[0] = (char)0;
 968 FullClassNameCat(propName, prop->name, 0x1);
 969 MangleClassName(propName);
 970 if(module->name && module->importType != 1)
 971 {
 972 if(prop->hasSet)
 973 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "void * __ecereProp_%s_Set_%s;\n", className, propName);
 974 if(prop->hasGet)
 975 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "void * __ecereProp_%s_Get_%s;\n", className, propName);
 976 }
 977 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "Property __ecereProp_%s_%s;\n", className, propName);
 978 anyProp = 0x1;
 979 }
 980 }
 981 }
 982 for(function = module->functions.first; function; function = function->next)
 983 {
 984 struct __ecereNameSpace__ecere__com__GlobalFunction * func = __ecereNameSpace__ecere__com__eSystem_FindFunction(privateModule, function->name);
 985
 986 if(func && !func->dataType)
 987 func->dataType = ProcessTypeString(func->dataTypeString, 0x0);
 988 if(module->name && module->importType != 1 && (!func || !func->dataType || !func->dataType->dllExport))
 989 {
 990 char functionName[1024];
 991
 992 functionName[0] = (char)0;
 993 FullClassNameCat(functionName, function->name, 0x0);
 994 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "void * __ecereFunction_%s;\n", functionName);
 995 anyFunction = 0x1;
 996 }
 997 }
 998 }
 999 for(defModule = modules.first; defModule; defModule = defModule->next)
1000 {
1001 char moduleName[1024];
1002
1003 strcpy(moduleName, defModule->name);
1004 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, ' ', '_');
1005 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, '-', '_');
1006 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, '.', '_');
1007 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "void __ecereRegisterModule_%s(Module module);\n", moduleName);
1008 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "void __ecereUnregisterModule_%s(Module module);\n", moduleName);
1009 if(defModule->globalInstance)
1010 {
1011 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "void __ecereCreateModuleInstances_%s();\n", moduleName);
1012 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "void __ecereDestroyModuleInstances_%s();\n", moduleName);
1013 }
1014 }
1015 if(dcomSymbols)
1016 {
1017 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1018 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, int pos, int mode))dcomSymbols->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Seek])(dcomSymbols, 0, 0);
1019 while(!((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *))dcomSymbols->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Eof])(dcomSymbols))
1020 {
1021 char buffer[4096];
1022 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);
1023
1024 if(!read)
1025 break;
1026 ((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);
1027 }
1028 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1029 }
1030 if(isStaticLibrary)
1031 {
1032 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\nbool __ecereDll_Load_%s(Module module)\n{\n", projectName);
1033 }
1034 else if(isDynamicLibrary)
1035 {
1036 if(targetPlatform == 1)
1037 ((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");
1038 else
1039 ((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");
1040 }
1041 else if(targetPlatform == 1 && !isConsole)
1042 {
1043 ((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");
1044 }
1045 else
1046 ((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");
1047 if(!isDynamicLibrary)
1048 {
1049 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   int exitCode;\n");
1050 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   Module module;\n");
1051 }
1052 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   Class _class;\n");
1053 if(anyMethod)
1054 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   Method method;\n");
1055 if(anyProp)
1056 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   Property _property;\n");
1057 if(anyFunction)
1058 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   GlobalFunction function;\n");
1059 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "\n");
1060 if(isDynamicLibrary)
1061 {
1062 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   if(!__currentModule)\n");
1063 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   {\n");
1064 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "      __currentModule = module;\n");
1065 if(!isStaticLibrary)
1066 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "      __thisModule = module;\n");
1067 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   }\n\n");
1068 }
1069 else if(targetPlatform == 1 && !isConsole)
1070 ((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");
1071 else
1072 ((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");
1073 if(_imports.count)
1074 {
1075 for(module = _imports.first; module; module = module->next)
1076 {
1077 if(module->name)
1078 {
1079 {
1080 if(module->importType == 1)
1081 __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);
1082 else
1083 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   eModule_Load(module, \"%s\", %s);\n", module->name, (module->importAccess == 2) ? "privateAccess" : "publicAccess");
1084 }
1085 }
1086 }
1087 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1088 }
1089 if(modules.count)
1090 {
1091 for(defModule = modules.first; defModule; defModule = defModule->next)
1092 {
1093 char moduleName[1024];
1094
1095 strcpy(moduleName, defModule->name);
1096 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, ' ', '_');
1097 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, '-', '_');
1098 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, '.', '_');
1099 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   __ecereRegisterModule_%s(module);\n", moduleName);
1100 }
1101 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1102 }
1103 if(dcomSymbols)
1104 {
1105 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   __ecereRegisterModule_%s(module);\n\n", mainModuleName);
1106 (__ecereNameSpace__ecere__com__eInstance_DecRef(dcomSymbols), dcomSymbols = 0);
1107 }
1108 if(isDynamicLibrary)
1109 {
1110 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   if(__currentModule == module)\n");
1111 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   {\n");
1112 }
1113 for(module = _imports.first; module; module = module->next)
1114 {
1115 struct ClassImport * _class;
1116 struct FunctionImport * function;
1117
1118 if(module->classes.count)
1119 {
1120 for(_class = module->classes.first; _class; _class = _class->next)
1121 {
1122 struct __ecereNameSpace__ecere__com__Class * regClass = __ecereNameSpace__ecere__com__eSystem_FindClass(privateModule, _class->name);
1123
1124 {
1125 struct MethodImport * method;
1126 struct PropertyImport * prop;
1127 char classID[1024];
1128 char className[1024] = "";
1129
1130 FullClassNameCat(className, _class->name, 0x1);
1131 MangleClassName(className);
1132 if(_class->itself)
1133 sprintf(classID, "__ecereClass_%s", className);
1134 else
1135 strcpy(classID, "_class");
1136 if(isDynamicLibrary && !isStaticLibrary)
1137 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   %s = eSystem_FindClass(__currentModule, \"%s\");\n", classID, _class->name);
1138 else
1139 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   %s = eSystem_FindClass(module, \"%s\");\n", classID, _class->name);
1140 for(method = _class->methods.first; method; method = method->next)
1141 {
1142 struct __ecereNameSpace__ecere__com__Method * meth = __ecereNameSpace__ecere__com__eClass_FindMethod(regClass, method->name, privateModule);
1143
1144 if(!meth || !meth->dataType->dllExport)
1145 {
1146 if(method->isVirtual || (module->name && module->importType != 1))
1147 {
1148 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   method = eClass_FindMethod(%s, \"%s\", module);\n", classID, method->name);
1149 if(method->isVirtual)
1150 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   if(method) __ecereVMethodID_%s_%s = method.vid;\n", className, method->name);
1151 else
1152 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   if(method) __ecereMethod_%s_%s = method.function;\n", className, method->name);
1153 }
1154 }
1155 }
1156 for(prop = _class->properties.first; prop; prop = prop->next)
1157 {
1158 char propName[1024];
1159
1160 propName[0] = (char)0;
1161 FullClassNameCat(propName, prop->name, 0x1);
1162 MangleClassName(propName);
1163 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   __ecereProp_%s_%s = _property = eClass_FindProperty(%s, \"%s\", module);\n", className, propName, classID, prop->name);
1164 if(module->name && module->importType != 1)
1165 {
1166 if(prop->hasSet)
1167 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   __ecereProp_%s_Set_%s = _property.Set;\n", className, propName);
1168 if(prop->hasGet)
1169 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   __ecereProp_%s_Get_%s = _property.Get;\n", className, propName);
1170 }
1171 }
1172 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1173 }
1174 }
1175 }
1176 if(module->functions.count)
1177 {
1178 for(function = module->functions.first; function; function = function->next)
1179 {
1180 struct __ecereNameSpace__ecere__com__GlobalFunction * func = __ecereNameSpace__ecere__com__eSystem_FindFunction(privateModule, function->name);
1181
1182 if(module->name && module->importType != 1 && (!func || !func->dataType || !func->dataType->dllExport))
1183 {
1184 char functionName[1024];
1185
1186 functionName[0] = (char)0;
1187 FullClassNameCat(functionName, function->name, 0x0);
1188 if(isDynamicLibrary && !isStaticLibrary)
1189 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   function = eSystem_FindFunction(__currentModule, \"%s\");\n", function->name);
1190 else
1191 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   function = eSystem_FindFunction(module, \"%s\");\n", function->name);
1192 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   if(function) __ecereFunction_%s = function.function;\n", functionName);
1193 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1194 }
1195 }
1196 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1197 }
1198 }
1199 for(defModule = modules.first; defModule; defModule = defModule->next)
1200 if(defModule->globalInstance)
1201 {
1202 if(!strcmp(defModule->name, "i18n"))
1203 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   __ecereCreateModuleInstances_i18n();\n");
1204 }
1205 if(i18n)
1206 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      LoadTranslatedStrings(module, \"%s\");\n", projectName);
1207 if(isDynamicLibrary)
1208 {
1209 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   }\n");
1210 }
1211 if(!isDynamicLibrary && thisAppClass)
1212 {
1213 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   _class = eSystem_FindClass(__currentModule, \"%s\");\n", thisAppClass->name);
1214 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   eInstance_Evolve((Instance *)&__currentModule, _class);\n");
1215 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   __thisModule = __currentModule;\n");
1216 }
1217 if(isDynamicLibrary)
1218 {
1219 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   if(__currentModule == module)\n");
1220 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   {\n");
1221 }
1222 if(modules.count)
1223 {
1224 for(defModule = modules.first; defModule; defModule = defModule->next)
1225 if(defModule->globalInstance)
1226 {
1227 char moduleName[1024];
1228
1229 if(!strcmp(defModule->name, "i18n"))
1230 continue;
1231 strcpy(moduleName, defModule->name);
1232 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, ' ', '_');
1233 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, '-', '_');
1234 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, '.', '_');
1235 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   __ecereCreateModuleInstances_%s();\n", moduleName);
1236 }
1237 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1238 }
1239 if(isDynamicLibrary)
1240 {
1241 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   }\n");
1242 }
1243 if(!isDynamicLibrary && thisAppClass)
1244 {
1245 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   __currentModule._vTbl[12](__currentModule);\n");
1246 }
1247 if(isDynamicLibrary)
1248 {
1249 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   return true;\n");
1250 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "}\n");
1251 if(isStaticLibrary)
1252 {
1253 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\nbool __ecereDll_Unload_%s(Module module)\n{\n", projectName);
1254 }
1255 else
1256 {
1257 if(targetPlatform == 1)
1258 ((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");
1259 else
1260 ((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");
1261 }
1262 }
1263 if(isDynamicLibrary)
1264 {
1265 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   if(__currentModule == module)\n");
1266 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   {\n");
1267 }
1268 {
1269 unsigned int destroyI18n = 0x0;
1270
1271 if(modules.count)
1272 {
1273 for(defModule = modules.first; defModule; defModule = defModule->next)
1274 if(defModule->globalInstance)
1275 {
1276 char moduleName[1024];
1277
1278 if(!strcmp(defModule->name, "i18n"))
1279 {
1280 destroyI18n = 0x1;
1281 continue;
1282 }
1283 strcpy(moduleName, defModule->name);
1284 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, ' ', '_');
1285 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, '-', '_');
1286 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, '.', '_');
1287 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   __ecereDestroyModuleInstances_%s();\n", moduleName);
1288 }
1289 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1290 }
1291 if(i18n)
1292 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   UnloadTranslatedStrings(__currentModule);\n");
1293 if(destroyI18n)
1294 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   __ecereDestroyModuleInstances_i18n();\n");
1295 }
1296 if(isDynamicLibrary)
1297 {
1298 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   }\n");
1299 if(isDynamicLibrary)
1300 {
1301 }
1302 if(modules.count)
1303 {
1304 for(defModule = modules.first; defModule; defModule = defModule->next)
1305 {
1306 char moduleName[1024];
1307
1308 strcpy(moduleName, defModule->name);
1309 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, ' ', '_');
1310 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, '-', '_');
1311 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, '.', '_');
1312 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   __ecereUnregisterModule_%s(module);\n", moduleName);
1313 }
1314 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1315 }
1316 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   if(__currentModule == module)\n");
1317 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "      __currentModule = (void *)0;\n");
1318 if(!isStaticLibrary)
1319 {
1320 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   if(__thisModule == module)\n");
1321 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "      __thisModule = (void *)0;\n");
1322 }
1323 }
1324 if(!isDynamicLibrary)
1325 {
1326 ((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");
1327 }
1328 else
1329 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "   return true;\n");
1330 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "}\n");
1331 __ecereNameSpace__ecere__com__eInstance_Delete(f);
1332 }
1333 }
1334
1335 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__BTNamedLink;
1336
1337 struct __ecereNameSpace__ecere__com__BTNamedLink
1338 {
1339 char *  name;
1340 struct __ecereNameSpace__ecere__com__BTNamedLink * parent;
1341 struct __ecereNameSpace__ecere__com__BTNamedLink * left;
1342 struct __ecereNameSpace__ecere__com__BTNamedLink * right;
1343 int depth;
1344 void *  data;
1345 };
1346
1347 struct __ecereNameSpace__ecere__sys__BTNode * __ecereProp___ecereNameSpace__ecere__sys__BinaryTree_Get_first(struct __ecereNameSpace__ecere__sys__BinaryTree * this);
1348
1349 extern struct __ecereNameSpace__ecere__com__Property ** __ecereProp___ecereNameSpace__ecere__sys__BinaryTree_first;
1350
1351 struct __ecereNameSpace__ecere__sys__BTNode * __ecereProp___ecereNameSpace__ecere__sys__BTNode_Get_next(struct __ecereNameSpace__ecere__sys__BTNode * this);
1352
1353 extern struct __ecereNameSpace__ecere__com__Property ** __ecereProp___ecereNameSpace__ecere__sys__BTNode_next;
1354
1355 static struct __ecereNameSpace__ecere__com__Class * FindAppClass(struct __ecereNameSpace__ecere__com__NameSpace * nameSpace, unsigned int thisModule)
1356 {
1357 struct __ecereNameSpace__ecere__com__BTNamedLink * link;
1358 struct __ecereNameSpace__ecere__com__NameSpace * ns;
1359
1360 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)))
1361 {
1362 struct __ecereNameSpace__ecere__com__Class * _class = link->data;
1363
1364 if(strcmp(_class->fullName, "ecere::com::Application") && (!thisModule || _class->module == privateModule))
1365 {
1366 struct __ecereNameSpace__ecere__com__Class * base;
1367
1368 for(base = _class->base; base && base->type != 1000; base = base->base)
1369 if(!strcmp(base->fullName, "ecere::com::Application"))
1370 return _class;
1371 }
1372 }
1373 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)))
1374 {
1375 struct __ecereNameSpace__ecere__com__Class * _class = FindAppClass(ns, thisModule);
1376
1377 if(_class)
1378 return _class;
1379 }
1380 return (((void *)0));
1381 }
1382
1383 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__Module;
1384
1385 struct __ecereNameSpace__ecere__com__Module
1386 {
1387 struct __ecereNameSpace__ecere__com__Instance * application;
1388 struct __ecereNameSpace__ecere__sys__OldList classes;
1389 struct __ecereNameSpace__ecere__sys__OldList defines;
1390 struct __ecereNameSpace__ecere__sys__OldList functions;
1391 struct __ecereNameSpace__ecere__sys__OldList modules;
1392 struct __ecereNameSpace__ecere__com__Instance * prev;
1393 struct __ecereNameSpace__ecere__com__Instance * next;
1394 char *  name;
1395 void *  library;
1396 void *  Unload;
1397 int importType;
1398 int origImportType;
1399 struct __ecereNameSpace__ecere__com__NameSpace privateNameSpace;
1400 struct __ecereNameSpace__ecere__com__NameSpace publicNameSpace;
1401 };
1402
1403 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__SubModule;
1404
1405 struct __ecereNameSpace__ecere__com__SubModule
1406 {
1407 struct __ecereNameSpace__ecere__com__SubModule * prev;
1408 struct __ecereNameSpace__ecere__com__SubModule * next;
1409 struct __ecereNameSpace__ecere__com__Instance * module;
1410 int importMode;
1411 };
1412
1413 static struct __ecereNameSpace__ecere__com__Class * SearchAppClass_Module(struct __ecereNameSpace__ecere__com__Instance * module)
1414 {
1415 struct __ecereNameSpace__ecere__com__Class * appClass;
1416 struct __ecereNameSpace__ecere__com__SubModule * subModule;
1417
1418 appClass = FindAppClass(&((struct __ecereNameSpace__ecere__com__Module *)(((char *)module + 12)))->publicNameSpace, 0x0);
1419 if(appClass)
1420 return appClass;
1421 appClass = FindAppClass(&((struct __ecereNameSpace__ecere__com__Module *)(((char *)module + 12)))->privateNameSpace, 0x0);
1422 if(appClass)
1423 return appClass;
1424 for(subModule = ((struct __ecereNameSpace__ecere__com__Module *)(((char *)module + 12)))->modules.first; subModule; subModule = subModule->next)
1425 {
1426 appClass = SearchAppClass_Module(subModule->module);
1427 if(appClass)
1428 return appClass;
1429 }
1430 return (((void *)0));
1431 }
1432
1433 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__sys__TempFile;
1434
1435 struct __ecereNameSpace__ecere__sys__TempFile
1436 {
1437 char __ecere_padding[24];
1438 };
1439
1440 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__sys__OldLink;
1441
1442 struct __ecereNameSpace__ecere__sys__OldLink
1443 {
1444 struct __ecereNameSpace__ecere__sys__OldLink * prev;
1445 struct __ecereNameSpace__ecere__sys__OldLink * next;
1446 void *  data;
1447 };
1448
1449 extern void DeclareClass(struct Symbol * classSym, char *  className);
1450
1451 extern struct Symbol * FindClass(char *  name);
1452
1453 extern struct __ecereNameSpace__ecere__sys__OldList *  MkList(void);
1454
1455 extern void PrintType(struct Type * type, char *  string, unsigned int printName, unsigned int fullName);
1456
1457 extern struct Declarator * SpecDeclFromString(char *  string, struct __ecereNameSpace__ecere__sys__OldList *  specs, struct Declarator * baseDecl);
1458
1459 extern struct Declarator * MkDeclaratorIdentifier(struct Identifier * id);
1460
1461 extern struct Identifier * MkIdentifier(char *  string);
1462
1463 extern struct TypeName * MkTypeName(struct __ecereNameSpace__ecere__sys__OldList * qualifiers, struct Declarator * declarator);
1464
1465 extern void OutputTypeName(struct TypeName * type, struct __ecereNameSpace__ecere__com__Instance * f);
1466
1467 extern char *  strcat(char * , const char * );
1468
1469 extern void DeclareMethod(struct __ecereNameSpace__ecere__com__Method * method, char *  name);
1470
1471 static void BindDCOMClient()
1472 {
1473 struct __ecereNameSpace__ecere__com__Class * dcomClientObjectClass = __ecereNameSpace__ecere__com__eSystem_FindClass(privateModule, "ecere::net::DCOMClientObject");
1474 struct __ecereNameSpace__ecere__sys__OldLink * deriv;
1475
1476 if(dcomClientObjectClass && dcomClientObjectClass->derivatives.first)
1477 {
1478 struct __ecereNameSpace__ecere__com__Instance * f;
1479
1480 if(!dcomSymbols)
1481 dcomSymbols = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass___ecereNameSpace__ecere__sys__TempFile);
1482 f = dcomSymbols;
1483 for(deriv = dcomClientObjectClass->derivatives.first; deriv; deriv = deriv->next)
1484 {
1485 struct __ecereNameSpace__ecere__com__Class * _class = deriv->data;
1486 struct __ecereNameSpace__ecere__com__Method * method, * next;
1487 int id = 0;
1488 int vid;
1489 unsigned int doVirtual;
1490
1491 DeclareClass(FindClass("ecere::net::DCOMClientObject"), "__ecereClass___ecereNameSpace__ecere__net__DCOMClientObject");
1492 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "class %s : ecere::net::DCOMClientObject\n", _class->fullName);
1493 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "{\n");
1494 if(_class->vTblSize > _class->base->vTblSize)
1495 {
1496 int vid;
1497
1498 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   virtual void CallVirtualMethod(uint __ecereMethodID, SerialBuffer __ecereBuffer)\n");
1499 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   {\n");
1500 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      switch(__ecereMethodID)\n");
1501 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      {\n");
1502 for(vid = _class->base->vTblSize; vid < _class->vTblSize; vid++)
1503 {
1504 struct __ecereNameSpace__ecere__com__Method * method;
1505
1506 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)))
1507 {
1508 if(method->type == 1 && method->_class == _class && method->vid == vid)
1509 break;
1510 }
1511 if(method)
1512 {
1513 struct Type * param;
1514
1515 method->dataType = ProcessTypeString(method->dataTypeString, 0x0);
1516 if(method->dataType && method->dataType->name)
1517 {
1518 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "         case %d:\n", vid - _class->base->vTblSize);
1519 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "         {\n");
1520 {
1521 if(method->dataType->returnType->kind != 0)
1522 {
1523 struct TypeName * resultType;
1524 struct __ecereNameSpace__ecere__sys__OldList * specs = MkList();
1525 struct Declarator * decl;
1526 char type[1024] = "";
1527 char className[1024];
1528 struct Symbol * classSym;
1529
1530 if(method->dataType->returnType->kind == 8)
1531 classSym = method->dataType->returnType->_class;
1532 else
1533 {
1534 PrintType(method->dataType->returnType, type, 0x0, 0x1);
1535 classSym = FindClass(type);
1536 type[0] = (char)0;
1537 }
1538 strcpy(className, "__ecereClass_");
1539 FullClassNameCat(className, classSym->string, 0x1);
1540 MangleClassName(className);
1541 DeclareClass(classSym, className);
1542 PrintType(method->dataType->returnType, type, 0x1, 0x1);
1543 decl = SpecDeclFromString(type, specs, MkDeclaratorIdentifier(MkIdentifier("__ecereResult")));
1544 resultType = MkTypeName(specs, decl);
1545 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "            ");
1546 OutputTypeName(resultType, f);
1547 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, ";\n");
1548 }
1549 for(param = method->dataType->params.first; param; param = param->next)
1550 {
1551 if(param->kind == 8 && !strcmp(param->_class->string, "String"))
1552 {
1553 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "            char %s[1024];\n", param->name);
1554 DeclareClass(FindClass("StaticString"), "__ecereClass_StaticString");
1555 DeclareClass(FindClass("String"), "__ecereClass_String");
1556 }
1557 else
1558 {
1559 struct TypeName * paramTypeName;
1560 struct __ecereNameSpace__ecere__sys__OldList * specs = MkList();
1561 struct Declarator * decl;
1562 char type[1024] = "";
1563 char className[1024];
1564 struct Symbol * classSym;
1565
1566 if(param->kind == 8)
1567 classSym = param->_class;
1568 else
1569 {
1570 PrintType(param, type, 0x0, 0x1);
1571 classSym = FindClass(type);
1572 type[0] = (char)0;
1573 }
1574 strcpy(className, "__ecereClass_");
1575 FullClassNameCat(className, classSym->string, 0x1);
1576 MangleClassName(className);
1577 DeclareClass(classSym, className);
1578 PrintType(param, type, 0x1, 0x1);
1579 decl = SpecDeclFromString(type, specs, MkDeclaratorIdentifier(MkIdentifier(param->name)));
1580 paramTypeName = MkTypeName(specs, decl);
1581 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "            ");
1582 OutputTypeName(paramTypeName, f);
1583 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, ";\n");
1584 }
1585 }
1586 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1587 for(param = method->dataType->params.first; param; param = param->next)
1588 {
1589 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "            __ecereBuffer.Unserialize(");
1590 if(param->kind == 8 && !strcmp(param->_class->string, "String"))
1591 {
1592 DeclareClass(FindClass("StaticString"), "__ecereClass_StaticString");
1593 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "(StaticString)");
1594 }
1595 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, param->name);
1596 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, ");\n");
1597 }
1598 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "            ");
1599 if(method->dataType->returnType->kind != 0)
1600 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "__ecereResult = ");
1601 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "%s(", method->name);
1602 for(param = method->dataType->params.first; param; param = param->next)
1603 {
1604 if(param->prev)
1605 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, ", ");
1606 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "%s", param->name);
1607 }
1608 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, ");\n");
1609 for(param = method->dataType->params.first; param; param = param->next)
1610 {
1611 if(param->kind == 8 && ((param->_class && param->_class->registered && param->_class->registered->type == 1) || !strcmp(param->_class->string, "String")) && !param->constant)
1612 {
1613 if(!strcmp(param->_class->string, "String"))
1614 {
1615 DeclareClass(FindClass("StaticString"), "__ecereClass_StaticString");
1616 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "            __ecereBuffer.Serialize((StaticString)%s);\n", param->name);
1617 }
1618 else
1619 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "            __ecereBuffer.Serialize(%s);\n", param->name);
1620 }
1621 }
1622 if(method->dataType->returnType->kind != 0)
1623 {
1624 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "            __ecereBuffer.Serialize(__ecereResult);\n");
1625 }
1626 for(param = method->dataType->params.first; param; param = param->next)
1627 {
1628 if(param->kind == 8 && strcmp(param->_class->string, "String") && param->_class->registered && (param->_class->registered->type == 0 || param->_class->registered->type == 5))
1629 {
1630 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "            delete %s;\n", param->name);
1631 }
1632 }
1633 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))
1634 {
1635 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "            delete __ecereResult;\n");
1636 }
1637 }
1638 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "            break;\n");
1639 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "         }\n");
1640 }
1641 }
1642 }
1643 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      }\n");
1644 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   }\n");
1645 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1646 }
1647 doVirtual = 0x1;
1648 id = 0;
1649 vid = _class->base->vTblSize;
1650 next = (struct __ecereNameSpace__ecere__com__Method *)__ecereProp___ecereNameSpace__ecere__sys__BinaryTree_Get_first(&_class->methods);
1651 while(next && ((next->type == 1) != doVirtual || (doVirtual && next->vid != vid)))
1652 {
1653 id++;
1654 next = (struct __ecereNameSpace__ecere__com__Method *)__ecereProp___ecereNameSpace__ecere__sys__BTNode_Get_next(((struct __ecereNameSpace__ecere__sys__BTNode *)next));
1655 if(!next && doVirtual)
1656 {
1657 if(vid == _class->vTblSize)
1658 doVirtual = 0x0;
1659 else
1660 vid++;
1661 id = 0;
1662 next = (struct __ecereNameSpace__ecere__com__Method *)__ecereProp___ecereNameSpace__ecere__sys__BinaryTree_Get_first(&_class->methods);
1663 }
1664 }
1665 for(method = next; method; method = next)
1666 {
1667 struct Type * param;
1668
1669 if(!method->dataType)
1670 method->dataType = ProcessTypeString(method->dataTypeString, 0x0);
1671 if(method->dataType->name)
1672 {
1673 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   ");
1674 if(doVirtual)
1675 {
1676 char name[1024];
1677
1678 strcpy(name, "__ecereVMethodID_");
1679 FullClassNameCat(name, method->_class->fullName, 0x1);
1680 strcat(name, "_");
1681 strcat(name, method->name);
1682 DeclareMethod(method, name);
1683 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "virtual ");
1684 }
1685 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "%s\n", method->dataTypeString);
1686 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   {\n");
1687 if(method->dataType)
1688 {
1689 if(method->dataType->returnType->kind != 0)
1690 {
1691 struct TypeName * resultType;
1692 struct __ecereNameSpace__ecere__sys__OldList * specs = MkList();
1693 struct Declarator * decl;
1694 char type[1024] = "";
1695 char className[1024];
1696 struct Symbol * classSym;
1697
1698 if(method->dataType->returnType->kind == 8)
1699 classSym = method->dataType->returnType->_class;
1700 else
1701 {
1702 PrintType(method->dataType->returnType, type, 0x0, 0x1);
1703 classSym = FindClass(type);
1704 type[0] = (char)0;
1705 }
1706 strcpy(className, "__ecereClass_");
1707 FullClassNameCat(className, classSym->string, 0x1);
1708 MangleClassName(className);
1709 DeclareClass(classSym, className);
1710 PrintType(method->dataType->returnType, type, 0x1, 0x1);
1711 decl = SpecDeclFromString(type, specs, MkDeclaratorIdentifier(MkIdentifier("__ecereResult")));
1712 resultType = MkTypeName(specs, decl);
1713 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      ");
1714 OutputTypeName(resultType, f);
1715 if(method->dataType->returnType->kind == 9)
1716 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " = { 0 }");
1717 else if(method->dataType->returnType->kind == 8 && method->dataType->returnType->_class->registered && method->dataType->returnType->_class->registered->type == 1)
1718 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " { }");
1719 else
1720 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " = 0");
1721 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, ";\n\n");
1722 }
1723 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      incref this;\n");
1724 for(param = method->dataType->params.first; param; param = param->next)
1725 {
1726 char type[1024] = "";
1727 char className[1024];
1728 struct Symbol * classSym;
1729
1730 if(param->kind == 8)
1731 classSym = param->_class;
1732 else
1733 {
1734 PrintType(param, type, 0x0, 0x1);
1735 classSym = FindClass(type);
1736 type[0] = (char)0;
1737 }
1738 strcpy(className, "__ecereClass_");
1739 FullClassNameCat(className, classSym->string, 0x1);
1740 MangleClassName(className);
1741 DeclareClass(classSym, className);
1742 if(param->kind == 8 && !strcmp(param->_class->string, "String"))
1743 {
1744 DeclareClass(FindClass("StaticString"), "__ecereClass_StaticString");
1745 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      __ecereBuffer.Serialize((StaticString)%s);\n", param->name);
1746 }
1747 else
1748 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      __ecereBuffer.Serialize(%s);\n", param->name);
1749 }
1750 DeclareMethod(__ecereNameSpace__ecere__com__eClass_FindMethod(__ecereNameSpace__ecere__com__eSystem_FindClass(privateModule, "ecere::net::DCOMClientObject"), "CallMethod", privateModule), "__ecereMethod___ecereNameSpace__ecere__net__DCOMClientObject_CallMethod");
1751 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      if(DCOMClientObject::CallMethod(%d))\n", id++);
1752 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      {\n");
1753 for(param = method->dataType->params.first; param; param = param->next)
1754 {
1755 if(param->kind == 8 && ((param->_class && param->_class->registered && param->_class->registered->type == 1) || !strcmp(param->_class->string, "String")) && !param->constant)
1756 {
1757 if(!strcmp(param->_class->string, "String"))
1758 {
1759 DeclareClass(FindClass("StaticString"), "__ecereClass_StaticString");
1760 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "         __ecereBuffer.Unserialize((StaticString)%s);\n", param->name);
1761 }
1762 else
1763 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "         __ecereBuffer.Unserialize(%s);\n", param->name);
1764 }
1765 }
1766 if(method->dataType->returnType->kind != 0)
1767 {
1768 if(method->dataType->returnType->kind == 8 && !strcmp(method->dataType->returnType->_class->string, "String"))
1769 {
1770 DeclareClass(FindClass("StaticString"), "__ecereClass_StaticString");
1771 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "         __ecereBuffer.Unserialize((StaticString)__ecereResult);\n");
1772 }
1773 else
1774 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "         __ecereBuffer.Unserialize(__ecereResult);\n");
1775 }
1776 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      }\n");
1777 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      __ecereBuffer.Free();\n");
1778 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      delete this;\n");
1779 if(method->dataType->returnType->kind != 0)
1780 {
1781 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      return __ecereResult;\n");
1782 }
1783 }
1784 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   }\n");
1785 }
1786 next = (struct __ecereNameSpace__ecere__com__Method *)__ecereProp___ecereNameSpace__ecere__sys__BTNode_Get_next(((struct __ecereNameSpace__ecere__sys__BTNode *)method));
1787 while(next && ((next->type == 1) != doVirtual || (doVirtual && next->vid != vid)))
1788 {
1789 id++;
1790 next = (struct __ecereNameSpace__ecere__com__Method *)__ecereProp___ecereNameSpace__ecere__sys__BTNode_Get_next(((struct __ecereNameSpace__ecere__sys__BTNode *)next));
1791 if(!next && doVirtual)
1792 {
1793 if(vid == _class->vTblSize)
1794 doVirtual = 0x0;
1795 else
1796 vid++;
1797 id = 0;
1798 next = (struct __ecereNameSpace__ecere__com__Method *)__ecereProp___ecereNameSpace__ecere__sys__BinaryTree_Get_first(&_class->methods);
1799 }
1800 }
1801 if(next)
1802 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1803 }
1804 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "}\n");
1805 if(deriv->next)
1806 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1807 }
1808 }
1809 }
1810
1811 static void BindDCOMServer()
1812 {
1813 unsigned int mutexDeclared = 0x0;
1814 struct __ecereNameSpace__ecere__com__Class * _class;
1815
1816 for(_class = ((struct __ecereNameSpace__ecere__com__Module *)(((char *)privateModule + 12)))->classes.first; _class; _class = _class->next)
1817 {
1818 if(_class->isRemote == (unsigned int)3)
1819 break;
1820 }
1821 if(_class)
1822 {
1823 struct __ecereNameSpace__ecere__com__Instance * f;
1824
1825 if(!dcomSymbols)
1826 dcomSymbols = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass___ecereNameSpace__ecere__sys__TempFile);
1827 f = dcomSymbols;
1828 DeclareClass(FindClass("ecere::net::DCOMServerObject"), "__ecereClass___ecereNameSpace__ecere__net__DCOMServerObject");
1829 for(_class = ((struct __ecereNameSpace__ecere__com__Module *)(((char *)privateModule + 12)))->classes.first; _class; _class = _class->next)
1830 {
1831 if(_class->isRemote == (unsigned int)3)
1832 {
1833 struct __ecereNameSpace__ecere__com__Method * method;
1834 int id = 0;
1835 int vid;
1836
1837 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "class DCOM%s : ecere::net::DCOMServerObject\n", _class->fullName);
1838 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "{\n");
1839 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   virtual void CallMethod(uint __ecereMethodID, SerialBuffer __ecereBuffer)\n");
1840 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   {\n");
1841 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      %s inst = (%s)instance;\n", _class->fullName, _class->fullName);
1842 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      incref inst;\n");
1843 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      switch(__ecereMethodID)\n");
1844 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      {\n");
1845 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)))
1846 {
1847 struct Type * param;
1848
1849 method->dataType = ProcessTypeString(method->dataTypeString, 0x0);
1850 if(method->dataType && method->dataType->name)
1851 {
1852 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "         case %d:\n", id++);
1853 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "         {\n");
1854 {
1855 if(method->dataType->returnType->kind != 0)
1856 {
1857 struct TypeName * resultType;
1858 struct __ecereNameSpace__ecere__sys__OldList * specs = MkList();
1859 struct Declarator * decl;
1860 char type[1024] = "";
1861 char className[1024];
1862 struct Symbol * classSym;
1863
1864 if(method->dataType->returnType->kind == 8)
1865 classSym = method->dataType->returnType->_class;
1866 else
1867 {
1868 PrintType(method->dataType->returnType, type, 0x0, 0x1);
1869 classSym = FindClass(type);
1870 type[0] = (char)0;
1871 }
1872 strcpy(className, "__ecereClass_");
1873 FullClassNameCat(className, classSym->string, 0x1);
1874 MangleClassName(className);
1875 DeclareClass(classSym, className);
1876 PrintType(method->dataType->returnType, type, 0x1, 0x1);
1877 decl = SpecDeclFromString(type, specs, MkDeclaratorIdentifier(MkIdentifier("__ecereResult")));
1878 resultType = MkTypeName(specs, decl);
1879 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "            ");
1880 OutputTypeName(resultType, f);
1881 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, ";\n");
1882 }
1883 for(param = method->dataType->params.first; param; param = param->next)
1884 {
1885 if(param->kind == 8 && !strcmp(param->_class->string, "String"))
1886 {
1887 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "            char %s[1024];\n", param->name);
1888 DeclareClass(FindClass("StaticString"), "__ecereClass_StaticString");
1889 DeclareClass(FindClass("String"), "__ecereClass_String");
1890 }
1891 else
1892 {
1893 struct TypeName * paramTypeName;
1894 struct __ecereNameSpace__ecere__sys__OldList * specs = MkList();
1895 struct Declarator * decl;
1896 char type[1024] = "";
1897 char className[1024];
1898 struct Symbol * classSym;
1899
1900 if(param->kind == 8)
1901 classSym = param->_class;
1902 else
1903 {
1904 PrintType(param, type, 0x0, 0x1);
1905 classSym = FindClass(type);
1906 type[0] = (char)0;
1907 }
1908 strcpy(className, "__ecereClass_");
1909 FullClassNameCat(className, classSym->string, 0x1);
1910 MangleClassName(className);
1911 DeclareClass(classSym, className);
1912 PrintType(param, type, 0x1, 0x1);
1913 decl = SpecDeclFromString(type, specs, MkDeclaratorIdentifier(MkIdentifier(param->name)));
1914 paramTypeName = MkTypeName(specs, decl);
1915 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "            ");
1916 OutputTypeName(paramTypeName, f);
1917 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, ";\n");
1918 }
1919 }
1920 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1921 for(param = method->dataType->params.first; param; param = param->next)
1922 {
1923 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "            __ecereBuffer.Unserialize(");
1924 if(param->kind == 8 && !strcmp(param->_class->string, "String"))
1925 {
1926 DeclareClass(FindClass("StaticString"), "__ecereClass_StaticString");
1927 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "(StaticString)");
1928 }
1929 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, param->name);
1930 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, ");\n");
1931 }
1932 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "            ");
1933 if(method->dataType->returnType->kind != 0)
1934 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "__ecereResult = ");
1935 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "((%s)instance).%s(", _class->fullName, method->name);
1936 for(param = method->dataType->params.first; param; param = param->next)
1937 {
1938 if(param->prev)
1939 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, ", ");
1940 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "%s", param->name);
1941 }
1942 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, ");\n");
1943 for(param = method->dataType->params.first; param; param = param->next)
1944 {
1945 if(param->kind == 8 && ((param->_class && param->_class->registered && param->_class->registered->type == 1) || !strcmp(param->_class->string, "String")) && !param->constant)
1946 {
1947 if(!strcmp(param->_class->string, "String"))
1948 {
1949 DeclareClass(FindClass("StaticString"), "__ecereClass_StaticString");
1950 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "            __ecereBuffer.Serialize((StaticString)%s);\n", param->name);
1951 }
1952 else
1953 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "            __ecereBuffer.Serialize(%s);\n", param->name);
1954 }
1955 }
1956 if(method->dataType->returnType->kind != 0)
1957 {
1958 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "            __ecereBuffer.Serialize(__ecereResult);\n");
1959 }
1960 for(param = method->dataType->params.first; param; param = param->next)
1961 {
1962 if(param->kind == 8 && strcmp(param->_class->string, "String") && param->_class->registered && (param->_class->registered->type == 0 || param->_class->registered->type == 5))
1963 {
1964 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "            delete %s;\n", param->name);
1965 }
1966 }
1967 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))
1968 {
1969 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "            delete __ecereResult;\n");
1970 }
1971 }
1972 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "            break;\n");
1973 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "         }\n");
1974 }
1975 }
1976 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      }\n");
1977 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      delete inst;\n");
1978 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   }\n");
1979 for(vid = _class->base->vTblSize; vid < _class->vTblSize; vid++)
1980 {
1981 struct __ecereNameSpace__ecere__com__Method * method;
1982 struct Type * param;
1983
1984 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)))
1985 if(method->type == 1 && method->_class == _class && method->vid == vid)
1986 break;
1987 if(method)
1988 {
1989 if(!mutexDeclared)
1990 {
1991 DeclareClass(FindClass("ecere::sys::Mutex"), "__ecereClass___ecereNameSpace__ecere__sys__Mutex");
1992 DeclareMethod(__ecereNameSpace__ecere__com__eClass_FindMethod(__ecereNameSpace__ecere__com__eSystem_FindClass(privateModule, "ecere::sys::Mutex"), "Wait", privateModule), "__ecereMethod___ecereNameSpace__ecere__sys__Mutex_Wait");
1993 DeclareMethod(__ecereNameSpace__ecere__com__eClass_FindMethod(__ecereNameSpace__ecere__com__eSystem_FindClass(privateModule, "ecere::sys::Mutex"), "Release", privateModule), "__ecereMethod___ecereNameSpace__ecere__sys__Mutex_Release");
1994 mutexDeclared = 0x1;
1995 }
1996 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1997 if(!method->dataType)
1998 method->dataType = ProcessTypeString(method->dataTypeString, 0x0);
1999 if(method->dataType->name)
2000 {
2001 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   virtual %s\n", method->dataTypeString);
2002 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   {\n");
2003 if(method->dataType)
2004 {
2005 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      DCOM%s __ecereObject = (void *)_vTbl[-1];\n", _class->fullName);
2006 if(method->dataType->returnType->kind != 0)
2007 {
2008 struct TypeName * resultType;
2009 struct __ecereNameSpace__ecere__sys__OldList * specs = MkList();
2010 struct Declarator * decl;
2011 char type[1024] = "";
2012 char className[1024];
2013 struct Symbol * classSym;
2014
2015 if(method->dataType->returnType->kind == 8)
2016 classSym = method->dataType->returnType->_class;
2017 else
2018 {
2019 PrintType(method->dataType->returnType, type, 0x0, 0x1);
2020 classSym = FindClass(type);
2021 type[0] = (char)0;
2022 }
2023 strcpy(className, "__ecereClass_");
2024 FullClassNameCat(className, classSym->string, 0x1);
2025 MangleClassName(className);
2026 DeclareClass(classSym, className);
2027 PrintType(method->dataType->returnType, type, 0x1, 0x1);
2028 decl = SpecDeclFromString(type, specs, MkDeclaratorIdentifier(MkIdentifier("__ecereResult")));
2029 resultType = MkTypeName(specs, decl);
2030 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      ");
2031 OutputTypeName(resultType, f);
2032 if(method->dataType->returnType->kind == 9)
2033 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " = { 0 }");
2034 else if(method->dataType->returnType->kind == 8 && method->dataType->returnType->_class->registered && method->dataType->returnType->_class->registered->type == 1)
2035 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " { }");
2036 else
2037 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " = 0");
2038 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, ";\n\n");
2039 }
2040 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      incref __ecereObject;\n");
2041 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      __ecereMethod___ecereNameSpace__ecere__sys__Mutex_Wait(__ecereObject.mutex);\n");
2042 for(param = method->dataType->params.first; param; param = param->next)
2043 {
2044 char type[1024] = "";
2045 char className[1024];
2046 struct Symbol * classSym;
2047
2048 if(param->kind == 8)
2049 classSym = param->_class;
2050 else
2051 {
2052 PrintType(param, type, 0x0, 0x1);
2053 classSym = FindClass(type);
2054 type[0] = (char)0;
2055 }
2056 strcpy(className, "__ecereClass_");
2057 FullClassNameCat(className, classSym->string, 0x1);
2058 MangleClassName(className);
2059 DeclareClass(classSym, className);
2060 if(param->kind == 8 && !strcmp(param->_class->string, "String"))
2061 {
2062 DeclareClass(FindClass("StaticString"), "__ecereClass_StaticString");
2063 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      __ecereObject.argsBuffer.Serialize((StaticString)%s);\n", param->name);
2064 }
2065 else
2066 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      __ecereObject.argsBuffer.Serialize(%s);\n", param->name);
2067 }
2068 DeclareMethod(__ecereNameSpace__ecere__com__eClass_FindMethod(__ecereNameSpace__ecere__com__eSystem_FindClass(privateModule, "ecere::net::DCOMServerObject"), "CallVirtualMethod", privateModule), "__ecereMethod___ecereNameSpace__ecere__net__DCOMServerObject_CallVirtualMethod");
2069 {
2070 unsigned int hasReturnValue = method->dataType->returnType->kind != 0;
2071
2072 if(!hasReturnValue)
2073 {
2074 for(param = method->dataType->params.first; param; param = param->next)
2075 {
2076 if(param->kind == 8 && ((param->_class && param->_class->registered && param->_class->registered->type == 1) || !strcmp(param->_class->string, "String")) && !param->constant)
2077 {
2078 hasReturnValue = 0x1;
2079 break;
2080 }
2081 }
2082 }
2083 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      if(__ecereObject.CallVirtualMethod(%d, %s))\n", vid - _class->base->vTblSize, hasReturnValue ? "true" : "false");
2084 }
2085 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      {\n");
2086 for(param = method->dataType->params.first; param; param = param->next)
2087 {
2088 if(param->kind == 8 && ((param->_class && param->_class->registered && param->_class->registered->type == 1) || !strcmp(param->_class->string, "String")) && !param->constant)
2089 {
2090 if(!strcmp(param->_class->string, "String"))
2091 {
2092 DeclareClass(FindClass("StaticString"), "__ecereClass_StaticString");
2093 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "         __ecereObject.returnBuffer.Unserialize((StaticString)%s);\n", param->name);
2094 }
2095 else
2096 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "         __ecereObject.returnBuffer.Unserialize(%s);\n", param->name);
2097 }
2098 }
2099 if(method->dataType->returnType->kind != 0)
2100 {
2101 if(method->dataType->returnType->kind == 8 && !strcmp(method->dataType->returnType->_class->string, "String"))
2102 {
2103 DeclareClass(FindClass("StaticString"), "__ecereClass_StaticString");
2104 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "         __ecereObject.returnBuffer.Unserialize((StaticString)__ecereResult);\n");
2105 }
2106 else
2107 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "         __ecereObject.returnBuffer.Unserialize(__ecereResult);\n");
2108 }
2109 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      }\n");
2110 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      else\n");
2111 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "         ((%s)this).%s::%s(", _class->fullName, _class->fullName, method->name);
2112 for(param = method->dataType->params.first; param; param = param->next)
2113 {
2114 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "%s", param->name);
2115 if(param->next)
2116 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, ", ");
2117 }
2118 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, ");\n");
2119 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      __ecereObject.returnBuffer.Free();\n");
2120 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      __ecereMethod___ecereNameSpace__ecere__sys__Mutex_Release(__ecereObject.mutex);\n");
2121 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      delete __ecereObject;\n");
2122 if(method->dataType->returnType->kind != 0)
2123 {
2124 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "      return __ecereResult;\n");
2125 }
2126 }
2127 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "   }\n");
2128 }
2129 }
2130 }
2131 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "}\n");
2132 }
2133 }
2134 }
2135 }
2136
2137 static struct __ecereNameSpace__ecere__com__Class * __ecereClass_SymbolgenApp;
2138
2139 extern int __ecereNameSpace__ecere__com__GetRuntimePlatform(void);
2140
2141 extern void SetSymbolsDir(char *  s);
2142
2143 extern int printf(char * , ...);
2144
2145 extern char *  __ecereNameSpace__ecere__GetTranslatedString(struct __ecereNameSpace__ecere__com__Instance * module, char *  string, char *  stringAndContext);
2146
2147 extern struct __ecereNameSpace__ecere__com__Instance * __thisModule;
2148
2149 extern char *  __ecereNameSpace__ecere__sys__GetExtension(char *  string, char *  output);
2150
2151 extern void SetDefines(struct __ecereNameSpace__ecere__sys__OldList *  list);
2152
2153 extern void SetImports(struct __ecereNameSpace__ecere__sys__OldList *  list);
2154
2155 extern void SetGlobalData(struct __ecereNameSpace__ecere__com__NameSpace *  nameSpace);
2156
2157 extern void SetExcludedSymbols(struct __ecereNameSpace__ecere__sys__OldList *  list);
2158
2159 extern void SetGlobalContext(struct Context * context);
2160
2161 extern void SetTopContext(struct Context * context);
2162
2163 extern void SetCurrentContext(struct Context * context);
2164
2165 extern void SetTargetPlatform(int platform);
2166
2167 extern struct __ecereNameSpace__ecere__com__Instance * __ecereNameSpace__ecere__com____ecere_COM_Initialize(unsigned int guiApp, int argc, char *  argv[]);
2168
2169 extern void SetPrivateModule(struct __ecereNameSpace__ecere__com__Instance * module);
2170
2171 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__IteratorPointer;
2172
2173 struct __ecereNameSpace__ecere__com__IteratorPointer;
2174
2175 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__MapIterator;
2176
2177 struct __ecereNameSpace__ecere__com__MapIterator
2178 {
2179 struct __ecereNameSpace__ecere__com__Instance * container;
2180 struct __ecereNameSpace__ecere__com__IteratorPointer * pointer;
2181 };
2182
2183 extern int strcasecmp(const char * , const char * );
2184
2185 extern unsigned int LoadSymbols(char *  fileName, int importType, unsigned int loadDllOnly);
2186
2187 extern void CheckDataRedefinitions(void);
2188
2189 extern char *  __ecereNameSpace__ecere__sys__ChangeExtension(char *  string, char *  ext, char *  output);
2190
2191 extern char *  strstr(char * , const char * );
2192
2193 extern int strlen(const char * );
2194
2195 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_ContextStringPair;
2196
2197 struct ContextStringPair
2198 {
2199 char * string;
2200 char * context;
2201 };
2202
2203 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__Iterator;
2204
2205 struct __ecereNameSpace__ecere__com__Iterator
2206 {
2207 struct __ecereNameSpace__ecere__com__Instance * container;
2208 struct __ecereNameSpace__ecere__com__IteratorPointer * pointer;
2209 };
2210
2211 extern void ComputeModuleClasses(struct __ecereNameSpace__ecere__com__Instance * module);
2212
2213 extern unsigned int __ecereNameSpace__ecere__sys__MakeDir(char *  path);
2214
2215 extern char *  __ecereNameSpace__ecere__sys__PathCat(char *  string, char *  addedPath);
2216
2217 extern void FreeContext(struct Context * context);
2218
2219 extern void FreeExcludedSymbols(struct __ecereNameSpace__ecere__sys__OldList * excludedSymbols);
2220
2221 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Definition;
2222
2223 struct Definition;
2224
2225 extern void FreeModuleDefine(struct Definition * def);
2226
2227 extern void FreeModuleImport(struct ModuleImport * imp);
2228
2229 extern void FreeTypeData(struct __ecereNameSpace__ecere__com__Instance * privateModule);
2230
2231 extern void FreeIncludeFiles(void);
2232
2233 extern void FreeGlobalData(struct __ecereNameSpace__ecere__com__NameSpace * globalDataList);
2234
2235 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__Map_TPL_ContextStringPair__ecere__com__List_TPL_String___;
2236
2237 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__List_TPL_String_;
2238
2239 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__Application;
2240
2241 struct __ecereNameSpace__ecere__com__Application
2242 {
2243 int argc;
2244 char * *  argv;
2245 int exitCode;
2246 unsigned int isGUIApp;
2247 struct __ecereNameSpace__ecere__sys__OldList allModules;
2248 char *  parsedCommand;
2249 struct __ecereNameSpace__ecere__com__NameSpace systemNameSpace;
2250 };
2251
2252 char *  __ecereProp___ecereNameSpace__ecere__com__Platform_Get_char__PTR_(int this);
2253
2254 int __ecereProp___ecereNameSpace__ecere__com__Platform_Set_char__PTR_(char *  value);
2255
2256 extern struct __ecereNameSpace__ecere__com__Property ** __ecereProp___ecereNameSpace__ecere__com__Platform_char__PTR_;
2257
2258 void __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add(struct __ecereNameSpace__ecere__sys__OldList * this, void *  item);
2259
2260 struct __ecereNameSpace__ecere__com__Instance * __ecereProp___ecereNameSpace__ecere__com__MapIterator_Get_map(struct __ecereNameSpace__ecere__com__MapIterator * this);
2261
2262 void __ecereProp___ecereNameSpace__ecere__com__MapIterator_Set_map(struct __ecereNameSpace__ecere__com__MapIterator * this, struct __ecereNameSpace__ecere__com__Instance * value);
2263
2264 extern struct __ecereNameSpace__ecere__com__Property ** __ecereProp___ecereNameSpace__ecere__com__MapIterator_map;
2265
2266 int __ecereVMethodID___ecereNameSpace__ecere__com__Container_Add;
2267
2268 unsigned int __ecereMethod___ecereNameSpace__ecere__com__Iterator_Index(struct __ecereNameSpace__ecere__com__Iterator * this, uint64 index, unsigned int create);
2269
2270 uint64 __ecereProp___ecereNameSpace__ecere__com__Iterator_Get_data(struct __ecereNameSpace__ecere__com__Iterator * this);
2271
2272 void __ecereProp___ecereNameSpace__ecere__com__Iterator_Set_data(struct __ecereNameSpace__ecere__com__Iterator * this, uint64 value);
2273
2274 extern struct __ecereNameSpace__ecere__com__Property ** __ecereProp___ecereNameSpace__ecere__com__Iterator_data;
2275
2276 unsigned int __ecereMethod___ecereNameSpace__ecere__com__Iterator_Next();
2277
2278 int __ecereVMethodID___ecereNameSpace__ecere__com__Container_RemoveAll;
2279
2280 int __ecereVMethodID___ecereNameSpace__ecere__com__Container_Free;
2281
2282 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__CustomAVLTree;
2283
2284 struct __ecereNameSpace__ecere__com__CustomAVLTree
2285 {
2286 struct __ecereNameSpace__ecere__com__AVLNode * root;
2287 int count;
2288 };
2289
2290 uint64 __ecereProp___ecereNameSpace__ecere__com__MapIterator_Get_key(struct __ecereNameSpace__ecere__com__MapIterator * this);
2291
2292 extern struct __ecereNameSpace__ecere__com__Property ** __ecereProp___ecereNameSpace__ecere__com__MapIterator_key;
2293
2294 void __ecereMethod___ecereNameSpace__ecere__sys__OldList_Free(struct __ecereNameSpace__ecere__sys__OldList * this, void (*  freeFn)(void * ));
2295
2296 void __ecereMethod_SymbolgenApp_Main(struct __ecereNameSpace__ecere__com__Instance * this)
2297 {
2298 void * __ecereTemp1;
2299 int c;
2300 unsigned int valid = 0x1;
2301 char * output = (((void *)0));
2302
2303 targetPlatform = __ecereNameSpace__ecere__com__GetRuntimePlatform();
2304 for(c = 1; c < ((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 300)))->argc; c++)
2305 {
2306 char * arg = ((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 300)))->argv[c];
2307
2308 if(arg[0] == '-')
2309 {
2310 if(!strcmp(arg + 1, "o"))
2311 {
2312 if(!output && c + 1 < ((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 300)))->argc)
2313 {
2314 output = ((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 300)))->argv[c + 1];
2315 c++;
2316 }
2317 else
2318 valid = 0x0;
2319 }
2320 else if(!strcmp(arg, "-name"))
2321 {
2322 if(c + 1 < ((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 300)))->argc)
2323 {
2324 strcpy(projectName, ((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 300)))->argv[c + 1]);
2325 c++;
2326 }
2327 else
2328 valid = 0x0;
2329 }
2330 else if(!strcmp(arg, "-t"))
2331 {
2332 if(++c < ((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 300)))->argc)
2333 targetPlatform = __ecereProp___ecereNameSpace__ecere__com__Platform_Set_char__PTR_(((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 300)))->argv[c]);
2334 else
2335 valid = 0x0;
2336 }
2337 else if(!strcmp(arg, "-console"))
2338 isConsole = 0x1;
2339 else if(!strcmp(arg, "-dynamiclib"))
2340 isDynamicLibrary = 0x1;
2341 else if(!strcmp(arg, "-staticlib"))
2342 {
2343 isDynamicLibrary = 0x1;
2344 isStaticLibrary = 0x1;
2345 }
2346 else if(!strcmp(arg, "-symbols"))
2347 {
2348 if(c + 1 < ((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 300)))->argc)
2349 {
2350 SetSymbolsDir(((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 300)))->argv[c + 1]);
2351 c++;
2352 }
2353 else
2354 valid = 0x0;
2355 }
2356 }
2357 }
2358 if(!output)
2359 valid = 0x0;
2360 if(!valid)
2361 printf(__ecereNameSpace__ecere__GetTranslatedString(__thisModule, "Syntax:\n   ecs [-t <target platform>] <input>[, <input>]* -o <output>\n", (((void *)0))));
2362 else
2363 {
2364 int c;
2365 char ext[17];
2366 char symbolModule[274];
2367
2368 __ecereNameSpace__ecere__sys__GetExtension(output, ext);
2369 __ecereNameSpace__ecere__sys__GetLastDirectory(output, symbolModule);
2370 SetDefines(&_defines);
2371 SetImports(&_imports);
2372 SetGlobalData(&globalData);
2373 SetExcludedSymbols(&_excludedSymbols);
2374 SetGlobalContext(theGlobalContext);
2375 SetTopContext(theGlobalContext);
2376 SetCurrentContext(theGlobalContext);
2377 SetTargetPlatform(targetPlatform);
2378 privateModule = __ecereNameSpace__ecere__com____ecere_COM_Initialize(0x1, 1, (((void *)0)));
2379 SetPrivateModule(privateModule);
2380 mainModule = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_ModuleImport);
2381 SetMainModule(mainModule);
2382 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add(&_imports, mainModule);
2383 {
2384 struct __ecereNameSpace__ecere__com__Instance * intlStrings = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass___ecereNameSpace__ecere__com__Map_TPL_ContextStringPair__ecere__com__List_TPL_String___);
2385 struct __ecereNameSpace__ecere__com__MapIterator it = (it.container = (void *)0, it.pointer = (void *)0, __ecereProp___ecereNameSpace__ecere__com__MapIterator_Set_map(&it, intlStrings), it);
2386
2387 for(c = 1; c < ((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 300)))->argc; c++)
2388 {
2389 char * file = ((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 300)))->argv[c];
2390
2391 if(file[0] == '-')
2392 {
2393 if(!strcmp(file, "-c"))
2394 c++;
2395 }
2396 else
2397 {
2398 char ext[17];
2399
2400 __ecereNameSpace__ecere__sys__GetExtension(file, ext);
2401 if(!strcmp(ext, "imp"))
2402 LoadImports(file);
2403 }
2404 }
2405 for(c = 1; c < ((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 300)))->argc; c++)
2406 {
2407 char * file = ((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 300)))->argv[c];
2408
2409 if(file[0] == '-')
2410 {
2411 if(!strcmp(file, "-c"))
2412 c++;
2413 }
2414 }
2415 for(c = 1; c < ((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 300)))->argc; c++)
2416 {
2417 char * file = ((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 300)))->argv[c];
2418
2419 if(file[0] == '-')
2420 {
2421 if(!strcmp(file, "-c"))
2422 c++;
2423 }
2424 else
2425 {
2426 char ext[17];
2427 char moduleName[797];
2428
2429 __ecereNameSpace__ecere__sys__GetExtension(file, ext);
2430 __ecereNameSpace__ecere__sys__GetLastDirectory(file, moduleName);
2431 __ecereNameSpace__ecere__sys__StripExtension(moduleName);
2432 strcat(moduleName, ".ec");
2433 if(((__ecereNameSpace__ecere__com__GetRuntimePlatform() == 1) ? (strcasecmp) : strcmp)(moduleName, symbolModule) && (!strcmp(ext, "sym") || !strcmp(ext, "ec")))
2434 {
2435 struct ImportedModule * importedModule;
2436 struct ModuleInfo * module = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_ModuleInfo);
2437 char fileName[274];
2438
2439 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add(&modules, module);
2440 __ecereNameSpace__ecere__sys__GetLastDirectory(file, fileName);
2441 module->name = __ecereNameSpace__ecere__sys__CopyString(fileName);
2442 __ecereNameSpace__ecere__sys__StripExtension(module->name);
2443 for(importedModule = _defines.first; importedModule; importedModule = importedModule->next)
2444 {
2445 if(importedModule->type == 0 && !(strcasecmp)(importedModule->name, module->name) && !(importedModule->importType == 2))
2446 break;
2447 }
2448 if(importedModule)
2449 module->globalInstance = importedModule->globalInstance;
2450 else
2451 {
2452 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));
2453 __ecereMethod___ecereNameSpace__ecere__sys__OldList_AddName(&_defines, importedModule);
2454 module->globalInstance = LoadSymbols(file, 0, 0x0);
2455 CheckDataRedefinitions();
2456 }
2457 {
2458 struct __ecereNameSpace__ecere__com__Instance * f;
2459
2460 __ecereNameSpace__ecere__sys__ChangeExtension(file, "bowl", fileName);
2461 f = __ecereNameSpace__ecere__sys__FileOpen(fileName, 1);
2462 if(f)
2463 {
2464 static char line[65536];
2465 struct __ecereNameSpace__ecere__com__Instance * comments = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass___ecereNameSpace__ecere__com__List_TPL_String_);
2466 char * msgid = (((void *)0)), * msgstr = (((void *)0)), * msgctxt = (((void *)0));
2467
2468 while(!((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Eof])(f))
2469 {
2470 if(__ecereMethod___ecereNameSpace__ecere__sys__File_GetLine(f, line, sizeof line))
2471 {
2472 int len;
2473
2474 __ecereNameSpace__ecere__sys__TrimLSpaces(line, line);
2475 if(line[0] == '#')
2476 {
2477 ((struct __ecereNameSpace__ecere__com__IteratorPointer * (*)(struct __ecereNameSpace__ecere__com__Instance *, uint64 value))comments->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__com__Container_Add])(comments, (uint64)(__ecereNameSpace__ecere__sys__CopyString(line)));
2478 }
2479 else if(strstr(line, "msgid \"") == line)
2480 {
2481 (__ecereNameSpace__ecere__com__eSystem_Delete(msgid), msgid = 0);
2482 msgid = __ecereNameSpace__ecere__sys__CopyString(line + 7);
2483 len = strlen(msgid);
2484 if(len)
2485 msgid[len - 1] = (unsigned char)0;
2486 }
2487 else if(strstr(line, "msgctxt \"") == line)
2488 {
2489 (__ecereNameSpace__ecere__com__eSystem_Delete(msgctxt), msgctxt = 0);
2490 msgctxt = __ecereNameSpace__ecere__sys__CopyString(line + 9);
2491 len = strlen(msgctxt);
2492 if(len)
2493 msgctxt[len - 1] = (unsigned char)0;
2494 }
2495 else if(strstr(line, "msgstr \"") == line)
2496 {
2497 (__ecereNameSpace__ecere__com__eSystem_Delete(msgstr), msgstr = 0);
2498 msgstr = __ecereNameSpace__ecere__sys__CopyString(line + 8);
2499 len = strlen(msgstr);
2500 if(len)
2501 msgstr[len - 1] = (unsigned char)0;
2502 }
2503 if(msgid && msgstr)
2504 {
2505 struct ContextStringPair pair =
2506 {
2507 msgid, msgctxt
2508 };
2509
2510 i18n = 0x1;
2511 if(!__ecereMethod___ecereNameSpace__ecere__com__Iterator_Index(&it, (&pair), 0x0))
2512 {
2513 msgid = (((void *)0));
2514 msgctxt = (((void *)0));
2515 __extension__ ({
2516 struct __ecereNameSpace__ecere__com__Iterator __internalIterator =
2517 {
2518 intlStrings, 0
2519 };
2520
2521 __ecereMethod___ecereNameSpace__ecere__com__Iterator_Index(&__internalIterator, (((&pair))), 0x1);
2522 __ecereProp___ecereNameSpace__ecere__com__Iterator_Set_data(&__internalIterator, comments);
2523 });
2524 comments = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass___ecereNameSpace__ecere__com__List_TPL_String_);
2525 }
2526 else
2527 {
2528 {
2529 struct __ecereNameSpace__ecere__com__Iterator s =
2530 {
2531 (comments), 0
2532 };
2533
2534 while(__ecereMethod___ecereNameSpace__ecere__com__Iterator_Next(&s))
2535 ((struct __ecereNameSpace__ecere__com__IteratorPointer * (*)(struct __ecereNameSpace__ecere__com__Instance *, uint64 value))((struct __ecereNameSpace__ecere__com__Instance *)__ecereProp___ecereNameSpace__ecere__com__Iterator_Get_data(&it))->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__com__Container_Add])(((struct __ecereNameSpace__ecere__com__Instance *)__ecereProp___ecereNameSpace__ecere__com__Iterator_Get_data(&it)), __ecereProp___ecereNameSpace__ecere__com__Iterator_Get_data(&s));
2536 }
2537 ((void (*)(struct __ecereNameSpace__ecere__com__Instance *))comments->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__com__Container_RemoveAll])(comments);
2538 }
2539 (__ecereNameSpace__ecere__com__eSystem_Delete(msgid), msgid = 0);
2540 (__ecereNameSpace__ecere__com__eSystem_Delete(msgctxt), msgctxt = 0);
2541 (__ecereNameSpace__ecere__com__eSystem_Delete(msgstr), msgstr = 0);
2542 }
2543 }
2544 }
2545 ((void (*)(struct __ecereNameSpace__ecere__com__Instance *))comments->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__com__Container_Free])(comments);
2546 (__ecereNameSpace__ecere__com__eInstance_DecRef(comments), comments = 0);
2547 (__ecereNameSpace__ecere__com__eInstance_DecRef(f), f = 0);
2548 }
2549 }
2550 }
2551 }
2552 }
2553 ComputeModuleClasses(privateModule);
2554 if(!isDynamicLibrary)
2555 {
2556 thisAppClass = SearchAppClass_Module(privateModule);
2557 }
2558 WriteMain(output);
2559 if(((struct __ecereNameSpace__ecere__com__CustomAVLTree *)(((char *)intlStrings + 12)))->count)
2560 {
2561 struct __ecereNameSpace__ecere__com__Instance * potFile;
2562 char potFileName[797];
2563
2564 strcpy(potFileName, "locale");
2565 __ecereNameSpace__ecere__sys__MakeDir(potFileName);
2566 __ecereNameSpace__ecere__sys__PathCat(potFileName, projectName);
2567 __ecereNameSpace__ecere__sys__ChangeExtension(potFileName, "pot", potFileName);
2568 potFile = __ecereNameSpace__ecere__sys__FileOpen(potFileName, 2);
2569 if(potFile)
2570 {
2571 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))potFile->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(potFile, "msgid \"\"\n");
2572 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))potFile->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(potFile, "msgstr \n");
2573 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))potFile->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(potFile, "\"Project-Id-Version: \\n\"\n");
2574 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))potFile->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(potFile, "\"POT-Creation-Date: \\n\"\n");
2575 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))potFile->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(potFile, "\"PO-Revision-Date: \\n\"\n");
2576 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))potFile->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(potFile, "\"Last-Translator: \\n\"\n");
2577 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))potFile->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(potFile, "\"Language-Team: \\n\"\n");
2578 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))potFile->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(potFile, "\"MIME-Version: 1.0\\n\"\n");
2579 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))potFile->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(potFile, "\"Content-Type: text/plain; charset=iso-8859-1\\n\"\n");
2580 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))potFile->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(potFile, "\"Content-Transfer-Encoding: 8bit\\n\"\n");
2581 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))potFile->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(potFile, "\"X-Poedit-Basepath: ..\\\\\\n\"\n");
2582 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))potFile->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(potFile, "\n");
2583 {
2584 struct __ecereNameSpace__ecere__com__MapIterator i = (i.container = (void *)0, i.pointer = (void *)0, __ecereProp___ecereNameSpace__ecere__com__MapIterator_Set_map(&i, (intlStrings)), i);
2585
2586 while(__ecereMethod___ecereNameSpace__ecere__com__Iterator_Next(&i))
2587 {
2588 struct ContextStringPair pair = (*(struct ContextStringPair *)__ecereProp___ecereNameSpace__ecere__com__MapIterator_Get_key(&i));
2589 struct __ecereNameSpace__ecere__com__Instance * comments = ((struct __ecereNameSpace__ecere__com__Instance *)__ecereProp___ecereNameSpace__ecere__com__Iterator_Get_data(&i));
2590
2591 {
2592 struct __ecereNameSpace__ecere__com__Iterator s =
2593 {
2594 (comments), 0
2595 };
2596
2597 while(__ecereMethod___ecereNameSpace__ecere__com__Iterator_Next(&s))
2598 {
2599 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(potFile, __ecereProp___ecereNameSpace__ecere__com__Iterator_Get_data(&s));
2600 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))potFile->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(potFile, "\n");
2601 }
2602 }
2603 if(pair.context)
2604 {
2605 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))potFile->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(potFile, "msgctxt \"");
2606 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))potFile->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(potFile, pair.context);
2607 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))potFile->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(potFile, "\"\n");
2608 }
2609 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))potFile->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(potFile, "msgid \"");
2610 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))potFile->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(potFile, pair.string);
2611 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))potFile->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(potFile, "\"\n");
2612 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))potFile->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(potFile, "msgstr \"");
2613 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))potFile->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(potFile, pair.string);
2614 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))potFile->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(potFile, "\"\n");
2615 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char *  string))potFile->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(potFile, "\n");
2616 }
2617 }
2618 ((void (*)(struct __ecereNameSpace__ecere__com__Instance *))intlStrings->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__com__Container_Free])(intlStrings);
2619 (__ecereNameSpace__ecere__com__eInstance_DecRef(intlStrings), intlStrings = 0);
2620 (__ecereNameSpace__ecere__com__eInstance_DecRef(potFile), potFile = 0);
2621 }
2622 }
2623 }
2624 FreeContext(theGlobalContext);
2625 FreeExcludedSymbols(&_excludedSymbols);
2626 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Free(&_defines, FreeModuleDefine);
2627 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Free(&_imports, FreeModuleImport);
2628 FreeTypeData(privateModule);
2629 FreeIncludeFiles();
2630 FreeGlobalData(&globalData);
2631 (__ecereNameSpace__ecere__com__eInstance_DecRef(privateModule), privateModule = 0);
2632 }
2633 SetSymbolsDir((((void *)0)));
2634 }
2635
2636 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);
2637
2638 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);
2639
2640 void __ecereRegisterModule_ecs(struct __ecereNameSpace__ecere__com__Instance * module)
2641 {
2642 struct __ecereNameSpace__ecere__com__Class * class;
2643
2644 class = __ecereNameSpace__ecere__com__eSystem_RegisterClass(5, "ModuleInfo", 0, sizeof(struct ModuleInfo), 0, 0, 0, module, 2, 1);
2645 if(((struct __ecereNameSpace__ecere__com__Module *)(((char *)module + 12)))->application == ((struct __ecereNameSpace__ecere__com__Module *)(((char *)__thisModule + 12)))->application && class)
2646 __ecereClass_ModuleInfo = class;
2647 class = __ecereNameSpace__ecere__com__eSystem_RegisterClass(0, "SymbolgenApp", "ecere::com::Application", 0, 0, 0, 0, module, 2, 1);
2648 if(((struct __ecereNameSpace__ecere__com__Module *)(((char *)module + 12)))->application == ((struct __ecereNameSpace__ecere__com__Module *)(((char *)__thisModule + 12)))->application && class)
2649 __ecereClass_SymbolgenApp = class;
2650 __ecereNameSpace__ecere__com__eClass_AddMethod(class, "Main", 0, __ecereMethod_SymbolgenApp_Main, 1);
2651 }
2652
2653 void __ecereUnregisterModule_ecs(struct __ecereNameSpace__ecere__com__Instance * module)
2654 {
2655
2656 }
2657
2658 int __ecereMethod___ecereNameSpace__ecere__sys__BinaryTree_CompareString(struct __ecereNameSpace__ecere__sys__BinaryTree * this, char *  a, char *  b);
2659
2660 void __ecereCreateModuleInstances_ecs()
2661 {
2662 (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);
2663 theGlobalContext = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_Context);
2664 }
2665
2666 void __ecereDestroyModuleInstances_ecs()
2667 {
2668 ((theGlobalContext ? (__ecereClass_Context->Destructor ? __ecereClass_Context->Destructor(theGlobalContext) : 0, __ecereNameSpace__ecere__com__eSystem_Delete(theGlobalContext)) : 0), theGlobalContext = 0);
2669 }
2670