mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-27 17:08:54 -06:00
fixes for verbs
This commit is contained in:
@@ -1,4 +1,4 @@
|
|||||||
concrete CatMkd of Cat = open ResMkd in {
|
concrete CatMkd of Cat = open ResMkd, Prelude in {
|
||||||
|
|
||||||
lincat N = Noun ;
|
lincat N = Noun ;
|
||||||
lincat N2 = Noun ** {c2 : Compl} ;
|
lincat N2 = Noun ** {c2 : Compl} ;
|
||||||
@@ -16,7 +16,7 @@ lincat Voc = {s : Str} ;
|
|||||||
|
|
||||||
linref N,N2,N3 = \n -> n.s ! Indef ! Sg ;
|
linref N,N2,N3 = \n -> n.s ! Indef ! Sg ;
|
||||||
linref V, VA, VV, VS, VQ, V2, V2S, V2Q, V3, V2A, V2V =
|
linref V, VA, VV, VS, VQ, V2, V2S, V2Q, V3, V2A, V2V =
|
||||||
\v -> v.present ! Sg ! P1 ++
|
\v -> v.present ! Sg ! P3 ++
|
||||||
case v.isRefl of {
|
case v.isRefl of {
|
||||||
True => "се" ;
|
True => "се" ;
|
||||||
False => []
|
False => []
|
||||||
|
|||||||
@@ -1566,7 +1566,7 @@ mkV = overload {
|
|||||||
mkV : Str -> Str -> Str -> Str -> V = reg4V
|
mkV : Str -> Str -> Str -> Str -> V = reg4V
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
reflV : V -> V = \v -> v ;
|
reflV : V -> V = \v -> v ** {isRefl=True} ;
|
||||||
|
|
||||||
mkV2 = overload {
|
mkV2 = overload {
|
||||||
mkV2 : V -> V2 = \v -> lin V2 v ** {c2=noPrep} ;
|
mkV2 : V -> V2 = \v -> lin V2 v ** {c2=noPrep} ;
|
||||||
|
|||||||
Reference in New Issue
Block a user