rb-fsevent 0.4.3.1 → 0.9.0.pre1

data/README.rdoc

@@ -4,8 +4,9 @@ Very simple & usable Mac OSX FSEvents API
 
 - RubyCocoa not required!
 - Signals are working (really)
-- Tested on MRI 1.8.7 & 1.9.2
-- Tested on JRuby 1.6.3
+- Tested on MRI 1.8.7 & 1.9.2, JRuby 1.6.3
+- Tested on 10.6 & 10.7 (though 10.5 should work just as well)
+- Tested with XCode 3.2.6, 4.0.2, 4.1, 4.2b5
 
 == Install
 

data/ext/fsevent_watch/LICENSE

@@ -0,0 +1,21 @@
+Copyright (c) 2011 Travis Tilley
+
+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.
+

data/ext/fsevent_watch/fsevent_watch.xcodeproj/project.pbxproj

@@ -0,0 +1,230 @@
+// !$*UTF8*$!
+{
+	archiveVersion = 1;
+	classes = {
+	};
+	objectVersion = 46;
+	objects = {
+
+/* Begin PBXBuildFile section */
+		6A20BF7F13FC9BC000C6C442 /* cli.c in Sources */ = {isa = PBXBuildFile; fileRef = 6A20BF7C13FC9BC000C6C442 /* cli.c */; };
+		6A57F70413F5E614000BE6A9 /* CoreServices.framework in Frameworks */ = {isa = PBXBuildFile; fileRef = 6A57F70313F5E614000BE6A9 /* CoreServices.framework */; };
+		6A57F70713F5E614000BE6A9 /* main.c in Sources */ = {isa = PBXBuildFile; fileRef = 6A57F70613F5E614000BE6A9 /* main.c */; };
+		6A81FCE8143429DF00F83EDD /* CoreFoundation.framework in Frameworks */ = {isa = PBXBuildFile; fileRef = 6A81FCE7143429DE00F83EDD /* CoreFoundation.framework */; };
+		6A81FCEC14342A6300F83EDD /* TSICTString.c in Sources */ = {isa = PBXBuildFile; fileRef = 6A81FCEA14342A6300F83EDD /* TSICTString.c */; };
+/* End PBXBuildFile section */
+
+/* Begin PBXFileReference section */
+		6A20BF7C13FC9BC000C6C442 /* cli.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; path = cli.c; sourceTree = "<group>"; };
+		6A20BF7D13FC9BC000C6C442 /* cli.h */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.h; path = cli.h; sourceTree = "<group>"; };
+		6A20BF7E13FC9BC000C6C442 /* common.h */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.h; path = common.h; sourceTree = "<group>"; };
+		6A57F6FF13F5E614000BE6A9 /* fsevent_watch */ = {isa = PBXFileReference; explicitFileType = "compiled.mach-o.executable"; includeInIndex = 0; path = fsevent_watch; sourceTree = BUILT_PRODUCTS_DIR; };
+		6A57F70313F5E614000BE6A9 /* CoreServices.framework */ = {isa = PBXFileReference; lastKnownFileType = wrapper.framework; name = CoreServices.framework; path = System/Library/Frameworks/CoreServices.framework; sourceTree = SDKROOT; };
+		6A57F70613F5E614000BE6A9 /* main.c */ = {isa = PBXFileReference; lastKnownFileType = sourcecode.c.c; path = main.c; sourceTree = "<group>"; };
+		6A81FCE7143429DE00F83EDD /* CoreFoundation.framework */ = {isa = PBXFileReference; lastKnownFileType = wrapper.framework; name = CoreFoundation.framework; path = System/Library/Frameworks/CoreFoundation.framework; sourceTree = SDKROOT; };
+		6A81FCEA14342A6300F83EDD /* TSICTString.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; path = TSICTString.c; sourceTree = "<group>"; };
+		6A81FCEB14342A6300F83EDD /* TSICTString.h */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.h; path = TSICTString.h; sourceTree = "<group>"; };
+		6AD3022F13F8D758007F24E8 /* compat.h */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.h; path = compat.h; sourceTree = "<group>"; };
+/* End PBXFileReference section */
+
+/* Begin PBXFrameworksBuildPhase section */
+		6A57F6FC13F5E614000BE6A9 /* Frameworks */ = {
+			isa = PBXFrameworksBuildPhase;
+			buildActionMask = 2147483647;
+			files = (
+				6A81FCE8143429DF00F83EDD /* CoreFoundation.framework in Frameworks */,
+				6A57F70413F5E614000BE6A9 /* CoreServices.framework in Frameworks */,
+			);
+			runOnlyForDeploymentPostprocessing = 0;
+		};
+/* End PBXFrameworksBuildPhase section */
+
+/* Begin PBXGroup section */
+		6A57F6F413F5E614000BE6A9 = {
+			isa = PBXGroup;
+			children = (
+				6A57F70513F5E614000BE6A9 /* fsevent_watch */,
+				6A57F70213F5E614000BE6A9 /* Frameworks */,
+				6A57F70013F5E614000BE6A9 /* Products */,
+			);
+			indentWidth = 2;
+			sourceTree = "<group>";
+			tabWidth = 2;
+		};
+		6A57F70013F5E614000BE6A9 /* Products */ = {
+			isa = PBXGroup;
+			children = (
+				6A57F6FF13F5E614000BE6A9 /* fsevent_watch */,
+			);
+			name = Products;
+			sourceTree = "<group>";
+		};
+		6A57F70213F5E614000BE6A9 /* Frameworks */ = {
+			isa = PBXGroup;
+			children = (
+				6A81FCE7143429DE00F83EDD /* CoreFoundation.framework */,
+				6A57F70313F5E614000BE6A9 /* CoreServices.framework */,
+			);
+			name = Frameworks;
+			sourceTree = "<group>";
+		};
+		6A57F70513F5E614000BE6A9 /* fsevent_watch */ = {
+			isa = PBXGroup;
+			children = (
+				6A81FCEA14342A6300F83EDD /* TSICTString.c */,
+				6A81FCEB14342A6300F83EDD /* TSICTString.h */,
+				6A20BF7C13FC9BC000C6C442 /* cli.c */,
+				6A20BF7D13FC9BC000C6C442 /* cli.h */,
+				6A20BF7E13FC9BC000C6C442 /* common.h */,
+				6A57F70613F5E614000BE6A9 /* main.c */,
+				6AD3022F13F8D758007F24E8 /* compat.h */,
+			);
+			path = fsevent_watch;
+			sourceTree = "<group>";
+		};
+/* End PBXGroup section */
+
+/* Begin PBXNativeTarget section */
+		6A57F6FE13F5E614000BE6A9 /* fsevent_watch */ = {
+			isa = PBXNativeTarget;
+			buildConfigurationList = 6A57F70C13F5E614000BE6A9 /* Build configuration list for PBXNativeTarget "fsevent_watch" */;
+			buildPhases = (
+				6A57F6FB13F5E614000BE6A9 /* Sources */,
+				6A57F6FC13F5E614000BE6A9 /* Frameworks */,
+			);
+			buildRules = (
+			);
+			dependencies = (
+			);
+			name = fsevent_watch;
+			productName = fsevent_watch;
+			productReference = 6A57F6FF13F5E614000BE6A9 /* fsevent_watch */;
+			productType = "com.apple.product-type.tool";
+		};
+/* End PBXNativeTarget section */
+
+/* Begin PBXProject section */
+		6A57F6F613F5E614000BE6A9 /* Project object */ = {
+			isa = PBXProject;
+			attributes = {
+				LastUpgradeCheck = 0420;
+				ORGANIZATIONNAME = TeaspoonOfInsanity;
+			};
+			buildConfigurationList = 6A57F6F913F5E614000BE6A9 /* Build configuration list for PBXProject "fsevent_watch" */;
+			compatibilityVersion = "Xcode 3.2";
+			developmentRegion = English;
+			hasScannedForEncodings = 0;
+			knownRegions = (
+				en,
+			);
+			mainGroup = 6A57F6F413F5E614000BE6A9;
+			productRefGroup = 6A57F70013F5E614000BE6A9 /* Products */;
+			projectDirPath = "";
+			projectRoot = "";
+			targets = (
+				6A57F6FE13F5E614000BE6A9 /* fsevent_watch */,
+			);
+		};
+/* End PBXProject section */
+
+/* Begin PBXSourcesBuildPhase section */
+		6A57F6FB13F5E614000BE6A9 /* Sources */ = {
+			isa = PBXSourcesBuildPhase;
+			buildActionMask = 2147483647;
+			files = (
+				6A57F70713F5E614000BE6A9 /* main.c in Sources */,
+				6A20BF7F13FC9BC000C6C442 /* cli.c in Sources */,
+				6A81FCEC14342A6300F83EDD /* TSICTString.c in Sources */,
+			);
+			runOnlyForDeploymentPostprocessing = 0;
+		};
+/* End PBXSourcesBuildPhase section */
+
+/* Begin XCBuildConfiguration section */
+		6A57F70A13F5E614000BE6A9 /* Debug */ = {
+			isa = XCBuildConfiguration;
+			buildSettings = {
+				ARCHS = "$(ARCHS_STANDARD_32_64_BIT)";
+				COPY_PHASE_STRIP = NO;
+				DEBUG_INFORMATION_FORMAT = dwarf;
+				GCC_C_LANGUAGE_STANDARD = gnu99;
+				GCC_DYNAMIC_NO_PIC = NO;
+				GCC_ENABLE_OBJC_EXCEPTIONS = YES;
+				GCC_ENABLE_OBJC_GC = supported;
+				GCC_ENABLE_SSE3_EXTENSIONS = YES;
+				GCC_OPTIMIZATION_LEVEL = 0;
+				GCC_PREPROCESSOR_DEFINITIONS = (
+					"DEBUG=1",
+					"$(inherited)",
+				);
+				GCC_VERSION = com.apple.compilers.llvm.clang.1_0;
+				MACOSX_DEPLOYMENT_TARGET = 10.5;
+				ONLY_ACTIVE_ARCH = NO;
+				SDKROOT = macosx;
+				STRIP_INSTALLED_PRODUCT = NO;
+				WARNING_CFLAGS = (
+					"-Wall",
+					"-Wextra",
+					"-fcatch-undefined-behavior",
+				);
+			};
+			name = Debug;
+		};
+		6A57F70B13F5E614000BE6A9 /* Release */ = {
+			isa = XCBuildConfiguration;
+			buildSettings = {
+				ARCHS = "$(ARCHS_STANDARD_32_64_BIT)";
+				COPY_PHASE_STRIP = YES;
+				DEBUG_INFORMATION_FORMAT = dwarf;
+				GCC_C_LANGUAGE_STANDARD = gnu99;
+				GCC_ENABLE_OBJC_EXCEPTIONS = YES;
+				GCC_ENABLE_OBJC_GC = supported;
+				GCC_ENABLE_SSE3_EXTENSIONS = YES;
+				GCC_VERSION = com.apple.compilers.llvm.clang.1_0;
+				MACOSX_DEPLOYMENT_TARGET = 10.5;
+				ONLY_ACTIVE_ARCH = NO;
+				SDKROOT = macosx;
+			};
+			name = Release;
+		};
+		6A57F70D13F5E614000BE6A9 /* Debug */ = {
+			isa = XCBuildConfiguration;
+			buildSettings = {
+				MACH_O_TYPE = mh_execute;
+				PRODUCT_NAME = "$(TARGET_NAME)";
+			};
+			name = Debug;
+		};
+		6A57F70E13F5E614000BE6A9 /* Release */ = {
+			isa = XCBuildConfiguration;
+			buildSettings = {
+				MACH_O_TYPE = mh_execute;
+				PRODUCT_NAME = "$(TARGET_NAME)";
+			};
+			name = Release;
+		};
+/* End XCBuildConfiguration section */
+
+/* Begin XCConfigurationList section */
+		6A57F6F913F5E614000BE6A9 /* Build configuration list for PBXProject "fsevent_watch" */ = {
+			isa = XCConfigurationList;
+			buildConfigurations = (
+				6A57F70A13F5E614000BE6A9 /* Debug */,
+				6A57F70B13F5E614000BE6A9 /* Release */,
+			);
+			defaultConfigurationIsVisible = 0;
+			defaultConfigurationName = Release;
+		};
+		6A57F70C13F5E614000BE6A9 /* Build configuration list for PBXNativeTarget "fsevent_watch" */ = {
+			isa = XCConfigurationList;
+			buildConfigurations = (
+				6A57F70D13F5E614000BE6A9 /* Debug */,
+				6A57F70E13F5E614000BE6A9 /* Release */,
+			);
+			defaultConfigurationIsVisible = 0;
+			defaultConfigurationName = Release;
+		};
+/* End XCConfigurationList section */
+	};
+	rootObject = 6A57F6F613F5E614000BE6A9 /* Project object */;
+}

data/ext/fsevent_watch/fsevent_watch/TSICTString.c

@@ -0,0 +1,394 @@
+//
+//  TSICTString.c
+//  TSITString
+//
+//  Created by Travis Tilley on 9/27/11.
+//
+
+#include "TSICTString.h"
+
+
+const char* const TNetstringTypes = ",#^!~}]Z";
+const char* const OTNetstringTypes = ",#^!~{[Z";
+const UInt8 TNetstringSeparator = ':';
+
+TSITStringFormat TSITStringDefaultFormat = kTSITStringFormatTNetstring;
+
+static const CFRange BeginningRange = {0,0};
+
+static CFTypeID kCFDataTypeID       = -1;
+static CFTypeID kCFStringTypeID     = -1;
+static CFTypeID kCFNumberTypeID     = -1;
+static CFTypeID kCFBooleanTypeID    = -1;
+static CFTypeID kCFNullTypeID       = -1;
+static CFTypeID kCFArrayTypeID      = -1;
+static CFTypeID kCFDictionaryTypeID = -1;
+
+
+__attribute__((constructor)) void Init_TSICTString(void)
+{
+    kCFDataTypeID        = CFDataGetTypeID();
+    kCFStringTypeID      = CFStringGetTypeID();
+    kCFNumberTypeID      = CFNumberGetTypeID();
+    kCFBooleanTypeID     = CFBooleanGetTypeID();
+    kCFNullTypeID        = CFNullGetTypeID();
+    kCFArrayTypeID       = CFArrayGetTypeID();
+    kCFDictionaryTypeID  = CFDictionaryGetTypeID();
+}
+
+
+void TSICTStringSetDefaultFormat(TSITStringFormat format)
+{
+    if (format == kTSITStringFormatDefault) {
+        TSITStringDefaultFormat = kTSITStringFormatTNetstring;
+    } else {
+        TSITStringDefaultFormat = format;
+    }
+}
+
+TSITStringFormat TSICTStringGetDefaultFormat(void)
+{
+    return TSITStringDefaultFormat;
+}
+
+
+void TSICTStringDestroy(TStringIRep* rep)
+{
+    CFRelease(rep->data);
+    free(rep->length);
+    free(rep);
+}
+
+
+static inline TStringIRep* TSICTStringCreateWithDataOfTypeAndFormat(CFDataRef data, TSITStringTag type, TSITStringFormat format)
+{
+    if (format == kTSITStringFormatDefault) {
+        format = TSICTStringGetDefaultFormat();
+    }
+    
+    TStringIRep* rep = calloc(1, sizeof(TStringIRep));
+    rep->data = CFDataCreateCopy(kCFAllocatorDefault, data);
+    rep->type = type;
+    rep->format = format;
+    rep->length = calloc(10, sizeof(char));
+    
+    CFIndex len = CFDataGetLength(rep->data);
+    if (snprintf(rep->length, 10, "%lu", len)) {
+        return rep;
+    } else {
+        TSICTStringDestroy(rep);
+        return NULL;
+    }
+}
+
+static inline CFDataRef TSICTStringCreateDataFromIntermediateRepresentation(TStringIRep* rep)
+{
+    CFIndex len = CFDataGetLength(rep->data);
+    CFMutableDataRef buffer = CFDataCreateMutableCopy(kCFAllocatorDefault, (len + 12), rep->data);
+    UInt8* bufferBytes = CFDataGetMutableBytePtr(buffer);
+    
+    size_t prefixLength = strlen(rep->length) + 1;
+    CFDataReplaceBytes(buffer, BeginningRange, (const UInt8*)rep->length, prefixLength);
+    
+    if (rep->format == kTSITStringFormatTNetstring) {
+        const UInt8 ftag = TNetstringTypes[rep->type];
+        CFDataAppendBytes(buffer, &ftag, 1);
+        bufferBytes[(prefixLength - 1)] = TNetstringSeparator;
+    } else if (rep->format == kTSITStringFormatOTNetstring) {
+        const UInt8 ftag = OTNetstringTypes[rep->type];
+        bufferBytes[(prefixLength - 1)] = ftag;
+    }
+    
+    CFDataRef dataRep = CFDataCreateCopy(kCFAllocatorDefault, buffer);
+    CFRelease(buffer);
+    
+    return dataRep;
+}
+
+static inline CFStringRef TSICTStringCreateStringFromIntermediateRepresentation(TStringIRep* rep)
+{
+    CFDataRef data = TSICTStringCreateDataFromIntermediateRepresentation(rep);
+    CFStringRef string = CFStringCreateFromExternalRepresentation(kCFAllocatorDefault, data, kCFStringEncodingUTF8);
+    CFRelease(data);
+    return string;
+}
+
+static inline CFDataRef TSICTStringCreateDataWithDataOfTypeAndFormat(CFDataRef data, TSITStringTag type, TSITStringFormat format)
+{
+    CFRetain(data);
+    
+    if (format == kTSITStringFormatDefault) {
+        format = TSICTStringGetDefaultFormat();
+    }
+    
+    TStringIRep* rep = TSICTStringCreateWithDataOfTypeAndFormat(data, type, format);
+    if (rep == NULL) {
+        return NULL;
+    }
+    
+    CFDataRef result = TSICTStringCreateDataFromIntermediateRepresentation(rep);
+    
+    TSICTStringDestroy(rep);
+    CFRelease(data);
+    
+    return result;
+}
+
+static inline void TSICTStringAppendObjectToMutableDataWithFormat(CFTypeRef object, CFMutableDataRef buffer, TSITStringFormat format)
+{
+    if (object == NULL) {
+        object = kCFNull;
+    }
+    
+    CFRetain(object);
+    
+    TStringIRep* objRep = TSICTStringCreateWithObjectAndFormat(object, format);
+    CFDataRef objData = TSICTStringCreateDataFromIntermediateRepresentation(objRep);
+    CFDataAppendBytes(buffer, (CFDataGetBytePtr(objData)), CFDataGetLength(objData));
+    CFRelease(objData);
+    TSICTStringDestroy(objRep);
+    
+    CFRelease(object);
+}
+
+static void ArrayBufferAppendCallback(const void* item, void* context)
+{
+    TStringCollectionCallbackContext* cx = (TStringCollectionCallbackContext*)context;
+    CFMutableDataRef buffer = cx->buffer;
+    TSITStringFormat format = cx->format;
+    
+    TSICTStringAppendObjectToMutableDataWithFormat(item, buffer, format);
+}
+
+static void DictionaryBufferAppendCallback(const void* key, const void* value, void* context)
+{
+    TStringCollectionCallbackContext* cx = (TStringCollectionCallbackContext*)context;
+    CFMutableDataRef buffer = cx->buffer;
+    TSITStringFormat format = cx->format;
+    
+    TSICTStringAppendObjectToMutableDataWithFormat(key, buffer, format);
+    TSICTStringAppendObjectToMutableDataWithFormat(value, buffer, format);
+}
+
+
+CFDataRef TSICTStringCreateRenderedData(TStringIRep* rep)
+{
+    return TSICTStringCreateDataFromIntermediateRepresentation(rep);
+}
+
+CFDataRef TSICTStringCreateRenderedDataFromObjectWithFormat(CFTypeRef object, TSITStringFormat format)
+{
+    if (object == NULL) {
+        object = kCFNull;
+    }
+    
+    CFRetain(object);
+    
+    TStringIRep* rep = TSICTStringCreateWithObjectAndFormat(object, format);
+    CFDataRef data = TSICTStringCreateDataFromIntermediateRepresentation(rep);
+    
+    TSICTStringDestroy(rep);
+    CFRelease(object);
+    
+    return data;
+}
+
+CFStringRef TSICTStringCreateRenderedString(TStringIRep* rep)
+{
+    return TSICTStringCreateStringFromIntermediateRepresentation(rep);
+}
+
+CFStringRef TSICTStringCreateRenderedStringFromObjectWithFormat(CFTypeRef object, TSITStringFormat format)
+{
+    if (object == NULL) {
+        object = kCFNull;
+    }
+    
+    CFRetain(object);
+    
+    TStringIRep* rep = TSICTStringCreateWithObjectAndFormat(object, format);
+    CFStringRef string = TSICTStringCreateStringFromIntermediateRepresentation(rep);
+    
+    TSICTStringDestroy(rep);
+    CFRelease(object);
+    
+    return string;
+}
+
+
+TStringIRep* TSICTStringCreateWithObjectAndFormat(CFTypeRef object, TSITStringFormat format)
+{
+    if (object == NULL) {
+        return TSICTStringCreateNullWithFormat(format);
+    }
+    CFRetain(object);
+    
+    CFTypeID cfType = CFGetTypeID(object);
+    TStringIRep* rep = NULL;
+    
+    if (cfType == kCFDataTypeID) {
+        rep = TSICTStringCreateWithDataOfTypeAndFormat(object, kTSITStringTagString, format);
+    } else if (cfType == kCFStringTypeID) {
+        rep = TSICTStringCreateWithStringAndFormat(object, format);
+    } else if (cfType == kCFNumberTypeID) {
+        rep = TSICTStringCreateWithNumberAndFormat(object, format);
+    } else if (cfType == kCFBooleanTypeID) {
+        if (CFBooleanGetValue(object)) {
+            rep = TSICTStringCreateTrueWithFormat(format);
+        } else {
+            rep = TSICTStringCreateFalseWithFormat(format);
+        }
+    } else if (cfType == kCFNullTypeID) {
+        rep = TSICTStringCreateNullWithFormat(format);
+    } else if (cfType == kCFArrayTypeID) {
+        rep = TSICTStringCreateWithArrayAndFormat(object, format);
+    } else if (cfType == kCFDictionaryTypeID) {
+        rep = TSICTStringCreateWithDictionaryAndFormat(object, format);
+    } else {
+        rep = TSICTStringCreateInvalidWithFormat(format);
+    }
+    
+    CFRelease(object);
+    return rep;
+}
+
+TStringIRep* TSICTStringCreateWithStringAndFormat(CFStringRef string, TSITStringFormat format)
+{
+    CFRetain(string);
+    CFDataRef data = CFStringCreateExternalRepresentation(kCFAllocatorDefault, string, kCFStringEncodingUTF8, '?');
+    TStringIRep* rep = TSICTStringCreateWithDataOfTypeAndFormat(data, kTSITStringTagString, format);
+    CFRelease(data);
+    CFRelease(string);
+    return rep;
+}
+
+TStringIRep* TSICTStringCreateWithNumberAndFormat(CFNumberRef number, TSITStringFormat format)
+{
+    CFRetain(number);
+    TSITStringTag tag = kTSITStringTagNumber;
+    CFDataRef data;
+    CFNumberType numType = CFNumberGetType(number);
+    
+    switch(numType) {
+        case kCFNumberCharType:
+        {
+            int value;
+            if (CFNumberGetValue(number, kCFNumberIntType, &value)) {
+                if (value == 0 || value == 1) {
+                    tag = kTSITStringTagBool;
+                } else {
+                    tag = kTSITStringTagString;
+                }
+            }
+            break;
+        }
+        case kCFNumberFloat32Type:
+        case kCFNumberFloat64Type:
+        case kCFNumberFloatType:
+        case kCFNumberDoubleType:
+        {
+            tag = kTSITStringTagFloat;
+            break;
+        }
+    }
+    
+    if (tag == kTSITStringTagBool) {
+        bool value;
+        CFNumberGetValue(number, kCFNumberIntType, &value);
+        if (value) {
+            data = CFDataCreate(kCFAllocatorDefault, (UInt8*)"true", 4);
+        } else {
+            data = CFDataCreate(kCFAllocatorDefault, (UInt8*)"false", 5);
+        }
+    } else if (tag == kTSITStringTagFloat) {
+        char buf[32];
+        char *p, *e;
+        double value;
+        
+        CFNumberGetValue(number, numType, &value);
+        sprintf(buf, "%#.15g", value);
+        
+        e = buf + strlen(buf);
+        p = e;
+        while (p[-1]=='0' && ('0' <= p[-2] && p[-2] <= '9')) {
+            p--;
+        }
+        memmove(p, e, strlen(e)+1);
+        
+        data = CFDataCreate(kCFAllocatorDefault, (UInt8*)buf, strlen(buf));
+    } else {
+        char buf[32];
+        SInt64 value;
+        CFNumberGetValue(number, numType, &value);
+        sprintf(buf, "%lli", value);
+        data = CFDataCreate(kCFAllocatorDefault, (UInt8*)buf, strlen(buf));
+    }
+    
+    TStringIRep* rep = TSICTStringCreateWithDataOfTypeAndFormat(data, tag, format);
+    CFRelease(data);
+    CFRelease(number);
+    return rep;
+}
+
+TStringIRep* TSICTStringCreateTrueWithFormat(TSITStringFormat format)
+{
+    CFDataRef data = CFDataCreate(kCFAllocatorDefault, (UInt8*)"true", 4);
+    TStringIRep* rep = TSICTStringCreateWithDataOfTypeAndFormat(data, kTSITStringTagBool, format);
+    CFRelease(data);
+    return rep;
+}
+
+TStringIRep* TSICTStringCreateFalseWithFormat(TSITStringFormat format)
+{
+    CFDataRef data = CFDataCreate(kCFAllocatorDefault, (UInt8*)"false", 5);
+    TStringIRep* rep = TSICTStringCreateWithDataOfTypeAndFormat(data, kTSITStringTagBool, format);
+    CFRelease(data);
+    return rep;
+}
+
+TStringIRep* TSICTStringCreateNullWithFormat(TSITStringFormat format)
+{
+    CFDataRef data = CFDataCreate(kCFAllocatorDefault, NULL, 0);
+    TStringIRep* rep = TSICTStringCreateWithDataOfTypeAndFormat(data, kTSITStringTagNull, format);
+    CFRelease(data);
+    return rep;
+}
+
+TStringIRep* TSICTStringCreateInvalidWithFormat(TSITStringFormat format)
+{
+    CFDataRef data = CFDataCreate(kCFAllocatorDefault, NULL, 0);
+    TStringIRep* rep = TSICTStringCreateWithDataOfTypeAndFormat(data, kTSITStringTagInvalid, format);
+    CFRelease(data);
+    return rep;
+}
+
+TStringIRep* TSICTStringCreateWithArrayAndFormat(CFArrayRef array, TSITStringFormat format)
+{
+    CFRetain(array);
+    
+    CFMutableDataRef buffer = CFDataCreateMutable(kCFAllocatorDefault, 0);
+    
+    CFRange all = CFRangeMake(0, CFArrayGetCount(array));
+    TStringCollectionCallbackContext cx = {buffer, format};
+    CFArrayApplyFunction(array, all, ArrayBufferAppendCallback, &cx);
+    
+    TStringIRep* rep = TSICTStringCreateWithDataOfTypeAndFormat(buffer, kTSITStringTagList, format);
+    CFRelease(buffer);
+    CFRelease(array);
+    return rep;
+}
+
+TStringIRep* TSICTStringCreateWithDictionaryAndFormat(CFDictionaryRef dictionary, TSITStringFormat format)
+{
+    CFRetain(dictionary);
+    
+    CFMutableDataRef buffer = CFDataCreateMutable(kCFAllocatorDefault, 0);
+    
+    TStringCollectionCallbackContext cx = {buffer, format};
+    CFDictionaryApplyFunction(dictionary, DictionaryBufferAppendCallback, &cx);
+    
+    TStringIRep* rep = TSICTStringCreateWithDataOfTypeAndFormat(buffer, kTSITStringTagDict, format);
+    CFRelease(buffer);
+    CFRelease(dictionary);
+    return rep;
+}