GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-22 11:19:32 -06:00
Code Issues Packages Projects Releases Wiki Activity

added function unType in PGF

Browse Source
This commit is contained in:
krasimir
2010-07-31 12:47:10 +00:00
parent fefd78222a
commit ebe5b87738
2 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/runtime/haskell/PGF.hs
View File

@@ -30,6 +30,7 @@ module PGF(
Type, Hypo, Type, Hypo,
showType, readType, showType, readType,
mkType, mkHypo, mkDepHypo, mkImplHypo, mkType, mkHypo, mkDepHypo, mkImplHypo,
unType,
categories, startCat, categories, startCat,
-- * Functions -- * Functions

4
src/runtime/haskell/PGF/Type.hs
View File

@@ -1,6 +1,7 @@
module PGF.Type ( Type(..), Hypo, module PGF.Type ( Type(..), Hypo,
readType, showType, readType, showType,
mkType, mkHypo, mkDepHypo, mkImplHypo, mkType, mkHypo, mkDepHypo, mkImplHypo,
unType,
pType, ppType, ppHypo ) where pType, ppType, ppHypo ) where
import PGF.CId import PGF.CId
@@ -51,6 +52,9 @@ mkDepHypo x ty = (Explicit,x,ty)
mkImplHypo :: CId -> Type -> Hypo mkImplHypo :: CId -> Type -> Hypo
mkImplHypo x ty = (Implicit,x,ty) mkImplHypo x ty = (Implicit,x,ty)
unType :: Type -> ([Hypo], CId, [Expr])
unType (DTyp hyps cat es) = (hyps, cat, es)
pType :: RP.ReadP Type pType :: RP.ReadP Type
pType = do pType = do
RP.skipSpaces RP.skipSpaces