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

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