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

=Implemented ComparA AdAP which necesitated the modification of the ADA type. Deleted the CatCggOld.gf

Browse Source
This commit is contained in:
David Bamutura
2019-05-17 02:11:50 +02:00
parent 5f5d71bb0a
commit d5bec3b459
4 changed files with 32 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/rukiga/AdjectiveCgg.gf
+11 -1
View File
@@ -13,7 +13,17 @@ lin
AdjOrd ord = {s= \\agr => ord.s!agr ; position1= ord.position1; isProper = False; isPrep = False};
-- UseComparA : A -> AP ; -- warmer
UseComparA a ={s =\\_ => a.s ++ BIND ++ "ho" ++ "kukira"; position1= a.position1; isProper = a.isProper; isPrep = a.isPrep};
{-
-- An adjectival phrase can be modified by an *adadjective*, such as "very".
{-NOTE: AdA is an adjective modifying adverb-}
--AdAP : AdA -> AP -> AP ; -- very warm
AdAP ada ap = case ada.position1 of {
Post => {s = \\agr => ap.s ! agr ++ ada.s; position1= ap.position1; isProper = ap.isProper; isPrep = ap.isPrep};
Pre => {s = \\agr => ada.s ++ ap.s!agr ; position1= ap.position1; isProper = ap.isProper; isPrep = ap.isPrep}
};
{-
abstract Adjective = Cat ** {
fun