{-# LANGUAGE DeriveGeneric #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- UUAGC 0.9.53.1 (src/GLua/AG/Token.ag)
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" #-}
-- MToken ------------------------------------------------------
data MToken = MToken !(Region) !(Token)
-- MTokenList --------------------------------------------------
type MTokenList = [MToken]
-- Token -------------------------------------------------------
data Token = Whitespace !(String)
           | DashComment !(String)
           | DashBlockComment !(Int) !(String)
           | SlashComment !(String)
           | SlashBlockComment !(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)