new unlexers ; work on Romance

This commit is contained in:
aarne
2005-03-31 14:47:42 +00:00
parent f3b9774062
commit e549dd79bc
11 changed files with 236 additions and 79 deletions

View File

@@ -194,10 +194,6 @@ oper
--2 Verbs
--
-- Irregular verbs are given in the module $VerbsFre$.
-- If a verb should be missing in that list, the module
-- $BeschFre$ gives all the patterns of the "Bescherelle" book.
--
-- Regular verbs are ones with the infinitive "er" or "ir", the
-- latter with plural present indicative forms as "finissons".
-- The regular verb function is the first conjugation recognizes
@@ -206,11 +202,17 @@ oper
regV : Str -> V ;
-- The module $BeschIta$ gives all the patterns of the "Bescherelle"
-- book. To use them in the category $V$, wrap them with the function
verboV : Verbo -> V ;
-- The function $regV$ gives all verbs the compound auxiliary "avoir".
-- To change it to "être", use the following function.
essereV : V -> V ;
--3 Two-place verbs
--
-- Two-place verbs need a preposition, except the special case with direct object.
@@ -329,6 +331,8 @@ oper
}
in verbPres verb AHabere ** {aux = AHabere ; lock_V = <>} ;
verboV ve = verbPres ve AHabere ** {lock_V = <>} ;
essereV v = {s = v.s ; aux = AEsse ; lock_V = <>} ;
mkV2 v p = {s = v.s ; aux = v.aux ; s2 = p.p2 ; c = p.p1 ; lock_V2 = <>} ;