SHS/debug.go

package shsh

import (
    "strings"
    "fmt"
)

func FmtToken(arg *Token) string {
    suffix := "->"
    if arg.next == nil {
        suffix = ""
    }

    switch arg.tag {
    case LIST:
        return fmt.Sprintf("(%s, List @ %p)%s", "LIST", arg._inner, suffix)

    default:
        return fmt.Sprintf("(%s, %s)%s", GetTagAsStr(arg.tag), arg._inner, suffix)
    }
}

func GetTagAsStr(tag token_t) string {
    switch tag {
    case LIST:
        return "LIST"
    case STRING:
        return "STRING"
    case NUMBER:
        return "NUMBER"
    case SYMBOL:
        return "SYMBOL"
    }
    return "UNKNOWN"
}

func PrintSExpression(arg *Token) {
    if arg == nil {
        return //TODO: Handle error here?
    }

    var lists TokenStack;
    lists.Push(arg)

loop:
    var constructor strings.Builder
    i := lists.Pop()
    if i == nil {
        return
    }

    for iter := i; iter != nil; iter = iter.next {
        if iter.tag == LIST {
            lists.Push(iter._inner.(*Token))
        }

        constructor.WriteString(FmtToken(iter))
    }

    println(constructor.String())
    goto loop
}