package main import ( "bufio" "errors" "fmt" "os" "strings" ) func main() { stack := Stack{values: []int{}} rstack := Stack{values: []int{}} dict := Dictionary{} b := &Builtins{} dict.AddWord("+", b.Add(&stack), nil) dict.AddWord("-", b.Sub(&stack), nil) dict.AddWord("*", b.Mul(&stack), nil) dict.AddWord("/", b.Div(&stack), nil) dict.AddWord(".", b.Print(&stack), nil) dict.AddWord("=", b.Eq(&stack), nil) dict.AddWord("0=", nil, []string{"0", "="}) dict.AddWord("<>", b.NEq(&stack), nil) dict.AddWord(">", b.Gt(&stack), nil) dict.AddWord("<", b.Lt(&stack), nil) dict.AddWord(">=", b.GtEq(&stack), nil) dict.AddWord("<=", b.LtEq(&stack), nil) dict.AddWord("0<", nil, []string{"0", "<"}) dict.AddWord("0>", nil, []string{"0", ">"}) dict.AddWord("DUP", b.Dup(&stack), nil) dict.AddWord("SWAP", b.Swap(&stack), nil) dict.AddWord("OVER", b.Over(&stack), nil) dict.AddWord("DROP", b.Drop(&stack), nil) dict.AddWord("ROT", b.Rot(&stack), nil) dict.AddWord("WORDS", b.Words(dict), nil) dict.AddWord(".S", b.Debug(&stack), nil) dict.AddWord("EMIT", b.Emit(&stack), nil) dict.AddWord("R>", b.RFrom(&stack, &rstack), nil) dict.AddWord(">R", b.ToR(&stack, &rstack), nil) dict.AddWord("R@", b.RFetch(&stack, &rstack), nil) dict.AddWord("CR", b.CR(), nil) dict.AddWord("QUIT", b.Quit(), nil) c := Context{ Dictionary: dict, Stack: &stack, RStack: &rstack, } reader := bufio.NewReader(os.Stdin) fmt.Print("prosper") // read loop for { fmt.Print("\n> ") line, err := reader.ReadString('\n') if err != nil { fmt.Println(err.Error()) os.Exit(1) } line = strings.TrimSpace(line) err = c.Eval(line + " ") // append a space to make sure we always close out our parse loop if errors.Is(err, ErrExit) { fmt.Printf("bye\n") os.Exit(0) } else if err != nil { fmt.Printf("error in evaluation: %v", err) } else { fmt.Print("ok") } } }