|
10 | 10 | import org.perl6.nqp.sixmodel.REPR;
|
11 | 11 | import org.perl6.nqp.sixmodel.STable;
|
12 | 12 | import org.perl6.nqp.sixmodel.SerializationReader;
|
| 13 | +import org.perl6.nqp.sixmodel.SerializationWriter; |
13 | 14 | import org.perl6.nqp.sixmodel.SixModelObject;
|
14 | 15 | import org.perl6.nqp.sixmodel.StorageSpec;
|
15 | 16 | import org.perl6.nqp.sixmodel.TypeObject;
|
@@ -102,4 +103,22 @@ public void deserialize_finish(ThreadContext tc, STable st,
|
102 | 103 | SerializationReader reader, SixModelObject obj) {
|
103 | 104 | throw new RuntimeException("Deserialization NYI for P6bigint");
|
104 | 105 | }
|
| 106 | + |
| 107 | + public void deserialize_inlined(ThreadContext tc, STable st, SerializationReader reader, |
| 108 | + String prefix, SixModelObject obj) { |
| 109 | + try { |
| 110 | + obj.getClass().getField(prefix).set(obj, new BigInteger(reader.readStr())); |
| 111 | + } catch (Exception e) { |
| 112 | + throw new RuntimeException(e); |
| 113 | + } |
| 114 | + } |
| 115 | + |
| 116 | + public void serialize_inlined(ThreadContext tc, STable st, SerializationWriter writer, |
| 117 | + String prefix, SixModelObject obj) { |
| 118 | + try { |
| 119 | + writer.writeStr(obj.getClass().getField(prefix).get(obj).toString()); |
| 120 | + } catch (Exception e) { |
| 121 | + throw new RuntimeException(e); |
| 122 | + } |
| 123 | + } |
105 | 124 | }
|
0 commit comments