icu 0.9.0

data/ext/icu_locale_country.c

@@ -0,0 +1,82 @@
+#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

@@ -0,0 +1,82 @@
+#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

@@ -0,0 +1,175 @@
+#include "icu.h"
+
+#include "unicode/unum.h"
+
+//UNumberFormatRoundingMode parseRoundingModeOption(VALUE rb_options)
+//{
+//	VALUE rounding_mode;
+//	
+//	rounding_mode = rb_hash_aref(rb_options, ID2SYM(rb_intern("round_mode")));
+//	if (rounding_mode != Qnil) {
+//		ID rounding_mode_ID;
+//		
+//		Check_Type(rounding_mode, T_SYMBOL);
+//		rounding_mode_ID = SYM2ID(rounding_mode);
+//		if (rounding_mode_ID == rb_intern("ceil")) {
+//			return UNUM_ROUND_CEILING;
+//		} else if (rounding_mode_ID == rb_intern("floor")) {
+//			return UNUM_ROUND_FLOOR;
+//		} else if (rounding_mode_ID == rb_intern("down")) {
+//			return UNUM_ROUND_DOWN;
+//		} else if (rounding_mode_ID == rb_intern("up")) {
+//			return UNUM_ROUND_UP;
+//		} else if (rounding_mode_ID == rb_intern("halfeven")) {
+//			return UNUM_FOUND_HALFEVEN;
+//		} else if (rounding_mode_ID == rb_intern("halfdown")) {
+//			return UNUM_ROUND_HALFDOWN;
+//		} else if (rounding_mode_ID == rb_intern("halfup")) {
+//			return UNUM_ROUND_HALFUP;
+//		} else {
+//			rb_raise(rb_eArgError, "unsupported rounding mode '%s'", rb_id2name(rounding_mode_ID));
+//		}
+//	}
+//	return -1;
+//}
+
+/******************* 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

@@ -0,0 +1,374 @@
+#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);
+}