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 extern int __ecereVMethodID_class_OnGetString;
79 extern int __ecereVMethodID_class_OnGetDataFromString;
80 extern int __ecereVMethodID_class_OnCompare;
81 extern int __ecereVMethodID_class_OnSerialize;
82 extern int __ecereVMethodID_class_OnUnserialize;
83 extern int __ecereVMethodID_class_OnCopy;
86 #if defined(ECERE_BOOTSTRAP) || defined(ECERE_STATIC)
90 // TOFIX: Declaration ordering (Required on gcc 3.4.5)
91 dllexport void eSystem_Delete(void * memory);
93 public class IOChannel
96 virtual uint WriteData(byte * data, uint numBytes);
97 virtual uint ReadData(byte * data, uint numBytes);
99 dllexport void Serialize(typed_object data)
101 data.OnSerialize(this);
104 dllexport void Unserialize(typed_object & data)
106 data.OnUnserialize(this);
109 dllexport void Put(typed_object data)
111 data.OnSerialize(this);
114 dllexport void Get(typed_object & data)
116 data.OnUnserialize(this);
120 public class SerialBuffer : IOChannel
128 uint WriteData(byte * bytes, uint numBytes)
132 if(count + numBytes > _size)
134 _size = count + numBytes;
136 _buffer = renew _buffer byte[_size];
138 memcpy(_buffer + count, bytes, numBytes);
145 uint ReadData(byte * bytes, uint numBytes)
149 int read = Min(numBytes, count - pos);
150 memcpy(bytes, _buffer + pos, read);
162 dllexport void Free()
173 // TODO: THIS IS VERY BAD!
174 property byte * buffer
176 get { return _buffer + pos; }
177 set { _buffer = value; }
182 get { return count - pos; }
183 set { count = value; }
187 /*static */char * Enum_OnGetString(Class _class, int * data, char * tempString, void * fieldData, bool * needClass)
189 EnumClassData enumeration = (EnumClassData)_class.data;
191 for(item = enumeration.values.first; item; item = item.next)
192 if((int)item.data == *data)
196 strcpy(tempString, item.name);
197 if(!needClass || !*needClass)
198 tempString[0] = (char)toupper(tempString[0]);
206 static bool Enum_OnGetDataFromString(Class _class, int * data, char * string)
208 EnumClassData enumeration = (EnumClassData)_class.data;
210 for(item = enumeration.values.first; item; item = item.next)
212 if(item.name && !strcmpi(item.name, string))
217 *data = (int)item.data;
221 return Integer_OnGetDataFromString(_class, data, string);
225 static void OnFree(Class _class, void * data)
227 if(_class.templateClass) _class = _class.templateClass;
228 if(_class.type == normalClass)
230 // eInstance_Delete(data);
231 eInstance_DecRef(data);
233 else if(_class.type == noHeadClass && data)
235 while(_class && _class.type == noHeadClass)
237 if(_class.Destructor)
238 _class.Destructor(data);
239 _class = _class.base;
245 static int DataMember_OnCompare(DataMember parentMember, void * data1, void * data2)
248 Module module = parentMember._class.module;
249 for(member = parentMember.members.first; member; member = member.next)
251 int memberResult = 0;
252 if(member.type == normalMember)
254 Class memberType = member.dataTypeClass;
257 memberType = member.dataTypeClass = eSystem_FindClass(module, member.dataTypeString);
259 memberType = member.dataTypeClass = eSystem_FindClass(module, "int");
261 if(memberType.type == structClass || memberType.type == normalClass || memberType.type == noHeadClass)
263 memberResult = ((int (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnCompare])(memberType,
264 (byte *)data1 + member.offset,
265 (byte *)data2 + member.offset);
271 DataValue value1, value2;
272 value1.i = *(int *)((byte *)data1 + member.offset);
273 value2.i = *(int *)((byte *)data2 + member.offset);
274 memberResult = ((int (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnCompare])(memberType, &value1, &value2);
281 memberResult = DataMember_OnCompare(member,
282 (byte *)data1 + member.offset,
283 (byte *)data2 + member.offset);
291 static int OnCompare(Class _class, void * data1, void * data2)
293 Module module = _class.module;
294 if(_class.type == normalClass || _class.type == noHeadClass || _class.type == structClass)
298 // NOTE: Comparing from top class down here... might want to reverse it
299 for(; _class && _class.type != systemClass; _class = _class.base)
303 // TESTING THIS HERE...
304 if(_class.noExpansion)
306 if(data1 > data2) return 1;
307 else if(data1 < data2) return -1;
312 for(member = _class.membersAndProperties.first; member; member = member.next)
314 int memberResult = 0;
315 if(member.isProperty || member.type == normalMember)
317 Class memberType = member.dataTypeClass;
320 memberType = member.dataTypeClass = eSystem_FindClass(module, member.dataTypeString);
323 memberType = member.dataTypeClass = eSystem_FindClass(module, "int");
327 if(member.isProperty)
329 Property prop = (Property)member;
330 if(!prop.conversion && prop.Get && prop.Set)
332 if(memberType.type == structClass || memberType.type == normalClass || memberType.type == noHeadClass)
334 if(!strcmp(memberType.dataTypeString, "char *"))
336 String a = ((String(*)(void *))(void *)prop.Get)(data1);
337 String b = ((String(*)(void *))(void *)prop.Get)(data2);
338 memberResult = ((int (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnCompare])(memberType, a, b);
343 DataValue value1, value2;
344 if(!strcmp(memberType.dataTypeString, "float"))
346 value1.f = ((float(*)(void *))(void *)prop.Get)(data1);
347 value2.f = ((float(*)(void *))(void *)prop.Get)(data2);
351 value1.i = ((int(*)(void*))(void *)prop.Get)(data1);
352 value2.i = ((int(*)(void*))(void *)prop.Get)(data2);
354 memberResult = ((int (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnCompare])(memberType, &value1, &value2);
360 if(memberType.type == structClass || memberType.type == normalClass || memberType.type == noHeadClass)
362 if(memberType.type == normalClass || memberType.type == noHeadClass)
365 memberResult = ((int (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnCompare])(memberType,
366 *(void **)((byte *)data1 + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset)),
367 *(void **)((byte *)data2 + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset)));
371 memberResult = ((int (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnCompare])(memberType,
372 (byte *)data1 + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset),
373 (byte *)data2 + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset));
378 DataValue value1, value2;
379 if(memberType.typeSize == 8)
381 value1.ui64 = *(uint64 *)((byte *)data1 + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset));
382 value2.ui64 = *(uint64 *)((byte *)data2 + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset));
386 value1.i = *(int *)((byte *)data1 + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset));
387 value2.i = *(int *)((byte *)data2 + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset));
389 memberResult = ((int (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnCompare])(memberType, &value1, &value2);
395 // printf("Unknown type\n");
400 memberResult = DataMember_OnCompare(member,
401 (byte *)data1 + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset),
402 (byte *)data2 + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset));
409 else if(!data1 && data2)
411 else if(data1 && !data2)
414 else if(_class.type == unitClass)
416 Class dataType = eSystem_FindClass(module, _class.dataTypeString);
417 return ((int (*)(void *, void *, void *))(void *)dataType._vTbl[__ecereVMethodID_class_OnCompare])(dataType, data1, data2);
424 if(_class.typeSize == 8)
426 if(*(uint64 *)data1 > *(uint64 *)data2)
428 else if(*(uint64 *)data1 < *(uint64 *)data2)
433 if(*(uint *)data1 > *(uint *)data2)
435 else if(*(uint *)data1 < *(uint *)data2)
439 else if(!data1 && data2)
441 else if(data1 && !data2)
448 static char * OnGetString(Class _class, void * data, char * tempString, void * fieldData, bool * needClass)
450 // WHY DOES _class.module NOT SEEM TO WORK?
451 Module module = _class.templateClass ? _class.templateClass.module : _class.module;
452 if(_class.type == enumClass)
454 return Enum_OnGetString(_class, data, tempString, fieldData, needClass);
456 else if(_class.type == unitClass)
458 Class dataType = eSystem_FindClass(module, _class.dataTypeString);
459 return ((char *(*)(void *, void *, char *, void *, bool *))(void *)dataType._vTbl[__ecereVMethodID_class_OnGetString])(dataType, data, tempString, fieldData, needClass);
463 bool atMember = true;
465 Class mainClass = _class;
467 tempString[0] = '\0';
468 if(!data && (mainClass.type == normalClass || mainClass.type == noHeadClass)) return tempString;
470 while(_class != mainClass)
473 Class lastClass = _class;
475 for(_class = mainClass; _class.base != lastClass && _class.base.type != systemClass; _class = _class.base);
477 for(member = _class.membersAndProperties.first; member; member = member.next)
479 char memberString[1024];
480 Class memberType = member.dataTypeClass;
481 char * name = member.name;
486 memberType = member.dataTypeClass = eSystem_FindClass(module, member.dataTypeString);
488 memberType = member.dataTypeClass = eSystem_FindClass(module, "int");
490 if(member.isProperty)
492 Property prop = (Property) member;
494 if(!prop.conversion && prop.Get && prop.Set && (!prop.IsSet || prop.IsSet(data)))
496 if(memberType.type != structClass && (memberType.type != normalClass || !strcmp(memberType.dataTypeString, "char *")) && memberType.type != bitClass && data)
498 DataValue value = { 0 };
499 if(!strcmp(prop.dataTypeString, "float"))
501 value.f = ((float(*)(void *))(void *)prop.Get)(data);
504 bool needClass = true;
505 char * result = ((char *(*)(void *, void *, char *, void *, bool *))(void *)memberType._vTbl[__ecereVMethodID_class_OnGetString])(memberType, &value, memberString, null, &needClass);
506 if(result && result != memberString)
507 strcpy(memberString, result);
509 if(strchr(memberString, '.'))
510 strcat(memberString, "f");
513 else if(memberType.type == normalClass || memberType.type == noHeadClass)
515 value.p = ((void *(*)(void *))(void *)prop.Get)(data);
516 if(value.p || prop.IsSet)
518 bool needClass = true;
519 char * result = ((char *(*)(void *, void *, char *, void *, bool *))(void *)memberType._vTbl[__ecereVMethodID_class_OnGetString])(memberType,
520 (memberType.type == normalClass) ? value.p : &value, memberString, null, &needClass);
521 if(result && result != memberString)
522 strcpy(memberString, result);
527 value.i = ((int(*)(void *))(void *)prop.Get)(data);
528 if(value.i || prop.IsSet)
530 bool needClass = true;
531 char * result = ((char *(*)(void *, void *, char *, void *, bool *))(void *)memberType._vTbl[__ecereVMethodID_class_OnGetString])(memberType, &value, memberString, null, &needClass);
532 if(result && result != memberString)
533 strcpy(memberString, result);
541 if(member.type == normalMember)
543 if(memberType.type == structClass || memberType.type == normalClass)
545 char internalMemberString[1024];
546 byte * memberData = ((byte *)data + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset));
548 for(c = 0; c < memberType.structSize; c++)
551 if(c < memberType.structSize)
553 bool needClass = true;
555 if(memberType.type == normalClass)
556 result = ((char *(*)(void *, void *, char *, void *, bool *))(void *)memberType._vTbl[__ecereVMethodID_class_OnGetString])(memberType, *(Instance *)memberData, internalMemberString, null, &needClass);
558 result = ((char *(*)(void *, void *, char *, void *, bool *))(void *)memberType._vTbl[__ecereVMethodID_class_OnGetString])(memberType, memberData, internalMemberString, null, &needClass);
561 //strcpy(memberString, memberType.name);
562 strcat(memberString, "{ ");
563 if(result) strcat(memberString, result);
564 strcat(memberString, " }");
567 strcpy(memberString, result);
570 //else if(_class /*memberType*/.type != bitClass)
571 else // if(_class /*memberType*/.type != bitClass)
573 DataValue value = { 0 };
574 if(_class.type == bitClass)
576 BitMember bitMember = (BitMember) member;
577 // TODO: Check if base type is 32 or 64 bit
579 //value.ui = (((uint)data & bitMember.mask) >> bitMember.pos);
580 value.ui64 = ((*(uint*)data & bitMember.mask) >> bitMember.pos);
583 bool needClass = true;
584 char internalMemberString[1024];
585 char * result = ((char *(*)(void *, void *, char *, void *, bool *))(void *)memberType._vTbl[__ecereVMethodID_class_OnGetString])(memberType, &value, internalMemberString, null, &needClass);
587 if(needClass && memberType.type != systemClass && memberType.type != enumClass && memberType.type != unitClass)
589 //strcpy(memberString, memberType.name);
590 strcat(memberString, " { ");
591 if(result) strcat(memberString, result);
592 strcat(memberString, " }");
595 strcpy(memberString, result);
597 if(result && memberString != result)
598 strcpy(memberString, result);
602 else if(!memberType.noExpansion)
604 // TOCHECK: Is this still right??
605 if(memberType.typeSize <= 4)
607 value.i = *(int *)((byte *)data + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset));
610 bool needClass = true;
611 char * result = ((char *(*)(void *, void *, char *, void *, bool *))(void *)memberType._vTbl[__ecereVMethodID_class_OnGetString])(memberType, &value, memberString, null, &needClass);
612 if(result && memberString != result)
613 strcpy(memberString, result);
618 bool needClass = true;
619 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);
620 if(result && memberString != result)
621 strcpy(memberString, result);
627 char internalMemberString[1024];
628 byte * memberData = ((byte *)data + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset));
629 bool needClass = true;
631 result = ((char *(*)(void *, void *, char *, void *, bool *))(void *)memberType._vTbl[__ecereVMethodID_class_OnGetString])(memberType, memberData, internalMemberString, null, &needClass);
634 //strcpy(memberString, memberType.name);
635 strcat(memberString, "{ ");
636 if(result) strcat(memberString, result);
637 strcat(memberString, " }");
640 strcpy(memberString, result);
646 // TODO: Fix atID stuff
650 strcat(tempString, ", ");
651 if(!atMember || !strcmp(memberType.name, "bool"))
653 strcat(tempString, name);
654 strcat(tempString, " = ");
657 if(!strcmp(memberType.name, "char *"))
659 int len = strlen(tempString);
661 strcat(tempString, "\"");
663 for(c = 0; memberString[c]; c++)
665 if(memberString[c] == '\"')
667 strcat(tempString, "\\\"");
670 else if(memberString[c] == '\\')
672 strcat(tempString, "\\\\");
677 tempString[len++] = memberString[c];
681 strcat(tempString, "\"");
684 strcat(tempString, memberString);
689 else if(member && (!member.isProperty || !((Property)member).conversion))
697 static bool OnGetDataFromString(Class _class, void ** data, char * string)
700 Module module = _class.module;
701 if(_class.type == enumClass)
702 result = Enum_OnGetDataFromString(_class, (int *)data, string);
703 else if(_class.type == unitClass)
705 Class dataType = eSystem_FindClass(module, _class.dataTypeString);
706 return ((bool (*)(void *, void *, const char *))(void *)dataType._vTbl[__ecereVMethodID_class_OnGetDataFromString])(dataType, data, string);
708 else if(!string[0] && _class.type == normalClass)
710 // result = false; // Why was this data = null commented?
717 char memberName[1024];
718 char memberString[10240];
726 Class curClass = null;
727 DataMember curMember = null;
728 DataMember subMemberStack[256];
729 int subMemberStackPos = 0;
733 if(_class.type == noHeadClass || _class.type == normalClass)
735 data = *data = eInstance_New(_class);
736 if(_class.type == normalClass)
737 ((Instance)data)._refCount++;
739 else if(/*_class.type == noHeadClass || */_class.type == structClass)
740 memset(data, 0, _class.structSize);
741 // Bit classes cleared outside?
743 memberName[0] = '\0';
745 for(c = 0; string[c] && count < sizeof(memberString); )
748 DataMember thisMember = null;
752 for(; (ch = string[c]) && count < sizeof(memberString); c++)
754 if(ch == '\"' && !escape)
760 if(!escape && ch == '\\')
766 memberString[count++] = ch;
770 // TOFIX: OnGetDataFromString is far from ready as a generic object notation reader...
771 // 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
772 // Is it used by the compiler?
773 else if(ch == ' ') // || ch == '\n' || ch == '\t' || ch == '\r')
776 memberString[count++] = ch;
782 memberString[count++] = ch;
792 // If bracket is not initialization
793 if(gotChar && !brackets)
801 memberString[count++] = ch;
812 memberString[count++] = ch;
819 memberString[count++] = ch;
823 memberString[count] = '\0';
824 //TrimLSpaces(memberString, memberName);
825 //TrimRSpaces(memberName, memberString);
826 //strcpy(memberName, memberString);
828 TrimRSpaces(memberString, memberName);
835 memberString[count++] = ch;
840 memberString[count] = '\0';
841 TrimRSpaces(memberString, memberString);
845 DataMember _subMemberStack[256];
846 int _subMemberStackPos = 0;
848 thisMember = eClass_FindDataMemberAndOffset(_class, memberName, &memberOffset, _class.module, _subMemberStack, &_subMemberStackPos);
851 thisMember = (DataMember)eClass_FindProperty(_class, memberName, _class.module);
854 if(thisMember.memberAccess == publicAccess)
856 curMember = thisMember;
857 curClass = thisMember._class;
858 memcpy(subMemberStack, _subMemberStack, sizeof(int) * _subMemberStackPos);
859 subMemberStackPos = _subMemberStackPos;
866 eClass_FindNextMember(_class, &curClass, (DataMember *)&curMember, subMemberStack, &subMemberStackPos);
867 thisMember = curMember;
871 eClass_FindDataMemberAndOffset(_class, thisMember.name, &memberOffset, _class.module, null, null);
876 Class memberType = thisMember.dataTypeClass;
879 memberType = thisMember.dataTypeClass = eSystem_FindClass(module, thisMember.dataTypeString);
881 memberType = thisMember.dataTypeClass = eSystem_FindClass(module, "int");
882 if(memberType.type == structClass)
886 if(!((bool (*)(void *, void *, const char *))(void *)memberType._vTbl[__ecereVMethodID_class_OnGetDataFromString])(memberType,
887 (byte *)data + (((thisMember._class.type == normalClass) ? thisMember._class.offset : 0) + memberOffset), memberString))
893 DataValue value = { 0 };
894 // Patch for hotKey crash ( #556 )
895 // Key has a member KeyCode, which inherits from Key
896 // We don't want KeyCode to use its base class OnGetDataFromString
897 if(memberType._vTbl[__ecereVMethodID_class_OnGetDataFromString] == _class._vTbl[__ecereVMethodID_class_OnGetDataFromString])
899 if(!OnGetDataFromString(memberType, &value, memberString))
902 else if(!((bool (*)(void *, void *, const char *))(void *)memberType._vTbl[__ecereVMethodID_class_OnGetDataFromString])(memberType, &value, memberString))
904 if(thisMember && !thisMember.isProperty)
906 if(_class.type == bitClass)
908 BitMember bitMember = (BitMember) thisMember;
909 // TODO: Check if bit _class is 32 or 64 bit
910 *(uint *)data = (uint32)(((*(uint *)data & ~bitMember.mask)) | ((value.ui64<<bitMember.pos)&bitMember.mask));
913 *(int *)((byte *)data + (((thisMember._class.type == normalClass) ? thisMember._class.offset : 0) + thisMember.offset)) = value.i;
915 else if(thisMember.isProperty && ((Property)thisMember).Set)
917 if(memberType.type == noHeadClass || memberType.type == normalClass || memberType.type == structClass)
918 ((void (*)(void *, void *))(void *)((Property)thisMember).Set)(data, value.p);
920 ((void (*)(void *, int))(void *)((Property)thisMember).Set)(data, value.i);
928 memberName[0] = '\0';
934 static void OnCopy(Class _class, void ** data, void * newData)
936 // TO IMPROVE: Inherit from Unit class for better performance?
937 if(_class.type == unitClass || _class.type == bitClass || _class.type == enumClass)
939 Class dataType = eSystem_FindClass(_class.module, _class.dataTypeString);
941 ((void (*)(void *, void *, void *))(void *)dataType._vTbl[__ecereVMethodID_class_OnCopy])(dataType, data, newData);
943 else if(_class.type != structClass && _class.type != systemClass)
947 // Here we have either a structClass or a systemClass
949 memcpy(data, newData, _class.typeSize);
951 memset(data, 0, _class.typeSize);
954 static int DataMember_OnSerialize(DataMember parentMember, void * data, IOChannel channel)
957 Module module = parentMember._class.module;
958 for(member = parentMember.members.first; member; member = member.next)
960 if(member.type == normalMember)
962 Class memberType = member.dataTypeClass;
965 memberType = member.dataTypeClass = eSystem_FindClass(module, member.dataTypeString);
967 memberType = member.dataTypeClass = eSystem_FindClass(module, "int");
969 if(memberType.type == structClass || memberType.type == normalClass || memberType.type == noHeadClass)
971 ((void (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnSerialize])(memberType, (byte *)data + member.offset, channel);
976 value.i = *(int *)((byte *)data + member.offset);
977 ((void (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnSerialize])(memberType, &value, channel);
982 DataMember_OnSerialize(member, (byte *)data + member.offset, channel);
988 static void OnSerialize(Class _class, void * data, IOChannel channel)
990 Module module = _class.module;
991 // TO IMPROVE: Inherit from Unit class for better performance?
992 if(_class.type == unitClass || _class.type == bitClass || _class.type == enumClass)
994 Class dataType = eSystem_FindClass(module, _class.dataTypeString);
996 ((void (*)(void *, void *, void *))(void *)dataType._vTbl[__ecereVMethodID_class_OnSerialize])(dataType, data, channel);
998 else if(_class.type == normalClass || _class.type == noHeadClass || _class.type == structClass)
1002 Class lastClass = null;
1003 while(lastClass != _class)
1006 for(; _class && (!_class.base || _class.base.type != systemClass) && _class != lastClass; _class = _class.base);
1009 for(member = _class.membersAndProperties.first; member; member = member.next)
1011 if(member.isProperty || member.type == normalMember)
1013 Class memberType = member.dataTypeClass;
1016 memberType = member.dataTypeClass = eSystem_FindClass(module, member.dataTypeString);
1019 if(member.isProperty)
1021 /*Property prop = (Property)member;
1022 if(!prop.conversion && prop.Get && prop.Set)
1024 if(memberType.type == structClass || memberType.type == normalClass || memberType.type == noHeadClass)
1031 if(!strcmp(memberType.dataTypeString, "float"))
1033 value.f = ((float(*)())(void *)prop.Get)(data);
1037 value.i = prop.Get(data);
1039 ((void (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnSerialize])(memberType, &value, channel);
1045 if(!strcmp(memberType.name, "String") || memberType.type == normalClass || memberType.type == noHeadClass)
1047 ((void (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnSerialize])(memberType, data ? (*(void **)((byte *)data + member._class.offset + member.offset)) : null, channel);
1050 ((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);
1055 // printf("Unknown type\n");
1060 DataMember_OnSerialize(member, data ? ((byte *)data + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset)) : null, channel);
1068 static int DataMember_OnUnserialize(DataMember parentMember, void * data, IOChannel channel)
1071 Module module = parentMember._class.module;
1072 for(member = parentMember.members.first; member; member = member.next)
1074 if(member.type == normalMember)
1076 Class memberType = member.dataTypeClass;
1079 memberType = member.dataTypeClass = eSystem_FindClass(module, member.dataTypeString);
1081 memberType = member.dataTypeClass = eSystem_FindClass(module, "int");
1083 if(memberType.type == structClass || memberType.type == normalClass || memberType.type == noHeadClass)
1085 ((void (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnUnserialize])(memberType, (byte *)data + member.offset, channel);
1090 ((void (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnUnserialize])(memberType, &value, channel);
1091 *(int *)((byte *)data + member.offset) = value.i;
1096 DataMember_OnUnserialize(member, (byte *)data + member.offset, channel);
1102 static void OnUnserialize(Class _class, void ** data, IOChannel channel)
1104 Module module = _class.module;
1105 if(_class.type == unitClass || _class.type == bitClass || _class.type == enumClass)
1107 Class dataType = eSystem_FindClass(module, _class.dataTypeString);
1109 ((void (*)(void *, void *, void *))(void *)dataType._vTbl[__ecereVMethodID_class_OnUnserialize])(dataType, data, channel);
1111 else if(_class.type == normalClass || _class.type == noHeadClass || _class.type == structClass)
1115 Class lastClass = null;
1116 if(_class.type == normalClass || _class.type == noHeadClass)
1118 // TOFIX: Seriously!?!?? Fix me!
1119 data = *data = eInstance_New(_class);
1120 if(_class.type == normalClass)
1121 ((Instance)data)._refCount++;
1123 else if(/*_class.type == noHeadClass || */_class.type == structClass)
1124 memset(data, 0, _class.structSize);
1126 while(lastClass != _class)
1129 for(; _class && (!_class.base || _class.base.type != systemClass) && _class != lastClass; _class = _class.base);
1132 for(member = _class.membersAndProperties.first; member; member = member.next)
1134 if(member.isProperty || member.type == normalMember)
1136 Class memberType = member.dataTypeClass;
1139 memberType = member.dataTypeClass = eSystem_FindClass(module, member.dataTypeString);
1142 if(member.isProperty)
1144 /*Property prop = (Property)member;
1145 if(!prop.conversion && prop.Get && prop.Set)
1147 if(memberType.type == structClass || memberType.type == normalClass || memberType.type == noHeadClass)
1154 ((void (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnUnserialize])(memberType, &value, channel);
1155 prop.Set(data, value.i);
1160 ((void (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnUnserialize])(memberType,
1161 (byte *)data + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset), channel);
1165 // printf("Unknown type\n");
1170 DataMember_OnUnserialize(member, (byte *)data + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset), channel);
1179 static int Integer_OnCompare(Class _class, int * data1, int * data2)
1182 if(!data1 && !data2) result = 0;
1183 else if(data1 && !data2) result = 1;
1184 else if(!data1 && data2) result = -1;
1185 else if(*data1 > *data2) result = 1;
1186 else if(*data1 < *data2) result = -1;
1190 /*static */char * Integer_OnGetString(Class _class, int * data, char * string, void * fieldData, bool * needClass)
1192 sprintf(string, "%d", *data);
1196 static bool Integer_OnGetDataFromString(Class _class, int * data, char * string)
1199 int result = strtol(string, &end, 0);
1209 static int UInteger_OnCompare(Class _class, unsigned int * data1, unsigned int * data2)
1212 if(!data1 && !data2) result = 0;
1213 else if(data1 && !data2) result = 1;
1214 else if(!data1 && data2) result = -1;
1215 else if(*data1 > *data2) result = 1;
1216 else if(*data1 < *data2) result = -1;
1220 static char * UInteger_OnGetString(Class _class, unsigned int * data, char * string, void * fieldData, bool * needClass)
1222 sprintf(string, "%u", *data);
1226 static bool UInteger_OnGetDataFromString(Class _class, unsigned int * data, char * string)
1229 uint result = strtoul(string, &end, 0);
1238 static int Byte_OnCompare(Class _class, byte * data1, byte * data2)
1241 if(!data1 && !data2) result = 0;
1242 else if(data1 && !data2) result = 1;
1243 else if(!data1 && data2) result = -1;
1244 else if(*data1 > *data2) result = 1;
1245 else if(*data1 < *data2) result = -1;
1249 static char * Byte_OnGetString(Class _class, byte * data, char * string, void * fieldData, bool * needClass)
1251 sprintf(string, "%u", (int)*data);
1255 static char * Char_OnGetString(Class _class, char * data, char * string, void * fieldData, bool * needClass)
1257 if(needClass && *needClass)
1260 if(ch == '\t') strcpy(string, "'\t'");
1261 else if(ch == '\n') strcpy(string, "'\n'");
1262 else if(ch == '\r') strcpy(string, "'\r'");
1263 else if(ch == '\a') strcpy(string, "'\a'");
1264 else if(ch == '\\') strcpy(string, "'\\'");
1265 else if(ch < 32 || ch >= 127) sprintf(string, "'\o'", ch);
1266 else sprintf(string, "'%c'", ch);
1269 sprintf(string, "%c", *data);
1273 static bool Byte_OnGetDataFromString(Class _class, byte * data, char * string)
1276 byte result = (byte)strtoul(string, &end, 0);
1285 static int Int64_OnCompare(Class _class, int64 * data1, int64 * data2)
1288 if(!data1 && !data2) result = 0;
1289 else if(data1 && !data2) result = 1;
1290 else if(!data1 && data2) result = -1;
1291 else if(*data1 > *data2) result = 1;
1292 else if(*data1 < *data2) result = -1;
1296 static int UInt64_OnCompare(Class _class, uint64 * data1, uint64 * data2)
1299 if(!data1 && !data2) result = 0;
1300 else if(data1 && !data2) result = 1;
1301 else if(!data1 && data2) result = -1;
1302 else if(*data1 > *data2) result = 1;
1303 else if(*data1 < *data2) result = -1;
1307 static char * Int64_OnGetString(Class _class, int64 * data, char * string, void * fieldData, bool * needClass)
1309 sprintf(string, FORMAT64D, *data);
1313 static char * UInt64_OnGetString(Class _class, uint64 * data, char * string, void * fieldData, bool * needClass)
1315 sprintf(string, FORMAT64U, *data);
1319 static bool Int64_OnGetDataFromString(Class _class, uint64 * data, char * string)
1322 uint64 result = _strtoi64(string, &end, 0);
1331 static bool UInt64_OnGetDataFromString(Class _class, uint64 * data, char * string)
1334 uint64 result = _strtoui64(string, &end, 0);
1343 /*static */void Byte_OnSerialize(Class _class, byte * data, IOChannel channel)
1345 channel.WriteData(data, 1);
1348 /*static */void Byte_OnUnserialize(Class _class, byte * data, IOChannel channel)
1350 if(channel.ReadData(data, 1) != 1)
1355 /*static */void Int_OnSerialize(Class _class, int * data, IOChannel channel)
1358 PUTXDWORD(bytes, * data);
1359 channel.WriteData(bytes, 4);
1362 /*static */void Int_OnUnserialize(Class _class, int * data, IOChannel channel)
1365 if(channel.ReadData(bytes, 4) == 4)
1366 *data = GETXDWORD(bytes);
1371 /*static */void Int64_OnSerialize(Class _class, int64 * data, IOChannel channel)
1374 PUTXQWORD(bytes, * data);
1375 channel.WriteData(bytes, 8);
1378 /*static */void Int64_OnUnserialize(Class _class, int64 * data, IOChannel channel)
1381 if(channel.ReadData(bytes, 8) == 8)
1382 *data = GETXQWORD(bytes);
1387 /*static */void Word_OnSerialize(Class _class, uint16 * data, IOChannel channel)
1390 PUTXWORD(bytes, * data);
1391 channel.WriteData(bytes, 2);
1394 /*static */void Word_OnUnserialize(Class _class, uint16 * data, IOChannel channel)
1397 if(channel.ReadData(bytes, 2) == 2)
1398 *data = GETXWORD(bytes);
1403 static void RegisterClass_Integer(Module module)
1405 Class integerClass = eSystem_RegisterClass(normalClass, "int", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
1406 integerClass.type = systemClass;
1407 delete integerClass.dataTypeString;
1408 integerClass.dataTypeString = CopyString("int");
1409 integerClass.structSize = 0;
1410 integerClass.typeSize = sizeof(int);
1412 eClass_AddMethod(integerClass, "OnCompare", null, Integer_OnCompare, publicAccess);
1413 eClass_AddMethod(integerClass, "OnGetString", null, Integer_OnGetString, publicAccess);
1414 eClass_AddMethod(integerClass, "OnGetDataFromString", null, Integer_OnGetDataFromString, publicAccess);
1415 eClass_AddMethod(integerClass, "OnSerialize", null, Int_OnSerialize, publicAccess);
1416 eClass_AddMethod(integerClass, "OnUnserialize", null, Int_OnUnserialize, publicAccess);
1418 integerClass = eSystem_RegisterClass(normalClass, "int64", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
1419 integerClass.type = systemClass;
1420 integerClass.structSize = 0;
1421 integerClass.typeSize = sizeof(int64);
1422 delete integerClass.dataTypeString;
1423 integerClass.dataTypeString = CopyString("int64");
1424 eClass_AddMethod(integerClass, "OnGetString", null, Int64_OnGetString, publicAccess);
1425 eClass_AddMethod(integerClass, "OnCompare", null, Int64_OnCompare, publicAccess);
1426 eClass_AddMethod(integerClass, "OnGetDataFromString", null, Int64_OnGetDataFromString, publicAccess);
1427 eClass_AddMethod(integerClass, "OnSerialize", null, Int64_OnSerialize, publicAccess);
1428 eClass_AddMethod(integerClass, "OnUnserialize", null, Int64_OnUnserialize, publicAccess);
1430 integerClass = eSystem_RegisterClass(normalClass, "uint", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
1431 integerClass.type = systemClass;
1432 delete integerClass.dataTypeString;
1433 integerClass.dataTypeString = CopyString("unsigned int");
1434 integerClass.structSize = 0;
1435 integerClass.typeSize = sizeof(uint);
1436 eClass_AddMethod(integerClass, "OnCompare", null, UInteger_OnCompare, publicAccess);
1437 eClass_AddMethod(integerClass, "OnGetString", null, UInteger_OnGetString, publicAccess);
1438 eClass_AddMethod(integerClass, "OnGetDataFromString", null, UInteger_OnGetDataFromString, publicAccess);
1439 eClass_AddMethod(integerClass, "OnSerialize", null, Int_OnSerialize, publicAccess);
1440 eClass_AddMethod(integerClass, "OnUnserialize", null, Int_OnUnserialize, publicAccess);
1442 integerClass = eSystem_RegisterClass(normalClass, "unsigned int", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
1443 integerClass.type = systemClass;
1444 delete integerClass.dataTypeString;
1445 integerClass.dataTypeString = CopyString("unsigned int");
1446 integerClass.structSize = 0;
1447 integerClass.typeSize = sizeof(uint);
1449 eClass_AddMethod(integerClass, "OnCompare", null, UInteger_OnCompare, publicAccess);
1450 eClass_AddMethod(integerClass, "OnGetString", null, UInteger_OnGetString, publicAccess);
1451 eClass_AddMethod(integerClass, "OnGetDataFromString", null, UInteger_OnGetDataFromString, publicAccess);
1452 eClass_AddMethod(integerClass, "OnSerialize", null, Int_OnSerialize, publicAccess);
1453 eClass_AddMethod(integerClass, "OnUnserialize", null, Int_OnUnserialize, publicAccess);
1455 integerClass = eSystem_RegisterClass(normalClass, "uint16", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
1456 integerClass.type = systemClass;
1457 delete integerClass.dataTypeString;
1458 integerClass.dataTypeString = CopyString("unsigned short");
1459 integerClass.structSize = 0;
1460 integerClass.typeSize = sizeof(uint16);
1462 eClass_AddMethod(integerClass, "OnSerialize", null, Word_OnSerialize, publicAccess);
1463 eClass_AddMethod(integerClass, "OnUnserialize", null, Word_OnUnserialize, publicAccess);
1465 integerClass = eSystem_RegisterClass(normalClass, "short", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
1466 integerClass.type = systemClass;
1467 delete integerClass.dataTypeString;
1468 integerClass.dataTypeString = CopyString("short");
1469 integerClass.structSize = 0;
1470 integerClass.typeSize = sizeof(short);
1472 eClass_AddMethod(integerClass, "OnSerialize", null, Word_OnSerialize, publicAccess);
1473 eClass_AddMethod(integerClass, "OnUnserialize", null, Word_OnUnserialize, publicAccess);
1476 integerClass = eSystem_RegisterClass(normalClass, "uint32", null, 0, 0, null, null, module, baseSystemAccess);
1477 integerClass.type = systemClass;
1478 delete integerClass.dataTypeString;
1479 integerClass.dataTypeString = CopyString("uint32");
1480 eClass_AddMethod(integerClass, "OnCompare", null, UInteger_OnCompare, publicAccess);
1481 eClass_AddMethod(integerClass, "OnGetString", null, UInteger_OnGetString, publicAccess);
1482 eClass_AddMethod(integerClass, "OnGetDataFromString", null, UInteger_OnGetDataFromString, publicAccess);
1484 integerClass = eSystem_RegisterClass(normalClass, "uint32", "uint", 0, 0, null, null, module, baseSystemAccess, publicAccess);
1485 integerClass.type = systemClass;
1486 delete integerClass.dataTypeString;
1487 integerClass.dataTypeString = CopyString("unsigned int");
1488 integerClass.structSize = 0;
1489 integerClass.typeSize = sizeof(uint32);
1491 integerClass = eSystem_RegisterClass(normalClass, "uint64", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
1492 integerClass.type = systemClass;
1493 delete integerClass.dataTypeString;
1494 integerClass.dataTypeString = CopyString("uint64");
1495 integerClass.structSize = 0;
1496 integerClass.typeSize = sizeof(uint64);
1497 eClass_AddMethod(integerClass, "OnGetString", null, UInt64_OnGetString, publicAccess);
1498 eClass_AddMethod(integerClass, "OnGetDataFromString", null, UInt64_OnGetDataFromString, publicAccess);
1499 eClass_AddMethod(integerClass, "OnSerialize", null, Int64_OnSerialize, publicAccess);
1500 eClass_AddMethod(integerClass, "OnUnserialize", null, Int64_OnUnserialize, publicAccess);
1501 eClass_AddMethod(integerClass, "OnCompare", null, UInt64_OnCompare, publicAccess);
1503 integerClass = eSystem_RegisterClass(normalClass, "byte", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
1504 integerClass.type = systemClass;
1505 delete integerClass.dataTypeString;
1506 integerClass.dataTypeString = CopyString("unsigned char");
1507 integerClass.structSize = 0;
1508 integerClass.typeSize = sizeof(byte);
1509 eClass_AddMethod(integerClass, "OnCompare", null, Byte_OnCompare, publicAccess);
1510 eClass_AddMethod(integerClass, "OnGetString", null, Byte_OnGetString, publicAccess);
1511 eClass_AddMethod(integerClass, "OnGetDataFromString", null, Byte_OnGetDataFromString, publicAccess);
1512 eClass_AddMethod(integerClass, "OnSerialize", null, Byte_OnSerialize, publicAccess);
1513 eClass_AddMethod(integerClass, "OnUnserialize", null, Byte_OnUnserialize, publicAccess);
1515 integerClass = eSystem_RegisterClass(normalClass, "char", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
1516 integerClass.type = systemClass;
1517 delete integerClass.dataTypeString;
1518 integerClass.dataTypeString = CopyString("char");
1519 integerClass.structSize = 0;
1520 integerClass.typeSize = sizeof(char);
1521 eClass_AddMethod(integerClass, "OnCompare", null, Byte_OnCompare, publicAccess);
1522 eClass_AddMethod(integerClass, "OnGetString", null, Char_OnGetString, publicAccess);
1523 eClass_AddMethod(integerClass, "OnGetDataFromString", null, Byte_OnGetDataFromString, publicAccess);
1524 eClass_AddMethod(integerClass, "OnSerialize", null, Byte_OnSerialize, publicAccess);
1525 eClass_AddMethod(integerClass, "OnUnserialize", null, Byte_OnUnserialize, publicAccess);
1527 integerClass = eSystem_RegisterClass(normalClass, "intsize", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
1528 integerClass.type = systemClass;
1529 delete integerClass.dataTypeString;
1530 integerClass.dataTypeString = CopyString("ssize_t");
1531 integerClass.structSize = 0;
1532 integerClass.typeSize = sizeof(intsize);
1533 if(sizeof(intsize) == 8)
1535 eClass_AddMethod(integerClass, "OnGetString", null, Int64_OnGetString, publicAccess);
1536 eClass_AddMethod(integerClass, "OnGetDataFromString", null, Int64_OnGetDataFromString, publicAccess);
1537 eClass_AddMethod(integerClass, "OnSerialize", null, Int64_OnSerialize, publicAccess);
1538 eClass_AddMethod(integerClass, "OnUnserialize", null, Int64_OnUnserialize, publicAccess);
1539 eClass_AddMethod(integerClass, "OnCompare", null, Int64_OnCompare, publicAccess);
1543 eClass_AddMethod(integerClass, "OnCompare", null, Integer_OnCompare, publicAccess);
1544 eClass_AddMethod(integerClass, "OnGetString", null, Integer_OnGetString, publicAccess);
1545 eClass_AddMethod(integerClass, "OnGetDataFromString", null, Integer_OnGetDataFromString, publicAccess);
1546 eClass_AddMethod(integerClass, "OnSerialize", null, Int_OnSerialize, publicAccess);
1547 eClass_AddMethod(integerClass, "OnUnserialize", null, Int_OnUnserialize, publicAccess);
1550 integerClass = eSystem_RegisterClass(normalClass, "uintsize", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
1551 integerClass.type = systemClass;
1552 delete integerClass.dataTypeString;
1553 integerClass.dataTypeString = CopyString("size_t");
1554 integerClass.structSize = 0;
1555 integerClass.typeSize = sizeof(uintsize);
1556 if(sizeof(uintsize) == 8)
1558 eClass_AddMethod(integerClass, "OnGetString", null, UInt64_OnGetString, publicAccess);
1559 eClass_AddMethod(integerClass, "OnGetDataFromString", null, UInt64_OnGetDataFromString, publicAccess);
1560 eClass_AddMethod(integerClass, "OnSerialize", null, Int64_OnSerialize, publicAccess);
1561 eClass_AddMethod(integerClass, "OnUnserialize", null, Int64_OnUnserialize, publicAccess);
1562 eClass_AddMethod(integerClass, "OnCompare", null, UInt64_OnCompare, publicAccess);
1566 eClass_AddMethod(integerClass, "OnCompare", null, UInteger_OnCompare, publicAccess);
1567 eClass_AddMethod(integerClass, "OnGetString", null, UInteger_OnGetString, publicAccess);
1568 eClass_AddMethod(integerClass, "OnGetDataFromString", null, UInteger_OnGetDataFromString, publicAccess);
1569 eClass_AddMethod(integerClass, "OnSerialize", null, Int_OnSerialize, publicAccess);
1570 eClass_AddMethod(integerClass, "OnUnserialize", null, Int_OnUnserialize, publicAccess);
1573 integerClass = eSystem_RegisterClass(normalClass, "uintptr", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
1574 integerClass.type = systemClass;
1575 delete integerClass.dataTypeString;
1576 integerClass.dataTypeString = CopyString("uintptr_t");
1577 integerClass.structSize = 0;
1578 integerClass.typeSize = sizeof(uintptr);
1579 if(sizeof(uintptr) == 8)
1581 eClass_AddMethod(integerClass, "OnGetString", null, UInt64_OnGetString, publicAccess);
1582 eClass_AddMethod(integerClass, "OnGetDataFromString", null, UInt64_OnGetDataFromString, publicAccess);
1583 eClass_AddMethod(integerClass, "OnSerialize", null, Int64_OnSerialize, publicAccess);
1584 eClass_AddMethod(integerClass, "OnUnserialize", null, Int64_OnUnserialize, publicAccess);
1585 eClass_AddMethod(integerClass, "OnCompare", null, UInt64_OnCompare, publicAccess);
1589 eClass_AddMethod(integerClass, "OnCompare", null, UInteger_OnCompare, publicAccess);
1590 eClass_AddMethod(integerClass, "OnGetString", null, UInteger_OnGetString, publicAccess);
1591 eClass_AddMethod(integerClass, "OnGetDataFromString", null, UInteger_OnGetDataFromString, publicAccess);
1592 eClass_AddMethod(integerClass, "OnSerialize", null, Int_OnSerialize, publicAccess);
1593 eClass_AddMethod(integerClass, "OnUnserialize", null, Int_OnUnserialize, publicAccess);
1596 integerClass = eSystem_RegisterClass(normalClass, "intptr", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
1597 integerClass.type = systemClass;
1598 delete integerClass.dataTypeString;
1599 integerClass.dataTypeString = CopyString("intptr_t");
1600 integerClass.structSize = 0;
1601 integerClass.typeSize = sizeof(intptr);
1602 if(sizeof(intptr) == 8)
1604 eClass_AddMethod(integerClass, "OnGetString", null, Int64_OnGetString, publicAccess);
1605 eClass_AddMethod(integerClass, "OnGetDataFromString", null, Int64_OnGetDataFromString, publicAccess);
1606 eClass_AddMethod(integerClass, "OnSerialize", null, Int64_OnSerialize, publicAccess);
1607 eClass_AddMethod(integerClass, "OnUnserialize", null, Int64_OnUnserialize, publicAccess);
1608 eClass_AddMethod(integerClass, "OnCompare", null, Int64_OnCompare, publicAccess);
1612 eClass_AddMethod(integerClass, "OnCompare", null, Integer_OnCompare, publicAccess);
1613 eClass_AddMethod(integerClass, "OnGetString", null, Integer_OnGetString, publicAccess);
1614 eClass_AddMethod(integerClass, "OnGetDataFromString", null, Integer_OnGetDataFromString, publicAccess);
1615 eClass_AddMethod(integerClass, "OnSerialize", null, Int_OnSerialize, publicAccess);
1616 eClass_AddMethod(integerClass, "OnUnserialize", null, Int_OnUnserialize, publicAccess);
1621 static int Float_OnCompare(Class _class, float * data1, float * data2)
1624 if(!data1 && !data2) result = 0;
1625 else if(data1 && !data2) result = 1;
1626 else if(!data1 && data2) result = -1;
1627 else if(*data1 > *data2) result = 1;
1628 else if(*data1 < *data2) result = -1;
1632 static char * Float_OnGetString(Class _class, float * data, char * string, void * fieldData, bool * needClass)
1636 int numDigits = 7, num = 1;
1638 while(numDigits && num < *data) numDigits--, num *= 10;
1639 sprintf(format, "%%.%df", numDigits);
1641 //sprintf(string, "%f", *data);
1642 sprintf(string, format, *data);
1644 c = strlen(string)-1;
1647 if(string[c] != '0')
1648 last = Max(last, c);
1649 if(string[c] == '.')
1661 static bool Float_OnGetDataFromString(Class _class, float * data, char * string)
1664 float result = (float)strtod(string, &end);
1665 //*data = atof(string);
1674 static void Float_OnSerialize(Class _class, float * data, IOChannel channel)
1677 PUTXDWORD(bytes, * (uint *)data);
1678 channel.WriteData(bytes, 4);
1681 static void Float_OnUnserialize(Class _class, float * data, IOChannel channel)
1684 if(channel.ReadData(bytes, 4) == 4)
1685 *(uint *)data = GETXDWORD(bytes);
1690 static void RegisterClass_Float(Module module)
1692 Class floatClass = eSystem_RegisterClass(normalClass, "float", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
1693 floatClass.type = systemClass;
1694 delete floatClass.dataTypeString;
1695 floatClass.dataTypeString = CopyString("float");
1696 floatClass.structSize = 0;
1697 floatClass.typeSize = sizeof(float);
1698 eClass_AddMethod(floatClass, "OnCompare", null, Float_OnCompare, publicAccess);
1699 eClass_AddMethod(floatClass, "OnGetString", null, Float_OnGetString, publicAccess);
1700 eClass_AddMethod(floatClass, "OnGetDataFromString", null, Float_OnGetDataFromString, publicAccess);
1701 eClass_AddMethod(floatClass, "OnSerialize", null, Float_OnSerialize, publicAccess);
1702 eClass_AddMethod(floatClass, "OnUnserialize", null, Float_OnUnserialize, publicAccess);
1706 static int Double_OnCompare(Class _class, double * data1, double * data2)
1709 if(!data1 && !data2) result = 0;
1710 else if(data1 && !data2) result = 1;
1711 else if(!data1 && data2) result = -1;
1712 else if(*data1 > *data2) result = 1;
1713 else if(*data1 < *data2) result = -1;
1717 static char * Double_OnGetString(Class _class, double * data, char * string, void * fieldData, bool * needClass)
1721 //sprintf(string, "%.20f", *data);
1722 if(runtimePlatform == win32)
1723 // sprintf(string, "%.16g", *data);
1724 sprintf(string, "%.15g", *data);
1726 sprintf(string, "%.13lf", *data);
1728 c = strlen(string)-1;
1731 if(string[c] != '0')
1732 last = Max(last, c);
1733 if(string[c] == '.')
1745 static bool Double_OnGetDataFromString(Class _class, double * data, char * string)
1749 //*data = (double)strtod(string, null);
1750 result = strtod(string, &end);
1760 static void Double_OnSerialize(Class _class, double * data, IOChannel channel)
1763 PUTXQWORD(bytes, * (uint64 *)data);
1764 channel.WriteData(bytes, 8);
1767 static void Double_OnUnserialize(Class _class, double * data, IOChannel channel)
1770 if(channel.ReadData(bytes, 8) == 8)
1771 *(uint64 *)data = GETXQWORD(bytes);
1776 static void RegisterClass_Double(Module module)
1778 Class doubleClass = eSystem_RegisterClass(normalClass, "double", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
1779 doubleClass.type = systemClass;
1780 delete doubleClass.dataTypeString;
1781 doubleClass.dataTypeString = CopyString("double");
1782 doubleClass.structSize = 0;
1783 doubleClass.typeSize = sizeof(double);
1784 eClass_AddMethod(doubleClass, "OnCompare", null, Double_OnCompare, publicAccess);
1785 eClass_AddMethod(doubleClass, "OnGetString", null, Double_OnGetString, publicAccess);
1786 eClass_AddMethod(doubleClass, "OnGetDataFromString", null, Double_OnGetDataFromString, publicAccess);
1787 eClass_AddMethod(doubleClass, "OnSerialize", null, Double_OnSerialize, publicAccess);
1788 eClass_AddMethod(doubleClass, "OnUnserialize", null, Double_OnUnserialize, publicAccess);
1791 public struct StaticString
1795 void OnSerialize(IOChannel channel)
1797 int len = this ? strlen(string) : 0;
1798 channel.WriteData(this ? string : "", len+1);
1801 void OnUnserialize(IOChannel channel)
1808 for(c = 0; channel.ReadData(&string[c], 1) && string[c]; c++);
1813 int OnCompare(StaticString string2)
1817 result = strcmpi(string, string2.string);
1818 else if(!this && string2)
1819 result = -1; // INVERTED THESE 2 CASES
1820 else if(this && !string2)
1825 char * OnGetString(char * tempString, void * fieldData, bool * needClass)
1827 return (char *)(this ? string : null); // Cast for memguard
1835 static void String_OnCopy(Class _class, char ** data, char * newData)
1839 int len = strlen(newData);
1842 *data = eSystem_New(len+1);
1843 memcpy(*data, newData, len+1);
1852 static bool String_OnGetDataFromString(Class _class, char ** data, char * newData)
1856 int len = strlen(newData);
1859 *data = eSystem_New(len+1);
1860 memcpy(*data, newData, len+1);
1868 /*static */int String_OnCompare(Class _class, char * string1, char * string2)
1871 if(string1 && string2)
1872 result = strcmpi(string1, string2);
1873 else if(!string1 && string2)
1875 else if(string1 && !string2)
1880 static char * String_OnGetString(Class _class, char * string, char * tempString, void * fieldData, bool * needClass)
1885 static void String_OnFree(Class _class, char * string)
1889 eSystem_Delete(string);
1893 static void String_OnSerialize(Class _class, char * string, IOChannel channel)
1895 int len = string ? strlen(string) : 0;
1896 channel.WriteData(string ? string : "", len+1);
1899 static void String_OnUnserialize(Class _class, char * * string, IOChannel channel)
1906 *string = new char[size];
1907 for(c = 0; channel.ReadData(&(*string)[c], 1) && (*string)[c]; c++)
1912 *string = renew *string char[size];
1915 (*string)[c++] = '\0';
1916 if(!UTF8Validate(*string))
1918 char * newString = new char[c*2];
1919 ISO8859_1toUTF8(*string, newString, c*2);
1921 *string = renew newString char[strlen(newString)+1];
1924 *string = renew *string char[c];
1928 static void RegisterClass_String(Module module)
1930 Class stringClass = eSystem_RegisterClass(normalClass, "char *", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
1931 delete stringClass.dataTypeString;
1932 stringClass.dataTypeString = CopyString("char *");
1933 stringClass.structSize = 0;
1935 eClass_AddMethod(stringClass, "OnCompare", null, String_OnCompare, publicAccess);
1936 eClass_AddMethod(stringClass, "OnCopy", null, String_OnCopy, publicAccess);
1937 eClass_AddMethod(stringClass, "OnFree", null, String_OnFree, publicAccess);
1938 eClass_AddMethod(stringClass, "OnGetString", null, String_OnGetString, publicAccess);
1939 eClass_AddMethod(stringClass, "OnGetDataFromString", null, String_OnGetDataFromString, publicAccess);
1940 eClass_AddMethod(stringClass, "OnSerialize", null, String_OnSerialize, publicAccess);
1941 eClass_AddMethod(stringClass, "OnUnserialize", null, String_OnUnserialize, publicAccess);
1942 // eClass_AddProperty(stringClass, null, "Class", null, String_GetClass, publicAccess);
1944 stringClass = eSystem_RegisterClass(normalClass, "String", "char *", 0, 0, null, null, module, baseSystemAccess, publicAccess);
1945 stringClass.structSize = 0;
1946 eClass_AddProperty(stringClass, null, "char *", null, null, publicAccess);
1949 void InitializeDataTypes1(Module module)
1951 Class baseClass = eSystem_FindClass(module, "class");
1953 eClass_AddVirtualMethod(baseClass, "OnDisplay", "void typed_object::OnDisplay(Surface surface, int x, int y, int width, void * fieldData, Alignment alignment, DataDisplayFlags displayFlags)", null, publicAccess);
1954 eClass_AddVirtualMethod(baseClass, "OnCompare", "int typed_object::OnCompare(any_object object)", OnCompare, publicAccess);
1955 eClass_AddVirtualMethod(baseClass, "OnCopy", "void typed_object&::OnCopy(any_object newData)", OnCopy, publicAccess);
1956 eClass_AddVirtualMethod(baseClass, "OnFree", "void typed_object::OnFree(void)", OnFree, publicAccess);
1957 eClass_AddVirtualMethod(baseClass, "OnGetString", "char * typed_object::OnGetString(char * tempString, void * fieldData, bool * needClass)", OnGetString, publicAccess);
1958 eClass_AddVirtualMethod(baseClass, "OnGetDataFromString", "bool typed_object&::OnGetDataFromString(char * string)", OnGetDataFromString, publicAccess);
1959 eClass_AddVirtualMethod(baseClass, "OnEdit", "Window typed_object::OnEdit(DataBox dataBox, DataBox obsolete, int x, int y, int w, int h, void * userData)", null, publicAccess);
1960 eClass_AddVirtualMethod(baseClass, "OnSerialize", "void typed_object::OnSerialize(IOChannel channel)", OnSerialize, publicAccess);
1961 eClass_AddVirtualMethod(baseClass, "OnUnserialize", "void typed_object&::OnUnserialize(IOChannel channel)", OnUnserialize, publicAccess);
1962 eClass_AddVirtualMethod(baseClass, "OnSaveEdit", "bool typed_object&::OnSaveEdit(Window window, void * object)", null, publicAccess);
1965 void InitializeDataTypes(Module module)
1967 Class enumClass = eSystem_FindClass(module, "enum");
1969 eClass_AddMethod(enumClass, "OnSerialize", null, Int_OnSerialize, publicAccess);
1970 eClass_AddMethod(enumClass, "OnUnserialize", null, Int_OnUnserialize, publicAccess);
1973 RegisterClass_Integer(module);
1974 RegisterClass_Float(module);
1975 RegisterClass_Double(module);
1976 RegisterClass_String(module);
1979 public int PrintStdArgsToBuffer(char * buffer, int maxLen, typed_object object, va_list args)
1982 // TOFIX: OnGetString will need a maxLen as well
1983 char * result = object.OnGetString(buffer, null, null);
1986 len = strlen(result);
1987 if(len >= maxLen) len = maxLen-1;
1988 if(result != buffer)
1989 memcpy(buffer, result, len);
1993 Class _class = null;
1996 _class = va_arg(args, void *);
1998 data = va_arg(args, void *);
2001 // TOFIX: OnGetString will need a maxLen as well
2002 result = ((char *(*)(void *, void *, char *, void *, bool *))(void *)_class._vTbl[__ecereVMethodID_class_OnGetString])(_class, data, buffer + len, null, null);
2005 int newLen = strlen(result);
2006 if(len + newLen >= maxLen) newLen = maxLen-1-len;
2007 if(result != buffer + len)
2008 memcpy(buffer + len, result, newLen);
2017 public int PrintBuf(char * buffer, int maxLen, typed_object object, ...)
2021 va_start(args, object);
2022 len = PrintStdArgsToBuffer(buffer, maxLen, object, args);
2027 public int PrintLnBuf(char * buffer, int maxLen, typed_object object, ...)
2031 va_start(args, object);
2032 len = PrintStdArgsToBuffer(buffer, maxLen-1, object, args);
2033 buffer[len++] = '\n';
2039 public char * PrintString(typed_object object, ...)
2045 va_start(args, object);
2046 len = PrintStdArgsToBuffer(buffer, sizeof(buffer), object, args);
2047 string = new char[len + 1];
2048 memcpy(string, buffer, len + 1);
2053 public char * PrintLnString(typed_object object, ...)
2059 va_start(args, object);
2060 len = PrintStdArgsToBuffer(buffer, sizeof(buffer), object, args);
2061 string = new char[len + 2];
2062 memcpy(string, buffer, len);
2063 string[len++] = '\n';
2069 #if defined(__ANDROID__)
2070 #include <android/log.h>
2071 #define LOGI(...) ((void)__android_log_print(ANDROID_LOG_INFO, "ecere-app", __VA_ARGS__))
2074 public void PrintLn(typed_object object, ...)
2078 va_start(args, object);
2079 PrintStdArgsToBuffer(buffer, sizeof(buffer), object, args);
2081 #if defined(__ANDROID__) && !defined(ECERE_NOFILE)
2088 public void Print(typed_object object, ...)
2092 va_start(args, object);
2093 PrintStdArgsToBuffer(buffer, sizeof(buffer), object, args);
2095 fputs(buffer, eC_stdout());