Add opcodes 0x4b (BININT1), 0x86 (TUPLE2) and 0x61 (APPEND)

pyr · Aug 24, 2015 · e42197c · e42197c
1 parent 493cd0d
commit e42197c
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/src/pickler/parser.clj b/src/pickler/parser.clj
@@ -77,6 +77,11 @@
   (let [val (bit-and (.getInt bb) 0xffffffff)]
     {:type :int :val val}))
 
+(defmethod opcode 0x4b
+  [_ bb]
+  (let [val (bit-and (-> bb .get .byteValue) 0xff)]
+    {:type :int :val val}))
+
 (defmethod opcode 0x47
   [_ bb]
   (.order bb ByteOrder/BIG_ENDIAN)
@@ -88,6 +93,14 @@
   [_ bb]
   {:type :tuple})
 
+(defmethod opcode 0x86
+  [_ bb]
+  {:type :tuple})
+
+(defmethod opcode 0x61
+  [_ bb]
+  {:type :append})
+
 (defmethod opcode 0x65
   [_ bb]
   {:type :append})