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