home_run 0.9.0-x86-mswin32

data/ext/date_parser.c

@@ -0,0 +1,367 @@
+
+#line 1 "date_parser.rl"
+
+#define RHRR_ISO_PARSER 0x1
+
+#define RHRR_ISO_TIME_SET 0x1
+#define RHRR_ISO_ZONE_SET 0x2
+
+
+#line 11 "date_parser.c"
+static const char _date_parser_actions[] = {
+	0, 1, 0, 1, 1, 1, 2, 1, 
+	3, 1, 4, 1, 5, 1, 6, 1, 
+	9, 1, 10, 2, 7, 9, 2, 9, 
+	10, 3, 7, 9, 10, 3, 8, 7, 
+	9, 4, 8, 7, 9, 10
+};
+
+static const char _date_parser_key_offsets[] = {
+	0, 0, 6, 8, 10, 12, 14, 15, 
+	17, 19, 20, 24, 26, 28, 29, 31, 
+	33, 34, 36, 38, 40, 42, 43, 45, 
+	47, 49, 52, 54, 56, 58, 62, 65, 
+	71, 76
+};
+
+static const char _date_parser_trans_keys[] = {
+	32, 45, 9, 13, 48, 57, 48, 57, 
+	48, 57, 48, 57, 48, 57, 45, 48, 
+	49, 49, 57, 45, 48, 51, 49, 50, 
+	49, 57, 48, 57, 58, 48, 53, 48, 
+	57, 58, 48, 53, 48, 57, 48, 57, 
+	48, 57, 58, 48, 57, 48, 57, 48, 
+	52, 50, 48, 49, 48, 57, 48, 49, 
+	48, 50, 32, 84, 9, 13, 32, 9, 
+	13, 32, 50, 9, 13, 48, 49, 32, 
+	43, 45, 9, 13, 32, 9, 13, 0
+};
+
+static const char _date_parser_single_lengths[] = {
+	0, 2, 0, 0, 0, 0, 1, 2, 
+	0, 1, 2, 0, 0, 1, 0, 0, 
+	1, 0, 0, 0, 0, 1, 0, 0, 
+	0, 1, 0, 0, 0, 2, 1, 2, 
+	3, 1
+};
+
+static const char _date_parser_range_lengths[] = {
+	0, 2, 1, 1, 1, 1, 0, 0, 
+	1, 0, 1, 1, 1, 0, 1, 1, 
+	0, 1, 1, 1, 1, 0, 1, 1, 
+	1, 1, 1, 1, 1, 1, 1, 2, 
+	1, 1
+};
+
+static const char _date_parser_index_offsets[] = {
+	0, 0, 5, 7, 9, 11, 13, 15, 
+	18, 20, 22, 26, 28, 30, 32, 34, 
+	36, 38, 40, 42, 44, 46, 48, 50, 
+	52, 54, 57, 59, 61, 63, 67, 70, 
+	75, 80
+};
+
+static const char _date_parser_indicies[] = {
+	0, 2, 0, 3, 1, 4, 1, 5, 
+	1, 6, 1, 7, 1, 8, 1, 9, 
+	10, 1, 11, 1, 12, 1, 13, 15, 
+	14, 1, 16, 1, 17, 1, 18, 1, 
+	19, 1, 20, 1, 21, 1, 22, 1, 
+	23, 1, 24, 1, 25, 1, 26, 1, 
+	27, 1, 28, 1, 17, 1, 30, 29, 
+	1, 16, 1, 16, 1, 11, 1, 32, 
+	33, 31, 1, 34, 34, 1, 34, 30, 
+	34, 29, 1, 35, 36, 36, 35, 1, 
+	37, 37, 1, 0
+};
+
+static const char _date_parser_trans_targs[] = {
+	1, 0, 2, 3, 3, 4, 5, 6, 
+	7, 8, 28, 9, 10, 11, 26, 27, 
+	29, 13, 14, 15, 16, 17, 18, 32, 
+	20, 21, 22, 23, 33, 12, 24, 30, 
+	31, 25, 30, 30, 19, 30
+};
+
+static const char _date_parser_trans_actions[] = {
+	0, 0, 1, 1, 0, 0, 0, 0, 
+	0, 3, 3, 0, 0, 5, 5, 5, 
+	0, 0, 0, 9, 0, 0, 11, 0, 
+	0, 0, 0, 0, 0, 7, 7, 15, 
+	15, 0, 0, 19, 13, 29
+};
+
+static const char _date_parser_eof_actions[] = {
+	0, 0, 0, 0, 0, 0, 0, 0, 
+	0, 0, 0, 0, 0, 0, 0, 0, 
+	0, 0, 0, 0, 0, 0, 0, 0, 
+	0, 0, 0, 0, 0, 22, 17, 17, 
+	25, 33
+};
+
+static const int date_parser_start = 1;
+static const int date_parser_first_final = 29;
+static const int date_parser_error = 0;
+
+static const int date_parser_en_main = 1;
+
+
+#line 59 "date_parser.rl"
+
+
+VALUE rhrd__ragel_parse(char * p, long len) {
+  VALUE hash;
+  long state = 0;
+  long parsers = 0;
+
+  long year = 0;
+  long month = 0;
+  long day = 0;
+
+  long hour = 0;
+  long minute = 0;
+  long second = 0;
+
+  VALUE rzone;
+  char * zone = NULL;
+  long zone_len = 0;
+  long offset = 0;
+
+  long iso_state = 0;
+  char * t_iso_year = NULL;
+  char * t_iso_month = NULL;
+  char * t_iso_day = NULL;
+  char * t_iso_hour= NULL;
+  char * t_iso_minute = NULL;
+  char * t_iso_second = NULL;
+  char * t_iso_zone = NULL;
+
+  int cs = 0;
+  char * eof;
+  char * pe;
+  pe = p + len;
+  eof = pe;
+
+  
+#line 147 "date_parser.c"
+	{
+	cs = date_parser_start;
+	}
+
+#line 95 "date_parser.rl"
+  
+#line 154 "date_parser.c"
+	{
+	int _klen;
+	unsigned int _trans;
+	const char *_acts;
+	unsigned int _nacts;
+	const char *_keys;
+
+	if ( p == pe )
+		goto _test_eof;
+	if ( cs == 0 )
+		goto _out;
+_resume:
+	_keys = _date_parser_trans_keys + _date_parser_key_offsets[cs];
+	_trans = _date_parser_index_offsets[cs];
+
+	_klen = _date_parser_single_lengths[cs];
+	if ( _klen > 0 ) {
+		const char *_lower = _keys;
+		const char *_mid;
+		const char *_upper = _keys + _klen - 1;
+		while (1) {
+			if ( _upper < _lower )
+				break;
+
+			_mid = _lower + ((_upper-_lower) >> 1);
+			if ( (*p) < *_mid )
+				_upper = _mid - 1;
+			else if ( (*p) > *_mid )
+				_lower = _mid + 1;
+			else {
+				_trans += (_mid - _keys);
+				goto _match;
+			}
+		}
+		_keys += _klen;
+		_trans += _klen;
+	}
+
+	_klen = _date_parser_range_lengths[cs];
+	if ( _klen > 0 ) {
+		const char *_lower = _keys;
+		const char *_mid;
+		const char *_upper = _keys + (_klen<<1) - 2;
+		while (1) {
+			if ( _upper < _lower )
+				break;
+
+			_mid = _lower + (((_upper-_lower) >> 1) & ~1);
+			if ( (*p) < _mid[0] )
+				_upper = _mid - 2;
+			else if ( (*p) > _mid[1] )
+				_lower = _mid + 2;
+			else {
+				_trans += ((_mid - _keys)>>1);
+				goto _match;
+			}
+		}
+		_trans += _klen;
+	}
+
+_match:
+	_trans = _date_parser_indicies[_trans];
+	cs = _date_parser_trans_targs[_trans];
+
+	if ( _date_parser_trans_actions[_trans] == 0 )
+		goto _again;
+
+	_acts = _date_parser_actions + _date_parser_trans_actions[_trans];
+	_nacts = (unsigned int) *_acts++;
+	while ( _nacts-- > 0 )
+	{
+		switch ( *_acts++ )
+		{
+	case 0:
+#line 10 "date_parser.rl"
+	{ t_iso_year = p; }
+	break;
+	case 1:
+#line 11 "date_parser.rl"
+	{ t_iso_month = p; }
+	break;
+	case 2:
+#line 12 "date_parser.rl"
+	{ t_iso_day = p; }
+	break;
+	case 3:
+#line 13 "date_parser.rl"
+	{ t_iso_hour = p; }
+	break;
+	case 4:
+#line 14 "date_parser.rl"
+	{ t_iso_minute = p; }
+	break;
+	case 5:
+#line 15 "date_parser.rl"
+	{ t_iso_second = p; }
+	break;
+	case 6:
+#line 16 "date_parser.rl"
+	{ t_iso_zone = p; }
+	break;
+	case 7:
+#line 18 "date_parser.rl"
+	{ iso_state |= RHRR_ISO_TIME_SET; }
+	break;
+	case 8:
+#line 19 "date_parser.rl"
+	{ iso_state |= RHRR_ISO_ZONE_SET; }
+	break;
+	case 9:
+#line 20 "date_parser.rl"
+	{ parsers |= RHRR_ISO_PARSER; }
+	break;
+#line 268 "date_parser.c"
+		}
+	}
+
+_again:
+	if ( cs == 0 )
+		goto _out;
+	if ( ++p != pe )
+		goto _resume;
+	_test_eof: {}
+	if ( p == eof )
+	{
+	const char *__acts = _date_parser_actions + _date_parser_eof_actions[cs];
+	unsigned int __nacts = (unsigned int) *__acts++;
+	while ( __nacts-- > 0 ) {
+		switch ( *__acts++ ) {
+	case 7:
+#line 18 "date_parser.rl"
+	{ iso_state |= RHRR_ISO_TIME_SET; }
+	break;
+	case 8:
+#line 19 "date_parser.rl"
+	{ iso_state |= RHRR_ISO_ZONE_SET; }
+	break;
+	case 9:
+#line 20 "date_parser.rl"
+	{ parsers |= RHRR_ISO_PARSER; }
+	break;
+	case 10:
+#line 22 "date_parser.rl"
+	{
+    switch(parsers) {
+      case RHRR_ISO_PARSER:
+        year = atol(t_iso_year);
+        month = atol(t_iso_month);
+        day = atol(t_iso_day);
+        state |= RHRR_YEAR_SET | RHRR_MONTH_SET | RHRR_DAY_SET;
+        if (iso_state & RHRR_ISO_TIME_SET) {
+          hour = atol(t_iso_hour);
+          minute = atol(t_iso_minute);
+          second = atol(t_iso_second);
+          state |= RHRR_HOUR_SET | RHRR_MINUTE_SET | RHRR_SECOND_SET;
+        }
+        if (iso_state & RHRR_ISO_ZONE_SET) {
+          zone = t_iso_zone;
+          zone_len = p - zone;
+          offset = atol(zone) * 3600 + atol(zone + 4) * 60;
+          state |= RHRR_ZONE_SET | RHRR_OFFSET_SET;
+        }
+        break;
+    }
+  }
+	break;
+#line 321 "date_parser.c"
+		}
+	}
+	}
+
+	_out: {}
+	}
+
+#line 96 "date_parser.rl"
+
+  if (!state) {
+    return Qnil;
+  }
+
+  hash = rb_hash_new();
+  if(state & RHRR_YEAR_SET) {
+    rb_hash_aset(hash, rhrd_sym_year, INT2NUM(year));
+  } 
+  if(state & RHRR_MONTH_SET) {
+    rb_hash_aset(hash, rhrd_sym_mon, INT2NUM(month));
+  } 
+  if(state & RHRR_DAY_SET) {
+    rb_hash_aset(hash, rhrd_sym_mday, INT2NUM(day));
+  } 
+  if(state & RHRR_HOUR_SET) {
+    rb_hash_aset(hash, rhrd_sym_hour, INT2NUM(hour));
+  } 
+  if(state & RHRR_MINUTE_SET) {
+    rb_hash_aset(hash, rhrd_sym_min, INT2NUM(minute));
+  } 
+  if(state & RHRR_SECOND_SET) {
+    rb_hash_aset(hash, rhrd_sym_sec, INT2NUM(second));
+  } 
+  if(state & RHRR_ZONE_SET) {
+    rzone = rb_str_new(zone, zone_len);
+    rb_hash_aset(hash, rhrd_sym_zone, rzone);
+    if (state & RHRR_OFFSET_SET) {
+        rb_hash_aset(hash, rhrd_sym_offset, INT2NUM(offset));
+    } else {
+      rzone = rhrd_s_zone_to_diff(rzone, rzone);
+      if(RTEST(rzone)) {
+        rb_hash_aset(hash, rhrd_sym_offset, rzone);
+      }
+    }
+  } 
+
+  return hash;
+}

data/ext/date_parser.rl

@@ -0,0 +1,134 @@
+
+#define RHRR_ISO_PARSER 0x1
+
+#define RHRR_ISO_TIME_SET 0x1
+#define RHRR_ISO_ZONE_SET 0x2
+
+%%{
+  machine date_parser;
+
+  action tag_iso_year { t_iso_year = p; }
+  action tag_iso_month { t_iso_month = p; }
+  action tag_iso_day { t_iso_day = p; }
+  action tag_iso_hour { t_iso_hour = p; }
+  action tag_iso_minute { t_iso_minute = p; }
+  action tag_iso_second { t_iso_second = p; }
+  action tag_iso_zone { t_iso_zone = p; }
+
+  action set_iso_time { iso_state |= RHRR_ISO_TIME_SET; }
+  action set_iso_zone { iso_state |= RHRR_ISO_ZONE_SET; }
+  action set_parser_iso { parsers |= RHRR_ISO_PARSER; }
+
+  action set_values {
+    switch(parsers) {
+      case RHRR_ISO_PARSER:
+        year = atol(t_iso_year);
+        month = atol(t_iso_month);
+        day = atol(t_iso_day);
+        state |= RHRR_YEAR_SET | RHRR_MONTH_SET | RHRR_DAY_SET;
+        if (iso_state & RHRR_ISO_TIME_SET) {
+          hour = atol(t_iso_hour);
+          minute = atol(t_iso_minute);
+          second = atol(t_iso_second);
+          state |= RHRR_HOUR_SET | RHRR_MINUTE_SET | RHRR_SECOND_SET;
+        }
+        if (iso_state & RHRR_ISO_ZONE_SET) {
+          zone = t_iso_zone;
+          zone_len = p - zone;
+          offset = atol(zone) * 3600 + atol(zone + 4) * 60;
+          state |= RHRR_ZONE_SET | RHRR_OFFSET_SET;
+        }
+        break;
+    }
+  }
+
+  iso_year = ('-'? . digit{4}) >tag_iso_year;
+  iso_month = ('0' . [1-9] | '1' . [0-2]) >tag_iso_month;
+  iso_day = ('0' . [1-9] | [12] . [0-9] | '3' . [01]) >tag_iso_day;
+  iso_hour = ([0-1] . [0-9] | '2' . [0-4]) >tag_iso_hour;
+  iso_minute = ([0-5] . [0-9]) >tag_iso_minute;
+  iso_second = ([0-5] . [0-9]) >tag_iso_second;
+  iso_zone = ([+\-] . digit{2} . ':' . digit{2}) > tag_iso_zone;
+  iso_date = (iso_year . '-' . iso_month . '-' . iso_day);
+  iso_time = (iso_hour . ':' . iso_minute . ':' . iso_second . (iso_zone %set_iso_zone)?) %set_iso_time;
+  iso_date_time = (iso_date . ([T ] . iso_time)?) %set_parser_iso;
+  date_time = (iso_date_time);
+  
+  main := (space* . date_time . space*) %/set_values;
+  write data;
+}%%
+
+VALUE rhrd__ragel_parse(char * p, long len) {
+  VALUE hash;
+  long state = 0;
+  long parsers = 0;
+
+  long year = 0;
+  long month = 0;
+  long day = 0;
+
+  long hour = 0;
+  long minute = 0;
+  long second = 0;
+
+  VALUE rzone;
+  char * zone = NULL;
+  long zone_len = 0;
+  long offset = 0;
+
+  long iso_state = 0;
+  char * t_iso_year = NULL;
+  char * t_iso_month = NULL;
+  char * t_iso_day = NULL;
+  char * t_iso_hour= NULL;
+  char * t_iso_minute = NULL;
+  char * t_iso_second = NULL;
+  char * t_iso_zone = NULL;
+
+  int cs = 0;
+  char * eof;
+  char * pe;
+  pe = p + len;
+  eof = pe;
+
+  %%write init;
+  %%write exec;
+
+  if (!state) {
+    return Qnil;
+  }
+
+  hash = rb_hash_new();
+  if(state & RHRR_YEAR_SET) {
+    rb_hash_aset(hash, rhrd_sym_year, INT2NUM(year));
+  } 
+  if(state & RHRR_MONTH_SET) {
+    rb_hash_aset(hash, rhrd_sym_mon, INT2NUM(month));
+  } 
+  if(state & RHRR_DAY_SET) {
+    rb_hash_aset(hash, rhrd_sym_mday, INT2NUM(day));
+  } 
+  if(state & RHRR_HOUR_SET) {
+    rb_hash_aset(hash, rhrd_sym_hour, INT2NUM(hour));
+  } 
+  if(state & RHRR_MINUTE_SET) {
+    rb_hash_aset(hash, rhrd_sym_min, INT2NUM(minute));
+  } 
+  if(state & RHRR_SECOND_SET) {
+    rb_hash_aset(hash, rhrd_sym_sec, INT2NUM(second));
+  } 
+  if(state & RHRR_ZONE_SET) {
+    rzone = rb_str_new(zone, zone_len);
+    rb_hash_aset(hash, rhrd_sym_zone, rzone);
+    if (state & RHRR_OFFSET_SET) {
+        rb_hash_aset(hash, rhrd_sym_offset, INT2NUM(offset));
+    } else {
+      rzone = rhrd_s_zone_to_diff(rzone, rzone);
+      if(RTEST(rzone)) {
+        rb_hash_aset(hash, rhrd_sym_offset, rzone);
+      }
+    }
+  } 
+
+  return hash;
+}