edn_turbo 0.3.2 → 0.3.3

data/ext/edn_turbo/edn_parser.cc

@@ -5,6 +5,8 @@
 #include <vector>
 #include <exception>
 
+#include <cstring>
+
 #include "edn_parser.h"
 
 //
@@ -16,7 +18,7 @@
 //
 
 
-#line 54 "edn_parser.rl"
+#line 56 "edn_parser.rl"
 
 
 // ============================================================
@@ -24,7 +26,7 @@
 //
 
 
-#line 28 "edn_parser.cc"
+#line 30 "edn_parser.cc"
 static const int EDN_value_start = 1;
 static const int EDN_value_first_final = 2;
 static const int EDN_value_error = 0;
@@ -32,7 +34,7 @@ static const int EDN_value_error = 0;
 static const int EDN_value_en_main = 1;
 
 
-#line 170 "edn_parser.rl"
+#line 172 "edn_parser.rl"
 
 
 
@@ -42,14 +44,14 @@ const char *edn::Parser::parse_value(const char *p, const char *pe, VALUE& v)
     int cs;
 
 
-#line 46 "edn_parser.cc"
+#line 48 "edn_parser.cc"
 	{
 	cs = EDN_value_start;
 	}
 
-#line 179 "edn_parser.rl"
+#line 181 "edn_parser.rl"
 
-#line 53 "edn_parser.cc"
+#line 55 "edn_parser.cc"
 	{
 	if ( p == pe )
 		goto _test_eof;
@@ -92,7 +94,7 @@ st0:
 cs = 0;
 	goto _out;
 tr0:
-#line 98 "edn_parser.rl"
+#line 100 "edn_parser.rl"
 	{
         // stand-alone operators *, +, -, etc.
         const char *np = parse_operator(p, pe, v);
@@ -100,7 +102,7 @@ tr0:
     }
 	goto st2;
 tr2:
-#line 66 "edn_parser.rl"
+#line 68 "edn_parser.rl"
 	{
         // string types within double-quotes
         const char *np = parse_string(p, pe, v);
@@ -108,7 +110,7 @@ tr2:
     }
 	goto st2;
 tr3:
-#line 150 "edn_parser.rl"
+#line 152 "edn_parser.rl"
 	{
         // handles tokens w/ leading # ("#_", "#{", and tagged elems)
         const char *np = parse_dispatch(p + 1, pe, v);
@@ -116,7 +118,7 @@ tr3:
     }
 	goto st2;
 tr4:
-#line 132 "edn_parser.rl"
+#line 134 "edn_parser.rl"
 	{
         // (
         const char *np = parse_list(p, pe, v);
@@ -124,7 +126,7 @@ tr4:
     }
 	goto st2;
 tr5:
-#line 78 "edn_parser.rl"
+#line 80 "edn_parser.rl"
 	{
         // tokens w/ leading digits: non-negative integers & decimals.
         // try to parse a decimal first
@@ -146,7 +148,7 @@ tr5:
     }
 	goto st2;
 tr6:
-#line 72 "edn_parser.rl"
+#line 74 "edn_parser.rl"
 	{
         // tokens with a leading ':'
         const char *np = parse_keyword(p, pe, v);
@@ -154,7 +156,7 @@ tr6:
     }
 	goto st2;
 tr7:
-#line 110 "edn_parser.rl"
+#line 112 "edn_parser.rl"
 	{
         // user identifiers and reserved keywords (true, false, nil)
         VALUE sym = Qnil;
@@ -172,7 +174,7 @@ tr7:
     }
 	goto st2;
 tr8:
-#line 126 "edn_parser.rl"
+#line 128 "edn_parser.rl"
 	{
         // [
         const char *np = parse_vector(p, pe, v);
@@ -180,7 +182,7 @@ tr8:
     }
 	goto st2;
 tr9:
-#line 104 "edn_parser.rl"
+#line 106 "edn_parser.rl"
 	{
         // tokens w/ leading \ (escaped characters \newline, \c, etc.)
         const char *np = parse_esc_char(p, pe, v);
@@ -188,7 +190,7 @@ tr9:
     }
 	goto st2;
 tr10:
-#line 144 "edn_parser.rl"
+#line 146 "edn_parser.rl"
 	{
         // ^
         const char *np = parse_meta(p, pe);
@@ -196,7 +198,7 @@ tr10:
     }
 	goto st2;
 tr11:
-#line 138 "edn_parser.rl"
+#line 140 "edn_parser.rl"
 	{
         // {
         const char *np = parse_map(p, pe, v);
@@ -207,9 +209,9 @@ st2:
 	if ( ++p == pe )
 		goto _test_eof2;
 case 2:
-#line 53 "edn_parser.rl"
+#line 55 "edn_parser.rl"
 	{ p--; {p++; cs = 2; goto _out;} }
-#line 213 "edn_parser.cc"
+#line 215 "edn_parser.cc"
 	goto st0;
 	}
 	_test_eof2: cs = 2; goto _test_eof;
@@ -218,7 +220,7 @@ case 2:
 	_out: {}
 	}
 
-#line 180 "edn_parser.rl"
+#line 182 "edn_parser.rl"
 
     if (cs >= EDN_value_first_final) {
         return p;
@@ -240,7 +242,7 @@ case 2:
 // ascii range is found.
 //
 
-#line 244 "edn_parser.cc"
+#line 246 "edn_parser.cc"
 static const int EDN_string_start = 1;
 static const int EDN_string_first_final = 8;
 static const int EDN_string_error = 0;
@@ -248,7 +250,7 @@ static const int EDN_string_error = 0;
 static const int EDN_string_en_main = 1;
 
 
-#line 225 "edn_parser.rl"
+#line 227 "edn_parser.rl"
 
 
 
@@ -259,15 +261,15 @@ const char* edn::Parser::parse_string(const char *p, const char *pe, VALUE& v)
     bool encode = false;
 
 
-#line 263 "edn_parser.cc"
+#line 265 "edn_parser.cc"
 	{
 	cs = EDN_string_start;
 	}
 
-#line 235 "edn_parser.rl"
+#line 237 "edn_parser.rl"
     const char* p_save = p;
 
-#line 271 "edn_parser.cc"
+#line 273 "edn_parser.cc"
 	{
 	if ( p == pe )
 		goto _test_eof;
@@ -281,7 +283,7 @@ st0:
 cs = 0;
 	goto _out;
 tr2:
-#line 214 "edn_parser.rl"
+#line 216 "edn_parser.rl"
 	{
         encode = true;
     }
@@ -290,7 +292,7 @@ st2:
 	if ( ++p == pe )
 		goto _test_eof2;
 case 2:
-#line 294 "edn_parser.cc"
+#line 296 "edn_parser.cc"
 	switch( (*p) ) {
 		case 34: goto tr3;
 		case 92: goto tr4;
@@ -299,7 +301,7 @@ case 2:
 		goto tr2;
 	goto st2;
 tr3:
-#line 206 "edn_parser.rl"
+#line 208 "edn_parser.rl"
 	{
         if (Parser::parse_byte_stream(p_save + 1, p, v, encode)) {
             {p = (( p + 1))-1;}
@@ -307,17 +309,17 @@ tr3:
             p--; {p++; cs = 8; goto _out;}
         }
     }
-#line 53 "edn_parser.rl"
+#line 55 "edn_parser.rl"
 	{ p--; {p++; cs = 8; goto _out;} }
 	goto st8;
 st8:
 	if ( ++p == pe )
 		goto _test_eof8;
 case 8:
-#line 318 "edn_parser.cc"
+#line 320 "edn_parser.cc"
 	goto st0;
 tr4:
-#line 214 "edn_parser.rl"
+#line 216 "edn_parser.rl"
 	{
         encode = true;
     }
@@ -326,7 +328,7 @@ st3:
 	if ( ++p == pe )
 		goto _test_eof3;
 case 3:
-#line 330 "edn_parser.cc"
+#line 332 "edn_parser.cc"
 	switch( (*p) ) {
 		case 34: goto tr2;
 		case 47: goto tr2;
@@ -340,7 +342,7 @@ case 3:
 	}
 	goto st2;
 tr5:
-#line 214 "edn_parser.rl"
+#line 216 "edn_parser.rl"
 	{
         encode = true;
     }
@@ -349,7 +351,7 @@ st4:
 	if ( ++p == pe )
 		goto _test_eof4;
 case 4:
-#line 353 "edn_parser.cc"
+#line 355 "edn_parser.cc"
 	if ( (*p) < 65 ) {
 		if ( 48 <= (*p) && (*p) <= 57 )
 			goto tr6;
@@ -360,7 +362,7 @@ case 4:
 		goto tr6;
 	goto st0;
 tr6:
-#line 214 "edn_parser.rl"
+#line 216 "edn_parser.rl"
 	{
         encode = true;
     }
@@ -369,7 +371,7 @@ st5:
 	if ( ++p == pe )
 		goto _test_eof5;
 case 5:
-#line 373 "edn_parser.cc"
+#line 375 "edn_parser.cc"
 	if ( (*p) < 65 ) {
 		if ( 48 <= (*p) && (*p) <= 57 )
 			goto tr7;
@@ -380,7 +382,7 @@ case 5:
 		goto tr7;
 	goto st0;
 tr7:
-#line 214 "edn_parser.rl"
+#line 216 "edn_parser.rl"
 	{
         encode = true;
     }
@@ -389,7 +391,7 @@ st6:
 	if ( ++p == pe )
 		goto _test_eof6;
 case 6:
-#line 393 "edn_parser.cc"
+#line 395 "edn_parser.cc"
 	if ( (*p) < 65 ) {
 		if ( 48 <= (*p) && (*p) <= 57 )
 			goto tr8;
@@ -400,7 +402,7 @@ case 6:
 		goto tr8;
 	goto st0;
 tr8:
-#line 214 "edn_parser.rl"
+#line 216 "edn_parser.rl"
 	{
         encode = true;
     }
@@ -409,7 +411,7 @@ st7:
 	if ( ++p == pe )
 		goto _test_eof7;
 case 7:
-#line 413 "edn_parser.cc"
+#line 415 "edn_parser.cc"
 	if ( (*p) < 65 ) {
 		if ( 48 <= (*p) && (*p) <= 57 )
 			goto tr2;
@@ -433,7 +435,7 @@ case 7:
 	{
 	switch ( cs ) {
 	case 2:
-#line 46 "edn_parser.rl"
+#line 48 "edn_parser.rl"
 	{
             std::stringstream s;
             s << "unterminated " << EDN_TYPE;
@@ -441,14 +443,14 @@ case 7:
             p--; {p++; cs = 0; goto _out;}
         }
 	break;
-#line 445 "edn_parser.cc"
+#line 447 "edn_parser.cc"
 	}
 	}
 
 	_out: {}
 	}
 
-#line 237 "edn_parser.rl"
+#line 239 "edn_parser.rl"
 
     if (cs >= EDN_string_first_final) {
         return p + 1;
@@ -466,7 +468,7 @@ case 7:
 // keyword parsing
 //
 
-#line 470 "edn_parser.cc"
+#line 472 "edn_parser.cc"
 static const int EDN_keyword_start = 1;
 static const int EDN_keyword_first_final = 3;
 static const int EDN_keyword_error = 0;
@@ -474,7 +476,7 @@ static const int EDN_keyword_error = 0;
 static const int EDN_keyword_en_main = 1;
 
 
-#line 267 "edn_parser.rl"
+#line 269 "edn_parser.rl"
 
 
 
@@ -483,15 +485,15 @@ const char* edn::Parser::parse_keyword(const char *p, const char *pe, VALUE& v)
     int cs;
 
 
-#line 487 "edn_parser.cc"
+#line 489 "edn_parser.cc"
 	{
 	cs = EDN_keyword_start;
 	}
 
-#line 275 "edn_parser.rl"
+#line 277 "edn_parser.rl"
     const char* p_save = p;
 
-#line 495 "edn_parser.cc"
+#line 497 "edn_parser.cc"
 	{
 	if ( p == pe )
 		goto _test_eof;
@@ -558,14 +560,14 @@ case 3:
 		goto st3;
 	goto tr3;
 tr3:
-#line 53 "edn_parser.rl"
+#line 55 "edn_parser.rl"
 	{ p--; {p++; cs = 4; goto _out;} }
 	goto st4;
 st4:
 	if ( ++p == pe )
 		goto _test_eof4;
 case 4:
-#line 569 "edn_parser.cc"
+#line 571 "edn_parser.cc"
 	goto st0;
 st5:
 	if ( ++p == pe )
@@ -604,7 +606,7 @@ case 5:
 	_out: {}
 	}
 
-#line 277 "edn_parser.rl"
+#line 279 "edn_parser.rl"
 
     if (cs >= EDN_keyword_first_final) {
         std::string buf;
@@ -628,14 +630,14 @@ case 5:
 // decimal parsing machine
 //
 
-#line 632 "edn_parser.cc"
+#line 634 "edn_parser.cc"
 static const int EDN_decimal_start = 1;
 static const int EDN_decimal_first_final = 9;
 
 static const int EDN_decimal_en_main = 1;
 
 
-#line 310 "edn_parser.rl"
+#line 312 "edn_parser.rl"
 
 
 
@@ -644,15 +646,15 @@ const char* edn::Parser::parse_decimal(const char *p, const char *pe, VALUE& v)
     int cs;
 
 
-#line 648 "edn_parser.cc"
+#line 650 "edn_parser.cc"
 	{
 	cs = EDN_decimal_start;
 	}
 
-#line 318 "edn_parser.rl"
+#line 320 "edn_parser.rl"
     const char* p_save = p;
 
-#line 656 "edn_parser.cc"
+#line 658 "edn_parser.cc"
 	{
 	if ( p == pe )
 		goto _test_eof;
@@ -706,14 +708,14 @@ case 9:
 		goto st0;
 	goto tr10;
 tr10:
-#line 53 "edn_parser.rl"
+#line 55 "edn_parser.rl"
 	{ p--; {p++; cs = 10; goto _out;} }
 	goto st10;
 st10:
 	if ( ++p == pe )
 		goto _test_eof10;
 case 10:
-#line 717 "edn_parser.cc"
+#line 719 "edn_parser.cc"
 	goto st0;
 st4:
 	if ( ++p == pe )
@@ -829,7 +831,7 @@ case 8:
 	_out: {}
 	}
 
-#line 320 "edn_parser.rl"
+#line 322 "edn_parser.rl"
 
     if (cs >= EDN_decimal_first_final) {
         v = Parser::float_to_ruby(p_save, p - p_save);
@@ -844,14 +846,14 @@ case 8:
 // integer parsing machine - M suffix will return a BigNum
 //
 
-#line 848 "edn_parser.cc"
+#line 850 "edn_parser.cc"
 static const int EDN_integer_start = 1;
 static const int EDN_integer_first_final = 3;
 
 static const int EDN_integer_en_main = 1;
 
 
-#line 343 "edn_parser.rl"
+#line 345 "edn_parser.rl"
 
 
 const char* edn::Parser::parse_integer(const char *p, const char *pe, VALUE& v)
@@ -859,15 +861,15 @@ const char* edn::Parser::parse_integer(const char *p, const char *pe, VALUE& v)
     int cs;
 
 
-#line 863 "edn_parser.cc"
+#line 865 "edn_parser.cc"
 	{
 	cs = EDN_integer_start;
 	}
 
-#line 350 "edn_parser.rl"
+#line 352 "edn_parser.rl"
     const char* p_save = p;
 
-#line 871 "edn_parser.cc"
+#line 873 "edn_parser.cc"
 	{
 	if ( p == pe )
 		goto _test_eof;
@@ -909,14 +911,14 @@ case 3:
 		goto st0;
 	goto tr4;
 tr4:
-#line 53 "edn_parser.rl"
+#line 55 "edn_parser.rl"
 	{ p--; {p++; cs = 4; goto _out;} }
 	goto st4;
 st4:
 	if ( ++p == pe )
 		goto _test_eof4;
 case 4:
-#line 920 "edn_parser.cc"
+#line 922 "edn_parser.cc"
 	goto st0;
 st5:
 	if ( ++p == pe )
@@ -957,7 +959,7 @@ case 6:
 	_out: {}
 	}
 
-#line 352 "edn_parser.rl"
+#line 354 "edn_parser.rl"
 
     if (cs >= EDN_integer_first_final) {
         v = Parser::integer_to_ruby(p_save, p - p_save);
@@ -977,7 +979,7 @@ case 6:
 // 3. stand-alone operators: +, -, /, *, etc.
 //
 
-#line 981 "edn_parser.cc"
+#line 983 "edn_parser.cc"
 static const int EDN_operator_start = 1;
 static const int EDN_operator_first_final = 3;
 static const int EDN_operator_error = 0;
@@ -985,7 +987,7 @@ static const int EDN_operator_error = 0;
 static const int EDN_operator_en_main = 1;
 
 
-#line 426 "edn_parser.rl"
+#line 428 "edn_parser.rl"
 
 
 
@@ -994,15 +996,15 @@ const char* edn::Parser::parse_operator(const char *p, const char *pe, VALUE& v)
     int cs;
 
 
-#line 998 "edn_parser.cc"
+#line 1000 "edn_parser.cc"
 	{
 	cs = EDN_operator_start;
 	}
 
-#line 434 "edn_parser.rl"
+#line 436 "edn_parser.rl"
     const char* p_save = p;
 
-#line 1006 "edn_parser.cc"
+#line 1008 "edn_parser.cc"
 	{
 	if ( p == pe )
 		goto _test_eof;
@@ -1055,22 +1057,22 @@ case 3:
 		goto tr9;
 	goto tr6;
 tr6:
-#line 410 "edn_parser.rl"
+#line 412 "edn_parser.rl"
 	{
         // stand-alone operators (-, +, /, ... etc)
         char op[2] = { *p_save, 0 };
         VALUE sym = rb_str_new2(op);
         v = Parser::make_edn_type(EDNT_MAKE_SYMBOL_METHOD, sym);
     }
-#line 53 "edn_parser.rl"
+#line 55 "edn_parser.rl"
 	{ p--; {p++; cs = 4; goto _out;} }
 	goto st4;
 tr11:
-#line 53 "edn_parser.rl"
+#line 55 "edn_parser.rl"
 	{ p--; {p++; cs = 4; goto _out;} }
 	goto st4;
 tr17:
-#line 376 "edn_parser.rl"
+#line 378 "edn_parser.rl"
 	{
         // parse a symbol including the leading operator (-, +, .)
         VALUE sym = Qnil;
@@ -1081,58 +1083,58 @@ tr17:
             {p = (( np))-1;}
         }
     }
-#line 53 "edn_parser.rl"
+#line 55 "edn_parser.rl"
 	{ p--; {p++; cs = 4; goto _out;} }
 	goto st4;
 st4:
 	if ( ++p == pe )
 		goto _test_eof4;
 case 4:
-#line 1092 "edn_parser.cc"
+#line 1094 "edn_parser.cc"
 	goto st0;
 tr5:
-#line 20 "edn_parser.rl"
+#line 22 "edn_parser.rl"
 	{ line_number++; }
 	goto st5;
 tr7:
-#line 410 "edn_parser.rl"
+#line 412 "edn_parser.rl"
 	{
         // stand-alone operators (-, +, /, ... etc)
         char op[2] = { *p_save, 0 };
         VALUE sym = rb_str_new2(op);
         v = Parser::make_edn_type(EDNT_MAKE_SYMBOL_METHOD, sym);
     }
-#line 53 "edn_parser.rl"
+#line 55 "edn_parser.rl"
 	{ p--; {p++; cs = 5; goto _out;} }
 	goto st5;
 tr8:
-#line 410 "edn_parser.rl"
+#line 412 "edn_parser.rl"
 	{
         // stand-alone operators (-, +, /, ... etc)
         char op[2] = { *p_save, 0 };
         VALUE sym = rb_str_new2(op);
         v = Parser::make_edn_type(EDNT_MAKE_SYMBOL_METHOD, sym);
     }
-#line 20 "edn_parser.rl"
+#line 22 "edn_parser.rl"
 	{ line_number++; }
-#line 53 "edn_parser.rl"
+#line 55 "edn_parser.rl"
 	{ p--; {p++; cs = 5; goto _out;} }
 	goto st5;
 tr12:
-#line 53 "edn_parser.rl"
+#line 55 "edn_parser.rl"
 	{ p--; {p++; cs = 5; goto _out;} }
 	goto st5;
 tr13:
-#line 20 "edn_parser.rl"
+#line 22 "edn_parser.rl"
 	{ line_number++; }
-#line 53 "edn_parser.rl"
+#line 55 "edn_parser.rl"
 	{ p--; {p++; cs = 5; goto _out;} }
 	goto st5;
 st5:
 	if ( ++p == pe )
 		goto _test_eof5;
 case 5:
-#line 1136 "edn_parser.cc"
+#line 1138 "edn_parser.cc"
 	switch( (*p) ) {
 		case 10: goto tr13;
 		case 32: goto tr12;
@@ -1157,25 +1159,25 @@ case 5:
 		goto st0;
 	goto tr11;
 tr10:
-#line 410 "edn_parser.rl"
+#line 412 "edn_parser.rl"
 	{
         // stand-alone operators (-, +, /, ... etc)
         char op[2] = { *p_save, 0 };
         VALUE sym = rb_str_new2(op);
         v = Parser::make_edn_type(EDNT_MAKE_SYMBOL_METHOD, sym);
     }
-#line 53 "edn_parser.rl"
+#line 55 "edn_parser.rl"
 	{ p--; {p++; cs = 6; goto _out;} }
 	goto st6;
 tr14:
-#line 53 "edn_parser.rl"
+#line 55 "edn_parser.rl"
 	{ p--; {p++; cs = 6; goto _out;} }
 	goto st6;
 st6:
 	if ( ++p == pe )
 		goto _test_eof6;
 case 6:
-#line 1179 "edn_parser.cc"
+#line 1181 "edn_parser.cc"
 	if ( (*p) == 10 )
 		goto tr5;
 	goto st2;
@@ -1187,7 +1189,7 @@ case 2:
 		goto tr5;
 	goto st2;
 tr9:
-#line 376 "edn_parser.rl"
+#line 378 "edn_parser.rl"
 	{
         // parse a symbol including the leading operator (-, +, .)
         VALUE sym = Qnil;
@@ -1200,7 +1202,7 @@ tr9:
     }
 	goto st7;
 tr16:
-#line 387 "edn_parser.rl"
+#line 389 "edn_parser.rl"
 	{
         // parse a number with the leading symbol - this is slightly
         // different than the one within EDN_value since it includes
@@ -1228,7 +1230,7 @@ st7:
 	if ( ++p == pe )
 		goto _test_eof7;
 case 7:
-#line 1232 "edn_parser.cc"
+#line 1234 "edn_parser.cc"
 	switch( (*p) ) {
 		case 33: goto st0;
 		case 95: goto st0;
@@ -1311,7 +1313,7 @@ case 9:
 		goto tr18;
 	goto tr17;
 tr18:
-#line 376 "edn_parser.rl"
+#line 378 "edn_parser.rl"
 	{
         // parse a symbol including the leading operator (-, +, .)
         VALUE sym = Qnil;
@@ -1327,7 +1329,7 @@ st10:
 	if ( ++p == pe )
 		goto _test_eof10;
 case 10:
-#line 1331 "edn_parser.cc"
+#line 1333 "edn_parser.cc"
 	switch( (*p) ) {
 		case 33: goto st10;
 		case 95: goto st10;
@@ -1400,7 +1402,7 @@ case 11:
 	{
 	switch ( cs ) {
 	case 9:
-#line 376 "edn_parser.rl"
+#line 378 "edn_parser.rl"
 	{
         // parse a symbol including the leading operator (-, +, .)
         VALUE sym = Qnil;
@@ -1415,7 +1417,7 @@ case 11:
 	case 3:
 	case 8:
 	case 11:
-#line 410 "edn_parser.rl"
+#line 412 "edn_parser.rl"
 	{
         // stand-alone operators (-, +, /, ... etc)
         char op[2] = { *p_save, 0 };
@@ -1423,14 +1425,14 @@ case 11:
         v = Parser::make_edn_type(EDNT_MAKE_SYMBOL_METHOD, sym);
     }
 	break;
-#line 1427 "edn_parser.cc"
+#line 1429 "edn_parser.cc"
 	}
 	}
 
 	_out: {}
 	}
 
-#line 436 "edn_parser.rl"
+#line 438 "edn_parser.rl"
 
     if (cs >= EDN_operator_first_final) {
         return p;
@@ -1449,7 +1451,7 @@ case 11:
 // escaped char parsing - handles \c, \newline, \formfeed, etc.
 //
 
-#line 1453 "edn_parser.cc"
+#line 1455 "edn_parser.cc"
 static const int EDN_escaped_char_start = 1;
 static const int EDN_escaped_char_first_final = 26;
 static const int EDN_escaped_char_error = 0;
@@ -1457,7 +1459,7 @@ static const int EDN_escaped_char_error = 0;
 static const int EDN_escaped_char_en_main = 1;
 
 
-#line 466 "edn_parser.rl"
+#line 468 "edn_parser.rl"
 
 
 
@@ -1466,15 +1468,15 @@ const char* edn::Parser::parse_esc_char(const char *p, const char *pe, VALUE& v)
     int cs;
 
 
-#line 1470 "edn_parser.cc"
+#line 1472 "edn_parser.cc"
 	{
 	cs = EDN_escaped_char_start;
 	}
 
-#line 474 "edn_parser.rl"
+#line 476 "edn_parser.rl"
     const char* p_save = p;
 
-#line 1478 "edn_parser.cc"
+#line 1480 "edn_parser.cc"
 	{
 	if ( p == pe )
 		goto _test_eof;
@@ -1519,20 +1521,20 @@ case 26:
 		goto tr28;
 	goto st0;
 tr10:
-#line 20 "edn_parser.rl"
+#line 22 "edn_parser.rl"
 	{ line_number++; }
-#line 53 "edn_parser.rl"
+#line 55 "edn_parser.rl"
 	{ p--; {p++; cs = 27; goto _out;} }
 	goto st27;
 tr28:
-#line 53 "edn_parser.rl"
+#line 55 "edn_parser.rl"
 	{ p--; {p++; cs = 27; goto _out;} }
 	goto st27;
 st27:
 	if ( ++p == pe )
 		goto _test_eof27;
 case 27:
-#line 1536 "edn_parser.cc"
+#line 1538 "edn_parser.cc"
 	switch( (*p) ) {
 		case 10: goto tr10;
 		case 32: goto tr28;
@@ -1550,14 +1552,14 @@ case 3:
 		goto tr10;
 	goto st3;
 tr29:
-#line 53 "edn_parser.rl"
+#line 55 "edn_parser.rl"
 	{ p--; {p++; cs = 28; goto _out;} }
 	goto st28;
 st28:
 	if ( ++p == pe )
 		goto _test_eof28;
 case 28:
-#line 1561 "edn_parser.cc"
+#line 1563 "edn_parser.cc"
 	goto st0;
 st29:
 	if ( ++p == pe )
@@ -1866,7 +1868,7 @@ case 25:
 	_out: {}
 	}
 
-#line 476 "edn_parser.rl"
+#line 478 "edn_parser.rl"
 
     if (cs >= EDN_escaped_char_first_final) {
         // convert the escaped value to a character
@@ -1893,7 +1895,7 @@ case 25:
 //
 //
 
-#line 1897 "edn_parser.cc"
+#line 1899 "edn_parser.cc"
 static const int EDN_symbol_start = 1;
 static const int EDN_symbol_first_final = 4;
 static const int EDN_symbol_error = 0;
@@ -1901,7 +1903,7 @@ static const int EDN_symbol_error = 0;
 static const int EDN_symbol_en_main = 1;
 
 
-#line 527 "edn_parser.rl"
+#line 529 "edn_parser.rl"
 
 
 
@@ -1910,15 +1912,15 @@ const char* edn::Parser::parse_symbol(const char *p, const char *pe, VALUE& s)
     int cs;
 
 
-#line 1914 "edn_parser.cc"
+#line 1916 "edn_parser.cc"
 	{
 	cs = EDN_symbol_start;
 	}
 
-#line 535 "edn_parser.rl"
+#line 537 "edn_parser.rl"
     const char* p_save = p;
 
-#line 1922 "edn_parser.cc"
+#line 1924 "edn_parser.cc"
 	{
 	if ( p == pe )
 		goto _test_eof;
@@ -1980,34 +1982,34 @@ case 4:
 		goto st4;
 	goto tr7;
 tr7:
-#line 53 "edn_parser.rl"
+#line 55 "edn_parser.rl"
 	{ p--; {p++; cs = 5; goto _out;} }
 	goto st5;
 st5:
 	if ( ++p == pe )
 		goto _test_eof5;
 case 5:
-#line 1991 "edn_parser.cc"
+#line 1993 "edn_parser.cc"
 	goto st0;
 tr4:
-#line 20 "edn_parser.rl"
+#line 22 "edn_parser.rl"
 	{ line_number++; }
 	goto st6;
 tr8:
-#line 53 "edn_parser.rl"
+#line 55 "edn_parser.rl"
 	{ p--; {p++; cs = 6; goto _out;} }
 	goto st6;
 tr9:
-#line 20 "edn_parser.rl"
+#line 22 "edn_parser.rl"
 	{ line_number++; }
-#line 53 "edn_parser.rl"
+#line 55 "edn_parser.rl"
 	{ p--; {p++; cs = 6; goto _out;} }
 	goto st6;
 st6:
 	if ( ++p == pe )
 		goto _test_eof6;
 case 6:
-#line 2011 "edn_parser.cc"
+#line 2013 "edn_parser.cc"
 	switch( (*p) ) {
 		case 10: goto tr9;
 		case 32: goto tr8;
@@ -2032,14 +2034,14 @@ case 6:
 		goto st0;
 	goto tr7;
 tr11:
-#line 53 "edn_parser.rl"
+#line 55 "edn_parser.rl"
 	{ p--; {p++; cs = 7; goto _out;} }
 	goto st7;
 st7:
 	if ( ++p == pe )
 		goto _test_eof7;
 case 7:
-#line 2043 "edn_parser.cc"
+#line 2045 "edn_parser.cc"
 	if ( (*p) == 10 )
 		goto tr4;
 	goto st2;
@@ -2147,7 +2149,7 @@ case 9:
 	_out: {}
 	}
 
-#line 537 "edn_parser.rl"
+#line 539 "edn_parser.rl"
 
     if (cs >= EDN_symbol_first_final) {
         // copy the symbol text
@@ -2172,13 +2174,13 @@ case 9:
 // sets the same array is used)
 //
 
-#line 615 "edn_parser.rl"
+#line 617 "edn_parser.rl"
 
 
 //
 // vector-specific machine
 
-#line 2182 "edn_parser.cc"
+#line 2184 "edn_parser.cc"
 static const int EDN_vector_start = 1;
 static const int EDN_vector_first_final = 4;
 static const int EDN_vector_error = 0;
@@ -2186,7 +2188,7 @@ static const int EDN_vector_error = 0;
 static const int EDN_vector_en_main = 1;
 
 
-#line 630 "edn_parser.rl"
+#line 632 "edn_parser.rl"
 
 
 
@@ -2201,14 +2203,14 @@ const char* edn::Parser::parse_vector(const char *p, const char *pe, VALUE& v)
     VALUE elems; // will store the vector's elements - allocated in @open_seq
 
 
-#line 2205 "edn_parser.cc"
+#line 2207 "edn_parser.cc"
 	{
 	cs = EDN_vector_start;
 	}
 
-#line 644 "edn_parser.rl"
+#line 646 "edn_parser.rl"
 
-#line 2212 "edn_parser.cc"
+#line 2214 "edn_parser.cc"
 	{
 	if ( p == pe )
 		goto _test_eof;
@@ -2219,7 +2221,7 @@ case 1:
 		goto tr0;
 	goto st0;
 tr2:
-#line 46 "edn_parser.rl"
+#line 48 "edn_parser.rl"
 	{
             std::stringstream s;
             s << "unterminated " << EDN_TYPE;
@@ -2227,12 +2229,12 @@ tr2:
             p--; {p++; cs = 0; goto _out;}
         }
 	goto st0;
-#line 2231 "edn_parser.cc"
+#line 2233 "edn_parser.cc"
 st0:
 cs = 0;
 	goto _out;
 tr0:
-#line 564 "edn_parser.rl"
+#line 566 "edn_parser.rl"
 	{
         // sequences store elements in an array, then process it to
         // convert it to a list, set, or map as needed once the
@@ -2244,11 +2246,11 @@ tr0:
     }
 	goto st2;
 tr4:
-#line 20 "edn_parser.rl"
+#line 22 "edn_parser.rl"
 	{ line_number++; }
 	goto st2;
 tr5:
-#line 579 "edn_parser.rl"
+#line 581 "edn_parser.rl"
 	{
         // reads an item within a sequence (vector, list, map, or
         // set). Regardless of the sequence type, an array of the
@@ -2286,7 +2288,7 @@ st2:
 	if ( ++p == pe )
 		goto _test_eof2;
 case 2:
-#line 2290 "edn_parser.cc"
+#line 2292 "edn_parser.cc"
 	switch( (*p) ) {
 		case 10: goto tr4;
 		case 32: goto st2;
@@ -2317,19 +2319,19 @@ case 3:
 		goto tr4;
 	goto st3;
 tr7:
-#line 574 "edn_parser.rl"
+#line 576 "edn_parser.rl"
 	{
         // remove the current metadata level
         del_top_meta_list();
     }
-#line 53 "edn_parser.rl"
+#line 55 "edn_parser.rl"
 	{ p--; {p++; cs = 4; goto _out;} }
 	goto st4;
 st4:
 	if ( ++p == pe )
 		goto _test_eof4;
 case 4:
-#line 2333 "edn_parser.cc"
+#line 2335 "edn_parser.cc"
 	goto st0;
 	}
 	_test_eof2: cs = 2; goto _test_eof;
@@ -2342,7 +2344,7 @@ case 4:
 	switch ( cs ) {
 	case 2:
 	case 3:
-#line 46 "edn_parser.rl"
+#line 48 "edn_parser.rl"
 	{
             std::stringstream s;
             s << "unterminated " << EDN_TYPE;
@@ -2350,14 +2352,14 @@ case 4:
             p--; {p++; cs = 0; goto _out;}
         }
 	break;
-#line 2354 "edn_parser.cc"
+#line 2356 "edn_parser.cc"
 	}
 	}
 
 	_out: {}
 	}
 
-#line 645 "edn_parser.rl"
+#line 647 "edn_parser.rl"
 
     if (cs >= EDN_vector_first_final) {
         v = elems;
@@ -2377,7 +2379,7 @@ case 4:
 // list parsing machine
 //
 
-#line 2381 "edn_parser.cc"
+#line 2383 "edn_parser.cc"
 static const int EDN_list_start = 1;
 static const int EDN_list_first_final = 4;
 static const int EDN_list_error = 0;
@@ -2385,7 +2387,7 @@ static const int EDN_list_error = 0;
 static const int EDN_list_en_main = 1;
 
 
-#line 674 "edn_parser.rl"
+#line 676 "edn_parser.rl"
 
 
 //
@@ -2399,14 +2401,14 @@ const char* edn::Parser::parse_list(const char *p, const char *pe, VALUE& v)
     VALUE elems; // stores the list's elements - allocated in @open_seq
 
 
-#line 2403 "edn_parser.cc"
+#line 2405 "edn_parser.cc"
 	{
 	cs = EDN_list_start;
 	}
 
-#line 687 "edn_parser.rl"
+#line 689 "edn_parser.rl"
 
-#line 2410 "edn_parser.cc"
+#line 2412 "edn_parser.cc"
 	{
 	if ( p == pe )
 		goto _test_eof;
@@ -2417,7 +2419,7 @@ case 1:
 		goto tr0;
 	goto st0;
 tr2:
-#line 46 "edn_parser.rl"
+#line 48 "edn_parser.rl"
 	{
             std::stringstream s;
             s << "unterminated " << EDN_TYPE;
@@ -2425,12 +2427,12 @@ tr2:
             p--; {p++; cs = 0; goto _out;}
         }
 	goto st0;
-#line 2429 "edn_parser.cc"
+#line 2431 "edn_parser.cc"
 st0:
 cs = 0;
 	goto _out;
 tr0:
-#line 564 "edn_parser.rl"
+#line 566 "edn_parser.rl"
 	{
         // sequences store elements in an array, then process it to
         // convert it to a list, set, or map as needed once the
@@ -2442,11 +2444,11 @@ tr0:
     }
 	goto st2;
 tr4:
-#line 20 "edn_parser.rl"
+#line 22 "edn_parser.rl"
 	{ line_number++; }
 	goto st2;
 tr5:
-#line 579 "edn_parser.rl"
+#line 581 "edn_parser.rl"
 	{
         // reads an item within a sequence (vector, list, map, or
         // set). Regardless of the sequence type, an array of the
@@ -2484,7 +2486,7 @@ st2:
 	if ( ++p == pe )
 		goto _test_eof2;
 case 2:
-#line 2488 "edn_parser.cc"
+#line 2490 "edn_parser.cc"
 	switch( (*p) ) {
 		case 10: goto tr4;
 		case 32: goto st2;
@@ -2508,19 +2510,19 @@ case 2:
 		goto tr5;
 	goto tr2;
 tr6:
-#line 574 "edn_parser.rl"
+#line 576 "edn_parser.rl"
 	{
         // remove the current metadata level
         del_top_meta_list();
     }
-#line 53 "edn_parser.rl"
+#line 55 "edn_parser.rl"
 	{ p--; {p++; cs = 4; goto _out;} }
 	goto st4;
 st4:
 	if ( ++p == pe )
 		goto _test_eof4;
 case 4:
-#line 2524 "edn_parser.cc"
+#line 2526 "edn_parser.cc"
 	goto st0;
 st3:
 	if ( ++p == pe )
@@ -2540,7 +2542,7 @@ case 3:
 	switch ( cs ) {
 	case 2:
 	case 3:
-#line 46 "edn_parser.rl"
+#line 48 "edn_parser.rl"
 	{
             std::stringstream s;
             s << "unterminated " << EDN_TYPE;
@@ -2548,14 +2550,14 @@ case 3:
             p--; {p++; cs = 0; goto _out;}
         }
 	break;
-#line 2552 "edn_parser.cc"
+#line 2554 "edn_parser.cc"
 	}
 	}
 
 	_out: {}
 	}
 
-#line 688 "edn_parser.rl"
+#line 690 "edn_parser.rl"
 
     if (cs >= EDN_list_first_final) {
         v = elems;
@@ -2577,7 +2579,7 @@ case 3:
 // hash parsing
 //
 
-#line 2581 "edn_parser.cc"
+#line 2583 "edn_parser.cc"
 static const int EDN_map_start = 1;
 static const int EDN_map_first_final = 4;
 static const int EDN_map_error = 0;
@@ -2585,7 +2587,7 @@ static const int EDN_map_error = 0;
 static const int EDN_map_en_main = 1;
 
 
-#line 720 "edn_parser.rl"
+#line 722 "edn_parser.rl"
 
 
 
@@ -2599,14 +2601,14 @@ const char* edn::Parser::parse_map(const char *p, const char *pe, VALUE& v)
     VALUE elems;
 
 
-#line 2603 "edn_parser.cc"
+#line 2605 "edn_parser.cc"
 	{
 	cs = EDN_map_start;
 	}
 
-#line 733 "edn_parser.rl"
+#line 735 "edn_parser.rl"
 
-#line 2610 "edn_parser.cc"
+#line 2612 "edn_parser.cc"
 	{
 	if ( p == pe )
 		goto _test_eof;
@@ -2617,7 +2619,7 @@ case 1:
 		goto tr0;
 	goto st0;
 tr2:
-#line 46 "edn_parser.rl"
+#line 48 "edn_parser.rl"
 	{
             std::stringstream s;
             s << "unterminated " << EDN_TYPE;
@@ -2625,12 +2627,12 @@ tr2:
             p--; {p++; cs = 0; goto _out;}
         }
 	goto st0;
-#line 2629 "edn_parser.cc"
+#line 2631 "edn_parser.cc"
 st0:
 cs = 0;
 	goto _out;
 tr0:
-#line 564 "edn_parser.rl"
+#line 566 "edn_parser.rl"
 	{
         // sequences store elements in an array, then process it to
         // convert it to a list, set, or map as needed once the
@@ -2642,11 +2644,11 @@ tr0:
     }
 	goto st2;
 tr4:
-#line 20 "edn_parser.rl"
+#line 22 "edn_parser.rl"
 	{ line_number++; }
 	goto st2;
 tr5:
-#line 579 "edn_parser.rl"
+#line 581 "edn_parser.rl"
 	{
         // reads an item within a sequence (vector, list, map, or
         // set). Regardless of the sequence type, an array of the
@@ -2684,7 +2686,7 @@ st2:
 	if ( ++p == pe )
 		goto _test_eof2;
 case 2:
-#line 2688 "edn_parser.cc"
+#line 2690 "edn_parser.cc"
 	switch( (*p) ) {
 		case 10: goto tr4;
 		case 32: goto st2;
@@ -2718,19 +2720,19 @@ case 3:
 		goto tr4;
 	goto st3;
 tr7:
-#line 574 "edn_parser.rl"
+#line 576 "edn_parser.rl"
 	{
         // remove the current metadata level
         del_top_meta_list();
     }
-#line 53 "edn_parser.rl"
+#line 55 "edn_parser.rl"
 	{ p--; {p++; cs = 4; goto _out;} }
 	goto st4;
 st4:
 	if ( ++p == pe )
 		goto _test_eof4;
 case 4:
-#line 2734 "edn_parser.cc"
+#line 2736 "edn_parser.cc"
 	goto st0;
 	}
 	_test_eof2: cs = 2; goto _test_eof;
@@ -2743,7 +2745,7 @@ case 4:
 	switch ( cs ) {
 	case 2:
 	case 3:
-#line 46 "edn_parser.rl"
+#line 48 "edn_parser.rl"
 	{
             std::stringstream s;
             s << "unterminated " << EDN_TYPE;
@@ -2751,14 +2753,14 @@ case 4:
             p--; {p++; cs = 0; goto _out;}
         }
 	break;
-#line 2755 "edn_parser.cc"
+#line 2757 "edn_parser.cc"
 	}
 	}
 
 	_out: {}
 	}
 
-#line 734 "edn_parser.rl"
+#line 736 "edn_parser.rl"
 
     if (cs >= EDN_map_first_final) {
 
@@ -2794,7 +2796,7 @@ case 4:
 // the remaining data to the correct parser
 //
 
-#line 2798 "edn_parser.cc"
+#line 2800 "edn_parser.cc"
 static const int EDN_dispatch_start = 1;
 static const int EDN_dispatch_first_final = 2;
 static const int EDN_dispatch_error = 0;
@@ -2802,7 +2804,7 @@ static const int EDN_dispatch_error = 0;
 static const int EDN_dispatch_en_main = 1;
 
 
-#line 798 "edn_parser.rl"
+#line 800 "edn_parser.rl"
 
 
 
@@ -2811,14 +2813,14 @@ const char* edn::Parser::parse_dispatch(const char *p, const char *pe, VALUE& v)
     int cs;
 
 
-#line 2815 "edn_parser.cc"
+#line 2817 "edn_parser.cc"
 	{
 	cs = EDN_dispatch_start;
 	}
 
-#line 806 "edn_parser.rl"
+#line 808 "edn_parser.rl"
 
-#line 2822 "edn_parser.cc"
+#line 2824 "edn_parser.cc"
 	{
 	if ( p == pe )
 		goto _test_eof;
@@ -2839,40 +2841,40 @@ st0:
 cs = 0;
 	goto _out;
 tr0:
-#line 786 "edn_parser.rl"
+#line 788 "edn_parser.rl"
 	{
         // #inst, #uuid, or #user/tag
         const char *np = parse_tagged(p, pe, v);
         if (np == NULL) { p--; {p++; cs = 2; goto _out;} } else {p = (( np))-1;}
     }
-#line 53 "edn_parser.rl"
+#line 55 "edn_parser.rl"
 	{ p--; {p++; cs = 2; goto _out;} }
 	goto st2;
 tr2:
-#line 780 "edn_parser.rl"
+#line 782 "edn_parser.rl"
 	{
         // discard token #_
         const char *np = parse_discard(p, pe);
         if (np == NULL) { p--; {p++; cs = 2; goto _out;} } else {p = (( np))-1;}
     }
-#line 53 "edn_parser.rl"
+#line 55 "edn_parser.rl"
 	{ p--; {p++; cs = 2; goto _out;} }
 	goto st2;
 tr3:
-#line 774 "edn_parser.rl"
+#line 776 "edn_parser.rl"
 	{
         // #{ }
         const char *np = parse_set(p, pe, v);
         if (np == NULL) { p--; {p++; cs = 2; goto _out;} } else {p = (( np))-1;}
     }
-#line 53 "edn_parser.rl"
+#line 55 "edn_parser.rl"
 	{ p--; {p++; cs = 2; goto _out;} }
 	goto st2;
 st2:
 	if ( ++p == pe )
 		goto _test_eof2;
 case 2:
-#line 2876 "edn_parser.cc"
+#line 2878 "edn_parser.cc"
 	goto st0;
 	}
 	_test_eof2: cs = 2; goto _test_eof;
@@ -2881,7 +2883,7 @@ case 2:
 	_out: {}
 	}
 
-#line 807 "edn_parser.rl"
+#line 809 "edn_parser.rl"
 
     if (cs >= EDN_dispatch_first_final) {
         return p + 1;
@@ -2900,7 +2902,7 @@ case 2:
 // set parsing machine
 //
 
-#line 2904 "edn_parser.cc"
+#line 2906 "edn_parser.cc"
 static const int EDN_set_start = 1;
 static const int EDN_set_first_final = 4;
 static const int EDN_set_error = 0;
@@ -2908,7 +2910,7 @@ static const int EDN_set_error = 0;
 static const int EDN_set_en_main = 1;
 
 
-#line 836 "edn_parser.rl"
+#line 838 "edn_parser.rl"
 
 
 //
@@ -2922,14 +2924,14 @@ const char* edn::Parser::parse_set(const char *p, const char *pe, VALUE& v)
     VALUE elems; // holds the set's elements as an array allocated in @open_seq
 
 
-#line 2926 "edn_parser.cc"
+#line 2928 "edn_parser.cc"
 	{
 	cs = EDN_set_start;
 	}
 
-#line 849 "edn_parser.rl"
+#line 851 "edn_parser.rl"
 
-#line 2933 "edn_parser.cc"
+#line 2935 "edn_parser.cc"
 	{
 	if ( p == pe )
 		goto _test_eof;
@@ -2940,7 +2942,7 @@ case 1:
 		goto tr0;
 	goto st0;
 tr2:
-#line 46 "edn_parser.rl"
+#line 48 "edn_parser.rl"
 	{
             std::stringstream s;
             s << "unterminated " << EDN_TYPE;
@@ -2948,12 +2950,12 @@ tr2:
             p--; {p++; cs = 0; goto _out;}
         }
 	goto st0;
-#line 2952 "edn_parser.cc"
+#line 2954 "edn_parser.cc"
 st0:
 cs = 0;
 	goto _out;
 tr0:
-#line 564 "edn_parser.rl"
+#line 566 "edn_parser.rl"
 	{
         // sequences store elements in an array, then process it to
         // convert it to a list, set, or map as needed once the
@@ -2965,11 +2967,11 @@ tr0:
     }
 	goto st2;
 tr4:
-#line 20 "edn_parser.rl"
+#line 22 "edn_parser.rl"
 	{ line_number++; }
 	goto st2;
 tr5:
-#line 579 "edn_parser.rl"
+#line 581 "edn_parser.rl"
 	{
         // reads an item within a sequence (vector, list, map, or
         // set). Regardless of the sequence type, an array of the
@@ -3007,7 +3009,7 @@ st2:
 	if ( ++p == pe )
 		goto _test_eof2;
 case 2:
-#line 3011 "edn_parser.cc"
+#line 3013 "edn_parser.cc"
 	switch( (*p) ) {
 		case 10: goto tr4;
 		case 32: goto st2;
@@ -3041,19 +3043,19 @@ case 3:
 		goto tr4;
 	goto st3;
 tr7:
-#line 574 "edn_parser.rl"
+#line 576 "edn_parser.rl"
 	{
         // remove the current metadata level
         del_top_meta_list();
     }
-#line 53 "edn_parser.rl"
+#line 55 "edn_parser.rl"
 	{ p--; {p++; cs = 4; goto _out;} }
 	goto st4;
 st4:
 	if ( ++p == pe )
 		goto _test_eof4;
 case 4:
-#line 3057 "edn_parser.cc"
+#line 3059 "edn_parser.cc"
 	goto st0;
 	}
 	_test_eof2: cs = 2; goto _test_eof;
@@ -3066,7 +3068,7 @@ case 4:
 	switch ( cs ) {
 	case 2:
 	case 3:
-#line 46 "edn_parser.rl"
+#line 48 "edn_parser.rl"
 	{
             std::stringstream s;
             s << "unterminated " << EDN_TYPE;
@@ -3074,14 +3076,14 @@ case 4:
             p--; {p++; cs = 0; goto _out;}
         }
 	break;
-#line 3078 "edn_parser.cc"
+#line 3080 "edn_parser.cc"
 	}
 	}
 
 	_out: {}
 	}
 
-#line 850 "edn_parser.rl"
+#line 852 "edn_parser.rl"
 
     if (cs >= EDN_set_first_final) {
         // all elements collected; now convert to a set
@@ -3104,7 +3106,7 @@ case 4:
 // defining a machine to consume items within container delimiters
 //
 
-#line 3108 "edn_parser.cc"
+#line 3110 "edn_parser.cc"
 static const int EDN_discard_start = 1;
 static const int EDN_discard_first_final = 4;
 static const int EDN_discard_error = 0;
@@ -3112,7 +3114,7 @@ static const int EDN_discard_error = 0;
 static const int EDN_discard_en_main = 1;
 
 
-#line 900 "edn_parser.rl"
+#line 902 "edn_parser.rl"
 
 
 
@@ -3122,14 +3124,14 @@ const char* edn::Parser::parse_discard(const char *p, const char *pe)
     VALUE v;
 
 
-#line 3126 "edn_parser.cc"
+#line 3128 "edn_parser.cc"
 	{
 	cs = EDN_discard_start;
 	}
 
-#line 909 "edn_parser.rl"
+#line 911 "edn_parser.rl"
 
-#line 3133 "edn_parser.cc"
+#line 3135 "edn_parser.cc"
 	{
 	if ( p == pe )
 		goto _test_eof;
@@ -3140,7 +3142,7 @@ case 1:
 		goto st2;
 	goto st0;
 tr2:
-#line 890 "edn_parser.rl"
+#line 892 "edn_parser.rl"
 	{
         std::stringstream s;
         s << "discard sequence without element to discard";
@@ -3148,19 +3150,19 @@ tr2:
         p--; {p++; cs = 0; goto _out;}
     }
 	goto st0;
-#line 3152 "edn_parser.cc"
+#line 3154 "edn_parser.cc"
 st0:
 cs = 0;
 	goto _out;
 tr3:
-#line 20 "edn_parser.rl"
+#line 22 "edn_parser.rl"
 	{ line_number++; }
 	goto st2;
 st2:
 	if ( ++p == pe )
 		goto _test_eof2;
 case 2:
-#line 3164 "edn_parser.cc"
+#line 3166 "edn_parser.cc"
 	switch( (*p) ) {
 		case 10: goto tr3;
 		case 32: goto st2;
@@ -3186,7 +3188,7 @@ case 2:
 		goto tr4;
 	goto tr2;
 tr4:
-#line 879 "edn_parser.rl"
+#line 881 "edn_parser.rl"
 	{
         const char *np = parse_value(p, pe, v);
         if (np == NULL) { p--; {p++; cs = 4; goto _out;} } else {
@@ -3197,14 +3199,14 @@ tr4:
             {p = (( np))-1;}
         }
     }
-#line 53 "edn_parser.rl"
+#line 55 "edn_parser.rl"
 	{ p--; {p++; cs = 4; goto _out;} }
 	goto st4;
 st4:
 	if ( ++p == pe )
 		goto _test_eof4;
 case 4:
-#line 3208 "edn_parser.cc"
+#line 3210 "edn_parser.cc"
 	goto st0;
 st3:
 	if ( ++p == pe )
@@ -3223,7 +3225,7 @@ case 3:
 	{
 	switch ( cs ) {
 	case 2:
-#line 890 "edn_parser.rl"
+#line 892 "edn_parser.rl"
 	{
         std::stringstream s;
         s << "discard sequence without element to discard";
@@ -3231,14 +3233,14 @@ case 3:
         p--; {p++; cs = 0; goto _out;}
     }
 	break;
-#line 3235 "edn_parser.cc"
+#line 3237 "edn_parser.cc"
 	}
 	}
 
 	_out: {}
 	}
 
-#line 910 "edn_parser.rl"
+#line 912 "edn_parser.rl"
 
     if (cs >= EDN_discard_first_final) {
         return p + 1;
@@ -3269,7 +3271,7 @@ case 3:
 // 2. add parse checks for uuid and inst for better error reporting
 //
 
-#line 3273 "edn_parser.cc"
+#line 3275 "edn_parser.cc"
 static const int EDN_tagged_start = 1;
 static const int EDN_tagged_first_final = 7;
 static const int EDN_tagged_error = 0;
@@ -3277,7 +3279,7 @@ static const int EDN_tagged_error = 0;
 static const int EDN_tagged_en_main = 1;
 
 
-#line 978 "edn_parser.rl"
+#line 980 "edn_parser.rl"
 
 
 
@@ -3291,14 +3293,14 @@ const char* edn::Parser::parse_tagged(const char *p, const char *pe, VALUE& v)
     int cs;
 
 
-#line 3295 "edn_parser.cc"
+#line 3297 "edn_parser.cc"
 	{
 	cs = EDN_tagged_start;
 	}
 
-#line 991 "edn_parser.rl"
+#line 993 "edn_parser.rl"
 
-#line 3302 "edn_parser.cc"
+#line 3304 "edn_parser.cc"
 	{
 	if ( p == pe )
 		goto _test_eof;
@@ -3315,7 +3317,7 @@ st0:
 cs = 0;
 	goto _out;
 tr0:
-#line 957 "edn_parser.rl"
+#line 959 "edn_parser.rl"
 	{
         // parses the symbol portion of the pair
         const char *np = parse_symbol(p, pe, sym_name);
@@ -3329,7 +3331,7 @@ st2:
 	if ( ++p == pe )
 		goto _test_eof2;
 case 2:
-#line 3333 "edn_parser.cc"
+#line 3335 "edn_parser.cc"
 	switch( (*p) ) {
 		case 10: goto tr3;
 		case 32: goto st3;
@@ -3355,14 +3357,14 @@ case 2:
 		goto st2;
 	goto st0;
 tr3:
-#line 20 "edn_parser.rl"
+#line 22 "edn_parser.rl"
 	{ line_number++; }
 	goto st3;
 st3:
 	if ( ++p == pe )
 		goto _test_eof3;
 case 3:
-#line 3366 "edn_parser.cc"
+#line 3368 "edn_parser.cc"
 	switch( (*p) ) {
 		case 10: goto tr3;
 		case 32: goto st3;
@@ -3388,7 +3390,7 @@ case 3:
 		goto tr7;
 	goto st0;
 tr7:
-#line 965 "edn_parser.rl"
+#line 967 "edn_parser.rl"
 	{
         // parses the value portion
         const char *np = parse_value(p, pe, data);
@@ -3397,14 +3399,14 @@ tr7:
             {p = (( np))-1;}
         }
     }
-#line 53 "edn_parser.rl"
+#line 55 "edn_parser.rl"
 	{ p--; {p++; cs = 7; goto _out;} }
 	goto st7;
 st7:
 	if ( ++p == pe )
 		goto _test_eof7;
 case 7:
-#line 3408 "edn_parser.cc"
+#line 3410 "edn_parser.cc"
 	goto st0;
 st4:
 	if ( ++p == pe )
@@ -3482,7 +3484,7 @@ case 6:
 	_out: {}
 	}
 
-#line 992 "edn_parser.rl"
+#line 994 "edn_parser.rl"
 
     if (cs >= EDN_tagged_first_final) {
         //std::cerr << __FUNCTION__ << " parse symbol name as '" << sym_name << "', value is: " << data << std::endl;
@@ -3520,7 +3522,7 @@ case 6:
 // useful?
 //
 
-#line 3524 "edn_parser.cc"
+#line 3526 "edn_parser.cc"
 static const int EDN_meta_start = 1;
 static const int EDN_meta_first_final = 3;
 static const int EDN_meta_error = 0;
@@ -3528,7 +3530,7 @@ static const int EDN_meta_error = 0;
 static const int EDN_meta_en_main = 1;
 
 
-#line 1042 "edn_parser.rl"
+#line 1044 "edn_parser.rl"
 
 
 
@@ -3538,14 +3540,14 @@ const char* edn::Parser::parse_meta(const char *p, const char *pe)
     VALUE v;
 
 
-#line 3542 "edn_parser.cc"
+#line 3544 "edn_parser.cc"
 	{
 	cs = EDN_meta_start;
 	}
 
-#line 1051 "edn_parser.rl"
+#line 1053 "edn_parser.rl"
 
-#line 3549 "edn_parser.cc"
+#line 3551 "edn_parser.cc"
 	{
 	if ( p == pe )
 		goto _test_eof;
@@ -3584,19 +3586,19 @@ case 2:
 		goto tr2;
 	goto st0;
 tr2:
-#line 1034 "edn_parser.rl"
+#line 1036 "edn_parser.rl"
 	{
         const char *np = parse_value(p, pe, v);
         if (np == NULL) { p--; {p++; cs = 3; goto _out;} } else { {p = (( np))-1;} }
     }
-#line 53 "edn_parser.rl"
+#line 55 "edn_parser.rl"
 	{ p--; {p++; cs = 3; goto _out;} }
 	goto st3;
 st3:
 	if ( ++p == pe )
 		goto _test_eof3;
 case 3:
-#line 3600 "edn_parser.cc"
+#line 3602 "edn_parser.cc"
 	goto st0;
 	}
 	_test_eof2: cs = 2; goto _test_eof;
@@ -3606,7 +3608,7 @@ case 3:
 	_out: {}
 	}
 
-#line 1052 "edn_parser.rl"
+#line 1054 "edn_parser.rl"
 
     if (cs >= EDN_meta_first_final) {
         append_to_meta(v);
@@ -3628,7 +3630,7 @@ case 3:
 // top-level, therefore, does not tokenize source stream
 //
 
-#line 3632 "edn_parser.cc"
+#line 3634 "edn_parser.cc"
 static const int EDN_parser_start = 2;
 static const int EDN_parser_first_final = 2;
 static const int EDN_parser_error = 0;
@@ -3636,7 +3638,7 @@ static const int EDN_parser_error = 0;
 static const int EDN_parser_en_main = 2;
 
 
-#line 1101 "edn_parser.rl"
+#line 1103 "edn_parser.rl"
 
 
 
@@ -3646,26 +3648,26 @@ VALUE edn::Parser::parse(const char* src, std::size_t len)
     VALUE result = EDNT_EOF_CONST;
 
 
-#line 3650 "edn_parser.cc"
+#line 3652 "edn_parser.cc"
 	{
 	cs = EDN_parser_start;
 	}
 
-#line 1110 "edn_parser.rl"
+#line 1112 "edn_parser.rl"
     set_source(src, len);
 
-#line 3658 "edn_parser.cc"
+#line 3660 "edn_parser.cc"
 	{
 	if ( p == pe )
 		goto _test_eof;
 	switch ( cs )
 	{
 tr1:
-#line 20 "edn_parser.rl"
+#line 22 "edn_parser.rl"
 	{ line_number++; }
 	goto st2;
 tr4:
-#line 1078 "edn_parser.rl"
+#line 1080 "edn_parser.rl"
 	{
         // save the count of metadata items before we parse this value
         // so we can determine if we've read another metadata value or
@@ -3688,7 +3690,7 @@ st2:
 	if ( ++p == pe )
 		goto _test_eof2;
 case 2:
-#line 3692 "edn_parser.cc"
+#line 3694 "edn_parser.cc"
 	switch( (*p) ) {
 		case 10: goto tr1;
 		case 32: goto st2;
@@ -3731,7 +3733,7 @@ case 1:
 	_out: {}
 	}
 
-#line 1112 "edn_parser.rl"
+#line 1114 "edn_parser.rl"
 
     if (cs == EDN_parser_error) {
         error(__FUNCTION__, *p);
@@ -3749,13 +3751,13 @@ case 1:
 // token-by-token machine
 //
 
-#line 3753 "edn_parser.cc"
+#line 3755 "edn_parser.cc"
 static const int EDN_tokens_start = 1;
 
 static const int EDN_tokens_en_main = 1;
 
 
-#line 1166 "edn_parser.rl"
+#line 1168 "edn_parser.rl"
 
 
 
@@ -3774,28 +3776,28 @@ edn::Parser::eTokenState edn::Parser::parse_next(VALUE& value)
     discard.clear();
 
 
-#line 3778 "edn_parser.cc"
+#line 3780 "edn_parser.cc"
 	{
 	cs = EDN_tokens_start;
 	}
 
-#line 1184 "edn_parser.rl"
+#line 1186 "edn_parser.rl"
 
-#line 3785 "edn_parser.cc"
+#line 3787 "edn_parser.cc"
 	{
 	if ( p == pe )
 		goto _test_eof;
 	switch ( cs )
 	{
 tr2:
-#line 20 "edn_parser.rl"
+#line 22 "edn_parser.rl"
 	{ line_number++; }
 	goto st1;
 st1:
 	if ( ++p == pe )
 		goto _test_eof1;
 case 1:
-#line 3799 "edn_parser.cc"
+#line 3801 "edn_parser.cc"
 	switch( (*p) ) {
 		case 10: goto tr2;
 		case 32: goto st1;
@@ -3824,11 +3826,11 @@ st0:
 cs = 0;
 	goto _out;
 tr6:
-#line 20 "edn_parser.rl"
+#line 22 "edn_parser.rl"
 	{ line_number++; }
 	goto st4;
 tr3:
-#line 1134 "edn_parser.rl"
+#line 1136 "edn_parser.rl"
 	{
         // we won't know if we've parsed a discard or a metadata until
         // after parse_value() is done. Save the current number of
@@ -3864,7 +3866,7 @@ st4:
 	if ( ++p == pe )
 		goto _test_eof4;
 case 4:
-#line 3868 "edn_parser.cc"
+#line 3870 "edn_parser.cc"
 	switch( (*p) ) {
 		case 10: goto tr6;
 		case 32: goto st4;
@@ -3898,7 +3900,7 @@ case 3:
 	_out: {}
 	}
 
-#line 1185 "edn_parser.rl"
+#line 1187 "edn_parser.rl"
 
     if (cs == EDN_tokens_en_main) {} // silence ragel warning
     return state;