{-# LANGUAGE DeriveGeneric #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module GLua.AG.Token where
{-# LINE 9 "src/GLua/AG/Token.ag" #-}
import GHC.Generics
import GLua.Position
{-# LINE 13 "src/GLua/AG/Token.hs" #-}
data MToken = MToken !(Region) !(Token)
type MTokenList = [MToken]
data Token = Whitespace !(String)
| !(String)
| !(Int) !(String)
| !(String)
| !(String)
| Semicolon
| TNumber !(String)
| DQString !(String)
| SQString !(String)
| MLString !(String)
| TTrue
| TFalse
| Nil
| VarArg
| Plus
| Minus
| Multiply
| Divide
| Modulus
| Power
| TEq
| TNEq
| TCNEq
| TLEQ
| TGEQ
| TLT
| TGT
| Equals
| Concatenate
| Colon
| Dot
| Comma
| Hash
| Not
| CNot
| And
| CAnd
| Or
| COr
| Function
| Local
| If
| Then
| Elseif
| Else
| For
| In
| Do
| While
| Until
| Repeat
| Continue
| Break
| Return
| End
| LRound
| RRound
| LCurly
| RCurly
| LSquare
| RSquare
| Label !(String) !(String) !(String)
| Identifier !(String)
deriving ( Token -> Token -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Token -> Token -> Bool
$c/= :: Token -> Token -> Bool
== :: Token -> Token -> Bool
$c== :: Token -> Token -> Bool
Eq,forall x. Rep Token x -> Token
forall x. Token -> Rep Token x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep Token x -> Token
$cfrom :: forall x. Token -> Rep Token x
Generic,Eq Token
Token -> Token -> Bool
Token -> Token -> Ordering
Token -> Token -> Token
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: Token -> Token -> Token
$cmin :: Token -> Token -> Token
max :: Token -> Token -> Token
$cmax :: Token -> Token -> Token
>= :: Token -> Token -> Bool
$c>= :: Token -> Token -> Bool
> :: Token -> Token -> Bool
$c> :: Token -> Token -> Bool
<= :: Token -> Token -> Bool
$c<= :: Token -> Token -> Bool
< :: Token -> Token -> Bool
$c< :: Token -> Token -> Bool
compare :: Token -> Token -> Ordering
$ccompare :: Token -> Token -> Ordering
Ord)