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 NamedLink item = null;
191 for(b = _class; !item && b && b.type == enumClass; b = b.base)
193 EnumClassData enumeration = (EnumClassData)b.data;
194 for(item = enumeration.values.first; item; item = item.next)
195 if((int)item.data == *data)
200 strcpy(tempString, item.name);
201 if(!needClass || !*needClass)
202 tempString[0] = (char)toupper(tempString[0]);
210 static bool Enum_OnGetDataFromString(Class _class, int * data, char * string)
212 NamedLink item = null;
214 for(b = _class; !item && b && b.type == enumClass; b = b.base)
216 EnumClassData enumeration = (EnumClassData)_class.data;
217 for(item = enumeration.values.first; item; item = item.next)
219 if(item.name && !strcmpi(item.name, string))
225 *data = (int)item.data;
229 return Integer_OnGetDataFromString(_class, data, string);
233 static void OnFree(Class _class, void * data)
235 if(_class.templateClass) _class = _class.templateClass;
236 if(_class.type == normalClass)
238 // eInstance_Delete(data);
239 eInstance_DecRef(data);
241 else if(_class.type == noHeadClass && data)
243 while(_class && _class.type == noHeadClass)
245 if(_class.Destructor)
246 _class.Destructor(data);
247 _class = _class.base;
253 static int DataMember_OnCompare(DataMember parentMember, void * data1, void * data2)
256 Module module = parentMember._class.module;
257 for(member = parentMember.members.first; member; member = member.next)
259 int memberResult = 0;
260 if(member.type == normalMember)
262 Class memberType = member.dataTypeClass;
265 memberType = member.dataTypeClass = eSystem_FindClass(module, member.dataTypeString);
267 memberType = member.dataTypeClass = eSystem_FindClass(module, "int");
269 if(memberType.type == structClass || memberType.type == normalClass || memberType.type == noHeadClass)
271 memberResult = ((int (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnCompare])(memberType,
272 (byte *)data1 + member.offset,
273 (byte *)data2 + member.offset);
279 DataValue value1, value2;
280 value1.i = *(int *)((byte *)data1 + member.offset);
281 value2.i = *(int *)((byte *)data2 + member.offset);
282 memberResult = ((int (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnCompare])(memberType, &value1, &value2);
289 memberResult = DataMember_OnCompare(member,
290 (byte *)data1 + member.offset,
291 (byte *)data2 + member.offset);
299 static int OnCompare(Class _class, void * data1, void * data2)
301 Module module = _class.module;
302 if(_class.type == normalClass || _class.type == noHeadClass || _class.type == structClass)
306 // NOTE: Comparing from top class down here... might want to reverse it
307 for(; _class && _class.type != systemClass; _class = _class.base)
311 // TESTING THIS HERE...
312 if(_class.noExpansion)
314 if(data1 > data2) return 1;
315 else if(data1 < data2) return -1;
320 for(member = _class.membersAndProperties.first; member; member = member.next)
322 int memberResult = 0;
323 if(member.id < 0) continue;
324 if(member.isProperty || member.type == normalMember)
326 Class memberType = member.dataTypeClass;
329 memberType = member.dataTypeClass = eSystem_FindClass(module, member.dataTypeString);
332 memberType = member.dataTypeClass = eSystem_FindClass(module, "int");
336 if(member.isProperty)
338 Property prop = (Property)member;
339 if(!prop.conversion && prop.Get && prop.Set)
341 if(memberType.type == structClass || memberType.type == normalClass || memberType.type == noHeadClass)
343 if(!strcmp(memberType.dataTypeString, "char *"))
345 String a = ((String(*)(void *))(void *)prop.Get)(data1);
346 String b = ((String(*)(void *))(void *)prop.Get)(data2);
347 memberResult = ((int (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnCompare])(memberType, a, b);
352 DataValue value1, value2;
353 if(!strcmp(memberType.dataTypeString, "float"))
355 value1.f = ((float(*)(void *))(void *)prop.Get)(data1);
356 value2.f = ((float(*)(void *))(void *)prop.Get)(data2);
360 value1.i = ((int(*)(void*))(void *)prop.Get)(data1);
361 value2.i = ((int(*)(void*))(void *)prop.Get)(data2);
363 memberResult = ((int (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnCompare])(memberType, &value1, &value2);
369 if(memberType.type == structClass || memberType.type == normalClass || memberType.type == noHeadClass)
371 if(memberType.type == normalClass || memberType.type == noHeadClass)
374 memberResult = ((int (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnCompare])(memberType,
375 *(void **)((byte *)data1 + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset)),
376 *(void **)((byte *)data2 + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset)));
380 memberResult = ((int (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnCompare])(memberType,
381 (byte *)data1 + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset),
382 (byte *)data2 + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset));
387 DataValue value1, value2;
388 if(memberType.typeSize == 8)
390 value1.ui64 = *(uint64 *)((byte *)data1 + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset));
391 value2.ui64 = *(uint64 *)((byte *)data2 + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset));
395 value1.i = *(int *)((byte *)data1 + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset));
396 value2.i = *(int *)((byte *)data2 + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset));
398 memberResult = ((int (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnCompare])(memberType, &value1, &value2);
404 // printf("Unknown type\n");
409 memberResult = DataMember_OnCompare(member,
410 (byte *)data1 + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset),
411 (byte *)data2 + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset));
418 else if(!data1 && data2)
420 else if(data1 && !data2)
423 else if(_class.type == unitClass)
425 Class dataType = eSystem_FindClass(module, _class.dataTypeString);
426 return ((int (*)(void *, void *, void *))(void *)dataType._vTbl[__ecereVMethodID_class_OnCompare])(dataType, data1, data2);
433 if(_class.typeSize == 8)
435 if(*(uint64 *)data1 > *(uint64 *)data2)
437 else if(*(uint64 *)data1 < *(uint64 *)data2)
442 if(*(uint *)data1 > *(uint *)data2)
444 else if(*(uint *)data1 < *(uint *)data2)
448 else if(!data1 && data2)
450 else if(data1 && !data2)
457 static char * OnGetString(Class _class, void * data, char * tempString, void * fieldData, bool * needClass)
459 // WHY DOES _class.module NOT SEEM TO WORK?
460 Module module = _class.templateClass ? _class.templateClass.module : _class.module;
461 if(_class.type == normalClass && _class.base && !_class.base.base)
463 if(sizeof(uintsize) == 8)
464 return UInt64Hex_OnGetString(_class, (void *)&data, tempString, fieldData, needClass);
466 return UIntegerHex_OnGetString(_class, (void *)&data, tempString, fieldData, needClass);
468 else if(_class.type == enumClass)
470 return Enum_OnGetString(_class, data, tempString, fieldData, needClass);
472 else if(_class.type == unitClass)
476 for(prop = _class.conversions.first; prop; prop = prop.next)
478 bool refProp = false;
480 if(!strcmp(prop.name, _class.base.fullName))
482 else if( (c = eSystem_FindClass(_class.module, prop.name) ) )
485 for(p = c.conversions.first; p; p = p.next)
487 if(!strcmp(p.name, _class.base.fullName) && !p.Set && !p.Get)
496 if(prop.Set && prop.Get)
498 String dts = _class.base.dataTypeString;
499 if(!strcmp(dts, "double"))
501 double d = ((double(*)(double))(void *)prop.Set)(*(double *)data);
502 return ((char *(*)(void *, void *, char *, void *, bool *))(void *)class(double)._vTbl[__ecereVMethodID_class_OnGetString])(class(double), &d, tempString, fieldData, needClass);
504 else if(!strcmp(dts, "float"))
506 float d = ((float(*)(float))(void *)prop.Set)(*(float *)data);
507 return ((char *(*)(void *, void *, char *, void *, bool *))(void *)class(float)._vTbl[__ecereVMethodID_class_OnGetString])(class(float), &d, tempString, fieldData, needClass);
509 else if(!strcmp(dts, "int"))
511 int d = ((int(*)(int))(void *)prop.Set)(*(int *)data);
512 return ((char *(*)(void *, void *, char *, void *, bool *))(void *)class(int)._vTbl[__ecereVMethodID_class_OnGetString])(class(int), &d, tempString, fieldData, needClass);
514 else if(!strcmp(dts, "int64"))
516 int64 d = ((int64(*)(int64))(void *)prop.Set)(*(int64 *)data);
517 return ((char *(*)(void *, void *, char *, void *, bool *))(void *)class(int64)._vTbl[__ecereVMethodID_class_OnGetString])(class(int64), &d, tempString, fieldData, needClass);
524 dataType = eSystem_FindClass(module, _class.dataTypeString);
525 return ((char *(*)(void *, void *, char *, void *, bool *))(void *)dataType._vTbl[__ecereVMethodID_class_OnGetString])(dataType, data, tempString, fieldData, needClass);
529 bool atMember = true;
531 Class mainClass = _class;
533 tempString[0] = '\0';
534 if(!data && (mainClass.type == normalClass || mainClass.type == noHeadClass)) return tempString;
536 while(_class != mainClass)
539 Class lastClass = _class;
541 for(_class = mainClass; _class.base != lastClass && _class.base.type != systemClass; _class = _class.base);
543 for(member = _class.membersAndProperties.first; member; member = member.next)
545 char memberString[1024];
546 Class memberType = member.dataTypeClass;
547 char * name = member.name;
548 if(member.id < 0) continue;
553 memberType = member.dataTypeClass = eSystem_FindClass(module, member.dataTypeString);
555 memberType = member.dataTypeClass = eSystem_FindClass(module, "int");
557 if(member.isProperty)
559 Property prop = (Property) member;
561 if(!prop.conversion && prop.Get && prop.Set && (!prop.IsSet || prop.IsSet(data)))
563 if(memberType.type != structClass && (memberType.type != normalClass || !strcmp(memberType.dataTypeString, "char *")) && memberType.type != bitClass && data)
565 DataValue value = { 0 };
566 if(!strcmp(prop.dataTypeString, "float"))
568 value.f = ((float(*)(void *))(void *)prop.Get)(data);
571 bool needClass = true;
572 char * result = ((char *(*)(void *, void *, char *, void *, bool *))(void *)memberType._vTbl[__ecereVMethodID_class_OnGetString])(memberType, &value, memberString, null, &needClass);
573 if(result && result != memberString)
574 strcpy(memberString, result);
576 if(strchr(memberString, '.'))
577 strcat(memberString, "f");
580 else if(memberType.type == normalClass || memberType.type == noHeadClass)
582 value.p = ((void *(*)(void *))(void *)prop.Get)(data);
583 if(value.p || prop.IsSet)
585 bool needClass = true;
586 char * result = ((char *(*)(void *, void *, char *, void *, bool *))(void *)memberType._vTbl[__ecereVMethodID_class_OnGetString])(memberType,
587 (memberType.type == normalClass) ? value.p : &value, memberString, null, &needClass);
588 if(result && result != memberString)
589 strcpy(memberString, result);
594 value.i = ((int(*)(void *))(void *)prop.Get)(data);
595 if(value.i || prop.IsSet)
597 bool needClass = true;
598 char * result = ((char *(*)(void *, void *, char *, void *, bool *))(void *)memberType._vTbl[__ecereVMethodID_class_OnGetString])(memberType, &value, memberString, null, &needClass);
599 if(result && result != memberString)
600 strcpy(memberString, result);
608 if(member.type == normalMember)
610 if(memberType.type == structClass || memberType.type == normalClass)
612 char internalMemberString[1024];
613 byte * memberData = ((byte *)data + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset));
615 uint typeSize = (memberType.type == normalClass) ? memberType.typeSize : memberType.structSize;
616 for(c = 0; c < typeSize; c++)
621 bool needClass = true;
623 if(memberType.type == normalClass)
624 result = ((char *(*)(void *, void *, char *, void *, bool *))(void *)memberType._vTbl[__ecereVMethodID_class_OnGetString])(memberType, *(Instance *)memberData, internalMemberString, null, &needClass);
626 result = ((char *(*)(void *, void *, char *, void *, bool *))(void *)memberType._vTbl[__ecereVMethodID_class_OnGetString])(memberType, memberData, internalMemberString, null, &needClass);
627 if(needClass && strcmp(memberType.dataTypeString, "char *"))
629 //strcpy(memberString, memberType.name);
630 strcat(memberString, "{ ");
631 if(result) strcat(memberString, result);
632 strcat(memberString, " }");
635 strcpy(memberString, result);
638 //else if(_class /*memberType*/.type != bitClass)
639 else // if(_class /*memberType*/.type != bitClass)
641 DataValue value = { 0 };
642 if(_class.type == bitClass)
644 BitMember bitMember = (BitMember) member;
645 // TODO: Check if base type is 32 or 64 bit
647 //value.ui = (((uint)data & bitMember.mask) >> bitMember.pos);
648 value.ui64 = ((*(uint*)data & bitMember.mask) >> bitMember.pos);
651 bool needClass = true;
652 char internalMemberString[1024];
653 char * result = ((char *(*)(void *, void *, char *, void *, bool *))(void *)memberType._vTbl[__ecereVMethodID_class_OnGetString])(memberType, &value, internalMemberString, null, &needClass);
655 if(needClass && memberType.type != systemClass && memberType.type != enumClass && memberType.type != unitClass)
657 //strcpy(memberString, memberType.name);
658 strcat(memberString, " { ");
659 if(result) strcat(memberString, result);
660 strcat(memberString, " }");
663 strcpy(memberString, result);
665 if(result && memberString != result)
666 strcpy(memberString, result);
670 else if(!memberType.noExpansion)
672 // TOCHECK: Is this still right??
673 if(memberType.typeSize <= 4)
675 value.i = *(int *)((byte *)data + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset));
678 bool needClass = true;
679 char * result = ((char *(*)(void *, void *, char *, void *, bool *))(void *)memberType._vTbl[__ecereVMethodID_class_OnGetString])(memberType, &value, memberString, null, &needClass);
680 if(result && memberString != result)
681 strcpy(memberString, result);
686 bool needClass = true;
687 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);
688 if(result && memberString != result)
689 strcpy(memberString, result);
695 char internalMemberString[1024];
696 byte * memberData = ((byte *)data + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset));
697 bool needClass = true;
699 result = ((char *(*)(void *, void *, char *, void *, bool *))(void *)memberType._vTbl[__ecereVMethodID_class_OnGetString])(memberType, memberData, internalMemberString, null, &needClass);
702 //strcpy(memberString, memberType.name);
703 strcat(memberString, "{ ");
704 if(result) strcat(memberString, result);
705 strcat(memberString, " }");
708 strcpy(memberString, result);
714 // TODO: Fix atID stuff
718 strcat(tempString, ", ");
719 if(!atMember || !strcmp(memberType.name, "bool"))
721 strcat(tempString, name);
722 strcat(tempString, " = ");
725 if(!strcmp(memberType.name, "char *"))
727 int len = strlen(tempString);
729 strcat(tempString, "\"");
731 for(c = 0; memberString[c]; c++)
733 if(memberString[c] == '\"')
735 strcat(tempString, "\\\"");
738 else if(memberString[c] == '\\')
740 strcat(tempString, "\\\\");
745 tempString[len++] = memberString[c];
749 strcat(tempString, "\"");
752 strcat(tempString, memberString);
757 else if(member && (!member.isProperty || !((Property)member).conversion))
765 static bool OnGetDataFromString(Class _class, void ** data, char * string)
768 Module module = _class.module;
769 if(_class.type == enumClass)
770 result = Enum_OnGetDataFromString(_class, (int *)data, string);
771 else if(_class.type == unitClass)
775 for(prop = _class.conversions.first; prop; prop = prop.next)
777 bool refProp = false;
779 if(!strcmp(prop.name, _class.base.fullName))
781 else if( (c = eSystem_FindClass(_class.module, prop.name) ) )
784 for(p = c.conversions.first; p; p = p.next)
786 if(!strcmp(p.name, _class.base.fullName) && !p.Set && !p.Get)
795 if(prop.Set && prop.Get)
797 String dts = _class.base.dataTypeString;
798 if(!strcmp(dts, "double"))
801 bool result = ((bool (*)(void *, void *, const char *))(void *)class(double)._vTbl[__ecereVMethodID_class_OnGetDataFromString])(class(double), &d, string);
802 *(double *)data =((double(*)(double))(void *)prop.Get)(d);
805 else if(!strcmp(dts, "float"))
808 bool result = ((bool (*)(void *, void *, const char *))(void *)class(float)._vTbl[__ecereVMethodID_class_OnGetDataFromString])(class(float), &d, string);
809 *(float *)data = ((float(*)(float))(void *)prop.Get)(d);
812 else if(!strcmp(dts, "int"))
815 bool result = ((bool (*)(void *, void *, const char *))(void *)class(int)._vTbl[__ecereVMethodID_class_OnGetDataFromString])(class(int), &d, string);
816 *(int *)data = ((int(*)(int))(void *)prop.Get)(d);
819 else if(!strcmp(dts, "int64"))
822 bool result = ((bool (*)(void *, void *, const char *))(void *)class(int64)._vTbl[__ecereVMethodID_class_OnGetDataFromString])(class(int64), &d, string);
823 *(int64 *)data = ((int64(*)(int64))(void *)prop.Get)(d);
831 dataType = eSystem_FindClass(module, _class.dataTypeString);
832 return ((bool (*)(void *, void *, const char *))(void *)dataType._vTbl[__ecereVMethodID_class_OnGetDataFromString])(dataType, data, string);
834 else if(!string[0] && _class.type == normalClass)
836 // result = false; // Why was this data = null commented?
843 char memberName[1024];
844 char memberString[10240];
852 Class curClass = null;
853 DataMember curMember = null;
854 DataMember subMemberStack[256];
855 int subMemberStackPos = 0;
859 if(_class.type == noHeadClass || _class.type == normalClass)
861 data = *data = eInstance_New(_class);
862 if(_class.type == normalClass)
863 ((Instance)data)._refCount++;
865 else if(/*_class.type == noHeadClass || */_class.type == structClass)
866 memset(data, 0, _class.structSize);
867 // Bit classes cleared outside?
869 memberName[0] = '\0';
871 for(c = 0; string[c] && count < sizeof(memberString); )
874 DataMember thisMember = null;
878 for(; (ch = string[c]) && count < sizeof(memberString); c++)
880 if(ch == '\"' && !escape)
886 if(!escape && ch == '\\')
892 memberString[count++] = ch;
896 // TOFIX: OnGetDataFromString is far from ready as a generic object notation reader...
897 // 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
898 // Is it used by the compiler?
899 else if(ch == ' ') // || ch == '\n' || ch == '\t' || ch == '\r')
902 memberString[count++] = ch;
908 memberString[count++] = ch;
918 // If bracket is not initialization
919 if(gotChar && !brackets)
927 memberString[count++] = ch;
938 memberString[count++] = ch;
945 memberString[count++] = ch;
949 memberString[count] = '\0';
950 //TrimLSpaces(memberString, memberName);
951 //TrimRSpaces(memberName, memberString);
952 //strcpy(memberName, memberString);
954 TrimRSpaces(memberString, memberName);
961 memberString[count++] = ch;
966 memberString[count] = '\0';
967 TrimRSpaces(memberString, memberString);
971 DataMember _subMemberStack[256];
972 int _subMemberStackPos = 0;
974 thisMember = eClass_FindDataMemberAndOffset(_class, memberName, &memberOffset, _class.module, _subMemberStack, &_subMemberStackPos);
977 thisMember = (DataMember)eClass_FindProperty(_class, memberName, _class.module);
980 if(thisMember.memberAccess == publicAccess)
982 curMember = thisMember;
983 curClass = thisMember._class;
984 memcpy(subMemberStack, _subMemberStack, sizeof(int) * _subMemberStackPos);
985 subMemberStackPos = _subMemberStackPos;
992 eClass_FindNextMember(_class, &curClass, (DataMember *)&curMember, subMemberStack, &subMemberStackPos);
993 thisMember = curMember;
997 eClass_FindDataMemberAndOffset(_class, thisMember.name, &memberOffset, _class.module, null, null);
1002 Class memberType = thisMember.dataTypeClass;
1005 memberType = thisMember.dataTypeClass = eSystem_FindClass(module, thisMember.dataTypeString);
1007 memberType = thisMember.dataTypeClass = eSystem_FindClass(module, "int");
1008 if(memberType.type == structClass)
1012 if(!((bool (*)(void *, void *, const char *))(void *)memberType._vTbl[__ecereVMethodID_class_OnGetDataFromString])(memberType,
1013 (byte *)data + (((thisMember._class.type == normalClass) ? thisMember._class.offset : 0) + memberOffset), memberString))
1019 DataValue value = { 0 };
1020 // Patch for hotKey crash ( #556 )
1021 // Key has a member KeyCode, which inherits from Key
1022 // We don't want KeyCode to use its base class OnGetDataFromString
1023 if(memberType._vTbl[__ecereVMethodID_class_OnGetDataFromString] == _class._vTbl[__ecereVMethodID_class_OnGetDataFromString])
1025 if(!OnGetDataFromString(memberType, &value, memberString))
1028 else if(!((bool (*)(void *, void *, const char *))(void *)memberType._vTbl[__ecereVMethodID_class_OnGetDataFromString])(memberType, &value, memberString))
1030 if(thisMember && !thisMember.isProperty)
1032 if(_class.type == bitClass)
1034 BitMember bitMember = (BitMember) thisMember;
1035 // TODO: Check if bit _class is 32 or 64 bit
1036 *(uint *)data = (uint32)(((*(uint *)data & ~bitMember.mask)) | ((value.ui64<<bitMember.pos)&bitMember.mask));
1039 *(int *)((byte *)data + (((thisMember._class.type == normalClass) ? thisMember._class.offset : 0) + thisMember.offset)) = value.i;
1041 else if(thisMember.isProperty && ((Property)thisMember).Set)
1043 if(memberType.type == noHeadClass || memberType.type == normalClass || memberType.type == structClass)
1044 ((void (*)(void *, void *))(void *)((Property)thisMember).Set)(data, value.p);
1046 ((void (*)(void *, int))(void *)((Property)thisMember).Set)(data, value.i);
1054 memberName[0] = '\0';
1060 static void OnCopy(Class _class, void ** data, void * newData)
1062 // TO IMPROVE: Inherit from Unit class for better performance?
1063 if(_class.type == unitClass || _class.type == bitClass || _class.type == enumClass)
1065 Class dataType = eSystem_FindClass(_class.module, _class.dataTypeString);
1067 ((void (*)(void *, void *, void *))(void *)dataType._vTbl[__ecereVMethodID_class_OnCopy])(dataType, data, newData);
1069 else if(_class.type != structClass && _class.type != systemClass)
1073 // Here we have either a structClass or a systemClass
1075 memcpy(data, newData, _class.typeSize);
1077 memset(data, 0, _class.typeSize);
1080 static int DataMember_OnSerialize(DataMember parentMember, void * data, IOChannel channel)
1083 Module module = parentMember._class.module;
1084 for(member = parentMember.members.first; member; member = member.next)
1086 if(member.type == normalMember)
1088 Class memberType = member.dataTypeClass;
1091 memberType = member.dataTypeClass = eSystem_FindClass(module, member.dataTypeString);
1093 memberType = member.dataTypeClass = eSystem_FindClass(module, "int");
1095 if(memberType.type == structClass || memberType.type == normalClass || memberType.type == noHeadClass)
1097 ((void (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnSerialize])(memberType, (byte *)data + member.offset, channel);
1102 value.i = *(int *)((byte *)data + member.offset);
1103 ((void (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnSerialize])(memberType, &value, channel);
1108 DataMember_OnSerialize(member, (byte *)data + member.offset, channel);
1114 static void OnSerialize(Class _class, void * data, IOChannel channel)
1116 Module module = _class.module;
1117 // TO IMPROVE: Inherit from Unit class for better performance?
1118 if(_class.type == unitClass || _class.type == bitClass || _class.type == enumClass)
1120 Class dataType = eSystem_FindClass(module, _class.dataTypeString);
1122 ((void (*)(void *, void *, void *))(void *)dataType._vTbl[__ecereVMethodID_class_OnSerialize])(dataType, data, channel);
1124 else if(_class.type == normalClass || _class.type == noHeadClass || _class.type == structClass)
1128 Class lastClass = null;
1129 while(lastClass != _class)
1133 for(c = _class; c && (!c.base || c.base.type != systemClass) && c.base != lastClass; c = c.base);
1136 for(member = c.membersAndProperties.first; member; member = member.next)
1138 if(member.id < 0) continue;
1139 if(member.isProperty || member.type == normalMember)
1141 Class memberType = member.dataTypeClass;
1144 memberType = member.dataTypeClass = eSystem_FindClass(module, member.dataTypeString);
1147 if(member.isProperty)
1149 /*Property prop = (Property)member;
1150 if(!prop.conversion && prop.Get && prop.Set)
1152 if(memberType.type == structClass || memberType.type == normalClass || memberType.type == noHeadClass)
1159 if(!strcmp(memberType.dataTypeString, "float"))
1161 value.f = ((float(*)())(void *)prop.Get)(data);
1165 value.i = prop.Get(data);
1167 ((void (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnSerialize])(memberType, &value, channel);
1173 if(!strcmp(memberType.name, "String") || memberType.type == normalClass || memberType.type == noHeadClass)
1175 ((void (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnSerialize])(memberType, data ? (*(void **)((byte *)data + member._class.offset + member.offset)) : null, channel);
1178 ((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);
1183 // printf("Unknown type\n");
1188 DataMember_OnSerialize(member, data ? ((byte *)data + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset)) : null, channel);
1196 static int DataMember_OnUnserialize(DataMember parentMember, void * data, IOChannel channel)
1199 Module module = parentMember._class.module;
1200 for(member = parentMember.members.first; member; member = member.next)
1202 if(member.type == normalMember)
1204 Class memberType = member.dataTypeClass;
1207 memberType = member.dataTypeClass = eSystem_FindClass(module, member.dataTypeString);
1209 memberType = member.dataTypeClass = eSystem_FindClass(module, "int");
1211 if(memberType.type == structClass || memberType.type == normalClass || memberType.type == noHeadClass)
1213 ((void (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnUnserialize])(memberType, (byte *)data + member.offset, channel);
1218 ((void (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnUnserialize])(memberType, &value, channel);
1219 *(int *)((byte *)data + member.offset) = value.i;
1224 DataMember_OnUnserialize(member, (byte *)data + member.offset, channel);
1230 static void OnUnserialize(Class _class, void ** data, IOChannel channel)
1232 Module module = _class.module;
1233 if(_class.type == unitClass || _class.type == bitClass || _class.type == enumClass)
1235 Class dataType = eSystem_FindClass(module, _class.dataTypeString);
1237 ((void (*)(void *, void *, void *))(void *)dataType._vTbl[__ecereVMethodID_class_OnUnserialize])(dataType, data, channel);
1239 else if(_class.type == normalClass || _class.type == noHeadClass || _class.type == structClass)
1243 Class lastClass = null;
1244 if(_class.type == normalClass || _class.type == noHeadClass)
1246 // TOFIX: Seriously!?!?? Fix me!
1247 data = *data = eInstance_New(_class);
1248 if(_class.type == normalClass)
1249 ((Instance)data)._refCount++;
1251 else if(/*_class.type == noHeadClass || */_class.type == structClass)
1252 memset(data, 0, _class.structSize);
1254 while(lastClass != _class)
1258 for(c = _class; c && (!c.base || c.base.type != systemClass) && c.base != lastClass; c = c.base);
1261 for(member = c.membersAndProperties.first; member; member = member.next)
1263 if(member.id < 0) continue;
1264 if(member.isProperty || member.type == normalMember)
1266 Class memberType = member.dataTypeClass;
1269 memberType = member.dataTypeClass = eSystem_FindClass(module, member.dataTypeString);
1272 if(member.isProperty)
1274 /*Property prop = (Property)member;
1275 if(!prop.conversion && prop.Get && prop.Set)
1277 if(memberType.type == structClass || memberType.type == normalClass || memberType.type == noHeadClass)
1284 ((void (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnUnserialize])(memberType, &value, channel);
1285 prop.Set(data, value.i);
1290 ((void (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnUnserialize])(memberType,
1291 (byte *)data + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset), channel);
1295 // printf("Unknown type\n");
1300 DataMember_OnUnserialize(member, (byte *)data + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset), channel);
1309 static int Integer_OnCompare(Class _class, int * data1, int * data2)
1312 if(!data1 && !data2) result = 0;
1313 else if(data1 && !data2) result = 1;
1314 else if(!data1 && data2) result = -1;
1315 else if(*data1 > *data2) result = 1;
1316 else if(*data1 < *data2) result = -1;
1320 /*static */char * Integer_OnGetString(Class _class, int * data, char * string, void * fieldData, bool * needClass)
1322 sprintf(string, "%d", *data);
1326 static bool Integer_OnGetDataFromString(Class _class, int * data, char * string)
1329 int result = strtol(string, &end, 0);
1339 static int UInteger_OnCompare(Class _class, unsigned int * data1, unsigned int * data2)
1342 if(!data1 && !data2) result = 0;
1343 else if(data1 && !data2) result = 1;
1344 else if(!data1 && data2) result = -1;
1345 else if(*data1 > *data2) result = 1;
1346 else if(*data1 < *data2) result = -1;
1350 static char * UInteger_OnGetString(Class _class, unsigned int * data, char * string, void * fieldData, bool * needClass)
1352 sprintf(string, "%u", *data);
1356 static char * UIntegerHex_OnGetString(Class _class, unsigned int * data, char * string, void * fieldData, bool * needClass)
1358 sprintf(string, "%x", *data);
1362 static bool UInteger_OnGetDataFromString(Class _class, unsigned int * data, char * string)
1365 uint result = (uint)strtoul(string, &end, 0);
1374 static int Byte_OnCompare(Class _class, byte * data1, byte * data2)
1377 if(!data1 && !data2) result = 0;
1378 else if(data1 && !data2) result = 1;
1379 else if(!data1 && data2) result = -1;
1380 else if(*data1 > *data2) result = 1;
1381 else if(*data1 < *data2) result = -1;
1385 static char * Byte_OnGetString(Class _class, byte * data, char * string, void * fieldData, bool * needClass)
1387 sprintf(string, "%u", (int)*data);
1391 static char * Char_OnGetString(Class _class, char * data, char * string, void * fieldData, bool * needClass)
1393 if(needClass && *needClass)
1396 if(ch == '\t') strcpy(string, "'\t'");
1397 else if(ch == '\n') strcpy(string, "'\n'");
1398 else if(ch == '\r') strcpy(string, "'\r'");
1399 else if(ch == '\a') strcpy(string, "'\a'");
1400 else if(ch == '\\') strcpy(string, "'\\'");
1401 else if(ch < 32 || ch >= 127) sprintf(string, "'\o'", ch);
1402 else sprintf(string, "'%c'", ch);
1405 sprintf(string, "%c", *data);
1409 static bool Byte_OnGetDataFromString(Class _class, byte * data, char * string)
1412 byte result = (byte)strtoul(string, &end, 0);
1421 static int Int64_OnCompare(Class _class, int64 * data1, int64 * data2)
1424 if(!data1 && !data2) result = 0;
1425 else if(data1 && !data2) result = 1;
1426 else if(!data1 && data2) result = -1;
1427 else if(*data1 > *data2) result = 1;
1428 else if(*data1 < *data2) result = -1;
1432 static int UInt64_OnCompare(Class _class, uint64 * data1, uint64 * data2)
1435 if(!data1 && !data2) result = 0;
1436 else if(data1 && !data2) result = 1;
1437 else if(!data1 && data2) result = -1;
1438 else if(*data1 > *data2) result = 1;
1439 else if(*data1 < *data2) result = -1;
1443 static char * Int64_OnGetString(Class _class, int64 * data, char * string, void * fieldData, bool * needClass)
1445 sprintf(string, FORMAT64D, *data);
1449 static char * UInt64_OnGetString(Class _class, uint64 * data, char * string, void * fieldData, bool * needClass)
1451 sprintf(string, FORMAT64U, *data);
1455 static char * UInt64Hex_OnGetString(Class _class, uint64 * data, char * string, void * fieldData, bool * needClass)
1457 sprintf(string, FORMAT64HEX, *data);
1461 static char * UIntPtr64_OnGetString(Class _class, uint64 data, char * string, void * fieldData, bool * needClass)
1463 return UInt64Hex_OnGetString(_class, &data, string, fieldData, needClass);
1466 static char * UIntPtr32_OnGetString(Class _class, uint data, char * string, void * fieldData, bool * needClass)
1468 return UIntegerHex_OnGetString(_class, &data, string, fieldData, needClass);
1471 static char * IntPtr64_OnGetString(Class _class, uint64 data, char * string, void * fieldData, bool * needClass)
1473 return Int64_OnGetString(_class, &data, string, fieldData, needClass);
1476 static char * IntPtr32_OnGetString(Class _class, uint data, char * string, void * fieldData, bool * needClass)
1478 return Integer_OnGetString(_class, &data, string, fieldData, needClass);
1481 static bool Int64_OnGetDataFromString(Class _class, uint64 * data, char * string)
1484 uint64 result = _strtoi64(string, &end, 0);
1493 static bool UInt64_OnGetDataFromString(Class _class, uint64 * data, char * string)
1496 uint64 result = _strtoui64(string, &end, 0);
1505 /*static */void Byte_OnSerialize(Class _class, byte * data, IOChannel channel)
1507 channel.WriteData(data, 1);
1510 /*static */void Byte_OnUnserialize(Class _class, byte * data, IOChannel channel)
1512 if(channel.ReadData(data, 1) != 1)
1517 /*static */void Int_OnSerialize(Class _class, int * data, IOChannel channel)
1520 PUTXDWORD(bytes, * data);
1521 channel.WriteData(bytes, 4);
1524 /*static */void Int_OnUnserialize(Class _class, int * data, IOChannel channel)
1527 if(channel.ReadData(bytes, 4) == 4)
1528 *data = GETXDWORD(bytes);
1533 /*static */void Enum_OnSerialize(Class _class, int * data, IOChannel channel)
1535 Class dataType = strcmp(_class.dataTypeString, "int") ? eSystem_FindClass(_class.module, _class.dataTypeString) : null;
1537 ((void (*)(void *, void *, void *))(void *)dataType._vTbl[__ecereVMethodID_class_OnSerialize])(dataType, data, channel);
1539 Int_OnSerialize(_class, data, channel);
1542 /*static */void Enum_OnUnserialize(Class _class, int * data, IOChannel channel)
1544 Class dataType = strcmp(_class.dataTypeString, "int") ? eSystem_FindClass(_class.module, _class.dataTypeString) : null;
1546 ((void (*)(void *, void *, void *))(void *)dataType._vTbl[__ecereVMethodID_class_OnUnserialize])(dataType, data, channel);
1548 Int_OnUnserialize(_class, data, channel);
1551 /*static */void Int64_OnSerialize(Class _class, int64 * data, IOChannel channel)
1554 PUTXQWORD(bytes, * data);
1555 channel.WriteData(bytes, 8);
1558 /*static */void Int64_OnUnserialize(Class _class, int64 * data, IOChannel channel)
1561 if(channel.ReadData(bytes, 8) == 8)
1562 *data = GETXQWORD(bytes);
1567 /*static */void Word_OnSerialize(Class _class, uint16 * data, IOChannel channel)
1570 PUTXWORD(bytes, * data);
1571 channel.WriteData(bytes, 2);
1574 /*static */void Word_OnUnserialize(Class _class, uint16 * data, IOChannel channel)
1577 if(channel.ReadData(bytes, 2) == 2)
1578 *data = GETXWORD(bytes);
1583 static void RegisterClass_Integer(Module module)
1585 Class integerClass = eSystem_RegisterClass(normalClass, "int", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
1586 integerClass.type = systemClass;
1587 delete integerClass.dataTypeString;
1588 integerClass.dataTypeString = CopyString("int");
1589 integerClass.structSize = 0;
1590 integerClass.typeSize = sizeof(int);
1592 eClass_AddMethod(integerClass, "OnCompare", null, Integer_OnCompare, publicAccess);
1593 eClass_AddMethod(integerClass, "OnGetString", null, Integer_OnGetString, publicAccess);
1594 eClass_AddMethod(integerClass, "OnGetDataFromString", null, Integer_OnGetDataFromString, publicAccess);
1595 eClass_AddMethod(integerClass, "OnSerialize", null, Int_OnSerialize, publicAccess);
1596 eClass_AddMethod(integerClass, "OnUnserialize", null, Int_OnUnserialize, publicAccess);
1598 integerClass = eSystem_RegisterClass(normalClass, "int64", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
1599 integerClass.type = systemClass;
1600 integerClass.structSize = 0;
1601 integerClass.typeSize = sizeof(int64);
1602 delete integerClass.dataTypeString;
1603 integerClass.dataTypeString = CopyString("int64");
1604 eClass_AddMethod(integerClass, "OnGetString", null, Int64_OnGetString, publicAccess);
1605 eClass_AddMethod(integerClass, "OnCompare", null, Int64_OnCompare, publicAccess);
1606 eClass_AddMethod(integerClass, "OnGetDataFromString", null, Int64_OnGetDataFromString, publicAccess);
1607 eClass_AddMethod(integerClass, "OnSerialize", null, Int64_OnSerialize, publicAccess);
1608 eClass_AddMethod(integerClass, "OnUnserialize", null, Int64_OnUnserialize, publicAccess);
1610 integerClass = eSystem_RegisterClass(normalClass, "uint", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
1611 integerClass.type = systemClass;
1612 delete integerClass.dataTypeString;
1613 integerClass.dataTypeString = CopyString("unsigned int");
1614 integerClass.structSize = 0;
1615 integerClass.typeSize = sizeof(uint);
1616 eClass_AddMethod(integerClass, "OnCompare", null, UInteger_OnCompare, publicAccess);
1617 eClass_AddMethod(integerClass, "OnGetString", null, UInteger_OnGetString, publicAccess);
1618 eClass_AddMethod(integerClass, "OnGetDataFromString", null, UInteger_OnGetDataFromString, publicAccess);
1619 eClass_AddMethod(integerClass, "OnSerialize", null, Int_OnSerialize, publicAccess);
1620 eClass_AddMethod(integerClass, "OnUnserialize", null, Int_OnUnserialize, publicAccess);
1622 integerClass = eSystem_RegisterClass(normalClass, "unsigned int", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
1623 integerClass.type = systemClass;
1624 delete integerClass.dataTypeString;
1625 integerClass.dataTypeString = CopyString("unsigned int");
1626 integerClass.structSize = 0;
1627 integerClass.typeSize = sizeof(uint);
1629 eClass_AddMethod(integerClass, "OnCompare", null, UInteger_OnCompare, publicAccess);
1630 eClass_AddMethod(integerClass, "OnGetString", null, UInteger_OnGetString, publicAccess);
1631 eClass_AddMethod(integerClass, "OnGetDataFromString", null, UInteger_OnGetDataFromString, publicAccess);
1632 eClass_AddMethod(integerClass, "OnSerialize", null, Int_OnSerialize, publicAccess);
1633 eClass_AddMethod(integerClass, "OnUnserialize", null, Int_OnUnserialize, publicAccess);
1635 integerClass = eSystem_RegisterClass(normalClass, "uint16", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
1636 integerClass.type = systemClass;
1637 delete integerClass.dataTypeString;
1638 integerClass.dataTypeString = CopyString("unsigned short");
1639 integerClass.structSize = 0;
1640 integerClass.typeSize = sizeof(uint16);
1642 eClass_AddMethod(integerClass, "OnSerialize", null, Word_OnSerialize, publicAccess);
1643 eClass_AddMethod(integerClass, "OnUnserialize", null, Word_OnUnserialize, publicAccess);
1645 integerClass = eSystem_RegisterClass(normalClass, "short", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
1646 integerClass.type = systemClass;
1647 delete integerClass.dataTypeString;
1648 integerClass.dataTypeString = CopyString("short");
1649 integerClass.structSize = 0;
1650 integerClass.typeSize = sizeof(short);
1652 eClass_AddMethod(integerClass, "OnSerialize", null, Word_OnSerialize, publicAccess);
1653 eClass_AddMethod(integerClass, "OnUnserialize", null, Word_OnUnserialize, publicAccess);
1656 integerClass = eSystem_RegisterClass(normalClass, "uint32", null, 0, 0, null, null, module, baseSystemAccess);
1657 integerClass.type = systemClass;
1658 delete integerClass.dataTypeString;
1659 integerClass.dataTypeString = CopyString("uint32");
1660 eClass_AddMethod(integerClass, "OnCompare", null, UInteger_OnCompare, publicAccess);
1661 eClass_AddMethod(integerClass, "OnGetString", null, UInteger_OnGetString, publicAccess);
1662 eClass_AddMethod(integerClass, "OnGetDataFromString", null, UInteger_OnGetDataFromString, publicAccess);
1664 integerClass = eSystem_RegisterClass(normalClass, "uint32", "uint", 0, 0, null, null, module, baseSystemAccess, publicAccess);
1665 integerClass.type = systemClass;
1666 delete integerClass.dataTypeString;
1667 integerClass.dataTypeString = CopyString("unsigned int");
1668 integerClass.structSize = 0;
1669 integerClass.typeSize = sizeof(uint32);
1671 integerClass = eSystem_RegisterClass(normalClass, "uint64", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
1672 integerClass.type = systemClass;
1673 delete integerClass.dataTypeString;
1674 integerClass.dataTypeString = CopyString("uint64");
1675 integerClass.structSize = 0;
1676 integerClass.typeSize = sizeof(uint64);
1677 eClass_AddMethod(integerClass, "OnGetString", null, UInt64_OnGetString, publicAccess);
1678 eClass_AddMethod(integerClass, "OnGetDataFromString", null, UInt64_OnGetDataFromString, publicAccess);
1679 eClass_AddMethod(integerClass, "OnSerialize", null, Int64_OnSerialize, publicAccess);
1680 eClass_AddMethod(integerClass, "OnUnserialize", null, Int64_OnUnserialize, publicAccess);
1681 eClass_AddMethod(integerClass, "OnCompare", null, UInt64_OnCompare, publicAccess);
1683 integerClass = eSystem_RegisterClass(normalClass, "byte", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
1684 integerClass.type = systemClass;
1685 delete integerClass.dataTypeString;
1686 integerClass.dataTypeString = CopyString("unsigned char");
1687 integerClass.structSize = 0;
1688 integerClass.typeSize = sizeof(byte);
1689 eClass_AddMethod(integerClass, "OnCompare", null, Byte_OnCompare, publicAccess);
1690 eClass_AddMethod(integerClass, "OnGetString", null, Byte_OnGetString, publicAccess);
1691 eClass_AddMethod(integerClass, "OnGetDataFromString", null, Byte_OnGetDataFromString, publicAccess);
1692 eClass_AddMethod(integerClass, "OnSerialize", null, Byte_OnSerialize, publicAccess);
1693 eClass_AddMethod(integerClass, "OnUnserialize", null, Byte_OnUnserialize, publicAccess);
1695 integerClass = eSystem_RegisterClass(normalClass, "char", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
1696 integerClass.type = systemClass;
1697 delete integerClass.dataTypeString;
1698 integerClass.dataTypeString = CopyString("char");
1699 integerClass.structSize = 0;
1700 integerClass.typeSize = sizeof(char);
1701 eClass_AddMethod(integerClass, "OnCompare", null, Byte_OnCompare, publicAccess);
1702 eClass_AddMethod(integerClass, "OnGetString", null, Char_OnGetString, publicAccess);
1703 eClass_AddMethod(integerClass, "OnGetDataFromString", null, Byte_OnGetDataFromString, publicAccess);
1704 eClass_AddMethod(integerClass, "OnSerialize", null, Byte_OnSerialize, publicAccess);
1705 eClass_AddMethod(integerClass, "OnUnserialize", null, Byte_OnUnserialize, publicAccess);
1707 integerClass = eSystem_RegisterClass(normalClass, "intsize", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
1708 integerClass.type = systemClass;
1709 delete integerClass.dataTypeString;
1710 integerClass.dataTypeString = CopyString("ssize_t");
1711 integerClass.structSize = 0;
1712 integerClass.typeSize = sizeof(intsize);
1713 if(sizeof(intsize) == 8)
1715 eClass_AddMethod(integerClass, "OnGetString", null, Int64_OnGetString, publicAccess);
1716 eClass_AddMethod(integerClass, "OnGetDataFromString", null, Int64_OnGetDataFromString, publicAccess);
1717 eClass_AddMethod(integerClass, "OnSerialize", null, Int64_OnSerialize, publicAccess);
1718 eClass_AddMethod(integerClass, "OnUnserialize", null, Int64_OnUnserialize, publicAccess);
1719 eClass_AddMethod(integerClass, "OnCompare", null, Int64_OnCompare, publicAccess);
1723 eClass_AddMethod(integerClass, "OnCompare", null, Integer_OnCompare, publicAccess);
1724 eClass_AddMethod(integerClass, "OnGetString", null, Integer_OnGetString, publicAccess);
1725 eClass_AddMethod(integerClass, "OnGetDataFromString", null, Integer_OnGetDataFromString, publicAccess);
1726 eClass_AddMethod(integerClass, "OnSerialize", null, Int_OnSerialize, publicAccess);
1727 eClass_AddMethod(integerClass, "OnUnserialize", null, Int_OnUnserialize, publicAccess);
1730 integerClass = eSystem_RegisterClass(normalClass, "uintsize", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
1731 integerClass.type = systemClass;
1732 delete integerClass.dataTypeString;
1733 integerClass.dataTypeString = CopyString("size_t");
1734 integerClass.structSize = 0;
1735 integerClass.typeSize = sizeof(uintsize);
1736 if(sizeof(uintsize) == 8)
1738 eClass_AddMethod(integerClass, "OnGetString", null, UInt64Hex_OnGetString, publicAccess);
1739 eClass_AddMethod(integerClass, "OnGetDataFromString", null, UInt64_OnGetDataFromString, publicAccess);
1740 eClass_AddMethod(integerClass, "OnSerialize", null, Int64_OnSerialize, publicAccess);
1741 eClass_AddMethod(integerClass, "OnUnserialize", null, Int64_OnUnserialize, publicAccess);
1742 eClass_AddMethod(integerClass, "OnCompare", null, UInt64_OnCompare, publicAccess);
1746 eClass_AddMethod(integerClass, "OnGetString", null, UIntegerHex_OnGetString, publicAccess);
1747 eClass_AddMethod(integerClass, "OnGetDataFromString", null, UInteger_OnGetDataFromString, publicAccess);
1748 eClass_AddMethod(integerClass, "OnSerialize", null, Int_OnSerialize, publicAccess);
1749 eClass_AddMethod(integerClass, "OnUnserialize", null, Int_OnUnserialize, publicAccess);
1750 eClass_AddMethod(integerClass, "OnCompare", null, UInteger_OnCompare, publicAccess);
1753 integerClass = eSystem_RegisterClass(normalClass, "uintptr", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
1754 integerClass.type = systemClass;
1755 delete integerClass.dataTypeString;
1756 integerClass.dataTypeString = CopyString("uintptr_t");
1757 integerClass.structSize = 0;
1758 integerClass.typeSize = sizeof(uintptr);
1759 if(sizeof(uintptr) == 8)
1761 eClass_AddMethod(integerClass, "OnGetString", null, UIntPtr64_OnGetString, publicAccess);
1762 eClass_AddMethod(integerClass, "OnGetDataFromString", null, UInt64_OnGetDataFromString, publicAccess);
1763 eClass_AddMethod(integerClass, "OnSerialize", null, Int64_OnSerialize, publicAccess);
1764 eClass_AddMethod(integerClass, "OnUnserialize", null, Int64_OnUnserialize, publicAccess);
1765 eClass_AddMethod(integerClass, "OnCompare", null, UInt64_OnCompare, publicAccess);
1769 eClass_AddMethod(integerClass, "OnGetString", null, UIntPtr32_OnGetString, publicAccess);
1770 eClass_AddMethod(integerClass, "OnGetDataFromString", null, UInteger_OnGetDataFromString, publicAccess);
1771 eClass_AddMethod(integerClass, "OnSerialize", null, Int_OnSerialize, publicAccess);
1772 eClass_AddMethod(integerClass, "OnUnserialize", null, Int_OnUnserialize, publicAccess);
1773 eClass_AddMethod(integerClass, "OnCompare", null, UInteger_OnCompare, publicAccess);
1776 integerClass = eSystem_RegisterClass(normalClass, "intptr", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
1777 integerClass.type = systemClass;
1778 delete integerClass.dataTypeString;
1779 integerClass.dataTypeString = CopyString("intptr_t");
1780 integerClass.structSize = 0;
1781 integerClass.typeSize = sizeof(intptr);
1782 if(sizeof(intptr) == 8)
1784 eClass_AddMethod(integerClass, "OnGetString", null, IntPtr64_OnGetString, publicAccess);
1785 eClass_AddMethod(integerClass, "OnGetDataFromString", null, Int64_OnGetDataFromString, publicAccess);
1786 eClass_AddMethod(integerClass, "OnSerialize", null, Int64_OnSerialize, publicAccess);
1787 eClass_AddMethod(integerClass, "OnUnserialize", null, Int64_OnUnserialize, publicAccess);
1788 eClass_AddMethod(integerClass, "OnCompare", null, Int64_OnCompare, publicAccess);
1792 eClass_AddMethod(integerClass, "OnGetString", null, IntPtr32_OnGetString, publicAccess);
1793 eClass_AddMethod(integerClass, "OnGetDataFromString", null, Integer_OnGetDataFromString, publicAccess);
1794 eClass_AddMethod(integerClass, "OnSerialize", null, Int_OnSerialize, publicAccess);
1795 eClass_AddMethod(integerClass, "OnUnserialize", null, Int_OnUnserialize, publicAccess);
1796 eClass_AddMethod(integerClass, "OnCompare", null, Integer_OnCompare, publicAccess);
1801 static int Float_OnCompare(Class _class, float * data1, float * data2)
1804 if(!data1 && !data2) result = 0;
1805 else if(data1 && !data2) result = 1;
1806 else if(!data1 && data2) result = -1;
1807 else if(*data1 > *data2) result = 1;
1808 else if(*data1 < *data2) result = -1;
1812 static char * Float_OnGetString(Class _class, float * data, char * string, void * fieldData, bool * needClass)
1816 int numDigits = 7, num = 1;
1818 while(numDigits && num < *data) numDigits--, num *= 10;
1819 sprintf(format, "%%.%df", numDigits);
1821 //sprintf(string, "%f", *data);
1822 sprintf(string, format, *data);
1824 c = strlen(string)-1;
1827 if(string[c] != '0')
1828 last = Max(last, c);
1829 if(string[c] == '.')
1841 static bool Float_OnGetDataFromString(Class _class, float * data, char * string)
1844 float result = (float)strtod(string, &end);
1845 //*data = atof(string);
1854 static void Float_OnSerialize(Class _class, float * data, IOChannel channel)
1857 PUTXDWORD(bytes, * (uint *)data);
1858 channel.WriteData(bytes, 4);
1861 static void Float_OnUnserialize(Class _class, float * data, IOChannel channel)
1864 if(channel.ReadData(bytes, 4) == 4)
1865 *(uint *)data = GETXDWORD(bytes);
1870 static void RegisterClass_Float(Module module)
1872 Class floatClass = eSystem_RegisterClass(normalClass, "float", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
1873 floatClass.type = systemClass;
1874 delete floatClass.dataTypeString;
1875 floatClass.dataTypeString = CopyString("float");
1876 floatClass.structSize = 0;
1877 floatClass.typeSize = sizeof(float);
1878 eClass_AddMethod(floatClass, "OnCompare", null, Float_OnCompare, publicAccess);
1879 eClass_AddMethod(floatClass, "OnGetString", null, Float_OnGetString, publicAccess);
1880 eClass_AddMethod(floatClass, "OnGetDataFromString", null, Float_OnGetDataFromString, publicAccess);
1881 eClass_AddMethod(floatClass, "OnSerialize", null, Float_OnSerialize, publicAccess);
1882 eClass_AddMethod(floatClass, "OnUnserialize", null, Float_OnUnserialize, publicAccess);
1886 static int Double_OnCompare(Class _class, double * data1, double * data2)
1889 if(!data1 && !data2) result = 0;
1890 else if(data1 && !data2) result = 1;
1891 else if(!data1 && data2) result = -1;
1892 else if(*data1 > *data2) result = 1;
1893 else if(*data1 < *data2) result = -1;
1897 static char * Double_OnGetString(Class _class, double * data, char * string, void * fieldData, bool * needClass)
1901 //sprintf(string, "%.20f", *data);
1902 if(runtimePlatform == win32)
1903 // sprintf(string, "%.16g", *data);
1904 sprintf(string, "%.15g", *data);
1906 sprintf(string, "%.13lf", *data);
1908 c = strlen(string)-1;
1911 if(string[c] != '0')
1912 last = Max(last, c);
1913 if(string[c] == '.')
1925 static bool Double_OnGetDataFromString(Class _class, double * data, char * string)
1929 //*data = (double)strtod(string, null);
1930 result = strtod(string, &end);
1940 static void Double_OnSerialize(Class _class, double * data, IOChannel channel)
1943 PUTXQWORD(bytes, * (uint64 *)data);
1944 channel.WriteData(bytes, 8);
1947 static void Double_OnUnserialize(Class _class, double * data, IOChannel channel)
1950 if(channel.ReadData(bytes, 8) == 8)
1951 *(uint64 *)data = GETXQWORD(bytes);
1956 static void RegisterClass_Double(Module module)
1958 Class doubleClass = eSystem_RegisterClass(normalClass, "double", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
1959 doubleClass.type = systemClass;
1960 delete doubleClass.dataTypeString;
1961 doubleClass.dataTypeString = CopyString("double");
1962 doubleClass.structSize = 0;
1963 doubleClass.typeSize = sizeof(double);
1964 eClass_AddMethod(doubleClass, "OnCompare", null, Double_OnCompare, publicAccess);
1965 eClass_AddMethod(doubleClass, "OnGetString", null, Double_OnGetString, publicAccess);
1966 eClass_AddMethod(doubleClass, "OnGetDataFromString", null, Double_OnGetDataFromString, publicAccess);
1967 eClass_AddMethod(doubleClass, "OnSerialize", null, Double_OnSerialize, publicAccess);
1968 eClass_AddMethod(doubleClass, "OnUnserialize", null, Double_OnUnserialize, publicAccess);
1971 public struct StaticString
1975 void OnSerialize(IOChannel channel)
1977 int len = this ? strlen(string) : 0;
1978 channel.WriteData(this ? string : "", len+1);
1981 void OnUnserialize(IOChannel channel)
1988 for(c = 0; channel.ReadData(&string[c], 1) && string[c]; c++);
1993 int OnCompare(StaticString string2)
1997 result = strcmpi(string, string2.string);
1998 else if(!this && string2)
1999 result = -1; // INVERTED THESE 2 CASES
2000 else if(this && !string2)
2005 char * OnGetString(char * tempString, void * fieldData, bool * needClass)
2007 return (char *)(this ? string : null); // Cast for memguard
2015 static void String_OnCopy(Class _class, char ** data, char * newData)
2019 int len = strlen(newData);
2022 *data = eSystem_New(len+1);
2023 memcpy(*data, newData, len+1);
2032 static bool String_OnGetDataFromString(Class _class, char ** data, char * newData)
2036 int len = strlen(newData);
2039 *data = eSystem_New(len+1);
2040 memcpy(*data, newData, len+1);
2048 /*static */int String_OnCompare(Class _class, char * string1, char * string2)
2051 if(string1 && string2)
2052 result = strcmpi(string1, string2);
2053 else if(!string1 && string2)
2055 else if(string1 && !string2)
2060 static char * String_OnGetString(Class _class, char * string, char * tempString, void * fieldData, bool * needClass)
2065 static void String_OnFree(Class _class, char * string)
2069 eSystem_Delete(string);
2073 static void String_OnSerialize(Class _class, char * string, IOChannel channel)
2075 int len = string ? strlen(string) : 0;
2076 channel.WriteData(string ? string : "", len+1);
2079 static void String_OnUnserialize(Class _class, char * * string, IOChannel channel)
2086 *string = new char[size];
2087 for(c = 0; channel.ReadData(&(*string)[c], 1) && (*string)[c]; c++)
2092 *string = renew *string char[size];
2095 (*string)[c++] = '\0';
2096 if(!UTF8Validate(*string))
2098 char * newString = new char[c*2];
2099 ISO8859_1toUTF8(*string, newString, c*2);
2101 *string = renew newString char[strlen(newString)+1];
2104 *string = renew *string char[c];
2108 static void RegisterClass_String(Module module)
2110 Class stringClass = eSystem_RegisterClass(normalClass, "char *", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
2111 delete stringClass.dataTypeString;
2112 stringClass.dataTypeString = CopyString("char *");
2113 stringClass.structSize = 0;
2115 eClass_AddMethod(stringClass, "OnCompare", null, String_OnCompare, publicAccess);
2116 eClass_AddMethod(stringClass, "OnCopy", null, String_OnCopy, publicAccess);
2117 eClass_AddMethod(stringClass, "OnFree", null, String_OnFree, publicAccess);
2118 eClass_AddMethod(stringClass, "OnGetString", null, String_OnGetString, publicAccess);
2119 eClass_AddMethod(stringClass, "OnGetDataFromString", null, String_OnGetDataFromString, publicAccess);
2120 eClass_AddMethod(stringClass, "OnSerialize", null, String_OnSerialize, publicAccess);
2121 eClass_AddMethod(stringClass, "OnUnserialize", null, String_OnUnserialize, publicAccess);
2122 // eClass_AddProperty(stringClass, null, "Class", null, String_GetClass, publicAccess);
2124 stringClass = eSystem_RegisterClass(normalClass, "String", "char *", 0, 0, null, null, module, baseSystemAccess, publicAccess);
2125 stringClass.structSize = 0;
2126 eClass_AddProperty(stringClass, null, "char *", null, null, publicAccess);
2129 void InitializeDataTypes1(Module module)
2131 Class baseClass = eSystem_FindClass(module, "class");
2133 eClass_AddVirtualMethod(baseClass, "OnDisplay", "void typed_object::OnDisplay(Surface surface, int x, int y, int width, void * fieldData, Alignment alignment, DataDisplayFlags displayFlags)", null, publicAccess);
2134 eClass_AddVirtualMethod(baseClass, "OnCompare", "int typed_object::OnCompare(any_object object)", OnCompare, publicAccess);
2135 eClass_AddVirtualMethod(baseClass, "OnCopy", "void typed_object&::OnCopy(any_object newData)", OnCopy, publicAccess);
2136 eClass_AddVirtualMethod(baseClass, "OnFree", "void typed_object::OnFree(void)", OnFree, publicAccess);
2137 eClass_AddVirtualMethod(baseClass, "OnGetString", "char * typed_object::OnGetString(char * tempString, void * fieldData, bool * needClass)", OnGetString, publicAccess);
2138 eClass_AddVirtualMethod(baseClass, "OnGetDataFromString", "bool typed_object&::OnGetDataFromString(char * string)", OnGetDataFromString, publicAccess);
2139 eClass_AddVirtualMethod(baseClass, "OnEdit", "Window typed_object::OnEdit(DataBox dataBox, DataBox obsolete, int x, int y, int w, int h, void * userData)", null, publicAccess);
2140 eClass_AddVirtualMethod(baseClass, "OnSerialize", "void typed_object::OnSerialize(IOChannel channel)", OnSerialize, publicAccess);
2141 eClass_AddVirtualMethod(baseClass, "OnUnserialize", "void typed_object&::OnUnserialize(IOChannel channel)", OnUnserialize, publicAccess);
2142 eClass_AddVirtualMethod(baseClass, "OnSaveEdit", "bool typed_object&::OnSaveEdit(Window window, void * object)", null, publicAccess);
2145 void InitializeDataTypes(Module module)
2147 Class enumClass = eSystem_FindClass(module, "enum");
2149 eClass_AddMethod(enumClass, "OnSerialize", null, Enum_OnSerialize, publicAccess);
2150 eClass_AddMethod(enumClass, "OnUnserialize", null, Enum_OnUnserialize, publicAccess);
2153 RegisterClass_Integer(module);
2154 RegisterClass_Float(module);
2155 RegisterClass_Double(module);
2156 RegisterClass_String(module);
2159 public int PrintStdArgsToBuffer(char * buffer, int maxLen, typed_object object, va_list args)
2162 // TOFIX: OnGetString will need a maxLen as well
2163 char * result = object.OnGetString(buffer, null, null);
2166 len = strlen(result);
2167 if(len >= maxLen) len = maxLen-1;
2168 if(result != buffer)
2169 memcpy(buffer, result, len);
2173 Class _class = null;
2176 _class = va_arg(args, void *);
2178 data = va_arg(args, void *);
2181 // TOFIX: OnGetString will need a maxLen as well
2182 result = ((char *(*)(void *, void *, char *, void *, bool *))(void *)_class._vTbl[__ecereVMethodID_class_OnGetString])(_class, data, buffer + len, null, null);
2185 int newLen = strlen(result);
2186 if(len + newLen >= maxLen) newLen = maxLen-1-len;
2187 if(result != buffer + len)
2188 memcpy(buffer + len, result, newLen);
2197 public int PrintBuf(char * buffer, int maxLen, typed_object object, ...)
2201 va_start(args, object);
2202 len = PrintStdArgsToBuffer(buffer, maxLen, object, args);
2207 public int PrintLnBuf(char * buffer, int maxLen, typed_object object, ...)
2211 va_start(args, object);
2212 len = PrintStdArgsToBuffer(buffer, maxLen-1, object, args);
2213 buffer[len++] = '\n';
2219 public char * PrintString(typed_object object, ...)
2225 va_start(args, object);
2226 len = PrintStdArgsToBuffer(buffer, sizeof(buffer), object, args);
2227 string = new char[len + 1];
2228 memcpy(string, buffer, len + 1);
2233 public char * PrintLnString(typed_object object, ...)
2239 va_start(args, object);
2240 len = PrintStdArgsToBuffer(buffer, sizeof(buffer), object, args);
2241 string = new char[len + 2];
2242 memcpy(string, buffer, len);
2243 string[len++] = '\n';
2249 #if defined(__ANDROID__)
2250 #include <android/log.h>
2251 #define LOGI(...) ((void)__android_log_print(ANDROID_LOG_INFO, "ecere-app", __VA_ARGS__))
2254 public void PrintLn(typed_object object, ...)
2258 va_start(args, object);
2259 PrintStdArgsToBuffer(buffer, sizeof(buffer), object, args);
2261 #if defined(__ANDROID__) && !defined(ECERE_NOFILE)
2268 public void Print(typed_object object, ...)
2272 va_start(args, object);
2273 PrintStdArgsToBuffer(buffer, sizeof(buffer), object, args);
2275 fputs(buffer, eC_stdout());