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/QuestionIna.gf
+4 -4
View File
@@ -4,8 +4,8 @@ concrete QuestionIna of Question = CatIna ** open ResIna, Prelude in {
lin
QuestCl cl = {
s = \\t,a,p =>
let cls = cl.s ! t ! a ! p
s = \\use_irreg,t,a,p =>
let cls = cl.s ! use_irreg ! t ! a ! p
in table {
OQuest => cls ! OQuest ;
ODir => "an" ++ cls ! ODir
@@ -14,7 +14,7 @@ concrete QuestionIna of Question = CatIna ** open ResIna, Prelude in {
QuestVP qp vp =
let cl = mkClause (qp.s ! Nom) Sp3 vp
in {s = \\t,a,b,_ => cl.s ! t ! a ! b ! ODir} ;
in {s = \\use_irreg,t,a,b,_ => cl.s ! use_irreg ! t ! a ! b ! ODir} ;
QuestSlash ip slash =
mkQuestion (ss (slash.p2 ++ ip.s ! slash.c2)) slash ;
@@ -22,7 +22,7 @@ concrete QuestionIna of Question = CatIna ** open ResIna, Prelude in {
QuestIAdv iadv cl = mkQuestion iadv cl ;
QuestIComp icomp np =
mkQuestion icomp (mkClause (np.s ! Nom) np.a (predV esserV)) ;
mkQuestion icomp (mkClause (np.s ! Nom) np.a (predV_ esserV)) ;
PrepIP p ip = {s = p.s ++ ip.s ! Nom} ;