GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

fixed the treatment of swe verb of form _mmer

Browse Source
This commit is contained in:
aarne
2006-02-28 09:07:23 +00:00
parent 6f913778ea
commit ef06ecdb90
2 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/resource-1.0/swedish/IrregSwe.gf
View File

@@ -93,7 +93,7 @@ concrete IrregSwe of IrregSweAbs = CatSwe ** open ParadigmsSwe in {
inskriva_V = irregV "inskriva" "inskrev" "inskrivit" ;
intaga_V = irregV "intaga" "intog" "intagit" ;
känna_V = irregV "känna" "kände" "känt" ;
klämma_V = irregV "klämma" "klämde" "klämt" ;
klämma_V = regV "klämmer" ;
kliva_V = irregV "kliva" "klev" "klivit" ;
klyva_V = irregV "klyva" "klöv" "kluvit" ;
knipa_V = irregV "knipa" "knep" "knipit" ;

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

@@ -417,7 +417,11 @@ oper
let lek = init leka in
case last lek of {
"l" | "m" | "n" | "v" | "g" =>
mkV leka (lek + "er") lek (lek +"de") (lek +"t") (lek +"d") ;
let gom = case <lek : Tok> of {
_ + "mm" => init lek ;
_ => lek
}
in mkV leka (lek + "er") gom (gom +"de") (gom +"t") (gom +"d") ;
"r" =>
mkV leka lek lek (lek +"de") (lek +"t") (lek +"d") ;
_ => case leka of {