Data commit

Task/JSON/FutureBasic/json.basic

@@ -0,0 +1,21 @@
+include "NSLog.incl"
+
+local fn DoIt
+  ErrorRef err = NULL
+
+  CFStringRef jsonString = @"{ \"foo\": 1, \"bar\": [10, \"apples\"] }"
+  CFDataRef      strData = fn StringData( jsonString, NSUTF8StringEncoding )
+  CFTypeRef      jsonObj = fn JSONSerializationJSONObjectWithData( strData, NULL, @err )
+  if err then NSLog( @"%@", fn ErrorLocalizedDescription( err ) )
+  NSLog( @"%@\n", jsonObj )
+
+  CfDictionaryRef    dict = @{ @"blue": @[@1, @2], @"ocean": @"water"}
+  CFDataRef      jsonData = fn JSONSerializationDataWithJSONObject( dict, 0, @err )
+  if err then NSLog( @"%@", fn ErrorLocalizedDescription( err ) )
+  CFStringRef jsonString2 = fn StringWithData( jsonData, NSUTF8StringEncoding )
+  NSLog( @"%@\n", jsonString2 )
+end fn
+
+fn DoIt
+
+HandleEvents