101 lines
1.6 KiB
Agda
101 lines
1.6 KiB
Agda
module Lib.Token
|
||
|
||
import Prelude
|
||
|
||
record Bounds where
|
||
constructor MkBounds
|
||
startLine : Int
|
||
startCol : Int
|
||
endLine : Int
|
||
endCol : Int
|
||
|
||
|
||
instance Eq Bounds where
|
||
(MkBounds sl sc el ec) == (MkBounds sl' sc' el' ec') =
|
||
sl == sl'
|
||
&& sc == sc'
|
||
&& el == el'
|
||
&& ec == ec'
|
||
|
||
|
||
record WithBounds ty where
|
||
constructor MkBounded
|
||
val : ty
|
||
bounds : Bounds
|
||
|
||
|
||
data Kind
|
||
= Ident
|
||
| UIdent
|
||
| Keyword
|
||
| MixFix
|
||
| Number
|
||
| Character
|
||
| StringKind
|
||
| JSLit
|
||
| Symbol
|
||
| Space
|
||
| Comment
|
||
| Pragma
|
||
| Projection
|
||
-- not doing Layout.idr
|
||
| LBrace
|
||
| Semi
|
||
| RBrace
|
||
| EOI
|
||
| StartQuote
|
||
| EndQuote
|
||
| StartInterp
|
||
| EndInterp
|
||
|
||
|
||
instance Show Kind where
|
||
show Ident = "Ident"
|
||
show UIdent = "UIdent"
|
||
show Keyword = "Keyword"
|
||
show MixFix = "MixFix"
|
||
show Number = "Number"
|
||
show Character = "Character"
|
||
show Symbol = "Symbol"
|
||
show Space = "Space"
|
||
show LBrace = "LBrace"
|
||
show Semi = "Semi"
|
||
show RBrace = "RBrace"
|
||
show Comment = "Comment"
|
||
show EOI = "EOI"
|
||
show Pragma = "Pragma"
|
||
show StringKind = "String"
|
||
show JSLit = "JSLit"
|
||
show Projection = "Projection"
|
||
show StartQuote = "StartQuote"
|
||
show EndQuote = "EndQuote"
|
||
show StartInterp = "StartInterp"
|
||
show EndInterp = "EndInterp"
|
||
|
||
|
||
instance Eq Kind where
|
||
a == b = show a == show b
|
||
|
||
|
||
record Token where
|
||
constructor Tok
|
||
kind : Kind
|
||
text : String
|
||
|
||
|
||
|
||
instance Show Token where
|
||
show (Tok k v) = "<\{show k}:\{show v}>"
|
||
|
||
|
||
BTok : U
|
||
BTok = WithBounds Token
|
||
|
||
|
||
value : BTok -> String
|
||
value (MkBounded (Tok _ s) _) = s
|
||
|
||
|
||
getStart : BTok -> (Int × Int)
|
||
getStart (MkBounded _ (MkBounds l c _ _)) = (l,c)
|