icu 0.9.1 → 0.10.0

data/ext/icu_locale_country.c

@@ -1,99 +0,0 @@
-// Copyright (c) 2007 Joshua Llorach
-//  
-// This file is part of ICU Ruby extension.
-// 
-// ICU is free software: you can redistribute it and/or modify
-// it under the terms of the GNU Lesser General Public License as published by
-// the Free Software Foundation, either version 3 of the License, or
-// (at your option) any later version.
-// 
-// ICU is distributed in the hope that it will be useful,
-// but WITHOUT ANY WARRANTY; without even the implied warranty of
-// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// GNU Lesser General Public License for more details.
-//  
-// You should have received a copy of the GNU Lesser General Public License
-// along with ICU.  If not, see <http://www.gnu.org/licenses/>.
-
-#include "icu.h"
-
-VALUE cCountry;
-
-/******************* ICU::Locale::Country */
-
-/**
- *  call-seq:
- *     ICU::Locale.get => locale
- */
-VALUE rb_Country_class_get(VALUE self, VALUE code)
-{
-	VALUE countries, country;
-	
-	code = StringValue(code);
-	countries = rb_cv_get(self, "@@countries");
-	country = rb_hash_aref(countries, code);
-	if (country == Qnil) {
-		VALUE args[1];
-		
-		args[0] = code;
-		country = rb_class_new_instance(1, args, self);
-		rb_hash_aset(countries, code, country);
-		return country;
-	} else {
-		return country;
-	}
-}
-
-VALUE rb_Country_initialize(VALUE self, VALUE code)
-{
-	code = StringValue(code);
-	CheckCountryCode(RSTRING(code)->ptr);
-	rb_iv_set(self, "@code", code);
-	
-	return self;
-}
-
-VALUE rb_Country_name(int argc, VALUE *argv, VALUE self)
-{
-	char fakeLocale[4] = "_";
-	VALUE code = rb_iv_get(self, "@code");
-	
-	VALUE rb_locale;
-	char * locale = NULL;
-	
-	UChar * country = ALLOC_N(UChar, 32);
-	int32_t countryLen = 32;
-	UErrorCode status = U_ZERO_ERROR;
-	
-	strcat(fakeLocale, RSTRING(code)->ptr);
-	
-	rb_scan_args(argc, argv, "01", &rb_locale);
-	if (rb_locale != Qnil) {
-		locale = StringValuePtr(rb_locale);
-	}
-	
-	countryLen = uloc_getDisplayCountry(fakeLocale, locale, country, countryLen, &status);
-	if (status == U_BUFFER_OVERFLOW_ERROR) {
-		status = U_ZERO_ERROR;
-		REALLOC_N(country, UChar, countryLen);
-		uloc_getDisplayCountry(fakeLocale, locale, country, countryLen, &status);
-	}
-	RAISE_ON_ERROR(status);
-	
-	return u_strToRString(country, countryLen);
-}
-
-void Init_ICU_Locale_Country()
-{
-	extern VALUE cLocale;
-	
-	cCountry = rb_define_class_under(cLocale, "Country", rb_cObject);
-	rb_funcall(cCountry, rb_intern("private_class_method"), 1, ID2SYM(rb_intern("new")));
-	rb_cv_set(cCountry, "@@countries", rb_hash_new());
-	rb_define_singleton_method(cCountry, "get", rb_Country_class_get, 1);
-	rb_define_private_method(cCountry, "initialize", rb_Country_initialize, 1);
-	rb_define_attr(cCountry, "code", 1, 0);
-	rb_define_alias(cCountry, "to_str", "code");
-	rb_define_alias(cCountry, "to_s", "code");
-	rb_define_method(cCountry, "name", rb_Country_name, -1);
-}

data/ext/icu_locale_language.c

@@ -1,99 +0,0 @@
-// Copyright (c) 2007 Joshua Llorach
-//  
-// This file is part of ICU Ruby extension.
-// 
-// ICU is free software: you can redistribute it and/or modify
-// it under the terms of the GNU Lesser General Public License as published by
-// the Free Software Foundation, either version 3 of the License, or
-// (at your option) any later version.
-// 
-// ICU is distributed in the hope that it will be useful,
-// but WITHOUT ANY WARRANTY; without even the implied warranty of
-// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// GNU Lesser General Public License for more details.
-//  
-// You should have received a copy of the GNU Lesser General Public License
-// along with ICU.  If not, see <http://www.gnu.org/licenses/>.
-
-#include "icu.h"
-
-VALUE cLanguage;
-
-/******************* ICU::Locale::Language */
-
-/**
- *  call-seq:
- *     ICU::Locale.get => locale
- */
-VALUE rb_Language_class_get(VALUE self, VALUE code)
-{
-	VALUE languages, language;
-	
-	code = StringValue(code);
-	languages = rb_cv_get(self, "@@languages");
-	language = rb_hash_aref(languages, code);
-	if (language == Qnil) {
-		VALUE args[1];
-		
-		args[0] = code;
-		language = rb_class_new_instance(1, args, self);
-		rb_hash_aset(languages, code, language);
-		return language;
-	} else {
-		return language;
-	}
-}
-
-VALUE rb_Language_initialize(VALUE self, VALUE code)
-{
-	code = StringValue(code);
-	CheckLanguageCode(RSTRING(code)->ptr);
-	rb_iv_set(self, "@code", code);
-	
-	return self;
-}
-
-VALUE rb_Language_name(int argc, VALUE *argv, VALUE self)
-{
-	char *fakeLocale;
-	VALUE code = rb_iv_get(self, "@code");
-	
-	VALUE rb_locale;
-	char *locale = NULL;
-	
-	UChar *language = ALLOC_N(UChar, 32);
-	int32_t languageLen = 32;
-	UErrorCode status = U_ZERO_ERROR;
-	
-	fakeLocale = RSTRING(code)->ptr;
-
-	rb_scan_args(argc, argv, "01", &rb_locale);
-	if (rb_locale != Qnil) {
-		locale = StringValuePtr(rb_locale);
-	}
-	
-	languageLen = uloc_getDisplayLanguage(fakeLocale, locale, language, languageLen, &status);
-	if (status == U_BUFFER_OVERFLOW_ERROR) {
-		status = U_ZERO_ERROR;
-		REALLOC_N(language, UChar, languageLen);
-		uloc_getDisplayLanguage(fakeLocale, locale, language, languageLen, &status);
-	}
-	RAISE_ON_ERROR(status);
-	
-	return u_strToRString(language, languageLen);
-}
-
-void Init_ICU_Locale_Language()
-{
-	extern VALUE cLocale;
-	
-	cLanguage = rb_define_class_under(cLocale, "Language", rb_cObject);
-	rb_funcall(cLanguage, rb_intern("private_class_method"), 1, ID2SYM(rb_intern("new")));
-	rb_cv_set(cLanguage, "@@languages", rb_hash_new());
-	rb_define_singleton_method(cLanguage, "get", rb_Language_class_get, 1);
-	rb_define_private_method(cLanguage, "initialize", rb_Language_initialize, 1);
-	rb_define_attr(cLanguage, "code", 1, 0);
-	rb_define_alias(cLanguage, "to_str", "code");
-	rb_define_alias(cLanguage, "to_s", "code");
-	rb_define_method(cLanguage, "name", rb_Language_name, -1);
-}

data/ext/icu_numeric.c

@@ -1,161 +0,0 @@
-// Copyright (c) 2007 Joshua Llorach
-//  
-// This file is part of ICU Ruby extension.
-// 
-// ICU is free software: you can redistribute it and/or modify
-// it under the terms of the GNU Lesser General Public License as published by
-// the Free Software Foundation, either version 3 of the License, or
-// (at your option) any later version.
-// 
-// ICU is distributed in the hope that it will be useful,
-// but WITHOUT ANY WARRANTY; without even the implied warranty of
-// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// GNU Lesser General Public License for more details.
-//  
-// You should have received a copy of the GNU Lesser General Public License
-// along with ICU.  If not, see <http://www.gnu.org/licenses/>.
-
-#include "icu.h"
-
-#include "unicode/unum.h"
-
-/******************* Numeric */
-
-/**
- *  call-seq:
- *     23874.localize(:decimal, 'es_ES') => 23.874
- */
-VALUE rb_numeric_localize(int argc, VALUE *argv, VALUE self)
-{
-	VALUE style, options;
-	UNumberFormatStyle formatStyle;
-	char *locale = NULL;
-	
-	UNumberFormat *format;
-	UErrorCode status;
-	
-	UChar result[256];
-	/* arguments */
-	rb_scan_args(argc, argv, "02", &style, &options);
-	if (style == Qnil) {
-		formatStyle = UNUM_DECIMAL;
-	} else {
-		ID style_ID;
-		
-		Check_Type(style, T_SYMBOL);
-		style_ID = SYM2ID(style);
-		if (style_ID == rb_intern("decimal")) {
-			formatStyle = UNUM_DECIMAL;
-		} else if (style_ID == rb_intern("currency")) {
-			formatStyle = UNUM_CURRENCY;
-		} else if (style_ID == rb_intern("percent")) {
-			formatStyle = UNUM_PERCENT;
-		} else if (style_ID == rb_intern("scientific")) {
-			formatStyle = UNUM_SCIENTIFIC;
-		} else if (style_ID == rb_intern("spellout")) {
-			formatStyle = UNUM_SPELLOUT;
-		} else {
-			rb_raise(rb_eArgError, "unsupported format style %s", rb_id2name(style_ID));
-		}
-	}
-	if (options != Qnil) {
-		VALUE rb_locale;
-		
-		Check_Type(options, T_HASH);
-		rb_locale = rb_hash_aref(options, ID2SYM(rb_intern("locale")));
-		if (rb_locale != Qnil) {
-			locale = StringValuePtr(rb_locale);
-		}
-	}
-	/* formatter */
-	status = U_ZERO_ERROR;
-    format = unum_open(formatStyle, NULL, 0, locale, NULL, &status);
-    RAISE_ON_ERROR(status);
-    /* set format attributes */
-	if (options != Qnil) {
-		VALUE currency, precision, round_mode, round_increment;
-		
-		switch (formatStyle) {
-			case UNUM_CURRENCY:
-				currency = rb_hash_aref(options, ID2SYM(rb_intern("currency")));
-				if (currency != Qnil) {
-					UChar *uStr;
-					int32_t uStrLen;
-					
-					uStr = u_strFromRString(currency, &uStrLen);
-					status = U_ZERO_ERROR;
-					unum_setTextAttribute(format, UNUM_CURRENCY_CODE, uStr, uStrLen, &status);
-					RAISE_ON_ERROR(status);
-				}
-			case UNUM_DECIMAL:
-				/* precision */
-				precision = rb_hash_aref(options, ID2SYM(rb_intern("precision")));
-				if (precision != Qnil) {
-					Check_Type(precision, T_FIXNUM);
-					status = U_ZERO_ERROR;
-					unum_setAttribute(format, UNUM_FRACTION_DIGITS, NUM2INT(precision));
-					RAISE_ON_ERROR(status);
-				}
-				
-				round_mode = rb_hash_aref(options, ID2SYM(rb_intern("round_mode")));
-				if (round_mode != Qnil) {
-					ID round_mode_ID;
-					UNumberFormatRoundingMode rounding_mode;
-					
-					Check_Type(round_mode, T_SYMBOL);
-					round_mode_ID = SYM2ID(round_mode);
-					if (round_mode_ID == rb_intern("ceil")) {
-						rounding_mode = UNUM_ROUND_CEILING;
-					} else if (round_mode_ID == rb_intern("floor")) {
-						rounding_mode = UNUM_ROUND_FLOOR;
-					} else if (round_mode_ID == rb_intern("down")) {
-						rounding_mode = UNUM_ROUND_DOWN;
-					} else if (round_mode_ID == rb_intern("up")) {
-						rounding_mode = UNUM_ROUND_UP;
-					} else if (round_mode_ID == rb_intern("halfeven")) {
-						rounding_mode = UNUM_FOUND_HALFEVEN;
-					} else if (round_mode_ID == rb_intern("halfdown")) {
-						rounding_mode = UNUM_ROUND_HALFDOWN;
-					} else if (round_mode_ID == rb_intern("halfup")) {
-						rounding_mode = UNUM_ROUND_HALFUP;
-					} else {
-						rb_raise(rb_eArgError, "unsupported rounding mode '%s'", rb_id2name(round_mode_ID));
-					}
-					status = U_ZERO_ERROR;
-					unum_setAttribute(format, UNUM_ROUNDING_MODE, rounding_mode);
-					RAISE_ON_ERROR(status);
-				}
-				round_increment = rb_hash_aref(options, ID2SYM(rb_intern("round_increment")));
-				if (round_increment != Qnil) {
-					Check_Type(round_increment, T_FLOAT);
-					status = U_ZERO_ERROR;
-					unum_setDoubleAttribute(format, UNUM_ROUNDING_INCREMENT, NUM2DBL(round_increment));
-					RAISE_ON_ERROR(status);
-				}
-		}
-	}
-	/* format */
-	status = U_ZERO_ERROR;
-    switch (TYPE(self)) {
-    	case T_FIXNUM:
-    		unum_format(format, NUM2INT(self), result, 256, NULL, &status);
-    		break;
-    	case T_FLOAT:
-    		unum_formatDouble(format, NUM2DBL(self), result, 256, NULL, &status);
-    		break;
-    	case T_BIGNUM:
-			unum_formatInt64(format, rb_big2ll(self), result, 256, NULL, &status);
-    		break;
-			
-    }
-    RAISE_ON_ERROR(status);
-    /* free resources */
-    unum_close(format);
-   
-    return u_strToRString(result, -1);
-}
-
-void Init_ICU_Numeric(void)
-{
-	rb_define_method(rb_cNumeric, "localize", rb_numeric_localize, -1);
-}

data/ext/icu_time.c

@@ -1,391 +0,0 @@
-// Copyright (c) 2007 Joshua Llorach
-//  
-// This file is part of ICU Ruby extension.
-// 
-// ICU is free software: you can redistribute it and/or modify
-// it under the terms of the GNU Lesser General Public License as published by
-// the Free Software Foundation, either version 3 of the License, or
-// (at your option) any later version.
-// 
-// ICU is distributed in the hope that it will be useful,
-// but WITHOUT ANY WARRANTY; without even the implied warranty of
-// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// GNU Lesser General Public License for more details.
-//  
-// You should have received a copy of the GNU Lesser General Public License
-// along with ICU.  If not, see <http://www.gnu.org/licenses/>.
-
-#include "icu.h"
-
-#include "unicode/ucal.h"
-#include "unicode/udat.h"
-
-/******************* Time */
-
-/**
- *  call-seq:
- *     23874.localize(:date => :short) => 23.874
- */
-VALUE rb_Time_localize(int argc, VALUE *argv, VALUE self)
-{
-	VALUE options;
-	UDateFormatStyle dateStyle = UDAT_DEFAULT, timeStyle = UDAT_DEFAULT;
-	char *locale = NULL;
-	const UChar *timeZone = 0;
-	int32_t timeZoneLen = -1;
-	
-	UDateFormat *format;
-	UErrorCode status;
-	UChar result[256];
-	/* arguments */
-	rb_scan_args(argc, argv, "01", &options);
-	if (options != Qnil) {
-		VALUE rb_locale, rb_timeZone;
-		
-		Check_Type(options, T_HASH);
-		/* date and time style */
-		dateStyle = getStyle(options, "date");
-		timeStyle = getStyle(options, "time");
-		/* locale */
-		rb_locale = rb_hash_aref(options, ID2SYM(rb_intern("locale")));
-		if (rb_locale != Qnil) {
-			locale = StringValuePtr(rb_locale);
-		}
-		/* time zone */
-		rb_timeZone = rb_hash_aref(options, ID2SYM(rb_intern("zone")));
-		if (rb_timeZone != Qnil) {
-			Check_Type(rb_timeZone, T_STRING);
-			timeZone = u_strFromRString(rb_timeZone, &timeZoneLen);
-		}
-	}
-	
-	/* formatter */
-	status = U_ZERO_ERROR;
-    format = udat_open(timeStyle, dateStyle, locale, timeZone, timeZoneLen, NULL, -1, &status);
-    RAISE_ON_ERROR(status);
-	/* format */
-	status = U_ZERO_ERROR;
-	{
-		extern struct timeval rb_time_timeval(VALUE time);
-		struct timeval tv;
-		UDate dateToFormat;
-		UChar result[256];
-		
-		tv = rb_time_timeval(self);
-    	dateToFormat = ((double)tv.tv_sec + (double)tv.tv_usec / 1e6) * 1e3;
-    	udat_format(format, dateToFormat, result, 256, NULL, &status);
-	    RAISE_ON_ERROR(status);
-	    /* free resources */
-	    unum_close(format);
-	   
-	    return u_strToRString(result, -1);
-	}
-}
-
-UDateFormatStyle getStyle(VALUE options, const char * key)
-{
-	UDateFormatStyle formatStyle = UDAT_DEFAULT;
-	VALUE style;
-	
-	style = rb_hash_aref(options, ID2SYM(rb_intern(key)));
-	if (style != Qnil) {
-		if (style == Qfalse) {
-			formatStyle = UDAT_NONE;
-		} else {
-			ID style_ID;
-	
-			Check_Type(style, T_SYMBOL);
-			style_ID = SYM2ID(style);
-			if (style_ID == rb_intern("full")) {
-				formatStyle = UDAT_FULL;
-			} else if (style_ID == rb_intern("long")) {
-				formatStyle = UDAT_LONG;
-			} else if (style_ID == rb_intern("medium")) {
-				formatStyle = UDAT_MEDIUM;
-			} else if (style_ID == rb_intern("short")) {
-				formatStyle = UDAT_SHORT;
-			} else {
-				rb_raise(rb_eArgError, "unsupported format style %s", rb_id2name(style_ID));
-			}
-		}
-	}
-	
-	return formatStyle;
-}
-
-VALUE enumToOptions(UEnumeration *enumeration, VALUE options, UCalendar *calendar, UCalendarDisplayNameType type, char *locale)
-{
-	const UChar *zoneID;
-	int32_t zoneIDLen;
-	UErrorCode status = U_ZERO_ERROR;
-	
-	while (zoneID = uenum_unext(enumeration, &zoneIDLen, &status)) {
-		RAISE_ON_ERROR(status);
-		if (type == -1) {
-			rb_ary_push(options, u_strToRString(zoneID, zoneIDLen));
-		} else {
-			VALUE option = rb_ary_new2(2);
-			UChar *zoneName = ALLOC_N(UChar, 64);
-			int32_t zoneNameLen = 64;
-			
-			ucal_setTimeZone(calendar, zoneID, zoneIDLen, &status);
-			RAISE_ON_ERROR(status);
-			zoneNameLen = ucal_getTimeZoneDisplayName(calendar, UCAL_STANDARD, locale, zoneName, zoneNameLen, &status);
-			if (status == U_BUFFER_OVERFLOW_ERROR) {
-				status = U_ZERO_ERROR;
-				REALLOC_N(zoneName, UChar, zoneNameLen);
-				ucal_getTimeZoneDisplayName(calendar, UCAL_STANDARD, locale, zoneName, zoneNameLen, &status);
-			}
-			RAISE_ON_ERROR(status);
-			rb_ary_push(option, u_strToRString(zoneName, zoneNameLen));
-			rb_ary_push(option, u_strToRString(zoneID, zoneIDLen));
-			rb_ary_push(options, option);
-		}
-	}
-	
-	return options;
-}
-
-/**
- *  call-seq:
- *     Time.zones(:countries => ['US'], :locale => 'es_ES', :type => :short) => 23.874
- * 	   Time.zones(:countries => :all, :group => true) => 23.874
- */
-VALUE rb_Time_singleton_zones(int argc, VALUE *argv, VALUE self)
-{
-	VALUE options, countries = Qfalse, group = Qfalse;
-	char *locale = NULL;
-	UCalendarDisplayNameType type = -1;
-	
-	UCalendar *calendar;
-	UErrorCode status = U_ZERO_ERROR;
-	UEnumeration *enumeration;
-	VALUE select = rb_ary_new();
-	UCollator *collator;
-	
-	//arguments
-	rb_scan_args(argc, argv, "01", &options);
-	if (options != Qnil) {
-		VALUE rb_locale, rb_type;
-		
-		Check_Type(options, T_HASH);
-		//locale
-		rb_locale = rb_hash_aref(options, ID2SYM(rb_intern("locale")));
-		if (rb_locale != Qnil) {
-			locale = StringValuePtr(rb_locale);
-		}
-		//countries
-		countries = rb_hash_aref(options, ID2SYM(rb_intern("countries")));
-		if (countries == Qnil) {
-			countries = Qfalse;
-		} else {
-			
-		}
-		//group
-		group = rb_hash_aref(options, ID2SYM(rb_intern("group")));
-		group = group && group != Qnil ? Qtrue : Qfalse;
-		//type
-		rb_type = rb_hash_aref(options, ID2SYM(rb_intern("type")));
-		if (rb_type != Qnil) {
-			ID rb_type_ID;
-	
-			Check_Type(rb_type, T_SYMBOL);
-			rb_type_ID = SYM2ID(rb_type);
-			if (rb_type_ID == rb_intern("standard")) {
-				type = UCAL_STANDARD;
-			} else if (rb_type_ID == rb_intern("short_standard")) {
-				type = UCAL_SHORT_STANDARD;
-			} else if (rb_type_ID == rb_intern("dst")) {
-				type = UCAL_DST;
-			} else if (rb_type_ID == rb_intern("short_dst")) {
-				type = UCAL_SHORT_DST;
-			} else {
-				rb_raise(rb_eArgError, "unsupported time zone type %s", rb_id2name(rb_type_ID));
-			}
-		}
-	}
-	//calendar
-	calendar = ucal_open(NULL, -1, locale, UCAL_GREGORIAN, &status);
-	RAISE_ON_ERROR(status);
-	
-	collator = ucol_open(locale, &status);
-	RAISE_ON_ERROR(status);
-	
-	if (countries) {
-		const char* const* isoCountries = uloc_getISOCountries();
-		
-		while (*isoCountries != NULL) {
-			if (TYPE(countries) == T_SYMBOL || (TYPE(countries) == T_ARRAY && rb_ary_includes(countries, rb_str_new2(*isoCountries)))) {
-				if (group) {
-					char fakeLocale[4] = "_";
-					UChar *country = ALLOC_N(UChar, 32);
-					int32_t countryLen = 32;
-					VALUE optgroup = rb_ary_new2(2);
-					
-					strcat(fakeLocale, *isoCountries);
-					countryLen = uloc_getDisplayCountry(fakeLocale, locale, country, countryLen, &status);
-					if (status == U_BUFFER_OVERFLOW_ERROR) {
-						status = U_ZERO_ERROR;
-						REALLOC_N(country, UChar, countryLen);
-						uloc_getDisplayCountry(fakeLocale, locale, country, countryLen, &status);
-					}
-					rb_ary_push(optgroup, u_strToRString(country, countryLen));
-					enumeration = ucal_openCountryTimeZones(*isoCountries, &status);
-					RAISE_ON_ERROR(status);
-					rb_ary_push(optgroup, enumToOptions(enumeration, rb_ary_new(), calendar, type, locale));
-					uenum_close(enumeration);
-					if (RARRAY(RARRAY(optgroup)->ptr[1])->len) {
-						ruby_qsort(RARRAY(RARRAY(optgroup)->ptr[1])->ptr, RARRAY(RARRAY(optgroup)->ptr[1])->len, sizeof(VALUE), collateByDisplayName, collator);
-						rb_ary_push(select, optgroup);
-					}
-				} else {
-					enumeration = ucal_openCountryTimeZones(*isoCountries, &status);
-					RAISE_ON_ERROR(status);
-					enumToOptions(enumeration, select, calendar, type, locale);
-					uenum_close(enumeration);
-				}
-			}
-			*isoCountries++;
-		}
-	} else {
-		enumeration = ucal_openTimeZones(&status);
-		RAISE_ON_ERROR(status);
-		enumToOptions(enumeration, select, calendar, type, locale);
-		uenum_close(enumeration);
-	}
-	//sort
-	ruby_qsort(RARRAY(select)->ptr, RARRAY(select)->len, sizeof(VALUE), collateByDisplayName, collator);
-	//free
-	ucal_close(calendar);
-	ucol_close(collator);
-	
-	return select;
-}
-
-/**
- *  call-seq:
- *     Time.default_zone = 'GMT'
- */
-VALUE rb_Time_singleton_set_default_zone(VALUE self, VALUE zone)
-{
-	UErrorCode status = U_ZERO_ERROR;
-
-	ucal_setDefaultTimeZone((const UChar *)u_strFromRString(zone, NULL), &status);
-	RAISE_ON_ERROR(status);
-	
-	return zone;
-}
-
-/**
- *  call-seq:
- *     Time.default_zone -> 'GMT'
- */
-VALUE rb_Time_singleton_get_default_zone(VALUE self)
-{
-	UChar * timeZone = ALLOC_N(UChar, 64);
-	int32_t timeZoneLen;
-	UErrorCode status = U_ZERO_ERROR;
-	
-	timeZoneLen = ucal_getDefaultTimeZone(timeZone, 2, &status);
-	if (status == U_BUFFER_OVERFLOW_ERROR) {
-		status = U_ZERO_ERROR;
-		REALLOC_N(timeZone, UChar, timeZoneLen);
-		ucal_getDefaultTimeZone(timeZone, timeZoneLen, &status);
-	}
-	RAISE_ON_ERROR(status);
-	
-	return u_strToRString(timeZone, timeZoneLen);
-}
-
-/**
- *  call-seq:
- *     23874.localize(:date => :short) => 23.874
- */
-VALUE rb_Time_singleton_pattern(int argc, VALUE *argv, VALUE self)
-{
-	VALUE options;
-	UDateFormatStyle dateStyle = UDAT_DEFAULT, timeStyle = UDAT_DEFAULT;
-	char *locale = NULL;
-	
-	UDateFormat *format;
-	UErrorCode status = U_ZERO_ERROR;
-	
-	UChar * pattern = ALLOC_N(UChar, 64);
-	int32_t patternLen;
-
-	/* arguments */
-	rb_scan_args(argc, argv, "01", &options);
-	if (options != Qnil) {
-		VALUE rb_locale;
-		
-		Check_Type(options, T_HASH);
-		/* date and time style */
-		dateStyle = getStyle(options, "date");
-		timeStyle = getStyle(options, "time");
-		/* locale */
-		rb_locale = rb_hash_aref(options, ID2SYM(rb_intern("locale")));
-		if (rb_locale != Qnil) {
-			locale = StringValuePtr(rb_locale);
-		}
-	}
-	/* formatter */
-	status = U_ZERO_ERROR;
-    format = udat_open(timeStyle, dateStyle, locale, NULL, 0, NULL, 0, &status);
-    RAISE_ON_ERROR(status);
-    /* pattern */
-	patternLen = udat_toPattern(format, 0, pattern, 64, &status);
-	if (status == U_BUFFER_OVERFLOW_ERROR) {
-		status = U_ZERO_ERROR;
-		REALLOC_N(pattern, UChar, patternLen);
-		udat_toPattern(format, 0, pattern, 64, &status);
-	}
-	RAISE_ON_ERROR(status);
-	/* free */
-	udat_close(format);
-    
-    return u_strToRString(pattern, patternLen);
-}
-
-/**
- *  call-seq:
- *     23874.localize(:date => :short) => 23.874
- */
-VALUE rb_Time_singleton_week_start(int argc, VALUE *argv, VALUE self)
-{
-	VALUE options;
-	char * locale = NULL;
-	UErrorCode status = U_ZERO_ERROR;
-	UCalendar * calendar;
-	int32_t result;
-	
-	/* arguments */
-	rb_scan_args(argc, argv, "01", &options);
-	if (options != Qnil) {
-		VALUE rb_locale;
-		
-		Check_Type(options, T_HASH);
-		/* locale */
-		rb_locale = rb_hash_aref(options, ID2SYM(rb_intern("locale")));
-		if (rb_locale != Qnil) {
-			locale = StringValuePtr(rb_locale);
-		}
-	}
-	/* calendar */
-	calendar = ucal_open(NULL, 0, locale, UCAL_GREGORIAN, &status);
-	RAISE_ON_ERROR(status);
-	/* attribute */
-	result = ucal_getAttribute(calendar, UCAL_FIRST_DAY_OF_WEEK);
-	ucal_close(calendar);
-	
-	return INT2NUM(result);
-}
-
-void Init_ICU_Time(void)
-{
-	rb_define_method(rb_cTime, "localize", rb_Time_localize, -1);
-	rb_define_singleton_method(rb_cTime, "zones", rb_Time_singleton_zones, -1);
-	rb_define_singleton_method(rb_cTime, "default_zone=", rb_Time_singleton_set_default_zone, 1);
-	rb_define_singleton_method(rb_cTime, "default_zone", rb_Time_singleton_get_default_zone, 0);
-	rb_define_singleton_method(rb_cTime, "pattern", rb_Time_singleton_pattern, -1);
-	rb_define_singleton_method(rb_cTime, "week_start", rb_Time_singleton_week_start, -1);
-}