ecere/GlobalSettings: add ECON driver.

diff --git a/ecere/src/sys/JSONGlobalSettings.ec b/ecere/src/sys/JSONGlobalSettings.ec
index 89984ae..466a691 100644 (file)
--- a/ecere/src/sys/JSONGlobalSettings.ec
+++ b/ecere/src/sys/JSONGlobalSettings.ec
@@ -47,3 +47,51 @@ public:
       return result;
    }
 }
+
+public class ECONGlobalSettings : GlobalSettingsDriver
+{
+   class_property(name) = "ECON";
+
+public:
+   SettingsIOResult ::Load(File f, GlobalSettings globalSettings)
+   {
+      SettingsIOResult result = error;
+      //if(globalSettings.data)
+      {
+         ECONParser parser { f = f };
+         JSONResult jsonResult;
+         subclass(GlobalSettingsData) dataClass = globalSettings.dataClass;
+         if(!dataClass && globalSettings.data)
+            dataClass = (subclass(GlobalSettingsData))globalSettings.data._class;
+         //incref dataBackup;
+         //incref dataBackup;
+         f.Seek(0, start);
+         jsonResult = parser.GetObject(dataClass, &globalSettings.data);
+         if(globalSettings.data)
+         {
+            if(globalSettings.dataOwner)
+            {
+               delete *globalSettings.dataOwner;
+               *globalSettings.dataOwner = globalSettings.data;
+            }
+            result = success;
+         }
+         else if(jsonResult == syntaxError || jsonResult == noItem)
+         {
+            delete globalSettings.data;
+            globalSettings.data = *globalSettings.dataOwner;
+            result = fileNotCompatibleWithDriver;
+         }
+         delete parser;
+      }
+      return result;
+   }
+
+   SettingsIOResult ::Save(File f, GlobalSettings globalSettings)
+   {
+      SettingsIOResult result = error;
+      if(globalSettings && WriteECONObject(f, globalSettings.data._class, globalSettings.data, 0))
+         result = success;
+      return result;
+   }
+}