mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-09 11:12:51 -06:00
rules for constructing structural words (separate from Paradigms - is this desirable?)
This commit is contained in:
11
next-lib/src/swedish/MakeStructuralSwe.gf
Normal file
11
next-lib/src/swedish/MakeStructuralSwe.gf
Normal file
@@ -0,0 +1,11 @@
|
||||
--# -path=.:../scandinavian:../common:../abstract
|
||||
|
||||
resource MakeStructuralSwe = open CatSwe, ParadigmsSwe, MorphoSwe, Prelude in {
|
||||
|
||||
oper
|
||||
mkConj : Str -> Str -> Number -> Conj = \x,y,n ->
|
||||
{s1 = x ; s2 = y ; n = n ; lock_Conj = <>} ;
|
||||
mkSubj : Str -> Subj = \x ->
|
||||
{s = x ; lock_Subj = <>} ;
|
||||
|
||||
}
|
||||
@@ -125,8 +125,6 @@ concrete StructuralSwe of Structural = CatSwe **
|
||||
|
||||
lin
|
||||
not_Predet = {s = \\_ => "inte"} ;
|
||||
nothing_but_Predet = {s = \\_ => "inget förutom"} ;
|
||||
nobody_but_Predet = {s = \\_ => "ingen förutom"} ;
|
||||
no_Quant =
|
||||
{s = table {
|
||||
Sg => \\_,_ => genderForms "ingen" "inget" ;
|
||||
@@ -141,5 +139,7 @@ lin
|
||||
|
||||
at_least_AdN = ss "minst" ;
|
||||
at_most_AdN = ss "högst" ;
|
||||
|
||||
except_Prep = ss "utom" ;
|
||||
}
|
||||
|
||||
|
||||
Reference in New Issue
Block a user