oec/tcl
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

results as nested string, []string

Browse Source
This commit is contained in:
Özgür Kesim 2019-06-17 12:06:19 +02:00
parent 7eb0b697dc
commit 8be120ffa0
1 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
tcl.go
View File

@ -8,14 +8,14 @@ import (
. "github.com/oec/goparsify" . "github.com/oec/goparsify"
) )
// Tcl parser, using combinators // Tcl tokenizer parser, using combinators
// Based on the grammer in:
// https://wiki.tcl-lang.org/page/BNF+for+Tcl
var ( var (
word Parser word Parser
words Parser words Parser
subcommand Parser
command Parser command Parser
ltm Parser
script Parser script Parser
) )
@ -25,14 +25,19 @@ var (
wordSub = NewParser("[*]word", Seq("[*]", &word)).Map(resultchild(1)) wordSub = NewParser("[*]word", Seq("[*]", &word)).Map(resultchild(1))
wordQtd = NewParser(`"word"`, StringLit(`"`)).Map(token) wordQtd = NewParser(`"word"`, StringLit(`"`)).Map(token)
wordSmp = NewParser("simple", NotChars("{} \t\r\n")).Map(token) wordSmp = NewParser("simple", NotChars("{} \t\r\n")).Map(token)
group = NewParser("{group}", Seq("{", Maybe(Chars("\r\n")), Some(Any(&command, &words)), "}")).Map(func(r *Result) { collectchildren(&r.Child[2]); r.Result = r.Child[2].Result }) group = NewParser("{group}", Seq("{", Maybe(Chars("\r\n")), Some(Any(&subcommand, &words)), "}")).Map(func(r *Result) {
collectchildren(&r.Child[2])
r.Result = r.Child[2].Result
})
) )
func init() { func init() {
word = NewParser("word", Any(&wordQtd, &group, &wordSmp, &wordSub, &wordExp)) word = NewParser("word", Any(&wordQtd, &group, &wordSmp, &wordSub, &wordExp))
words = NewParser("words", Many(&word)).Map(collectchildren) words = NewParser("words", Many(&word)).Map(collectchildren)
command = NewParser("command", Seq(&words, Any(";", Chars("\r\n")))).Map(resultchild(0)) subcommand = NewParser("subcommand", Seq(&words, Any(";", Chars("\r\n")))).Map(resultchild(0))
script = NewParser("script", Many(Any(&comment, &command))).Map(collectchildren) command = NewParser("command", subcommand).Map(resultchild(0))
script = NewParser("script", Many(Any(&comment, &ltm, &command))).Map(collectchildren)
ltm = NewParser("ltm", Seq("ltm", subcommand)).Map(resultchild(1))
} }
func simpleWhitespace(s *State) { func simpleWhitespace(s *State) {
@ -75,18 +80,13 @@ func token(r *Result) {
} }
func collectchildren(r *Result) { func collectchildren(r *Result) {
data := []string{} data := []interface{}{}
for _, ch := range r.Child { for _, ch := range r.Child {
switch v := ch.Result.(type) { switch v := ch.Result.(type) {
case string: case string, []string, []interface{}:
data = append(data, v) data = append(data, v)
case []string:
data = append(data, v...)
default:
// log.Println("oops:", r)
} }
} }
// log.Println("data: ", data)
r.Result = data r.Result = data
} }