-- | Defines operator precedence.
module Language.Drasil.ModelExpr.Precedence where

import Language.Drasil.ModelExpr.Lang 

-- 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

prec2Spc :: SpaceBinOp -> Int
prec2Spc :: SpaceBinOp -> Int
prec2Spc SpaceBinOp
_ = Int
170

prec2Stat :: StatBinOp -> Int
prec2Stat :: StatBinOp -> Int
prec2Stat StatBinOp
_ = 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

-- | precA - precedence for arithmetic-related Binary-Associative (Commutative) operators.
precA :: AssocArithOper -> Int
precA :: AssocArithOper -> Int
precA AssocArithOper
MulI  = Int
190
precA AssocArithOper
MulRe = Int
190
precA AssocArithOper
AddI  = Int
180
precA AssocArithOper
AddRe = 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
precB AssocBoolOper
Equivalence = Int
100

-- | 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

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

-- | eprec - `ModelExpr` precedence.
mePrec :: ModelExpr -> Int
mePrec :: ModelExpr -> Int
mePrec Lit{}                  = Int
500
mePrec Spc{}                  = Int
500
mePrec (AssocA AssocArithOper
op [ModelExpr]
_)          = AssocArithOper -> Int
precA AssocArithOper
op
mePrec (AssocB AssocBoolOper
op [ModelExpr]
_)          = AssocBoolOper -> Int
precB AssocBoolOper
op
mePrec C{}                    = Int
500
mePrec Deriv{}                = ArithBinOp -> Int
prec2Arith ArithBinOp
Frac
mePrec FCall{}                = Int
210
mePrec Case{}                 = Int
200
mePrec Matrix{}               = Int
220
mePrec (UnaryOp UFunc
fn ModelExpr
_)         = UFunc -> Int
prec1 UFunc
fn
mePrec (UnaryOpB UFuncB
fn ModelExpr
_)        = UFuncB -> Int
prec1B UFuncB
fn
mePrec (UnaryOpVV UFuncVV
fn ModelExpr
_)       = UFuncVV -> Int
prec1VV UFuncVV
fn
mePrec (UnaryOpVN UFuncVN
fn ModelExpr
_)       = UFuncVN -> Int
prec1VN UFuncVN
fn
mePrec (Operator AssocArithOper
o DomainDesc t ModelExpr ModelExpr
_ ModelExpr
_)       = AssocArithOper -> Int
precA AssocArithOper
o
mePrec (ArithBinaryOp ArithBinOp
bo ModelExpr
_ ModelExpr
_) = ArithBinOp -> Int
prec2Arith ArithBinOp
bo
mePrec (BoolBinaryOp BoolBinOp
bo ModelExpr
_ ModelExpr
_)  = BoolBinOp -> Int
prec2Bool BoolBinOp
bo
mePrec (EqBinaryOp EqBinOp
bo ModelExpr
_ ModelExpr
_)    = EqBinOp -> Int
prec2Eq EqBinOp
bo
mePrec (LABinaryOp LABinOp
bo ModelExpr
_ ModelExpr
_)    = LABinOp -> Int
prec2LA LABinOp
bo
mePrec (SpaceBinaryOp SpaceBinOp
bo ModelExpr
_ ModelExpr
_) = SpaceBinOp -> Int
prec2Spc SpaceBinOp
bo
mePrec (StatBinaryOp StatBinOp
bo ModelExpr
_ ModelExpr
_)  = StatBinOp -> Int
prec2Stat StatBinOp
bo
mePrec (OrdBinaryOp OrdBinOp
bo ModelExpr
_ ModelExpr
_)   = OrdBinOp -> Int
prec2Ord OrdBinOp
bo
mePrec (VVVBinaryOp VVVBinOp
bo ModelExpr
_ ModelExpr
_)   = VVVBinOp -> Int
prec2VVV VVVBinOp
bo
mePrec (VVNBinaryOp VVNBinOp
bo ModelExpr
_ ModelExpr
_)   = VVNBinOp -> Int
prec2VVN VVNBinOp
bo
mePrec (NVVBinaryOp NVVBinOp
bo ModelExpr
_ ModelExpr
_)   = NVVBinOp -> Int
prec2NVV NVVBinOp
bo
mePrec RealI{}                = Int
170
mePrec ForAll{}               = Int
130