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") ; -- leave_V2 = dirV2 (irregV "leave" "left" "left") ;
-- like_V2 = dirV2 (regV "like") ; -- like_V2 = dirV2 (regV "like") ;
-- listen_V2 = prepV2 (regV "listen") toP ; -- listen_V2 = prepV2 (regV "listen") toP ;
-- live_V = (regV "live") ; live_V = mkV "Cu:" ; ---- touch
-- long_A = regADeg "long" ; -- long_A = regADeg "long" ;
-- lose_V2 = dirV2 (irregV "lose" "lost" "lost") ; -- lose_V2 = dirV2 (irregV "lose" "lost" "lost") ;
-- love_N = regN "love" ; -- love_N = regN "love" ;
@@ -315,7 +315,7 @@ concrete LexiconHin of Lexicon = CatHin **
-- laugh_V = regV "laugh" ; -- laugh_V = regV "laugh" ;
-- lie_V = IrregHin.lie_V ; -- lie_V = IrregHin.lie_V ;
-- play_V = regV "play" ; -- play_V = regV "play" ;
-- sew_V = IrregHin.sew_V ; sew_V = mkV "si:" ;
-- sing_V = IrregHin.sing_V ; -- sing_V = IrregHin.sing_V ;
-- sit_V = IrregHin.sit_V ; -- sit_V = IrregHin.sit_V ;
-- smell_V = regV "smell" ; -- smell_V = regV "smell" ;

View File

@@ -91,14 +91,15 @@ resource ResHin = ParamX ** open Prelude in {
VFut Pl _ g => sp3 + ga Pl g ; VFut Pl _ g => sp3 + ga Pl g ;
VAbs => stem + "kar" ; --- ke VAbs => stem + "kar" ; --- ke
VReq => r ; VReq => r ;
VImp => stem + "o" ; VImp => sp2 ;
VReqFut => stem + "iega:" VReqFut => stem + "i-ega:"
} }
} ; } ;
regVerb : Str -> Verb = \cal -> regVerb : Str -> Verb = \cal ->
let caly : Str = case cal of { let caly : Str = case cal of {
_ + "a:" => cal + "y" ; _ + ("a:" | "e") => cal + "y" ;
c + v@("u" | "i") + ":" => c + v + "y" ;
_ => cal _ => cal
} }
in in