msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

added MakeStructuralSwe.mkIDet

Browse Source
This commit is contained in:
Aarne Ranta
2018-09-29 10:30:07 +02:00
parent de279ac576
commit cf93875bfa
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/swedish/MakeStructuralSwe.gf
View File

@@ -21,6 +21,9 @@ oper
[table (P.Gender) [vilken;vilket] ; table (P.Gender) [vilka;vilka]] ;
det = d ; lock_IQuant = <>} ;
mkIDet : Str -> Str -> Number -> IDet = \utr,neutr,n ->
lin IDet {s = table NGender [utr;neutr] ; n = n ; det = DIndef} ;
mkQuant : Str -> Str -> Str -> Quant = \naagon,naagot,naagra ->
lin Quant {s,sp = table {
Sg => \\_,_ => table {Utr => naagon ; Neutr => naagot} ;