forked from GitHub/gf-rgl
adding tense to french
This commit is contained in:
@@ -141,13 +141,20 @@ oper
|
||||
|
||||
-- Verbs: conversion from full verbs to present-tense verbs.
|
||||
|
||||
verbPres = \aller -> {s = table {
|
||||
verbPres = \aller,a -> {s = table {
|
||||
VInfin => aller ! Inf ;
|
||||
VFin Ind n p => aller ! Indic Pres n p ;
|
||||
VFin Sub n p => aller ! Subjo SPres n p ;
|
||||
VFin (VPres Ind) n p => aller ! Indic Pres n p ;
|
||||
VFin (VPres Sub) n p => aller ! Subjo SPres n p ;
|
||||
VFin (VImperf Ind) n p => aller ! Indic Imparf n p ;
|
||||
VFin (VImperf Sub) n p => aller ! Subjo SImparf n p ;
|
||||
VFin VPasse n p => aller ! Indic Passe n p ;
|
||||
VFin VFut n p => aller ! Indic Futur n p ;
|
||||
VFin VCondit n p => aller ! Cond n p ;
|
||||
VImper np => aller ! Imper np ;
|
||||
VPart g n => aller ! Part (PPasse g n)
|
||||
}} ;
|
||||
} ;
|
||||
aux = a
|
||||
} ;
|
||||
|
||||
-- The full conjunction is a table on $VForm$:
|
||||
|
||||
|
||||
Reference in New Issue
Block a user