msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

reduce the number of variants in Interlingua

Browse Source
This commit is contained in:
krasimir
2009-06-16 07:53:01 +00:00
parent 9dd84ff5ed
commit 9ba7a9e420
9 changed files with 79 additions and 60 deletions
Download Patch File Download Diff File Expand all files Collapse all files
next-lib/src/interlingua/IdiomIna.gf
+5 -5
View File
@@ -9,26 +9,26 @@ concrete IdiomIna of Idiom = CatIna ** open Prelude, ResIna in {
CleftNP np rs = mkClause "lo" Sp3
(insertObj [] Acc (mkInvarNP (rs.s ! Sp3))
(insertObj [] Acc np
(predV esserV)));
(predV_ esserV)));
-- ??? number/case agreement
CleftAdv ad s = mkClause "lo" Sp3
(insertObj [] Acc (mkInvarNP ("que" ++ s.s))
(insertObj [] Acc (mkInvarNP (ad.s)) (predV esserV))) ;
(insertObj [] Acc (mkInvarNP (ad.s)) (predV_ esserV))) ;
ExistNP np =
mkClause "il" Sp3 ((insertObj "" Acc np) (predV haberV)) ;
mkClause "il" Sp3 ((insertObj "" Acc np) (predV_ haberV)) ;
-- Il ha colonias que non pote reclamar mesmo un tal origine. (sample text 3)
ExistIP ip = mkQuestion {s=ip.s ! Acc} (mkClause "il" Sp3 (predV haberV)) ;
ExistIP ip = mkQuestion {s=ip.s ! Acc} (mkClause "il" Sp3 (predV_ haberV)) ;
-- Never seen the above, but we can deduce it exists, since it's
-- merely an interrogative form of ExistNP.
ProgrVP vp = vp; -- progressive tense is the same as present in Interlingua.
-- (parag. 80+ of Grammatica de Interlingua)
ImpPl1 vp = {s = "que" ++ (mkClause "nos" {n = Pl ; p = P1} vp).s ! Pres ! Simul ! Pos ! ODir};
ImpPl1 vp = {s = "que" ++ (mkClause "nos" {n = Pl ; p = P1} vp).s ! variants {True;False} ! Pres ! Simul ! Pos ! ODir};
}