module Language.Drasil.CodeExpr.Precedence (precA, precB, eprec) where

import Language.Drasil.CodeExpr.Lang (CodeExpr(..), UFuncVV, UFuncVN, UFuncB(..),
    UFunc(..), AssocBoolOper(..), AssocArithOper(..), VVNBinOp, NVVBinOp,
    VVVBinOp, OrdBinOp, LABinOp, BoolBinOp, EqBinOp, ArithBinOp(..), AssocConcatOper(..), ESSBinOp, ESBBinOp)

-- These precedences are inspired from Haskell/F# 
-- as documented at http://kevincantu.org/code/operators.html
-- They are all multiplied by 10, to leave room to weave things in between

-- | prec2Arith - precedence for arithmetic-related binary operations.
prec2Arith :: ArithBinOp -> Int
prec2Arith :: ArithBinOp -> Int
prec2Arith ArithBinOp
Frac = Int
190
prec2Arith ArithBinOp
Pow = Int
200
prec2Arith ArithBinOp
Subt = Int
180

-- | prec2Bool - precedence for boolean-related binary operations.
prec2Bool :: BoolBinOp -> Int
prec2Bool :: BoolBinOp -> Int
prec2Bool BoolBinOp
_ = Int
130

-- | prec2Eq - precedence for equality-related binary operations.
prec2Eq :: EqBinOp -> Int
prec2Eq :: EqBinOp -> Int
prec2Eq EqBinOp
_  = Int
130

-- | prec2LA - precedence for access-related binary operations.
prec2LA :: LABinOp -> Int
prec2LA :: LABinOp -> Int
prec2LA LABinOp
_ = Int
250

-- | prec2Ord - precedence for order-related binary operations.
prec2Ord :: OrdBinOp -> Int
prec2Ord :: OrdBinOp -> Int
prec2Ord OrdBinOp
_  = Int
130

-- | prec2VVV - precedence for Vec->Vec->Vec-related binary operations.
prec2VVV :: VVVBinOp -> Int
prec2VVV :: VVVBinOp -> Int
prec2VVV VVVBinOp
_ = Int
190

-- | prec2VVN - precedence for Vec->Vec->Num-related binary operations.
prec2VVN :: VVNBinOp -> Int
prec2VVN :: VVNBinOp -> Int
prec2VVN VVNBinOp
_ = Int
190

-- | prec2NVV - precedence for Num->Vec->Vec-related binary operations.
prec2NVV :: NVVBinOp -> Int
prec2NVV :: NVVBinOp -> Int
prec2NVV NVVBinOp
_ = Int
190

-- | prec2ESS - precedence for Element->Set->Set-related binary operations.
prec2ESS :: ESSBinOp -> Int
prec2ESS :: ESSBinOp -> Int
prec2ESS ESSBinOp
_ = Int
190

-- | prec2ESS - precedence for Element->Set->Set-related binary operations.
prec2ESB :: ESBBinOp -> Int
prec2ESB :: ESBBinOp -> Int
prec2ESB ESBBinOp
_ = Int
190

-- | precA - precedence for arithmetic-related Binary-Associative (Commutative) operators.
precA :: AssocArithOper -> Int
precA :: AssocArithOper -> Int
precA AssocArithOper
Mul = Int
190
precA AssocArithOper
Add = Int
180

-- | precB - precedence for boolean-related Binary-Associative (Commutative) operators.
precB :: AssocBoolOper -> Int
precB :: AssocBoolOper -> Int
precB AssocBoolOper
And = Int
120
precB AssocBoolOper
Or = Int
110

precC :: AssocConcatOper -> Int
precC :: AssocConcatOper -> Int
precC AssocConcatOper
SUnion = Int
120

-- | prec1 - precedence of unary operators.
prec1 :: UFunc -> Int
prec1 :: UFunc -> Int
prec1 UFunc
Neg = Int
230
prec1 UFunc
Exp = Int
200
prec1 UFunc
_ = Int
250

-- | prec1B - precedence of boolean-related unary operators.
prec1B :: UFuncB -> Int
prec1B :: UFuncB -> Int
prec1B UFuncB
Not = Int
230

-- | prec1VV - precedence of vector-vector-related unary operators.
prec1VV :: UFuncVV -> Int
prec1VV :: UFuncVV -> Int
prec1VV UFuncVV
_ = Int
250

-- | prec1VN - precedence of vector-number-related unary operators.
prec1VN :: UFuncVN -> Int
prec1VN :: UFuncVN -> Int
prec1VN UFuncVN
_ = Int
230

-- | eprec - "Expression" precedence.
eprec :: CodeExpr -> Int
eprec :: CodeExpr -> Int
eprec Lit{}                  = Int
500
eprec (AssocA AssocArithOper
op [CodeExpr]
_)          = AssocArithOper -> Int
precA AssocArithOper
op
eprec (AssocB AssocBoolOper
op [CodeExpr]
_)          = AssocBoolOper -> Int
precB AssocBoolOper
op
eprec (AssocC AssocConcatOper
op [CodeExpr]
_)          = AssocConcatOper -> Int
precC AssocConcatOper
op
eprec C{}                    = Int
500
eprec FCall{}                = Int
210
eprec New{}                  = Int
210
eprec Message{}              = Int
210
eprec Field{}                = Int
210
eprec Case{}                 = Int
200
eprec Matrix{}               = Int
220
eprec Set{}                  = Int
220
eprec (Variable String
_ CodeExpr
_)         = Int
220
eprec (UnaryOp UFunc
fn CodeExpr
_)         = UFunc -> Int
prec1 UFunc
fn
eprec (UnaryOpB UFuncB
fn CodeExpr
_)        = UFuncB -> Int
prec1B UFuncB
fn
eprec (UnaryOpVV UFuncVV
fn CodeExpr
_)       = UFuncVV -> Int
prec1VV UFuncVV
fn
eprec (UnaryOpVN UFuncVN
fn CodeExpr
_)       = UFuncVN -> Int
prec1VN UFuncVN
fn
eprec (Operator AssocArithOper
o DiscreteDomainDesc CodeExpr CodeExpr
_ CodeExpr
_)       = AssocArithOper -> Int
precA AssocArithOper
o
eprec (ArithBinaryOp ArithBinOp
bo CodeExpr
_ CodeExpr
_) = ArithBinOp -> Int
prec2Arith ArithBinOp
bo
eprec (BoolBinaryOp BoolBinOp
bo CodeExpr
_ CodeExpr
_)  = BoolBinOp -> Int
prec2Bool BoolBinOp
bo
eprec (EqBinaryOp EqBinOp
bo CodeExpr
_ CodeExpr
_)    = EqBinOp -> Int
prec2Eq EqBinOp
bo
eprec (LABinaryOp LABinOp
bo CodeExpr
_ CodeExpr
_)    = LABinOp -> Int
prec2LA LABinOp
bo
eprec (OrdBinaryOp OrdBinOp
bo CodeExpr
_ CodeExpr
_)   = OrdBinOp -> Int
prec2Ord OrdBinOp
bo
eprec (VVVBinaryOp VVVBinOp
bo CodeExpr
_ CodeExpr
_)   = VVVBinOp -> Int
prec2VVV VVVBinOp
bo
eprec (VVNBinaryOp VVNBinOp
bo CodeExpr
_ CodeExpr
_)   = VVNBinOp -> Int
prec2VVN VVNBinOp
bo
eprec (NVVBinaryOp NVVBinOp
bo CodeExpr
_ CodeExpr
_)   = NVVBinOp -> Int
prec2NVV NVVBinOp
bo
eprec (ESSBinaryOp ESSBinOp
bo CodeExpr
_ CodeExpr
_)   = ESSBinOp -> Int
prec2ESS ESSBinOp
bo
eprec (ESBBinaryOp ESBBinOp
bo CodeExpr
_ CodeExpr
_)   = ESBBinOp -> Int
prec2ESB ESBBinOp
bo
eprec RealI{}                = Int
170