1
1
mirror of https://github.com/github/semantic.git synced 2024-12-23 23:11:50 +03:00

Parsing is public.

This commit is contained in:
Rob Rix 2015-09-11 09:59:40 -04:00
parent 264f0943c9
commit 2bbb132d7e

View File

@ -1,15 +1,15 @@
struct State<T> {
public struct State<T> {
let rest: String
let value: T
}
prefix func ^(string: String)(_ input: String) -> State<String>? {
public prefix func ^(string: String)(_ input: String) -> State<String>? {
return input.characters.startsWith(string.characters)
? State(rest: input.from(string.characters.count), value: string)
: nil
}
prefix func ^(strings: [String])(_ input: String) -> State<String>? {
public prefix func ^(strings: [String])(_ input: String) -> State<String>? {
return strings.indexOf { input.characters.startsWith($0.characters) }
.flatMap { index in
let string = strings[index]
@ -17,25 +17,25 @@ prefix func ^(strings: [String])(_ input: String) -> State<String>? {
}
}
func parseWhile(predicate: Character -> Bool)(_ input: String) -> State<String>? {
public func parseWhile(predicate: Character -> Bool)(_ input: String) -> State<String>? {
return input.characters.count > 0 && predicate(input.characters[input.startIndex])
? parseWhile(predicate)(input.from(1)).map { State(rest: $0.rest, value: input.to(1) + $0.value) } ?? State(rest: input.from(1), value: input.to(1))
: nil
}
postfix func * <T>(parser: String -> State<T>?) -> String -> State<[T]>? {
public postfix func * <T>(parser: String -> State<T>?) -> String -> State<[T]>? {
return (Array.cons <^> (parser <*> { (parser*)($0) })) <|> pure([])
}
postfix func + <T> (parser: String -> State<T>?) -> String -> State<[T]>? {
public postfix func + <T> (parser: String -> State<T>?) -> String -> State<[T]>? {
return (Array.cons <^> (parser <*> parser*))
}
func interpolate<Separator, Element>(element: String -> State<Element>?, _ separator: String -> State<Separator>?) -> String -> State<[Element]>? {
public func interpolate<Separator, Element>(element: String -> State<Element>?, _ separator: String -> State<Separator>?) -> String -> State<[Element]>? {
return Array.cons <^> (element <*> (separator *> element)*) <|> pure([])
}
func <*> <T, U> (left: String -> State<T>?, right: String -> State<U>?)(_ input: String) -> State<(T, U)>? {
public func <*> <T, U> (left: String -> State<T>?, right: String -> State<U>?)(_ input: String) -> State<(T, U)>? {
return left(input).flatMap { l in
right(l.rest).map { r in
State(rest: r.rest, value: (l.value, r.value))
@ -43,26 +43,26 @@ func <*> <T, U> (left: String -> State<T>?, right: String -> State<U>?)(_ input:
}
}
func <* <T, U> (left: String -> State<T>?, right: String -> State<U>?) -> String -> State<T>? {
public func <* <T, U> (left: String -> State<T>?, right: String -> State<U>?) -> String -> State<T>? {
return left >>- { const($0) <^> right }
}
func *> <T, U> (left: String -> State<T>?, right: String -> State<U>?) -> String -> State<U>? {
public func *> <T, U> (left: String -> State<T>?, right: String -> State<U>?) -> String -> State<U>? {
return left >>- const(right)
}
func <|> <T> (left: String -> State<T>?, right: String -> State<T>?)(_ input: String) -> State<T>? {
public func <|> <T> (left: String -> State<T>?, right: String -> State<T>?)(_ input: String) -> State<T>? {
return left(input) ?? right(input)
}
func <^> <T, U> (left: T -> U, right: String -> State<T>?) -> String -> State<U>? {
public func <^> <T, U> (left: T -> U, right: String -> State<T>?) -> String -> State<U>? {
return right >>- { pure(left($0)) }
}
func >>- <T, U> (left: String -> State<T>?, right: T -> String -> State<U>?)(_ input: String) -> State<U>? {
public func >>- <T, U> (left: String -> State<T>?, right: T -> String -> State<U>?)(_ input: String) -> State<U>? {
return left(input).flatMap { state in right(state.value)(state.rest) }
}
func pure<A>(value: A)(_ input: String) -> State<A>? {
public func pure<A>(value: A)(_ input: String) -> State<A>? {
return State(rest: input, value: value)
}