mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 04:59:31 -06:00
some test verbs in Hindi
This commit is contained in:
@@ -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" ;
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user