mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-23 11:42:49 -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") ;
|
-- 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" ;
|
||||||
|
|||||||
@@ -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
|
||||||
|
|||||||
Reference in New Issue
Block a user