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

completed lifting Eng verbs categories to Pred.V

Browse Source
This commit is contained in:
aarne
2014-02-07 09:53:38 +00:00
parent 74d6cd6d85
commit ed45089b83
3 changed files with 26 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/src/experimental/PredEng.gf
View File

@@ -57,7 +57,7 @@ oper
noObj : Agr => Str = \\_ => [] ;
NAgr = Number ;
AAgr = Unit ;
AAgr = Agr ; -- because of reflexives: "happy with itself"
IPAgr = Number ;
defaultAgr : Agr = AgP3Sg Neutr ;
@@ -69,7 +69,7 @@ oper
_ => VAPl
} ;
agr2aagr : Agr -> AAgr = \n -> UUnit ;
agr2aagr : Agr -> AAgr = \a -> a ;
agr2nagr : Agr -> NAgr = \a -> case a of {
AgP1 n => n ;
@@ -213,7 +213,7 @@ linref
PrCl = \cl -> declCl cl ;
---- PrQCl = \qcl -> questCl (lin PrQCl qcl) ;
PrAdv = \adv -> adv.c1 ++ adv.s ;
PrAP = \ap -> ap.s ! UUnit ++ ap.obj1 ! defaultAgr ;
PrAP = \ap -> ap.s ! defaultAgr ++ ap.obj1 ! defaultAgr ;
PrCN = \cn -> cn.s ! Sg ++ cn.obj1 ! defaultAgr ;
----------------------------