120 lines
2.0 KiB
Go
120 lines
2.0 KiB
Go
package main
|
|
|
|
import (
|
|
"bufio"
|
|
"fmt"
|
|
"io"
|
|
"os"
|
|
"path"
|
|
pcl "pcl/interp"
|
|
)
|
|
|
|
func main() {
|
|
var (
|
|
interp *pcl.Interp
|
|
f *os.File
|
|
r *bufio.Reader
|
|
c rune
|
|
node *pcl.Cnode_t
|
|
v *string
|
|
err error
|
|
)
|
|
|
|
if len(os.Args) != 2 {
|
|
fmt.Printf("Usage: %s filename\n", path.Base(os.Args[0]))
|
|
goto oops
|
|
}
|
|
|
|
interp, err = pcl.NewInterp(1000, true)
|
|
if err != nil {
|
|
fmt.Printf("Error %s\n", err.Error())
|
|
goto oops
|
|
}
|
|
|
|
f, err = os.Open(os.Args[1])
|
|
if err != nil {
|
|
fmt.Printf("Error %s\n", err.Error())
|
|
goto oops
|
|
}
|
|
|
|
interp.BeginFeed()
|
|
|
|
r = bufio.NewReader(f)
|
|
for {
|
|
c, _, err = r.ReadRune()
|
|
if err != nil {
|
|
if err == io.EOF {
|
|
break
|
|
}
|
|
fmt.Printf("Error in ReadRune - %s\n", err.Error())
|
|
goto oops
|
|
}
|
|
|
|
err = interp.FeedRune(c)
|
|
if err != nil {
|
|
fmt.Printf("Error in FeedRune - %s\n", err.Error())
|
|
goto oops
|
|
}
|
|
}
|
|
node, err = interp.EndFeed()
|
|
if err != nil {
|
|
fmt.Printf("Error in EndFeed %s\n", err.Error())
|
|
goto oops
|
|
}
|
|
|
|
interp.Dump(node)
|
|
fmt.Printf("------------- Executing ----------------\n")
|
|
v, err = interp.Execute(node)
|
|
if err != nil {
|
|
fmt.Printf("Error in Execute - %s\n", err.Error())
|
|
goto oops
|
|
}
|
|
|
|
if v == nil {
|
|
panic("return value mut not be nil")
|
|
}
|
|
fmt.Printf("RETURN VALUE = [%s]\n", *v)
|
|
|
|
/*
|
|
err = interp.FeedRunes([]rune(`
|
|
proc inc{x} {
|
|
puts {10 20}
|
|
return [expr $x + 1]
|
|
}
|
|
\{abc 11 2\ \1011 \ 2\x65 \uBc29\uaD6cdefg\uZZ\xZZ\U0000BC29\UAD6cZZ \
|
|
[donkey 1 [expr [expr 2 + 3] + 3] ]
|
|
hello { world { }man}
|
|
"command { l a n g }"
|
|
set a [puts "1111" "22 22" "3333 [expr "123" + 2] 4444"]
|
|
abc [expr [expr 2 + "4[expr 2 * 6]"] + 9]
|
|
puts $a ${ kkk qqq }
|
|
puts "\x65\ubc29\n"
|
|
{}`))
|
|
*/
|
|
//err = interp.FeedRunes([]rune(`hello [world [1 9] 2]
|
|
//`))
|
|
/*
|
|
if err != nil {
|
|
fmt.Printf("ERROR %s\n", err)
|
|
} else {
|
|
err = interp.EndFeed()
|
|
if err != nil {
|
|
fmt.Printf("ERROR %s\n", err)
|
|
}
|
|
}*/
|
|
|
|
interp.Close()
|
|
f.Close()
|
|
os.Exit(0)
|
|
|
|
oops:
|
|
if interp != nil {
|
|
interp.Close()
|
|
|
|
}
|
|
if f != nil {
|
|
f.Close()
|
|
}
|
|
os.Exit(1)
|
|
}
|