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

adding tense to french

Browse Source
This commit is contained in:
aarne
2004-11-17 21:26:26 +00:00
parent 15fd8ec71b
commit 2754a5a758
4 changed files with 62 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/resource/french/SyntaxFre.gf
View File

@@ -105,7 +105,7 @@ oper
-- Exampe: 'to be or not to be'.
etreNetre : Bool -> VerbPres = \b ->
etreNetre : Bool -> Verb = \b ->
{s = \\w => posNeg b (verbEtre.s ! w) []} ; ---- v reveals a BUG in refresh
embedConj = elisQue ;
@@ -175,8 +175,8 @@ oper
intVerbPhrase = \qui, dort ->
{s = table {
DirQ => qui.s ! Nom ++ optStr (estCeQue Nom) ++
dort.s ! qui.g ! VFin Ind qui.n P3 ;
IndirQ => "ce" ++ qui.s ! Nom ++ dort.s ! qui.g ! VFin Ind qui.n P3
dort.s ! qui.g ! VFin presInd qui.n P3 ;
IndirQ => "ce" ++ qui.s ! Nom ++ dort.s ! qui.g ! VFin presInd qui.n P3
}
} ;

15
lib/resource/french/TypesFre.gf
View File

@@ -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$: