msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

added linrefs for verbs

Browse Source
This commit is contained in:
Krasimir Angelov
2024-10-22 22:26:17 +02:00
parent e99bdb6d1a
commit 21d1a192c8
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/interlingua/CatIna.gf
View File

@@ -83,4 +83,9 @@ concrete CatIna of Cat = CommonX ** open ResIna, Prelude in {
GN = {s : Str ; g : Sex} ;
SN = {s : Sex => Str ; pl : Str} ;
linref
V, VS, VQ, VA, VV = \v -> v.s ! VInf ++ case v.isRefl of {True => "se"; False => []} ;
V2, V2V, V2S, V2Q = \v -> v.s ! VInf ++ case v.isRefl of {True => "se"; False => []} ++ v.p2 ;
V3, V2A = \v -> v.s ! VInf ++ case v.isRefl of {True => "se"; False => []} ++ v.p2 ++ v.p3 ;
}