SHS/pkg/shsh/debug.go

package shsh

import (
    "strings"
)

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

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

    default:
        return sprintf("(%s, %s, %d)%s", GetTagAsStr(arg.tag), arg._inner,
            arg.position, 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"
    }
}

func PrintSExpression(arg *Token) {
    var lists Stack;
    lists.push(arg)

loop:
    var constructor strings.Builder
    i := lists.pop()
    if i == nil {
        goto done
    }

    for (iter := i; iter != nil; iter = i.next {
        constructor.WriteString(FmtToken(iter))
    }

    print(constructor.String())
    goto loop

done:
    // TODO: Perhaps print some debug analytics here
}