some test verbs in Hindi

This commit is contained in:
aarne
2008-05-07 10:31:48 +00:00
parent 1c00d693ad
commit b5c11a8cfa
2 changed files with 6 additions and 5 deletions

View File

@@ -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" ;

View File

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