GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-19 08:02:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

PGF.Type.Hypo now can represent explicit and implicit arguments and argument without bound variable

Browse Source
This commit is contained in:
krasimir
2009-07-05 15:44:52 +00:00
parent a2929ac2b1
commit cb6244c820
8 changed files with 56 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/PGF/Macros.hs
View File

@@ -105,15 +105,20 @@ depth (Fun _ ts) = maximum (0:map depth ts) + 1
depth _ = 1
cftype :: [CId] -> CId -> Type
cftype args val = DTyp [Hyp wildCId (cftype [] arg) | arg <- args] val []
cftype args val = DTyp [Hyp (cftype [] arg) | arg <- args] val []
typeOfHypo :: Hypo -> Type
typeOfHypo (Hyp ty) = ty
typeOfHypo (HypV _ ty) = ty
typeOfHypo (HypI _ ty) = ty
catSkeleton :: Type -> ([CId],CId)
catSkeleton ty = case ty of
DTyp hyps val _ -> ([valCat ty | Hyp _ ty <- hyps],val)
DTyp hyps val _ -> ([valCat (typeOfHypo h) | h <- hyps],val)
typeSkeleton :: Type -> ([(Int,CId)],CId)
typeSkeleton ty = case ty of
DTyp hyps val _ -> ([(contextLength ty, valCat ty) | Hyp _ ty <- hyps],val)
DTyp hyps val _ -> ([(contextLength ty, valCat ty) | h <- hyps, let ty = typeOfHypo h],val)
valCat :: Type -> CId
valCat ty = case ty of