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

agreement in German Predet

Browse Source
This commit is contained in:
aarne
2010-01-05 13:35:24 +00:00
parent 234a3d3633
commit 1bbc4ec91d
6 changed files with 41 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
lib/src/german/MakeStructuralGer.gf
View File

@@ -1,6 +1,6 @@
--# -path=.:../common:../abstract
resource MakeStructuralGer = open CatGer, ParadigmsGer, MorphoGer, Prelude in {
resource MakeStructuralGer = open CatGer, (P = ParadigmsGer), MorphoGer, Prelude in {
oper
mkConj : Str -> Str -> Number -> Conj = \x,y,n ->
@@ -10,4 +10,18 @@ oper
mkIQuant : Str -> IQuant = \s ->
{s = \\_,_,_ => s ; lock_IQuant = <>} ;
mkPredet = overload {
mkPredet : A -> Predet = \a ->
lin Predet {
s = appAdj a ;
c = noCase ;
a = PAgNone
} ;
mkPredet : A -> Str -> Case -> Bool -> Number -> Predet = \a,p,c,b,n ->
lin Predet {
s = appAdj a ;
c = {p = p ; k = PredCase c} ;
a = case b of {True => PAg n ; _ => PAgNone}
}
} ;
}