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) AdjCN + change lincat of A*

Browse Source
This commit is contained in:
Inari Listenmaa
2020-09-03 13:39:30 +02:00
parent c1e12b60ab
commit 6e6b7b09ad
3 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/malay/NounMay.gf
View File

@@ -158,8 +158,9 @@ concrete NounMay of Noun = CatMay ** open ResMay, Prelude in {
-- : N3 -> N2 ; -- distance (to Paris)
-- Use3N3 n3 = lin N2 n3 ;
-- : AP -> CN -> CN
-- AdjCN ap cn = cn ** {
-- } ;
AdjCN ap cn = cn ** {
s = \\nf => cn.s ! nf ++ ap.s
} ;
-- : CN -> RS -> CN ;
RelCN cn rs = cn ** {

4
src/malay/ResMay.gf
View File

@@ -145,10 +145,10 @@ oper
--------------------------------------------------------------------------------
-- Adjectives
Adjective : Type = Verb ; -- TODO check if meaningful
Adjective : Type = SS ;
Adjective2 : Type = Adjective ;
mkAdj : Str -> Adjective = \str -> {s = \\_ => str} ;
mkAdj : Str -> Adjective = \str -> {s = str} ;
AdjPhrase : Type = Adjective ; -- ** {compar : Str} ;
--------------------------------------------------------------------------------

2
src/malay/VerbMay.gf
View File

@@ -112,7 +112,7 @@ lin
-- Adjectival phrases, noun phrases, and adverbs can be used.
-- : AP -> Comp ;
CompAP ap = useV ap ;
CompAP ap = useComp ap.s ;
-- : CN -> Comp ;
CompCN cn = useComp (cn.s ! NF Sg Bare) ;