wip II
[sdk] / ecere / src / com / dataTypes.ec
index 62bca1c..8ba2419 100644 (file)
@@ -59,15 +59,22 @@ 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,20,0);
-   a.OnDisplay(null,0,0,0,0,0,0);
    a.OnGetDataFromString(null);
 }
 
+#define uint _uint
+#include <stdarg.h>
+#include <stdio.h>
+#undef uint
+
 default:
+FILE *eC_stdout(void);
+FILE *eC_stderr(void);
+
 extern int __ecereVMethodID_class_OnGetString;
 extern int __ecereVMethodID_class_OnGetDataFromString;
 extern int __ecereVMethodID_class_OnCompare;
@@ -179,11 +186,15 @@ public:
 
 /*static */char * Enum_OnGetString(Class _class, int * 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)
-         break;
+   NamedLink item = null;
+   Class b;
+   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((int)item.data == *data)
+            break;
+   }
    if(item)
    {
       strcpy(tempString, item.name);
@@ -198,12 +209,16 @@ public:
 
 static bool Enum_OnGetDataFromString(Class _class, int * data, char * string)
 {
-   EnumClassData enumeration = (EnumClassData)_class.data;
-   NamedLink item;
-   for(item = enumeration.values.first; item; item = item.next)
+   NamedLink 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)
    {
@@ -305,6 +320,7 @@ 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;
@@ -414,10 +430,20 @@ static int OnCompare(Class _class, void * data1, void * data2)
       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;
@@ -432,13 +458,70 @@ static char * OnGetString(Class _class, void * data, char * tempString, void * f
 {
    // 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);
+      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)
+            {
+               String dts = _class.base.dataTypeString;
+               if(!strcmp(dts, "double"))
+               {
+                  double d = ((double(*)(double))(void *)prop.Set)(*(double *)data);
+                  return ((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 ((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 ((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 ((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 ((char *(*)(void *, void *, char *, void *, bool *))(void *)dataType._vTbl[__ecereVMethodID_class_OnGetString])(dataType, data, tempString, fieldData, needClass);
    }
    else
@@ -462,6 +545,7 @@ static char * OnGetString(Class _class, void * data, char * tempString, void * f
             char memberString[1024];
             Class memberType = member.dataTypeClass;
             char * name = member.name;
+            if(member.id < 0) continue;
                   
             memberString[0] = 0;
 
@@ -481,7 +565,7 @@ static char * OnGetString(Class _class, void * data, char * tempString, void * f
                      DataValue value = { 0 };
                      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;
@@ -493,10 +577,10 @@ 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 || prop.IsSet)
+                        value.p = ((void *(*)(void *))(void *)prop.Get)(data);
+                        if(value.p || prop.IsSet)
                         {
                            bool needClass = true;
                            char * result = ((char *(*)(void *, void *, char *, void *, bool *))(void *)memberType._vTbl[__ecereVMethodID_class_OnGetString])(memberType, 
@@ -505,6 +589,17 @@ static char * OnGetString(Class _class, void * data, char * tempString, void * f
                               strcpy(memberString, result);
                         }
                      }
+                     else
+                     {
+                        value.i = ((int(*)(void *))(void *)prop.Get)(data);
+                        if(value.i || prop.IsSet)
+                        {
+                           bool needClass = true;
+                           char * result = ((char *(*)(void *, void *, char *, void *, bool *))(void *)memberType._vTbl[__ecereVMethodID_class_OnGetString])(memberType, &value, memberString, null, &needClass);
+                           if(result && result != memberString)
+                              strcpy(memberString, result);
+                        }
+                     }
                   }
                }
             }
@@ -517,10 +612,11 @@ 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));
                      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;
@@ -528,7 +624,7 @@ static char * OnGetString(Class _class, void * data, char * tempString, void * f
                            result = ((char *(*)(void *, void *, char *, void *, bool *))(void *)memberType._vTbl[__ecereVMethodID_class_OnGetString])(memberType, *(Instance *)memberData, internalMemberString, null, &needClass);
                         else
                            result = ((char *(*)(void *, void *, char *, void *, bool *))(void *)memberType._vTbl[__ecereVMethodID_class_OnGetString])(memberType, memberData, internalMemberString, null, &needClass);
-                        if(needClass)
+                        if(needClass && strcmp(memberType.dataTypeString, "char *"))
                         {
                            //strcpy(memberString, memberType.name);
                            strcat(memberString, "{ ");
@@ -674,8 +770,66 @@ static bool OnGetDataFromString(Class _class, void ** data, char * string)
       result = Enum_OnGetDataFromString(_class, (int *)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)
+            {
+               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)
    {
@@ -855,7 +1009,7 @@ static bool OnGetDataFromString(Class _class, void ** data, char * string)
             {
                if(thisMember)
                {
-                  if(!memberType._vTbl[__ecereVMethodID_class_OnGetDataFromString](memberType, 
+                  if(!((bool (*)(void *, void *, const char *))(void *)memberType._vTbl[__ecereVMethodID_class_OnGetDataFromString])(memberType, 
                      (byte *)data + (((thisMember._class.type == normalClass) ? thisMember._class.offset : 0) + memberOffset), memberString))
                      result = false;
                }
@@ -871,7 +1025,7 @@ static bool OnGetDataFromString(Class _class, void ** data, char * string)
                   if(!OnGetDataFromString(memberType, &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)
                {
@@ -885,7 +1039,12 @@ static bool OnGetDataFromString(Class _class, void ** data, char * string)
                      *(int *)((byte *)data + (((thisMember._class.type == normalClass) ? thisMember._class.offset : 0) + thisMember.offset)) = 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
+                     ((void (*)(void *, int))(void *)((Property)thisMember).Set)(data, value.i);
+               }
             }
          }
          else
@@ -905,9 +1064,9 @@ static void OnCopy(Class _class, void ** data, void * newData)
    {
       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);
    }
-   else if(_class.type != structClass && _class.type != systemClass)
+   else if(_class.type != structClass && (_class.type != systemClass || _class.byValueSystemClass))
    {
       *data = newData;
    }
@@ -935,13 +1094,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
@@ -960,7 +1119,7 @@ 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)
    {
@@ -970,11 +1129,13 @@ static void OnSerialize(Class _class, void * data, IOChannel channel)
          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;
@@ -1003,7 +1164,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);
                            }
                         }*/
                      }
@@ -1011,10 +1172,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, data ? (*(void **)((byte *)data + member._class.offset + member.offset)) : null, 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, data ? (((byte *)data + (((member._class.type == normalClass) ? member._class.offset : 0) + member.offset))) : null, 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
@@ -1049,12 +1210,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, channel);  // channel was missing here?
+            ((void (*)(void *, void *, void *))(void *)memberType._vTbl[__ecereVMethodID_class_OnUnserialize])(memberType, &value, channel);
             *(int *)((byte *)data + member.offset) = value.i;
          }
       }
@@ -1073,7 +1234,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)
    {
@@ -1093,11 +1254,13 @@ static void OnUnserialize(Class _class, void ** data, IOChannel channel)
          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;
@@ -1118,13 +1281,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
@@ -1173,6 +1336,36 @@ static bool Integer_OnGetDataFromString(Class _class, int * data, char * string)
    return false;
 }
 
+static 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, 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;
@@ -1190,10 +1383,46 @@ static char * UInteger_OnGetString(Class _class, unsigned int * data, char * str
    return 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 char * UInt16_OnGetString(Class _class, uint16 * data, char * string, void * fieldData, bool * needClass)
+{
+   sprintf(string, "%u", (uint)*data);
+   return string;
+}
+
+
+static 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, char * string)
 {
    char * end;
-   uint result = strtoul(string, &end, 0);
+   uint result = (uint)strtoul(string, &end, 0);
+   if(end > string)
+   {
+      *data = result;
+      return true;
+   }
+   return false;
+}
+
+static bool UInt16_OnGetDataFromString(Class _class, uint16 * data, char * string)
+{
+   char * end;
+   uint16 result = (uint16)strtoul(string, &end, 0);
    if(end > string)
    {
       *data = result;
@@ -1271,6 +1500,38 @@ static int UInt64_OnCompare(Class _class, uint64 * data1, uint64 * data2)
    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 char * Int64_OnGetString(Class _class, int64 * data, char * string, void * fieldData, bool * needClass)
 {
    sprintf(string, FORMAT64D, *data);
@@ -1283,6 +1544,56 @@ static char * UInt64_OnGetString(Class _class, uint64 * data, char * string, voi
    return string;
 }
 
+static char * UInt64Hex_OnGetString(Class _class, uint64 * data, char * string, void * fieldData, bool * needClass)
+{
+   sprintf(string, FORMAT64HEX, *data);
+   return string;
+}
+
+static char * UIntPtr64_OnGetString(Class _class, uint64 data, char * string, void * fieldData, bool * needClass)
+{
+   return UInt64Hex_OnGetString(_class, &data, string, fieldData, needClass);
+}
+
+static char * UIntPtr32_OnGetString(Class _class, uint data, char * string, void * fieldData, bool * needClass)
+{
+   return UIntegerHex_OnGetString(_class, &data, string, fieldData, needClass);
+}
+
+static char * IntPtr64_OnGetString(Class _class, uint64 data, char * string, void * fieldData, bool * needClass)
+{
+   return Int64_OnGetString(_class, &data, string, fieldData, needClass);
+}
+
+static char * IntPtr32_OnGetString(Class _class, uint data, char * string, void * fieldData, bool * needClass)
+{
+   return Integer_OnGetString(_class, &data, string, fieldData, needClass);
+}
+
+static bool Int64_OnGetDataFromString(Class _class, uint64 * data, char * string)
+{
+   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, char * string)
+{
+   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);
@@ -1294,7 +1605,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];
@@ -1302,6 +1612,13 @@ 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];
@@ -1311,6 +1628,24 @@ static char * UInt64_OnGetString(Class _class, uint64 * data, char * string, voi
       *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];
@@ -1318,6 +1653,13 @@ 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];
@@ -1366,7 +1708,7 @@ static void RegisterClass_Integer(Module module)
    integerClass.dataTypeString = CopyString("int64");
    eClass_AddMethod(integerClass, "OnGetString", null, Int64_OnGetString, publicAccess);
    eClass_AddMethod(integerClass, "OnCompare", null, Int64_OnCompare, publicAccess);
-   // eClass_AddMethod(integerClass, "OnGetDataFromString", null, Integer64_OnGetDataFromString, 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);
 
@@ -1404,6 +1746,9 @@ static void RegisterClass_Integer(Module module)
 
    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;
@@ -1414,6 +1759,9 @@ static void RegisterClass_Integer(Module module)
 
    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);
@@ -1438,9 +1786,10 @@ static void RegisterClass_Integer(Module module)
    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, Int64_OnCompare, 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;
@@ -1466,26 +1815,74 @@ static void RegisterClass_Integer(Module module)
    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 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 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 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, UInt64_OnGetString, publicAccess);
-      eClass_AddMethod(integerClass, "OnSerialize", null, Int64_OnSerialize, publicAccess);
+      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, UInt64_OnCompare, publicAccess);
+      eClass_AddMethod(integerClass, "OnCompare", null, UIntPtr64_OnCompare, publicAccess);
    }
    else
    {
-      eClass_AddMethod(integerClass, "OnCompare", null, UInteger_OnCompare, publicAccess);
-      eClass_AddMethod(integerClass, "OnGetString", null, UInteger_OnGetString, publicAccess);
+      eClass_AddMethod(integerClass, "OnGetString", null, UIntPtr32_OnGetString, publicAccess);
       eClass_AddMethod(integerClass, "OnGetDataFromString", null, UInteger_OnGetDataFromString, publicAccess);
-      eClass_AddMethod(integerClass, "OnSerialize", null, Int_OnSerialize, 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);
@@ -1494,20 +1891,22 @@ static void RegisterClass_Integer(Module module)
    integerClass.dataTypeString = CopyString("intptr_t");
    integerClass.structSize = 0;
    integerClass.typeSize = sizeof(intptr);
+   integerClass.byValueSystemClass = true;
    if(sizeof(intptr) == 8)
    {
-      eClass_AddMethod(integerClass, "OnGetString", null, Int64_OnGetString, publicAccess);
-      eClass_AddMethod(integerClass, "OnSerialize", null, Int64_OnSerialize, publicAccess);
+      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, Int64_OnCompare, publicAccess);
+      eClass_AddMethod(integerClass, "OnCompare", null, IntPtr64_OnCompare, publicAccess);
    }
    else
    {
-      eClass_AddMethod(integerClass, "OnCompare", null, Integer_OnCompare, publicAccess);
-      eClass_AddMethod(integerClass, "OnGetString", null, Integer_OnGetString, publicAccess);
+      eClass_AddMethod(integerClass, "OnGetString", null, IntPtr32_OnGetString, publicAccess);
       eClass_AddMethod(integerClass, "OnGetDataFromString", null, Integer_OnGetDataFromString, publicAccess);
-      eClass_AddMethod(integerClass, "OnSerialize", null, Int_OnSerialize, 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);
    }
 }
 
@@ -1860,8 +2259,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);
@@ -1870,11 +2269,6 @@ void InitializeDataTypes(Module module)
    RegisterClass_String(module);
 }
 
-#define uint _uint
-#include <stdarg.h>
-#include <stdio.h>
-#undef uint
-
 public int PrintStdArgsToBuffer(char * buffer, int maxLen, typed_object object, va_list args)
 {
    int len = 0;
@@ -1991,5 +2385,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());
 }