affine/SHS
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

It builds

Browse source
This commit is contained in:
Aidan Hahn 2019-11-28 20:07:28 -08:00
parent 7aa80376bb
commit 7e175dec95
No known key found for this signature in database
GPG key ID: 327711E983899316
7 changed files with 52 additions and 45 deletions
Download patch file Download diff file Expand all files Collapse all files

19
pkg/shsh/debug.go
View file

@ -2,6 +2,7 @@ package shsh
import (
"strings"
"fmt"
)
func FmtToken(arg *Token) string {
@ -12,11 +13,11 @@ func FmtToken(arg *Token) string {
switch arg.tag {
case LIST:
return sprintf("(%s, List @ %p, %d)%s", "LIST", arg._inner,
return fmt.Sprintf("(%s, List @ %p, %d)%s", "LIST", arg._inner,
arg.position, suffix)
default:
return sprintf("(%s, %s, %d)%s", GetTagAsStr(arg.tag), arg._inner,
return fmt.Sprintf("(%s, %s, %d)%s", GetTagAsStr(arg.tag), arg._inner,
arg.position, suffix)
}
}
@ -32,26 +33,24 @@ func GetTagAsStr(tag token_t) string {
case SYMBOL:
return "SYMBOL"
}
return "UNKNOWN"
}
func PrintSExpression(arg *Token) {
var lists Stack;
lists.push(arg)
var lists TokenStack;
lists.Push(arg)
loop:
var constructor strings.Builder
i := lists.pop()
i := lists.Pop()
if i == nil {
goto done
return
}
for (iter := i; iter != nil; iter = i.next {
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
}