Example #1
0
from rpython.rlib import rsocket

from spyvm import model, error
from spyvm.plugins.plugin import Plugin


SocketPlugin = Plugin()

def is_squeak_socket(w_socket_handle):
    return not isinstance(w_socket_handle, W_SocketHandle)


@SocketPlugin.expose_primitive(unwrap_spec=[object, object])
def primitiveSocketConnectionStatus(interp, s_frame, w_rcvr, w_socket_handle):
    """ "Socket Status Values"
        InvalidSocket := -1.
        Unconnected := 0.
        WaitingForConnection := 1.
        Connected := 2.
        OtherEndClosed := 3.
        ThisEndClosed := 4. """
    if is_squeak_socket(w_socket_handle):
        return interp.space.wrap_int(-1)
    else:
        return interp.space.wrap_int(-1) # for now ...


@SocketPlugin.expose_primitive(unwrap_spec=[object])
def primitiveResolverStatus(interp, s_frame, w_rcvr):
    """ "Resolver Status Values"
        ResolverUninitialized := 0.     "network is not initialized"
Example #2
0
from spyvm import model, error
from spyvm.plugins.plugin import Plugin

DebuggingPlugin = Plugin()

DebuggingPlugin.userdata['stop_ui'] = False


def stop_ui_process():
    DebuggingPlugin.userdata['stop_ui'] = True


# @DebuggingPlugin.expose_primitive(unwrap_spec=[object])
# def trace(interp, s_frame, w_rcvr):
#     interp.trace = True
#     return w_rcvr

# @DebuggingPlugin.expose_primitive(unwrap_spec=[object])
# def untrace(interp, s_frame, w_rcvr):
#     interp.trace = False
#     return w_rcvr


@DebuggingPlugin.expose_primitive(unwrap_spec=[object])
def trace_proxy(interp, s_frame, w_rcvr):
    interp.trace_proxy.activate()
    return w_rcvr


@DebuggingPlugin.expose_primitive(unwrap_spec=[object])
def untrace_proxy(interp, s_frame, w_rcvr):
from spyvm import model
from spyvm.primitives import prim_table, \
    BIT_AND, BIT_OR, BIT_XOR, BIT_SHIFT, ADD, SUBTRACT, DIVIDE, MULTIPLY
from spyvm.error import PrimitiveFailedError
from spyvm.plugins.plugin import Plugin

LargeIntegerPlugin = Plugin()

ops = {
    'primDigitBitAnd': BIT_AND,
    'primDigitBitOr': BIT_OR,
    'primDigitBitXor': BIT_XOR,
    'primDigitBitShiftMagnitude': BIT_SHIFT,
    'primDigitAdd': ADD,
    'primDigitSubtract': SUBTRACT,
}
for (name, primitive) in ops.items():

    def make_func(primitive):
        primfunc = prim_table[primitive]

        def func(interp, s_frame, argcount):
            return primfunc(interp, s_frame, argcount)

        func.func_name = name
        LargeIntegerPlugin.expose_primitive(clean_stack=False,
                                            no_result=True)(func)

    make_func(primitive)

negOps = {
Example #4
0
from spyvm import model, error
from spyvm.plugins.plugin import Plugin


DebuggingPlugin = Plugin()

DebuggingPlugin.userdata['stop_ui'] = False
def stop_ui_process():
    DebuggingPlugin.userdata['stop_ui'] = True

# @DebuggingPlugin.expose_primitive(unwrap_spec=[object])
# def trace(interp, s_frame, w_rcvr):
#     interp.trace = True
#     return w_rcvr

# @DebuggingPlugin.expose_primitive(unwrap_spec=[object])
# def untrace(interp, s_frame, w_rcvr):
#     interp.trace = False
#     return w_rcvr

@DebuggingPlugin.expose_primitive(unwrap_spec=[object])
def trace_proxy(interp, s_frame, w_rcvr):
    interp.trace_proxy.activate()
    return w_rcvr

@DebuggingPlugin.expose_primitive(unwrap_spec=[object])
def untrace_proxy(interp, s_frame, w_rcvr):
    interp.trace_proxy.deactivate()
    return w_rcvr

@DebuggingPlugin.expose_primitive(unwrap_spec=[object])
Example #5
0
from spyvm import model_display, model
from spyvm.error import PrimitiveFailedError
from spyvm.storage import AbstractCachingShadow
from spyvm.plugins.plugin import Plugin

from rpython.rlib import jit, objectmodel
from rpython.rlib.rarithmetic import r_uint, intmask

BitBltPlugin = Plugin()


@BitBltPlugin.expose_primitive(unwrap_spec=[object], clean_stack=True)
def primitiveCopyBits(interp, s_frame, w_rcvr):
    from spyvm.interpreter import Return
    if not isinstance(w_rcvr, model.W_PointersObject) or w_rcvr.size() < 15:
        raise PrimitiveFailedError(
            "BitBlt primitive not called in BitBlt object!")

    # only allow combinationRules 0-41
    combinationRule = interp.space.unwrap_positive_32bit_int(
        w_rcvr.fetch(interp.space, 3))
    if combinationRule > 41:
        raise PrimitiveFailedError("Missing combinationRule %d" %
                                   combinationRule)

    space = interp.space
    s_bitblt = w_rcvr.as_special_get_shadow(space, BitBltShadow)
    s_bitblt.loadBitBlt()
    s_bitblt.copyBits()

    w_dest_form = w_rcvr.fetch(space, 0)
Example #6
0
import os, stat, sys

from rpython.rlib import jit, rarithmetic
from rpython.rlib.listsort import TimSort

from spyvm import model, error
from spyvm.plugins.plugin import Plugin
from spyvm.primitives import PrimitiveFailedError, index1_0

FilePlugin = Plugin()
os.stat_float_times(False)

try:
    std_fds = [sys.stdin.fileno(), sys.stdout.fileno(), sys.stderr.fileno()]
except ValueError:
    std_fds = [0, 1, 2]


@FilePlugin.expose_primitive(unwrap_spec=[object])
def primitiveDirectoryDelimitor(interp, s_frame, w_rcvr):
    return interp.space.wrap_char(os.path.sep)


@FilePlugin.expose_primitive(unwrap_spec=[object, str, index1_0])
def primitiveDirectoryLookup(interp, s_frame, w_file_directory, full_path,
                             index):
    if full_path == '':
        contents = os.listdir(os.path.sep)
    else:
        if not os.path.isdir(full_path):
            raise PrimitiveFailedError