mirror of
https://github.com/github/semantic.git
synced 2024-11-24 08:54:07 +03:00
Add a root parser taking multiple sexprs.
This commit is contained in:
parent
ca5298da88
commit
ab4ec9e0aa
@ -16,6 +16,8 @@ enum Swift: Equatable {
|
|||||||
static let keyValue = KeyValue <^> (word <* ^"=" <*> (quoted <|> atom))
|
static let keyValue = KeyValue <^> (word <* ^"=" <*> (quoted <|> atom))
|
||||||
static let branch: String -> State<Swift>? = Branch <^> (^"(" *> ws* *> word <* ws* <*> sexpr* <* ws* <* ^")")
|
static let branch: String -> State<Swift>? = Branch <^> (^"(" *> ws* *> word <* ws* <*> sexpr* <* ws* <* ^")")
|
||||||
static let sexpr = delay { (branch <|> symbol <|> keyValue <|> (Swift.Atom <^> atom)) <* ws* }
|
static let sexpr = delay { (branch <|> symbol <|> keyValue <|> (Swift.Atom <^> atom)) <* ws* }
|
||||||
|
|
||||||
|
static let root = ws* *> sexpr*
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user