2 typedef long long int64;
3 typedef unsigned long long uint64;
4 #elif defined(__TINYC__)
6 #define __builtin_va_list va_list
7 #define __builtin_va_start va_start
8 #define __builtin_va_end va_end
10 #define strcasecmp stricmp
11 #define strncasecmp strnicmp
12 #define __declspec(x) __attribute__((x))
14 typedef long long int64;
15 typedef unsigned long long uint64;
17 typedef __int64 int64;
18 typedef unsigned __int64 uint64;
21 #define __ENDIAN_PAD(x) (8 - (x))
23 #define __ENDIAN_PAD(x) 0
25 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__sys__BTNode;
27 struct __ecereNameSpace__ecere__sys__BTNode;
29 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__sys__BinaryTree;
31 struct __ecereNameSpace__ecere__sys__BinaryTree
33 struct __ecereNameSpace__ecere__sys__BTNode * root;
35 int (* CompareKey)(struct __ecereNameSpace__ecere__sys__BinaryTree * tree, unsigned int a, unsigned int b);
36 void (* FreeKey)(void * key);
39 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__sys__OldList;
41 struct __ecereNameSpace__ecere__sys__OldList
50 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__Method;
52 struct __ecereNameSpace__ecere__com__Method
55 struct __ecereNameSpace__ecere__com__Method * parent;
56 struct __ecereNameSpace__ecere__com__Method * left;
57 struct __ecereNameSpace__ecere__com__Method * right;
62 struct __ecereNameSpace__ecere__com__Class * _class;
64 char * dataTypeString;
65 struct Type * dataType;
69 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__Property;
71 struct __ecereNameSpace__ecere__com__Property
73 struct __ecereNameSpace__ecere__com__Property * prev;
74 struct __ecereNameSpace__ecere__com__Property * next;
76 unsigned int isProperty;
79 struct __ecereNameSpace__ecere__com__Class * _class;
80 char * dataTypeString;
81 struct __ecereNameSpace__ecere__com__Class * dataTypeClass;
82 struct Type * dataType;
85 unsigned int (* IsSet)();
89 unsigned int conversion;
90 unsigned int watcherOffset;
92 unsigned int compiled;
93 unsigned int selfWatchable;
94 unsigned int isWatchable;
97 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_CodePosition;
104 unsigned int included;
107 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Location;
111 struct CodePosition start;
112 struct CodePosition end;
115 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_ClassDefinition;
117 struct ClassDefinition;
119 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Context;
123 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Instantiation;
125 struct Instantiation;
127 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Declaration;
131 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Statement;
135 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_TypeName;
139 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Initializer;
143 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__DataValue;
145 struct __ecereNameSpace__ecere__com__DataValue
163 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Expression;
167 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_TemplateDatatype;
169 struct TemplateDatatype;
171 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_TemplateArgument;
173 struct TemplateArgument;
175 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_TemplateParameter;
177 struct TemplateParameter;
179 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Specifier;
183 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Identifier;
187 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Declarator;
191 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_FunctionDefinition;
193 struct FunctionDefinition;
195 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_DBTableDef;
199 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_External;
203 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_ModuleImport;
207 struct ModuleImport * prev;
208 struct ModuleImport * next;
210 struct __ecereNameSpace__ecere__sys__OldList classes;
211 struct __ecereNameSpace__ecere__sys__OldList functions;
216 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_ClassImport;
220 struct ClassImport * prev;
221 struct ClassImport * next;
223 struct __ecereNameSpace__ecere__sys__OldList methods;
224 struct __ecereNameSpace__ecere__sys__OldList properties;
226 unsigned int isRemote;
229 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Symbol;
234 struct Symbol * parent;
235 struct Symbol * left;
236 struct Symbol * right;
241 struct __ecereNameSpace__ecere__com__Method * method;
242 struct __ecereNameSpace__ecere__com__Property * _property;
243 struct __ecereNameSpace__ecere__com__Class * registered;
251 struct External * pointerExternal;
252 struct External * structExternal;
256 struct External * externalGet;
257 struct External * externalSet;
258 struct External * externalPtr;
259 struct External * externalIsSet;
263 struct External * methodExternal;
264 struct External * methodCodeExternal;
267 unsigned int imported;
268 unsigned int declaredStructSym;
269 struct __ecereNameSpace__ecere__com__Class * _class;
270 unsigned int declaredStruct;
271 unsigned int needConstructor;
272 unsigned int needDestructor;
273 char * constructorName;
276 char * destructorName;
277 struct ModuleImport * module;
278 struct ClassImport * _import;
279 struct Location nameLoc;
280 unsigned int isParam;
281 unsigned int isRemote;
282 unsigned int isStruct;
283 unsigned int fireWatchersDone;
285 unsigned int classData;
286 unsigned int isStatic;
288 struct __ecereNameSpace__ecere__sys__OldList * templateParams;
289 struct __ecereNameSpace__ecere__sys__OldList templatedClasses;
290 struct Context * ctx;
294 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Type;
303 struct Symbol * _class;
306 struct __ecereNameSpace__ecere__sys__OldList members;
311 struct Type * returnType;
312 struct __ecereNameSpace__ecere__sys__OldList params;
313 struct Symbol * thisClass;
314 unsigned int staticMethod;
315 struct TemplateParameter * thisClassTemplate;
319 struct __ecereNameSpace__ecere__com__Method * method;
320 struct __ecereNameSpace__ecere__com__Class * methodClass;
321 struct __ecereNameSpace__ecere__com__Class * usedClass;
325 struct Type * arrayType;
327 struct Expression * arraySizeExp;
328 unsigned int freeExp;
329 struct Symbol * enumClass;
332 struct TemplateParameter * templateParameter;
334 unsigned int isSigned;
336 unsigned int constant;
343 unsigned int byReference;
344 unsigned int extraParam;
346 unsigned int directClassAccess;
347 unsigned int computing;
348 unsigned int dllExport;
350 unsigned int keepCast;
351 unsigned int passAsTemplate;
355 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__Class;
357 struct __ecereNameSpace__ecere__com__Class
359 struct __ecereNameSpace__ecere__com__Class * prev;
360 struct __ecereNameSpace__ecere__com__Class * next;
366 int (* Constructor)(struct __ecereNameSpace__ecere__com__Instance *);
367 void (* Destructor)(struct __ecereNameSpace__ecere__com__Instance *);
370 struct __ecereNameSpace__ecere__com__Class * base;
371 struct __ecereNameSpace__ecere__sys__BinaryTree methods;
372 struct __ecereNameSpace__ecere__sys__BinaryTree members;
373 struct __ecereNameSpace__ecere__sys__BinaryTree prop;
374 struct __ecereNameSpace__ecere__sys__OldList membersAndProperties;
375 struct __ecereNameSpace__ecere__sys__BinaryTree classProperties;
376 struct __ecereNameSpace__ecere__sys__OldList derivatives;
380 struct __ecereNameSpace__ecere__com__Instance * module;
381 struct __ecereNameSpace__ecere__com__NameSpace * nameSpace;
382 char * dataTypeString;
383 struct Type * dataType;
385 int defaultAlignment;
386 void (* Initialize)();
388 struct __ecereNameSpace__ecere__sys__OldList selfWatchers;
389 char * designerClass;
390 unsigned int noExpansion;
391 char * defaultProperty;
392 unsigned int comRedefinition;
394 unsigned int isRemote;
395 unsigned int internalDecl;
397 unsigned int computeSize;
399 int destructionWatchOffset;
401 struct __ecereNameSpace__ecere__sys__OldList delayedCPValues;
402 int inheritanceAccess;
405 struct __ecereNameSpace__ecere__sys__OldList conversions;
406 struct __ecereNameSpace__ecere__sys__OldList templateParams;
407 struct __ecereNameSpace__ecere__com__ClassTemplateArgument * templateArgs;
408 struct __ecereNameSpace__ecere__com__Class * templateClass;
409 struct __ecereNameSpace__ecere__sys__OldList templatized;
413 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__Instance;
415 struct __ecereNameSpace__ecere__com__Instance
418 struct __ecereNameSpace__ecere__com__Class * _class;
422 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__DataMember;
424 struct __ecereNameSpace__ecere__com__DataMember
426 struct __ecereNameSpace__ecere__com__DataMember * prev;
427 struct __ecereNameSpace__ecere__com__DataMember * next;
429 unsigned int isProperty;
432 struct __ecereNameSpace__ecere__com__Class * _class;
433 char * dataTypeString;
434 struct __ecereNameSpace__ecere__com__Class * dataTypeClass;
435 struct Type * dataType;
439 struct __ecereNameSpace__ecere__sys__OldList members;
440 struct __ecereNameSpace__ecere__sys__BinaryTree membersAlpha;
445 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__SerialBuffer;
447 struct __ecereNameSpace__ecere__com__SerialBuffer
449 unsigned char * _buffer;
455 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__ClassTemplateArgument;
457 struct __ecereNameSpace__ecere__com__ClassTemplateArgument
463 char * dataTypeString;
464 struct __ecereNameSpace__ecere__com__Class * dataTypeClass;
466 struct __ecereNameSpace__ecere__com__DataValue expression;
472 struct __ecereNameSpace__ecere__com__DataMember * member;
473 struct __ecereNameSpace__ecere__com__Property * prop;
474 struct __ecereNameSpace__ecere__com__Method * method;
481 static unsigned int i18n;
483 static int targetPlatform;
485 static unsigned int isConsole;
487 static unsigned int isDynamicLibrary;
489 static unsigned int isStaticLibrary;
491 static struct __ecereNameSpace__ecere__sys__OldList modules;
493 static struct __ecereNameSpace__ecere__com__Instance * dcomSymbols;
495 struct __ecereNameSpace__ecere__sys__OldList _defines =
500 struct __ecereNameSpace__ecere__sys__OldList _imports =
505 struct __ecereNameSpace__ecere__sys__OldList _excludedSymbols =
507 0, 0, 0, (unsigned int)&((struct Symbol *)(void *)0)->left, 0
510 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__NameSpace;
512 struct __ecereNameSpace__ecere__com__NameSpace
515 struct __ecereNameSpace__ecere__com__NameSpace * btParent;
516 struct __ecereNameSpace__ecere__com__NameSpace * left;
517 struct __ecereNameSpace__ecere__com__NameSpace * right;
519 struct __ecereNameSpace__ecere__com__NameSpace * parent;
520 struct __ecereNameSpace__ecere__sys__BinaryTree nameSpaces;
521 struct __ecereNameSpace__ecere__sys__BinaryTree classes;
522 struct __ecereNameSpace__ecere__sys__BinaryTree defines;
523 struct __ecereNameSpace__ecere__sys__BinaryTree functions;
526 static struct __ecereNameSpace__ecere__com__NameSpace globalData;
528 static struct Context * theGlobalContext;
530 static struct ModuleImport * mainModule;
532 static struct __ecereNameSpace__ecere__com__Instance * privateModule;
534 static char mainModuleName[797];
536 static char projectName[797];
538 extern struct __ecereNameSpace__ecere__com__Instance * __ecereNameSpace__ecere__sys__FileOpen(char * fileName, int mode);
540 extern char * __ecereNameSpace__ecere__sys__TrimLSpaces(char * string, char * output);
542 extern int strcmp(const char * , const char * );
544 extern struct ModuleImport * GetMainModule(void);
546 extern void SetMainModule(struct ModuleImport * moduleImport);
548 extern char * __ecereNameSpace__ecere__sys__CopyString(char * string);
550 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_MethodImport;
554 struct MethodImport * prev;
555 struct MethodImport * next;
557 unsigned int isVirtual;
560 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_PropertyImport;
562 struct PropertyImport
564 struct PropertyImport * prev;
565 struct PropertyImport * next;
567 unsigned int isVirtual;
572 extern void * __ecereNameSpace__ecere__com__eInstance_New(struct __ecereNameSpace__ecere__com__Class * _class);
574 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_FunctionImport;
576 struct FunctionImport
578 struct FunctionImport * prev;
579 struct FunctionImport * next;
583 unsigned int __ecereMethod___ecereNameSpace__ecere__sys__File_GetLine(struct __ecereNameSpace__ecere__com__Instance * this, char * s, int max);
585 unsigned int __ecereMethod___ecereNameSpace__ecere__sys__OldList_AddName(struct __ecereNameSpace__ecere__sys__OldList * this, void * item);
587 void * __ecereMethod___ecereNameSpace__ecere__sys__OldList_FindName(struct __ecereNameSpace__ecere__sys__OldList * this, char * name, unsigned int warn);
589 extern void __ecereNameSpace__ecere__com__eInstance_DecRef(struct __ecereNameSpace__ecere__com__Instance * instance);
591 static void LoadImports(char * fileName)
594 struct __ecereNameSpace__ecere__com__Instance * f = __ecereNameSpace__ecere__sys__FileOpen(fileName, 1);
602 if(!__ecereMethod___ecereNameSpace__ecere__sys__File_GetLine(f, line, sizeof line))
604 __ecereNameSpace__ecere__sys__TrimLSpaces(line, line);
607 if(!strcmp(line, "[Imported Modules]"))
609 struct ModuleImport * module = (((void *)0));
613 if(!__ecereMethod___ecereNameSpace__ecere__sys__File_GetLine(f, line, sizeof line))
615 __ecereNameSpace__ecere__sys__TrimLSpaces(line, line);
616 if(!strcmp(line, "."))
620 struct ClassImport * _class = (((void *)0));
621 struct FunctionImport * function = (((void *)0));
623 if(!strcmp(line, "[This]"))
625 if((mainModule = GetMainModule()))
629 mainModule = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_ModuleImport);
630 SetMainModule(mainModule);
632 __ecereMethod___ecereNameSpace__ecere__sys__OldList_AddName(&_imports, module);
635 else if(!strcmp(line, "[Static]"))
637 module->importType = 1;
639 else if(!strcmp(line, "[Remote]"))
641 module->importType = 2;
643 else if(!strcmp(line, "[Private]"))
645 if(module->importAccess != 1)
646 module->importAccess = 2;
648 else if(!strcmp(line, "[Public]"))
650 module->importAccess = 1;
652 else if(!strcmp(line, "[Imported Classes]"))
656 if(!__ecereMethod___ecereNameSpace__ecere__sys__File_GetLine(f, line, sizeof line))
658 __ecereNameSpace__ecere__sys__TrimLSpaces(line, line);
659 if(!strcmp(line, "."))
663 if(!strcmp(line, "[Instantiated]"))
665 _class->itself = 0x1;
667 else if(!strcmp(line, "[Remote]"))
669 _class->isRemote = (unsigned int)1;
671 else if(!strcmp(line, "[Imported Methods]"))
673 struct MethodImport * method = (((void *)0));
677 if(!__ecereMethod___ecereNameSpace__ecere__sys__File_GetLine(f, line, sizeof line))
679 __ecereNameSpace__ecere__sys__TrimLSpaces(line, line);
680 if(!strcmp(line, "."))
684 if(!(method = __ecereMethod___ecereNameSpace__ecere__sys__OldList_FindName(&_class->methods, line, 0x0)))
686 method = (__ecereTemp1 = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_MethodImport), ((struct MethodImport *)__ecereTemp1)->name = __ecereNameSpace__ecere__sys__CopyString(line), ((struct MethodImport *)__ecereTemp1));
687 __ecereMethod___ecereNameSpace__ecere__sys__OldList_AddName(&_class->methods, method);
690 else if(!strcmp(line, "[Virtual]"))
691 method->isVirtual = 0x1;
694 else if(!strcmp(line, "[Imported Properties]"))
696 struct PropertyImport * prop = (((void *)0));
700 if(!__ecereMethod___ecereNameSpace__ecere__sys__File_GetLine(f, line, sizeof line))
702 __ecereNameSpace__ecere__sys__TrimLSpaces(line, line);
703 if(!strcmp(line, "."))
707 if(!(prop = __ecereMethod___ecereNameSpace__ecere__sys__OldList_FindName(&_class->properties, line, 0x0)))
709 prop = (__ecereTemp1 = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_PropertyImport), ((struct PropertyImport *)__ecereTemp1)->name = __ecereNameSpace__ecere__sys__CopyString(line), ((struct PropertyImport *)__ecereTemp1));
710 __ecereMethod___ecereNameSpace__ecere__sys__OldList_AddName(&_class->properties, prop);
713 else if(!strcmp(line, "[Set]"))
715 else if(!strcmp(line, "[Get]"))
717 else if(!strcmp(line, "[Virtual]"))
718 prop->isVirtual = 0x1;
724 if(!(_class = __ecereMethod___ecereNameSpace__ecere__sys__OldList_FindName(&module->classes, line, 0x0)))
726 _class = (__ecereTemp1 = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_ClassImport), ((struct ClassImport *)__ecereTemp1)->name = __ecereNameSpace__ecere__sys__CopyString(line), ((struct ClassImport *)__ecereTemp1));
727 __ecereMethod___ecereNameSpace__ecere__sys__OldList_AddName(&module->classes, _class);
732 else if(!strcmp(line, "[Imported Functions]"))
736 if(!__ecereMethod___ecereNameSpace__ecere__sys__File_GetLine(f, line, sizeof line))
738 __ecereNameSpace__ecere__sys__TrimLSpaces(line, line);
739 if(!strcmp(line, "."))
746 if(!(function = __ecereMethod___ecereNameSpace__ecere__sys__OldList_FindName(&module->functions, line, 0x0)))
748 function = (__ecereTemp1 = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_FunctionImport), ((struct FunctionImport *)__ecereTemp1)->name = __ecereNameSpace__ecere__sys__CopyString(line), ((struct FunctionImport *)__ecereTemp1));
749 __ecereMethod___ecereNameSpace__ecere__sys__OldList_AddName(&module->functions, function);
757 if(!(module = __ecereMethod___ecereNameSpace__ecere__sys__OldList_FindName(&_imports, line, 0x0)))
759 if(!strcmp(line, "ecereCOM"))
761 module = __ecereMethod___ecereNameSpace__ecere__sys__OldList_FindName(&_imports, "ecere", 0x0);
763 else if(!strcmp(line, "ecere"))
765 module = __ecereMethod___ecereNameSpace__ecere__sys__OldList_FindName(&_imports, "ecereCOM", 0x0);
768 (__ecereNameSpace__ecere__com__eSystem_Delete(module->name), module->name = 0);
769 module->name = __ecereNameSpace__ecere__sys__CopyString("ecere");
774 module = (__ecereTemp1 = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_ModuleImport), ((struct ModuleImport *)__ecereTemp1)->name = __ecereNameSpace__ecere__sys__CopyString(line), ((struct ModuleImport *)__ecereTemp1));
775 __ecereMethod___ecereNameSpace__ecere__sys__OldList_AddName(&_imports, module);
783 (__ecereNameSpace__ecere__com__eInstance_DecRef(f), f = 0);
787 static struct __ecereNameSpace__ecere__com__Class * thisAppClass;
791 struct ModuleInfo * prev, * next;
793 unsigned int globalInstance;
796 static struct __ecereNameSpace__ecere__com__Class * __ecereClass_ModuleInfo;
798 extern char * __ecereNameSpace__ecere__sys__GetLastDirectory(char * string, char * output);
800 extern unsigned int __ecereNameSpace__ecere__sys__StripExtension(char * string);
802 extern char * strcpy(char * , const char * );
804 extern void __ecereNameSpace__ecere__sys__ChangeCh(char * string, char ch1, char ch2);
806 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_ImportedModule;
808 struct ImportedModule
810 struct ImportedModule * prev;
811 struct ImportedModule * next;
815 unsigned int globalInstance;
816 unsigned int dllOnly;
820 static void BindDCOMServer();
822 static void BindDCOMClient();
824 extern struct __ecereNameSpace__ecere__com__Class * __ecereNameSpace__ecere__com__eSystem_FindClass(struct __ecereNameSpace__ecere__com__Instance * module, char * name);
826 extern void FullClassNameCat(char * output, char * className, unsigned int includeTemplateParams);
828 extern void MangleClassName(char * className);
830 extern struct __ecereNameSpace__ecere__com__Method * __ecereNameSpace__ecere__com__eClass_FindMethod(struct __ecereNameSpace__ecere__com__Class * _class, char * name, struct __ecereNameSpace__ecere__com__Instance * module);
832 extern struct Context * SetupTemplatesContext(struct __ecereNameSpace__ecere__com__Class * _class);
834 extern struct Type * ProcessTypeString(char * string, unsigned int staticMethod);
836 extern void FinishTemplatesContext(struct Context * context);
838 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__GlobalFunction;
840 struct __ecereNameSpace__ecere__com__GlobalFunction
842 struct __ecereNameSpace__ecere__com__GlobalFunction * prev;
843 struct __ecereNameSpace__ecere__com__GlobalFunction * next;
846 struct __ecereNameSpace__ecere__com__Instance * module;
847 struct __ecereNameSpace__ecere__com__NameSpace * nameSpace;
848 char * dataTypeString;
849 struct Type * dataType;
853 extern struct __ecereNameSpace__ecere__com__GlobalFunction * __ecereNameSpace__ecere__com__eSystem_FindFunction(struct __ecereNameSpace__ecere__com__Instance * module, char * name);
855 extern int sprintf(char * , char * , ...);
857 extern void __ecereNameSpace__ecere__com__eInstance_Delete(struct __ecereNameSpace__ecere__com__Instance * instance);
859 int __ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts;
861 int __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(struct __ecereNameSpace__ecere__com__Instance * this, char * format, ...);
863 int __ecereVMethodID___ecereNameSpace__ecere__sys__File_Seek;
865 int __ecereVMethodID___ecereNameSpace__ecere__sys__File_Eof;
867 int __ecereVMethodID___ecereNameSpace__ecere__sys__File_Read;
869 int __ecereVMethodID___ecereNameSpace__ecere__sys__File_Write;
871 static void WriteMain(char * fileName)
873 struct __ecereNameSpace__ecere__com__Instance * f = __ecereNameSpace__ecere__sys__FileOpen(fileName, 2);
877 struct ModuleImport * module;
878 struct ModuleInfo * defModule;
879 unsigned int nonInst = 0x0, anyMethod = 0x0, anyProp = 0x0, anyFunction = 0x0;
880 struct ImportedModule * importedModule;
882 __ecereNameSpace__ecere__sys__GetLastDirectory(fileName, mainModuleName);
883 __ecereNameSpace__ecere__sys__StripExtension(mainModuleName);
886 strcpy(projectName, mainModuleName);
887 __ecereNameSpace__ecere__sys__StripExtension(projectName);
889 __ecereNameSpace__ecere__sys__ChangeCh(mainModuleName, '.', '_');
890 __ecereNameSpace__ecere__sys__ChangeCh(mainModuleName, '-', '_');
891 __ecereNameSpace__ecere__sys__ChangeCh(mainModuleName, ' ', '_');
893 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "#include <libintl.h>\n\n");
894 if(targetPlatform == 1 && !isConsole && !isStaticLibrary && !isDynamicLibrary)
896 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "typedef void * HINSTANCE;\n");
897 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "#define WINAPI __stdcall\n");
899 for(importedModule = _defines.first; importedModule; importedModule = importedModule->next)
901 if(importedModule->type == 0)
903 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "import ");
904 if(importedModule->importType == 1)
905 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "static ", importedModule->name);
906 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\"%s\"\n", importedModule->name);
909 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "default:\n");
910 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "static Module __currentModule;\n\n");
912 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "Module __thisModule;\n\n");
916 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "void __ecereRegisterModule_%s(Module module);\n\n", mainModuleName);
917 for(module = _imports.first; module; module = module->next)
919 struct ClassImport * _class;
920 struct FunctionImport * function;
922 if(module->importType == 1)
925 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "bool __ecereDll_Load_%s(Module module);\n", module->name);
926 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "bool __ecereDll_Unload_%s(Module module);\n", module->name);
929 for(_class = module->classes.first; _class; _class = _class->next)
931 struct MethodImport * method;
932 struct PropertyImport * prop;
933 char className[1024] = "";
934 struct __ecereNameSpace__ecere__com__Class * regClass = __ecereNameSpace__ecere__com__eSystem_FindClass(privateModule, _class->name);
936 FullClassNameCat(className, _class->name, 0x1);
937 MangleClassName(className);
939 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "Class __ecereClass_%s;\n", className);
944 for(method = _class->methods.first; method; method = method->next)
946 struct __ecereNameSpace__ecere__com__Method * meth = __ecereNameSpace__ecere__com__eClass_FindMethod(regClass, method->name, privateModule);
948 if(meth && !meth->dataType)
950 struct Context * context = SetupTemplatesContext(regClass);
952 meth->dataType = ProcessTypeString(meth->dataTypeString, 0x0);
953 FinishTemplatesContext(context);
955 if(method->isVirtual)
956 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "int __ecereVMethodID_%s_%s;\n", className, method->name);
957 else if(module->name && module->importType != 1 && (!meth || !meth->dataType->dllExport))
959 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "int (*__ecereMethod_%s_%s)();\n", className, method->name);
964 for(prop = _class->properties.first; prop; prop = prop->next)
968 propName[0] = (char)0;
969 FullClassNameCat(propName, prop->name, 0x1);
970 MangleClassName(propName);
971 if(module->name && module->importType != 1)
974 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "void * __ecereProp_%s_Set_%s;\n", className, propName);
976 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "void * __ecereProp_%s_Get_%s;\n", className, propName);
978 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "Property __ecereProp_%s_%s;\n", className, propName);
983 for(function = module->functions.first; function; function = function->next)
985 struct __ecereNameSpace__ecere__com__GlobalFunction * func = __ecereNameSpace__ecere__com__eSystem_FindFunction(privateModule, function->name);
987 if(func && !func->dataType)
988 func->dataType = ProcessTypeString(func->dataTypeString, 0x0);
989 if(module->name && module->importType != 1 && (!func || !func->dataType || !func->dataType->dllExport))
991 char functionName[1024];
993 functionName[0] = (char)0;
994 FullClassNameCat(functionName, function->name, 0x0);
995 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "void * __ecereFunction_%s;\n", functionName);
1000 for(defModule = modules.first; defModule; defModule = defModule->next)
1002 char moduleName[1024];
1004 strcpy(moduleName, defModule->name);
1005 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, ' ', '_');
1006 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, '-', '_');
1007 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, '.', '_');
1008 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "void __ecereRegisterModule_%s(Module module);\n", moduleName);
1009 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "void __ecereUnregisterModule_%s(Module module);\n", moduleName);
1010 if(defModule->globalInstance)
1012 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "void __ecereCreateModuleInstances_%s();\n", moduleName);
1013 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "void __ecereDestroyModuleInstances_%s();\n", moduleName);
1018 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1019 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, int pos, int mode))dcomSymbols->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Seek])(dcomSymbols, 0, 0);
1020 while(!((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *))dcomSymbols->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Eof])(dcomSymbols))
1023 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);
1027 ((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);
1029 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1033 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\nbool __ecereDll_Load_%s(Module module)\n{\n", projectName);
1035 else if(isDynamicLibrary)
1037 if(targetPlatform == 1)
1038 ((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");
1040 ((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");
1042 else if(targetPlatform == 1 && !isConsole)
1044 ((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");
1047 ((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");
1048 if(!isDynamicLibrary)
1050 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, " int exitCode;\n");
1051 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, " Module module;\n");
1053 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, " Class _class;\n");
1055 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, " Method method;\n");
1057 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, " Property _property;\n");
1059 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, " GlobalFunction function;\n");
1060 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "\n");
1061 if(isDynamicLibrary)
1063 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, " if(!__currentModule)\n");
1064 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, " {\n");
1065 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, " __currentModule = module;\n");
1066 if(!isStaticLibrary)
1067 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, " __thisModule = module;\n");
1068 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, " }\n\n");
1070 else if(targetPlatform == 1 && !isConsole)
1071 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, " __thisModule = __currentModule = module = __ecere_COM_Initialize(1, 0, null);\n\n");
1073 ((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");
1076 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " bindtextdomain(\"%s\", \"%s\");\n", projectName, ("locale"));
1077 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " textdomain(\"%s\");\n", projectName);
1078 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " bind_textdomain_codeset (\"%s\", \"utf-8\");\n", projectName);
1082 for(module = _imports.first; module; module = module->next)
1087 if(module->importType == 1)
1088 __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 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " eModule_Load(module, \"%s\", %s);\n", module->name, (module->importAccess == 2) ? "privateAccess" : "publicAccess");
1094 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1098 for(defModule = modules.first; defModule; defModule = defModule->next)
1100 char moduleName[1024];
1102 strcpy(moduleName, defModule->name);
1103 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, ' ', '_');
1104 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, '-', '_');
1105 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, '.', '_');
1106 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " __ecereRegisterModule_%s(module);\n", moduleName);
1108 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1112 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " __ecereRegisterModule_%s(module);\n\n", mainModuleName);
1113 (__ecereNameSpace__ecere__com__eInstance_DecRef(dcomSymbols), dcomSymbols = 0);
1115 if(isDynamicLibrary)
1117 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, " if(__currentModule == module)\n");
1118 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, " {\n");
1120 for(module = _imports.first; module; module = module->next)
1122 struct ClassImport * _class;
1123 struct FunctionImport * function;
1125 if(module->classes.count)
1127 for(_class = module->classes.first; _class; _class = _class->next)
1129 struct __ecereNameSpace__ecere__com__Class * regClass = __ecereNameSpace__ecere__com__eSystem_FindClass(privateModule, _class->name);
1132 struct MethodImport * method;
1133 struct PropertyImport * prop;
1135 char className[1024] = "";
1137 FullClassNameCat(className, _class->name, 0x1);
1138 MangleClassName(className);
1140 sprintf(classID, "__ecereClass_%s", className);
1142 strcpy(classID, "_class");
1143 if(isDynamicLibrary && !isStaticLibrary)
1144 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " %s = eSystem_FindClass(__currentModule, \"%s\");\n", classID, _class->name);
1146 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " %s = eSystem_FindClass(module, \"%s\");\n", classID, _class->name);
1147 for(method = _class->methods.first; method; method = method->next)
1149 struct __ecereNameSpace__ecere__com__Method * meth = __ecereNameSpace__ecere__com__eClass_FindMethod(regClass, method->name, privateModule);
1151 if(!meth || !meth->dataType->dllExport)
1153 if(method->isVirtual || (module->name && module->importType != 1))
1155 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " method = eClass_FindMethod(%s, \"%s\", module);\n", classID, method->name);
1156 if(method->isVirtual)
1157 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " if(method) __ecereVMethodID_%s_%s = method.vid;\n", className, method->name);
1159 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " if(method) __ecereMethod_%s_%s = method.function;\n", className, method->name);
1163 for(prop = _class->properties.first; prop; prop = prop->next)
1165 char propName[1024];
1167 propName[0] = (char)0;
1168 FullClassNameCat(propName, prop->name, 0x1);
1169 MangleClassName(propName);
1170 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " __ecereProp_%s_%s = _property = eClass_FindProperty(%s, \"%s\", module);\n", className, propName, classID, prop->name);
1171 if(module->name && module->importType != 1)
1174 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " __ecereProp_%s_Set_%s = _property.Set;\n", className, propName);
1176 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " __ecereProp_%s_Get_%s = _property.Get;\n", className, propName);
1179 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1183 if(module->functions.count)
1185 for(function = module->functions.first; function; function = function->next)
1187 struct __ecereNameSpace__ecere__com__GlobalFunction * func = __ecereNameSpace__ecere__com__eSystem_FindFunction(privateModule, function->name);
1189 if(module->name && module->importType != 1 && (!func || !func->dataType || !func->dataType->dllExport))
1191 char functionName[1024];
1193 functionName[0] = (char)0;
1194 FullClassNameCat(functionName, function->name, 0x0);
1195 if(isDynamicLibrary && !isStaticLibrary)
1196 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " function = eSystem_FindFunction(__currentModule, \"%s\");\n", function->name);
1198 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " function = eSystem_FindFunction(module, \"%s\");\n", function->name);
1199 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " if(function) __ecereFunction_%s = function.function;\n", functionName);
1200 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1203 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1206 if(isDynamicLibrary)
1208 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, " }\n");
1210 if(!isDynamicLibrary && thisAppClass)
1212 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " _class = eSystem_FindClass(__currentModule, \"%s\");\n", thisAppClass->name);
1213 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " eInstance_Evolve((Instance *)&__currentModule, _class);\n");
1214 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " __thisModule = __currentModule;\n");
1216 if(isDynamicLibrary)
1218 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, " if(__currentModule == module)\n");
1219 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, " {\n");
1223 for(defModule = modules.first; defModule; defModule = defModule->next)
1224 if(defModule->globalInstance)
1226 char moduleName[1024];
1228 strcpy(moduleName, defModule->name);
1229 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, ' ', '_');
1230 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, '-', '_');
1231 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, '.', '_');
1232 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " __ecereCreateModuleInstances_%s();\n", moduleName);
1234 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1236 if(isDynamicLibrary)
1238 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, " }\n");
1240 if(!isDynamicLibrary && thisAppClass)
1242 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " __currentModule._vTbl[12](__currentModule);\n");
1244 if(isDynamicLibrary)
1246 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, " return true;\n");
1247 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "}\n");
1250 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\nbool __ecereDll_Unload_%s(Module module)\n{\n", projectName);
1254 if(targetPlatform == 1)
1255 ((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");
1257 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "\ndllexport bool __ecereDll_Unload(Module module)\n{\n");
1260 if(isDynamicLibrary)
1262 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, " if(__currentModule == module)\n");
1263 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, " {\n");
1267 for(defModule = modules.first; defModule; defModule = defModule->next)
1268 if(defModule->globalInstance)
1270 char moduleName[1024];
1272 strcpy(moduleName, defModule->name);
1273 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, ' ', '_');
1274 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, '-', '_');
1275 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, '.', '_');
1276 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " __ecereDestroyModuleInstances_%s();\n", moduleName);
1278 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1280 if(isDynamicLibrary)
1282 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, " }\n");
1283 if(isDynamicLibrary)
1288 for(defModule = modules.first; defModule; defModule = defModule->next)
1290 char moduleName[1024];
1292 strcpy(moduleName, defModule->name);
1293 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, ' ', '_');
1294 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, '-', '_');
1295 __ecereNameSpace__ecere__sys__ChangeCh(moduleName, '.', '_');
1296 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " __ecereUnregisterModule_%s(module);\n", moduleName);
1298 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1300 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, " if(__currentModule == module)\n");
1301 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, " __currentModule = (void *)0;\n");
1302 if(!isStaticLibrary)
1304 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, " if(__thisModule == module)\n");
1305 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, " __thisModule = (void *)0;\n");
1308 if(!isDynamicLibrary)
1310 ((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");
1313 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, " return true;\n");
1314 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, "}\n");
1315 __ecereNameSpace__ecere__com__eInstance_Delete(f);
1319 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__BTNamedLink;
1321 struct __ecereNameSpace__ecere__com__BTNamedLink
1324 struct __ecereNameSpace__ecere__com__BTNamedLink * parent;
1325 struct __ecereNameSpace__ecere__com__BTNamedLink * left;
1326 struct __ecereNameSpace__ecere__com__BTNamedLink * right;
1331 struct __ecereNameSpace__ecere__sys__BTNode * __ecereProp___ecereNameSpace__ecere__sys__BinaryTree_Get_first(struct __ecereNameSpace__ecere__sys__BinaryTree * this);
1333 extern struct __ecereNameSpace__ecere__com__Property ** __ecereProp___ecereNameSpace__ecere__sys__BinaryTree_first;
1335 struct __ecereNameSpace__ecere__sys__BTNode * __ecereProp___ecereNameSpace__ecere__sys__BTNode_Get_next(struct __ecereNameSpace__ecere__sys__BTNode * this);
1337 extern struct __ecereNameSpace__ecere__com__Property ** __ecereProp___ecereNameSpace__ecere__sys__BTNode_next;
1339 static struct __ecereNameSpace__ecere__com__Class * FindAppClass(struct __ecereNameSpace__ecere__com__NameSpace * nameSpace, unsigned int thisModule)
1341 struct __ecereNameSpace__ecere__com__BTNamedLink * link;
1342 struct __ecereNameSpace__ecere__com__NameSpace * ns;
1344 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)))
1346 struct __ecereNameSpace__ecere__com__Class * _class = link->data;
1348 if(strcmp(_class->fullName, "ecere::com::Application") && (!thisModule || _class->module == privateModule))
1350 struct __ecereNameSpace__ecere__com__Class * base;
1352 for(base = _class->base; base && base->type != 1000; base = base->base)
1353 if(!strcmp(base->fullName, "ecere::com::Application"))
1357 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)))
1359 struct __ecereNameSpace__ecere__com__Class * _class = FindAppClass(ns, thisModule);
1364 return (((void *)0));
1367 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__Module;
1369 struct __ecereNameSpace__ecere__com__Module
1371 struct __ecereNameSpace__ecere__com__Instance * application;
1372 struct __ecereNameSpace__ecere__sys__OldList classes;
1373 struct __ecereNameSpace__ecere__sys__OldList defines;
1374 struct __ecereNameSpace__ecere__sys__OldList functions;
1375 struct __ecereNameSpace__ecere__sys__OldList modules;
1376 struct __ecereNameSpace__ecere__com__Instance * prev;
1377 struct __ecereNameSpace__ecere__com__Instance * next;
1382 struct __ecereNameSpace__ecere__com__NameSpace privateNameSpace;
1383 struct __ecereNameSpace__ecere__com__NameSpace publicNameSpace;
1386 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__SubModule;
1388 struct __ecereNameSpace__ecere__com__SubModule
1390 struct __ecereNameSpace__ecere__com__SubModule * prev;
1391 struct __ecereNameSpace__ecere__com__SubModule * next;
1392 struct __ecereNameSpace__ecere__com__Instance * module;
1396 static struct __ecereNameSpace__ecere__com__Class * SearchAppClass_Module(struct __ecereNameSpace__ecere__com__Instance * module)
1398 struct __ecereNameSpace__ecere__com__Class * appClass;
1399 struct __ecereNameSpace__ecere__com__SubModule * subModule;
1401 appClass = FindAppClass(&((struct __ecereNameSpace__ecere__com__Module *)(((char *)module + 12)))->publicNameSpace, 0x0);
1404 appClass = FindAppClass(&((struct __ecereNameSpace__ecere__com__Module *)(((char *)module + 12)))->privateNameSpace, 0x0);
1407 for(subModule = ((struct __ecereNameSpace__ecere__com__Module *)(((char *)module + 12)))->modules.first; subModule; subModule = subModule->next)
1409 appClass = SearchAppClass_Module(subModule->module);
1413 return (((void *)0));
1416 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__sys__TempFile;
1418 struct __ecereNameSpace__ecere__sys__TempFile
1420 char __ecere_padding[24];
1423 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__sys__OldLink;
1425 struct __ecereNameSpace__ecere__sys__OldLink
1427 struct __ecereNameSpace__ecere__sys__OldLink * prev;
1428 struct __ecereNameSpace__ecere__sys__OldLink * next;
1432 extern void DeclareClass(struct Symbol * classSym, char * className);
1434 extern struct Symbol * FindClass(char * name);
1436 extern struct __ecereNameSpace__ecere__sys__OldList * MkList(void);
1438 extern void PrintType(struct Type * type, char * string, unsigned int printName, unsigned int fullName);
1440 extern struct Declarator * SpecDeclFromString(char * string, struct __ecereNameSpace__ecere__sys__OldList * specs, struct Declarator * baseDecl);
1442 extern struct Declarator * MkDeclaratorIdentifier(struct Identifier * id);
1444 extern struct Identifier * MkIdentifier(char * string);
1446 extern struct TypeName * MkTypeName(struct __ecereNameSpace__ecere__sys__OldList * qualifiers, struct Declarator * declarator);
1448 extern void OutputTypeName(struct TypeName * type, struct __ecereNameSpace__ecere__com__Instance * f);
1450 extern char * strcat(char * , const char * );
1452 extern void DeclareMethod(struct __ecereNameSpace__ecere__com__Method * method, char * name);
1454 static void BindDCOMClient()
1456 struct __ecereNameSpace__ecere__com__Class * dcomClientObjectClass = __ecereNameSpace__ecere__com__eSystem_FindClass(privateModule, "ecere::net::DCOMClientObject");
1457 struct __ecereNameSpace__ecere__sys__OldLink * deriv;
1459 if(dcomClientObjectClass && dcomClientObjectClass->derivatives.first)
1461 struct __ecereNameSpace__ecere__com__Instance * f;
1464 dcomSymbols = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass___ecereNameSpace__ecere__sys__TempFile);
1466 for(deriv = dcomClientObjectClass->derivatives.first; deriv; deriv = deriv->next)
1468 struct __ecereNameSpace__ecere__com__Class * _class = deriv->data;
1469 struct __ecereNameSpace__ecere__com__Method * method, * next;
1472 unsigned int doVirtual;
1474 DeclareClass(FindClass("ecere::net::DCOMClientObject"), "__ecereClass___ecereNameSpace__ecere__net__DCOMClientObject");
1475 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "class %s : ecere::net::DCOMClientObject\n", _class->fullName);
1476 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "{\n");
1477 if(_class->vTblSize > _class->base->vTblSize)
1481 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " virtual void CallVirtualMethod(uint __ecereMethodID, SerialBuffer __ecereBuffer)\n");
1482 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " {\n");
1483 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " switch(__ecereMethodID)\n");
1484 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " {\n");
1485 for(vid = _class->base->vTblSize; vid < _class->vTblSize; vid++)
1487 struct __ecereNameSpace__ecere__com__Method * method;
1489 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)))
1491 if(method->type == 1 && method->_class == _class && method->vid == vid)
1496 struct Type * param;
1498 method->dataType = ProcessTypeString(method->dataTypeString, 0x0);
1499 if(method->dataType && method->dataType->name)
1501 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " case %d:\n", vid - _class->base->vTblSize);
1502 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " {\n");
1504 if(method->dataType->returnType->kind != 0)
1506 struct TypeName * resultType;
1507 struct __ecereNameSpace__ecere__sys__OldList * specs = MkList();
1508 struct Declarator * decl;
1509 char type[1024] = "";
1510 char className[1024];
1511 struct Symbol * classSym;
1513 if(method->dataType->returnType->kind == 8)
1514 classSym = method->dataType->returnType->_class;
1517 PrintType(method->dataType->returnType, type, 0x0, 0x1);
1518 classSym = FindClass(type);
1521 strcpy(className, "__ecereClass_");
1522 FullClassNameCat(className, classSym->string, 0x1);
1523 MangleClassName(className);
1524 DeclareClass(classSym, className);
1525 PrintType(method->dataType->returnType, type, 0x1, 0x1);
1526 decl = SpecDeclFromString(type, specs, MkDeclaratorIdentifier(MkIdentifier("__ecereResult")));
1527 resultType = MkTypeName(specs, decl);
1528 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " ");
1529 OutputTypeName(resultType, f);
1530 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, ";\n");
1532 for(param = method->dataType->params.first; param; param = param->next)
1534 if(param->kind == 8 && !strcmp(param->_class->string, "String"))
1536 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " char %s[1024];\n", param->name);
1537 DeclareClass(FindClass("StaticString"), "__ecereClass_StaticString");
1538 DeclareClass(FindClass("String"), "__ecereClass_String");
1542 struct TypeName * paramTypeName;
1543 struct __ecereNameSpace__ecere__sys__OldList * specs = MkList();
1544 struct Declarator * decl;
1545 char type[1024] = "";
1546 char className[1024];
1547 struct Symbol * classSym;
1549 if(param->kind == 8)
1550 classSym = param->_class;
1553 PrintType(param, type, 0x0, 0x1);
1554 classSym = FindClass(type);
1557 strcpy(className, "__ecereClass_");
1558 FullClassNameCat(className, classSym->string, 0x1);
1559 MangleClassName(className);
1560 DeclareClass(classSym, className);
1561 PrintType(param, type, 0x1, 0x1);
1562 decl = SpecDeclFromString(type, specs, MkDeclaratorIdentifier(MkIdentifier(param->name)));
1563 paramTypeName = MkTypeName(specs, decl);
1564 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " ");
1565 OutputTypeName(paramTypeName, f);
1566 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, ";\n");
1569 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1570 for(param = method->dataType->params.first; param; param = param->next)
1572 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " __ecereBuffer.Unserialize(");
1573 if(param->kind == 8 && !strcmp(param->_class->string, "String"))
1575 DeclareClass(FindClass("StaticString"), "__ecereClass_StaticString");
1576 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "(StaticString)");
1578 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, param->name);
1579 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, ");\n");
1581 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " ");
1582 if(method->dataType->returnType->kind != 0)
1583 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "__ecereResult = ");
1584 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "%s(", method->name);
1585 for(param = method->dataType->params.first; param; param = param->next)
1588 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, ", ");
1589 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "%s", param->name);
1591 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, ");\n");
1592 for(param = method->dataType->params.first; param; param = param->next)
1594 if(param->kind == 8 && ((param->_class && param->_class->registered && param->_class->registered->type == 1) || !strcmp(param->_class->string, "String")) && !param->constant)
1596 if(!strcmp(param->_class->string, "String"))
1598 DeclareClass(FindClass("StaticString"), "__ecereClass_StaticString");
1599 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " __ecereBuffer.Serialize((StaticString)%s);\n", param->name);
1602 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " __ecereBuffer.Serialize(%s);\n", param->name);
1605 if(method->dataType->returnType->kind != 0)
1607 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " __ecereBuffer.Serialize(__ecereResult);\n");
1609 for(param = method->dataType->params.first; param; param = param->next)
1611 if(param->kind == 8 && strcmp(param->_class->string, "String") && param->_class->registered && (param->_class->registered->type == 0 || param->_class->registered->type == 5))
1613 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " delete %s;\n", param->name);
1616 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))
1618 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " delete __ecereResult;\n");
1621 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " break;\n");
1622 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " }\n");
1626 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " }\n");
1627 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " }\n");
1628 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1632 vid = _class->base->vTblSize;
1633 next = (struct __ecereNameSpace__ecere__com__Method *)__ecereProp___ecereNameSpace__ecere__sys__BinaryTree_Get_first(&_class->methods);
1634 while(next && ((next->type == 1) != doVirtual || (doVirtual && next->vid != vid)))
1637 next = (struct __ecereNameSpace__ecere__com__Method *)__ecereProp___ecereNameSpace__ecere__sys__BTNode_Get_next(((struct __ecereNameSpace__ecere__sys__BTNode *)next));
1638 if(!next && doVirtual)
1640 if(vid == _class->vTblSize)
1645 next = (struct __ecereNameSpace__ecere__com__Method *)__ecereProp___ecereNameSpace__ecere__sys__BinaryTree_Get_first(&_class->methods);
1648 for(method = next; method; method = next)
1650 struct Type * param;
1652 if(!method->dataType)
1653 method->dataType = ProcessTypeString(method->dataTypeString, 0x0);
1654 if(method->dataType->name)
1656 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " ");
1661 strcpy(name, "__ecereVMethodID_");
1662 FullClassNameCat(name, method->_class->fullName, 0x1);
1664 strcat(name, method->name);
1665 DeclareMethod(method, name);
1666 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "virtual ");
1668 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "%s\n", method->dataTypeString);
1669 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " {\n");
1670 if(method->dataType)
1672 if(method->dataType->returnType->kind != 0)
1674 struct TypeName * resultType;
1675 struct __ecereNameSpace__ecere__sys__OldList * specs = MkList();
1676 struct Declarator * decl;
1677 char type[1024] = "";
1678 char className[1024];
1679 struct Symbol * classSym;
1681 if(method->dataType->returnType->kind == 8)
1682 classSym = method->dataType->returnType->_class;
1685 PrintType(method->dataType->returnType, type, 0x0, 0x1);
1686 classSym = FindClass(type);
1689 strcpy(className, "__ecereClass_");
1690 FullClassNameCat(className, classSym->string, 0x1);
1691 MangleClassName(className);
1692 DeclareClass(classSym, className);
1693 PrintType(method->dataType->returnType, type, 0x1, 0x1);
1694 decl = SpecDeclFromString(type, specs, MkDeclaratorIdentifier(MkIdentifier("__ecereResult")));
1695 resultType = MkTypeName(specs, decl);
1696 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " ");
1697 OutputTypeName(resultType, f);
1698 if(method->dataType->returnType->kind == 9)
1699 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " = { 0 }");
1700 else if(method->dataType->returnType->kind == 8 && method->dataType->returnType->_class->registered && method->dataType->returnType->_class->registered->type == 1)
1701 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " { }");
1703 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " = 0");
1704 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, ";\n\n");
1706 for(param = method->dataType->params.first; param; param = param->next)
1708 char type[1024] = "";
1709 char className[1024];
1710 struct Symbol * classSym;
1712 if(param->kind == 8)
1713 classSym = param->_class;
1716 PrintType(param, type, 0x0, 0x1);
1717 classSym = FindClass(type);
1720 strcpy(className, "__ecereClass_");
1721 FullClassNameCat(className, classSym->string, 0x1);
1722 MangleClassName(className);
1723 DeclareClass(classSym, className);
1724 if(param->kind == 8 && !strcmp(param->_class->string, "String"))
1726 DeclareClass(FindClass("StaticString"), "__ecereClass_StaticString");
1727 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " __ecereBuffer.Serialize((StaticString)%s);\n", param->name);
1730 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " __ecereBuffer.Serialize(%s);\n", param->name);
1732 DeclareMethod(__ecereNameSpace__ecere__com__eClass_FindMethod(__ecereNameSpace__ecere__com__eSystem_FindClass(privateModule, "ecere::net::DCOMClientObject"), "CallMethod", privateModule), "__ecereMethod___ecereNameSpace__ecere__net__DCOMClientObject_CallMethod");
1733 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " if(DCOMClientObject::CallMethod(%d))\n", id++);
1734 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " {\n");
1735 for(param = method->dataType->params.first; param; param = param->next)
1737 if(param->kind == 8 && ((param->_class && param->_class->registered && param->_class->registered->type == 1) || !strcmp(param->_class->string, "String")) && !param->constant)
1739 if(!strcmp(param->_class->string, "String"))
1741 DeclareClass(FindClass("StaticString"), "__ecereClass_StaticString");
1742 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " __ecereBuffer.Unserialize((StaticString)%s);\n", param->name);
1745 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " __ecereBuffer.Unserialize(%s);\n", param->name);
1748 if(method->dataType->returnType->kind != 0)
1750 if(method->dataType->returnType->kind == 8 && !strcmp(method->dataType->returnType->_class->string, "String"))
1752 DeclareClass(FindClass("StaticString"), "__ecereClass_StaticString");
1753 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " __ecereBuffer.Unserialize((StaticString)__ecereResult);\n");
1756 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " __ecereBuffer.Unserialize(__ecereResult);\n");
1758 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " }\n");
1759 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " __ecereBuffer.Free();\n");
1760 if(method->dataType->returnType->kind != 0)
1762 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " return __ecereResult;\n");
1765 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " }\n");
1767 next = (struct __ecereNameSpace__ecere__com__Method *)__ecereProp___ecereNameSpace__ecere__sys__BTNode_Get_next(((struct __ecereNameSpace__ecere__sys__BTNode *)method));
1768 while(next && ((next->type == 1) != doVirtual || (doVirtual && next->vid != vid)))
1771 next = (struct __ecereNameSpace__ecere__com__Method *)__ecereProp___ecereNameSpace__ecere__sys__BTNode_Get_next(((struct __ecereNameSpace__ecere__sys__BTNode *)next));
1772 if(!next && doVirtual)
1774 if(vid == _class->vTblSize)
1779 next = (struct __ecereNameSpace__ecere__com__Method *)__ecereProp___ecereNameSpace__ecere__sys__BinaryTree_Get_first(&_class->methods);
1783 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1785 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "}\n");
1787 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1792 static void BindDCOMServer()
1794 struct __ecereNameSpace__ecere__com__Class * _class;
1796 for(_class = ((struct __ecereNameSpace__ecere__com__Module *)(((char *)privateModule + 12)))->classes.first; _class; _class = _class->next)
1798 if(_class->isRemote == (unsigned int)3)
1803 struct __ecereNameSpace__ecere__com__Instance * f;
1806 dcomSymbols = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass___ecereNameSpace__ecere__sys__TempFile);
1808 DeclareClass(FindClass("ecere::net::DCOMServerObject"), "__ecereClass___ecereNameSpace__ecere__net__DCOMServerObject");
1809 for(_class = ((struct __ecereNameSpace__ecere__com__Module *)(((char *)privateModule + 12)))->classes.first; _class; _class = _class->next)
1811 if(_class->isRemote == (unsigned int)3)
1813 struct __ecereNameSpace__ecere__com__Method * method;
1817 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "class DCOM%s : ecere::net::DCOMServerObject\n", _class->fullName);
1818 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "{\n");
1819 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " virtual void CallMethod(uint __ecereMethodID, SerialBuffer __ecereBuffer)\n");
1820 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " {\n");
1821 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " switch(__ecereMethodID)\n");
1822 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " {\n");
1823 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)))
1825 struct Type * param;
1827 method->dataType = ProcessTypeString(method->dataTypeString, 0x0);
1828 if(method->dataType && method->dataType->name)
1830 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " case %d:\n", id++);
1831 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " {\n");
1833 if(method->dataType->returnType->kind != 0)
1835 struct TypeName * resultType;
1836 struct __ecereNameSpace__ecere__sys__OldList * specs = MkList();
1837 struct Declarator * decl;
1838 char type[1024] = "";
1839 char className[1024];
1840 struct Symbol * classSym;
1842 if(method->dataType->returnType->kind == 8)
1843 classSym = method->dataType->returnType->_class;
1846 PrintType(method->dataType->returnType, type, 0x0, 0x1);
1847 classSym = FindClass(type);
1850 strcpy(className, "__ecereClass_");
1851 FullClassNameCat(className, classSym->string, 0x1);
1852 MangleClassName(className);
1853 DeclareClass(classSym, className);
1854 PrintType(method->dataType->returnType, type, 0x1, 0x1);
1855 decl = SpecDeclFromString(type, specs, MkDeclaratorIdentifier(MkIdentifier("__ecereResult")));
1856 resultType = MkTypeName(specs, decl);
1857 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " ");
1858 OutputTypeName(resultType, f);
1859 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, ";\n");
1861 for(param = method->dataType->params.first; param; param = param->next)
1863 if(param->kind == 8 && !strcmp(param->_class->string, "String"))
1865 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " char %s[1024];\n", param->name);
1866 DeclareClass(FindClass("StaticString"), "__ecereClass_StaticString");
1867 DeclareClass(FindClass("String"), "__ecereClass_String");
1871 struct TypeName * paramTypeName;
1872 struct __ecereNameSpace__ecere__sys__OldList * specs = MkList();
1873 struct Declarator * decl;
1874 char type[1024] = "";
1875 char className[1024];
1876 struct Symbol * classSym;
1878 if(param->kind == 8)
1879 classSym = param->_class;
1882 PrintType(param, type, 0x0, 0x1);
1883 classSym = FindClass(type);
1886 strcpy(className, "__ecereClass_");
1887 FullClassNameCat(className, classSym->string, 0x1);
1888 MangleClassName(className);
1889 DeclareClass(classSym, className);
1890 PrintType(param, type, 0x1, 0x1);
1891 decl = SpecDeclFromString(type, specs, MkDeclaratorIdentifier(MkIdentifier(param->name)));
1892 paramTypeName = MkTypeName(specs, decl);
1893 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " ");
1894 OutputTypeName(paramTypeName, f);
1895 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, ";\n");
1898 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1899 for(param = method->dataType->params.first; param; param = param->next)
1901 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " __ecereBuffer.Unserialize(");
1902 if(param->kind == 8 && !strcmp(param->_class->string, "String"))
1904 DeclareClass(FindClass("StaticString"), "__ecereClass_StaticString");
1905 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "(StaticString)");
1907 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(f, param->name);
1908 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, ");\n");
1910 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " ");
1911 if(method->dataType->returnType->kind != 0)
1912 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "__ecereResult = ");
1913 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "((%s)instance).%s(", _class->fullName, method->name);
1914 for(param = method->dataType->params.first; param; param = param->next)
1917 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, ", ");
1918 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "%s", param->name);
1920 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, ");\n");
1921 for(param = method->dataType->params.first; param; param = param->next)
1923 if(param->kind == 8 && ((param->_class && param->_class->registered && param->_class->registered->type == 1) || !strcmp(param->_class->string, "String")) && !param->constant)
1925 if(!strcmp(param->_class->string, "String"))
1927 DeclareClass(FindClass("StaticString"), "__ecereClass_StaticString");
1928 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " __ecereBuffer.Serialize((StaticString)%s);\n", param->name);
1931 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " __ecereBuffer.Serialize(%s);\n", param->name);
1934 if(method->dataType->returnType->kind != 0)
1936 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " __ecereBuffer.Serialize(__ecereResult);\n");
1938 for(param = method->dataType->params.first; param; param = param->next)
1940 if(param->kind == 8 && strcmp(param->_class->string, "String") && param->_class->registered && (param->_class->registered->type == 0 || param->_class->registered->type == 5))
1942 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " delete %s;\n", param->name);
1945 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))
1947 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " delete __ecereResult;\n");
1950 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " break;\n");
1951 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " }\n");
1954 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " }\n");
1955 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " }\n");
1956 for(vid = _class->base->vTblSize; vid < _class->vTblSize; vid++)
1958 struct __ecereNameSpace__ecere__com__Method * method;
1959 struct Type * param;
1961 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)))
1962 if(method->type == 1 && method->_class == _class && method->vid == vid)
1966 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "\n");
1967 if(!method->dataType)
1968 method->dataType = ProcessTypeString(method->dataTypeString, 0x0);
1969 if(method->dataType->name)
1971 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " virtual %s\n", method->dataTypeString);
1972 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " {\n");
1973 if(method->dataType)
1975 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " DCOM%s __ecereObject = (void *)_vTbl[-1];\n", _class->fullName);
1976 if(method->dataType->returnType->kind != 0)
1978 struct TypeName * resultType;
1979 struct __ecereNameSpace__ecere__sys__OldList * specs = MkList();
1980 struct Declarator * decl;
1981 char type[1024] = "";
1982 char className[1024];
1983 struct Symbol * classSym;
1985 if(method->dataType->returnType->kind == 8)
1986 classSym = method->dataType->returnType->_class;
1989 PrintType(method->dataType->returnType, type, 0x0, 0x1);
1990 classSym = FindClass(type);
1993 strcpy(className, "__ecereClass_");
1994 FullClassNameCat(className, classSym->string, 0x1);
1995 MangleClassName(className);
1996 DeclareClass(classSym, className);
1997 PrintType(method->dataType->returnType, type, 0x1, 0x1);
1998 decl = SpecDeclFromString(type, specs, MkDeclaratorIdentifier(MkIdentifier("__ecereResult")));
1999 resultType = MkTypeName(specs, decl);
2000 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " ");
2001 OutputTypeName(resultType, f);
2002 if(method->dataType->returnType->kind == 9)
2003 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " = { 0 }");
2004 else if(method->dataType->returnType->kind == 8 && method->dataType->returnType->_class->registered && method->dataType->returnType->_class->registered->type == 1)
2005 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " { }");
2007 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " = 0");
2008 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, ";\n\n");
2010 for(param = method->dataType->params.first; param; param = param->next)
2012 char type[1024] = "";
2013 char className[1024];
2014 struct Symbol * classSym;
2016 if(param->kind == 8)
2017 classSym = param->_class;
2020 PrintType(param, type, 0x0, 0x1);
2021 classSym = FindClass(type);
2024 strcpy(className, "__ecereClass_");
2025 FullClassNameCat(className, classSym->string, 0x1);
2026 MangleClassName(className);
2027 DeclareClass(classSym, className);
2028 if(param->kind == 8 && !strcmp(param->_class->string, "String"))
2030 DeclareClass(FindClass("StaticString"), "__ecereClass_StaticString");
2031 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " __ecereObject.virtualsBuffer.Serialize((StaticString)%s);\n", param->name);
2034 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " __ecereObject.virtualsBuffer.Serialize(%s);\n", param->name);
2036 DeclareMethod(__ecereNameSpace__ecere__com__eClass_FindMethod(__ecereNameSpace__ecere__com__eSystem_FindClass(privateModule, "ecere::net::DCOMServerObject"), "CallVirtualMethod", privateModule), "__ecereMethod___ecereNameSpace__ecere__net__DCOMServerObject_CallVirutalMethod");
2037 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " if(__ecereObject.CallVirtualMethod(%d))\n", vid - _class->base->vTblSize);
2038 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " {\n");
2039 for(param = method->dataType->params.first; param; param = param->next)
2041 if(param->kind == 8 && ((param->_class && param->_class->registered && param->_class->registered->type == 1) || !strcmp(param->_class->string, "String")) && !param->constant)
2043 if(!strcmp(param->_class->string, "String"))
2045 DeclareClass(FindClass("StaticString"), "__ecereClass_StaticString");
2046 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " __ecereObject.virtualsBuffer.Unserialize((StaticString)%s);\n", param->name);
2049 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " __ecereObject.virtualsBuffer.Unserialize(%s);\n", param->name);
2052 if(method->dataType->returnType->kind != 0)
2054 if(method->dataType->returnType->kind == 8 && !strcmp(method->dataType->returnType->_class->string, "String"))
2056 DeclareClass(FindClass("StaticString"), "__ecereClass_StaticString");
2057 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " __ecereObject.virtualsBuffer.Unserialize((StaticString)__ecereResult);\n");
2060 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " __ecereObject.virtualsBuffer.Unserialize(__ecereResult);\n");
2062 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " }\n");
2063 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " else\n");
2064 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " ((%s)this).%s::%s(", _class->fullName, _class->fullName, method->name);
2065 for(param = method->dataType->params.first; param; param = param->next)
2067 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "%s", param->name);
2069 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, ", ");
2071 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, ");\n");
2072 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " __ecereObject.virtualsBuffer.Free();\n");
2073 if(method->dataType->returnType->kind != 0)
2075 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " return __ecereResult;\n");
2078 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, " }\n");
2082 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(f, "}\n");
2088 static struct __ecereNameSpace__ecere__com__Class * __ecereClass_SymbolgenApp;
2090 extern int __ecereNameSpace__ecere__com__GetRuntimePlatform(void);
2092 extern void SetSymbolsDir(char * s);
2094 extern int printf(char * , ...);
2096 extern char * __ecereNameSpace__ecere__sys__GetExtension(char * string, char * output);
2098 extern void SetDefines(struct __ecereNameSpace__ecere__sys__OldList * list);
2100 extern void SetImports(struct __ecereNameSpace__ecere__sys__OldList * list);
2102 extern void SetGlobalData(struct __ecereNameSpace__ecere__com__NameSpace * nameSpace);
2104 extern void SetExcludedSymbols(struct __ecereNameSpace__ecere__sys__OldList * list);
2106 extern void SetGlobalContext(struct Context * context);
2108 extern void SetTopContext(struct Context * context);
2110 extern void SetCurrentContext(struct Context * context);
2112 extern void SetTargetPlatform(int platform);
2114 extern struct __ecereNameSpace__ecere__com__Instance * __ecereNameSpace__ecere__com____ecere_COM_Initialize(unsigned int guiApp, int argc, char * argv[]);
2116 extern void SetPrivateModule(struct __ecereNameSpace__ecere__com__Instance * module);
2118 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__IteratorPointer;
2120 struct __ecereNameSpace__ecere__com__IteratorPointer;
2122 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__MapIterator;
2124 struct __ecereNameSpace__ecere__com__MapIterator
2126 struct __ecereNameSpace__ecere__com__Instance * container;
2127 struct __ecereNameSpace__ecere__com__IteratorPointer * pointer;
2130 extern int strcasecmp(const char * , const char * );
2132 extern unsigned int LoadSymbols(char * fileName, int importType, unsigned int loadDllOnly);
2134 extern void CheckDataRedefinitions(void);
2136 extern char * __ecereNameSpace__ecere__sys__ChangeExtension(char * string, char * ext, char * output);
2138 extern void ComputeModuleClasses(struct __ecereNameSpace__ecere__com__Instance * module);
2140 extern void FreeContext(struct Context * context);
2142 extern void FreeExcludedSymbols(struct __ecereNameSpace__ecere__sys__OldList * excludedSymbols);
2144 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Definition;
2148 extern void FreeModuleDefine(struct Definition * def);
2150 extern void FreeModuleImport(struct ModuleImport * imp);
2152 extern void FreeTypeData(struct __ecereNameSpace__ecere__com__Instance * privateModule);
2154 extern void FreeIncludeFiles(void);
2156 extern void FreeGlobalData(struct __ecereNameSpace__ecere__com__NameSpace * globalDataList);
2158 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__Map_TPL_String__String_;
2160 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__Application;
2162 struct __ecereNameSpace__ecere__com__Application
2167 unsigned int isGUIApp;
2168 struct __ecereNameSpace__ecere__sys__OldList allModules;
2169 char * parsedCommand;
2170 struct __ecereNameSpace__ecere__com__NameSpace systemNameSpace;
2173 char * __ecereProp___ecereNameSpace__ecere__com__Platform_Get_char__PTR_(int this);
2175 int __ecereProp___ecereNameSpace__ecere__com__Platform_Set_char__PTR_(char * value);
2177 extern struct __ecereNameSpace__ecere__com__Property ** __ecereProp___ecereNameSpace__ecere__com__Platform_char__PTR_;
2179 void __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add(struct __ecereNameSpace__ecere__sys__OldList * this, void * item);
2181 struct __ecereNameSpace__ecere__com__Instance * __ecereProp___ecereNameSpace__ecere__com__MapIterator_Get_map(struct __ecereNameSpace__ecere__com__MapIterator * this);
2183 void __ecereProp___ecereNameSpace__ecere__com__MapIterator_Set_map(struct __ecereNameSpace__ecere__com__MapIterator * this, struct __ecereNameSpace__ecere__com__Instance * value);
2185 extern struct __ecereNameSpace__ecere__com__Property ** __ecereProp___ecereNameSpace__ecere__com__MapIterator_map;
2187 unsigned int __ecereMethod___ecereNameSpace__ecere__com__Iterator_Index(struct __ecereNameSpace__ecere__com__Iterator * this, uint64 index, unsigned int create);
2189 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__Iterator;
2191 struct __ecereNameSpace__ecere__com__Iterator
2193 struct __ecereNameSpace__ecere__com__Instance * container;
2194 struct __ecereNameSpace__ecere__com__IteratorPointer * pointer;
2197 uint64 __ecereProp___ecereNameSpace__ecere__com__Iterator_Get_data(struct __ecereNameSpace__ecere__com__Iterator * this);
2199 void __ecereProp___ecereNameSpace__ecere__com__Iterator_Set_data(struct __ecereNameSpace__ecere__com__Iterator * this, uint64 value);
2201 extern struct __ecereNameSpace__ecere__com__Property ** __ecereProp___ecereNameSpace__ecere__com__Iterator_data;
2203 int __ecereVMethodID___ecereNameSpace__ecere__com__Container_Free;
2205 void __ecereMethod___ecereNameSpace__ecere__sys__OldList_Free(struct __ecereNameSpace__ecere__sys__OldList * this, void (* freeFn)(void * ));
2207 void __ecereMethod_SymbolgenApp_Main(struct __ecereNameSpace__ecere__com__Instance * this)
2209 void * __ecereTemp1;
2211 unsigned int valid = 0x1;
2212 char * output = (((void *)0));
2214 targetPlatform = __ecereNameSpace__ecere__com__GetRuntimePlatform();
2215 for(c = 1; c < ((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 296)))->argc; c++)
2217 char * arg = ((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 296)))->argv[c];
2221 if(!strcmp(arg + 1, "o"))
2223 if(!output && c + 1 < ((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 296)))->argc)
2225 output = ((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 296)))->argv[c + 1];
2231 else if(!strcmp(arg, "-name"))
2233 if(c + 1 < ((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 296)))->argc)
2235 strcpy(projectName, ((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 296)))->argv[c + 1]);
2241 else if(!strcmp(arg, "-t"))
2243 if(++c < ((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 296)))->argc)
2244 targetPlatform = __ecereProp___ecereNameSpace__ecere__com__Platform_Set_char__PTR_(((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 296)))->argv[c]);
2248 else if(!strcmp(arg, "-console"))
2250 else if(!strcmp(arg, "-dynamiclib"))
2251 isDynamicLibrary = 0x1;
2252 else if(!strcmp(arg, "-staticlib"))
2254 isDynamicLibrary = 0x1;
2255 isStaticLibrary = 0x1;
2257 else if(!strcmp(arg, "-symbols"))
2259 if(c + 1 < ((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 296)))->argc)
2261 SetSymbolsDir(((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 296)))->argv[c + 1]);
2272 printf("Syntax:\n ecs [-t <target platform>] <input>[, <input>]* -o <output>\n");
2277 char symbolModule[274];
2279 __ecereNameSpace__ecere__sys__GetExtension(output, ext);
2280 __ecereNameSpace__ecere__sys__GetLastDirectory(output, symbolModule);
2281 SetDefines(&_defines);
2282 SetImports(&_imports);
2283 SetGlobalData(&globalData);
2284 SetExcludedSymbols(&_excludedSymbols);
2285 SetGlobalContext(theGlobalContext);
2286 SetTopContext(theGlobalContext);
2287 SetCurrentContext(theGlobalContext);
2288 SetTargetPlatform(targetPlatform);
2289 privateModule = __ecereNameSpace__ecere__com____ecere_COM_Initialize(0x1, 1, (((void *)0)));
2290 SetPrivateModule(privateModule);
2291 mainModule = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_ModuleImport);
2292 SetMainModule(mainModule);
2293 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add(&_imports, mainModule);
2295 struct __ecereNameSpace__ecere__com__Instance * potFile = (((void *)0));
2296 struct __ecereNameSpace__ecere__com__Instance * intlStrings = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass___ecereNameSpace__ecere__com__Map_TPL_String__String_);
2297 struct __ecereNameSpace__ecere__com__MapIterator it = (it.container = (void *)0, it.pointer = (void *)0, __ecereProp___ecereNameSpace__ecere__com__MapIterator_Set_map(&it, intlStrings), it);
2299 for(c = 1; c < ((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 296)))->argc; c++)
2301 char * file = ((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 296)))->argv[c];
2305 if(!strcmp(file, "-c"))
2312 __ecereNameSpace__ecere__sys__GetExtension(file, ext);
2313 if(!strcmp(ext, "imp"))
2317 for(c = 1; c < ((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 296)))->argc; c++)
2319 char * file = ((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 296)))->argv[c];
2323 if(!strcmp(file, "-c"))
2327 for(c = 1; c < ((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 296)))->argc; c++)
2329 char * file = ((struct __ecereNameSpace__ecere__com__Application *)(((char *)this + 296)))->argv[c];
2333 if(!strcmp(file, "-c"))
2339 char moduleName[797];
2341 __ecereNameSpace__ecere__sys__GetExtension(file, ext);
2342 __ecereNameSpace__ecere__sys__GetLastDirectory(file, moduleName);
2343 __ecereNameSpace__ecere__sys__StripExtension(moduleName);
2344 strcat(moduleName, ".ec");
2345 if(((__ecereNameSpace__ecere__com__GetRuntimePlatform() == 1) ? (strcasecmp) : strcmp)(moduleName, symbolModule) && (!strcmp(ext, "sym") || !strcmp(ext, "ec")))
2347 struct ImportedModule * importedModule;
2348 struct ModuleInfo * module = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_ModuleInfo);
2351 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add(&modules, module);
2352 __ecereNameSpace__ecere__sys__GetLastDirectory(file, fileName);
2353 module->name = __ecereNameSpace__ecere__sys__CopyString(fileName);
2354 __ecereNameSpace__ecere__sys__StripExtension(module->name);
2355 for(importedModule = _defines.first; importedModule; importedModule = importedModule->next)
2357 if(importedModule->type == 0 && !(strcasecmp)(importedModule->name, module->name) && !(importedModule->importType == 2))
2361 module->globalInstance = importedModule->globalInstance;
2364 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));
2365 __ecereMethod___ecereNameSpace__ecere__sys__OldList_AddName(&_defines, importedModule);
2366 module->globalInstance = LoadSymbols(file, 0, 0x0);
2367 CheckDataRedefinitions();
2370 struct __ecereNameSpace__ecere__com__Instance * f;
2372 __ecereNameSpace__ecere__sys__ChangeExtension(file, "bowl", fileName);
2373 f = __ecereNameSpace__ecere__sys__FileOpen(fileName, 1);
2378 char potFileName[797];
2380 strcpy(potFileName, output);
2381 __ecereNameSpace__ecere__sys__StripExtension(potFileName);
2382 __ecereNameSpace__ecere__sys__ChangeExtension(potFileName, "pot", potFileName);
2383 potFile = __ecereNameSpace__ecere__sys__FileOpen(potFileName, 2);
2385 __ecereMethod___ecereNameSpace__ecere__sys__File_Printf(potFile, "# %s\n", moduleName);
2386 while(!((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *))f->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Eof])(f))
2388 char * comment = (((void *)0)), * msgid = (((void *)0)), * msgstr = (((void *)0));
2391 for(c = 0; c < 4; c++)
2393 static char line[65536];
2395 if(__ecereMethod___ecereNameSpace__ecere__sys__File_GetLine(f, line, sizeof line))
2398 comment = __ecereNameSpace__ecere__sys__CopyString(line);
2400 msgid = __ecereNameSpace__ecere__sys__CopyString(line);
2402 msgstr = __ecereNameSpace__ecere__sys__CopyString(line);
2405 if(msgid && !__ecereMethod___ecereNameSpace__ecere__com__Iterator_Index(&it, (uint64)(msgid), 0x0))
2409 struct __ecereNameSpace__ecere__com__Iterator __internalIterator =
2414 __ecereMethod___ecereNameSpace__ecere__com__Iterator_Index(&__internalIterator, (uint64)(((uint64)(msgid))), 0x1);
2415 __ecereProp___ecereNameSpace__ecere__com__Iterator_Set_data(&__internalIterator, comment);
2417 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))potFile->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(potFile, comment);
2418 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))potFile->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(potFile, "\n");
2419 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))potFile->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(potFile, msgid);
2420 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))potFile->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(potFile, "\n");
2421 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))potFile->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(potFile, msgstr);
2422 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))potFile->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(potFile, "\n");
2423 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))potFile->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(potFile, "\n");
2424 (__ecereNameSpace__ecere__com__eSystem_Delete(msgstr), msgstr = 0);
2425 (__ecereNameSpace__ecere__com__eSystem_Delete(comment), comment = 0);
2428 (__ecereNameSpace__ecere__com__eInstance_DecRef(f), f = 0);
2429 ((unsigned int (*)(struct __ecereNameSpace__ecere__com__Instance *, const char * string))potFile->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__sys__File_Puts])(potFile, "\n");
2435 ComputeModuleClasses(privateModule);
2436 if(!isDynamicLibrary)
2438 thisAppClass = SearchAppClass_Module(privateModule);
2441 ((void (*)(struct __ecereNameSpace__ecere__com__Instance *))intlStrings->_vTbl[__ecereVMethodID___ecereNameSpace__ecere__com__Container_Free])(intlStrings);
2442 (__ecereNameSpace__ecere__com__eInstance_DecRef(intlStrings), intlStrings = 0);
2444 (__ecereNameSpace__ecere__com__eInstance_DecRef(potFile), potFile = 0);
2446 FreeContext(theGlobalContext);
2447 FreeExcludedSymbols(&_excludedSymbols);
2448 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Free(&_defines, FreeModuleDefine);
2449 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Free(&_imports, FreeModuleImport);
2450 FreeTypeData(privateModule);
2452 FreeGlobalData(&globalData);
2453 (__ecereNameSpace__ecere__com__eInstance_DecRef(privateModule), privateModule = 0);
2455 SetSymbolsDir((((void *)0)));
2458 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);
2460 extern struct __ecereNameSpace__ecere__com__Instance * __thisModule;
2462 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);
2464 void __ecereRegisterModule_ecs(struct __ecereNameSpace__ecere__com__Instance * module)
2466 struct __ecereNameSpace__ecere__com__Class * class;
2468 class = __ecereNameSpace__ecere__com__eSystem_RegisterClass(5, "ModuleInfo", 0, sizeof(struct ModuleInfo), 0, 0, 0, module, 2, 1);
2469 if(((struct __ecereNameSpace__ecere__com__Module *)(((char *)module + 12)))->application == ((struct __ecereNameSpace__ecere__com__Module *)(((char *)__thisModule + 12)))->application && class)
2470 __ecereClass_ModuleInfo = class;
2471 class = __ecereNameSpace__ecere__com__eSystem_RegisterClass(0, "SymbolgenApp", "ecere::com::Application", 0, 0, 0, 0, module, 2, 1);
2472 if(((struct __ecereNameSpace__ecere__com__Module *)(((char *)module + 12)))->application == ((struct __ecereNameSpace__ecere__com__Module *)(((char *)__thisModule + 12)))->application && class)
2473 __ecereClass_SymbolgenApp = class;
2474 __ecereNameSpace__ecere__com__eClass_AddMethod(class, "Main", 0, __ecereMethod_SymbolgenApp_Main, 1);
2477 void __ecereUnregisterModule_ecs(struct __ecereNameSpace__ecere__com__Instance * module)
2482 int __ecereMethod___ecereNameSpace__ecere__sys__BinaryTree_CompareString(struct __ecereNameSpace__ecere__sys__BinaryTree * this, char * a, char * b);
2484 void __ecereCreateModuleInstances_ecs()
2486 (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);
2487 theGlobalContext = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_Context);
2490 void __ecereDestroyModuleInstances_ecs()
2492 ((theGlobalContext ? (__ecereClass_Context->Destructor ? __ecereClass_Context->Destructor(theGlobalContext) : 0, __ecereNameSpace__ecere__com__eSystem_Delete(theGlobalContext)) : 0), theGlobalContext = 0);