ecere/com/dataTypes: Fixed private access type
[sdk] / ecere / src / com / dataTypes.ec
index 433a0b7..c998aa0 100644 (file)
@@ -17,16 +17,16 @@ public define MININT64 = ((int64)0x8000000000000000LL);
 public define MAXINT64 = ((int64)0x7fffffffffffffffLL);
 public define MAXDWORD = 0xffffffff;
 public define MAXQWORD = 0xffffffffffffffffLL;
-public define MINFLOAT = ((float)1.17549435082228750e-38);
-public define MAXFLOAT = ((float)3.40282346638528860e+38);
-public define MINDOUBLE = ((double) 2.2250738585072014e-308);
-public define MAXDOUBLE = ((double) 1.7976931348623158e+308);
+public define MINFLOAT = 1.17549435082228750e-38f;
+public define MAXFLOAT = 3.40282346638528860e+38f;
+public define MINDOUBLE = 2.2250738585072014e-308;
+public define MAXDOUBLE = 1.7976931348623158e+308;
 
-public define FORMAT64HEXLL  = (GetRuntimePlatform() == win32) ? "0x%I64XLL" : "0x%llXLL";
-public define FORMAT64HEX    = (GetRuntimePlatform() == win32) ? "0x%I64X" : "0x%llX";
-public define FORMAT64DLL    = (GetRuntimePlatform() == win32) ? "%I64dLL" : "%lldLL";
-public define FORMAT64D      = (GetRuntimePlatform() == win32) ? "%I64d" : "%lld";
-public define FORMAT64U      = (GetRuntimePlatform() == win32) ? "%I64u" : "%llu";
+public define FORMAT64HEXLL  = (__runtimePlatform == win32) ? "0x%I64XLL" : "0x%llXLL";
+public define FORMAT64HEX    = (__runtimePlatform == win32) ? "0x%I64X" : "0x%llX";
+public define FORMAT64DLL    = (__runtimePlatform == win32) ? "%I64dLL" : "%lldLL";
+public define FORMAT64D      = (__runtimePlatform == win32) ? "%I64d" : "%lld";
+public define FORMAT64U      = (__runtimePlatform == win32) ? "%I64u" : "%llu";
 
 #define PUTXWORD(b, w) \
    (b)[0] = (byte)(((w) >> 8) & 0xFF); \
@@ -54,36 +54,56 @@ public define FORMAT64U      = (GetRuntimePlatform() == win32) ? "%I64u" : "%llu
 
 #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])
 
-static void UnusedFunction()
+__attribute__((unused)) static void UnusedFunction()
 {
    int a;
    a.OnGetString(0,0,0);
    a.OnFree();
-   a.OnCopy(null);
-   a.OnCompare(null);
+   a.OnCopy(0);
+   a.OnCompare(0);
    a.OnSaveEdit(null,0);
-   a.OnEdit(null,null,0,0,0,0,0);
-   a.OnDisplay(null,0,0,0,0,null,null);
+   a.OnEdit(null,null,0,0,0,20,0);
    a.OnGetDataFromString(null);
 }
 
+#define uint _uint
+#include <stdarg.h>
+#include <stdio.h>
+#undef uint
+
 default:
+FILE *eC_stdout(void);
+FILE *eC_stderr(void);
+
+bool Float_isNan(float n);
+bool Float_isInf(float n);
+int Float_signBit(float n);
+float Float_nan(void);
+float Float_inf(void);
+
+bool Double_isNan(double n);
+bool Double_isInf(double n);
+int Double_signBit(double n);
+double Double_nan(void);
+double Double_inf(void);
+
 extern int __ecereVMethodID_class_OnGetString;
 extern int __ecereVMethodID_class_OnGetDataFromString;
 extern int __ecereVMethodID_class_OnCompare;
 extern int __ecereVMethodID_class_OnSerialize;
 extern int __ecereVMethodID_class_OnUnserialize;
 extern int __ecereVMethodID_class_OnCopy;
-public:
+private:
 
-// TOFIX: Declaration ordering
-dllexport void eSystem_Delete(void * memory);
+#if defined(ECERE_BOOTSTRAP) || defined(ECERE_STATIC)
+#define dllexport
+#endif
 
 public class IOChannel
 {
 public:
-   virtual uint WriteData(byte * data, uint numBytes);
-   virtual uint ReadData(byte * data, uint numBytes);
+   virtual uint WriteData(const void * data, uint numBytes);
+   virtual uint ReadData(void * data, uint numBytes);
 
    dllexport void Serialize(typed_object data)
    {
@@ -114,7 +134,7 @@ public:
    uint _size;
    uint pos;
 
-   uint WriteData(byte * bytes, uint numBytes)
+   uint WriteData(const void * bytes, uint numBytes)
    {
       if(this != null)
       {
@@ -131,7 +151,7 @@ public:
       return 0;
    }
 
-   uint ReadData(byte * bytes, uint numBytes)
+   uint ReadData(void * bytes, uint numBytes)
    {
       if(this != null)
       {
@@ -173,41 +193,95 @@ public:
    }
 };
 
-/*static */char * Enum_OnGetString(Class _class, int * data, char * tempString, void * fieldData, bool * needClass)
+/*static */const char * Enum_OnGetString(Class _class, void * data, char * tempString, void * fieldData, bool * needClass)
 {
-   EnumClassData enumeration = (EnumClassData)_class.data;
-   NamedLink item;
-   for(item = enumeration.values.first; item; item = item.next)
-      if((int)item.data == *data)
+   NamedLink64 item = null;
+   Class b;
+   int64 i64Data = 0;
+   switch(_class.typeSize)
+   {
+      case 1:
+         i64Data = !strcmp(_class.dataTypeString, "byte") ? (int64)*(byte *)data : (int64)*(char *)data;
+         break;
+      case 2:
+         i64Data = !strcmp(_class.dataTypeString, "uint16") ? (int64)*(uint16 *)data : (int64)*(short *)data;
+         break;
+      case 4:
+         i64Data = !strcmp(_class.dataTypeString, "uint") ? (int64)*(uint *)data : (int64)*(int *)data;
          break;
+      case 8:
+         i64Data = !strcmp(_class.dataTypeString, "uint64") ? *(int64 *)data : *(int64 *)data;
+         break;
+   }
+   for(b = _class; !item && b && b.type == enumClass; b = b.base)
+   {
+      EnumClassData enumeration = (EnumClassData)b.data;
+      for(item = enumeration.values.first; item; item = item.next)
+         if(item.data == i64Data)
+            break;
+   }
    if(item)
    {
-      strcpy(tempString, item.name);
-      if(!needClass || !*needClass)
-         tempString[0] = (char)toupper(tempString[0]);
-      return tempString;
-      //return item.name;
+      if(tempString)
+      {
+         strcpy(tempString, item.name);
+         if(!needClass || !*needClass)
+            tempString[0] = (char)toupper(tempString[0]);
+         return tempString;
+      }
+      else
+         return item.name;
    }
    else
       return null;
 }
 
-static bool Enum_OnGetDataFromString(Class _class, int * data, char * string)
+static bool Enum_OnGetDataFromString(Class _class, void * data, const char * string)
 {
-   EnumClassData enumeration = (EnumClassData)_class.data;
-   NamedLink item;
-   for(item = enumeration.values.first; item; item = item.next)
+   NamedLink64 item = null;
+   Class b;
+   for(b = _class; !item && b && b.type == enumClass; b = b.base)
    {
-      if(item.name && !strcmpi(item.name, string))
-         break;
+      EnumClassData enumeration = (EnumClassData)_class.data;
+      for(item = enumeration.values.first; item; item = item.next)
+      {
+         if(item.name && !strcmpi(item.name, string))
+            break;
+      }
    }
    if(item)
    {
-      *data = (int)item.data;
+      switch(_class.typeSize)
+      {
+         case 1:
+            if(!strcmp(_class.dataTypeString, "byte"))
+               *(byte *)data = (byte)item.data;
+            else
+               *(char *)data = (char)item.data;
+            break;
+         case 2:
+            if(!strcmp(_class.dataTypeString, "uint16"))
+               *(uint16 *)data = (uint16)item.data;
+            else
+               *(short *)data = (short)item.data;
+            break;
+         case 4:
+            if(!strcmp(_class.dataTypeString, "uint"))
+               *(uint *)data = (uint)item.data;
+            else
+               *(int *)data = (int)item.data;
+            break;
+         case 8:
+            if(!strcmp(_class.dataTypeString, "uint64"))
+               *(uint64 *)data = *(uint64 *)&item.data;
+            else
+               *(int64 *)data = item.data;
+            break;
+      }
       return true;
    }
    else
-      return Integer_OnGetDataFromString(_class, data, string);
+      return Int64_OnGetDataFromString(_class, data, string);
    return false;
 }
 
@@ -249,8 +323,8 @@ static int DataMember_OnCompare(DataMember parentMember, void * data1, void * da
 
          if(memberType.type == structClass || memberType.type == normalClass || memberType.type == noHeadClass)
          {
-            memberResult = memberType._vTbl[__ecereVMethodID_class_OnCompare](memberType, 
-               (byte *)data1 + member.offset, 
+            memberResult = ((int (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnCompare])(memberType,
+               (byte *)data1 + member.offset,
                (byte *)data2 + member.offset);
             if(memberResult)
                return memberResult;
@@ -260,15 +334,15 @@ static int DataMember_OnCompare(DataMember parentMember, void * data1, void * da
             DataValue value1, value2;
             value1.i = *(int *)((byte *)data1 + member.offset);
             value2.i = *(int *)((byte *)data2 + member.offset);
-            memberResult = memberType._vTbl[__ecereVMethodID_class_OnCompare](memberType, &value1, &value2);
+            memberResult = ((int (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnCompare])(memberType, &value1, &value2);
             if(memberResult)
                return memberResult;
          }
       }
       else
       {
-         memberResult = DataMember_OnCompare(member, 
-            (byte *)data1 + member.offset, 
+         memberResult = DataMember_OnCompare(member,
+            (byte *)data1 + member.offset,
             (byte *)data2 + member.offset);
          if(memberResult)
             return memberResult;
@@ -301,10 +375,11 @@ static int OnCompare(Class _class, void * data1, void * data2)
             for(member = _class.membersAndProperties.first; member; member = member.next)
             {
                int memberResult = 0;
+               if(member.id < 0) continue;
                if(member.isProperty || member.type == normalMember)
                {
                   Class memberType = member.dataTypeClass;
-                        
+
                   if(!memberType)
                      memberType = member.dataTypeClass = eSystem_FindClass(module, member.dataTypeString);
                   /*
@@ -322,9 +397,9 @@ static int OnCompare(Class _class, void * data1, void * data2)
                            {
                               if(!strcmp(memberType.dataTypeString, "char *"))
                               {
-                                 String a = ((String(*)())(void *)prop.Get)(data1);
-                                 String b = ((String(*)())(void *)prop.Get)(data2);
-                                 memberResult = memberType._vTbl[__ecereVMethodID_class_OnCompare](memberType, a, b);
+                                 String a = ((String(*)(void *))(void *)prop.Get)(data1);
+                                 String b = ((String(*)(void *))(void *)prop.Get)(data2);
+                                 memberResult = ((int (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnCompare])(memberType, a, b);
                               }
                            }
                            else
@@ -332,15 +407,15 @@ static int OnCompare(Class _class, void * data1, void * data2)
                               DataValue value1, value2;
                               if(!strcmp(memberType.dataTypeString, "float"))
                               {
-                                 value1.f = ((float(*)())(void *)prop.Get)(data1);
-                                 value2.f = ((float(*)())(void *)prop.Get)(data2);
+                                 value1.f = ((float(*)(void *))(void *)prop.Get)(data1);
+                                 value2.f = ((float(*)(void *))(void *)prop.Get)(data2);
                               }
                               else
                               {
-                                 value1.i = prop.Get(data1);
-                                 value2.i = prop.Get(data2);
+                                 value1.i = ((int(*)(void*))(void *)prop.Get)(data1);
+                                 value2.i = ((int(*)(void*))(void *)prop.Get)(data2);
                               }
-                              memberResult = memberType._vTbl[__ecereVMethodID_class_OnCompare](memberType, &value1, &value2);
+                              memberResult = ((int (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnCompare])(memberType, &value1, &value2);
                            }
                         }
                      }
@@ -351,14 +426,14 @@ static int OnCompare(Class _class, void * data1, void * data2)
                            if(memberType.type == normalClass || memberType.type == noHeadClass)
                            {
                               // TESTING THIS!
-                              memberResult = memberType._vTbl[__ecereVMethodID_class_OnCompare](memberType, 
-                                 *(void **)((byte *)data1 + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset)), 
+                              memberResult = ((int (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnCompare])(memberType,
+                                 *(void **)((byte *)data1 + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset)),
                                  *(void **)((byte *)data2 + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset)));
                            }
                            else
                            {
-                              memberResult = memberType._vTbl[__ecereVMethodID_class_OnCompare](memberType, 
-                                 (byte *)data1 + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset), 
+                              memberResult = ((int (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnCompare])(memberType,
+                                 (byte *)data1 + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset),
                                  (byte *)data2 + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset));
                            }
                         }
@@ -375,7 +450,7 @@ static int OnCompare(Class _class, void * data1, void * data2)
                               value1.i = *(int *)((byte *)data1 + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset));
                               value2.i = *(int *)((byte *)data2 + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset));
                            }
-                           memberResult = memberType._vTbl[__ecereVMethodID_class_OnCompare](memberType, &value1, &value2);
+                           memberResult = ((int (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnCompare])(memberType, &value1, &value2);
                         }
                      }
                   }
@@ -386,8 +461,8 @@ static int OnCompare(Class _class, void * data1, void * data2)
                }
                else
                {
-                  memberResult = DataMember_OnCompare(member, 
-                     (byte *)data1 + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset), 
+                  memberResult = DataMember_OnCompare(member,
+                     (byte *)data1 + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset),
                      (byte *)data2 + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset));
                }
                if(memberResult)
@@ -403,17 +478,27 @@ static int OnCompare(Class _class, void * data1, void * data2)
    else if(_class.type == unitClass)
    {
       Class dataType = eSystem_FindClass(module, _class.dataTypeString);
-      return dataType._vTbl[__ecereVMethodID_class_OnCompare](dataType, data1, data2);
+      return ((int (*)(void *, void *, void *))(void *)dataType._vTbl[__ecereVMethodID_class_OnCompare])(dataType, data1, data2);
    }
    else
    {
       int result = 0;
       if(data1 && data2)
       {
-         if(*(void **)data1 > *(void **)data2)
-            result = 1;
-         else if(*(void **)data1 < *(void **)data2)
-            result = -1;
+         if(_class.typeSize == 8)
+         {
+            if(*(uint64 *)data1 > *(uint64 *)data2)
+               result = 1;
+            else if(*(uint64 *)data1 < *(uint64 *)data2)
+               result = -1;
+         }
+         else
+         {
+            if(*(uint *)data1 > *(uint *)data2)
+               result = 1;
+            else if(*(uint *)data1 < *(uint *)data2)
+               result = -1;
+         }
       }
       else if(!data1 && data2)
          return 1;
@@ -424,18 +509,75 @@ static int OnCompare(Class _class, void * data1, void * data2)
    return 0;
 }
 
-static char * OnGetString(Class _class, void * data, char * tempString, void * fieldData, bool * needClass)
+static const char * OnGetString(Class _class, void * data, char * tempString, void * fieldData, bool * needClass)
 {
    // WHY DOES _class.module NOT SEEM TO WORK?
    Module module = _class.templateClass ? _class.templateClass.module : _class.module;
-   if(_class.type == enumClass)
+   if(_class.type == normalClass && _class.base && !_class.base.base)
+   {
+      if(sizeof(uintsize) == 8)
+         return UInt64Hex_OnGetString(_class, (void *)&data, tempString, fieldData, needClass);
+      else
+         return UIntegerHex_OnGetString(_class, (void *)&data, tempString, fieldData, needClass);
+   }
+   else if(_class.type == enumClass)
    {
       return Enum_OnGetString(_class, data, tempString, fieldData, needClass);
    }
    else if(_class.type == unitClass)
    {
-      Class dataType = eSystem_FindClass(module, _class.dataTypeString);
-      return (char *)dataType._vTbl[__ecereVMethodID_class_OnGetString](dataType, data, tempString, fieldData, needClass);
+      Class dataType;
+      Property prop;
+      for(prop = _class.conversions.first; prop; prop = prop.next)
+      {
+         bool refProp = false;
+         Class c;
+         if(!strcmp(prop.name, _class.base.fullName))
+            refProp = true;
+         else if( (c = eSystem_FindClass(_class.module, prop.name) ) )
+         {
+            Property p;
+            for(p = c.conversions.first; p; p = p.next)
+            {
+               if(!strcmp(p.name, _class.base.fullName) && !p.Set && !p.Get)
+               {
+                  refProp = true;
+                  break;
+               }
+            }
+         }
+         if(refProp)
+         {
+            if(prop.Set && prop.Get)
+            {
+               const String dts = _class.base.dataTypeString;
+               if(!strcmp(dts, "double"))
+               {
+                  double d = ((double(*)(double))(void *)prop.Set)(*(double *)data);
+                  return ((const char *(*)(void *, void *, char *, void *, bool *))(void *)class(double)._vTbl[__ecereVMethodID_class_OnGetString])(class(double), &d, tempString, fieldData, needClass);
+               }
+               else if(!strcmp(dts, "float"))
+               {
+                  float d = ((float(*)(float))(void *)prop.Set)(*(float *)data);
+                  return ((const char *(*)(void *, void *, char *, void *, bool *))(void *)class(float)._vTbl[__ecereVMethodID_class_OnGetString])(class(float), &d, tempString, fieldData, needClass);
+               }
+               else if(!strcmp(dts, "int"))
+               {
+                  int d = ((int(*)(int))(void *)prop.Set)(*(int *)data);
+                  return ((const char *(*)(void *, void *, char *, void *, bool *))(void *)class(int)._vTbl[__ecereVMethodID_class_OnGetString])(class(int), &d, tempString, fieldData, needClass);
+               }
+               else if(!strcmp(dts, "int64"))
+               {
+                  int64 d = ((int64(*)(int64))(void *)prop.Set)(*(int64 *)data);
+                  return ((const char *(*)(void *, void *, char *, void *, bool *))(void *)class(int64)._vTbl[__ecereVMethodID_class_OnGetString])(class(int64), &d, tempString, fieldData, needClass);
+               }
+            }
+            else
+               break;
+         }
+      }
+      dataType = eSystem_FindClass(module, _class.dataTypeString);
+      return ((const char *(*)(void *, void *, char *, void *, bool *))(void *)dataType._vTbl[__ecereVMethodID_class_OnGetString])(dataType, data, tempString, fieldData, needClass);
    }
    else
    {
@@ -457,8 +599,10 @@ static char * OnGetString(Class _class, void * data, char * tempString, void * f
          {
             char memberString[1024];
             Class memberType = member.dataTypeClass;
-            char * name = member.name;
-                  
+            const char * name = member.name;
+            const char *(* onGetString)(void *, void *, char *, void *, bool *);
+            if(member.id < 0) continue;
+
             memberString[0] = 0;
 
             if(!memberType)
@@ -466,22 +610,24 @@ static char * OnGetString(Class _class, void * data, char * tempString, void * f
             if(!memberType)
                memberType = member.dataTypeClass = eSystem_FindClass(module, "int");
 
+            onGetString = memberType._vTbl[__ecereVMethodID_class_OnGetString];
+
             if(member.isProperty)
             {
                Property prop = (Property) member;
 
-               if(!prop.conversion && prop.Get && prop.Set)
+               if(!prop.conversion && prop.Get && prop.Set && (!prop.IsSet || prop.IsSet(data)))
                {
                   if(memberType.type != structClass && (memberType.type != normalClass || !strcmp(memberType.dataTypeString, "char *")) && memberType.type != bitClass && data)
                   {
-                     DataValue value = { 0 };
+                     DataValue value { };
                      if(!strcmp(prop.dataTypeString, "float"))
                      {
-                        value.f = ((float(*)())(void *)prop.Get)(data);
+                        value.f = ((float(*)(void *))(void *)prop.Get)(data);
                         if(value.f)
                         {
                            bool needClass = true;
-                           char * result = (char *)memberType._vTbl[__ecereVMethodID_class_OnGetString](memberType, &value, memberString, null, &needClass);
+                           const char * result = onGetString(memberType, &value, memberString, null, &needClass);
                            if(result && result != memberString)
                               strcpy(memberString, result);
                            // TESTING THIS HERE
@@ -489,42 +635,55 @@ static char * OnGetString(Class _class, void * data, char * tempString, void * f
                               strcat(memberString, "f");
                         }
                      }
-                     else
+                     else if(memberType.type == normalClass || memberType.type == noHeadClass)
                      {
-                        value.i = prop.Get(data);
-                        if(value.i)
+                        value.p = ((void *(*)(void *))(void *)prop.Get)(data);
+                        if(value.p || prop.IsSet)
                         {
                            bool needClass = true;
-                           char * result = (char *)memberType._vTbl[__ecereVMethodID_class_OnGetString](memberType, 
+                           const char * result = onGetString(memberType,
                               (memberType.type == normalClass) ? value.p : &value, memberString, null, &needClass);
                            if(result && result != memberString)
                               strcpy(memberString, result);
                         }
                      }
+                     else
+                     {
+                        value.i = ((int(*)(void *))(void *)prop.Get)(data);
+                        if(value.i || prop.IsSet)
+                        {
+                           bool needClass = true;
+                           const char * result = onGetString(memberType, &value, memberString, null, &needClass);
+                           if(result && result != memberString)
+                              strcpy(memberString, result);
+                        }
+                     }
                   }
                }
             }
             else
             {
+               uint offset = member.offset + member._class.offset;
+               byte * memberData = (byte *)data + offset;
                if(member.type == normalMember)
                {
                   if(memberType.type == structClass || memberType.type == normalClass)
                   {
                      char internalMemberString[1024];
-                     byte * memberData = ((byte *)data + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset));
                      int c;
-                     for(c = 0; c < memberType.structSize; c++)
+                     uint typeSize = (memberType.type == normalClass) ? memberType.typeSize : memberType.structSize;
+                     for(c = 0; c < typeSize; c++)
                         if(memberData[c])
                            break;
-                     if(c < memberType.structSize)
+                     if(c < typeSize)
                      {
                         bool needClass = true;
-                        char * result;
+                        const char * result;
                         if(memberType.type == normalClass)
-                           result = (char *)memberType._vTbl[__ecereVMethodID_class_OnGetString](memberType, *(Instance *)memberData, internalMemberString, null, &needClass);
+                           result = onGetString(memberType, *(Instance *)memberData, internalMemberString, null, &needClass);
                         else
-                           result = (char *)memberType._vTbl[__ecereVMethodID_class_OnGetString](memberType, memberData, internalMemberString, null, &needClass);
-                        if(needClass)
+                           result = onGetString(memberType, memberData, internalMemberString, null, &needClass);
+                        if(needClass && strcmp(memberType.dataTypeString, "char *"))
                         {
                            //strcpy(memberString, memberType.name);
                            strcat(memberString, "{ ");
@@ -538,19 +697,24 @@ static char * OnGetString(Class _class, void * data, char * tempString, void * f
                   //else if(_class /*memberType*/.type != bitClass)
                   else // if(_class /*memberType*/.type != bitClass)
                   {
-                     DataValue value = { 0 };
+                     DataValue value { };
                      if(_class.type == bitClass)
                      {
                         BitMember bitMember = (BitMember) member;
-                        // TODO: Check if base type is 32 or 64 bit
-
-                        //value.ui = (((uint)data & bitMember.mask) >> bitMember.pos);
-                        value.ui64 = ((*(uint*)data & bitMember.mask) >> bitMember.pos);
-                        if(value.ui64)
+                        switch(_class.typeSize)
+                        {
+                           case 8: value.ui64 = *(uint64*)data; break;
+                           case 4: value.ui64 = *(uint32*)data; break;
+                           case 2: value.ui64 = *(uint16*)data; break;
+                           case 1: value.ui64 = *(  byte*)data; break;
+                           default:value.ui64 = 0;
+                        }
+                        value.ui64 = (value.ui64 & bitMember.mask) >> bitMember.pos;
+                        if(value.ui64 && (memberType != _class))  // Avoid infinite recursion on bit classes holding themselves
                         {
                            bool needClass = true;
                            char internalMemberString[1024];
-                           char * result = (char *)memberType._vTbl[__ecereVMethodID_class_OnGetString](memberType, &value, internalMemberString, null, &needClass);
+                           const char * result = onGetString(memberType, &value, internalMemberString, null, &needClass);
 
                            if(needClass && memberType.type != systemClass && memberType.type != enumClass && memberType.type != unitClass)
                            {
@@ -569,22 +733,11 @@ static char * OnGetString(Class _class, void * data, char * tempString, void * f
                      }
                      else if(!memberType.noExpansion)
                      {
-                        // TOCHECK: Is this still right??
-                        if(memberType.typeSize <= 4)
-                        {
-                           value.i = *(int *)((byte *)data + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset));
-                           if(value.i)
-                           {
-                              bool needClass = true;
-                              char * result = (char *)memberType._vTbl[__ecereVMethodID_class_OnGetString](memberType, &value, memberString, null, &needClass);
-                              if(result && memberString != result)
-                                 strcpy(memberString, result);
-                           }
-                        }
-                        else
+                        // TOCHECK: Is this null check still right??
+                        if(memberType.typeSize > 4 || *(int *)memberData)
                         {
                            bool needClass = true;
-                           char * result = (char *)memberType._vTbl[__ecereVMethodID_class_OnGetString](memberType, ((byte *)data + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset)), memberString, null, &needClass);
+                           const char * result = onGetString(memberType, memberData, memberString, null, &needClass);
                            if(result && memberString != result)
                               strcpy(memberString, result);
                         }
@@ -595,8 +748,8 @@ static char * OnGetString(Class _class, void * data, char * tempString, void * f
                      char internalMemberString[1024];
                      byte * memberData = ((byte *)data + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset));
                      bool needClass = true;
-                     char * result;
-                     result = (char *)memberType._vTbl[__ecereVMethodID_class_OnGetString](memberType, memberData, internalMemberString, null, &needClass);
+                     const char * result;
+                     result = onGetString(memberType, memberData, internalMemberString, null, &needClass);
                      if(needClass)
                      {
                         //strcpy(memberString, memberType.name);
@@ -622,7 +775,8 @@ static char * OnGetString(Class _class, void * data, char * tempString, void * f
                   strcat(tempString, " = ");
                }
 
-               if(!strcmp(memberType.name, "char *"))
+               // Only quote and escape for data serialization purposes
+               if(needClass && *needClass && !strcmp(memberType.name, "char *"))
                {
                   int len = strlen(tempString);
                   int c;
@@ -645,7 +799,7 @@ static char * OnGetString(Class _class, void * data, char * tempString, void * f
                         tempString[len++] = memberString[c];
                         tempString[len] = 0;
                      }
-                  }                              
+                  }
                   strcat(tempString, "\"");
                }
                else
@@ -662,16 +816,74 @@ static char * OnGetString(Class _class, void * data, char * tempString, void * f
    return tempString;
 }
 
-static bool OnGetDataFromString(Class _class, void ** data, char * string)
+static bool OnGetDataFromString(Class _class, void ** data, const char * string)
 {
    bool result;
    Module module = _class.module;
    if(_class.type == enumClass)
-      result = Enum_OnGetDataFromString(_class, (int *)data, string);
+      result = Enum_OnGetDataFromString(_class, (int64 *)data, string);
    else if(_class.type == unitClass)
    {
-      Class dataType = eSystem_FindClass(module, _class.dataTypeString);
-      return dataType._vTbl[__ecereVMethodID_class_OnGetDataFromString](dataType, data, string);
+      Class dataType;
+      Property prop;
+      for(prop = _class.conversions.first; prop; prop = prop.next)
+      {
+         bool refProp = false;
+         Class c;
+         if(!strcmp(prop.name, _class.base.fullName))
+            refProp = true;
+         else if( (c = eSystem_FindClass(_class.module, prop.name) ) )
+         {
+            Property p;
+            for(p = c.conversions.first; p; p = p.next)
+            {
+               if(!strcmp(p.name, _class.base.fullName) && !p.Set && !p.Get)
+               {
+                  refProp = true;
+                  break;
+               }
+            }
+         }
+         if(refProp)
+         {
+            if(prop.Set && prop.Get)
+            {
+               const String dts = _class.base.dataTypeString;
+               if(!strcmp(dts, "double"))
+               {
+                  double d;
+                  bool result = ((bool (*)(void *, void *, const char *))(void *)class(double)._vTbl[__ecereVMethodID_class_OnGetDataFromString])(class(double), &d, string);
+                  *(double *)data =((double(*)(double))(void *)prop.Get)(d);
+                  return result;
+               }
+               else if(!strcmp(dts, "float"))
+               {
+                  float d;
+                  bool result = ((bool (*)(void *, void *, const char *))(void *)class(float)._vTbl[__ecereVMethodID_class_OnGetDataFromString])(class(float), &d, string);
+                  *(float *)data = ((float(*)(float))(void *)prop.Get)(d);
+                  return result;
+               }
+               else if(!strcmp(dts, "int"))
+               {
+                  int d;
+                  bool result = ((bool (*)(void *, void *, const char *))(void *)class(int)._vTbl[__ecereVMethodID_class_OnGetDataFromString])(class(int), &d, string);
+                  *(int *)data = ((int(*)(int))(void *)prop.Get)(d);
+                  return result;
+               }
+               else if(!strcmp(dts, "int64"))
+               {
+                  int64 d;
+                  bool result = ((bool (*)(void *, void *, const char *))(void *)class(int64)._vTbl[__ecereVMethodID_class_OnGetDataFromString])(class(int64), &d, string);
+                  *(int64 *)data = ((int64(*)(int64))(void *)prop.Get)(d);
+                  return result;
+               }
+            }
+            else
+               break;
+         }
+      }
+      dataType = eSystem_FindClass(module, _class.dataTypeString);
+      return ((bool (*)(void *, void *, const char *))(void *)dataType._vTbl[__ecereVMethodID_class_OnGetDataFromString])(dataType, data, string);
    }
    else if(!string[0] && _class.type == normalClass)
    {
@@ -698,13 +910,13 @@ static bool OnGetDataFromString(Class _class, void ** data, char * string)
 
       result = true;
 
-      if(_class.type == noHeadClass || _class.type == normalClass) 
+      if(_class.type == noHeadClass || _class.type == normalClass)
       {
          data = *data = eInstance_New(_class);
-         if(_class.type == normalClass) 
+         if(_class.type == normalClass)
             ((Instance)data)._refCount++;
       }
-      else if(/*_class.type == noHeadClass || */_class.type == structClass) 
+      else if(/*_class.type == noHeadClass || */_class.type == structClass)
          memset(data, 0, _class.structSize);
       // Bit classes cleared outside?
 
@@ -740,7 +952,7 @@ static bool OnGetDataFromString(Class _class, void ** data, char * string)
             // Is it used by the compiler?
             else if(ch == ' ') // || ch == '\n' || ch == '\t' || ch == '\r')
             {
-               if(gotChar) 
+               if(gotChar)
                   memberString[count++] = ch;
             }
             else if(ch == ',')
@@ -758,7 +970,7 @@ static bool OnGetDataFromString(Class _class, void ** data, char * string)
             else if(ch == '{')
             {
                // If bracket is not initialization
-               if(gotChar && !brackets) 
+               if(gotChar && !brackets)
                {
                   count = 0;
                   gotChar = false;
@@ -792,7 +1004,7 @@ static bool OnGetDataFromString(Class _class, void ** data, char * string)
                   //TrimLSpaces(memberString, memberName);
                   //TrimRSpaces(memberName, memberString);
                   //strcpy(memberName, memberString);
-            
+
                   TrimRSpaces(memberString, memberName);
                   count = 0;
                   gotChar = false;
@@ -842,32 +1054,35 @@ static bool OnGetDataFromString(Class _class, void ** data, char * string)
          if(found)
          {
             Class memberType = thisMember.dataTypeClass;
-            
+            uint offset;
+            byte * memberData;
+
             if(!memberType)
                memberType = thisMember.dataTypeClass = eSystem_FindClass(module, thisMember.dataTypeString);
             if(!memberType)
                memberType = thisMember.dataTypeClass = eSystem_FindClass(module, "int");
+            offset = thisMember._class.offset + memberOffset;
+            memberData = (byte *)data + offset;
             if(memberType.type == structClass)
             {
                if(thisMember)
                {
-                  if(!memberType._vTbl[__ecereVMethodID_class_OnGetDataFromString](memberType, 
-                     (byte *)data + (((thisMember._class.type == normalClass) ? thisMember._class.offset : 0) + memberOffset), memberString))
+                  if(!((bool (*)(void *, void *, const char *))(void *)memberType._vTbl[__ecereVMethodID_class_OnGetDataFromString])(memberType, memberData, memberString))
                      result = false;
                }
             }
             else
             {
-               DataValue value = { 0 };
+               DataValue value { };
                // Patch for hotKey crash ( #556 )
                // Key has a member KeyCode, which inherits from Key
                // We don't want KeyCode to use its base class OnGetDataFromString
                if(memberType._vTbl[__ecereVMethodID_class_OnGetDataFromString] == _class._vTbl[__ecereVMethodID_class_OnGetDataFromString])
                {
-                  if(!OnGetDataFromString(memberType, &value, memberString))
+                  if(!OnGetDataFromString(memberType, (void **)&value, memberString))
                      result = false;
                }
-               else if(!memberType._vTbl[__ecereVMethodID_class_OnGetDataFromString](memberType, &value, memberString))
+               else if(!((bool (*)(void *, void *, const char *))(void *)memberType._vTbl[__ecereVMethodID_class_OnGetDataFromString])(memberType, &value, memberString))
                   result = false;
                if(thisMember && !thisMember.isProperty)
                {
@@ -878,15 +1093,38 @@ static bool OnGetDataFromString(Class _class, void ** data, char * string)
                      *(uint *)data = (uint32)(((*(uint *)data & ~bitMember.mask)) | ((value.ui64<<bitMember.pos)&bitMember.mask));
                   }
                   else
-                     *(int *)((byte *)data + (((thisMember._class.type == normalClass) ? thisMember._class.offset : 0) + thisMember.offset)) = value.i;
+                     *(int *)memberData = value.i;
                }
                else if(thisMember.isProperty && ((Property)thisMember).Set)
-                  ((Property)thisMember).Set(data, value.i);
+               {
+                  if(memberType.type == noHeadClass || memberType.type == normalClass || memberType.type == structClass)
+                     ((void (*)(void *, void *))(void *)((Property)thisMember).Set)(data, value.p);
+                  else
+                  {
+                     // TODO: Complete and improve this type of stuff throughout
+                     if(!strcmp(memberType.dataTypeString, "float"))
+                     {
+                        ((void (*)(void *, float))(void *)((Property)thisMember).Set)(data, value.f);
+                     }
+                     else if(!strcmp(memberType.dataTypeString, "double"))
+                     {
+                        ((void (*)(void *, double))(void *)((Property)thisMember).Set)(data, value.d);
+                     }
+                     else if(!strcmp(memberType.dataTypeString, "int64"))
+                     {
+                        ((void (*)(void *, int64))(void *)((Property)thisMember).Set)(data, value.i64);
+                     }
+                     else
+                     {
+                        ((void (*)(void *, int))(void *)((Property)thisMember).Set)(data, value.i);
+                     }
+                  }
+               }
             }
          }
          else
             result = false;
-            
+
          count = 0;
          memberName[0] = '\0';
       }
@@ -896,14 +1134,20 @@ static bool OnGetDataFromString(Class _class, void ** data, char * string)
 
 static void OnCopy(Class _class, void ** data, void * newData)
 {
-   // TO IMPROVE: Inherit from Unit class for better performance?
    if(_class.type == unitClass || _class.type == bitClass || _class.type == enumClass)
    {
+      // An OnCopy is pointless for these, just copy the value
+      /*
       Class dataType = eSystem_FindClass(_class.module, _class.dataTypeString);
       if(dataType)
-         dataType._vTbl[__ecereVMethodID_class_OnCopy](dataType, data, newData);
+         ((void (*)(void *, void *, void *))(void *)dataType._vTbl[__ecereVMethodID_class_OnCopy])(dataType, data, newData);
+      */
+      if(newData)
+         memcpy(data, newData, _class.typeSize);
+      else
+         memset(data, 0, _class.typeSize);
    }
-   else if(_class.type != structClass && _class.type != systemClass)
+   else if(_class.type != structClass && (_class.type != systemClass || _class.byValueSystemClass))
    {
       *data = newData;
    }
@@ -931,13 +1175,13 @@ static int DataMember_OnSerialize(DataMember parentMember, void * data, IOChanne
 
          if(memberType.type == structClass || memberType.type == normalClass || memberType.type == noHeadClass)
          {
-            memberType._vTbl[__ecereVMethodID_class_OnSerialize](memberType, (byte *)data + member.offset, channel);
+            ((void (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnSerialize])(memberType, (byte *)data + member.offset, channel);
          }
          else
          {
             DataValue value;
             value.i = *(int *)((byte *)data + member.offset);
-            memberType._vTbl[__ecereVMethodID_class_OnSerialize](memberType, &value);
+            ((void (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnSerialize])(memberType, &value, channel);
          }
       }
       else
@@ -956,25 +1200,27 @@ static void OnSerialize(Class _class, void * data, IOChannel channel)
    {
       Class dataType = eSystem_FindClass(module, _class.dataTypeString);
       if(dataType)
-         dataType._vTbl[__ecereVMethodID_class_OnSerialize](dataType, data, channel);
+         ((void (*)(void *, void *, void *))(void *)dataType._vTbl[__ecereVMethodID_class_OnSerialize])(dataType, data, channel);
    }
    else if(_class.type == normalClass || _class.type == noHeadClass || _class.type == structClass)
    {
-      if(data)
+      //if(data)
       {
          Class lastClass = null;
          while(lastClass != _class)
          {
             DataMember member;
-            for(; _class && (!_class.base || _class.base.type != systemClass) && _class != lastClass; _class = _class.base);
-            lastClass = _class;
+            Class c;
+            for(c = _class; c && (!c.base || c.base.type != systemClass) && c.base != lastClass; c = c.base);
+            lastClass = c;
 
-            for(member = _class.membersAndProperties.first; member; member = member.next)
+            for(member = c.membersAndProperties.first; member; member = member.next)
             {
+               if(member.id < 0) continue;
                if(member.isProperty || member.type == normalMember)
                {
                   Class memberType = member.dataTypeClass;
-                        
+
                   if(!memberType)
                      memberType = member.dataTypeClass = eSystem_FindClass(module, member.dataTypeString);
                   if(memberType)
@@ -999,7 +1245,7 @@ static void OnSerialize(Class _class, void * data, IOChannel channel)
                               {
                                  value.i = prop.Get(data);
                               }
-                              memberType._vTbl[__ecereVMethodID_class_OnSerialize](memberType, &value, channel);
+                              ((void (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnSerialize])(memberType, &value, channel);
                            }
                         }*/
                      }
@@ -1007,10 +1253,10 @@ static void OnSerialize(Class _class, void * data, IOChannel channel)
                      {
                         if(!strcmp(memberType.name, "String") || memberType.type == normalClass || memberType.type == noHeadClass)
                         {
-                           memberType._vTbl[__ecereVMethodID_class_OnSerialize](memberType, *(void **)((byte *)data + member._class.offset + member.offset), channel);
+                           ((void (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnSerialize])(memberType, data ? (*(void **)((byte *)data + member._class.offset + member.offset)) : null, channel);
                         }
                         else
-                           memberType._vTbl[__ecereVMethodID_class_OnSerialize](memberType, ((byte *)data + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset)), channel);
+                           ((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);
                      }
                   }
                   else
@@ -1020,7 +1266,7 @@ static void OnSerialize(Class _class, void * data, IOChannel channel)
                }
                else
                {
-                  DataMember_OnSerialize(member, (byte *)data + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset), channel);
+                  DataMember_OnSerialize(member, data ? ((byte *)data + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset)) : null, channel);
                }
             }
          }
@@ -1045,12 +1291,12 @@ static int DataMember_OnUnserialize(DataMember parentMember, void * data, IOChan
 
          if(memberType.type == structClass || memberType.type == normalClass || memberType.type == noHeadClass)
          {
-            memberType._vTbl[__ecereVMethodID_class_OnUnserialize](memberType, (byte *)data + member.offset, channel);
+            ((void (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnUnserialize])(memberType, (byte *)data + member.offset, channel);
          }
          else
          {
             DataValue value;
-            memberType._vTbl[__ecereVMethodID_class_OnUnserialize](memberType, &value);
+            ((void (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnUnserialize])(memberType, &value, channel);
             *(int *)((byte *)data + member.offset) = value.i;
          }
       }
@@ -1061,7 +1307,7 @@ static int DataMember_OnUnserialize(DataMember parentMember, void * data, IOChan
    }
    return 0;
 }
+
 static void OnUnserialize(Class _class, void ** data, IOChannel channel)
 {
    Module module = _class.module;
@@ -1069,7 +1315,7 @@ static void OnUnserialize(Class _class, void ** data, IOChannel channel)
    {
       Class dataType = eSystem_FindClass(module, _class.dataTypeString);
       if(dataType)
-         dataType._vTbl[__ecereVMethodID_class_OnUnserialize](dataType, data, channel);
+         ((void (*)(void *, void *, void *))(void *)dataType._vTbl[__ecereVMethodID_class_OnUnserialize])(dataType, data, channel);
    }
    else if(_class.type == normalClass || _class.type == noHeadClass || _class.type == structClass)
    {
@@ -1078,25 +1324,28 @@ static void OnUnserialize(Class _class, void ** data, IOChannel channel)
          Class lastClass = null;
          if(_class.type == normalClass || _class.type == noHeadClass)
          {
+            // TOFIX: Seriously!?!?? Fix me!
             data = *data = eInstance_New(_class);
-            if(_class.type == normalClass) 
+            if(_class.type == normalClass)
                ((Instance)data)._refCount++;
          }
-         else if(/*_class.type == noHeadClass || */_class.type == structClass) 
+         else if(/*_class.type == noHeadClass || */_class.type == structClass)
             memset(data, 0, _class.structSize);
 
          while(lastClass != _class)
          {
             DataMember member;
-            for(; _class && (!_class.base || _class.base.type != systemClass) && _class != lastClass; _class = _class.base);
-            lastClass = _class;
+            Class c;
+            for(c = _class; c && (!c.base || c.base.type != systemClass) && c.base != lastClass; c = c.base);
+            lastClass = c;
 
-            for(member = _class.membersAndProperties.first; member; member = member.next)
+            for(member = c.membersAndProperties.first; member; member = member.next)
             {
+               if(member.id < 0) continue;
                if(member.isProperty || member.type == normalMember)
                {
                   Class memberType = member.dataTypeClass;
-                        
+
                   if(!memberType)
                      memberType = member.dataTypeClass = eSystem_FindClass(module, member.dataTypeString);
                   if(memberType)
@@ -1113,13 +1362,13 @@ static void OnUnserialize(Class _class, void ** data, IOChannel channel)
                            else
                            {
                               DataValue value;
-                              memberType._vTbl[__ecereVMethodID_class_OnUnserialize](memberType, &value, channel);
+                              ((void (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnUnserialize])(memberType, &value, channel);
                               prop.Set(data, value.i);
                            }
                         }*/
                      }
                      else
-                        memberType._vTbl[__ecereVMethodID_class_OnUnserialize](memberType, 
+                        ((void (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnUnserialize])(memberType,
                            (byte *)data + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset), channel);
                   }
                   else
@@ -1141,23 +1390,24 @@ static void OnUnserialize(Class _class, void ** data, IOChannel channel)
 static int Integer_OnCompare(Class _class, int * data1, int * data2)
 {
    int result = 0;
-   if(*data1 > *data2)
-      result = 1;
-   else if(*data1 < *data2)
-      result = -1;
+   if(!data1 && !data2) result = 0;
+   else if(data1 && !data2) result = 1;
+   else if(!data1 && data2) result = -1;
+   else if(*data1 > *data2) result = 1;
+   else if(*data1 < *data2) result = -1;
    return result;
 }
 
-/*static */char * Integer_OnGetString(Class _class, int * data, char * string, void * fieldData, bool * needClass)
+/*static */const char * Integer_OnGetString(Class _class, int * data, char * string, void * fieldData, bool * needClass)
 {
    sprintf(string, "%d", *data);
    return string;
 }
 
-static bool Integer_OnGetDataFromString(Class _class, int * data, char * string)
+static bool Integer_OnGetDataFromString(Class _class, int * data, const char * string)
 {
    char * end;
-   int result = strtol(string, &end, 0);
+   int result = (int)strtol(string, &end, 0);
 
    if(end > string)
    {
@@ -1167,32 +1417,93 @@ static bool Integer_OnGetDataFromString(Class _class, int * data, char * string)
    return false;
 }
 
+static const char * Int16_OnGetString(Class _class, short * data, char * string, void * fieldData, bool * needClass)
+{
+   sprintf(string, "%d", (int)*data);
+   return string;
+}
+
+static bool Int16_OnGetDataFromString(Class _class, short * data, const char * string)
+{
+   char * end;
+   short result = (short)strtol(string, &end, 0);
+
+   if(end > string)
+   {
+      *data = result;
+      return true;
+   }
+   return false;
+}
+
+static int Int16_OnCompare(Class _class, short * data1, short * data2)
+{
+   int result = 0;
+   if(!data1 && !data2) result = 0;
+   else if(data1 && !data2) result = 1;
+   else if(!data1 && data2) result = -1;
+   else if(*data1 > *data2) result = 1;
+   else if(*data1 < *data2) result = -1;
+   return result;
+}
+
 static int UInteger_OnCompare(Class _class, unsigned int * data1, unsigned int * data2)
 {
    int result = 0;
-   if(data1 && !data2)
-      result = 1;
-   else if(!data1 && data2)
-      result = -1;
-   else if(!data1 && !data2)
-      result = 0;
-   else if(*data1 > *data2)
-      result = 1;
-   else if(*data1 < *data2)
-      result = -1;
+   if(!data1 && !data2) result = 0;
+   else if(data1 && !data2) result = 1;
+   else if(!data1 && data2) result = -1;
+   else if(*data1 > *data2) result = 1;
+   else if(*data1 < *data2) result = -1;
    return result;
 }
 
-static char * UInteger_OnGetString(Class _class, unsigned int * data, char * string, void * fieldData, bool * needClass)
+static const char * UInteger_OnGetString(Class _class, unsigned int * data, char * string, void * fieldData, bool * needClass)
 {
    sprintf(string, "%u", *data);
    return string;
 }
 
-static bool UInteger_OnGetDataFromString(Class _class, unsigned int * data, char * string)
+static int UInt16_OnCompare(Class _class, uint16 * data1, unsigned int * data2)
+{
+   int result = 0;
+   if(!data1 && !data2) result = 0;
+   else if(data1 && !data2) result = 1;
+   else if(!data1 && data2) result = -1;
+   else if(*data1 > *data2) result = 1;
+   else if(*data1 < *data2) result = -1;
+   return result;
+}
+
+static const char * UInt16_OnGetString(Class _class, uint16 * data, char * string, void * fieldData, bool * needClass)
+{
+   sprintf(string, "%u", (uint)*data);
+   return string;
+}
+
+
+static const char * UIntegerHex_OnGetString(Class _class, unsigned int * data, char * string, void * fieldData, bool * needClass)
+{
+   sprintf(string, "%x", *data);
+   return string;
+}
+
+static bool UInteger_OnGetDataFromString(Class _class, unsigned int * data, const char * string)
+{
+   char * end;
+   uint result = (uint)strtoul(string, &end, 0);
+   if(end > string)
+   {
+      *data = result;
+      return true;
+   }
+   return false;
+}
+
+static bool UInt16_OnGetDataFromString(Class _class, uint16 * data, const char * string)
 {
    char * end;
-   uint result = strtoul(string, &end, 0);
+   uint16 result = (uint16)strtoul(string, &end, 0);
    if(end > string)
    {
       *data = result;
@@ -1204,30 +1515,31 @@ static bool UInteger_OnGetDataFromString(Class _class, unsigned int * data, char
 static int Byte_OnCompare(Class _class, byte * data1, byte * data2)
 {
    int result = 0;
-   if(*data1 > *data2)
-      result = 1;
-   else if(*data1 < *data2)
-      result = -1;
+   if(!data1 && !data2) result = 0;
+   else if(data1 && !data2) result = 1;
+   else if(!data1 && data2) result = -1;
+   else if(*data1 > *data2) result = 1;
+   else if(*data1 < *data2) result = -1;
    return result;
 }
 
-static char * Byte_OnGetString(Class _class, byte * data, char * string, void * fieldData, bool * needClass)
+static const char * Byte_OnGetString(Class _class, byte * data, char * string, void * fieldData, bool * needClass)
 {
    sprintf(string, "%u", (int)*data);
    return string;
 }
 
-static char * Char_OnGetString(Class _class, char * data, char * string, void * fieldData, bool * needClass)
+static const char * Char_OnGetString(Class _class, char * data, char * string, void * fieldData, bool * needClass)
 {
    if(needClass && *needClass)
    {
       char ch = *data;
-      if(ch == '\t')      strcpy(string, "'\t'");
-      else if(ch == '\n') strcpy(string, "'\n'");
-      else if(ch == '\r') strcpy(string, "'\r'");
-      else if(ch == '\a') strcpy(string, "'\a'");
-      else if(ch == '\\') strcpy(string, "'\\'");
-      else if(ch < 32 || ch >= 127)    sprintf(string, "'\o'", ch);
+      if(ch == '\t')      strcpy(string, "'\\t'");
+      else if(ch == '\n') strcpy(string, "'\\n'");
+      else if(ch == '\r') strcpy(string, "'\\r'");
+      else if(ch == '\a') strcpy(string, "'\\a'");
+      else if(ch == '\\') strcpy(string, "'\\\\'");
+      else if(ch < 32 || ch >= 127)    sprintf(string, "'\\x%x'", ch);
       else sprintf(string, "'%c'", ch);
    }
    else
@@ -1235,7 +1547,7 @@ static char * Char_OnGetString(Class _class, char * data, char * string, void *
    return string;
 }
 
-static bool Byte_OnGetDataFromString(Class _class, byte * data, char * string)
+static bool Byte_OnGetDataFromString(Class _class, byte * data, const char * string)
 {
    char * end;
    byte result = (byte)strtoul(string, &end, 0);
@@ -1247,18 +1559,122 @@ static bool Byte_OnGetDataFromString(Class _class, byte * data, char * string)
    return false;
 }
 
-static char * Int64_OnGetString(Class _class, int64 * data, char * string, void * fieldData, bool * needClass)
+static int Int64_OnCompare(Class _class, int64 * data1, int64 * data2)
+{
+   int result = 0;
+   if(!data1 && !data2) result = 0;
+   else if(data1 && !data2) result = 1;
+   else if(!data1 && data2) result = -1;
+   else if(*data1 > *data2) result = 1;
+   else if(*data1 < *data2) result = -1;
+   return result;
+}
+
+static int UInt64_OnCompare(Class _class, uint64 * data1, uint64 * data2)
+{
+   int result = 0;
+   if(!data1 && !data2) result = 0;
+   else if(data1 && !data2) result = 1;
+   else if(!data1 && data2) result = -1;
+   else if(*data1 > *data2) result = 1;
+   else if(*data1 < *data2) result = -1;
+   return result;
+}
+
+static int IntPtr64_OnCompare(Class _class, int64 data1, int64 data2)
+{
+   int result = 0;
+   if(data1 > data2) result = 1;
+   else if(data1 < data2) result = -1;
+   return result;
+}
+
+static int IntPtr32_OnCompare(Class _class, int data1, int data2)
+{
+   int result = 0;
+   if(data1 > data2) result = 1;
+   else if(data1 < data2) result = -1;
+   return result;
+}
+
+static int UIntPtr64_OnCompare(Class _class, uint64 data1, uint64 data2)
+{
+   int result = 0;
+   if(data1 > data2) result = 1;
+   else if(data1 < data2) result = -1;
+   return result;
+}
+
+static int UIntPtr32_OnCompare(Class _class, uint32 data1, uint32 data2)
+{
+   int result = 0;
+   if(data1 > data2) result = 1;
+   else if(data1 < data2) result = -1;
+   return result;
+}
+
+static const char * Int64_OnGetString(Class _class, int64 * data, char * string, void * fieldData, bool * needClass)
 {
    sprintf(string, FORMAT64D, *data);
    return string;
 }
 
-static char * UInt64_OnGetString(Class _class, uint64 * data, char * string, void * fieldData, bool * needClass)
+static const char * UInt64_OnGetString(Class _class, uint64 * data, char * string, void * fieldData, bool * needClass)
 {
    sprintf(string, FORMAT64U, *data);
    return string;
 }
 
+static const char * UInt64Hex_OnGetString(Class _class, uint64 * data, char * string, void * fieldData, bool * needClass)
+{
+   sprintf(string, FORMAT64HEX, *data);
+   return string;
+}
+
+static const char * UIntPtr64_OnGetString(Class _class, uint64 data, char * string, void * fieldData, bool * needClass)
+{
+   return UInt64Hex_OnGetString(_class, &data, string, fieldData, needClass);
+}
+
+static const char * UIntPtr32_OnGetString(Class _class, uint data, char * string, void * fieldData, bool * needClass)
+{
+   return UIntegerHex_OnGetString(_class, &data, string, fieldData, needClass);
+}
+
+static const char * IntPtr64_OnGetString(Class _class, int64 data, char * string, void * fieldData, bool * needClass)
+{
+   return Int64_OnGetString(_class, &data, string, fieldData, needClass);
+}
+
+static const char * IntPtr32_OnGetString(Class _class, int data, char * string, void * fieldData, bool * needClass)
+{
+   return Integer_OnGetString(_class, &data, string, fieldData, needClass);
+}
+
+static bool Int64_OnGetDataFromString(Class _class, int64 * data, const char * string)
+{
+   const char * end;
+   uint64 result = _strtoi64(string, &end, 0);
+   if(end > string)
+   {
+      *data = result;
+      return true;
+   }
+   return false;
+}
+
+static bool UInt64_OnGetDataFromString(Class _class, uint64 * data, const char * string)
+{
+   const char * end;
+   uint64 result = _strtoui64(string, &end, 0);
+   if(end > string)
+   {
+      *data = result;
+      return true;
+   }
+   return false;
+}
+
 /*static */void Byte_OnSerialize(Class _class, byte * data, IOChannel channel)
 {
    channel.WriteData(data, 1);
@@ -1270,7 +1686,6 @@ static char * UInt64_OnGetString(Class _class, uint64 * data, char * string, voi
       *data = 0;
 }
 
-
 /*static */void Int_OnSerialize(Class _class, int * data, IOChannel channel)
 {
    byte bytes[4];
@@ -1278,15 +1693,40 @@ static char * UInt64_OnGetString(Class _class, uint64 * data, char * string, voi
    channel.WriteData(bytes, 4);
 }
 
+/*static */void IntPtr32_OnSerialize(Class _class, int data, IOChannel channel)
+{
+   byte bytes[4];
+   PUTXDWORD(bytes, data);
+   channel.WriteData(bytes, 4);
+}
+
 /*static */void Int_OnUnserialize(Class _class, int * data, IOChannel channel)
 {
    byte bytes[4];
    if(channel.ReadData(bytes, 4) == 4)
-      *data = GETXDWORD(bytes);   
+      *data = GETXDWORD(bytes);
    else
       *data = 0;
 }
 
+/*static */void Enum_OnSerialize(Class _class, int * data, IOChannel channel)
+{
+   Class dataType = strcmp(_class.dataTypeString, "int") ? eSystem_FindClass(_class.module, _class.dataTypeString) : null;
+   if(dataType)
+      ((void (*)(void *, void *, void *))(void *)dataType._vTbl[__ecereVMethodID_class_OnSerialize])(dataType, data, channel);
+   else
+      Int_OnSerialize(_class, data, channel);
+}
+
+/*static */void Enum_OnUnserialize(Class _class, int * data, IOChannel channel)
+{
+   Class dataType = strcmp(_class.dataTypeString, "int") ? eSystem_FindClass(_class.module, _class.dataTypeString) : null;
+   if(dataType)
+      ((void (*)(void *, void *, void *))(void *)dataType._vTbl[__ecereVMethodID_class_OnUnserialize])(dataType, data, channel);
+   else
+      Int_OnUnserialize(_class, data, channel);
+}
+
 /*static */void Int64_OnSerialize(Class _class, int64 * data, IOChannel channel)
 {
    byte bytes[8];
@@ -1294,11 +1734,18 @@ static char * UInt64_OnGetString(Class _class, uint64 * data, char * string, voi
    channel.WriteData(bytes, 8);
 }
 
+static void IntPtr64_OnSerialize(Class _class, int64 data, IOChannel channel)
+{
+   byte bytes[8];
+   PUTXQWORD(bytes, data);
+   channel.WriteData(bytes, 8);
+}
+
 /*static */void Int64_OnUnserialize(Class _class, int64 * data, IOChannel channel)
 {
    byte bytes[8];
    if(channel.ReadData(bytes, 8) == 8)
-      *data = GETXQWORD(bytes);   
+      *data = GETXQWORD(bytes);
    else
       *data = 0;
 }
@@ -1314,7 +1761,7 @@ static char * UInt64_OnGetString(Class _class, uint64 * data, char * string, voi
 {
    byte bytes[2];
    if(channel.ReadData(bytes, 2) == 2)
-      *data = GETXWORD(bytes);   
+      *data = GETXWORD(bytes);
    else
       *data = 0;
 }
@@ -1323,11 +1770,11 @@ static void RegisterClass_Integer(Module module)
 {
    Class integerClass = eSystem_RegisterClass(normalClass, "int", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
    integerClass.type = systemClass;
-   delete integerClass.dataTypeString;
+   delete (void *)integerClass.dataTypeString;
    integerClass.dataTypeString = CopyString("int");
    integerClass.structSize = 0;
    integerClass.typeSize = sizeof(int);
-   
+
    eClass_AddMethod(integerClass, "OnCompare", null, Integer_OnCompare, publicAccess);
    eClass_AddMethod(integerClass, "OnGetString", null, Integer_OnGetString, publicAccess);
    eClass_AddMethod(integerClass, "OnGetDataFromString", null, Integer_OnGetDataFromString, publicAccess);
@@ -1338,21 +1785,17 @@ static void RegisterClass_Integer(Module module)
    integerClass.type = systemClass;
    integerClass.structSize = 0;
    integerClass.typeSize = sizeof(int64);
-   delete integerClass.dataTypeString;
+   delete (void *)integerClass.dataTypeString;
    integerClass.dataTypeString = CopyString("int64");
    eClass_AddMethod(integerClass, "OnGetString", null, Int64_OnGetString, publicAccess);
-
-   /*
-   eClass_AddMethod(integerClass, "OnCompare", null, Integer64_OnCompare, publicAccess);
-   eClass_AddMethod(integerClass, "OnGetString", null, Integer64_OnGetString, publicAccess);
-   eClass_AddMethod(integerClass, "OnGetDataFromString", null, Integer64_OnGetDataFromString, publicAccess);
-   */
+   eClass_AddMethod(integerClass, "OnCompare", null, Int64_OnCompare, publicAccess);
+   eClass_AddMethod(integerClass, "OnGetDataFromString", null, Int64_OnGetDataFromString, publicAccess);
    eClass_AddMethod(integerClass, "OnSerialize", null, Int64_OnSerialize, publicAccess);
    eClass_AddMethod(integerClass, "OnUnserialize", null, Int64_OnUnserialize, publicAccess);
 
    integerClass = eSystem_RegisterClass(normalClass, "uint", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
    integerClass.type = systemClass;
-   delete integerClass.dataTypeString;
+   delete (void *)integerClass.dataTypeString;
    integerClass.dataTypeString = CopyString("unsigned int");
    integerClass.structSize = 0;
    integerClass.typeSize = sizeof(uint);
@@ -1364,7 +1807,7 @@ static void RegisterClass_Integer(Module module)
 
    integerClass = eSystem_RegisterClass(normalClass, "unsigned int", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
    integerClass.type = systemClass;
-   delete integerClass.dataTypeString;
+   delete (void *)integerClass.dataTypeString;
    integerClass.dataTypeString = CopyString("unsigned int");
    integerClass.structSize = 0;
    integerClass.typeSize = sizeof(uint);
@@ -1377,28 +1820,34 @@ static void RegisterClass_Integer(Module module)
 
    integerClass = eSystem_RegisterClass(normalClass, "uint16", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
    integerClass.type = systemClass;
-   delete integerClass.dataTypeString;
+   delete (void *)integerClass.dataTypeString;
    integerClass.dataTypeString = CopyString("unsigned short");
    integerClass.structSize = 0;
    integerClass.typeSize = sizeof(uint16);
 
    eClass_AddMethod(integerClass, "OnSerialize", null, Word_OnSerialize, publicAccess);
    eClass_AddMethod(integerClass, "OnUnserialize", null, Word_OnUnserialize, publicAccess);
+   eClass_AddMethod(integerClass, "OnCompare", null, UInt16_OnCompare, publicAccess);
+   eClass_AddMethod(integerClass, "OnGetString", null, UInt16_OnGetString, publicAccess);
+   eClass_AddMethod(integerClass, "OnGetDataFromString", null, UInt16_OnGetDataFromString, publicAccess);
 
    integerClass = eSystem_RegisterClass(normalClass, "short", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
    integerClass.type = systemClass;
-   delete integerClass.dataTypeString;
+   delete (void *)integerClass.dataTypeString;
    integerClass.dataTypeString = CopyString("short");
    integerClass.structSize = 0;
    integerClass.typeSize = sizeof(short);
 
    eClass_AddMethod(integerClass, "OnSerialize", null, Word_OnSerialize, publicAccess);
    eClass_AddMethod(integerClass, "OnUnserialize", null, Word_OnUnserialize, publicAccess);
+   eClass_AddMethod(integerClass, "OnCompare", null, Int16_OnCompare, publicAccess);
+   eClass_AddMethod(integerClass, "OnGetString", null, Int16_OnGetString, publicAccess);
+   eClass_AddMethod(integerClass, "OnGetDataFromString", null, Int16_OnGetDataFromString, publicAccess);
 
    /*
    integerClass = eSystem_RegisterClass(normalClass, "uint32", null, 0, 0, null, null, module, baseSystemAccess);
    integerClass.type = systemClass;
-   delete integerClass.dataTypeString;
+   delete (void *)integerClass.dataTypeString;
    integerClass.dataTypeString = CopyString("uint32");
    eClass_AddMethod(integerClass, "OnCompare", null, UInteger_OnCompare, publicAccess);
    eClass_AddMethod(integerClass, "OnGetString", null, UInteger_OnGetString, publicAccess);
@@ -1406,24 +1855,26 @@ static void RegisterClass_Integer(Module module)
    */
    integerClass = eSystem_RegisterClass(normalClass, "uint32", "uint", 0, 0, null, null, module, baseSystemAccess, publicAccess);
    integerClass.type = systemClass;
-   delete integerClass.dataTypeString;
+   delete (void *)integerClass.dataTypeString;
    integerClass.dataTypeString = CopyString("unsigned int");
    integerClass.structSize = 0;
    integerClass.typeSize = sizeof(uint32);
 
    integerClass = eSystem_RegisterClass(normalClass, "uint64", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
    integerClass.type = systemClass;
-   delete integerClass.dataTypeString;
+   delete (void *)integerClass.dataTypeString;
    integerClass.dataTypeString = CopyString("uint64");
    integerClass.structSize = 0;
    integerClass.typeSize = sizeof(uint64);
    eClass_AddMethod(integerClass, "OnGetString", null, UInt64_OnGetString, publicAccess);
+   eClass_AddMethod(integerClass, "OnGetDataFromString", null, UInt64_OnGetDataFromString, publicAccess);
    eClass_AddMethod(integerClass, "OnSerialize", null, Int64_OnSerialize, publicAccess);
    eClass_AddMethod(integerClass, "OnUnserialize", null, Int64_OnUnserialize, publicAccess);
+   eClass_AddMethod(integerClass, "OnCompare", null, UInt64_OnCompare, publicAccess);
 
    integerClass = eSystem_RegisterClass(normalClass, "byte", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
    integerClass.type = systemClass;
-   delete integerClass.dataTypeString;
+   delete (void *)integerClass.dataTypeString;
    integerClass.dataTypeString = CopyString("unsigned char");
    integerClass.structSize = 0;
    integerClass.typeSize = sizeof(byte);
@@ -1435,7 +1886,7 @@ static void RegisterClass_Integer(Module module)
 
    integerClass = eSystem_RegisterClass(normalClass, "char", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
    integerClass.type = systemClass;
-   delete integerClass.dataTypeString;
+   delete (void *)integerClass.dataTypeString;
    integerClass.dataTypeString = CopyString("char");
    integerClass.structSize = 0;
    integerClass.typeSize = sizeof(char);
@@ -1444,43 +1895,194 @@ static void RegisterClass_Integer(Module module)
    eClass_AddMethod(integerClass, "OnGetDataFromString", null, Byte_OnGetDataFromString, publicAccess);
    eClass_AddMethod(integerClass, "OnSerialize", null, Byte_OnSerialize, publicAccess);
    eClass_AddMethod(integerClass, "OnUnserialize", null, Byte_OnUnserialize, publicAccess);
+
+   integerClass = eSystem_RegisterClass(normalClass, "intsize", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
+   integerClass.type = systemClass;
+   delete (void *)integerClass.dataTypeString;
+   integerClass.dataTypeString = CopyString("ssize_t");
+   integerClass.structSize = 0;
+   integerClass.typeSize = sizeof(intsize);
+   if(sizeof(intsize) == 8)
+   {
+      eClass_AddMethod(integerClass, "OnGetString", null, Int64_OnGetString, publicAccess);
+      eClass_AddMethod(integerClass, "OnGetDataFromString", null, Int64_OnGetDataFromString, publicAccess);
+      eClass_AddMethod(integerClass, "OnSerialize", null, Int64_OnSerialize, publicAccess);
+      eClass_AddMethod(integerClass, "OnUnserialize", null, Int64_OnUnserialize, publicAccess);
+      eClass_AddMethod(integerClass, "OnCompare", null, Int64_OnCompare, publicAccess);
+   }
+   else
+   {
+      eClass_AddMethod(integerClass, "OnCompare", null, Integer_OnCompare, publicAccess);
+      eClass_AddMethod(integerClass, "OnGetString", null, Integer_OnGetString, publicAccess);
+      eClass_AddMethod(integerClass, "OnGetDataFromString", null, Integer_OnGetDataFromString, publicAccess);
+      eClass_AddMethod(integerClass, "OnSerialize", null, Int_OnSerialize, publicAccess);
+      eClass_AddMethod(integerClass, "OnUnserialize", null, Int_OnUnserialize, publicAccess);
+   }
+
+   integerClass = eSystem_RegisterClass(normalClass, "uintsize", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
+   integerClass.type = systemClass;
+   delete (void *)integerClass.dataTypeString;
+   integerClass.dataTypeString = CopyString("size_t");
+   integerClass.structSize = 0;
+   integerClass.typeSize = sizeof(uintsize);
+   if(sizeof(uintsize) == 8)
+   {
+      eClass_AddMethod(integerClass, "OnGetString", null, UInt64Hex_OnGetString, publicAccess);
+      eClass_AddMethod(integerClass, "OnGetDataFromString", null, UInt64_OnGetDataFromString, publicAccess);
+      eClass_AddMethod(integerClass, "OnSerialize", null, Int64_OnSerialize, publicAccess);
+      eClass_AddMethod(integerClass, "OnUnserialize", null, Int64_OnUnserialize, publicAccess);
+      eClass_AddMethod(integerClass, "OnCompare", null, UInt64_OnCompare, publicAccess);
+   }
+   else
+   {
+      eClass_AddMethod(integerClass, "OnGetString", null, UIntegerHex_OnGetString, publicAccess);
+      eClass_AddMethod(integerClass, "OnGetDataFromString", null, UInteger_OnGetDataFromString, publicAccess);
+      eClass_AddMethod(integerClass, "OnSerialize", null, Int_OnSerialize, publicAccess);
+      eClass_AddMethod(integerClass, "OnUnserialize", null, Int_OnUnserialize, publicAccess);
+      eClass_AddMethod(integerClass, "OnCompare", null, UInteger_OnCompare, publicAccess);
+   }
+
+   integerClass = eSystem_RegisterClass(normalClass, "uintptr", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
+   integerClass.type = systemClass;
+   delete (void *)integerClass.dataTypeString;
+   integerClass.dataTypeString = CopyString("uintptr_t");
+   integerClass.structSize = 0;
+   integerClass.typeSize = sizeof(uintptr);
+   integerClass.byValueSystemClass = true;
+   if(sizeof(uintptr) == 8)
+   {
+      eClass_AddMethod(integerClass, "OnGetString", null, UIntPtr64_OnGetString, publicAccess);
+      eClass_AddMethod(integerClass, "OnGetDataFromString", null, UInt64_OnGetDataFromString, publicAccess);
+      eClass_AddMethod(integerClass, "OnSerialize", null, IntPtr64_OnSerialize, publicAccess);
+      eClass_AddMethod(integerClass, "OnUnserialize", null, Int64_OnUnserialize, publicAccess);
+      eClass_AddMethod(integerClass, "OnCompare", null, UIntPtr64_OnCompare, publicAccess);
+   }
+   else
+   {
+      eClass_AddMethod(integerClass, "OnGetString", null, UIntPtr32_OnGetString, publicAccess);
+      eClass_AddMethod(integerClass, "OnGetDataFromString", null, UInteger_OnGetDataFromString, publicAccess);
+      eClass_AddMethod(integerClass, "OnSerialize", null, IntPtr32_OnSerialize, publicAccess);
+      eClass_AddMethod(integerClass, "OnUnserialize", null, Int_OnUnserialize, publicAccess);
+      eClass_AddMethod(integerClass, "OnCompare", null, UIntPtr32_OnCompare, publicAccess);
+   }
+
+   integerClass = eSystem_RegisterClass(normalClass, "intptr", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
+   integerClass.type = systemClass;
+   delete (void *)integerClass.dataTypeString;
+   integerClass.dataTypeString = CopyString("intptr_t");
+   integerClass.structSize = 0;
+   integerClass.typeSize = sizeof(intptr);
+   integerClass.byValueSystemClass = true;
+   if(sizeof(intptr) == 8)
+   {
+      eClass_AddMethod(integerClass, "OnGetString", null, IntPtr64_OnGetString, publicAccess);
+      eClass_AddMethod(integerClass, "OnGetDataFromString", null, Int64_OnGetDataFromString, publicAccess);
+      eClass_AddMethod(integerClass, "OnSerialize", null, IntPtr64_OnSerialize, publicAccess);
+      eClass_AddMethod(integerClass, "OnUnserialize", null, Int64_OnUnserialize, publicAccess);
+      eClass_AddMethod(integerClass, "OnCompare", null, IntPtr64_OnCompare, publicAccess);
+   }
+   else
+   {
+      eClass_AddMethod(integerClass, "OnGetString", null, IntPtr32_OnGetString, publicAccess);
+      eClass_AddMethod(integerClass, "OnGetDataFromString", null, Integer_OnGetDataFromString, publicAccess);
+      eClass_AddMethod(integerClass, "OnSerialize", null, IntPtr32_OnSerialize, publicAccess);
+      eClass_AddMethod(integerClass, "OnUnserialize", null, Int_OnUnserialize, publicAccess);
+      eClass_AddMethod(integerClass, "OnCompare", null, IntPtr32_OnCompare, publicAccess);
+   }
 }
 
 // Float
 static int Float_OnCompare(Class _class, float * data1, float * data2)
 {
    int result = 0;
-   if(*data1 > *data2)
-      result = 1;
-   else if(*data1 < *data2)
-      result = -1;
+   if(!data1 && !data2) result = 0;
+   else if(data1 && !data2) result = 1;
+   else if(!data1 && data2) result = -1;
+   else if(*data1 > *data2) result = 1;
+   else if(*data1 < *data2) result = -1;
    return result;
 }
 
 static char * Float_OnGetString(Class _class, float * data, char * string, void * fieldData, bool * needClass)
 {
-   int c;
-   int last = 0;
-   int numDigits = 7, num = 1;
-   char format[10];
-   while(numDigits && num < *data) numDigits--, num *= 10;
-   sprintf(format, "%%.%df", numDigits);
-
-   //sprintf(string, "%f", *data);
-   sprintf(string, format, *data);
-
-   c = strlen(string)-1;
-   for( ; c >= 0; c--)
+   float f = *data;
+   if(f.isInf)
+   {
+      if(f.signBit)
+         strcpy(string, "-inf");
+      else
+         strcpy(string, "inf");
+   }
+   else if(f.isNan)
    {
-      if(string[c] != '0') 
-         last = Max(last, c);
-      if(string[c] == '.')
+      if(f.signBit)
+         strcpy(string, "-nan");
+      else
+         strcpy(string, "nan");
+   }
+   else
+   {
+      int c;
+      int last = 0;
+      bool checkFor1 = true, checkFor9 = true;
+      int numDigits = 7, num = 1;
+      int first9 = 0;
+      char format[10];
+      char * dot;
+      int len;
+      while(numDigits && num < f) numDigits--, num *= 10;
+      sprintf(format, "%%.%df", numDigits);
+
+      //sprintf(string, "%f", f);
+      sprintf(string, format, f);
+      dot = strchr(string, '.');
+
+      len = strlen(string);
+      c = len-1;
+      for( ; c >= 0; c--)
       {
-         if(last == c)
-            string[c] = 0;
-         else
-            string[last+1] = 0;
-         break;
+         char ch = string[c];
+         if(ch != '0' && dot)
+         {
+            if(ch == '1' && string + c - dot >= 6 && c == len - 1 && checkFor1)
+               checkFor1 = false;
+            else if(ch == '9' && string + c - dot >= 6 && c == len - 1 && checkFor9)
+               first9 = c;
+            else
+            {
+               last = Max(last, c);
+               checkFor9 = false;
+               checkFor1 = false;
+            }
+         }
+         if(ch == '.')
+         {
+            if(last == c)
+               string[c] = 0;
+            else
+            {
+               string[last+1] = 0;
+               if(first9)
+               {
+                  while(--first9 > 0)
+                  {
+                     if(first9 != c)
+                        if(string[first9] < '9')
+                        {
+                           string[first9]++;
+                           break;
+                        }
+                  }
+                  if(first9 < c)
+                  {
+                     string[c-1] = '1';
+                     first9 = c;
+                  }
+                  string[first9] = 0;
+               }
+            }
+            break;
+         }
       }
    }
    return string;
@@ -1510,7 +2112,7 @@ static void Float_OnUnserialize(Class _class, float * data, IOChannel channel)
 {
    byte bytes[4];
    if(channel.ReadData(bytes, 4) == 4)
-      *(uint *)data = GETXDWORD(bytes);   
+      *(uint *)data = GETXDWORD(bytes);
    else
       *data = 0;
 }
@@ -1519,7 +2121,7 @@ static void RegisterClass_Float(Module module)
 {
    Class floatClass = eSystem_RegisterClass(normalClass, "float", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
    floatClass.type = systemClass;
-   delete floatClass.dataTypeString;
+   delete (void *)floatClass.dataTypeString;
    floatClass.dataTypeString = CopyString("float");
    floatClass.structSize = 0;
    floatClass.typeSize = sizeof(float);
@@ -1528,42 +2130,68 @@ static void RegisterClass_Float(Module module)
    eClass_AddMethod(floatClass, "OnGetDataFromString", null, Float_OnGetDataFromString, publicAccess);
    eClass_AddMethod(floatClass, "OnSerialize", null, Float_OnSerialize, publicAccess);
    eClass_AddMethod(floatClass, "OnUnserialize", null, Float_OnUnserialize, publicAccess);
+
+   eClass_AddMethod(floatClass, "nan", "float ::nan(void)", Float_nan, publicAccess);
+   eClass_AddMethod(floatClass, "inf", "float ::inf(void)", Float_inf, publicAccess);
+
+   eClass_AddProperty(floatClass, "isNan", "bool", null, Float_isNan, publicAccess);
+   eClass_AddProperty(floatClass, "isInf", "bool", null, Float_isInf, publicAccess);
+   eClass_AddProperty(floatClass, "signBit", "int", null, Float_signBit, publicAccess);
 }
 
 // Double
 static int Double_OnCompare(Class _class, double * data1, double * data2)
 {
    int result = 0;
-   if(*data1 > *data2)
-      result = 1;
-   else if(*data1 < *data2)
-      result = -1;
+   if(!data1 && !data2) result = 0;
+   else if(data1 && !data2) result = 1;
+   else if(!data1 && data2) result = -1;
+   else if(*data1 > *data2) result = 1;
+   else if(*data1 < *data2) result = -1;
    return result;
 }
 
 static char * Double_OnGetString(Class _class, double * data, char * string, void * fieldData, bool * needClass)
 {
-   int c;
-   int last = 0;
-   //sprintf(string, "%.20f", *data);
-   if(runtimePlatform == win32)
-   // sprintf(string, "%.16g", *data);
-      sprintf(string, "%.15g", *data);
+   double f = *data;
+   if(f.isInf)
+   {
+      if(f.signBit)
+         strcpy(string, "-inf");
+      else
+         strcpy(string, "inf");
+   }
+   else if(f.isNan)
+   {
+      if(f.signBit)
+         strcpy(string, "-nan");
+      else
+         strcpy(string, "nan");
+   }
    else
-      sprintf(string, "%.13lf", *data);
-
-   c = strlen(string)-1;
-   for( ; c >= 0; c--)
    {
-      if(string[c] != '0') 
-         last = Max(last, c);
-      if(string[c] == '.')
+      int c;
+      int last = 0;
+      //sprintf(string, "%.20f", f);
+      if(runtimePlatform == win32)
+      // sprintf(string, "%.16g", f);
+         sprintf(string, "%.15g", f);
+      else
+         sprintf(string, "%.13lf", f);
+
+      c = strlen(string)-1;
+      for( ; c >= 0; c--)
       {
-         if(last == c)
-            string[c] = 0;
-         else
-            string[last+1] = 0;
-         break;
+         if(string[c] != '0')
+            last = Max(last, c);
+         if(string[c] == '.')
+         {
+            if(last == c)
+               string[c] = 0;
+            else
+               string[last+1] = 0;
+            break;
+         }
       }
    }
    return string;
@@ -1579,7 +2207,7 @@ static bool Double_OnGetDataFromString(Class _class, double * data, char * strin
    {
       *data = result;
       return true;
-   
+
     }
     return false;
 }
@@ -1604,7 +2232,7 @@ static void RegisterClass_Double(Module module)
 {
    Class doubleClass = eSystem_RegisterClass(normalClass, "double", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
    doubleClass.type = systemClass;
-   delete doubleClass.dataTypeString;
+   delete (void *)doubleClass.dataTypeString;
    doubleClass.dataTypeString = CopyString("double");
    doubleClass.structSize = 0;
    doubleClass.typeSize = sizeof(double);
@@ -1613,6 +2241,13 @@ static void RegisterClass_Double(Module module)
    eClass_AddMethod(doubleClass, "OnGetDataFromString", null, Double_OnGetDataFromString, publicAccess);
    eClass_AddMethod(doubleClass, "OnSerialize", null, Double_OnSerialize, publicAccess);
    eClass_AddMethod(doubleClass, "OnUnserialize", null, Double_OnUnserialize, publicAccess);
+
+   eClass_AddProperty(doubleClass, "isNan", "bool", null, Double_isNan, publicAccess);
+   eClass_AddProperty(doubleClass, "isInf", "bool", null, Double_isInf, publicAccess);
+   eClass_AddProperty(doubleClass, "signBit", "int", null, Double_signBit, publicAccess);
+
+   eClass_AddMethod(doubleClass, "nan", "double ::nan(void)", Double_nan, publicAccess);
+   eClass_AddMethod(doubleClass, "inf", "double ::inf(void)", Double_inf, publicAccess);
 }
 
 public struct StaticString
@@ -1621,7 +2256,7 @@ public struct StaticString
 
    void OnSerialize(IOChannel channel)
    {
-      int len = this ? strlen(string) : 0;
+      uint len = this ? strlen(string) : 0;
       channel.WriteData(this ? string : "", len+1);
    }
 
@@ -1630,7 +2265,6 @@ public struct StaticString
       if(this)
       {
          int c;
-         uint size;
 
          for(c = 0; channel.ReadData(&string[c], 1) && string[c]; c++);
          string[c++] = '\0';
@@ -1649,9 +2283,9 @@ public struct StaticString
       return result;
    }
 
-   char * OnGetString(char * tempString, void * fieldData, bool * needClass)
+   const char * OnGetString(char * tempString, void * fieldData, bool * needClass)
    {
-      return (char *)(this ? string : null); // Cast for memguard
+      return this ? string : null;
    }
 
    void OnFree()
@@ -1691,8 +2325,8 @@ static bool String_OnGetDataFromString(Class _class, char ** data, char * newDat
    }
    return true;
 }
-/*static */int String_OnCompare(Class _class, char * string1, char * string2)
+
+/*static */int String_OnCompare(Class _class, const char * string1, const char * string2)
 {
    int result = 0;
    if(string1 && string2)
@@ -1711,7 +2345,7 @@ static char * String_OnGetString(Class _class, char * string, char * tempString,
 
 static void String_OnFree(Class _class, char * string)
 {
-   if(string) 
+   if(string)
    {
       eSystem_Delete(string);
    }
@@ -1755,21 +2389,23 @@ static void String_OnUnserialize(Class _class, char * * string, IOChannel channe
 static void RegisterClass_String(Module module)
 {
    Class stringClass = eSystem_RegisterClass(normalClass, "char *", null, 0, 0, null, null, module, baseSystemAccess, publicAccess);
-   delete stringClass.dataTypeString;
+   delete (void *)stringClass.dataTypeString;
    stringClass.dataTypeString = CopyString("char *");
    stringClass.structSize = 0;
-   
+   stringClass.computeSize = false;
+
    eClass_AddMethod(stringClass, "OnCompare", null, String_OnCompare, publicAccess);
    eClass_AddMethod(stringClass, "OnCopy", null, String_OnCopy, publicAccess);
    eClass_AddMethod(stringClass, "OnFree", null, String_OnFree, publicAccess);
    eClass_AddMethod(stringClass, "OnGetString", null, String_OnGetString, publicAccess);
    eClass_AddMethod(stringClass, "OnGetDataFromString", null, String_OnGetDataFromString, publicAccess);
    eClass_AddMethod(stringClass, "OnSerialize", null, String_OnSerialize, publicAccess);
-   eClass_AddMethod(stringClass, "OnUnserialize", null, String_OnUnserialize, publicAccess); 
+   eClass_AddMethod(stringClass, "OnUnserialize", null, String_OnUnserialize, publicAccess);
    // eClass_AddProperty(stringClass, null, "Class", null, String_GetClass, publicAccess);
 
    stringClass = eSystem_RegisterClass(normalClass, "String", "char *", 0, 0, null, null, module, baseSystemAccess, publicAccess);
    stringClass.structSize = 0;
+   stringClass.computeSize = false;
    eClass_AddProperty(stringClass, null, "char *", null, null, publicAccess);
 }
 
@@ -1781,8 +2417,8 @@ void InitializeDataTypes1(Module module)
    eClass_AddVirtualMethod(baseClass, "OnCompare", "int typed_object::OnCompare(any_object object)", OnCompare, publicAccess);
    eClass_AddVirtualMethod(baseClass, "OnCopy", "void typed_object&::OnCopy(any_object newData)", OnCopy, publicAccess);
    eClass_AddVirtualMethod(baseClass, "OnFree", "void typed_object::OnFree(void)", OnFree, publicAccess);
-   eClass_AddVirtualMethod(baseClass, "OnGetString", "char * typed_object::OnGetString(char * tempString, void * fieldData, bool * needClass)", OnGetString, publicAccess);
-   eClass_AddVirtualMethod(baseClass, "OnGetDataFromString", "bool typed_object&::OnGetDataFromString(char * string)", OnGetDataFromString, publicAccess);
+   eClass_AddVirtualMethod(baseClass, "OnGetString", "const char * typed_object::OnGetString(char * tempString, void * fieldData, bool * needClass)", OnGetString, publicAccess);
+   eClass_AddVirtualMethod(baseClass, "OnGetDataFromString", "bool typed_object&::OnGetDataFromString(const char * string)", OnGetDataFromString, publicAccess);
    eClass_AddVirtualMethod(baseClass, "OnEdit", "Window typed_object::OnEdit(DataBox dataBox, DataBox obsolete, int x, int y, int w, int h, void * userData)", null, publicAccess);
    eClass_AddVirtualMethod(baseClass, "OnSerialize", "void typed_object::OnSerialize(IOChannel channel)", OnSerialize, publicAccess);
    eClass_AddVirtualMethod(baseClass, "OnUnserialize", "void typed_object&::OnUnserialize(IOChannel channel)", OnUnserialize, publicAccess);
@@ -1793,8 +2429,8 @@ void InitializeDataTypes(Module module)
 {
    Class enumClass = eSystem_FindClass(module, "enum");
 
-   eClass_AddMethod(enumClass, "OnSerialize", null, Int_OnSerialize, publicAccess);
-   eClass_AddMethod(enumClass, "OnUnserialize", null, Int_OnUnserialize, publicAccess);
+   eClass_AddMethod(enumClass, "OnSerialize", null, Enum_OnSerialize, publicAccess);
+   eClass_AddMethod(enumClass, "OnUnserialize", null, Enum_OnUnserialize, publicAccess);
 
    // Data Types
    RegisterClass_Integer(module);
@@ -1803,14 +2439,11 @@ void InitializeDataTypes(Module module)
    RegisterClass_String(module);
 }
 
-#include <stdarg.h>
-#include <stdio.h>
-
 public int PrintStdArgsToBuffer(char * buffer, int maxLen, typed_object object, va_list args)
 {
    int len = 0;
    // TOFIX: OnGetString will need a maxLen as well
-   char * result = object.OnGetString(buffer, null, null);
+   const char * result = object.OnGetString(buffer, null, null);
    if(result)
    {
       len = strlen(result);
@@ -1829,14 +2462,14 @@ public int PrintStdArgsToBuffer(char * buffer, int maxLen, typed_object object,
       if(data)
       {
          // TOFIX: OnGetString will need a maxLen as well
-         result = (char *)_class._vTbl[__ecereVMethodID_class_OnGetString](_class, data, buffer + len, null, null);
+         result = ((const char *(*)(void *, void *, char *, void *, bool *))(void *)_class._vTbl[__ecereVMethodID_class_OnGetString])(_class, data, buffer + len, null, null);
          if(result)
          {
             int newLen = strlen(result);
             if(len + newLen >= maxLen) newLen = maxLen-1-len;
             if(result != buffer + len)
                memcpy(buffer + len, result, newLen);
-            len += newLen;              
+            len += newLen;
          }
       }
    }
@@ -1896,6 +2529,11 @@ public char * PrintLnString(typed_object object, ...)
    return string;
 }
 
+#if defined(__ANDROID__)
+#include <android/log.h>
+#define LOGI(...) ((void)__android_log_print(ANDROID_LOG_INFO, "ecere-app", __VA_ARGS__))
+#endif
+
 public void PrintLn(typed_object object, ...)
 {
    va_list args;
@@ -1903,7 +2541,11 @@ public void PrintLn(typed_object object, ...)
    va_start(args, object);
    PrintStdArgsToBuffer(buffer, sizeof(buffer), object, args);
    va_end(args);
+#if defined(__ANDROID__) && !defined(ECERE_NOFILE)
+   LOGI("%s", buffer);
+#else
    puts(buffer);
+#endif
 }
 
 public void Print(typed_object object, ...)
@@ -1913,5 +2555,5 @@ public void Print(typed_object object, ...)
    va_start(args, object);
    PrintStdArgsToBuffer(buffer, sizeof(buffer), object, args);
    va_end(args);
-   fputs(buffer, stdout);
+   fputs(buffer, eC_stdout());
 }