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

PredChi complete

Browse Source
This commit is contained in:
aarne
2014-03-06 07:28:34 +00:00
parent 189318bf25
commit abc6d5c58b
5 changed files with 145 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/src/experimental/PredInstanceChi.gf
View File

@@ -1,5 +1,5 @@
instance PredInstanceChi of
PredInterface - [PrVerb,initPrVerb] =
PredInterface - [PrVerb,initPrVerb,NounPhrase,appSubjCase,appObjCase] =
open ResChi, (P = ParadigmsChi), (X = ParamX), (S = SyntaxChi), Prelude in {
@@ -19,6 +19,10 @@ oper
} ;
NounPhrase = {s : Str} ;
appSubjCase : NounPhrase -> Str = \np -> np.s ;
appObjCase : NounPhrase -> Str = \np -> np.s ;
---------------------
-- parameters -------
@@ -52,7 +56,7 @@ oper
ComplCase = Preposition ;
appComplCase : ComplCase -> NounPhrase -> Str = \p,np -> appPrep p (np.s ! UUnit) ; ---- advType
appComplCase : ComplCase -> NounPhrase -> Str = \p,np -> appPrep p np.s ; ---- advType
noComplCase : ComplCase = P.mkPrep [] ;
strComplCase : ComplCase -> Str = \c -> c.prepPre ++ c.prepPost ;