Feature database lifeai

Fuse.JSON/JSON.unoproj

@@ -0,0 +1,13 @@
+{
+  "Packages": [
+    "Fuse",
+    "FuseJS",
+  ],
+  "Includes": [
+    "Value.uno",
+    "ScriptingValue.uno",
+    "ObjCObject.uno",
+    "JavaObject.uno",
+    "Test.uno",
+  ]
+}

Fuse.JSON/JavaObject.uno

@@ -0,0 +1,87 @@
+using Uno;
+using Uno.UX;
+using Uno.Collections;
+using Uno.Threading;
+using Uno.IO;
+using Uno.Compiler.ExportTargetInterop;
+using Fuse;
+using Fuse.Platform;
+using Fuse.Scripting;
+using Fuse.Reactive;
+
+namespace JSON
+{		
+	public extern(Android) static class JavaObject
+	{
+		static Matcher<Java.Object> _toJavaObject = new ToJavaObject();
+
+		public static Java.Object FromJSON(Value value)
+		{
+			return value.Match(_toJavaObject);
+		}
+	}
+
+	[ForeignInclude(Language.Java,"java.lang.Object","java.util.List","java.util.ArrayList","java.util.Map","java.util.HashMap","android.util.Log")]	
+	extern(Android) class ToJavaObject : Matcher<Java.Object>
+	{
+		[Foreign(Language.Java)]
+		public Java.Object Case() @{ return null; @}
+
+		[Foreign(Language.Java)]
+		public Java.Object Case(string str) @{ return str; @}
+
+		[Foreign(Language.Java)]
+		public Java.Object Case(double num) @{ return (double) num; @}
+
+		[Foreign(Language.Java)]
+		public Java.Object Case(bool b) @{ return (boolean) b; @}
+
+		public Java.Object Case(IEnumerable<KeyValuePair<string, Java.Object>> obj)
+		{
+			var dict = NewHashMap();
+
+			foreach (var keyValue in obj)
+			{
+				SetMapValue(dict, keyValue.Key, keyValue.Value);
+			}
+
+			return dict;
+		}
+
+		[Foreign(Language.Java)]
+		extern(Android) Java.Object NewHashMap()
+		@{
+			return new HashMap<String, Object>();
+		@}
+
+		[Foreign(Language.Java)]
+		extern(Android) void SetMapValue(Java.Object dictHandle, string key, Java.Object value)
+		@{
+			((Map<String, Object>)dictHandle).put(key, value);
+		@}
+
+		extern(Android) public Java.Object Case(IEnumerable<Java.Object> array)
+		{
+			var result = NewArrayList();
+
+			foreach (var value in array) 
+			{
+				AddArrayValue(result, value);
+			}
+
+			return result;
+		}
+
+		[Foreign(Language.Java)]
+		extern(Android) Java.Object NewArrayList()
+		@{
+			return new ArrayList<Object>();
+		@}
+
+		[Foreign(Language.Java)]
+		extern(Android) void AddArrayValue(Java.Object arrayHandle, Java.Object value)
+		@{
+			((List<Object>) arrayHandle).add(value);
+		@}
+	}
+}

Fuse.JSON/LICENSE

@@ -0,0 +1,21 @@
+MIT License
+
+Copyright (c) 2017 Olle Fredriksson
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.

Fuse.JSON/ObjCObject.uno

@@ -0,0 +1,82 @@
+using Uno.Collections;
+using Uno.Compiler.ExportTargetInterop;
+
+namespace JSON
+{
+	public extern(iOS) static class ObjCObject
+	{
+		static Matcher<ObjC.Object> _toObjCObject = new ToObjCObject();
+
+		public static ObjC.Object FromJSON(Value value)
+		{
+			return value.Match(_toObjCObject);
+		}
+	}
+
+	extern(iOS) class ToObjCObject : Matcher<ObjC.Object>
+	{
+		[Foreign(Language.ObjC)]
+		public ObjC.Object Case() @{ return [NSNull null]; @}
+
+		[Foreign(Language.ObjC)]
+		public ObjC.Object Case(string str) @{ return str; @}
+
+		[Foreign(Language.ObjC)]
+		public ObjC.Object Case(double num) @{ return [NSNumber numberWithDouble:num]; @}
+
+		[Foreign(Language.ObjC)]
+		public ObjC.Object Case(bool b) @{ return [NSNumber numberWithBool:(b ? YES : NO)]; @}
+
+		public ObjC.Object Case(IEnumerable<KeyValuePair<string, ObjC.Object>> obj)
+		{
+			var dict = NewNSMutableDictionary();
+			foreach (var keyValue in obj)
+				SetDictValue(dict, keyValue.Key, keyValue.Value);
+			return CopyToImmutableDict(dict);
+		}
+
+		[Foreign(Language.ObjC)]
+		ObjC.Object NewNSMutableDictionary()
+		@{
+			return [NSMutableDictionary dictionary];
+		@}
+
+		[Foreign(Language.ObjC)]
+		void SetDictValue(ObjC.Object dictHandle, string key, ObjC.Object value)
+		@{
+			((NSMutableDictionary*)dictHandle)[key] = value;
+		@}
+
+		[Foreign(Language.ObjC)]
+		ObjC.Object CopyToImmutableDict(ObjC.Object dictHandle)
+		@{
+			return [((NSMutableDictionary*)dictHandle) copy];
+		@}
+
+		public ObjC.Object Case(IEnumerable<ObjC.Object> arr)
+		{
+			var result = NewNSMutableArray();
+			foreach (var value in arr)
+				AddArrayValue(result, value);
+			return CopyToImmutableArray(result);
+		}
+
+		[Foreign(Language.ObjC)]
+		ObjC.Object NewNSMutableArray()
+		@{
+			return [NSMutableArray array];
+		@}
+
+		[Foreign(Language.ObjC)]
+		void AddArrayValue(ObjC.Object arrayHandle, ObjC.Object value)
+		@{
+			[((NSMutableArray*)arrayHandle) addObject:value];
+		@}
+
+		[Foreign(Language.ObjC)]
+		ObjC.Object CopyToImmutableArray(ObjC.Object arrayHandle)
+		@{
+			return [((NSMutableArray*)arrayHandle) copy];
+		@}
+	}
+}

Fuse.JSON/ScriptingValue.uno

@@ -0,0 +1,82 @@
+using Fuse.Scripting;
+using Uno;
+using Uno.Collections;
+
+namespace JSON
+{
+	public static class ScriptingValue
+	{
+		public static object FromJSON(Context context, Value value)
+		{
+			return value.Match(new ToScriptingValue(context));
+		}
+
+		public static Value ToJSON(object value)
+		{
+			if (value == null) return Null.TheNull;
+			if (value is string) return new String((string)value);
+			if (value is double) return new Number((double)value);
+			if (value is int) return new Number((int)value);
+			if (value is bool) return new Bool((bool)value);
+			if (value is Fuse.Scripting.Array)
+			{
+				var sarr = (Fuse.Scripting.Array)value;
+				var len = sarr.Length;
+				var arr = new Value[len];
+				for (int i = 0; i < len; ++i)
+				{
+					arr[i] = ToJSON(sarr[i]);
+				}
+				return new Array(arr);
+			}
+			if (value is Fuse.Scripting.Object)
+			{
+				var sobj = (Fuse.Scripting.Object)value;
+				var dict = new Dictionary<string, Value>();
+				foreach (var key in sobj.Keys)
+				{
+					dict[key] = ToJSON(sobj[key]);
+				}
+				return new Object(dict);
+			}
+			throw new ArgumentException("Not JSON-convertible", nameof(value));
+		}
+	}
+
+	class ToScriptingValue : Matcher<object>
+	{
+		readonly Context _context;
+
+		public ToScriptingValue(Context context)
+		{
+			if (context == null)
+				throw new ArgumentNullException(nameof(context));
+			_context = context;
+		}
+
+		public object Case() { return null; }
+		public object Case(string str) { return str; }
+		public object Case(double num) { return num; }
+		public object Case(bool b) { return b; }
+		public object Case(IEnumerable<KeyValuePair<string, object>> obj)
+		{
+			var result = _context.NewObject();
+			foreach (var keyValue in obj)
+			{
+				result[keyValue.Key] = keyValue.Value;
+			}
+			return result;
+		}
+		public object Case(IEnumerable<object> arr)
+		{
+			var result = _context.NewArray();
+			int i = 0;
+			foreach (var val in arr)
+			{
+				result[i] = val;
+				++i;
+			}
+			return result;
+		}
+	}
+}

Fuse.JSON/Test.uno

@@ -0,0 +1,26 @@
+using Fuse.Scripting;
+using Uno.Collections;
+using Uno.Compiler.ExportTargetInterop;
+
+public class Test : Uno.Application
+{
+	public Test()
+	{
+		if defined(iOS)
+		{
+			var d = new Dictionary<string, JSON.Value>();
+			d["hej"] = new JSON.String("hopp");
+			d["happ"] = new JSON.String("hupp");
+			d["arr"] = new JSON.Array(new JSON.Value[] { new JSON.String("arrayValue") });
+			var jsonObject = new JSON.Object(d);
+			var test = JSON.ObjCObject.FromJSON(jsonObject);
+			NSLog(test);
+		}
+	}
+
+	[Foreign(Language.ObjC)]
+	extern(iOS) static void NSLog(ObjC.Object o)
+	@{
+		::NSLog(@"%@", o);
+	@}
+}