From b5c11a8cfa832804c1bcaee9c3166eae24dcb927 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Wed, 7 May 2008 10:31:48 +0000
Subject: [PATCH] some test verbs in Hindi

---
 lib/resource-1.4/hindi/LexiconHin.gf | 4 ++--
 lib/resource-1.4/hindi/ResHin.gf     | 7 ++++---
 2 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/lib/resource-1.4/hindi/LexiconHin.gf b/lib/resource-1.4/hindi/LexiconHin.gf
index 3d8152d8f..e7b932de8 100644
--- a/lib/resource-1.4/hindi/LexiconHin.gf
+++ b/lib/resource-1.4/hindi/LexiconHin.gf
@@ -109,7 +109,7 @@ concrete LexiconHin of Lexicon = CatHin **
 --  leave_V2 = dirV2 (irregV "leave" "left" "left") ;
 --  like_V2 = dirV2 (regV "like") ;
 --  listen_V2 = prepV2 (regV "listen") toP ;
---  live_V = (regV "live") ;
+  live_V = mkV "Cu:" ; ---- touch
 --  long_A = regADeg "long" ;
 --  lose_V2 = dirV2 (irregV "lose" "lost" "lost") ;
 --  love_N = regN "love" ;
@@ -315,7 +315,7 @@ concrete LexiconHin of Lexicon = CatHin **
 --  laugh_V = regV "laugh" ;
 --  lie_V = IrregHin.lie_V ;
 --  play_V = regV "play" ;
---  sew_V = IrregHin.sew_V ;
+  sew_V = mkV "si:" ;
 --  sing_V = IrregHin.sing_V ;
 --  sit_V = IrregHin.sit_V ;
 --  smell_V = regV "smell" ;
diff --git a/lib/resource-1.4/hindi/ResHin.gf b/lib/resource-1.4/hindi/ResHin.gf
index 2fb97bdb9..8155c9b20 100644
--- a/lib/resource-1.4/hindi/ResHin.gf
+++ b/lib/resource-1.4/hindi/ResHin.gf
@@ -91,14 +91,15 @@ resource ResHin = ParamX ** open Prelude in {
           VFut  Pl   _  g => sp3 + ga Pl g ;
           VAbs  => stem + "kar" ; --- ke
           VReq  => r ;
-          VImp  => stem + "o" ;
-          VReqFut => stem + "iega:"
+          VImp  => sp2 ;
+          VReqFut => stem + "i-ega:"
           }
         } ;
 
     regVerb : Str -> Verb = \cal -> 
       let caly : Str = case cal of {
-        _ + "a:" => cal + "y" ;
+        _ + ("a:" | "e") => cal + "y" ;
+        c + v@("u" | "i") + ":" => c + v + "y" ;
         _ => cal
         }
       in