Examples of org.perl6.nqp.sixmodel.SixModelObject

org.perl6.nqp.sixmodel.SixModelObject
All 6model objects derive from this base class. A bunch of the REPR API methods are also implemented through here. This is not the way that 6model implementions in, say, C are factored. The spread of the REPR API over REPR function tables and here is because this way is a better fit and stands a better chance of performing well with the way the JVM does things.

import org.perl6.nqp.sixmodel.TypeObject;


public class Semaphore extends REPR {
    public SixModelObject type_object_for(ThreadContext tc, SixModelObject HOW) {
        STable st = new STable(this, HOW);
        SixModelObject obj = new TypeObject();
        obj.st = st;
        st.WHAT = obj;
        return st.WHAT;
    }

View Full Code Here

        throw new RuntimeException("No such attribute '" + name + "' for this object");
    }
    
    public final SixModelObject autoViv(int slot, ThreadContext tc) {
        P6OpaqueREPRData rd = (P6OpaqueREPRData)this.st.REPRData;
        SixModelObject av = rd.autoVivContainers[slot];
        if (av instanceof TypeObject)
            return av;
        else
            return av.clone(tc);
    }

View Full Code Here

            return av.clone(tc);
    }
    
    public SixModelObject clone(ThreadContext tc) {
        try {
            SixModelObject cloned;
            if (this.delegate != null)
                cloned = this.delegate.clone(tc);
            else
                cloned = (SixModelObject)this.clone();
            cloned.sc = null;

View Full Code Here

                argTup[numArgs++] = MD_CACHE_STR;
                break;
            case CallSiteDescriptor.ARG_OBJ:
                if (numArgs >= MD_CACHE_MAX_ARITY)
                    return;
                SixModelObject decont = Ops.decont((SixModelObject)args[i], tc);
                long flag = ((long)decont.st.hashCode()) << 1;
                if (!(decont instanceof TypeObject))
                    flag |= 1;
                argTup[numArgs++] = flag;
                break;

View Full Code Here

                argTup[numArgs++] = MD_CACHE_STR;
                break;
            case CallSiteDescriptor.ARG_OBJ:
                if (numArgs >= MD_CACHE_MAX_ARITY)
                    return null;
                SixModelObject decont = Ops.decont((SixModelObject)args[i], tc);
                long flag = ((long)decont.st.hashCode()) << 1;
                if (!(decont instanceof TypeObject))
                    flag |= 1;
                argTup[numArgs++] = flag;
                break;

View Full Code Here

    public static final int EDGE_CHARRANGE        = 12;
    public static final int EDGE_CHARRANGE_NEG    = 13;
    
    public SixModelObject type_object_for(ThreadContext tc, SixModelObject HOW) {
        STable st = new STable(this, HOW);
        SixModelObject obj = new TypeObject();
        obj.st = st;
        st.WHAT = obj;
        return st.WHAT;
    }

View Full Code Here


        return rval;
    }


    public static SixModelObject open(String path, String mode, ThreadContext tc) {
        SixModelObject IOType = tc.curFrame.codeRef.staticInfo.compUnit.hllConfig.ioType;
        IOHandleInstance h = (IOHandleInstance)IOType.st.REPR.allocate(tc, IOType.st);
        h.handle = new FileHandle(tc, path, mode);
        return h;
    }

View Full Code Here

        h.handle = new FileHandle(tc, path, mode);
        return h;
    }


    public static SixModelObject openasync(String path, String mode, ThreadContext tc) {
        SixModelObject IOType = tc.curFrame.codeRef.staticInfo.compUnit.hllConfig.ioType;
        IOHandleInstance h = (IOHandleInstance)IOType.st.REPR.allocate(tc, IOType.st);
        h.handle = new AsyncFileHandle(tc, path, mode);
        return h;
    }

View Full Code Here

        h.handle = new AsyncFileHandle(tc, path, mode);
        return h;
    }


    public static SixModelObject socket(long listener, ThreadContext tc) {
        SixModelObject IOType = tc.curFrame.codeRef.staticInfo.compUnit.hllConfig.ioType;
        IOHandleInstance h = (IOHandleInstance)IOType.st.REPR.allocate(tc, IOType.st);
        if (listener == 0) {
            h.handle = new SocketHandle(tc);
        } else if (listener > 0) {
            h.handle = new ServerSocketHandle(tc);

View Full Code Here

    public static SixModelObject accept(SixModelObject obj, ThreadContext tc) {
        IOHandleInstance listener = (IOHandleInstance)obj;
        if (listener.handle instanceof ServerSocketHandle) {
            SocketHandle handle = ((ServerSocketHandle)listener.handle).accept(tc);
            if (handle != null) {
                SixModelObject IOType = tc.curFrame.codeRef.staticInfo.compUnit.hllConfig.ioType;
                IOHandleInstance h = (IOHandleInstance)IOType.st.REPR.allocate(tc, IOType.st);
                h.handle = handle;
                return h;
            }
        } else {

View Full Code Here

0 1 2 3 4 5 6 7 8 9

TOP

Related Classes of org.perl6.nqp.sixmodel.SixModelObject

com.sun.jna.Memory

com.sun.jna.NativeLibrary

com.sun.jna.Pointer

org.objectweb.asm.ClassWriter

org.objectweb.asm.Label

org.objectweb.asm.MethodVisitor

org.objectweb.asm.tree.AbstractInsnNode

org.objectweb.asm.tree.InsnNode

org.objectweb.asm.tree.JumpInsnNode

org.objectweb.asm.tree.LabelNode

All source code are property of their respective owners. Java is a trademark of Sun Microsystems, Inc and owned by ORACLE Inc. Contact coftware#gmail.com.