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

rewrite without using SyntaxAfr

Browse Source
This commit is contained in:
Krasimir Angelov
2026-09-20 12:10:25 +02:00
parent 5096396563
commit 891ae30eef
1 changed files with 15 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/afrikaans/ConstructionAfr.gf
+15 -15
View File
@@ -1,25 +1,25 @@
--# -path=.:../abstract:../common --# -path=.:../abstract:../common
concrete ConstructionAfr of Construction = CatAfr ** concrete ConstructionAfr of Construction = CatAfr **
open SyntaxAfr, GrammarAfr, ParadigmsAfr, Prelude, open GrammarAfr, ParadigmsAfr, Prelude in {
(N = NounAfr), (L = LexiconAfr) in {
lin lin
ready_VP = mkVP (mkA "gereed") ; ready_VP = UseComp (CompAP (PositA (mkA "gereed"))) ;
has_age_VP card = mkVP has_age_VP card =
(lin AP (mkAP (lin AdA (mkUtt (mkNP <lin Card card : Card> (mkN "jaar")))) UseComp (CompAP (AdAP (lin AdA (UttNP (DetCN (DetQuant IndefArt (NumCard card)) (UseN (mkN "jaar")))))
(mkA "oud"))) ; (PositA (mkA "oud")))) ;
n_units_AP card cn a = mkAP n_units_AP card cn a =
(lin AdA (mkUtt (mkNP <lin Card card : Card> (lin CN cn)))) (lin A a) ; AdAP (lin AdA (UttNP (DetCN (DetQuant IndefArt (NumCard card)) cn)))
(PositA a) ;
n_units_of_NP card cn np = N.AdvNP n_units_of_NP card cn np =
(mkNP <lin Card card : Card> (lin CN cn)) AdvNP (DetCN (DetQuant IndefArt (NumCard card)) cn)
(SyntaxAfr.mkAdv (mkPrep "van") (lin NP np)) ; (PrepNP (mkPrep "van") np) ;
cup_of_CN np = mkCN (mkCN (mkN "koppie")) cup_of_CN np = AdvCN (UseN (mkN "koppie"))
(SyntaxAfr.mkAdv (mkPrep "van") (lin NP np)) ; (PrepNP (mkPrep "van") np) ;
lincat lincat
Weekday = N ; Weekday = N ;
@@ -28,8 +28,8 @@ lincat
Monthday = {s : Str} ; Monthday = {s : Str} ;
lin lin
weekdayPunctualAdv w = SyntaxAfr.mkAdv (mkPrep "op") (mkNP w) ; weekdayPunctualAdv w = PrepNP (mkPrep "op") (MassNP (UseN w)) ;
weekdayHabitualAdv w = SyntaxAfr.mkAdv (mkPrep "elke") (mkNP w) ; weekdayHabitualAdv w = PrepNP (mkPrep "elke") (MassNP (UseN w)) ;
yearAdv y = {s = "in" ++ y.s} ; yearAdv y = {s = "in" ++ y.s} ;
intYear i = {s = i.s} ; intYear i = {s = i.s} ;