french verbs

This commit is contained in:
aarne
2004-11-29 14:43:17 +00:00
parent 4564fd2f99
commit 75d02bfcc7
6 changed files with 124 additions and 105 deletions

View File

@@ -1,4 +1,4 @@
resource ConjugNancy = open TypesFre, MorphoFre in {
resource ConjugNancy = open Prelude, TypesFre, MorphoFre in {
oper VerbeN = {s : VForm => Str} ;
oper mkNV : Verbe -> VerbeN = \ve ->
@@ -6,6 +6,13 @@ oper mkNV : Verbe -> VerbeN = \ve ->
oper conj : Str -> Verbe = conj1aimer ; --- temp. default
oper v_nancy100inf : Str -> VerbeN = \ve -> {s = table {
Inf => ve ;
_ => nonExist
}
} ;
oper v_nancy1 : Str -> VerbeN = \s -> mkNV (conjAvoir s) ;
oper v_nancy2 : Str -> VerbeN = \s -> mkNV (conjÊtre s) ;
-- 3-5 not used