GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-28 01:18:57 -06:00
Code Issues Packages Projects Releases Wiki Activity

(May) make linrefs into opers in ResMay

Browse Source
This commit is contained in:
Inari Listenmaa
2023-02-24 12:46:59 +08:00
parent 87b6bf9f0a
commit 1ad71e10b1
2 changed files with 10 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/malay/CatMay.gf
View File

@@ -122,10 +122,10 @@ concrete CatMay of Cat = CommonX - [IAdv] ** open ResMay, Prelude in {
PN = ResMay.PNoun ; PN = ResMay.PNoun ;
linref linref
CN = \cn -> cn.s ! NF Sg Bare ++ cn.heavyMod; CN = linCN ;
ClSlash = \cl -> cl.subj ++ cl.pred ! Root ! Pos ++ cl.c2.s; ClSlash = linClSlash ;
RCl = \cl -> cl.subj ++ cl.pred ! P1 ! Pos; RCl = linRCl ;
Cl = \cl -> cl.subj ++ cl.pred ! Active ! Pos; Cl = linCl ;
Det = linDet ; Det = linDet ;
} }

6
src/malay/ResMay.gf
View File

@@ -13,6 +13,7 @@ oper
CNoun : Type = Noun ** { CNoun : Type = Noun ** {
heavyMod : Str ; -- heavy stuff like relative clauses after determiner heavyMod : Str ; -- heavy stuff like relative clauses after determiner
} ; } ;
linCN : CNoun -> Str = \cn -> cn.s ! NF Sg Bare ++ cn.heavyMod ;
PNoun : Type = Noun ; PNoun : Type = Noun ;
@@ -320,14 +321,19 @@ oper
pred : VForm => Polarity => Str -- Cl may become relative clause, need to keep open VForm pred : VForm => Polarity => Str -- Cl may become relative clause, need to keep open VForm
} ; } ;
linCl : Clause -> Str = \cl -> cl.subj ++ cl.pred ! Active ! Pos ;
RClause : Type = { RClause : Type = {
subj : Str ; subj : Str ;
pred : Person => Polarity => Str pred : Person => Polarity => Str
} ; } ;
linRCl : RClause -> Str = \cl -> cl.subj ++ cl.pred ! P1 ! Pos ;
RS : Type = {s : Person => Str} ; RS : Type = {s : Person => Str} ;
ClSlash : Type = Clause ** {c2 : Preposition} ; ClSlash : Type = Clause ** {c2 : Preposition} ;
linClSlash : ClSlash -> Str = \cl -> cl.subj ++ cl.pred ! Root ! Pos ++ cl.c2.s ;
Sentence : Type = {s : Str} ; Sentence : Type = {s : Str} ;