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

(Bantu) Minor fixes to make Swahili compile

Browse Source
This commit is contained in:
Inari Listenmaa
2020-06-05 21:19:14 +02:00
parent ee9b5354e7
commit 0f67332f31
4 changed files with 12 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/bantu/SentenceBantu.gf
+7 -10
View File
@@ -1,14 +1,10 @@
incomplete concrete SentenceBantu of Sentence =
CatBantu ** open Prelude, CommonBantu, ResBantu in {
{-
flags optimize=all_subs ;
coding=utf8 ;
lin
PredVP np vp = mkClause (np.s ! npNom) np.a vp ;
PredVP np vp = mkClause (np.s ! npNom) (agrFeatures np.a) vp ;
{-
PredSCVP sc vp = mkClause sc.s (agrP3 Sg) vp ;
ImpVP vp = {
@@ -43,11 +39,12 @@ incomplete concrete SentenceBantu of Sentence =
EmbedS s = {s = conjThat ++ s.s} ;
EmbedQS qs = {s = qs.s ! QIndir} ;
EmbedVP vp = {s = infVP VVInf vp Simul CPos (agrP3 Sg)} ; --- agr
UseCl t p cl = {
s = t.s ++ p.s ++ cl.s ! t.t ! t.a ! p.b } ;
-}
UseCl t p cl =
let b : Bool = case p.p of {Pos => True ; _ => False}
in {s = t.s ++ p.s ++ cl.s ! t.t ! t.a ! b} ;
-- UseCl t p cl = {s = t.s ++ p.s ++ cl.s ! t.t ! p.b} ;
UseQCl t p cl = {
{- UseQCl t p cl = {
s = \\q => t.s ++ p.s ++ cl.s ! t.t ! t.a ! ctr p.p ! q
} ;
UseRCl t p cl = {