GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-16 14:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

some more paradigms for Swe

Browse Source
This commit is contained in:
aarne
2013-10-28 16:44:27 +00:00
parent 56893dbf54
commit 0997f1e611
3 changed files with 58 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
lib/src/swedish/MakeStructuralSwe.gf
View File

@@ -4,10 +4,16 @@ resource MakeStructuralSwe = open CatSwe,
(P=ParadigmsSwe), MorphoSwe, Prelude in {
oper
mkConj : Str -> Str -> P.Number -> Conj = \x,y,n ->
{s1 = x ; s2 = y ; n = n ; lock_Conj = <>} ;
mkSubj : Str -> Subj = \x ->
{s = x ; lock_Subj = <>} ;
mkConj = overload {
mkConj : Str -> Conj
= \s -> lin Conj {s1 = [] ; s2 = s ; n = P.plural} ;
mkConj : Str -> Str -> P.Number -> Conj
= \x,y,n -> {s1 = x ; s2 = y ; n = n ; lock_Conj = <>} ;
} ;
mkSubj : Str -> Subj
= \x -> {s = x ; lock_Subj = <>} ;
mkIQuant : Str -> Str -> Str -> DetSpecies -> IQuant = \vilken,vilket,vilka,d ->
{s = table (P.Number)
[table (P.Gender) [vilken;vilket] ; table (P.Gender) [vilka;vilka]] ;
@@ -21,8 +27,14 @@ oper
det = DIndef
} ;
mkDet : Str -> P.Number -> Det = \s,n ->
lin Det {s,sp = \\_,_ => s ; n = n ; det = DDef Indef} ;
mkDet = overload {
mkDet : Str -> Det
= \s -> lin Det {s,sp = \\_,_ => s ; n = P.singular ; det = DDef Indef} ;
mkDet : Str -> P.Number -> Det
= \s,n -> lin Det {s,sp = \\_,_ => s ; n = n ; det = DDef Indef} ;
mkDet : Str -> Str -> P.Number -> Det
= \ingen,inget,n -> lin Det {s,sp = \\_ => table NGender [ingen ; inget] ; n = n ; det = DDef Indef} ;
} ;
dDefIndef : DetSpecies = DDef Indef ;
---- other DetSpecies