NAME

tcl.ops

DESCRIPTION

A dynamic opcode library for tcl on parrot that provides a few opcodes that simplify PIR generation for tclPIR generation for tcl

BUGS: pull out the TCL_ constants, as well as the code slot (#9) and the message slot (#0)

[binary] opcodes

tcl_binary_scan(out PMC, in STR, in STR)

Scan $2 for the fields specified in $3 and return their values in $1.

tcl_binary_format(out STR, in STR, in PMC)

Format the values in $3 into a string $1 according to the format in $2.

Flow control opcodes

These opcodes are used to generate exception return values. (Anything that isn't a TCL_OK)

tcl_error(in PMC)

tcl_error(in STR)

Generate a TCL_ERROR with $1 as the value.

tcl_error(in STR, in PMC)

Generate a TCL_ERROR with $1 as the value, and set $errorCode to $2

tcl_error(in INT, in PMC)

Generate a $1 with $2 as the value.

tcl_return(in PMC)

tcl_return(in STR)

Generate a TCL_RETURN, returning the specified value

tcl_break()

Generate a TCL_BREAK

tcl_continue()

Generate a TCL_CONTINUE