summaryrefslogtreecommitdiff
path: root/next-lib/src
diff options
context:
space:
mode:
authorkrasimir <krasimir@chalmers.se>2008-11-24 12:55:17 +0000
committerkrasimir <krasimir@chalmers.se>2008-11-24 12:55:17 +0000
commitd34cc4671e4310092b7cebebc5942afa2ad7843a (patch)
treeb0e73e81260ce99d7273639aade1dd4b66752613 /next-lib/src
parent1e7c4be78767e508f6f022442d4cdf4f2ebc59e9 (diff)
replace spec with qform
Diffstat (limited to 'next-lib/src')
-rw-r--r--next-lib/src/bulgarian/QuestionBul.gf20
1 files changed, 10 insertions, 10 deletions
diff --git a/next-lib/src/bulgarian/QuestionBul.gf b/next-lib/src/bulgarian/QuestionBul.gf
index 1032e6b44..1f11c7a03 100644
--- a/next-lib/src/bulgarian/QuestionBul.gf
+++ b/next-lib/src/bulgarian/QuestionBul.gf
@@ -21,7 +21,7 @@ concrete QuestionBul of Question = CatBul ** open ResBul, Prelude in {
} ;
QuestSlash ip slash =
- mkQuestion {s = \\spec => slash.c2.s ++ ip.s ! (RObj slash.c2.c) ! spec}
+ mkQuestion {s = \\qform => slash.c2.s ++ ip.s ! (RObj slash.c2.c) ! qform}
{s = slash.s ! (agrP3 ip.gn) } ;
QuestIAdv iadv cl = mkQuestion iadv cl ;
@@ -29,21 +29,21 @@ concrete QuestionBul of Question = CatBul ** open ResBul, Prelude in {
QuestIComp icomp np =
mkQuestion icomp (mkClause (np.s ! RSubj) np.a (predV verbBe)) ;
- PrepIP p ip = {s = \\spec => p.s ++ ip.s ! RSubj ! spec} ;
+ PrepIP p ip = {s = \\qform => p.s ++ ip.s ! RSubj ! qform} ;
AdvIP ip adv = {
- s = \\role,spec => ip.s ! role ! spec ++ adv.s ;
+ s = \\role,qform => ip.s ! role ! qform ++ adv.s ;
gn = ip.gn
} ;
CompIAdv a = a ;
IdetCN idet cn = {
- s = \\_,spec => let nf = case <idet.n, idet.nonEmpty> of {
- <Pl,True> => NFPlCount ;
- _ => NF idet.n Indef
- }
- in idet.s ! cn.g ! spec ++ cn.s ! nf ;
+ s = \\_,qform => let nf = case <idet.n, idet.nonEmpty> of {
+ <Pl,True> => NFPlCount ;
+ _ => NF idet.n Indef
+ }
+ in idet.s ! cn.g ! qform ++ cn.s ! nf ;
gn = gennum cn.g idet.n
} ;
@@ -53,8 +53,8 @@ concrete QuestionBul of Question = CatBul ** open ResBul, Prelude in {
} ;
IdetQuant iquant num = {
- s = \\g,spec => iquant.s ! gennum g num.n ! spec ++
- num.s ! dgenderSpecies g Indef RSubj ;
+ s = \\g,qform => iquant.s ! gennum g num.n ! qform ++
+ num.s ! dgenderSpecies g Indef RSubj ;
n = num.n ;
nonEmpty = num.nonEmpty
} ;