Serialization of (non-inlined) P6int/P6num/P6str.

jnthn · Mar 9, 2013 · f5c98f8 · f5c98f8
1 parent ffbaa3b
commit f5c98f8
Show file tree

Hide file tree

Showing 3 changed files with 16 additions and 0 deletions.
diff --git a/src/org/perl6/nqp/sixmodel/reprs/P6int.java b/src/org/perl6/nqp/sixmodel/reprs/P6int.java
@@ -10,10 +10,12 @@
 import org.apache.bcel.generic.InstructionList;
 import org.apache.bcel.generic.MethodGen;
 import org.apache.bcel.generic.Type;
+import org.perl6.nqp.runtime.ExceptionHandling;
 import org.perl6.nqp.runtime.ThreadContext;
 import org.perl6.nqp.sixmodel.REPR;
 import org.perl6.nqp.sixmodel.STable;
 import org.perl6.nqp.sixmodel.SerializationReader;
+import org.perl6.nqp.sixmodel.SerializationWriter;
 import org.perl6.nqp.sixmodel.SixModelObject;
 import org.perl6.nqp.sixmodel.StorageSpec;
 import org.perl6.nqp.sixmodel.TypeObject;
@@ -115,6 +117,10 @@ public void deserialize_finish(ThreadContext tc, STable st,
 		((P6intInstance)obj).value = reader.readLong();
 	}
 
+	public void serialize(ThreadContext tc, SerializationWriter writer, SixModelObject obj) {
+    	writer.writeInt(((P6intInstance)obj).value);
+    }
+
 	public void deserialize_inlined(ThreadContext tc, STable st, SerializationReader reader,
 			String prefix, SixModelObject obj) {
 		try {

diff --git a/src/org/perl6/nqp/sixmodel/reprs/P6num.java b/src/org/perl6/nqp/sixmodel/reprs/P6num.java
@@ -14,6 +14,7 @@
 import org.perl6.nqp.sixmodel.REPR;
 import org.perl6.nqp.sixmodel.STable;
 import org.perl6.nqp.sixmodel.SerializationReader;
+import org.perl6.nqp.sixmodel.SerializationWriter;
 import org.perl6.nqp.sixmodel.SixModelObject;
 import org.perl6.nqp.sixmodel.StorageSpec;
 import org.perl6.nqp.sixmodel.TypeObject;
@@ -116,6 +117,10 @@ public void deserialize_finish(ThreadContext tc, STable st,
 		((P6numInstance)obj).value = reader.readDouble();
 	}
 
+	public void serialize(ThreadContext tc, SerializationWriter writer, SixModelObject obj) {
+    	writer.writeNum(((P6numInstance)obj).value);
+    }
+
 	public void deserialize_inlined(ThreadContext tc, STable st, SerializationReader reader,
 			String prefix, SixModelObject obj) {
 		try {

diff --git a/src/org/perl6/nqp/sixmodel/reprs/P6str.java b/src/org/perl6/nqp/sixmodel/reprs/P6str.java
@@ -14,6 +14,7 @@
 import org.perl6.nqp.sixmodel.REPR;
 import org.perl6.nqp.sixmodel.STable;
 import org.perl6.nqp.sixmodel.SerializationReader;
+import org.perl6.nqp.sixmodel.SerializationWriter;
 import org.perl6.nqp.sixmodel.SixModelObject;
 import org.perl6.nqp.sixmodel.StorageSpec;
 import org.perl6.nqp.sixmodel.TypeObject;
@@ -115,6 +116,10 @@ public void deserialize_finish(ThreadContext tc, STable st,
 		((P6strInstance)obj).value = reader.readStr();
 	}
 
+	public void serialize(ThreadContext tc, SerializationWriter writer, SixModelObject obj) {
+    	writer.writeStr(((P6strInstance)obj).value);
+    }
+
 	public void deserialize_inlined(ThreadContext tc, STable st, SerializationReader reader,
 			String prefix, SixModelObject obj) {
 		try {