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

Scandinavian conjunction

Browse Source
This commit is contained in:
aarne
2005-12-07 22:22:29 +00:00
parent 5a9db982dc
commit 59d1b1271b
7 changed files with 77 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
lib/resource-1.0/scandinavian/ParamScand.gf
View File

@@ -80,6 +80,20 @@ oper
Pres => VF (VPres v) ;
Past => VF (VPret v) ;
_ => VI (VInfin v) --- not to be used?
} ;
} ;
-- Used in $ConjunctionScand$.
conjGenNum : (_,_ : GenNum) -> GenNum = \g,h -> case <g,h> of {
<SgUtr,SgUtr> => SgUtr ;
<Plg, _> => Plg ;
<_, Plg> => Plg ;
_ => SgNeutr
} ;
conjAgr : (_,_ : Agr) -> Agr = \a,b -> {
gn = conjGenNum a.gn b.gn ;
p = conjPerson a.p b.p
} ;
}