// BracketParserExt 在带有 Ext 的环境下对中括号表达式求值
func BracketParserExt(env Env) p.Parser {
return p.Between(p.Rune('['), p.Rune(']'),
p.SepBy1(ValueParserExt(env), p.Rune(':')),
)
}
},
"bind_": func(env Env, args ...interface{}) (Lisp, error) {
ptype := reflect.TypeOf((*Parsecer)(nil)).Elem()
params, err := GetArgs(env, px.UnionAll(TypeAs(ptype), TypeAs(ptype), px.Eof), args)
if err != nil {
return nil, err
}
return ParsecBox(p.Bind_(params[0].(Parsecer).Parser, params[1].(Parsecer).Parser)), nil
},
"sepby1": func(env Env, args ...interface{}) (Lisp, error) {
ptype := reflect.TypeOf((*Parsecer)(nil)).Elem()
params, err := GetArgs(env, px.UnionAll(TypeAs(ptype), TypeAs(ptype), px.Eof), args)
if err != nil {
return nil, err
}
return ParsecBox(p.SepBy1(params[0].(Parsecer).Parser, params[1].(Parsecer).Parser)), nil
},
"sepby": func(env Env, args ...interface{}) (Lisp, error) {
ptype := reflect.TypeOf((*Parsecer)(nil)).Elem()
params, err := GetArgs(env, px.UnionAll(TypeAs(ptype), TypeAs(ptype), px.Eof), args)
if err != nil {
return nil, err
}
return ParsecBox(p.SepBy(params[0].(Parsecer).Parser, params[1].(Parsecer).Parser)), nil
},
"manytil": func(env Env, args ...interface{}) (Lisp, error) {
ptype := reflect.TypeOf((*Parsecer)(nil)).Elem()
params, err := GetArgs(env, px.UnionAll(TypeAs(ptype), TypeAs(ptype), px.Eof), args)
if err != nil {
return nil, err
}
// BracketParser 尝试将 state 中下一个值解析为中括号表达式
func BracketParser(st p.ParseState) (interface{}, error) {
return p.Between(p.Rune('['), p.Rune(']'),
p.SepBy1(ValueParser, p.Rune(':')),
)(st)
}