iframe-proxy | Sunbelt Computer Software

272 lines (201 loc) · 4.32 KB
	"github.com/antonmedv/expr/ast"
	"github.com/antonmedv/expr/builtin"
	"github.com/antonmedv/expr/file"
	"github.com/antonmedv/expr/vm/runtime"
type Program struct {
	Node      ast.Node
	Source    *file.Source
	Locations []file.Location
	Constants []interface{}
	Bytecode  []Opcode
	Arguments []int
	Functions []Function
func (program *Program) Disassemble() string {
	for ip < len(program.Bytecode) {
		op := program.Bytecode[ip]
		arg := program.Arguments[ip]
		code := func(label string) {
			out += fmt.Sprintf("%v\t%v\n", pp, label)
		jump := func(label string) {
			out += fmt.Sprintf("%v\t%v\t%v\t(%v)\n", pp, label, arg, ip+arg)
		jumpBack := func(label string) {
			out += fmt.Sprintf("%v\t%v\t%v\t(%v)\n", pp, label, arg, ip-arg)
		argument := func(label string) {
			out += fmt.Sprintf("%v\t%v\t%v\n", pp, label, arg)
		constant := func(label string) {
			var c interface{}
			if arg < len(program.Constants) {
				c = program.Constants[arg]
			} else {
				c = "out of range"
			if r, ok := c.(*regexp.Regexp); ok {
				c = r.String()
			if field, ok := c.(*runtime.Field); ok {
				c = fmt.Sprintf("{%v %v}", strings.Join(field.Path, "."), field.Index)
			if method, ok := c.(*runtime.Method); ok {
				c = fmt.Sprintf("{%v %v}", method.Name, method.Index)
			out += fmt.Sprintf("%v\t%v\t%v\t%v\n", pp, label, arg, c)
		builtIn := func(label string) {
			f, ok := builtin.Builtins[arg]
			if !ok {
				panic(fmt.Sprintf("unknown builtin %v", arg))
			out += fmt.Sprintf("%v\t%v\t%v\n", pp, "OpBuiltin", f.Name)
		switch op {
		case OpPush:
			constant("OpPush")
		case OpPushInt:
			argument("OpPushInt")
		case OpPop:
			code("OpPop")
		case OpLoadConst:
			constant("OpLoadConst")
		case OpLoadField:
			constant("OpLoadField")
		case OpLoadFast:
			constant("OpLoadFast")
		case OpLoadMethod:
			constant("OpLoadMethod")
		case OpLoadFunc:
			argument("OpLoadFunc")
		case OpFetch:
			code("OpFetch")
		case OpFetchField:
			constant("OpFetchField")
		case OpMethod:
			constant("OpMethod")
		case OpTrue:
			code("OpTrue")
		case OpFalse:
			code("OpFalse")
		case OpNil:
			code("OpNil")
		case OpNegate:
			code("OpNegate")
		case OpNot:
			code("OpNot")
		case OpEqual:
			code("OpEqual")
		case OpEqualInt:
			code("OpEqualInt")
		case OpEqualString:
			code("OpEqualString")
		case OpJump:
			jump("OpJump")
		case OpJumpIfTrue:
			jump("OpJumpIfTrue")
		case OpJumpIfFalse:
			jump("OpJumpIfFalse")
		case OpJumpIfNil:
			jump("OpJumpIfNil")
		case OpJumpIfNotNil:
			jump("OpJumpIfNotNil")
		case OpJumpIfEnd:
			jump("OpJumpIfEnd")
		case OpJumpBackward:
			jumpBack("OpJumpBackward")
		case OpIn:
			code("OpIn")
		case OpLess:
			code("OpLess")
		case OpMore:
			code("OpMore")
		case OpLessOrEqual:
			code("OpLessOrEqual")
		case OpMoreOrEqual:
			code("OpMoreOrEqual")
		case OpAdd:
			code("OpAdd")
		case OpSubtract:
			code("OpSubtract")
		case OpMultiply:
			code("OpMultiply")
		case OpDivide:
			code("OpDivide")
		case OpModulo:
			code("OpModulo")
		case OpExponent:
			code("OpExponent")
		case OpRange:
			code("OpRange")
		case OpMatches:
			code("OpMatches")
		case OpMatchesConst:
			constant("OpMatchesConst")
		case OpContains:
			code("OpContains")
		case OpStartsWith:
			code("OpStartsWith")
		case OpEndsWith:
			code("OpEndsWith")
		case OpSlice:
			code("OpSlice")
		case OpCall:
			argument("OpCall")
		case OpCall0:
			argument("OpCall0")
		case OpCall1:
			argument("OpCall1")
		case OpCall2:
			argument("OpCall2")
		case OpCall3:
			argument("OpCall3")
		case OpCallN:
			argument("OpCallN")
		case OpCallFast:
			argument("OpCallFast")
		case OpCallTyped:
			argument("OpCallTyped")
		case OpBuiltin:
			builtIn("OpBuiltin")
		case OpArray:
			code("OpArray")
		case OpMap:
			code("OpMap")
		case OpLen:
			code("OpLen")
		case OpCast:
			argument("OpCast")
		case OpDeref:
			code("OpDeref")
		case OpIncrementIt:
			code("OpIncrementIt")
		case OpIncrementCount:
			code("OpIncrementCount")
		case OpGetCount:
			code("OpGetCount")
		case OpGetLen:
			code("OpGetLen")
		case OpPointer:
			code("OpPointer")
		case OpBegin:
			code("OpBegin")
		case OpEnd:
			code("OpEnd")
			out += fmt.Sprintf("%v\t%#x\n", ip, op)
	return out
Sunbelt Computer Software

PL/B Language Development and Support

Provide feedback

Saved searches

Use saved searches to filter your results more quickly

Uh oh!

Sunbelt Computer Software

PL/B Language Development and Support

Uh oh!

FilesExpand file tree

program.go

Latest commit

History

program.go

File metadata and controls
