iCuke 0.4.5

data/ext/iCuke/json/SBJsonParser.m

@@ -0,0 +1,475 @@
+/*
+ Copyright (C) 2009 Stig Brautaset. All rights reserved.
+ 
+ Redistribution and use in source and binary forms, with or without
+ modification, are permitted provided that the following conditions are met:
+ 
+ * Redistributions of source code must retain the above copyright notice, this
+   list of conditions and the following disclaimer.
+ 
+ * Redistributions in binary form must reproduce the above copyright notice,
+   this list of conditions and the following disclaimer in the documentation
+   and/or other materials provided with the distribution.
+ 
+ * Neither the name of the author nor the names of its contributors may be used
+   to endorse or promote products derived from this software without specific
+   prior written permission.
+ 
+ THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+ DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE
+ FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+ SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+ CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
+ OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+ OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#import "SBJsonParser.h"
+
+@interface SBJsonParser ()
+
+- (BOOL)scanValue:(NSObject **)o;
+
+- (BOOL)scanRestOfArray:(NSMutableArray **)o;
+- (BOOL)scanRestOfDictionary:(NSMutableDictionary **)o;
+- (BOOL)scanRestOfNull:(NSNull **)o;
+- (BOOL)scanRestOfFalse:(NSNumber **)o;
+- (BOOL)scanRestOfTrue:(NSNumber **)o;
+- (BOOL)scanRestOfString:(NSMutableString **)o;
+
+// Cannot manage without looking at the first digit
+- (BOOL)scanNumber:(NSNumber **)o;
+
+- (BOOL)scanHexQuad:(unichar *)x;
+- (BOOL)scanUnicodeChar:(unichar *)x;
+
+- (BOOL)scanIsAtEnd;
+
+@end
+
+#define skipWhitespace(c) while (isspace(*c)) c++
+#define skipDigits(c) while (isdigit(*c)) c++
+
+
+@implementation SBJsonParser
+
+static char ctrl[0x22];
+
++ (void)initialize
+{
+    ctrl[0] = '\"';
+    ctrl[1] = '\\';
+    for (int i = 1; i < 0x20; i++)
+        ctrl[i+1] = i;
+    ctrl[0x21] = 0;    
+}
+
+/**
+ @deprecated This exists in order to provide fragment support in older APIs in one more version.
+ It should be removed in the next major version.
+ */
+- (id)fragmentWithString:(id)repr {
+    [self clearErrorTrace];
+    
+    if (!repr) {
+        [self addErrorWithCode:EINPUT description:@"Input was 'nil'"];
+        return nil;
+    }
+    
+    depth = 0;
+    c = [repr UTF8String];
+    
+    id o;
+    if (![self scanValue:&o]) {
+        return nil;
+    }
+    
+    // We found some valid JSON. But did it also contain something else?
+    if (![self scanIsAtEnd]) {
+        [self addErrorWithCode:ETRAILGARBAGE description:@"Garbage after JSON"];
+        return nil;
+    }
+        
+    NSAssert1(o, @"Should have a valid object from %@", repr);
+    return o;    
+}
+
+- (id)objectWithString:(NSString *)repr {
+
+    id o = [self fragmentWithString:repr];
+    if (!o)
+        return nil;
+    
+    // Check that the object we've found is a valid JSON container.
+    if (![o isKindOfClass:[NSDictionary class]] && ![o isKindOfClass:[NSArray class]]) {
+        [self addErrorWithCode:EFRAGMENT description:@"Valid fragment, but not JSON"];
+        return nil;
+    }
+
+    return o;
+}
+
+/*
+ In contrast to the public methods, it is an error to omit the error parameter here.
+ */
+- (BOOL)scanValue:(NSObject **)o
+{
+    skipWhitespace(c);
+    
+    switch (*c++) {
+        case '{':
+            return [self scanRestOfDictionary:(NSMutableDictionary **)o];
+            break;
+        case '[':
+            return [self scanRestOfArray:(NSMutableArray **)o];
+            break;
+        case '"':
+            return [self scanRestOfString:(NSMutableString **)o];
+            break;
+        case 'f':
+            return [self scanRestOfFalse:(NSNumber **)o];
+            break;
+        case 't':
+            return [self scanRestOfTrue:(NSNumber **)o];
+            break;
+        case 'n':
+            return [self scanRestOfNull:(NSNull **)o];
+            break;
+        case '-':
+        case '0'...'9':
+            c--; // cannot verify number correctly without the first character
+            return [self scanNumber:(NSNumber **)o];
+            break;
+        case '+':
+            [self addErrorWithCode:EPARSENUM description: @"Leading + disallowed in number"];
+            return NO;
+            break;
+        case 0x0:
+            [self addErrorWithCode:EEOF description:@"Unexpected end of string"];
+            return NO;
+            break;
+        default:
+            [self addErrorWithCode:EPARSE description: @"Unrecognised leading character"];
+            return NO;
+            break;
+    }
+    
+    NSAssert(0, @"Should never get here");
+    return NO;
+}
+
+- (BOOL)scanRestOfTrue:(NSNumber **)o
+{
+    if (!strncmp(c, "rue", 3)) {
+        c += 3;
+        *o = [NSNumber numberWithBool:YES];
+        return YES;
+    }
+    [self addErrorWithCode:EPARSE description:@"Expected 'true'"];
+    return NO;
+}
+
+- (BOOL)scanRestOfFalse:(NSNumber **)o
+{
+    if (!strncmp(c, "alse", 4)) {
+        c += 4;
+        *o = [NSNumber numberWithBool:NO];
+        return YES;
+    }
+    [self addErrorWithCode:EPARSE description: @"Expected 'false'"];
+    return NO;
+}
+
+- (BOOL)scanRestOfNull:(NSNull **)o {
+    if (!strncmp(c, "ull", 3)) {
+        c += 3;
+        *o = [NSNull null];
+        return YES;
+    }
+    [self addErrorWithCode:EPARSE description: @"Expected 'null'"];
+    return NO;
+}
+
+- (BOOL)scanRestOfArray:(NSMutableArray **)o {
+    if (maxDepth && ++depth > maxDepth) {
+        [self addErrorWithCode:EDEPTH description: @"Nested too deep"];
+        return NO;
+    }
+    
+    *o = [NSMutableArray arrayWithCapacity:8];
+    
+    for (; *c ;) {
+        id v;
+        
+        skipWhitespace(c);
+        if (*c == ']' && c++) {
+            depth--;
+            return YES;
+        }
+        
+        if (![self scanValue:&v]) {
+            [self addErrorWithCode:EPARSE description:@"Expected value while parsing array"];
+            return NO;
+        }
+        
+        [*o addObject:v];
+        
+        skipWhitespace(c);
+        if (*c == ',' && c++) {
+            skipWhitespace(c);
+            if (*c == ']') {
+                [self addErrorWithCode:ETRAILCOMMA description: @"Trailing comma disallowed in array"];
+                return NO;
+            }
+        }        
+    }
+    
+    [self addErrorWithCode:EEOF description: @"End of input while parsing array"];
+    return NO;
+}
+
+- (BOOL)scanRestOfDictionary:(NSMutableDictionary **)o 
+{
+    if (maxDepth && ++depth > maxDepth) {
+        [self addErrorWithCode:EDEPTH description: @"Nested too deep"];
+        return NO;
+    }
+    
+    *o = [NSMutableDictionary dictionaryWithCapacity:7];
+    
+    for (; *c ;) {
+        id k, v;
+        
+        skipWhitespace(c);
+        if (*c == '}' && c++) {
+            depth--;
+            return YES;
+        }    
+        
+        if (!(*c == '\"' && c++ && [self scanRestOfString:&k])) {
+            [self addErrorWithCode:EPARSE description: @"Object key string expected"];
+            return NO;
+        }
+        
+        skipWhitespace(c);
+        if (*c != ':') {
+            [self addErrorWithCode:EPARSE description: @"Expected ':' separating key and value"];
+            return NO;
+        }
+        
+        c++;
+        if (![self scanValue:&v]) {
+            NSString *string = [NSString stringWithFormat:@"Object value expected for key: %@", k];
+            [self addErrorWithCode:EPARSE description: string];
+            return NO;
+        }
+        
+        [*o setObject:v forKey:k];
+        
+        skipWhitespace(c);
+        if (*c == ',' && c++) {
+            skipWhitespace(c);
+            if (*c == '}') {
+                [self addErrorWithCode:ETRAILCOMMA description: @"Trailing comma disallowed in object"];
+                return NO;
+            }
+        }        
+    }
+    
+    [self addErrorWithCode:EEOF description: @"End of input while parsing object"];
+    return NO;
+}
+
+- (BOOL)scanRestOfString:(NSMutableString **)o 
+{
+    *o = [NSMutableString stringWithCapacity:16];
+    do {
+        // First see if there's a portion we can grab in one go. 
+        // Doing this caused a massive speedup on the long string.
+        size_t len = strcspn(c, ctrl);
+        if (len) {
+            // check for 
+            id t = [[NSString alloc] initWithBytesNoCopy:(char*)c
+                                                  length:len
+                                                encoding:NSUTF8StringEncoding
+                                            freeWhenDone:NO];
+            if (t) {
+                [*o appendString:t];
+                [t release];
+                c += len;
+            }
+        }
+        
+        if (*c == '"') {
+            c++;
+            return YES;
+            
+        } else if (*c == '\\') {
+            unichar uc = *++c;
+            switch (uc) {
+                case '\\':
+                case '/':
+                case '"':
+                    break;
+                    
+                case 'b':   uc = '\b';  break;
+                case 'n':   uc = '\n';  break;
+                case 'r':   uc = '\r';  break;
+                case 't':   uc = '\t';  break;
+                case 'f':   uc = '\f';  break;                    
+                    
+                case 'u':
+                    c++;
+                    if (![self scanUnicodeChar:&uc]) {
+                        [self addErrorWithCode:EUNICODE description: @"Broken unicode character"];
+                        return NO;
+                    }
+                    c--; // hack.
+                    break;
+                default:
+                    [self addErrorWithCode:EESCAPE description: [NSString stringWithFormat:@"Illegal escape sequence '0x%x'", uc]];
+                    return NO;
+                    break;
+            }
+            CFStringAppendCharacters((CFMutableStringRef)*o, &uc, 1);
+            c++;
+            
+        } else if (*c < 0x20) {
+            [self addErrorWithCode:ECTRL description: [NSString stringWithFormat:@"Unescaped control character '0x%x'", *c]];
+            return NO;
+            
+        } else {
+            NSLog(@"should not be able to get here");
+        }
+    } while (*c);
+    
+    [self addErrorWithCode:EEOF description:@"Unexpected EOF while parsing string"];
+    return NO;
+}
+
+- (BOOL)scanUnicodeChar:(unichar *)x
+{
+    unichar hi, lo;
+    
+    if (![self scanHexQuad:&hi]) {
+        [self addErrorWithCode:EUNICODE description: @"Missing hex quad"];
+        return NO;        
+    }
+    
+    if (hi >= 0xd800) {     // high surrogate char?
+        if (hi < 0xdc00) {  // yes - expect a low char
+            
+            if (!(*c == '\\' && ++c && *c == 'u' && ++c && [self scanHexQuad:&lo])) {
+                [self addErrorWithCode:EUNICODE description: @"Missing low character in surrogate pair"];
+                return NO;
+            }
+            
+            if (lo < 0xdc00 || lo >= 0xdfff) {
+                [self addErrorWithCode:EUNICODE description:@"Invalid low surrogate char"];
+                return NO;
+            }
+            
+            hi = (hi - 0xd800) * 0x400 + (lo - 0xdc00) + 0x10000;
+            
+        } else if (hi < 0xe000) {
+            [self addErrorWithCode:EUNICODE description:@"Invalid high character in surrogate pair"];
+            return NO;
+        }
+    }
+    
+    *x = hi;
+    return YES;
+}
+
+- (BOOL)scanHexQuad:(unichar *)x
+{
+    *x = 0;
+    for (int i = 0; i < 4; i++) {
+        unichar uc = *c;
+        c++;
+        int d = (uc >= '0' && uc <= '9')
+        ? uc - '0' : (uc >= 'a' && uc <= 'f')
+        ? (uc - 'a' + 10) : (uc >= 'A' && uc <= 'F')
+        ? (uc - 'A' + 10) : -1;
+        if (d == -1) {
+            [self addErrorWithCode:EUNICODE description:@"Missing hex digit in quad"];
+            return NO;
+        }
+        *x *= 16;
+        *x += d;
+    }
+    return YES;
+}
+
+- (BOOL)scanNumber:(NSNumber **)o
+{
+    const char *ns = c;
+    
+    // The logic to test for validity of the number formatting is relicensed
+    // from JSON::XS with permission from its author Marc Lehmann.
+    // (Available at the CPAN: http://search.cpan.org/dist/JSON-XS/ .)
+    
+    if ('-' == *c)
+        c++;
+    
+    if ('0' == *c && c++) {        
+        if (isdigit(*c)) {
+            [self addErrorWithCode:EPARSENUM description: @"Leading 0 disallowed in number"];
+            return NO;
+        }
+        
+    } else if (!isdigit(*c) && c != ns) {
+        [self addErrorWithCode:EPARSENUM description: @"No digits after initial minus"];
+        return NO;
+        
+    } else {
+        skipDigits(c);
+    }
+    
+    // Fractional part
+    if ('.' == *c && c++) {
+        
+        if (!isdigit(*c)) {
+            [self addErrorWithCode:EPARSENUM description: @"No digits after decimal point"];
+            return NO;
+        }        
+        skipDigits(c);
+    }
+    
+    // Exponential part
+    if ('e' == *c || 'E' == *c) {
+        c++;
+        
+        if ('-' == *c || '+' == *c)
+            c++;
+        
+        if (!isdigit(*c)) {
+            [self addErrorWithCode:EPARSENUM description: @"No digits after exponent"];
+            return NO;
+        }
+        skipDigits(c);
+    }
+    
+    id str = [[NSString alloc] initWithBytesNoCopy:(char*)ns
+                                            length:c - ns
+                                          encoding:NSUTF8StringEncoding
+                                      freeWhenDone:NO];
+    [str autorelease];
+    if (str && (*o = [NSDecimalNumber decimalNumberWithString:str]))
+        return YES;
+    
+    [self addErrorWithCode:EPARSENUM description: @"Failed creating decimal instance"];
+    return NO;
+}
+
+- (BOOL)scanIsAtEnd
+{
+    skipWhitespace(c);
+    return !*c;
+}
+
+
+@end

data/ext/iCuke/json/SBJsonWriter.h

@@ -0,0 +1,129 @@
+/*
+ Copyright (C) 2009 Stig Brautaset. All rights reserved.
+ 
+ Redistribution and use in source and binary forms, with or without
+ modification, are permitted provided that the following conditions are met:
+ 
+ * Redistributions of source code must retain the above copyright notice, this
+   list of conditions and the following disclaimer.
+ 
+ * Redistributions in binary form must reproduce the above copyright notice,
+   this list of conditions and the following disclaimer in the documentation
+   and/or other materials provided with the distribution.
+ 
+ * Neither the name of the author nor the names of its contributors may be used
+   to endorse or promote products derived from this software without specific
+   prior written permission.
+ 
+ THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+ DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE
+ FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+ SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+ CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
+ OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+ OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#import <Foundation/Foundation.h>
+#import "SBJsonBase.h"
+
+/**
+ @brief Options for the writer class.
+ 
+ This exists so the SBJSON facade can implement the options in the writer without having to re-declare them.
+ */
+@protocol SBJsonWriter
+
+/**
+ @brief Whether we are generating human-readable (multiline) JSON.
+ 
+ Set whether or not to generate human-readable JSON. The default is NO, which produces
+ JSON without any whitespace. (Except inside strings.) If set to YES, generates human-readable
+ JSON with linebreaks after each array value and dictionary key/value pair, indented two
+ spaces per nesting level.
+ */
+@property BOOL humanReadable;
+
+/**
+ @brief Whether or not to sort the dictionary keys in the output.
+ 
+ If this is set to YES, the dictionary keys in the JSON output will be in sorted order.
+ (This is useful if you need to compare two structures, for example.) The default is NO.
+ */
+@property BOOL sortKeys;
+
+/**
+ @brief Return JSON representation (or fragment) for the given object.
+ 
+ Returns a string containing JSON representation of the passed in value, or nil on error.
+ If nil is returned and @p error is not NULL, @p *error can be interrogated to find the cause of the error.
+ 
+ @param value any instance that can be represented as a JSON fragment
+ 
+ */
+- (NSString*)stringWithObject:(id)value;
+
+@end
+
+
+/**
+ @brief The JSON writer class.
+ 
+ Objective-C types are mapped to JSON types in the following way:
+ 
+ @li NSNull -> Null
+ @li NSString -> String
+ @li NSArray -> Array
+ @li NSDictionary -> Object
+ @li NSNumber (-initWithBool:) -> Boolean
+ @li NSNumber -> Number
+ 
+ In JSON the keys of an object must be strings. NSDictionary keys need
+ not be, but attempting to convert an NSDictionary with non-string keys
+ into JSON will throw an exception.
+ 
+ NSNumber instances created with the +initWithBool: method are
+ converted into the JSON boolean "true" and "false" values, and vice
+ versa. Any other NSNumber instances are converted to a JSON number the
+ way you would expect.
+ 
+ */
+@interface SBJsonWriter : SBJsonBase <SBJsonWriter> {
+
+@private
+    BOOL sortKeys, humanReadable;
+}
+
+@end
+
+// don't use - exists for backwards compatibility. Will be removed in 2.3.
+@interface SBJsonWriter (Private)
+- (NSString*)stringWithFragment:(id)value;
+@end
+
+/**
+ @brief Allows generation of JSON for otherwise unsupported classes.
+ 
+ If you have a custom class that you want to create a JSON representation for you can implement
+ this method in your class. It should return a representation of your object defined
+ in terms of objects that can be translated into JSON. For example, a Person
+ object might implement it like this:
+ 
+ @code
+ - (id)jsonProxyObject {
+    return [NSDictionary dictionaryWithObjectsAndKeys:
+        name, @"name",
+        phone, @"phone",
+        email, @"email",
+        nil];
+ }
+ @endcode
+ 
+ */
+@interface NSObject (SBProxyForJson)
+- (id)proxyForJson;
+@end
+