module Quox.Token

import Generics.Derive

%default total
%language ElabReflection


public export
data Punc
= LParen  | RParen
| LSquare | RSquare
| LBrace  | RBrace
| Comma
| Colon | DblColon
| Arrow | DblArrow
| Times | Triangle
| Wild

%runElab derive "Punc" [Generic, Meta, Eq, Ord, DecEq, Show]


public export
data Keyword
= Fun | Let | In | Case | Of

%runElab derive "Keyword" [Generic, Meta, Eq, Ord, DecEq, Show]


||| zero and one are separate because they are
||| quantity & dimension constants
public export
data Number = Zero | One | Other Nat

%runElab derive "Number" [Generic, Meta, Eq, Ord, DecEq, Show]


public export
data Token
= P Punc
| Name String | Symbol String
| N Number
| K Keyword

%runElab derive "Token" [Generic, Meta, Eq, Ord, DecEq, Show]