1
package org.perl6.nqp.sixmodel.reprs;
3
import org.perl6.nqp.sixmodel.REPR;
4
import org.perl6.nqp.sixmodel.SerializationReader;
5
import org.perl6.nqp.sixmodel.SixModelObject;
6
import org.perl6.nqp.sixmodel.STable;
7
import org.perl6.nqp.sixmodel.TypeObject;
8
import org.perl6.nqp.runtime.ExceptionHandling;
9
import org.perl6.nqp.runtime.ThreadContext;
12
public class CStr extends REPR {
13
public SixModelObject type_object_for(ThreadContext tc, SixModelObject HOW) {
14
STable st = new STable(this, HOW);
15
st.REPRData = null; /* No REPR data needed. */
16
SixModelObject obj = new TypeObject();
22
public SixModelObject allocate(ThreadContext tc, STable st) {
23
SixModelObject obj = new CStrInstance();
28
public SixModelObject deserialize_stub(ThreadContext tc, STable st) {
29
/* This REPR can't be serialized. */
30
ExceptionHandling.dieInternal(tc, "Can't deserialize_stub a CStr object.");
35
public void deserialize_finish(ThreadContext tc, STable st, SerializationReader reader, SixModelObject obj) {
36
ExceptionHandling.dieInternal(tc, "Can't deserialize_finish a CStr object.");