msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

bug fix in French verbs

Browse Source
This commit is contained in:
aarne
2005-02-15 21:31:00 +00:00
parent 77b0a4316c
commit 916d2a61fc
6 changed files with 11 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
resource/french/TypesFre.gf
View File

@@ -141,7 +141,9 @@ oper
-- Verbs: conversion from full verbs to present-tense verbs.
verbPres = \aller,a -> {s = table {
verbPres = \aller,a -> {s = vvf aller ; aux = a} ;
vvf : (VForm => Str) -> (VF => Str) = \aller -> table {
VInfin => aller ! Inf ;
VFin (VPres Ind) n p => aller ! Indic Pres n p ;
VFin (VPres Sub) n p => aller ! Subjo SPres n p ;
@@ -153,8 +155,6 @@ oper
VImper np => aller ! Imper np ;
VPart g n => aller ! Part (PPasse g n)
} ;
aux = a
} ;
-- The full conjunction is a table on $VForm$: