slow_blink 0.0.5 → 0.0.6

data/lib/slow_blink/message/model.rb

@@ -1,43 +1,108 @@
-# Copyright (c) 2016 Cameron Harper
+# @license
+#   
+#   Copyright (c) 2016 Cameron Harper
+#    
+#   Permission is hereby granted, free of charge, to any person obtaining a copy of
+#   this software and associated documentation files (the "Software"), to deal in
+#   the Software without restriction, including without limitation the rights to
+#   use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
+#   the Software, and to permit persons to whom the Software is furnished to do so,
+#   subject to the following conditions:
+#   
+#   The above copyright notice and this permission notice shall be included in all
+#   copies or substantial portions of the Software.
 # 
-# Permission is hereby granted, free of charge, to any person obtaining a copy of
-# this software and associated documentation files (the "Software"), to deal in
-# the Software without restriction, including without limitation the rights to
-# use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
-# the Software, and to permit persons to whom the Software is furnished to do so,
-# subject to the following conditions:
-#  
-# The above copyright notice and this permission notice shall be included in all
-# copies or substantial portions of the Software.
-# 
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
-# FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
-# COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
-# IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
-# CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+#   THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+#   IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
+#   FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
+#   COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
+#   IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+#   CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 module SlowBlink
 
     # This module is concerned with generating models from Schema that are optimised for encoding/decoding and enforcing constraints
     module Message
 
-        class Error < StandardError
+        # Trying to encode a group which has one or more uninitialised non-optional fields
+        class IncompleteGroup < EncodingError
+        end
+
+        # Trying to encode a group which does not have an ID
+        class UntaggedGroup < EncodingError
+        end
+
+        # Trying decode a message that has more than {Model#maxRecursion} levels of nesting
+        class RecursionLimit < EncodingError
+        end
+
+        # extra bytes exist after sequence of extension groups but before end of container group
+        class ExtensionPadding < EncodingError
+        end
+
+        # exponent is not null but mantissa is
+        class NullMantissa < EncodingError
+        end
+
+        # Blink Specification: strong (encoding) errors are caused by constraints that *must* be checked
+        class StrongError < EncodingError
+        end
+
+        # Blink Specification: weak (encoding) errors are caused by constraints that *may* be checked
+        class WeakError < EncodingError
+        end
+
+        class StrongError1 < StrongError
+        end
+        
+        class WeakError1 < WeakError
+        end
+        class WeakError2 < WeakError            
+        end
+        class WeakError3 < WeakError
+        end
+        class WeakError4 < WeakError
+        end
+        class WeakError5 < WeakError
+        end
+        class WeakError6 < WeakError
+        end
+        class WeakError7 < WeakError
+        end
+        class WeakError8 < WeakError
+        end
+        class WeakError9 < WeakError
+        end
+        class WeakError10 < WeakError
+        end
+        class WeakError11 < WeakError
+        end
+        class WeakError12 < WeakError
+        end
+        class WeakError13 < WeakError
+        end
+        class WeakError14 < WeakError
+        end
+        class WeakError15 < WeakError
         end
 
+        # Use Model to create message models from a {Schema}
         class Model
 
             # the maximum level of nesting in messages able to be decoded by models
             DEFAULT_MAX_RECURSION = 100
 
+            # @return [Integer]
+            attr_reader :maxRecursion
+
             # @api user
             #
-            # Create a Model from a {Schema}
+            # Generate a Model from a {Schema}
             #
             # @param schema [SlowBlink::Schema]
-            # @param opts [Hash]
+            # @param opts [Hash] options
             #
-            # @option opts [Symbol] :maxRecursion
+            # @option opts [Integer] :maxRecursion
             #
             def initialize(schema, **opts)
 
@@ -62,16 +127,16 @@ module SlowBlink
                 extensionObject = @extensionObject
                 
                 schema.groups.each do |name, g|
-                    this = self
+                    fields = {}
+                    g.fields.each do |f|
+                        fields[f.nameWithID.name] = _model_field(f)
+                    end                    
                     @groups[name] = Class.new(Group) do
                         @extensionObject = extensionObject
                         @maxRecursion = maxRecursion
                         @name = g.nameWithID.name
                         @id = g.nameWithID.id
-                        @fields = {}
-                        g.fields.each do |f|
-                            @fields[f.nameWithID.name] = this._model_field(f)
-                        end                   
+                        @fields = fields                    
                     end
                     if g.nameWithID.id
                         @taggedGroups[g.nameWithID.id] = @groups[name]
@@ -83,137 +148,138 @@ module SlowBlink
 
             # @api user
             #
-            # Initialise a message model instance with a compact form string
-            #
-            # @note return value will be an *anonymous* *subclass* *instance* of {Group}
-            #
+            # Initialise a {Group} from a compact form string
             # @param input [String] Blink Protocol compact form
-            # @return [Group] group instance
-            #
+            # @return [Group] anonymous subclass instance of Group
+            # @raise [WeakError,StrongError]
+            # @raise [RecursionLimit]
+            # @raise []
             def decode_compact(input)
                 stack = []
                 inputSize = input.size
                 buf = input.getBinary!
                 if buf.size > 0
                     id = buf.getU64!
-                    groupClass = @taggedGroups[id]
-                    begin
-                        if groupClass                        
-                            group = groupClass.from_compact!(buf, stack)                        
-                        else
-                            raise Error.new "W2: Group id #{group.id} is unknown"
-                        end
-                    rescue Error => ex
-                        puts ex
-                        puts "encountered at offset #{inputSize - input.size}"
-                        puts stack.last.name
-                        raise
-                    end
+                    groupClass = @taggedGroups[id]                    
+                    if groupClass                        
+                        group = groupClass.from_compact!(buf, stack)                        
+                    else
+                        raise WeakError2.new "W2: Group id #{group.id} is unknown"
+                    end                    
                 else
-                    raise Error.new "W1: Top level group cannot be null "                    
+                    raise WeakError1.new "W1: Top level group cannot be null"
                 end
             end
 
             # @api user
             #
-            # Get a group model
+            # Get a {Group} by name
             #
             # @param name [String] name of group (may be qualified)
-            # @return [Class] {DynamicGroup} or {Group}
-            # @return [nil] group not defined
-            #
+            # @return [Group] anonymous subclass of Group
+            # @raise [RangeError] unknown group
             def group(name)
-                @groups[name]            
-            end
-
-            # @api private
-            #
-            # Create a model for a Field
-            #
-            # @param field [SlowBlink::Field] field definition
-            # @return [Class] anonymous subclass of {Field}
-            def _model_field(field)
-                this = self
-                Class.new(Field) do
-                    @opt = field.opt?
-                    @name = field.nameWithID.name
-                    @id = field.nameWithID.id
-                    @type = this._model_type(field.type, field.opt?)
+                group = @groups[name]
+                if group
+                    group
+                else
+                    raise RangeError.new "group '#{name}' is unknown"
                 end                
             end
 
-            # @api private
-            #
-            # Create a model for a type
-            #
-            # @param type [SlowBlink::Type] type definition
-            # @param opt  [true,false] parent definition may allow this type to be optional
-            #
-            #            
-            def _model_type(type, opt)
-                this = self
-                extensionObject = @extensionObject
-                maxRecursion = @maxRecursion
-                case type.class
-                when SlowBlink::OBJECT
-                    groups = @groups
-                    taggedGroups = @taggedGroups
-                    permitted = @taggedGroups.keys
-                    Class.new(DynamicGroup) do
-                        @extensionObject = extensionObject
-                        @maxRecursion = maxRecursion
-                        @opt = opt
-                        @groups = groups
-                        @taggedGroups = taggedGroups
-                        @permitted = permitted                        
-                    end                     
-                when SlowBlink::REF
-                    if type.ref.kind_of? SlowBlink::Group
-                        if type.dynamic?
-                            taggedGroups = @taggedGroups
-                            groups = @groups
-                            permitted = @taggedGroups.keys
-                            @schema.tagged.each do |id, g|
-                                if g.group_kind_of?(type)
-                                    permitted << id
+            private
+
+                # Create a model for a Field
+                #
+                # @param field [SlowBlink::Field] field definition
+                # @return [Class] anonymous subclass of {Field}
+                def _model_field(field)
+                    type = _model_type(field.type, field.opt?)
+                    Class.new(Field) do
+                        @opt = field.opt?
+                        @name = field.nameWithID.name
+                        @id = field.nameWithID.id
+                        @type = type
+                    end                
+                end
+
+                # Create a model for a type
+                #
+                # @param type [SlowBlink::Type] type definition
+                # @param opt  [true,false] parent definition may allow this type to be optional
+                def _model_type(type, opt)
+                    extensionObject = @extensionObject
+                    maxRecursion = @maxRecursion
+                    case type.class
+                    when SlowBlink::OBJECT
+                        groups = @groups
+                        taggedGroups = @taggedGroups
+                        permitted = @taggedGroups.keys
+                        Class.new(DynamicGroup) do
+                            @extensionObject = extensionObject
+                            @maxRecursion = maxRecursion
+                            @opt = opt
+                            @groups = groups
+                            @taggedGroups = taggedGroups
+                            @permitted = permitted                        
+                        end                     
+                    when SlowBlink::REF
+                        if type.ref.kind_of? SlowBlink::Group
+                            if type.dynamic?
+                                taggedGroups = @taggedGroups
+                                groups = @groups
+                                permitted = @taggedGroups.keys
+                                @schema.tagged.each do |id, g|
+                                    if g.group_kind_of?(type)
+                                        permitted << id
+                                    end
                                 end
-                            end
-                            Class.new(DynamicGroup) do
-                                @extensionObject = extensionObject
-                                @maxRecursion = maxRecursion
-                                @opt = opt
-                                @taggedGroups = taggedGroups
-                                @groups = groups
-                                @permitted = permitted
-                            end                               
-                        else
-                            Class.new(StaticGroup) do
-                                @extensionObject = extensionObject
-                                @maxRecursion = maxRecursion
-                                @name = type.ref.nameWithID.name
-                                @id = nil
-                                @opt = opt
-                                @fields = {}
+                                Class.new(DynamicGroup) do
+                                    @extensionObject = extensionObject
+                                    @maxRecursion = maxRecursion
+                                    @opt = opt
+                                    @taggedGroups = taggedGroups
+                                    @groups = groups
+                                    @permitted = permitted
+                                end                               
+                            else
+                                fields = {}
                                 type.ref.fields.each do |f|
-                                    @fields[f.nameWithID.name] = this._model_field(f)
+                                    fields[f.nameWithID.name] = _model_field(f)
                                 end                                                            
-                            end                                                   
+                                Class.new(StaticGroup) do
+                                    @extensionObject = extensionObject
+                                    @maxRecursion = maxRecursion
+                                    @name = type.ref.nameWithID.name
+                                    @id = nil
+                                    @opt = opt
+                                    @fields = fields                                
+                                end                                                   
+                            end
+                        else
+                            _model_type(type.ref, false)
+                        end
+                    when SlowBlink::SEQUENCE
+                        t = _model_type(type.type, false)
+                        Class.new(SEQUENCE) do
+                            @maxRecursion = maxRecursion
+                            @type = t
                         end
+                    when SlowBlink::ENUMERATION
+                        symbols = {}
+                        type.symbols.each do |n,v|
+                            symbols[n] = v.val
+                        end
+                        Class.new(ENUMERATION) do
+                            @symbols = symbols
+                        end                        
                     else
-                        _model_type(type.ref)
+                        Class.new(SlowBlink::Message.const_get(type.class.name.split('::').last)) do
+                            @opt = opt
+                            @type = type                                        
+                        end                    
                     end
-                when SlowBlink::SEQUENCE
-                    Class.new(SEQUENCE) do
-                        @maxRecursion = maxRecursion
-                        @type = this._model_type(type.type, false)
-                    end                    
-                else
-                    Class.new(SlowBlink::Message.const_get(type.class.name.split('::').last)) do
-                        @opt = opt
-                        @type = type                                        
-                    end                    
                 end
-            end
 
         end
 

data/lib/slow_blink/message/sequence.rb

@@ -1,57 +1,63 @@
-# Copyright (c) 2016 Cameron Harper
+# @license
+#   
+#   Copyright (c) 2016 Cameron Harper
+#    
+#   Permission is hereby granted, free of charge, to any person obtaining a copy of
+#   this software and associated documentation files (the "Software"), to deal in
+#   the Software without restriction, including without limitation the rights to
+#   use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
+#   the Software, and to permit persons to whom the Software is furnished to do so,
+#   subject to the following conditions:
+#   
+#   The above copyright notice and this permission notice shall be included in all
+#   copies or substantial portions of the Software.
 # 
-# Permission is hereby granted, free of charge, to any person obtaining a copy of
-# this software and associated documentation files (the "Software"), to deal in
-# the Software without restriction, including without limitation the rights to
-# use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
-# the Software, and to permit persons to whom the Software is furnished to do so,
-# subject to the following conditions:
-#  
-# The above copyright notice and this permission notice shall be included in all
-# copies or substantial portions of the Software.
-# 
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
-# FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
-# COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
-# IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
-# CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+#   THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+#   IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
+#   FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
+#   COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
+#   IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+#   CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 module SlowBlink::Message
 
+    # @abstract
     class SEQUENCE
 
         # @return the type that repeats in this SEQUENCE
         def self.type
             @type
         end
-            
+
+        # @private
         def self.from_compact!(input, stack)
 
             if stack.size < @maxRecursion
                 stack << self
             else
-                raise Error.new "stack limit"
+                raise RecursionLimit
             end
         
             value = []
             size = input.getU32!
             if size
-                while out.size < size do
+                while value.size < size do
                     value << @type.from_compact!(input, stack)
                 end
-                self.new(value)
+                result = self.new(value)
             else
-                nil
+                result = nil
             end
 
             stack.pop
-            
+
+            result
+                
         end
 
         # @return [Array]
         def get
-            @value
+            @value.map{|v|v.get}
         end
 
         # Set value of a SEQUENCE
@@ -59,7 +65,6 @@ module SlowBlink::Message
         # @param value [Array]
         # @raise [TypeError]
         # @raise [RangeError]
-        #
         def set(value)
             @value = []
             if value.kind_of? Array
@@ -80,6 +85,7 @@ module SlowBlink::Message
             set(value)            
         end
 
+        # @private
         def to_compact(out)
             out.putU32(@value.size)
             @value.each do |value|                                

data/lib/slow_blink/message/string.rb

@@ -1,33 +1,37 @@
-# Copyright (c) 2016 Cameron Harper
+# @license
+#   
+#   Copyright (c) 2016 Cameron Harper
+#    
+#   Permission is hereby granted, free of charge, to any person obtaining a copy of
+#   this software and associated documentation files (the "Software"), to deal in
+#   the Software without restriction, including without limitation the rights to
+#   use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
+#   the Software, and to permit persons to whom the Software is furnished to do so,
+#   subject to the following conditions:
+#   
+#   The above copyright notice and this permission notice shall be included in all
+#   copies or substantial portions of the Software.
 # 
-# Permission is hereby granted, free of charge, to any person obtaining a copy of
-# this software and associated documentation files (the "Software"), to deal in
-# the Software without restriction, including without limitation the rights to
-# use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
-# the Software, and to permit persons to whom the Software is furnished to do so,
-# subject to the following conditions:
-#  
-# The above copyright notice and this permission notice shall be included in all
-# copies or substantial portions of the Software.
-# 
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
-# FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
-# COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
-# IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
-# CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+#   THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+#   IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
+#   FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
+#   COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
+#   IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+#   CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 module SlowBlink::Message
 
+    # @abstract
     class STRING
 
+        # @private
         def self.from_compact!(input, stack)
             value = input.getString!
             if value
                 if !@type.size or value.size <= @type.size
                     self.new(value)
                 else
-                    raise Error.new "W7: String value exceeds maximum size"
+                    raise WeakError7.new "W7: String value exceeds maximum size"
                 end
             else
                 value
@@ -65,6 +69,7 @@ module SlowBlink::Message
             set(value)
         end
 
+        # @private
         def to_compact(out)
             out.putString(@value)
         end

data/lib/slow_blink/message/time.rb

@@ -1,28 +1,31 @@
-# Copyright (c) 2016 Cameron Harper
+# @license
+#   
+#   Copyright (c) 2016 Cameron Harper
+#   
+#   Permission is hereby granted, free of charge, to any person obtaining a copy of
+#   this software and associated documentation files (the "Software"), to deal in
+#   the Software without restriction, including without limitation the rights to
+#   use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
+#   the Software, and to permit persons to whom the Software is furnished to do so,
+#   subject to the following conditions:
+#   
+#   The above copyright notice and this permission notice shall be included in all
+#   copies or substantial portions of the Software.
 # 
-# Permission is hereby granted, free of charge, to any person obtaining a copy of
-# this software and associated documentation files (the "Software"), to deal in
-# the Software without restriction, including without limitation the rights to
-# use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
-# the Software, and to permit persons to whom the Software is furnished to do so,
-# subject to the following conditions:
-#  
-# The above copyright notice and this permission notice shall be included in all
-# copies or substantial portions of the Software.
-# 
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
-# FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
-# COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
-# IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
-# CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-
+#   THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+#   IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
+#   FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
+#   COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
+#   IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+#   CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 require 'time'
 
 module SlowBlink::Message
 
+    # @abstract
     class MILLI_TIME
 
+        # @private
         def self.from_compact!(input, stack)
             value = input.getI64!
             if value
@@ -52,7 +55,7 @@ module SlowBlink::Message
             elsif value.kind_of? String
                 @value = DateTime.parse(value)
             elsif value.kind_of? Integer
-                @value = DateTime.new(value)
+                @value = DateTime.strptime(value.to_s, '%Q')
             else
                 raise TypeError
             end                        
@@ -63,17 +66,15 @@ module SlowBlink::Message
             set(value)            
         end
 
+        # @private
         def to_compact(out)
-            out.putI64(@value.strftime('%Q'))            
+            out.putI64(@value.strftime('%Q').to_i)            
         end
     
     end
 
+    # @abstract
     class NANO_TIME < MILLI_TIME
-        
-        def to_compact(out)
-            out.putI64(@value.strftime('%N'))
-        end
 
         # @overload set(value)
         #   Set a nanosecond resolution time value
@@ -90,11 +91,16 @@ module SlowBlink::Message
             elsif value.kind_of? String
                 @value = DateTime.parse(value)
             elsif value.kind_of? Integer
-                @value = DateTime.new(value)
+                @value = DateTime.strptime(value.to_s, '%N')
             else
                 raise TypeError
             end                        
         end
+
+        # @private
+        def to_compact(out)
+            out.putI64(@value.strftime('%N').to_i)
+        end
         
     end