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

controlling the gender in Swe mkN ; not clear if needed

Browse Source
This commit is contained in:
aarne
2011-11-30 20:16:07 +00:00
parent e54b17bd7d
commit 474e77ec7f
2 changed files with 14 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
lib/src/swedish/ParadigmsSwe.gf
View File

@@ -88,9 +88,13 @@ oper
mkN : (nyckel,nycklar : Str) -> N ; -- singular and plural suffice for most nouns mkN : (nyckel,nycklar : Str) -> N ; -- singular and plural suffice for most nouns
-- In the worst case, four forms are needed. -- In the worst case, four forms are needed,
mkN : (museum,museet,museer,museerna : Str) -> N -- worst case for nouns mkN : (museum,museet,museer,museerna : Str) -> N ; -- worst case for nouns
-- and perhaps a gender.
mkN : (museum,museet,museer,museerna : Str) -> Gender -> N -- even worse case for nouns
} ; } ;
-- All the functions above work quite as well to form *compound nouns*, -- All the functions above work quite as well to form *compound nouns*,
@@ -313,7 +317,8 @@ oper
mkN : (apa : Str) -> N = regN ; mkN : (apa : Str) -> N = regN ;
mkN : Str -> Gender -> N = regGenN ; mkN : Str -> Gender -> N = regGenN ;
mkN : (nyckel, nycklar : Str) -> N = mk2N ; mkN : (nyckel, nycklar : Str) -> N = mk2N ;
mkN : (museum,museet,museer,museerna : Str) -> N = mk4N mkN : (museum,museet,museer,museerna : Str) -> N = mk4N ;
mkN : (museum,museet,museer,museerna : Str) -> Gender -> N = mk5N
} ; } ;
mk4N : (museum,museet,museer,museerna : Str) -> N = \apa,apan,apor,aporna -> { mk4N : (museum,museet,museer,museerna : Str) -> N = \apa,apan,apor,aporna -> {
@@ -324,6 +329,11 @@ oper
} }
} ** {lock_N = <>} ; } ** {lock_N = <>} ;
mk5N : (museum,museet,museer,museerna : Str) -> Gender -> N = \apa,apan,apor,aporna,g -> {
s = nounForms apa apan apor aporna ;
g = g
} ** {lock_N = <>} ;
regN : Str -> N = \bil -> regGenN bil g where { regN : Str -> N = \bil -> regGenN bil g where {
g = case <bil : Str> of { g = case <bil : Str> of {
_ + "e" => Neutr ; _ + "e" => Neutr ;

2
lib/src/thai/LexiconTha.gf
View File

@@ -51,7 +51,7 @@ lin
-- brown_A = regADeg "brown" ; -- brown_A = regADeg "brown" ;
burn_V = mkV (thword "เผา") ; burn_V = mkV (thword "เผา") ;
-- butter_N = regN "butter" ; -- butter_N = regN "butter" ;
-- buy_V2 = dirV2 (irregV "buy" "bought" "bought") ; buy_V2 = mkV2 "ซีอ" ;
-- camera_N = regN "camera" ; -- camera_N = regN "camera" ;
-- cap_N = regN "cap" ; -- cap_N = regN "cap" ;
car_N = mkN "รถ" "คัน" ; car_N = mkN "รถ" "คัน" ;