GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-23 09:52:55 -06:00
Code Issues Packages Projects Releases Wiki Activity

ResEng.mkS to mkClause

Browse Source
This commit is contained in:
aarne
2005-12-07 21:51:40 +00:00
parent b7cb68eb08
commit 5a9db982dc
5 changed files with 24 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
lib/resource-1.0/english/ExtEng.gf
View File

@@ -6,19 +6,19 @@ concrete ExtEng of ExtEngAbs = CatEng ** open ResEng in {
lin
PredAux np aux vp = mkS (np.s ! Nom) np.a
(\\t,ant,b,ord,agr =>
let
fin = aux.s ! b ;
vf : Str -> Str -> {fin, inf : Str} = \x,y ->
{fin = x ; inf = y} ;
in
case ant of {
Simul => vf fin [] ;
Anter => vf fin "have"
}
)
(\\agr => infVP vp agr) ;
PredAux np aux vp = mkClause (np.s ! Nom) np.a {
s = \\t,ant,b,ord,agr =>
let
fin = aux.s ! b ;
vf : Str -> Str -> {fin, inf : Str} = \x,y ->
{fin = x ; inf = y} ;
in
case ant of {
Simul => vf fin [] ;
Anter => vf fin "have"
} ;
s2 = \\agr => infVP vp agr
} ;
can_Aux = {s = \\p => posneg p "can"} ; ---- cannt
must_Aux = {s = \\p => posneg p "must"} ;