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) fix BaseVPS, ConsVPS and ConjVPS

Browse Source
This commit is contained in:
Inari Listenmaa
2023-05-25 11:34:08 +02:00
parent ed61647f86
commit a5929da02c
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/malay/ExtendMay.gf
View File

@@ -3,7 +3,7 @@
concrete ExtendMay of Extend = CatMay concrete ExtendMay of Extend = CatMay
** ExtendFunctor - [ ** ExtendFunctor - [
VPS -- finite VP's with tense and polarity VPS -- finite VP's with tense and polarity
, ListVPS , ListVPS, BaseVPS, ConsVPS, ConjVPS
, VPI, MkVPI, ComplVPIVV , VPI, MkVPI, ComplVPIVV
, ListVPI -- infinitive VP's (TODO: with anteriority and polarity) , ListVPI -- infinitive VP's (TODO: with anteriority and polarity)
, MkVPS , MkVPS
@@ -38,11 +38,11 @@ concrete ExtendMay of Extend = CatMay
} ; } ;
-- BaseVPS : VPS -> VPS -> ListVPS ; -- BaseVPS : VPS -> VPS -> ListVPS ;
BaseVPS vps vps2 = twoSS vps vps2 ; BaseVPS = twoSS ;
-- ConsVPS : VPS -> ListVPS -> ListVPS ; -- ConsVPS : VPS -> ListVPS -> ListVPS ;
ConsVPS str listvps vps = consSS "," listvps vps ; ConsVPS = consrSS ",";
-- ConjVPS : Conj -> [VPS] -> VPS ; -- has walked and won't sleep -- ConjVPS : Conj -> [VPS] -> VPS ; -- has walked and won't sleep
ConjVPS conj listvps = conjunctX conj listvps ; ConjVPS = conjunctDistrSS ;
-- PredVPS : NP -> VPS -> S ; -- she [has walked and won't sleep] -- PredVPS : NP -> VPS -> S ; -- she [has walked and won't sleep]
PredVPS np vps = { PredVPS np vps = {
s = np.s ! Bare ++ vps.s ; s = np.s ! Bare ++ vps.s ;