22 lines
755 B
Plaintext
22 lines
755 B
Plaintext
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
|