Token.hs


{-# 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 ( Eq,Generic,Ord)