Safe Haskell | None |
---|
DSS.Parser
- data Discussion = Discussion (Maybe Expression) Basiss Claim
- data Basiss = Basiss [(Maybe Label, Basis)]
- data Label = Label String
- data Basis
- data Url = Url String
- data Book = Book Isbn (Maybe Pages)
- data Quote = Quote [ExpressionString]
- data Isbn = Isbn String
- data Pages = Pages [Int]
- data Claim = Claim [ExpressionString]
- data ExpressionString
- = StringExpression String
- | QuoteExpression Expression
- data Expression = Expression [String]
- parse :: String -> [Discussion]
Documentation
data Discussion Source
Constructors
Discussion (Maybe Expression) Basiss Claim |
Instances
Eq Discussion | |
Read Discussion | |
Show Discussion | |
ToMarkup (String, Discussion) |
Constructors
Label String |
Constructors
Claim [ExpressionString] |
data ExpressionString Source
Constructors
StringExpression String | |
QuoteExpression Expression |
Instances
Eq ExpressionString | |
Read ExpressionString | |
Show ExpressionString | |
ToMarkup (String, ExpressionString) |
data Expression Source
Constructors
Expression [String] |
Instances
Eq Expression | |
Read Expression | |
Show Expression | |
ToMarkup (String, Maybe Expression) | |
ToMarkup (String, Expression) |
parse :: String -> [Discussion]Source
parse discussion
>>>
parse "opinion to {hoge.piyo}\ntext\"\"\nclaim \"123{hoge.piyo}\""
[Discussion (Just (Expression ["hoge","piyo"])) (Basiss [(Nothing,QuoteBasis (Quote []))]) (Claim [StringExpression "123",QuoteExpression (Expression ["hoge","piyo"])])]>>>
parse "opinion to {hoge.piyo}\n1:text \"hoge{piyo.foo}bar\"\nurl https://github.com/minamiyama1994\n2 : ISBN 9784798120393 pages ( 1024 , 2048 )\nclaim \"123{hoge.piyo}\""
[Discussion (Just (Expression ["hoge","piyo"])) (Basiss [(Just (Label "1"),QuoteBasis (Quote [StringExpression "hoge",QuoteExpression (Expression ["piyo","foo"]),StringExpression "bar"])),(Nothing,UrlBasis (Url "https://github.com/minamiyama1994")),(Just (Label "2"),BookBasis (Book (Isbn "9784798120393") (Just (Pages [1024,2048]))))]) (Claim [StringExpression "123",QuoteExpression (Expression ["hoge","piyo"])])]>>>
parse "opinion to {hoge.piyo}\n1:text \"hoge{piyo.foo}bar\"\nurl https://github.com/minamiyama1994\n2 : ISBN 9784798120393 pages ( 1024 , 2048 )\n3 : ISBN 9784798120393\nclaim \"123{hoge.piyo}\""
[Discussion (Just (Expression ["hoge","piyo"])) (Basiss [(Just (Label "1"),QuoteBasis (Quote [StringExpression "hoge",QuoteExpression (Expression ["piyo","foo"]),StringExpression "bar"])),(Nothing,UrlBasis (Url "https://github.com/minamiyama1994")),(Just (Label "2"),BookBasis (Book (Isbn "9784798120393") (Just (Pages [1024,2048])))),(Just (Label "3"),BookBasis (Book (Isbn "9784798120393") Nothing))]) (Claim [StringExpression "123",QuoteExpression (Expression ["hoge","piyo"])])]