3 #if defined(ECERE_BOOTSTRAP)
9 default extern Platform runtimePlatform;
12 public define MAXBYTE = 0xff;
13 public define MAXWORD = 0xffff;
14 public define MININT = ((int)0x80000000);
15 public define MAXINT = ((int)0x7fffffff);
16 public define MININT64 = ((int64)0x8000000000000000LL);
17 public define MAXINT64 = ((int64)0x7fffffffffffffffLL);
18 public define MAXDWORD = 0xffffffff;
19 public define MAXQWORD = 0xffffffffffffffffLL;
20 public define MINFLOAT = ((float)1.17549435082228750e-38);
21 public define MAXFLOAT = ((float)3.40282346638528860e+38);
22 public define MINDOUBLE = ((double) 2.2250738585072014e-308);
23 public define MAXDOUBLE = ((double) 1.7976931348623158e+308);
25 public define FORMAT64HEXLL = (GetRuntimePlatform() == win32) ? "0x%I64XLL" : "0x%llXLL";
26 public define FORMAT64HEX = (GetRuntimePlatform() == win32) ? "0x%I64X" : "0x%llX";
27 public define FORMAT64DLL = (GetRuntimePlatform() == win32) ? "%I64dLL" : "%lldLL";
28 public define FORMAT64D = (GetRuntimePlatform() == win32) ? "%I64d" : "%lld";
29 public define FORMAT64U = (GetRuntimePlatform() == win32) ? "%I64u" : "%llu";
31 #define PUTXWORD(b, w) \
32 (b)[0] = (byte)(((w) >> 8) & 0xFF); \
33 (b)[1] = (byte)(((w) ) & 0xFF);
35 #define GETXWORD(b) (uint16)(((b)[0] << 8) | (b)[1])
37 #define PUTXDWORD(b, d) \
38 (b)[0] = (byte)(((d) >> 24) & 0xFF); \
39 (b)[1] = (byte)(((d) >> 16) & 0xFF); \
40 (b)[2] = (byte)(((d) >> 8) & 0xFF); \
41 (b)[3] = (byte)( (d) & 0xFF);
43 #define GETXDWORD(b) (uint32)(((b)[0] << 24) | ((b)[1] << 16) | ((b)[2] << 8) | (b)[3])
45 #define PUTXQWORD(b, d) \
46 (b)[0] = (byte)(((d) >> 56) & 0xFF); \
47 (b)[1] = (byte)(((d) >> 48) & 0xFF); \
48 (b)[2] = (byte)(((d) >> 40) & 0xFF); \
49 (b)[3] = (byte)(((d) >> 32) & 0xFF); \
50 (b)[4] = (byte)(((d) >> 24) & 0xFF); \
51 (b)[5] = (byte)(((d) >> 16) & 0xFF); \
52 (b)[6] = (byte)(((d) >> 8) & 0xFF); \
53 (b)[7] = (byte)( (d) & 0xFF);
55 #define GETXQWORD(b) (uint64)(((uint64)(b)[0] << 56) | ((uint64)(b)[1] << 48) | ((uint64)(b)[2] << 40) | ((uint64)(b)[3] << 32) | ((uint64)(b)[4] << 24) | ((b)[5] << 16) | ((b)[6] << 8) | (b)[7])
57 static void UnusedFunction()
65 a.OnEdit(null,null,0,0,0,20,0);
66 a.OnGetDataFromString(null);
75 FILE *eC_stdout(void);
76 FILE *eC_stderr(void);
78 bool Float_isNan(float n);
79 bool Float_isInf(float n);
80 int Float_signBit(float n);
81 float Float_nan(void);
82 float Float_inf(void);
84 bool Double_isNan(double n);
85 bool Double_isInf(double n);
86 int Double_signBit(double n);
87 double Double_nan(void);
88 double Double_inf(void);
90 extern int __ecereVMethodID_class_OnGetString;
91 extern int __ecereVMethodID_class_OnGetDataFromString;
92 extern int __ecereVMethodID_class_OnCompare;
93 extern int __ecereVMethodID_class_OnSerialize;
94 extern int __ecereVMethodID_class_OnUnserialize;
95 extern int __ecereVMethodID_class_OnCopy;
98 #if defined(ECERE_BOOTSTRAP) || defined(ECERE_STATIC)
102 // TOFIX: Declaration ordering (Required on gcc 3.4.5)
103 dllexport void eSystem_Delete(void * memory);
105 public class IOChannel
108 virtual uint WriteData(byte * data, uint numBytes);
109 virtual uint ReadData(byte * data, uint numBytes);
111 dllexport void Serialize(typed_object data)
113 data.OnSerialize(this);
116 dllexport void Unserialize(typed_object & data)
118 data.OnUnserialize(this);
121 dllexport void Put(typed_object data)
123 data.OnSerialize(this);
126 dllexport void Get(typed_object & data)
128 data.OnUnserialize(this);
132 public class SerialBuffer : IOChannel
140 uint WriteData(byte * bytes, uint numBytes)
144 if(count + numBytes > _size)
146 _size = count + numBytes;
148 _buffer = renew _buffer byte[_size];
150 memcpy(_buffer + count, bytes, numBytes);
157 uint ReadData(byte * bytes, uint numBytes)
161 int read = Min(numBytes, count - pos);
162 memcpy(bytes, _buffer + pos, read);
174 dllexport void Free()
185 // TODO: THIS IS VERY BAD!
186 property byte * buffer
188 get { return _buffer + pos; }
189 set { _buffer = value; }
194 get { return count - pos; }
195 set { count = value; }
199 /*static */char * Enum_OnGetString(Class _class, int * data, char * tempString, void * fieldData, bool * needClass)
201 NamedLink item = null;
203 for(b = _class; !item && b && b.type == enumClass; b = b.base)
205 EnumClassData enumeration = (EnumClassData)b.data;
206 for(item = enumeration.values.first; item; item = item.next)
207 if((int)item.data == *data)
212 strcpy(tempString, item.name);
213 if(!needClass || !*needClass)
214 tempString[0] = (char)toupper(tempString[0]);
222 static bool Enum_OnGetDataFromString(Class _class, int * data, char * string)
224 NamedLink item = null;
226 for(b = _class; !item && b && b.type == enumClass; b = b.base)
228 EnumClassData enumeration = (EnumClassData)_class.data;
229 for(item = enumeration.values.first; item; item = item.next)
231 if(item.name && !strcmpi(item.name, string))
237 *data = (int)item.data;
241 return Integer_OnGetDataFromString(_class, data, string);
245 static void OnFree(Class _class, void * data)
247 if(_class.templateClass) _class = _class.templateClass;
248 if(_class.type == normalClass)
250 // eInstance_Delete(data);
251 eInstance_DecRef(data);
253 else if(_class.type == noHeadClass && data)
255 while(_class && _class.type == noHeadClass)
257 if(_class.Destructor)
258 _class.Destructor(data);
259 _class = _class.base;
265 static int DataMember_OnCompare(DataMember parentMember, void * data1, void * data2)
268 Module module = parentMember._class.module;
269 for(member = parentMember.members.first; member; member = member.next)
271 int memberResult = 0;
272 if(member.type == normalMember)
274 Class memberType = member.dataTypeClass;
277 memberType = member.dataTypeClass = eSystem_FindClass(module, member.dataTypeString);
279 memberType = member.dataTypeClass = eSystem_FindClass(module, "int");
281 if(memberType.type == structClass || memberType.type == normalClass || memberType.type == noHeadClass)
283 memberResult = ((int (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnCompare])(memberType,
284 (byte *)data1 + member.offset,
285 (byte *)data2 + member.offset);
291 DataValue value1, value2;
292 value1.i = *(int *)((byte *)data1 + member.offset);
293 value2.i = *(int *)((byte *)data2 + member.offset);
294 memberResult = ((int (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnCompare])(memberType, &value1, &value2);
301 memberResult = DataMember_OnCompare(member,
302 (byte *)data1 + member.offset,
303 (byte *)data2 + member.offset);
311 static int OnCompare(Class _class, void * data1, void * data2)
313 Module module = _class.module;
314 if(_class.type == normalClass || _class.type == noHeadClass || _class.type == structClass)
318 // NOTE: Comparing from top class down here... might want to reverse it
319 for(; _class && _class.type != systemClass; _class = _class.base)
323 // TESTING THIS HERE...
324 if(_class.noExpansion)
326 if(data1 > data2) return 1;
327 else if(data1 < data2) return -1;
332 for(member = _class.membersAndProperties.first; member; member = member.next)
334 int memberResult = 0;
335 if(member.id < 0) continue;
336 if(member.isProperty || member.type == normalMember)
338 Class memberType = member.dataTypeClass;
341 memberType = member.dataTypeClass = eSystem_FindClass(module, member.dataTypeString);
344 memberType = member.dataTypeClass = eSystem_FindClass(module, "int");
348 if(member.isProperty)
350 Property prop = (Property)member;
351 if(!prop.conversion && prop.Get && prop.Set)
353 if(memberType.type == structClass || memberType.type == normalClass || memberType.type == noHeadClass)
355 if(!strcmp(memberType.dataTypeString, "char *"))
357 String a = ((String(*)(void *))(void *)prop.Get)(data1);
358 String b = ((String(*)(void *))(void *)prop.Get)(data2);
359 memberResult = ((int (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnCompare])(memberType, a, b);
364 DataValue value1, value2;
365 if(!strcmp(memberType.dataTypeString, "float"))
367 value1.f = ((float(*)(void *))(void *)prop.Get)(data1);
368 value2.f = ((float(*)(void *))(void *)prop.Get)(data2);
372 value1.i = ((int(*)(void*))(void *)prop.Get)(data1);
373 value2.i = ((int(*)(void*))(void *)prop.Get)(data2);
375 memberResult = ((int (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnCompare])(memberType, &value1, &value2);
381 if(memberType.type == structClass || memberType.type == normalClass || memberType.type == noHeadClass)
383 if(memberType.type == normalClass || memberType.type == noHeadClass)
386 memberResult = ((int (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnCompare])(memberType,
387 *(void **)((byte *)data1 + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset)),
388 *(void **)((byte *)data2 + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset)));
392 memberResult = ((int (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnCompare])(memberType,
393 (byte *)data1 + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset),
394 (byte *)data2 + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset));
399 DataValue value1, value2;
400 if(memberType.typeSize == 8)
402 value1.ui64 = *(uint64 *)((byte *)data1 + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset));
403 value2.ui64 = *(uint64 *)((byte *)data2 + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset));
407 value1.i = *(int *)((byte *)data1 + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset));
408 value2.i = *(int *)((byte *)data2 + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset));
410 memberResult = ((int (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnCompare])(memberType, &value1, &value2);
416 // printf("Unknown type\n");
421 memberResult = DataMember_OnCompare(member,
422 (byte *)data1 + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset),
423 (byte *)data2 + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset));
430 else if(!data1 && data2)
432 else if(data1 && !data2)
435 else if(_class.type == unitClass)
437 Class dataType = eSystem_FindClass(module, _class.dataTypeString);
438 return ((int (*)(void *, void *, void *))(void *)dataType._vTbl[__ecereVMethodID_class_OnCompare])(dataType, data1, data2);
445 if(_class.typeSize == 8)
447 if(*(uint64 *)data1 > *(uint64 *)data2)
449 else if(*(uint64 *)data1 < *(uint64 *)data2)
454 if(*(uint *)data1 > *(uint *)data2)
456 else if(*(uint *)data1 < *(uint *)data2)
460 else if(!data1 && data2)
462 else if(data1 && !data2)
469 static char * OnGetString(Class _class, void * data, char * tempString, void * fieldData, bool * needClass)
471 // WHY DOES _class.module NOT SEEM TO WORK?
472 Module module = _class.templateClass ? _class.templateClass.module : _class.module;
473 if(_class.type == normalClass && _class.base && !_class.base.base)
475 if(sizeof(uintsize) == 8)
476 return UInt64Hex_OnGetString(_class, (void *)&data, tempString, fieldData, needClass);
478 return UIntegerHex_OnGetString(_class, (void *)&data, tempString, fieldData, needClass);
480 else if(_class.type == enumClass)
482 return Enum_OnGetString(_class, data, tempString, fieldData, needClass);
484 else if(_class.type == unitClass)
488 for(prop = _class.conversions.first; prop; prop = prop.next)
490 bool refProp = false;
492 if(!strcmp(prop.name, _class.base.fullName))
494 else if( (c = eSystem_FindClass(_class.module, prop.name) ) )
497 for(p = c.conversions.first; p; p = p.next)
499 if(!strcmp(p.name, _class.base.fullName) && !p.Set && !p.Get)
508 if(prop.Set && prop.Get)
510 String dts = _class.base.dataTypeString;
511 if(!strcmp(dts, "double"))
513 double d = ((double(*)(double))(void *)prop.Set)(*(double *)data);
514 return ((char *(*)(void *, void *, char *, void *, bool *))(void *)class(double)._vTbl[__ecereVMethodID_class_OnGetString])(class(double), &d, tempString, fieldData, needClass);
516 else if(!strcmp(dts, "float"))
518 float d = ((float(*)(float))(void *)prop.Set)(*(float *)data);
519 return ((char *(*)(void *, void *, char *, void *, bool *))(void *)class(float)._vTbl[__ecereVMethodID_class_OnGetString])(class(float), &d, tempString, fieldData, needClass);
521 else if(!strcmp(dts, "int"))
523 int d = ((int(*)(int))(void *)prop.Set)(*(int *)data);
524 return ((char *(*)(void *, void *, char *, void *, bool *))(void *)class(int)._vTbl[__ecereVMethodID_class_OnGetString])(class(int), &d, tempString, fieldData, needClass);
526 else if(!strcmp(dts, "int64"))
528 int64 d = ((int64(*)(int64))(void *)prop.Set)(*(int64 *)data);
529 return ((char *(*)(void *, void *, char *, void *, bool *))(void *)class(int64)._vTbl[__ecereVMethodID_class_OnGetString])(class(int64), &d, tempString, fieldData, needClass);
536 dataType = eSystem_FindClass(module, _class.dataTypeString);
537 return ((char *(*)(void *, void *, char *, void *, bool *))(void *)dataType._vTbl[__ecereVMethodID_class_OnGetString])(dataType, data, tempString, fieldData, needClass);
541 bool atMember = true;
543 Class mainClass = _class;
545 tempString[0] = '\0';
546 if(!data && (mainClass.type == normalClass || mainClass.type == noHeadClass)) return tempString;
548 while(_class != mainClass)
551 Class lastClass = _class;
553 for(_class = mainClass; _class.base != lastClass && _class.base.type != systemClass; _class = _class.base);
555 for(member = _class.membersAndProperties.first; member; member = member.next)
557 char memberString[1024];
558 Class memberType = member.dataTypeClass;
559 char * name = member.name;
560 if(member.id < 0) continue;
565 memberType = member.dataTypeClass = eSystem_FindClass(module, member.dataTypeString);
567 memberType = member.dataTypeClass = eSystem_FindClass(module, "int");
569 if(member.isProperty)
571 Property prop = (Property) member;
573 if(!prop.conversion && prop.Get && prop.Set && (!prop.IsSet || prop.IsSet(data)))
575 if(memberType.type != structClass && (memberType.type != normalClass || !strcmp(memberType.dataTypeString, "char *")) && memberType.type != bitClass && data)
577 DataValue value = { 0 };
578 if(!strcmp(prop.dataTypeString, "float"))
580 value.f = ((float(*)(void *))(void *)prop.Get)(data);
583 bool needClass = true;
584 char * result = ((char *(*)(void *, void *, char *, void *, bool *))(void *)memberType._vTbl[__ecereVMethodID_class_OnGetString])(memberType, &value, memberString, null, &needClass);
585 if(result && result != memberString)
586 strcpy(memberString, result);
588 if(strchr(memberString, '.'))
589 strcat(memberString, "f");
592 else if(memberType.type == normalClass || memberType.type == noHeadClass)
594 value.p = ((void *(*)(void *))(void *)prop.Get)(data);
595 if(value.p || prop.IsSet)
597 bool needClass = true;
598 char * result = ((char *(*)(void *, void *, char *, void *, bool *))(void *)memberType._vTbl[__ecereVMethodID_class_OnGetString])(memberType,
599 (memberType.type == normalClass) ? value.p : &value, memberString, null, &needClass);
600 if(result && result != memberString)
601 strcpy(memberString, result);
606 value.i = ((int(*)(void *))(void *)prop.Get)(data);
607 if(value.i || prop.IsSet)
609 bool needClass = true;
610 char * result = ((char *(*)(void *, void *, char *, void *, bool *))(void *)memberType._vTbl[__ecereVMethodID_class_OnGetString])(memberType, &value, memberString, null, &needClass);
611 if(result && result != memberString)
612 strcpy(memberString, result);
620 if(member.type == normalMember)
622 if(memberType.type == structClass || memberType.type == normalClass)
624 char internalMemberString[1024];
625 byte * memberData = ((byte *)data + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset));
627 uint typeSize = (memberType.type == normalClass) ? memberType.typeSize : memberType.structSize;
628 for(c = 0; c < typeSize; c++)
633 bool needClass = true;
635 if(memberType.type == normalClass)
636 result = ((char *(*)(void *, void *, char *, void *, bool *))(void *)memberType._vTbl[__ecereVMethodID_class_OnGetString])(memberType, *(Instance *)memberData, internalMemberString, null, &needClass);
638 result = ((char *(*)(void *, void *, char *, void *, bool *))(void *)memberType._vTbl[__ecereVMethodID_class_OnGetString])(memberType, memberData, internalMemberString, null, &needClass);
639 if(needClass && strcmp(memberType.dataTypeString, "char *"))
641 //strcpy(memberString, memberType.name);
642 strcat(memberString, "{ ");
643 if(result) strcat(memberString, result);
644 strcat(memberString, " }");
647 strcpy(memberString, result);
650 //else if(_class /*memberType*/.type != bitClass)
651 else // if(_class /*memberType*/.type != bitClass)
653 DataValue value = { 0 };
654 if(_class.type == bitClass)
656 BitMember bitMember = (BitMember) member;
657 // TODO: Check if base type is 32 or 64 bit
659 //value.ui = (((uint)data & bitMember.mask) >> bitMember.pos);
660 value.ui64 = ((*(uint*)data & bitMember.mask) >> bitMember.pos);
663 bool needClass = true;
664 char internalMemberString[1024];
665 char * result = ((char *(*)(void *, void *, char *, void *, bool *))(void *)memberType._vTbl[__ecereVMethodID_class_OnGetString])(memberType, &value, internalMemberString, null, &needClass);
667 if(needClass && memberType.type != systemClass && memberType.type != enumClass && memberType.type != unitClass)
669 //strcpy(memberString, memberType.name);
670 strcat(memberString, " { ");
671 if(result) strcat(memberString, result);
672 strcat(memberString, " }");
675 strcpy(memberString, result);
677 if(result && memberString != result)
678 strcpy(memberString, result);
682 else if(!memberType.noExpansion)
684 // TOCHECK: Is this still right??
685 if(memberType.typeSize <= 4)
687 value.i = *(int *)((byte *)data + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset));
690 bool needClass = true;
691 char * result = ((char *(*)(void *, void *, char *, void *, bool *))(void *)memberType._vTbl[__ecereVMethodID_class_OnGetString])(memberType, &value, memberString, null, &needClass);
692 if(result && memberString != result)
693 strcpy(memberString, result);
698 bool needClass = true;
699 char * result = ((char *(*)(void *, void *, char *, void *, bool *))(void *)memberType._vTbl[__ecereVMethodID_class_OnGetString])(memberType, ((byte *)data + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset)), memberString, null, &needClass);
700 if(result && memberString != result)
701 strcpy(memberString, result);
707 char internalMemberString[1024];
708 byte * memberData = ((byte *)data + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset));
709 bool needClass = true;
711 result = ((char *(*)(void *, void *, char *, void *, bool *))(void *)memberType._vTbl[__ecereVMethodID_class_OnGetString])(memberType, memberData, internalMemberString, null, &needClass);
714 //strcpy(memberString, memberType.name);
715 strcat(memberString, "{ ");
716 if(result) strcat(memberString, result);
717 strcat(memberString, " }");
720 strcpy(memberString, result);
726 // TODO: Fix atID stuff
730 strcat(tempString, ", ");
731 if(!atMember || !strcmp(memberType.name, "bool"))
733 strcat(tempString, name);
734 strcat(tempString, " = ");
737 if(!strcmp(memberType.name, "char *"))
739 int len = strlen(tempString);
741 strcat(tempString, "\"");
743 for(c = 0; memberString[c]; c++)
745 if(memberString[c] == '\"')
747 strcat(tempString, "\\\"");
750 else if(memberString[c] == '\\')
752 strcat(tempString, "\\\\");
757 tempString[len++] = memberString[c];
761 strcat(tempString, "\"");
764 strcat(tempString, memberString);
769 else if(member && (!member.isProperty || !((Property)member).conversion))
777 static bool OnGetDataFromString(Class _class, void ** data, char * string)
780 Module module = _class.module;
781 if(_class.type == enumClass)
782 result = Enum_OnGetDataFromString(_class, (int *)data, string);
783 else if(_class.type == unitClass)
787 for(prop = _class.conversions.first; prop; prop = prop.next)
789 bool refProp = false;
791 if(!strcmp(prop.name, _class.base.fullName))
793 else if( (c = eSystem_FindClass(_class.module, prop.name) ) )
796 for(p = c.conversions.first; p; p = p.next)
798 if(!strcmp(p.name, _class.base.fullName) && !p.Set && !p.Get)
807 if(prop.Set && prop.Get)
809 String dts = _class.base.dataTypeString;
810 if(!strcmp(dts, "double"))
813 bool result = ((bool (*)(void *, void *, const char *))(void *)class(double)._vTbl[__ecereVMethodID_class_OnGetDataFromString])(class(double), &d, string);
814 *(double *)data =((double(*)(double))(void *)prop.Get)(d);
817 else if(!strcmp(dts, "float"))
820 bool result = ((bool (*)(void *, void *, const char *))(void *)class(float)._vTbl[__ecereVMethodID_class_OnGetDataFromString])(class(float), &d, string);
821 *(float *)data = ((float(*)(float))(void *)prop.Get)(d);
824 else if(!strcmp(dts, "int"))
827 bool result = ((bool (*)(void *, void *, const char *))(void *)class(int)._vTbl[__ecereVMethodID_class_OnGetDataFromString])(class(int), &d, string);
828 *(int *)data = ((int(*)(int))(void *)prop.Get)(d);
831 else if(!strcmp(dts, "int64"))
834 bool result = ((bool (*)(void *, void *, const char *))(void *)class(int64)._vTbl[__ecereVMethodID_class_OnGetDataFromString])(class(int64), &d, string);
835 *(int64 *)data = ((int64(*)(int64))(void *)prop.Get)(d);
843 dataType = eSystem_FindClass(module, _class.dataTypeString);
844 return ((bool (*)(void *, void *, const char *))(void *)dataType._vTbl[__ecereVMethodID_class_OnGetDataFromString])(dataType, data, string);
846 else if(!string[0] && _class.type == normalClass)
848 // result = false; // Why was this data = null commented?
855 char memberName[1024];
856 char memberString[10240];
864 Class curClass = null;
865 DataMember curMember = null;
866 DataMember subMemberStack[256];
867 int subMemberStackPos = 0;
871 if(_class.type == noHeadClass || _class.type == normalClass)
873 data = *data = eInstance_New(_class);
874 if(_class.type == normalClass)
875 ((Instance)data)._refCount++;
877 else if(/*_class.type == noHeadClass || */_class.type == structClass)
878 memset(data, 0, _class.structSize);
879 // Bit classes cleared outside?
881 memberName[0] = '\0';
883 for(c = 0; string[c] && count < sizeof(memberString); )
886 DataMember thisMember = null;
890 for(; (ch = string[c]) && count < sizeof(memberString); c++)
892 if(ch == '\"' && !escape)
898 if(!escape && ch == '\\')
904 memberString[count++] = ch;
908 // TOFIX: OnGetDataFromString is far from ready as a generic object notation reader...
909 // It has mostly been tested/used for entering data in the IDE's property sheet, as well as for parsing code in the Code Editor
910 // Is it used by the compiler?
911 else if(ch == ' ') // || ch == '\n' || ch == '\t' || ch == '\r')
914 memberString[count++] = ch;
920 memberString[count++] = ch;
930 // If bracket is not initialization
931 if(gotChar && !brackets)
939 memberString[count++] = ch;
950 memberString[count++] = ch;
957 memberString[count++] = ch;
961 memberString[count] = '\0';
962 //TrimLSpaces(memberString, memberName);
963 //TrimRSpaces(memberName, memberString);
964 //strcpy(memberName, memberString);
966 TrimRSpaces(memberString, memberName);
973 memberString[count++] = ch;
978 memberString[count] = '\0';
979 TrimRSpaces(memberString, memberString);
983 DataMember _subMemberStack[256];
984 int _subMemberStackPos = 0;
986 thisMember = eClass_FindDataMemberAndOffset(_class, memberName, &memberOffset, _class.module, _subMemberStack, &_subMemberStackPos);
989 thisMember = (DataMember)eClass_FindProperty(_class, memberName, _class.module);
992 if(thisMember.memberAccess == publicAccess)
994 curMember = thisMember;
995 curClass = thisMember._class;
996 memcpy(subMemberStack, _subMemberStack, sizeof(int) * _subMemberStackPos);
997 subMemberStackPos = _subMemberStackPos;
1004 eClass_FindNextMember(_class, &curClass, (DataMember *)&curMember, subMemberStack, &subMemberStackPos);
1005 thisMember = curMember;
1009 eClass_FindDataMemberAndOffset(_class, thisMember.name, &memberOffset, _class.module, null, null);
1014 Class memberType = thisMember.dataTypeClass;
1017 memberType = thisMember.dataTypeClass = eSystem_FindClass(module, thisMember.dataTypeString);
1019 memberType = thisMember.dataTypeClass = eSystem_FindClass(module, "int");
1020 if(memberType.type == structClass)
1024 if(!((bool (*)(void *, void *, const char *))(void *)memberType._vTbl[__ecereVMethodID_class_OnGetDataFromString])(memberType,
1025 (byte *)data + (((thisMember._class.type == normalClass) ? thisMember._class.offset : 0) + memberOffset), memberString))
1031 DataValue value = { 0 };
1032 // Patch for hotKey crash ( #556 )
1033 // Key has a member KeyCode, which inherits from Key
1034 // We don't want KeyCode to use its base class OnGetDataFromString
1035 if(memberType._vTbl[__ecereVMethodID_class_OnGetDataFromString] == _class._vTbl[__ecereVMethodID_class_OnGetDataFromString])
1037 if(!OnGetDataFromString(memberType, &value, memberString))
1040 else if(!((bool (*)(void *, void *, const char *))(void *)memberType._vTbl[__ecereVMethodID_class_OnGetDataFromString])(memberType, &value, memberString))
1042 if(thisMember && !thisMember.isProperty)
1044 if(_class.type == bitClass)
1046 BitMember bitMember = (BitMember) thisMember;
1047 // TODO: Check if bit _class is 32 or 64 bit
1048 *(uint *)data = (uint32)(((*(uint *)data & ~bitMember.mask)) | ((value.ui64<<bitMember.pos)&bitMember.mask));
1051 *(int *)((byte *)data + (((thisMember._class.type == normalClass) ? thisMember._class.offset : 0) + thisMember.offset)) = value.i;
1053 else if(thisMember.isProperty && ((Property)thisMember).Set)
1055 if(memberType.type == noHeadClass || memberType.type == normalClass || memberType.type == structClass)
1056 ((void (*)(void *, void *))(void *)((Property)thisMember).Set)(data, value.p);
1058 ((void (*)(void *, int))(void *)((Property)thisMember).Set)(data, value.i);
1066 memberName[0] = '\0';
1072 static void OnCopy(Class _class, void ** data, void * newData)
1074 // TO IMPROVE: Inherit from Unit class for better performance?
1075 if(_class.type == unitClass || _class.type == bitClass || _class.type == enumClass)
1077 Class dataType = eSystem_FindClass(_class.module, _class.dataTypeString);
1079 ((void (*)(void *, void *, void *))(void *)dataType._vTbl[__ecereVMethodID_class_OnCopy])(dataType, data, newData);
1081 else if(_class.type != structClass && (_class.type != systemClass || _class.byValueSystemClass))
1085 // Here we have either a structClass or a systemClass
1087 memcpy(data, newData, _class.typeSize);
1089 memset(data, 0, _class.typeSize);
1092 static int DataMember_OnSerialize(DataMember parentMember, void * data, IOChannel channel)
1095 Module module = parentMember._class.module;
1096 for(member = parentMember.members.first; member; member = member.next)
1098 if(member.type == normalMember)
1100 Class memberType = member.dataTypeClass;
1103 memberType = member.dataTypeClass = eSystem_FindClass(module, member.dataTypeString);
1105 memberType = member.dataTypeClass = eSystem_FindClass(module, "int");
1107 if(memberType.type == structClass || memberType.type == normalClass || memberType.type == noHeadClass)
1109 ((void (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnSerialize])(memberType, (byte *)data + member.offset, channel);
1114 value.i = *(int *)((byte *)data + member.offset);
1115 ((void (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnSerialize])(memberType, &value, channel);
1120 DataMember_OnSerialize(member, (byte *)data + member.offset, channel);
1126 static void OnSerialize(Class _class, void * data, IOChannel channel)
1128 Module module = _class.module;
1129 // TO IMPROVE: Inherit from Unit class for better performance?
1130 if(_class.type == unitClass || _class.type == bitClass || _class.type == enumClass)
1132 Class dataType = eSystem_FindClass(module, _class.dataTypeString);
1134 ((void (*)(void *, void *, void *))(void *)dataType._vTbl[__ecereVMethodID_class_OnSerialize])(dataType, data, channel);
1136 else if(_class.type == normalClass || _class.type == noHeadClass || _class.type == structClass)
1140 Class lastClass = null;
1141 while(lastClass != _class)
1145 for(c = _class; c && (!c.base || c.base.type != systemClass) && c.base != lastClass; c = c.base);
1148 for(member = c.membersAndProperties.first; member; member = member.next)
1150 if(member.id < 0) continue;
1151 if(member.isProperty || member.type == normalMember)
1153 Class memberType = member.dataTypeClass;
1156 memberType = member.dataTypeClass = eSystem_FindClass(module, member.dataTypeString);
1159 if(member.isProperty)
1161 /*Property prop = (Property)member;
1162 if(!prop.conversion && prop.Get && prop.Set)
1164 if(memberType.type == structClass || memberType.type == normalClass || memberType.type == noHeadClass)
1171 if(!strcmp(memberType.dataTypeString, "float"))
1173 value.f = ((float(*)())(void *)prop.Get)(data);
1177 value.i = prop.Get(data);
1179 ((void (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnSerialize])(memberType, &value, channel);
1185 if(!strcmp(memberType.name, "String") || memberType.type == normalClass || memberType.type == noHeadClass)
1187 ((void (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnSerialize])(memberType, data ? (*(void **)((byte *)data + member._class.offset + member.offset)) : null, channel);
1190 ((void (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnSerialize])(memberType, data ? (((byte *)data + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset))) : null, channel);
1195 // printf("Unknown type\n");
1200 DataMember_OnSerialize(member, data ? ((byte *)data + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset)) : null, channel);
1208 static int DataMember_OnUnserialize(DataMember parentMember, void * data, IOChannel channel)
1211 Module module = parentMember._class.module;
1212 for(member = parentMember.members.first; member; member = member.next)
1214 if(member.type == normalMember)
1216 Class memberType = member.dataTypeClass;
1219 memberType = member.dataTypeClass = eSystem_FindClass(module, member.dataTypeString);
1221 memberType = member.dataTypeClass = eSystem_FindClass(module, "int");
1223 if(memberType.type == structClass || memberType.type == normalClass || memberType.type == noHeadClass)
1225 ((void (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnUnserialize])(memberType, (byte *)data + member.offset, channel);
1230 ((void (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnUnserialize])(memberType, &value, channel);
1231 *(int *)((byte *)data + member.offset) = value.i;
1236 DataMember_OnUnserialize(member, (byte *)data + member.offset, channel);
1242 static void OnUnserialize(Class _class, void ** data, IOChannel channel)
1244 Module module = _class.module;
1245 if(_class.type == unitClass || _class.type == bitClass || _class.type == enumClass)
1247 Class dataType = eSystem_FindClass(module, _class.dataTypeString);
1249 ((void (*)(void *, void *, void *))(void *)dataType._vTbl[__ecereVMethodID_class_OnUnserialize])(dataType, data, channel);
1251 else if(_class.type == normalClass || _class.type == noHeadClass || _class.type == structClass)
1255 Class lastClass = null;
1256 if(_class.type == normalClass || _class.type == noHeadClass)
1258 // TOFIX: Seriously!?!?? Fix me!
1259 data = *data = eInstance_New(_class);
1260 if(_class.type == normalClass)
1261 ((Instance)data)._refCount++;
1263 else if(/*_class.type == noHeadClass || */_class.type == structClass)
1264 memset(data, 0, _class.structSize);
1266 while(lastClass != _class)
1270 for(c = _class; c && (!c.base || c.base.type != systemClass) && c.base != lastClass; c = c.base);
1273 for(member = c.membersAndProperties.first; member; member = member.next)
1275 if(member.id < 0) continue;
1276 if(member.isProperty || member.type == normalMember)
1278 Class memberType = member.dataTypeClass;
1281 memberType = member.dataTypeClass = eSystem_FindClass(module, member.dataTypeString);
1284 if(member.isProperty)
1286 /*Property prop = (Property)member;
1287 if(!prop.conversion && prop.Get && prop.Set)
1289 if(memberType.type == structClass || memberType.type == normalClass || memberType.type == noHeadClass)
1296 ((void (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnUnserialize])(memberType, &value, channel);
1297 prop.Set(data, value.i);
1302 ((void (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnUnserialize])(memberType,
1303 (byte *)data + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset), channel);
1307 // printf("Unknown type\n");
1312 DataMember_OnUnserialize(member, (byte *)data + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset), channel);
1321 static int Integer_OnCompare(Class _class, int * data1, int * data2)
1324 if(!data1 && !data2) result = 0;
1325 else if(data1 && !data2) result = 1;
1326 else if(!data1 && data2) result = -1;
1327 else if(*data1 > *data2) result = 1;
1328 else if(*data1 < *data2) result = -1;
1332 /*static */char * Integer_OnGetString(Class _class, int * data, char * string, void * fieldData, bool * needClass)
1334 sprintf(string, "%d", *data);
1338 static bool Integer_OnGetDataFromString(Class _class, int * data, char * string)
1341 int result = strtol(string, &end, 0);
1351 static char * Int16_OnGetString(Class _class, short * data, char * string, void * fieldData, bool * needClass)
1353 sprintf(string, "%d", (int)*data);
1357 static bool Int16_OnGetDataFromString(Class _class, short * data, char * string)
1360 short result = (short)strtol(string, &end, 0);
1370 static int Int16_OnCompare(Class _class, short * data1, short * data2)
1373 if(!data1 && !data2) result = 0;
1374 else if(data1 && !data2) result = 1;
1375 else if(!data1 && data2) result = -1;
1376 else if(*data1 > *data2) result = 1;
1377 else if(*data1 < *data2) result = -1;
1381 static int UInteger_OnCompare(Class _class, unsigned int * data1, unsigned int * data2)
1384 if(!data1 && !data2) result = 0;
1385 else if(data1 && !data2) result = 1;
1386 else if(!data1 && data2) result = -1;
1387 else if(*data1 > *data2) result = 1;
1388 else if(*data1 < *data2) result = -1;
1392 static char * UInteger_OnGetString(Class _class, unsigned int * data, char * string, void * fieldData, bool * needClass)
1394 sprintf(string, "%u", *data);
1398 static int UInt16_OnCompare(Class _class, uint16 * data1, unsigned int * data2)
1401 if(!data1 && !data2) result = 0;
1402 else if(data1 && !data2) result = 1;
1403 else if(!data1 && data2) result = -1;
1404 else if(*data1 > *data2) result = 1;
1405 else if(*data1 < *data2) result = -1;
1409 static char * UInt16_OnGetString(Class _class, uint16 * data, char * string, void * fieldData, bool * needClass)
1411 sprintf(string, "%u", (uint)*data);
1416 static char * UIntegerHex_OnGetString(Class _class, unsigned int * data, char * string, void * fieldData, bool * needClass)
1418 sprintf(string, "%x", *data);
1422 static bool UInteger_OnGetDataFromString(Class _class, unsigned int * data, char * string)
1425 uint result = (uint)strtoul(string, &end, 0);
1434 static bool UInt16_OnGetDataFromString(Class _class, uint16 * data, char * string)
1437 uint16 result = (uint16)strtoul(string, &end, 0);
1446 static int Byte_OnCompare(Class _class, byte * data1, byte * data2)
1449 if(!data1 && !data2) result = 0;
1450 else if(data1 && !data2) result = 1;
1451 else if(!data1 && data2) result = -1;
1452 else if(*data1 > *data2) result = 1;
1453 else if(*data1 < *data2) result = -1;
1457 static char * Byte_OnGetString(Class _class, byte * data, char * string, void * fieldData, bool * needClass)
1459 sprintf(string, "%u", (int)*data);
1463 static char * Char_OnGetString(Class _class, char * data, char * string, void * fieldData, bool * needClass)
1465 if(needClass && *needClass)
1468 if(ch == '\t') strcpy(string, "'\t'");
1469 else if(ch == '\n') strcpy(string, "'\n'");
1470 else if(ch == '\r') strcpy(string, "'\r'");
1471 else if(ch == '\a') strcpy(string, "'\a'");
1472 else if(ch == '\\') strcpy(string, "'\\'");
1473 else if(ch < 32 || ch >= 127) sprintf(string, "'\o'", ch);
1474 else sprintf(string, "'%c'", ch);
1477 sprintf(string, "%c", *data);
1481 static bool Byte_OnGetDataFromString(Class _class, byte * data, char * string)
1484 byte result = (byte)strtoul(string, &end, 0);
1493 static int Int64_OnCompare(Class _class, int64 * data1, int64 * data2)
1496 if(!data1 && !data2) result = 0;
1497 else if(data1 && !data2) result = 1;
1498 else if(!data1 && data2) result = -1;
1499 else if(*data1 > *data2) result = 1;
1500 else if(*data1 < *data2) result = -1;
1504 static int UInt64_OnCompare(Class _class, uint64 * data1, uint64 * data2)
1507 if(!data1 && !data2) result = 0;
1508 else if(data1 && !data2) result = 1;
1509 else if(!data1 && data2) result = -1;
1510 else if(*data1 > *data2) result = 1;
1511 else if(*data1 < *data2) result = -1;
1515 static int IntPtr64_OnCompare(Class _class, int64 data1, int64 data2)
1518 if(data1 > data2) result = 1;
1519 else if(data1 < data2) result = -1;
1523 static int IntPtr32_OnCompare(Class _class, int data1, int data2)
1526 if(data1 > data2) result = 1;
1527 else if(data1 < data2) result = -1;
1531 static int UIntPtr64_OnCompare(Class _class, uint64 data1, uint64 data2)
1534 if(data1 > data2) result = 1;
1535 else if(data1 < data2) result = -1;
1539 static int UIntPtr32_OnCompare(Class _class, uint32 data1, uint32 data2)
1542 if(data1 > data2) result = 1;
1543 else if(data1 < data2) result = -1;
1547 static char * Int64_OnGetString(Class _class, int64 * data, char * string, void * fieldData, bool * needClass)
1549 sprintf(string, FORMAT64D, *data);
1553 static char * UInt64_OnGetString(Class _class, uint64 * data, char * string, void * fieldData, bool * needClass)
1555 sprintf(string, FORMAT64U, *data);
1559 static char * UInt64Hex_OnGetString(Class _class, uint64 * data, char * string, void * fieldData, bool * needClass)
1561 sprintf(string, FORMAT64HEX, *data);
1565 static char * UIntPtr64_OnGetString(Class _class, uint64 data, char * string, void * fieldData, bool * needClass)
1567 return UInt64Hex_OnGetString(_class, &data, string, fieldData, needClass);
1570 static char * UIntPtr32_OnGetString(Class _class, uint data, char * string, void * fieldData, bool * needClass)
1572 return UIntegerHex_OnGetString(_class, &data, string, fieldData, needClass);
1575 static char * IntPtr64_OnGetString(Class _class, uint64 data, char * string, void * fieldData, bool * needClass)
1577 return Int64_OnGetString(_class, &data, string, fieldData, needClass);
1580 static char * IntPtr32_OnGetString(Class _class, uint data, char * string, void * fieldData, bool * needClass)
1582 return Integer_OnGetString(_class, &data, string, fieldData, needClass);
1585 static bool Int64_OnGetDataFromString(Class _class, uint64 * data, char * string)
1588 uint64 result = _strtoi64(string, &end, 0);
1597 static bool UInt64_OnGetDataFromString(Class _class, uint64 * data, char * string)
1600 uint64 result = _strtoui64(string, &end, 0);
1609 /*static */void Byte_OnSerialize(Class _class, byte * data, IOChannel channel)
1611 channel.WriteData(data, 1);
1614 /*static */void Byte_OnUnserialize(Class _class, byte * data, IOChannel channel)
1616 if(channel.ReadData(data, 1) != 1)
1620 /*static */void Int_OnSerialize(Class _class, int * data, IOChannel channel)
1623 PUTXDWORD(bytes, * data);
1624 channel.WriteData(bytes, 4);
1627 /*static */void IntPtr32_OnSerialize(Class _class, int data, IOChannel channel)
1630 PUTXDWORD(bytes, data);
1631 channel.WriteData(bytes, 4);
1634 /*static */void Int_OnUnserialize(Class _class, int * data, IOChannel channel)
1637 if(channel.ReadData(bytes, 4) == 4)
1638 *data = GETXDWORD(bytes);
1643 /*static */void Enum_OnSerialize(Class _class, int * data, IOChannel channel)
1645 Class dataType = strcmp(_class.dataTypeString, "int") ? eSystem_FindClass(_class.module, _class.dataTypeString) : null;
1647 ((void (*)(void *, void *, void *))(void *)dataType._vTbl[__ecereVMethodID_class_OnSerialize])(dataType, data, channel);
1649 Int_OnSerialize(_class, data, channel);
1652 /*static */void Enum_OnUnserialize(Class _class, int * data, IOChannel channel)
1654 Class dataType = strcmp(_class.dataTypeString, "int") ? eSystem_FindClass(_class.module, _class.dataTypeString) : null;
1656 ((void (*)(void *, void *, void *))(void *)dataType._vTbl[__ecereVMethodID_class_OnUnserialize])(dataType, data, channel);
1658 Int_OnUnserialize(_class, data, channel);
1661 /*static */void Int64_OnSerialize(Class _class, int64 * data, IOChannel channel)
1664 PUTXQWORD(bytes, * data);
1665 channel.WriteData(bytes, 8);
1668 static void IntPtr64_OnSerialize(Class _class, int64 data, IOChannel channel)
1671 PUTXQWORD(bytes, data);
1672 channel.WriteData(bytes, 8);
1675 /*static */void Int64_OnUnserialize(Class _class, int64 * data, IOChannel channel)
1678 if(channel.ReadData(bytes, 8) == 8)
1679 *data = GETXQWORD(bytes);
1684 /*static */void Word_OnSerialize(Class _class, uint16 * data, IOChannel channel)
1687 PUTXWORD(bytes, * data);
1688 channel.WriteData(bytes, 2);
1691 /*static */void Word_OnUnserialize(Class _class, uint16 * data, IOChannel channel)
1694 if(channel.ReadData(bytes, 2) == 2)
1695 *data = GETXWORD(bytes);
1700 static void RegisterClass_Integer(Module module)
1702 Class integerClass = eSystem_RegisterClass(normalClass, "int", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
1703 integerClass.type = systemClass;
1704 delete integerClass.dataTypeString;
1705 integerClass.dataTypeString = CopyString("int");
1706 integerClass.structSize = 0;
1707 integerClass.typeSize = sizeof(int);
1709 eClass_AddMethod(integerClass, "OnCompare", null, Integer_OnCompare, publicAccess);
1710 eClass_AddMethod(integerClass, "OnGetString", null, Integer_OnGetString, publicAccess);
1711 eClass_AddMethod(integerClass, "OnGetDataFromString", null, Integer_OnGetDataFromString, publicAccess);
1712 eClass_AddMethod(integerClass, "OnSerialize", null, Int_OnSerialize, publicAccess);
1713 eClass_AddMethod(integerClass, "OnUnserialize", null, Int_OnUnserialize, publicAccess);
1715 integerClass = eSystem_RegisterClass(normalClass, "int64", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
1716 integerClass.type = systemClass;
1717 integerClass.structSize = 0;
1718 integerClass.typeSize = sizeof(int64);
1719 delete integerClass.dataTypeString;
1720 integerClass.dataTypeString = CopyString("int64");
1721 eClass_AddMethod(integerClass, "OnGetString", null, Int64_OnGetString, publicAccess);
1722 eClass_AddMethod(integerClass, "OnCompare", null, Int64_OnCompare, publicAccess);
1723 eClass_AddMethod(integerClass, "OnGetDataFromString", null, Int64_OnGetDataFromString, publicAccess);
1724 eClass_AddMethod(integerClass, "OnSerialize", null, Int64_OnSerialize, publicAccess);
1725 eClass_AddMethod(integerClass, "OnUnserialize", null, Int64_OnUnserialize, publicAccess);
1727 integerClass = eSystem_RegisterClass(normalClass, "uint", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
1728 integerClass.type = systemClass;
1729 delete integerClass.dataTypeString;
1730 integerClass.dataTypeString = CopyString("unsigned int");
1731 integerClass.structSize = 0;
1732 integerClass.typeSize = sizeof(uint);
1733 eClass_AddMethod(integerClass, "OnCompare", null, UInteger_OnCompare, publicAccess);
1734 eClass_AddMethod(integerClass, "OnGetString", null, UInteger_OnGetString, publicAccess);
1735 eClass_AddMethod(integerClass, "OnGetDataFromString", null, UInteger_OnGetDataFromString, publicAccess);
1736 eClass_AddMethod(integerClass, "OnSerialize", null, Int_OnSerialize, publicAccess);
1737 eClass_AddMethod(integerClass, "OnUnserialize", null, Int_OnUnserialize, publicAccess);
1739 integerClass = eSystem_RegisterClass(normalClass, "unsigned int", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
1740 integerClass.type = systemClass;
1741 delete integerClass.dataTypeString;
1742 integerClass.dataTypeString = CopyString("unsigned int");
1743 integerClass.structSize = 0;
1744 integerClass.typeSize = sizeof(uint);
1746 eClass_AddMethod(integerClass, "OnCompare", null, UInteger_OnCompare, publicAccess);
1747 eClass_AddMethod(integerClass, "OnGetString", null, UInteger_OnGetString, publicAccess);
1748 eClass_AddMethod(integerClass, "OnGetDataFromString", null, UInteger_OnGetDataFromString, publicAccess);
1749 eClass_AddMethod(integerClass, "OnSerialize", null, Int_OnSerialize, publicAccess);
1750 eClass_AddMethod(integerClass, "OnUnserialize", null, Int_OnUnserialize, publicAccess);
1752 integerClass = eSystem_RegisterClass(normalClass, "uint16", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
1753 integerClass.type = systemClass;
1754 delete integerClass.dataTypeString;
1755 integerClass.dataTypeString = CopyString("unsigned short");
1756 integerClass.structSize = 0;
1757 integerClass.typeSize = sizeof(uint16);
1759 eClass_AddMethod(integerClass, "OnSerialize", null, Word_OnSerialize, publicAccess);
1760 eClass_AddMethod(integerClass, "OnUnserialize", null, Word_OnUnserialize, publicAccess);
1761 eClass_AddMethod(integerClass, "OnCompare", null, UInt16_OnCompare, publicAccess);
1762 eClass_AddMethod(integerClass, "OnGetString", null, UInt16_OnGetString, publicAccess);
1763 eClass_AddMethod(integerClass, "OnGetDataFromString", null, UInt16_OnGetDataFromString, publicAccess);
1765 integerClass = eSystem_RegisterClass(normalClass, "short", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
1766 integerClass.type = systemClass;
1767 delete integerClass.dataTypeString;
1768 integerClass.dataTypeString = CopyString("short");
1769 integerClass.structSize = 0;
1770 integerClass.typeSize = sizeof(short);
1772 eClass_AddMethod(integerClass, "OnSerialize", null, Word_OnSerialize, publicAccess);
1773 eClass_AddMethod(integerClass, "OnUnserialize", null, Word_OnUnserialize, publicAccess);
1774 eClass_AddMethod(integerClass, "OnCompare", null, Int16_OnCompare, publicAccess);
1775 eClass_AddMethod(integerClass, "OnGetString", null, Int16_OnGetString, publicAccess);
1776 eClass_AddMethod(integerClass, "OnGetDataFromString", null, Int16_OnGetDataFromString, publicAccess);
1779 integerClass = eSystem_RegisterClass(normalClass, "uint32", null, 0, 0, null, null, module, baseSystemAccess);
1780 integerClass.type = systemClass;
1781 delete integerClass.dataTypeString;
1782 integerClass.dataTypeString = CopyString("uint32");
1783 eClass_AddMethod(integerClass, "OnCompare", null, UInteger_OnCompare, publicAccess);
1784 eClass_AddMethod(integerClass, "OnGetString", null, UInteger_OnGetString, publicAccess);
1785 eClass_AddMethod(integerClass, "OnGetDataFromString", null, UInteger_OnGetDataFromString, publicAccess);
1787 integerClass = eSystem_RegisterClass(normalClass, "uint32", "uint", 0, 0, null, null, module, baseSystemAccess, publicAccess);
1788 integerClass.type = systemClass;
1789 delete integerClass.dataTypeString;
1790 integerClass.dataTypeString = CopyString("unsigned int");
1791 integerClass.structSize = 0;
1792 integerClass.typeSize = sizeof(uint32);
1794 integerClass = eSystem_RegisterClass(normalClass, "uint64", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
1795 integerClass.type = systemClass;
1796 delete integerClass.dataTypeString;
1797 integerClass.dataTypeString = CopyString("uint64");
1798 integerClass.structSize = 0;
1799 integerClass.typeSize = sizeof(uint64);
1800 eClass_AddMethod(integerClass, "OnGetString", null, UInt64_OnGetString, publicAccess);
1801 eClass_AddMethod(integerClass, "OnGetDataFromString", null, UInt64_OnGetDataFromString, publicAccess);
1802 eClass_AddMethod(integerClass, "OnSerialize", null, Int64_OnSerialize, publicAccess);
1803 eClass_AddMethod(integerClass, "OnUnserialize", null, Int64_OnUnserialize, publicAccess);
1804 eClass_AddMethod(integerClass, "OnCompare", null, UInt64_OnCompare, publicAccess);
1806 integerClass = eSystem_RegisterClass(normalClass, "byte", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
1807 integerClass.type = systemClass;
1808 delete integerClass.dataTypeString;
1809 integerClass.dataTypeString = CopyString("unsigned char");
1810 integerClass.structSize = 0;
1811 integerClass.typeSize = sizeof(byte);
1812 eClass_AddMethod(integerClass, "OnCompare", null, Byte_OnCompare, publicAccess);
1813 eClass_AddMethod(integerClass, "OnGetString", null, Byte_OnGetString, publicAccess);
1814 eClass_AddMethod(integerClass, "OnGetDataFromString", null, Byte_OnGetDataFromString, publicAccess);
1815 eClass_AddMethod(integerClass, "OnSerialize", null, Byte_OnSerialize, publicAccess);
1816 eClass_AddMethod(integerClass, "OnUnserialize", null, Byte_OnUnserialize, publicAccess);
1818 integerClass = eSystem_RegisterClass(normalClass, "char", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
1819 integerClass.type = systemClass;
1820 delete integerClass.dataTypeString;
1821 integerClass.dataTypeString = CopyString("char");
1822 integerClass.structSize = 0;
1823 integerClass.typeSize = sizeof(char);
1824 eClass_AddMethod(integerClass, "OnCompare", null, Byte_OnCompare, publicAccess);
1825 eClass_AddMethod(integerClass, "OnGetString", null, Char_OnGetString, publicAccess);
1826 eClass_AddMethod(integerClass, "OnGetDataFromString", null, Byte_OnGetDataFromString, publicAccess);
1827 eClass_AddMethod(integerClass, "OnSerialize", null, Byte_OnSerialize, publicAccess);
1828 eClass_AddMethod(integerClass, "OnUnserialize", null, Byte_OnUnserialize, publicAccess);
1830 integerClass = eSystem_RegisterClass(normalClass, "intsize", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
1831 integerClass.type = systemClass;
1832 delete integerClass.dataTypeString;
1833 integerClass.dataTypeString = CopyString("ssize_t");
1834 integerClass.structSize = 0;
1835 integerClass.typeSize = sizeof(intsize);
1836 if(sizeof(intsize) == 8)
1838 eClass_AddMethod(integerClass, "OnGetString", null, Int64_OnGetString, publicAccess);
1839 eClass_AddMethod(integerClass, "OnGetDataFromString", null, Int64_OnGetDataFromString, publicAccess);
1840 eClass_AddMethod(integerClass, "OnSerialize", null, Int64_OnSerialize, publicAccess);
1841 eClass_AddMethod(integerClass, "OnUnserialize", null, Int64_OnUnserialize, publicAccess);
1842 eClass_AddMethod(integerClass, "OnCompare", null, Int64_OnCompare, publicAccess);
1846 eClass_AddMethod(integerClass, "OnCompare", null, Integer_OnCompare, publicAccess);
1847 eClass_AddMethod(integerClass, "OnGetString", null, Integer_OnGetString, publicAccess);
1848 eClass_AddMethod(integerClass, "OnGetDataFromString", null, Integer_OnGetDataFromString, publicAccess);
1849 eClass_AddMethod(integerClass, "OnSerialize", null, Int_OnSerialize, publicAccess);
1850 eClass_AddMethod(integerClass, "OnUnserialize", null, Int_OnUnserialize, publicAccess);
1853 integerClass = eSystem_RegisterClass(normalClass, "uintsize", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
1854 integerClass.type = systemClass;
1855 delete integerClass.dataTypeString;
1856 integerClass.dataTypeString = CopyString("size_t");
1857 integerClass.structSize = 0;
1858 integerClass.typeSize = sizeof(uintsize);
1859 if(sizeof(uintsize) == 8)
1861 eClass_AddMethod(integerClass, "OnGetString", null, UInt64Hex_OnGetString, publicAccess);
1862 eClass_AddMethod(integerClass, "OnGetDataFromString", null, UInt64_OnGetDataFromString, publicAccess);
1863 eClass_AddMethod(integerClass, "OnSerialize", null, Int64_OnSerialize, publicAccess);
1864 eClass_AddMethod(integerClass, "OnUnserialize", null, Int64_OnUnserialize, publicAccess);
1865 eClass_AddMethod(integerClass, "OnCompare", null, UInt64_OnCompare, publicAccess);
1869 eClass_AddMethod(integerClass, "OnGetString", null, UIntegerHex_OnGetString, publicAccess);
1870 eClass_AddMethod(integerClass, "OnGetDataFromString", null, UInteger_OnGetDataFromString, publicAccess);
1871 eClass_AddMethod(integerClass, "OnSerialize", null, Int_OnSerialize, publicAccess);
1872 eClass_AddMethod(integerClass, "OnUnserialize", null, Int_OnUnserialize, publicAccess);
1873 eClass_AddMethod(integerClass, "OnCompare", null, UInteger_OnCompare, publicAccess);
1876 integerClass = eSystem_RegisterClass(normalClass, "uintptr", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
1877 integerClass.type = systemClass;
1878 delete integerClass.dataTypeString;
1879 integerClass.dataTypeString = CopyString("uintptr_t");
1880 integerClass.structSize = 0;
1881 integerClass.typeSize = sizeof(uintptr);
1882 integerClass.byValueSystemClass = true;
1883 if(sizeof(uintptr) == 8)
1885 eClass_AddMethod(integerClass, "OnGetString", null, UIntPtr64_OnGetString, publicAccess);
1886 eClass_AddMethod(integerClass, "OnGetDataFromString", null, UInt64_OnGetDataFromString, publicAccess);
1887 eClass_AddMethod(integerClass, "OnSerialize", null, IntPtr64_OnSerialize, publicAccess);
1888 eClass_AddMethod(integerClass, "OnUnserialize", null, Int64_OnUnserialize, publicAccess);
1889 eClass_AddMethod(integerClass, "OnCompare", null, UIntPtr64_OnCompare, publicAccess);
1893 eClass_AddMethod(integerClass, "OnGetString", null, UIntPtr32_OnGetString, publicAccess);
1894 eClass_AddMethod(integerClass, "OnGetDataFromString", null, UInteger_OnGetDataFromString, publicAccess);
1895 eClass_AddMethod(integerClass, "OnSerialize", null, IntPtr32_OnSerialize, publicAccess);
1896 eClass_AddMethod(integerClass, "OnUnserialize", null, Int_OnUnserialize, publicAccess);
1897 eClass_AddMethod(integerClass, "OnCompare", null, UIntPtr32_OnCompare, publicAccess);
1900 integerClass = eSystem_RegisterClass(normalClass, "intptr", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
1901 integerClass.type = systemClass;
1902 delete integerClass.dataTypeString;
1903 integerClass.dataTypeString = CopyString("intptr_t");
1904 integerClass.structSize = 0;
1905 integerClass.typeSize = sizeof(intptr);
1906 integerClass.byValueSystemClass = true;
1907 if(sizeof(intptr) == 8)
1909 eClass_AddMethod(integerClass, "OnGetString", null, IntPtr64_OnGetString, publicAccess);
1910 eClass_AddMethod(integerClass, "OnGetDataFromString", null, Int64_OnGetDataFromString, publicAccess);
1911 eClass_AddMethod(integerClass, "OnSerialize", null, IntPtr64_OnSerialize, publicAccess);
1912 eClass_AddMethod(integerClass, "OnUnserialize", null, Int64_OnUnserialize, publicAccess);
1913 eClass_AddMethod(integerClass, "OnCompare", null, IntPtr64_OnCompare, publicAccess);
1917 eClass_AddMethod(integerClass, "OnGetString", null, IntPtr32_OnGetString, publicAccess);
1918 eClass_AddMethod(integerClass, "OnGetDataFromString", null, Integer_OnGetDataFromString, publicAccess);
1919 eClass_AddMethod(integerClass, "OnSerialize", null, IntPtr32_OnSerialize, publicAccess);
1920 eClass_AddMethod(integerClass, "OnUnserialize", null, Int_OnUnserialize, publicAccess);
1921 eClass_AddMethod(integerClass, "OnCompare", null, IntPtr32_OnCompare, publicAccess);
1926 static int Float_OnCompare(Class _class, float * data1, float * data2)
1929 if(!data1 && !data2) result = 0;
1930 else if(data1 && !data2) result = 1;
1931 else if(!data1 && data2) result = -1;
1932 else if(*data1 > *data2) result = 1;
1933 else if(*data1 < *data2) result = -1;
1937 static char * Float_OnGetString(Class _class, float * data, char * string, void * fieldData, bool * needClass)
1943 strcpy(string, "-inf");
1945 strcpy(string, "inf");
1950 strcpy(string, "-nan");
1952 strcpy(string, "nan");
1958 int numDigits = 7, num = 1;
1960 while(numDigits && num < f) numDigits--, num *= 10;
1961 sprintf(format, "%%.%df", numDigits);
1963 //sprintf(string, "%f", f);
1964 sprintf(string, format, f);
1966 c = strlen(string)-1;
1969 if(string[c] != '0')
1970 last = Max(last, c);
1971 if(string[c] == '.')
1984 static bool Float_OnGetDataFromString(Class _class, float * data, char * string)
1987 float result = (float)strtod(string, &end);
1988 //*data = atof(string);
1997 static void Float_OnSerialize(Class _class, float * data, IOChannel channel)
2000 PUTXDWORD(bytes, * (uint *)data);
2001 channel.WriteData(bytes, 4);
2004 static void Float_OnUnserialize(Class _class, float * data, IOChannel channel)
2007 if(channel.ReadData(bytes, 4) == 4)
2008 *(uint *)data = GETXDWORD(bytes);
2013 static void RegisterClass_Float(Module module)
2015 Class floatClass = eSystem_RegisterClass(normalClass, "float", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
2016 floatClass.type = systemClass;
2017 delete floatClass.dataTypeString;
2018 floatClass.dataTypeString = CopyString("float");
2019 floatClass.structSize = 0;
2020 floatClass.typeSize = sizeof(float);
2021 eClass_AddMethod(floatClass, "OnCompare", null, Float_OnCompare, publicAccess);
2022 eClass_AddMethod(floatClass, "OnGetString", null, Float_OnGetString, publicAccess);
2023 eClass_AddMethod(floatClass, "OnGetDataFromString", null, Float_OnGetDataFromString, publicAccess);
2024 eClass_AddMethod(floatClass, "OnSerialize", null, Float_OnSerialize, publicAccess);
2025 eClass_AddMethod(floatClass, "OnUnserialize", null, Float_OnUnserialize, publicAccess);
2027 eClass_AddMethod(floatClass, "nan", "float ::nan(void)", Float_nan, publicAccess);
2028 eClass_AddMethod(floatClass, "inf", "float ::inf(void)", Float_inf, publicAccess);
2030 eClass_AddProperty(floatClass, "isNan", "bool", null, Float_isNan, publicAccess);
2031 eClass_AddProperty(floatClass, "isInf", "bool", null, Float_isInf, publicAccess);
2032 eClass_AddProperty(floatClass, "signBit", "int", null, Float_signBit, publicAccess);
2036 static int Double_OnCompare(Class _class, double * data1, double * data2)
2039 if(!data1 && !data2) result = 0;
2040 else if(data1 && !data2) result = 1;
2041 else if(!data1 && data2) result = -1;
2042 else if(*data1 > *data2) result = 1;
2043 else if(*data1 < *data2) result = -1;
2047 static char * Double_OnGetString(Class _class, double * data, char * string, void * fieldData, bool * needClass)
2053 strcpy(string, "-inf");
2055 strcpy(string, "inf");
2060 strcpy(string, "-nan");
2062 strcpy(string, "nan");
2068 //sprintf(string, "%.20f", f);
2069 if(runtimePlatform == win32)
2070 // sprintf(string, "%.16g", f);
2071 sprintf(string, "%.15g", f);
2073 sprintf(string, "%.13lf", f);
2075 c = strlen(string)-1;
2078 if(string[c] != '0')
2079 last = Max(last, c);
2080 if(string[c] == '.')
2093 static bool Double_OnGetDataFromString(Class _class, double * data, char * string)
2097 //*data = (double)strtod(string, null);
2098 result = strtod(string, &end);
2108 static void Double_OnSerialize(Class _class, double * data, IOChannel channel)
2111 PUTXQWORD(bytes, * (uint64 *)data);
2112 channel.WriteData(bytes, 8);
2115 static void Double_OnUnserialize(Class _class, double * data, IOChannel channel)
2118 if(channel.ReadData(bytes, 8) == 8)
2119 *(uint64 *)data = GETXQWORD(bytes);
2124 static void RegisterClass_Double(Module module)
2126 Class doubleClass = eSystem_RegisterClass(normalClass, "double", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
2127 doubleClass.type = systemClass;
2128 delete doubleClass.dataTypeString;
2129 doubleClass.dataTypeString = CopyString("double");
2130 doubleClass.structSize = 0;
2131 doubleClass.typeSize = sizeof(double);
2132 eClass_AddMethod(doubleClass, "OnCompare", null, Double_OnCompare, publicAccess);
2133 eClass_AddMethod(doubleClass, "OnGetString", null, Double_OnGetString, publicAccess);
2134 eClass_AddMethod(doubleClass, "OnGetDataFromString", null, Double_OnGetDataFromString, publicAccess);
2135 eClass_AddMethod(doubleClass, "OnSerialize", null, Double_OnSerialize, publicAccess);
2136 eClass_AddMethod(doubleClass, "OnUnserialize", null, Double_OnUnserialize, publicAccess);
2138 eClass_AddProperty(doubleClass, "isNan", "bool", null, Double_isNan, publicAccess);
2139 eClass_AddProperty(doubleClass, "isInf", "bool", null, Double_isInf, publicAccess);
2140 eClass_AddProperty(doubleClass, "signBit", "int", null, Double_signBit, publicAccess);
2142 eClass_AddMethod(doubleClass, "nan", "double ::nan(void)", Double_nan, publicAccess);
2143 eClass_AddMethod(doubleClass, "inf", "double ::inf(void)", Double_inf, publicAccess);
2146 public struct StaticString
2150 void OnSerialize(IOChannel channel)
2152 int len = this ? strlen(string) : 0;
2153 channel.WriteData(this ? string : "", len+1);
2156 void OnUnserialize(IOChannel channel)
2163 for(c = 0; channel.ReadData(&string[c], 1) && string[c]; c++);
2168 int OnCompare(StaticString string2)
2172 result = strcmpi(string, string2.string);
2173 else if(!this && string2)
2174 result = -1; // INVERTED THESE 2 CASES
2175 else if(this && !string2)
2180 char * OnGetString(char * tempString, void * fieldData, bool * needClass)
2182 return (char *)(this ? string : null); // Cast for memguard
2190 static void String_OnCopy(Class _class, char ** data, char * newData)
2194 int len = strlen(newData);
2197 *data = eSystem_New(len+1);
2198 memcpy(*data, newData, len+1);
2207 static bool String_OnGetDataFromString(Class _class, char ** data, char * newData)
2211 int len = strlen(newData);
2214 *data = eSystem_New(len+1);
2215 memcpy(*data, newData, len+1);
2223 /*static */int String_OnCompare(Class _class, char * string1, char * string2)
2226 if(string1 && string2)
2227 result = strcmpi(string1, string2);
2228 else if(!string1 && string2)
2230 else if(string1 && !string2)
2235 static char * String_OnGetString(Class _class, char * string, char * tempString, void * fieldData, bool * needClass)
2240 static void String_OnFree(Class _class, char * string)
2244 eSystem_Delete(string);
2248 static void String_OnSerialize(Class _class, char * string, IOChannel channel)
2250 int len = string ? strlen(string) : 0;
2251 channel.WriteData(string ? string : "", len+1);
2254 static void String_OnUnserialize(Class _class, char * * string, IOChannel channel)
2261 *string = new char[size];
2262 for(c = 0; channel.ReadData(&(*string)[c], 1) && (*string)[c]; c++)
2267 *string = renew *string char[size];
2270 (*string)[c++] = '\0';
2271 if(!UTF8Validate(*string))
2273 char * newString = new char[c*2];
2274 ISO8859_1toUTF8(*string, newString, c*2);
2276 *string = renew newString char[strlen(newString)+1];
2279 *string = renew *string char[c];
2283 static void RegisterClass_String(Module module)
2285 Class stringClass = eSystem_RegisterClass(normalClass, "char *", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
2286 delete stringClass.dataTypeString;
2287 stringClass.dataTypeString = CopyString("char *");
2288 stringClass.structSize = 0;
2290 eClass_AddMethod(stringClass, "OnCompare", null, String_OnCompare, publicAccess);
2291 eClass_AddMethod(stringClass, "OnCopy", null, String_OnCopy, publicAccess);
2292 eClass_AddMethod(stringClass, "OnFree", null, String_OnFree, publicAccess);
2293 eClass_AddMethod(stringClass, "OnGetString", null, String_OnGetString, publicAccess);
2294 eClass_AddMethod(stringClass, "OnGetDataFromString", null, String_OnGetDataFromString, publicAccess);
2295 eClass_AddMethod(stringClass, "OnSerialize", null, String_OnSerialize, publicAccess);
2296 eClass_AddMethod(stringClass, "OnUnserialize", null, String_OnUnserialize, publicAccess);
2297 // eClass_AddProperty(stringClass, null, "Class", null, String_GetClass, publicAccess);
2299 stringClass = eSystem_RegisterClass(normalClass, "String", "char *", 0, 0, null, null, module, baseSystemAccess, publicAccess);
2300 stringClass.structSize = 0;
2301 eClass_AddProperty(stringClass, null, "char *", null, null, publicAccess);
2304 void InitializeDataTypes1(Module module)
2306 Class baseClass = eSystem_FindClass(module, "class");
2308 eClass_AddVirtualMethod(baseClass, "OnDisplay", "void typed_object::OnDisplay(Surface surface, int x, int y, int width, void * fieldData, Alignment alignment, DataDisplayFlags displayFlags)", null, publicAccess);
2309 eClass_AddVirtualMethod(baseClass, "OnCompare", "int typed_object::OnCompare(any_object object)", OnCompare, publicAccess);
2310 eClass_AddVirtualMethod(baseClass, "OnCopy", "void typed_object&::OnCopy(any_object newData)", OnCopy, publicAccess);
2311 eClass_AddVirtualMethod(baseClass, "OnFree", "void typed_object::OnFree(void)", OnFree, publicAccess);
2312 eClass_AddVirtualMethod(baseClass, "OnGetString", "char * typed_object::OnGetString(char * tempString, void * fieldData, bool * needClass)", OnGetString, publicAccess);
2313 eClass_AddVirtualMethod(baseClass, "OnGetDataFromString", "bool typed_object&::OnGetDataFromString(char * string)", OnGetDataFromString, publicAccess);
2314 eClass_AddVirtualMethod(baseClass, "OnEdit", "Window typed_object::OnEdit(DataBox dataBox, DataBox obsolete, int x, int y, int w, int h, void * userData)", null, publicAccess);
2315 eClass_AddVirtualMethod(baseClass, "OnSerialize", "void typed_object::OnSerialize(IOChannel channel)", OnSerialize, publicAccess);
2316 eClass_AddVirtualMethod(baseClass, "OnUnserialize", "void typed_object&::OnUnserialize(IOChannel channel)", OnUnserialize, publicAccess);
2317 eClass_AddVirtualMethod(baseClass, "OnSaveEdit", "bool typed_object&::OnSaveEdit(Window window, void * object)", null, publicAccess);
2320 void InitializeDataTypes(Module module)
2322 Class enumClass = eSystem_FindClass(module, "enum");
2324 eClass_AddMethod(enumClass, "OnSerialize", null, Enum_OnSerialize, publicAccess);
2325 eClass_AddMethod(enumClass, "OnUnserialize", null, Enum_OnUnserialize, publicAccess);
2328 RegisterClass_Integer(module);
2329 RegisterClass_Float(module);
2330 RegisterClass_Double(module);
2331 RegisterClass_String(module);
2334 public int PrintStdArgsToBuffer(char * buffer, int maxLen, typed_object object, va_list args)
2337 // TOFIX: OnGetString will need a maxLen as well
2338 char * result = object.OnGetString(buffer, null, null);
2341 len = strlen(result);
2342 if(len >= maxLen) len = maxLen-1;
2343 if(result != buffer)
2344 memcpy(buffer, result, len);
2348 Class _class = null;
2351 _class = va_arg(args, void *);
2353 data = va_arg(args, void *);
2356 // TOFIX: OnGetString will need a maxLen as well
2357 result = ((char *(*)(void *, void *, char *, void *, bool *))(void *)_class._vTbl[__ecereVMethodID_class_OnGetString])(_class, data, buffer + len, null, null);
2360 int newLen = strlen(result);
2361 if(len + newLen >= maxLen) newLen = maxLen-1-len;
2362 if(result != buffer + len)
2363 memcpy(buffer + len, result, newLen);
2372 public int PrintBuf(char * buffer, int maxLen, typed_object object, ...)
2376 va_start(args, object);
2377 len = PrintStdArgsToBuffer(buffer, maxLen, object, args);
2382 public int PrintLnBuf(char * buffer, int maxLen, typed_object object, ...)
2386 va_start(args, object);
2387 len = PrintStdArgsToBuffer(buffer, maxLen-1, object, args);
2388 buffer[len++] = '\n';
2394 public char * PrintString(typed_object object, ...)
2400 va_start(args, object);
2401 len = PrintStdArgsToBuffer(buffer, sizeof(buffer), object, args);
2402 string = new char[len + 1];
2403 memcpy(string, buffer, len + 1);
2408 public char * PrintLnString(typed_object object, ...)
2414 va_start(args, object);
2415 len = PrintStdArgsToBuffer(buffer, sizeof(buffer), object, args);
2416 string = new char[len + 2];
2417 memcpy(string, buffer, len);
2418 string[len++] = '\n';
2424 #if defined(__ANDROID__)
2425 #include <android/log.h>
2426 #define LOGI(...) ((void)__android_log_print(ANDROID_LOG_INFO, "ecere-app", __VA_ARGS__))
2429 public void PrintLn(typed_object object, ...)
2433 va_start(args, object);
2434 PrintStdArgsToBuffer(buffer, sizeof(buffer), object, args);
2436 #if defined(__ANDROID__) && !defined(ECERE_NOFILE)
2443 public void Print(typed_object object, ...)
2447 va_start(args, object);
2448 PrintStdArgsToBuffer(buffer, sizeof(buffer), object, args);
2450 fputs(buffer, eC_stdout());