forked from GitHub/gf-core
d7e3c869c2
The work done by the partial evaluator is now divied in two stages: - A static "term traversal" stage that happens only once per term and uses only statically known information. In particular, the values of lambda bound variables are unknown during this stage. Some tables are transformed to reduce the cost of pattern matching. - A dynamic "function application" stage, where function bodies can be evaluated repeatedly with different arguments, without the term traversal overhead and without recomputing statically known information. Also the treatment of predefined functions has been reworked to take advantage of the staging and better handle partial applications.
56 lines
1.7 KiB
Haskell
56 lines
1.7 KiB
Haskell
module GF.Compile.Compute.Value where
|
|
import GF.Grammar.Grammar(Label,Type,TInfo,MetaId,Patt,QIdent)
|
|
import PGF.Data(BindType)
|
|
import GF.Infra.Ident(Ident)
|
|
import Text.Show.Functions
|
|
import Data.Ix(Ix)
|
|
|
|
-- | Self-contained (not quite) representation of values
|
|
data Value
|
|
= VApp Predefined [Value] -- from Q, always Predef.x, has a built-in value
|
|
| VCApp QIdent [Value] -- from QC, constructors
|
|
| VGen Int [Value] -- for lambda bound variables, possibly applied
|
|
| VMeta MetaId Env [Value]
|
|
-- | VClosure Env Term -- used in Typecheck.ConcreteNew
|
|
| VAbs BindType Ident Binding -- used in Compute.ConcreteNew
|
|
| VProd BindType Value Ident Binding -- used in Compute.ConcreteNew
|
|
| VInt Int
|
|
| VFloat Double
|
|
| VString String
|
|
| VSort Ident
|
|
| VImplArg Value
|
|
| VTblType Value Value
|
|
| VRecType [(Label,Value)]
|
|
| VRec [(Label,Value)]
|
|
| VV Type [Value] [Value] -- preserve type for conversion back to Term
|
|
| VT Wild Value [(Patt,Bind Env)]
|
|
| VC Value Value
|
|
| VS Value Value
|
|
| VP Value Label
|
|
| VPatt Patt
|
|
| VPattType Value
|
|
| VFV [Value]
|
|
| VAlts Value [(Value, Value)]
|
|
| VStrs [Value]
|
|
-- | VGlue Value Value -- hmm
|
|
| VExtR Value Value -- hmm
|
|
| VError String
|
|
deriving (Eq,Show)
|
|
|
|
type Wild = Bool
|
|
type Binding = Bind Value
|
|
data Bind a = Bind (a->Value) deriving Show
|
|
|
|
instance Eq (Bind a) where x==y = False
|
|
|
|
type Env = [(Ident,Value)]
|
|
|
|
-- | Predefined functions
|
|
data Predefined = Drop | Take | Tk | Dp | EqStr | Occur | Occurs | ToUpper
|
|
| ToLower | IsUpper | Length | Plus | EqInt | LessInt
|
|
{- | Show | Read | ToStr | MapStr | EqVal -}
|
|
| Error
|
|
-- Canonical values below:
|
|
| PBool | PFalse | PTrue | Ints
|
|
deriving (Show,Eq,Ord,Ix,Bounded,Enum)
|