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

overloading in ParadigmsFre

Browse Source
This commit is contained in:
aarne
2007-06-18 18:31:02 +00:00
parent 76d364dcac
commit 6d22ade8a8
3 changed files with 179 additions and 98 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
lib/resource-1.0/french/MorphoFre.gf
View File

@@ -460,10 +460,23 @@ oper
-- This is a collective dispatcher.
mkVerbReg : Str -> Verbe = \parler ->
case parler of {
_ + "ir" => conj2finir parler ;
_ + "re" => conj3rendre parler ;
_ + "éger" => conj1assiéger parler ;
_ + ("eler" | "eter") => conj1jeter parler ;
_ + "éder" => conj1céder parler ;
_ + "cer" => conj1placer parler ;
_ + "ger" => conj1manger parler ;
_ + "yer" => conj1payer parler ;
_ => conj1aimer parler
} ;
{-
let
e = last (Predef.tk 4 parler) ;
c = last (Predef.tk 3 parler) ;
verb_é = pbool2bool (occur "é" (e + last (Predef.tk 5 parler))) ;
verb_é = pbool2bool (occur "é" (e + last (Predef.tk 3 parler))) ;
verb_e = andB (pbool2bool (occur e "e")) (pbool2bool (occur c "cmnprsv"))
in
case Predef.dp 4 parler of {
@@ -487,6 +500,7 @@ oper
}
}
} ;
-}
-- The following can be more reliable.