From 65560dcb7a5040202368c024e5e34a0920f7ee5c Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Wed, 16 Dec 2009 15:54:52 +0000
Subject: [PATCH] ImpP3 in French

---
 src/abstract/Idiom.gf  | 1 +
 src/french/IdiomFre.gf | 5 +++++
 2 files changed, 6 insertions(+)

diff --git a/src/abstract/Idiom.gf b/src/abstract/Idiom.gf
index 6b012becc..085484ec7 100644
--- a/src/abstract/Idiom.gf
+++ b/src/abstract/Idiom.gf
@@ -19,4 +19,5 @@ abstract Idiom = Cat ** {
 
     ImpPl1    : VP -> Utt ;       -- let's go
 
+    ImpP3     : NP -> VP -> Utt ; -- let John walk
 }
diff --git a/src/french/IdiomFre.gf b/src/french/IdiomFre.gf
index be62dc374..38d00d2d7 100644
--- a/src/french/IdiomFre.gf
+++ b/src/french/IdiomFre.gf
@@ -37,6 +37,11 @@ concrete IdiomFre of Idiom = CatFre **
       (mkImperative False P1 vp).s ! Pos ! {n = Pl ; g = Masc} --- fem
       } ;
 
+    ImpP3 np vp = {
+      s = (mkClause (np.s ! Nom).comp np.hasClit np.a vp).s 
+             ! DInv ! RPres ! Simul ! Pos ! Conjunct
+      } ;
+
   oper
     elisCe = elision "c" ;