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

swadesh adjustments

Browse Source
This commit is contained in:
aarne
2006-02-24 10:12:49 +00:00
parent 9834a25196
commit 94c8a836b2
13 changed files with 16 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lib/resource-1.0/finnish/MorphoFin.gf
View File

@@ -652,7 +652,6 @@ caseTable : Number -> CommonNoun -> Case => Str = \n,cn ->
reg2VerbH : (soutaa,souti : Str) -> VerbH = \soutaa,souti ->
let
---- soudat = regVerbH soutaa ;
soudan = weakGrade (init soutaa) + "n" ;
soudin = weakGrade souti + "n" ;
souden = init souti + "en" ;
@@ -666,8 +665,8 @@ caseTable : Number -> CommonNoun -> Case => Str = \n,cn ->
"ata" | "ätä" => vPalkata soutaa souti ;
"ota" | "ötä" => vPudota soutaa souti ;
"sta" | "stä" => vJuosta soutaa souden (juo + o+u+"t") (juo + "t"+u) ;
_ + ("da" | "dä") => vJuoda soutaa souti
---- _ => soudat
_ + ("da" | "dä") => vJuoda soutaa souti ;
_ => regVerbH soutaa
} ;
reg3VerbH : (_,_,_ : Str) -> VerbH = \soutaa,soudan,souti ->
@@ -679,11 +678,10 @@ caseTable : Number -> CommonNoun -> Case => Str = \n,cn ->
a = last taa ;
u = ifTok Str a "a" "u" "y" ;
soudin = souti + "n" ; ----weakGrade souti + "n" ;
----soudat = reg2VerbH soutaa souti ;
in case taa of {
"lla" | "llä" => vJuosta soutaa soudan (juo + o+u+"t") (juo + "t"+u) ;
"taa" | "tää" => vHuoltaa soutaa soudan souti soudin
---- _ => soudat
"taa" | "tää" => vHuoltaa soutaa soudan souti soudin ;
_ => reg2VerbH soutaa souti
} ;
-- For "harppoa", "hukkua", "löytyä", with grade alternation.