NAME

experimental.ops - Experimental Operations

DESCRIPTION

This file contains operations that are in an experimental state. Do not rely upon the existence of the ops in this file when writing production code. No decision has yet been made as to whether they are accepted as regular Parrot ops or not. They are included here for testing purposes only!

Mathematical operations

Implementations of various mathematical operations

gcd(out INT, in NUM, in NUM)
Greatest Common divisor of $2 and $3.
gcd(out INT, out INT, out INT, in INT, in INT)
Given $4 and $5, it calculates $1, $2 and $3 so that$1 = gcd($4, $5) = $2 * $4 + $3 * $5 (d = gcd(a, b) = x*a + y*b)

Misc other ops

splice(invar PMC, invar PMC, in INT, in INT)
Replace $4 values at offset $3 in aggregate $1 with the PMCs in aggregate $2. The values are put into the aggregate by a shallow copy. If the values would be reused, they have to be cloned.
iter(out PMC, invar PMC)
Return a new Iterator PMC $1 for aggregate $2.
morph(invar PMC, in STR)
Have $1 turn itself into a PMC of type $2.
exec(in STR)
Execute the passed-in command. Completely tosses the current process image and replaces it with the command. Doesn't exit (the program ends, after all), though it does throw an exception if something goes wrong.
classname(out PMC, invar PMC)
Get the class name for the class in $2 and put it in $1. Note that $1 will be a Key PMC that you can use with "new", for example.

More Experimental Ops

trap
Break into debugger. Implementation notes:
 - x86/gcc ... works with gdb
 - ppc/gcc ... works with gdb, to proceed: gdb> p $pc = $pc + 4
 - TODO
For other architectures, this is a noop.
pow(out NUM, in NUM, in INT)
Set $1 to $2 raised to the power $3.
need_finalize(invar PMC)
The ParrotObject $1 needs the __finalize method during GC.
setstdout(invar PMC)
Sets the standard output for a bare print op to go to the supplied ParrotIO PMC. Call getstdout first if you care about retaining the previous PMC.
setstderr(invar PMC)
Sets the standard error for a bare printerr op to go to the supplied ParrotIO PMC. Call getstderr first if you care about retaining the previous PMC.
runinterp(invar PMC, in PMC)
Invokes the PMC $2 using interp $1.
substr_r(out STR, in STR, in INT, in INT)
Make $1 refer to the given part of $2, basically like above, but it is reusing the given destination string and does not care if the source string is changed later. This is changed includes also GC runs, which will move the referenced string. This also means that $1 has to be reset before any GC may happen.This opcode should really be just used to quickly refer to a substring of another part, e.g. for printing and is a temporary hack.Handle with care.
find_sub_not_null(out PMC, in STR)
inline op find_sub_not_null(out PMC, in STR) :base_core { opcode_t *dest = expr NEXT(); PMC *sub = Parrot_find_name_op(interp, $2, dest);
    if (PMC_IS_NULL(sub)) {
        opcode_t *handler = Parrot_ex_throw_from_op_args(interp, dest,
                       EXCEPTION_GLOBAL_NOT_FOUND,
                       "Could not find non-existent sub %Ss", $2);
        goto ADDRESS(handler);
    }

    $1 = sub;
}

COPYRIGHT

Copyright (C) 2001-2008, Parrot Foundation.

LICENSE

This program is free software. It is subject to the same license as the Parrot interp itself.