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

fix type errors detected by the new type checker

Browse Source
This commit is contained in:
Krasimir Angelov
2025-08-07 13:35:36 +02:00
parent 42d06dfafd
commit 1308eb85d9
21 changed files with 47 additions and 76 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/latin/SentenceLat.gf
+4 -4
View File
@@ -45,12 +45,12 @@ concrete SentenceLat of Sentence = CatLat ** open Prelude, ResLat in {
-- EmbedVP vp = {s = infVP False vp (agrP3 Sg)} ; --- agr
--
UseCl t p cl = -- Temp -> Pol-> Cl -> S
(combineClause cl (lin Tense t) t.a (lin Pol p) VQFalse) ;
(combineClause (t.s++p.s) cl t.t t.a p.p VQFalse) ;
-- UseQCl : Temp -> Pol -> QCl -> QS -- maybe use mkQuestion
-- UseQCl : Temp -> Pol -> QCl -> QS
UseQCl t p cl =
{
s = let qs = combineClause cl t t.a p VQTrue in
s = let qs = combineClause (t.s++p.s) cl t.t t.a p.p VQTrue in
\\q => case q of {
QDir => cl.q ++ defaultSentence qs ! SVO ; -- t.s ++ p.s ++ cl.q ++ cl.s ! PreV ++ cl.v ! t.t ! t.a ! VQTrue ! PreV ! CPostV ++ cl.o ! PreV ;
QIndir => cl.q ++ defaultSentence qs ! SOV -- t.s ++ p.s ++ cl.q ++ cl.s ! PreV ++ cl.o ! PreV ++ cl.v ! t.t ! t.a ! VQTrue ! PreV ! CPostV
@@ -58,7 +58,7 @@ concrete SentenceLat of Sentence = CatLat ** open Prelude, ResLat in {
} ;
-- UseRCl : Temp -> Pol -> RCl -> RS ;
UseRCl t p cl = {
s = \\g,n => defaultSentence (combineClause (cl.s ! g ! n) (lin Tense t) t.a (lin Pol p) VQFalse) ! SOV ;
s = \\g,n => defaultSentence (combineClause (t.s++p.s) (cl.s ! g ! n) t.t t.a p.p VQFalse) ! SOV ;
-- s = \\r => t.s ++ p.s ++ cl.s ! t.t ! t.a ! ctr p.p ! r ;
-- c = cl.c
} ;