mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 04:59:31 -06:00
More swadesh swedish fixes + related irregular verbs.
This commit is contained in:
@@ -187,6 +187,7 @@ adj2Reg : Str -> Str -> Adj = \vid,vitt -> adjAlmostReg vid vitt (vid + "a") ;
|
||||
} ;
|
||||
såld = case Predef.dp 2 sålt of {
|
||||
"it" => Predef.tk 2 sålt + "en" ;
|
||||
"tt" => Predef.tk 2 sålt + "dd" ;
|
||||
_ => init sålt + "d"
|
||||
}
|
||||
in
|
||||
|
||||
@@ -157,7 +157,7 @@ concrete SwadeshLexSwe of SwadeshLex = CategoriesSwe
|
||||
sea_N = sea_N ;
|
||||
seed_N = regN "frö" neutrum ;
|
||||
skin_N = regN "skinn" neutrum ;
|
||||
sky_N = regN "himmel" "himlar" ;
|
||||
sky_N = mk2N "himmel" "himlar" ;
|
||||
smoke_N = regN "rök" utrum ;
|
||||
snake_N = snake_N ;
|
||||
snow_N = regN "snö" utrum ;
|
||||
@@ -177,7 +177,7 @@ concrete SwadeshLexSwe of SwadeshLex = CategoriesSwe
|
||||
worm_N = regN "mask" utrum ;
|
||||
year_N = regN "år" neutrum ;
|
||||
|
||||
name_N2 = mkN2 (regN "namn") "på" ;
|
||||
-- name_N2 = mkN2 (regN "namn") "på" ;
|
||||
mother_N2 = mother_N2 ;
|
||||
father_N2 = father_N2 ;
|
||||
|
||||
@@ -212,7 +212,7 @@ concrete SwadeshLexSwe of SwadeshLex = CategoriesSwe
|
||||
lie_V = ljuga_V ;
|
||||
live_V = mk2V "leva" "levde" ;
|
||||
play_V = mk2V "leka" "lekte" ;
|
||||
pull_V = dra_V ;
|
||||
pull_V = draga_V ;
|
||||
push_V = mk2V "trycka" "tryckte" ;
|
||||
rub_V = smörja_V ;
|
||||
say_V = säga_V ;
|
||||
|
||||
@@ -45,7 +45,7 @@ concrete VerbsSwe of VerbsSweAbs = CategoriesSwe ** open ParadigmsSwe in {
|
||||
brista_V = irregV "brista" "brast" "brustit" ;
|
||||
bryta_V = irregV "bryta" "bröt" "brutit" ;
|
||||
dö_V = irregV "dö" "dog" "dött" ;
|
||||
draga_V = irregV "draga" "drog" "dragit" ;
|
||||
draga_V = irregV (variants { "draga"; "dra"}) "drog" "dragit" ;
|
||||
dricka_V = irregV "dricka" "drack" "druckit" ;
|
||||
driva_V = irregV "driva" "drev" "drivit" ;
|
||||
drypa_V = irregV "drypa" "dröp" "drupit" ;
|
||||
@@ -73,6 +73,7 @@ concrete VerbsSwe of VerbsSweAbs = CategoriesSwe ** open ParadigmsSwe in {
|
||||
försvinna_V = irregV "försvinna" "försvann" "försvunnit" ;
|
||||
förtiga_V = irregV "förtiga" "förteg" "förtigit" ;
|
||||
frysa_V = irregV "frysa" "frös" "frusit" ;
|
||||
gå_V = irregV "gå" "gick" "gått" ;
|
||||
genomdriva_V = irregV "genomdriva" "genomdrev" "genomdrivit" ;
|
||||
gilla_V = irregV "gilla" "gall" "gillit" ;
|
||||
giva_V = irregV "ge" "gav" "givit" ;
|
||||
@@ -92,6 +93,7 @@ concrete VerbsSwe of VerbsSweAbs = CategoriesSwe ** open ParadigmsSwe in {
|
||||
inskriva_V = irregV "inskriva" "inskrev" "inskrivit" ;
|
||||
intaga_V = irregV "intaga" "intog" "intagit" ;
|
||||
kliva_V = irregV "kliva" "klev" "klivit" ;
|
||||
klyva_V = irregV "klyva" "klöv" "kluvit" ;
|
||||
knipa_V = irregV "knipa" "knep" "knipit" ;
|
||||
knyta_V = irregV "knyta" "knöt" "knutit" ;
|
||||
komma_V = irregV "komma" "kom" "kommit" ;
|
||||
@@ -114,6 +116,8 @@ concrete VerbsSwe of VerbsSweAbs = CategoriesSwe ** open ParadigmsSwe in {
|
||||
rinna_V = irregV "rinna" "rann" "runnit" ;
|
||||
riva_V = irregV "riva" "rev" "rivit" ;
|
||||
ryta_V = irregV "ryta" "röt" "rutit" ;
|
||||
säga_V = irregV "säga" "sade" "sagt" ;
|
||||
se_V = irregV "se" "såg" "sett" ;
|
||||
sitta_V = irregV "sitta" "satt" "suttit" ;
|
||||
sjuda_V = irregV "sjuda" "sjöd" "sjudit" ;
|
||||
sjunga_V = irregV "sjunga" "sjöng" "sjungit" ;
|
||||
@@ -131,8 +135,10 @@ concrete VerbsSwe of VerbsSweAbs = CategoriesSwe ** open ParadigmsSwe in {
|
||||
slippa_V = irregV "slippa" "slapp" "sluppit" ;
|
||||
slita_V = irregV "slita" "slet" "slitit" ;
|
||||
sluta_V = irregV "sluta" "slöt" "slutit" ;
|
||||
smörja_V = irregV "smörja" "smorjde" "smort" ;
|
||||
smita_V = irregV "smita" "smet" "smitit" ;
|
||||
snyta_V = irregV "snyta" "snöt" "snutit" ;
|
||||
sova_V = irregV "sova" "sov" "sovit" ;
|
||||
spinna_V = irregV "spinna" "spann" "spunnit" ;
|
||||
spricka_V = irregV "spricka" "sprack" "spruckit" ;
|
||||
sprida_V = irregV "sprida" "spred" "spridit" ;
|
||||
@@ -147,6 +153,7 @@ concrete VerbsSwe of VerbsSweAbs = CategoriesSwe ** open ParadigmsSwe in {
|
||||
supa_V = irregV "supa" "söp" "supit" ;
|
||||
svida_V = irregV "svida" "sved" "svidit" ;
|
||||
svika_V = irregV "svika" "svek" "svikit" ;
|
||||
sy_V = irregV "sy" "sydde" "sytt" ;
|
||||
taga_V = irregV "taga" "tog" "tagit" ;
|
||||
tiga_V = irregV "tiga" "teg" "tigit" ;
|
||||
tillåta_V = irregV "tillåta" "tillät" "tillåtit" ;
|
||||
|
||||
@@ -68,6 +68,7 @@ abstract VerbsSweAbs = Categories ** {
|
||||
försvinna_V : V ;
|
||||
förtiga_V : V ;
|
||||
frysa_V : V ;
|
||||
gĺ_V : V ;
|
||||
genomdriva_V : V ;
|
||||
gilla_V : V ;
|
||||
giva_V : V ;
|
||||
@@ -87,6 +88,7 @@ abstract VerbsSweAbs = Categories ** {
|
||||
inskriva_V : V ;
|
||||
intaga_V : V ;
|
||||
kliva_V : V ;
|
||||
klyva_V : V ;
|
||||
knipa_V : V ;
|
||||
knyta_V : V ;
|
||||
komma_V : V ;
|
||||
@@ -109,6 +111,8 @@ abstract VerbsSweAbs = Categories ** {
|
||||
rinna_V : V ;
|
||||
riva_V : V ;
|
||||
ryta_V : V ;
|
||||
säga_V : V ;
|
||||
se_V : V ;
|
||||
sitta_V : V ;
|
||||
sjuda_V : V ;
|
||||
sjunga_V : V ;
|
||||
@@ -126,8 +130,10 @@ abstract VerbsSweAbs = Categories ** {
|
||||
slippa_V : V ;
|
||||
slita_V : V ;
|
||||
sluta_V : V ;
|
||||
smörja_V : V ;
|
||||
smita_V : V ;
|
||||
snyta_V : V ;
|
||||
sova_V : V ;
|
||||
spinna_V : V ;
|
||||
spricka_V : V ;
|
||||
sprida_V : V ;
|
||||
@@ -142,6 +148,7 @@ abstract VerbsSweAbs = Categories ** {
|
||||
supa_V : V ;
|
||||
svida_V : V ;
|
||||
svika_V : V ;
|
||||
sy_V : V ;
|
||||
taga_V : V ;
|
||||
tiga_V : V ;
|
||||
tillĺta_V : V ;
|
||||
|
||||
Reference in New Issue
Block a user