arpio/treerack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

automatic whitespace for scheme

Browse Source
This commit is contained in:
Arpad Ryszka 2017-10-28 23:41:23 +02:00
parent 68cf598920
commit 304f11f224
3 changed files with 20 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
scheme.parser
View File

@ -1,12 +1,11 @@
ws:alias = [ \b\f\n\r\t\v];
comment:alias = ";" [^\n]*;
wsc:alias = ws | comment;
number = "-"? ("0" | [1-9][0-9]*) ("." [0-9]+)? ([eE] [+\-]? [0-9]+)?;
string = "\"" ([^\\"] | "\\" .)* "\"";
symbol = ([^\\ \n\t\b\f\r\v\"()\[\]#] | "\\" .)+;
list-form:alias = "(" wsc* (expression wsc*)* ")"
| "[" wsc* (expression wsc*)* "]";
whitespace:ws = [ \b\f\n\r\t\v];
comment:ws = ";" [^\n]*;
number:nows = "-"? ("0" | [1-9][0-9]*) ("." [0-9]+)? ([eE] [+\-]? [0-9]+)?;
string:nows = "\"" ([^\\"] | "\\" .)* "\"";
symbol:nows = ([^\\ \n\t\b\f\r\v\"()\[\]#] | "\\" .)+;
list-form:alias = "(" expression* ")"
| "[" expression* "]";
list = list-form;
vector = "#" list-form;
expression:alias = number | string | symbol | list;
scheme = wsc* (expression wsc*)*;
scheme = expression*;

2
sexpr.parser
View File

@ -1,5 +1,5 @@
whitespace:ws = [ \b\f\n\r\t\v];
comment:alias:ws = ";" [^\n]*;
comment:ws = ";" [^\n]*;
number:nows = "-"? ("0" | [1-9][0-9]*) ("." [0-9]+)? ([eE] [+\-]? [0-9]+)?;
string:nows = "\"" ([^\\"] | "\\" .)* "\"";
symbol:nows = ([^\\ \n\t\b\f\r\v\"()] | "\\" .)+;

15
whitespace.go
View File

@ -1,6 +1,9 @@
package treerack
import "fmt"
import (
"fmt"
"strings"
)
const whitespaceName = ":ws"
@ -52,6 +55,10 @@ func mergeWhitespaceDefs(ws []definition) definition {
// TODO: validate min and max
func patchName(s ...string) string {
return strings.Join(s, ":")
}
func applyWhitespaceToSeq(s *sequenceDefinition) []definition {
var (
defs []definition
@ -70,7 +77,7 @@ func applyWhitespaceToSeq(s *sequenceDefinition) []definition {
singleItem := SequenceItem{Name: item.Name, Min: 1, Max: 1}
restName := item.Name + ":wsrest"
restName := patchName(item.Name, s.nodeName(), "wsrest")
restDef := newSequence(restName, Alias, []SequenceItem{{Name: whitespaceName, Min: 0, Max: -1}, singleItem})
defs = append(defs, restDef)
@ -87,7 +94,7 @@ func applyWhitespaceToSeq(s *sequenceDefinition) []definition {
continue
}
optName := item.Name + ":wsopt"
optName := patchName(item.Name, s.nodeName(), "wsopt")
optDef := newSequence(optName, Alias, []SequenceItem{singleItem, restItems})
defs = append(defs, optDef)
items = append(items, SequenceItem{Name: optName, Min: 0, Max: 1})
@ -120,7 +127,7 @@ func applyWhitespace(defs []definition) []definition {
func applyWhitespaceRoot(root definition) (definition, definition) {
original, name := root, root.nodeName()
wsName := ":wsroot:" + name
wsName := patchName(name, "wsroot")
original.setNodeName(wsName)
original.setCommitType(original.commitType() &^ Root)