slow_blink 0.0.7 → 0.0.8

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 2e5c8703fac5df385bd6aa4356424bba69f17545
-  data.tar.gz: c39e33c756d2d1894da535a9fbac5e27e5d78836
+  metadata.gz: c5455bc952a75dc80f05313682d5346fe76410a5
+  data.tar.gz: f8f43a1ed8bb7ee180573a4e526331ab20b051ff
 SHA512:
-  metadata.gz: 322bec40e0b8fbe85951a2eda760726ab4af49249e4fe595860b5c60be46c52b7e1efbe972aee34367c8fcf195fc2b5e074561c76ba1e67ef083a7c6140876f0
-  data.tar.gz: 981195d2134e1fccfc06986cdec88019e7c0d47273e857b838810d6643484374d4cf1e69b91ca64af21f62dd5703148641f1965481b331d7feed008cbfb52868
+  metadata.gz: f60e3a127aba57bd69a3d9ce5f899a9bb7915ca4aee4b4114f03d559ce9555f21ef9d4bc4470b1a0abdb058c77b1f92d742c145c880a0a2729ac53dee975b51d
+  data.tar.gz: ca0fa723aaf930665aa8851831702b3b0fd13b27193f69374966181200159f640e3d61b31f6feb39a33a616ab7a2851c5c605a1331093431d3611290ac74fe1f

data/ext/slow_blink/ext_schema_parser/extconf.rb

@@ -1,3 +1,4 @@
 require 'mkmf'
+
 create_makefile('slow_blink/ext_schema_parser')
 

data/ext/slow_blink/ext_schema_parser/lexer.c

@@ -3479,21 +3479,19 @@ YY_RULE_SETUP
 #line 80 "etc/slow_blink/ext_schema_parser/parser.l"
 { *yylval = rb_str_new(&yytext[1], yyleng-1); return TOK_ESCAPED_NC_NAME; }
 	YY_BREAK
-case YY_STATE_EOF(INITIAL):
-#line 82 "etc/slow_blink/ext_schema_parser/parser.l"
-{ return TOK_EOF; }
-	YY_BREAK
 case 50:
 YY_RULE_SETUP
-#line 84 "etc/slow_blink/ext_schema_parser/parser.l"
+#line 82 "etc/slow_blink/ext_schema_parser/parser.l"
 { return TOK_UNKNOWN; }
 	YY_BREAK
 case 51:
 YY_RULE_SETUP
-#line 86 "etc/slow_blink/ext_schema_parser/parser.l"
+#line 84 "etc/slow_blink/ext_schema_parser/parser.l"
 ECHO;
 	YY_BREAK
-#line 3497 "ext/slow_blink/ext_schema_parser/lexer.c"
+#line 3493 "ext/slow_blink/ext_schema_parser/lexer.c"
+case YY_STATE_EOF(INITIAL):
+	yyterminate();
 
 	case YY_END_OF_BUFFER:
 		{
@@ -4640,7 +4638,7 @@ void yyfree (void * ptr , yyscan_t yyscanner)
 
 #define YYTABLES_NAME "yytables"
 
-#line 86 "etc/slow_blink/ext_schema_parser/parser.l"
+#line 84 "etc/slow_blink/ext_schema_parser/parser.l"
 
 
 

data/ext/slow_blink/ext_schema_parser/lexer.h

@@ -355,7 +355,7 @@ extern int yylex \
 #undef YY_DECL
 #endif
 
-#line 86 "etc/slow_blink/ext_schema_parser/parser.l"
+#line 84 "etc/slow_blink/ext_schema_parser/parser.l"
 
 
 #line 362 "ext/slow_blink/ext_schema_parser/lexer.h"

data/ext/slow_blink/ext_schema_parser/parser.c

@@ -1275,7 +1275,7 @@ yyuserAction (yyRuleNum yyn, size_t yyrhslen, yyGLRStackItem* yyvsp,
 #line 251 "etc/slow_blink/ext_schema_parser/parser.y" /* glr.c:816  */
     {
         ((*yyvalp)) = rb_hash_new();
-        rb_hash_aset(((*yyvalp)), ID2SYM(rb_intern("class")), ID2SYM(rb_intern("BOOL")));
+        rb_hash_aset(((*yyvalp)), ID2SYM(rb_intern("class")), ID2SYM(rb_intern("BOOLEAN")));
         rb_hash_aset(((*yyvalp)), ID2SYM(rb_intern("loc")), newLocation(filename, &(*yylocp)));
     }
 #line 1282 "ext/slow_blink/ext_schema_parser/parser.c" /* glr.c:816  */
@@ -3756,6 +3756,8 @@ static VALUE parseFileBuffer(int argc, VALUE* argv, VALUE self)
 
     filename = rb_hash_aref(opts, ID2SYM(rb_intern("filename")));
 
+    rb_gc_mark(filename);
+
     if(yylex_init(&scanner) == 0){
 
         if(yy_scan_bytes((const char *)RSTRING_PTR(buffer), RSTRING_LEN(buffer), scanner)){

data/ext/slow_blink/message/ext_compact_encoder/ext_compact_encoder.c

@@ -82,9 +82,14 @@ static VALUE cWeakError4;
 static VALUE cWeakError9;
 static VALUE cWeakError11;
 
-static struct blink_stream_user cUserStream = {
+static const struct blink_stream_user cUserStream = {
     .read = myRead,
-    .write = myWrite
+    .write = myWrite,
+    .tell = NULL,
+    .peek = NULL,
+    .seekCur = NULL,
+    .seekSet = NULL,
+    .eof = NULL
 };
 
 /* functions **********************************************************/
@@ -147,13 +152,15 @@ void Init_ext_compact_encoder(void)
 
 /* static functions ***************************************************/
 
+#include <assert.h>
+
 static bool myRead(void *state, void *buf, size_t nbyte)
 {
     bool retval = false;
-    VALUE stringIO = *(VALUE *)state;
     
+    VALUE stringIO = *(VALUE *)state;
     VALUE out = rb_funcall(stringIO, rb_intern("read"), 1, SIZET2NUM(nbyte));
-
+    
     if((size_t)RSTRING_LEN(out) == nbyte){
 
         (void)memcpy(buf, RSTRING_PTR(out), (size_t)RSTRING_LEN(out));
@@ -182,6 +189,7 @@ static VALUE putU8(VALUE self, VALUE val)
         if(NUM2ULL(val) <= UINT8_MAX){
 
             struct blink_stream stream;
+            
             (void)BLINK_Stream_initUser(&stream, &self, cUserStream);
             (void)BLINK_Compact_encodeU8((uint8_t)NUM2ULL(val), &stream);
         }
@@ -203,6 +211,7 @@ static VALUE putU16(VALUE self, VALUE val)
         if(NUM2ULL(val) <= UINT16_MAX){
 
             struct blink_stream stream;
+            
             (void)BLINK_Stream_initUser(&stream, &self, cUserStream);
             (void)BLINK_Compact_encodeU16((uint16_t)NUM2ULL(val), &stream);
         }
@@ -224,6 +233,7 @@ static VALUE putU32(VALUE self, VALUE val)
         if(NUM2ULL(val) <= UINT32_MAX){
 
             struct blink_stream stream;
+            
             (void)BLINK_Stream_initUser(&stream, &self, cUserStream);
             (void)BLINK_Compact_encodeU32((uint32_t)NUM2ULL(val), &stream);
         }
@@ -242,16 +252,11 @@ static VALUE putU64(VALUE self, VALUE val)
         (void)putNull(self);
     }
     else{
-        if(NUM2ULL(val) <= UINT64_MAX){
-
-            struct blink_stream stream;
-            (void)BLINK_Stream_initUser(&stream, &self, cUserStream);
-            (void)BLINK_Compact_encodeU64(NUM2ULL(val), &stream);
-        }
-        else{
 
-            rb_raise(rb_eRangeError, "Input exceeds allowable range of type");
-        }
+        struct blink_stream stream;
+        
+        (void)BLINK_Stream_initUser(&stream, &self, cUserStream);
+        (void)BLINK_Compact_encodeU64(NUM2ULL(val), &stream);        
     }
     
     return self;
@@ -266,6 +271,7 @@ static VALUE putI8(VALUE self, VALUE val)
         if((NUM2LL(val) >= INT8_MIN) && (NUM2LL(val) <= INT8_MAX)){
 
             struct blink_stream stream;
+            
             (void)BLINK_Stream_initUser(&stream, &self, cUserStream);
             (void)BLINK_Compact_encodeI8((int8_t)NUM2LL(val), &stream);
         }
@@ -287,6 +293,7 @@ static VALUE putI16(VALUE self, VALUE val)
         if((NUM2LL(val) >= INT16_MIN) && (NUM2LL(val) <= INT16_MAX)){
 
             struct blink_stream stream;
+            
             (void)BLINK_Stream_initUser(&stream, &self, cUserStream);
             (void)BLINK_Compact_encodeI16((int16_t)NUM2LL(val), &stream);
         }
@@ -308,6 +315,7 @@ static VALUE putI32(VALUE self, VALUE val)
         if((NUM2LL(val) >= INT32_MIN) && (NUM2LL(val) <= INT32_MAX)){
 
             struct blink_stream stream;
+            
             (void)BLINK_Stream_initUser(&stream, &self, cUserStream);
             (void)BLINK_Compact_encodeI32((int32_t)NUM2LL(val), &stream);
         }
@@ -326,16 +334,10 @@ static VALUE putI64(VALUE self, VALUE val)
     }
     else{
 
-        if((NUM2LL(val) >= INT64_MIN) && (NUM2LL(val) <= INT64_MAX)){
-
-            struct blink_stream stream;
-            (void)BLINK_Stream_initUser(&stream, &self, cUserStream);
-            (void)BLINK_Compact_encodeI64(NUM2LL(val), &stream);
-        }
-        else{
-
-            rb_raise(rb_eRangeError, "Input exceeds allowable range of type");
-        }
+        struct blink_stream stream;
+        
+        (void)BLINK_Stream_initUser(&stream, &self, cUserStream);
+        (void)BLINK_Compact_encodeI64(NUM2LL(val), &stream);        
     }
     return self;
 }
@@ -348,6 +350,7 @@ static VALUE putF64(VALUE self, VALUE val)
     else{
     
         struct blink_stream stream;
+        
         (void)BLINK_Stream_initUser(&stream, &self, cUserStream);
         (void)BLINK_Compact_encodeF64(NUM2DBL(val), &stream);
     }
@@ -363,8 +366,9 @@ static VALUE putBool(VALUE self, VALUE val)
     else{
         
         struct blink_stream stream;
+        
         (void)BLINK_Stream_initUser(&stream, &self, cUserStream);
-        (void)BLINK_Compact_encodeBool((val == Qfalse) ? false : true, &stream);
+        (void)BLINK_Compact_encodeBool(((val == Qfalse) ? false : true), &stream);
     }
     return self;
 }
@@ -372,6 +376,7 @@ static VALUE putBool(VALUE self, VALUE val)
 static VALUE putNull(VALUE self)
 {
     struct blink_stream stream;
+    
     (void)BLINK_Stream_initUser(&stream, &self, cUserStream);
     (void)BLINK_Compact_encodeNull(&stream);
     return self;    
@@ -380,6 +385,7 @@ static VALUE putNull(VALUE self)
 static VALUE putPresent(VALUE self)
 {
     struct blink_stream stream;
+    
     (void)BLINK_Stream_initUser(&stream, &self, cUserStream);
     (void)BLINK_Compact_encodePresent(&stream);
     return self;
@@ -389,6 +395,7 @@ static VALUE putBinary(VALUE self, VALUE val)
 {  
     VALUE retval = Qnil;
     struct blink_stream stream;
+    
     (void)BLINK_Stream_initUser(&stream, &self, cUserStream);
 
     if(val == Qnil){
@@ -428,6 +435,7 @@ static VALUE getU8(VALUE self)
     uint8_t val;
     bool isNull;
     struct blink_stream stream;
+    
     (void)BLINK_Stream_initUser(&stream, &self, cUserStream);
     if(BLINK_Compact_decodeU8(&stream, &val, &isNull)){
 
@@ -447,6 +455,7 @@ static VALUE getU16(VALUE self)
     uint16_t val;
     bool isNull;
     struct blink_stream stream;
+    
     (void)BLINK_Stream_initUser(&stream, &self, cUserStream);
     if(BLINK_Compact_decodeU16(&stream, &val, &isNull)){
 
@@ -465,6 +474,7 @@ static VALUE getU32(VALUE self)
     VALUE retval = Qnil;
     uint32_t val;
     bool isNull;
+    rb_gc_mark(self);
     struct blink_stream stream;
     (void)BLINK_Stream_initUser(&stream, &self, cUserStream);
     if(BLINK_Compact_decodeU32(&stream, &val, &isNull)){
@@ -485,6 +495,7 @@ static VALUE getU64(VALUE self)
     uint64_t val;
     bool isNull;
     struct blink_stream stream;
+    
     (void)BLINK_Stream_initUser(&stream, &self, cUserStream);
     if(BLINK_Compact_decodeU64(&stream, &val, &isNull)){
 
@@ -504,6 +515,7 @@ static VALUE getI8(VALUE self)
     int8_t val;
     bool isNull;
     struct blink_stream stream;
+    
     (void)BLINK_Stream_initUser(&stream, &self, cUserStream);
     if(BLINK_Compact_decodeI8(&stream, &val, &isNull)){
 
@@ -523,6 +535,7 @@ static VALUE getI16(VALUE self)
     int16_t val;
     bool isNull;
     struct blink_stream stream;
+    
     (void)BLINK_Stream_initUser(&stream, &self, cUserStream);
     if(BLINK_Compact_decodeI16(&stream, &val, &isNull)){
 
@@ -542,6 +555,7 @@ static VALUE getI32(VALUE self)
     int32_t val;
     bool isNull;
     struct blink_stream stream;
+    
     (void)BLINK_Stream_initUser(&stream, &self, cUserStream);
     if(BLINK_Compact_decodeI32(&stream, &val, &isNull)){
 
@@ -561,6 +575,7 @@ static VALUE getI64(VALUE self)
     int64_t val;
     bool isNull;
     struct blink_stream stream;
+    
     (void)BLINK_Stream_initUser(&stream, &self, cUserStream);
     if(BLINK_Compact_decodeI64(&stream, &val, &isNull)){
 
@@ -580,6 +595,7 @@ static VALUE getF64(VALUE self)
     double val;
     bool isNull;
     struct blink_stream stream;
+    
     (void)BLINK_Stream_initUser(&stream, &self, cUserStream);
     if(BLINK_Compact_decodeF64(&stream, &val, &isNull)){
 
@@ -598,6 +614,7 @@ static VALUE getPresent(VALUE self)
     VALUE retval = Qnil;
     bool val;
     struct blink_stream stream;
+    
     (void)BLINK_Stream_initUser(&stream, &self, cUserStream);
     if(BLINK_Compact_decodePresent(&stream, &val)){
 
@@ -617,6 +634,8 @@ static VALUE getBool(VALUE self)
     bool val;
     bool isNull;
     struct blink_stream stream;
+    rb_gc_mark(self);
+    
     (void)BLINK_Stream_initUser(&stream, &self, cUserStream);
     if(BLINK_Compact_decodeBool(&stream, &val, &isNull)){
 
@@ -636,6 +655,8 @@ static VALUE getBinary(VALUE self)
     uint32_t size;
     bool isNull;
     struct blink_stream stream;
+    rb_gc_mark(self);
+    
     (void)BLINK_Stream_initUser(&stream, &self, cUserStream);
 
     if(BLINK_Compact_decodeU32(&stream, &size, &isNull)){
@@ -643,6 +664,7 @@ static VALUE getBinary(VALUE self)
         if(!isNull){
 
             retval = rb_funcall(self, rb_intern("read"), 1, UINT2NUM(size));
+            rb_gc_mark(retval);
 
             if((retval == Qnil) || ((uint32_t)NUM2UINT(rb_funcall(retval, rb_intern("size"), 0)) != size)){
 

data/ext/slow_blink/message/ext_compact_encoder/extconf.rb

@@ -1,4 +1,11 @@
 require 'mkmf'
-$CFLAGS += " -std=c99"
-create_makefile('slow_blink/message/ext_compact_encoder')
+
+$srcs = ['ext_compact_encoder.c', 'blink_stream.c', 'blink_compact.c']
+$VPATH << "../../../../ext/slow_blink/message/ext_compact_encoder"
+$INCFLAGS << " -I$(srcdir)/../include"
+$defs << " -DBLINK_DEBUG_INCLUDE=#include <ruby.h>"
+$defs << " -D'BLINK_ERROR(...)=rb_funcall(rb_stderr, rb_intern(\\\"puts\\\"), 1, rb_str_new2(__VA_ARGS__));'"
+$defs << " -D'BLINK_DEBUG(...)=rb_funcall(rb_stderr, rb_intern(\\\"puts\\\"), 1, rb_str_new2(__VA_ARGS__));'"
+
+create_makefile('slow_blink/message/ext_compact_encoder', "../../../../assets/ublink/src")
 

data/lib/slow_blink/enum.rb

@@ -38,7 +38,8 @@ module SlowBlink
         # @private
         def initialize(attr)
 
-            @location = attr[:loc]
+            super(attr)
+
             @symbols = {}
             @name = attr[:name].dup.freeze
 
@@ -90,10 +91,12 @@ module SlowBlink
                 if (result = @symbols[nameOrVal]).nil?
                     raise RangeError
                 end
+                result
             else
                 if (result = @symbols.values.detect{|s|s.value == nameOrVal.to_i}).nil?
                     raise RangeError
                 end
+                result
             end
         end
 

data/lib/slow_blink/field.rb

@@ -93,7 +93,7 @@ module SlowBlink
         def initialize(attr)        
             @name = attr[:name][:name].freeze
             @id = attr[:name][:id]
-            @optional = attr[:opt]
+            @optional = (attr[:optional] ? true : false)
             @location = attr[:location].freeze
             @type = SlowBlink.const_get(attr[:type][:class]).new(attr[:type].merge({:table => attr[:table], :ns => attr[:ns]}))
             @table = attr[:table]

data/lib/slow_blink/generate_c/model.rb

@@ -14,17 +14,57 @@ module SlowBlink
                 @options = {}
             end
 
-            def render
-                header = put("groups.h.erb")
-                source = put("groups.c.erb")
+            def generate(prefix)
 
-                File.write("groups.h", header)
-                File.write("groups.c", source)
-            end            
+                `mkdir -p #{prefix}`
+                `rm -fr #{File.join(prefix, "*")}`
+
+                header = run_erb("include/groups.h.erb")
+                source = run_erb("src/groups.c.erb")
+
+                tc_new = run_erb("test/tc_new.c.erb")
+                tc_decodecompact = run_erb("test/tc_decodecompact.c.erb")
+                
+                testMake = run_erb("test/makefile.erb")
+                
+                `mkdir #{File.join(prefix, "src")}`
+                `mkdir #{File.join(prefix, "include")}`
+                `mkdir #{File.join(prefix, "test")}`
+                `mkdir #{File.join(prefix, "test", "build")}`
+                `mkdir #{File.join(prefix, "test", "bin")}`
+                `mkdir #{File.join(prefix, "vendor")}`
+                `mkdir #{File.join(prefix, "vendor", "cmocka")}`
+
+                assetsDir = File.expand_path(File.join(File.dirname(__FILE__), "../../../assets"))
+
+                `cp #{assetsDir}/ublink/src/blink_stream.c #{prefix}/src`
+                `cp #{assetsDir}/ublink/src/blink_compact.c #{prefix}/src`
+                
+                `cp #{assetsDir}/ublink/include/blink_stream.h #{prefix}/include`
+                `cp #{assetsDir}/ublink/include/blink_compact.h #{prefix}/include`
+
+                `cp #{assetsDir}/ublink/include/blink_debug.h #{prefix}/include`
+
+                `cp -r #{assetsDir}/cmocka/src #{prefix}/vendor/cmocka/`
+                `cp -r #{assetsDir}/cmocka/include #{prefix}/vendor/cmocka/`
+                `cp #{assetsDir}/cmocka/COPYING #{prefix}/vendor/cmocka/`
+                
+
+                File.open("#{prefix}/include/groups.h", "w"){|f|f.write(header)}
+                File.open("#{prefix}/src/groups.c", "w"){|f|f.write(source)}
+
+                File.open("#{prefix}/test/tc_new.c", "w"){|f|f.write(tc_new)}
+                File.open("#{prefix}/test/tc_decodecompact.c", "w"){|f|f.write(tc_decodecompact)}
+                
+                File.open("#{prefix}/test/makefile", "w"){|f|f.write(testMake)}
+
+                puts `cd #{prefix}/test && make`
+
+            end
 
             private
 
-                def put(filename)
+                def run_erb(filename)
                     f = File.read(File.expand_path(File.join(File.dirname(__FILE__), filename)))
                     erb = ERB.new(f, nil, "<>-")
                     erb.filename = filename
@@ -39,13 +79,82 @@ module SlowBlink
                     "_#{f.name}"
                 end
 
+                def fvalue(f)
+                    if f.type.sequence?
+                        "#{fname(f)}.tail->value"
+                    else
+                        "#{fname(f)}.value"
+                    end
+                end
+
+                def testSignature(g, f)
+                    "bool #{gname(g)}_test_#{f.name}(group_t group)"
+                end
+
+                def clearSignature(g, f)
+                    "void #{gname(g)}_clear_#{f.name}(group_t group)"
+                end
+
+                def setSignature(g, f)
+                    out = "bool #{}_#{gname(g)}_set_#{f.name}(group_t group, "
+                    case f.type.class
+                    when STRING
+                        out << "const char *data, uint32_t len"
+                    when BINARY, FIXED
+                        out << "const uint8_t *data, uint32_t len"                    
+                    when DECIMAL
+                        out << "int64_t mantissa, int8_t exponent"
+                    when ENUM
+                        out << "const char *value"
+                    else
+                        out << "#{value_type(f.type)} value"
+                    end
+                    out << ")"
+                end
+
+                def getSignature(g, f)
+                    out = ""
+                    case f.type.class
+                    when STRING, BINARY, FIXED, DECIMAL
+                        out << "void"
+                    when ENUM
+                        out << "const char *"
+                    else
+                        out << value_type(f.type)
+                    end
+                    out << " #{gname(g)}_get_#{f.name}(group_t group"
+                    case f.type.class
+                    when STRING
+                        out << ", const char **data, uint32_t *len"
+                    when BINARY, FIXED
+                        out << ", const uint8_t **data, uint32_t *len"
+                    when DECIMAL
+                        out << ", int64_t *mantissa, int8_t *exponent"
+                    end
+                    out << ")"
+                end
+
+                def appendSignature(g,f)
+                    setSignature(g,f).sub("_get_","_append_")
+                end
+
+                def getResult(f)
+                    out = ""
+                    case f.type.class
+                    when STRING, BINARY, FIXED, DECIMAL
+                        out << "void"
+                    else
+                        out << value_type(f.type)
+                    end                    
+                end
+
                 def value_type(type)
 
                     out = ""
 
                     case type.class
                     when BINARY, STRING, FIXED
-                        out << "struct blink_string"
+                        out << "struct string"
                     when U8
                         out << "uint8_t"                
                     when U16
@@ -58,16 +167,14 @@ module SlowBlink
                         out << "int8_t"                
                     when I16
                         out << "int16_t"                
-                    when I32
+                    when I32, ENUM
                         out << "int32_t"                
                     when I64
                         out << "int64_t"
-                    when ENUM
-                        out << "const char *"
                     when FLOATING_POINT
                         out << "double"                
                     when DECIMAL
-                        out << "struct blink_decimal"
+                        out << "struct decimal"
                     when BOOLEAN
                         out << "bool"                    
                     when StaticGroup

data/lib/slow_blink/message/binary.rb

@@ -24,8 +24,12 @@ module SlowBlink::Message
     # @abstract
     class BINARY
 
+        def self.type
+            @type
+        end
+
         # @private
-        def self.from_compact(input, stack)
+        def self.from_compact(input, depth)
             if value = input.getBinary
                 if !@size or value.size <= @size
                     self.new(value)
@@ -73,6 +77,10 @@ module SlowBlink::Message
             out.putBinary(@value)
         end
 
+        def to_tag
+            @value.bytes.map{ |c| sprintf("\\x%02X",c) }.join
+        end
+
     end
 
 end

data/lib/slow_blink/message/boolean.rb

@@ -24,9 +24,14 @@ module SlowBlink::Message
     # @abstract
     class BOOLEAN
 
+        def self.type
+            @type
+        end
+
         # @private
-        def self.from_compact(input, stack)
-            if value = input.getBool
+        def self.from_compact(input, depth)
+            value = input.getBool
+            if !value.nil?
                 self.new(value)
             else
                 nil
@@ -51,13 +56,17 @@ module SlowBlink::Message
 
         # @note calls {#set}(value)
         def initialize(value)
-            set(value)                
+            set(value)
         end
 
         # @private
         def to_compact(out)
             out.putBool(@value)
         end
+
+        def to_tag
+            ( @value ? "Y" : "N" )
+        end
         
     end
 

data/lib/slow_blink/message/date.rb

@@ -24,8 +24,12 @@ module SlowBlink::Message
     # @abstract
     class DATE
 
+        def self.type
+            @type
+        end
+
         # @private
-        def self.from_compact(input, stack)
+        def self.from_compact(input, depth)
             if value = input.getI32
                 self.new(value)
             else
@@ -49,6 +53,10 @@ module SlowBlink::Message
         def to_compact(out)
             out.putI32(@value.strftime('%Q'))            
         end
+
+        def to_tag
+            @value.to_s
+        end
         
     end
 

data/lib/slow_blink/message/decimal.rb

@@ -26,8 +26,12 @@ module SlowBlink::Message
     # @abstract
     class DECIMAL
 
+        def self.type
+            @type
+        end
+
         # @private
-        def self.from_compact(input, stack)
+        def self.from_compact(input, depth)
             if e = input.getI8
                 if m = input.getI64
                     self.new("#{m}E#{e}")                    
@@ -68,6 +72,10 @@ module SlowBlink::Message
             out.putI64(mantissa)
 
         end
+
+        def to_tag
+            @value.to_s
+        end
     
     end