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