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

cleaned up French verbs

Browse Source
This commit is contained in:
aarne
2005-02-09 16:50:49 +00:00
parent 375a4fba7a
commit a7020895d2
12 changed files with 1011 additions and 183 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/resource/english/ParadigmsEng.gf
View File

@@ -374,7 +374,10 @@ oper
_ => crie + "ed"
} ;
crying = case y of {
"e" => cr + "ing" ;
"e" => case last cr of {
"e" => cry + "ing" ;
_ => cr + "ing"
} ;
_ => cry + "ing"
}
in mkV cry cries cried cried crying ;
@@ -383,7 +386,8 @@ oper
let fitt = fit + last fit in
mkV fit (fit + "s") (fitt + "ed") (fitt + "ed") (fitt + "ing") ;
irregV x y z = mkVerbIrreg x y z ** {s1 = [] ; lock_V = <>} ;
irregV x y z = let reg = (regV x).s in
mkV x (reg ! Indic Sg) y z (reg ! PresPart) ** {s1 = [] ; lock_V = <>} ;
irregDuplV fit y z =
let