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

swedish lexicon fixes

Browse Source
This commit is contained in:
aarne
2006-01-25 20:27:38 +00:00
parent 75e6f51bbc
commit 5052c9bab0
2 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/resource-1.0/swedish/LexiconSwe.gf
View File

@@ -148,7 +148,7 @@ lin
religion_N = mk2N "religion" "religioner" ;
restaurant_N = mk2N "restaurang" "restauranger" ;
river_N = mkN "å" "ån" "åar" "åarna" ;
rock_N = regN "sten" utrum ;
rock_N = mkN "sten" "stenen" "stenar" "stenarna" ;
roof_N = regN "tak" neutrum ;
rubber_N = mkN "gummi" "gummit" "gummin" "gummina" ;
run_V = (irregV "springa" "sprang" "sprungit") ;
@@ -163,7 +163,7 @@ lin
sheep_N = mk2N "får" "får" ;
ship_N = regN "skepp" neutrum ;
shirt_N = regN "skjorta" utrum ;
shoe_N = regN "sko" utrum ;
shoe_N = mk2N "sko" "skor" ;
shop_N = mk2N "affär" "affären" ;
short_A = regA "kort" ;
silver_N = mkN "silver" "silvret" "silver" "silvren" ;
@@ -175,7 +175,7 @@ lin
speak_V2 = dirV2 (regV "tala") ;
star_N = regN "stjärna" utrum ;
steel_N = regN "stål" utrum ;
stone_N = regN "sten" utrum ;
stone_N = mkN "sten" "stenen" "stenar" "stenarna" ;
stove_N = regN "spis" utrum ;
student_N = mk2N "student" "studenter" ;
stupid_A = mk3A "dum" "dumt" "dumma" ;

7
lib/resource-1.0/swedish/ParadigmsSwe.gf
View File

@@ -318,9 +318,10 @@ oper
decl2Noun : Str -> N = \bil ->
let
bb : Str * Str = case bil of {
pojk + "e" => <pojk + "ar", bil + "n"> ;
nyck + "e" + l@("l" | "r" | "n") => <nyck + l + "ar",bil + "n"> ;
_ => <bil + "ar", bil + "en">
pojk + "e" => <pojk + "ar", bil + "n"> ;
nyck + "e" + l@("l" | "r") => <nyck + l + "ar",bil + "n"> ;
sock + "e" + "n" => <sock + "nar", sock + "nen"> ;
_ => <bil + "ar", bil + "en">
} ;
in mkN bil bb.p2 bb.p1 (bb.p1 + "na") ;