88 lines
2.8 KiB
Go
88 lines
2.8 KiB
Go
// Copyright 2010 The postscript-go Authors. All rights reserved.
|
||
// created: 13/12/2010 by Laurent Le Goff
|
||
|
||
//Operand Stack Manipulation Operators
|
||
package postscript
|
||
|
||
//any pop – -> Discard top element
|
||
func pop(interpreter *Interpreter) {
|
||
interpreter.Pop()
|
||
}
|
||
//any1 any2 exch any2 any1 -> Exchange top two elements
|
||
func exch(interpreter *Interpreter) {
|
||
value1 := interpreter.Pop()
|
||
value2 := interpreter.Pop()
|
||
interpreter.Push(value1)
|
||
interpreter.Push(value2)
|
||
}
|
||
//any dup any any -> Duplicate top element
|
||
func dup(interpreter *Interpreter) {
|
||
interpreter.Push(interpreter.Peek())
|
||
}
|
||
|
||
//any1 … anyn n copy any1 … anyn any1 … anyn -> Duplicate top n elements
|
||
func copystack(interpreter *Interpreter) {
|
||
n := interpreter.PopInt()
|
||
values := interpreter.GetValues(n)
|
||
for _, value := range values {
|
||
interpreter.Push(value)
|
||
}
|
||
}
|
||
//anyn … any0 n index anyn … any0 anyn -> Duplicate arbitrary element
|
||
func index(interpreter *Interpreter) {
|
||
f := interpreter.PopInt()
|
||
interpreter.Push(interpreter.Get(int(f)))
|
||
}
|
||
//anyn−1 … any0 n j roll any(j−1) mod n … any0 anyn−1 … anyj mod n -> Roll n elements up j times
|
||
func roll(interpreter *Interpreter) {
|
||
j := interpreter.PopInt()
|
||
n := interpreter.PopInt()
|
||
values := interpreter.PopValues(n)
|
||
j %= n
|
||
for i := 0; i < n; i++ {
|
||
interpreter.Push(values[(n+i-j)%n])
|
||
}
|
||
}
|
||
//any1 … anyn clear -> Discard all elements
|
||
func clear(interpreter *Interpreter) {
|
||
interpreter.ClearOperands()
|
||
}
|
||
//any1 … anyn count any1 … anyn n -> Count elements on stack
|
||
func count(interpreter *Interpreter) {
|
||
interpreter.Push(interpreter.OperandSize())
|
||
}
|
||
//Mark
|
||
type Mark struct{}
|
||
//– mark mark -> Push mark on stack
|
||
func mark(interpreter *Interpreter) {
|
||
interpreter.Push(Mark{})
|
||
}
|
||
//mark obj 1 … obj n cleartomark – -> Discard elements down through mark
|
||
func cleartomark(interpreter *Interpreter) {
|
||
value := interpreter.Pop()
|
||
for _, ok := value.(Mark); !ok; {
|
||
value = interpreter.Pop()
|
||
}
|
||
}
|
||
//mark obj 1 … obj n counttomark mark obj 1 … obj n n -> Count elements down to mark
|
||
func counttomark(interpreter *Interpreter) {
|
||
i := 0
|
||
value := interpreter.Get(i)
|
||
for _, ok := value.(Mark); !ok; i++ {
|
||
value = interpreter.Get(i)
|
||
}
|
||
interpreter.Push(float64(i))
|
||
}
|
||
|
||
func initStackOperator(interpreter *Interpreter) {
|
||
interpreter.SystemDefine("pop", NewOperator(pop))
|
||
interpreter.SystemDefine("exch", NewOperator(exch))
|
||
interpreter.SystemDefine("dup", NewOperator(dup))
|
||
interpreter.SystemDefine("index", NewOperator(index))
|
||
interpreter.SystemDefine("roll", NewOperator(roll))
|
||
interpreter.SystemDefine("clear", NewOperator(clear))
|
||
interpreter.SystemDefine("count", NewOperator(count))
|
||
interpreter.SystemDefine("mark", NewOperator(mark))
|
||
interpreter.SystemDefine("cleartomark", NewOperator(mark))
|
||
interpreter.SystemDefine("counttomark", NewOperator(mark))
|
||
}
|