diff options
| author | krasimir <krasimir@chalmers.se> | 2008-11-24 12:55:17 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2008-11-24 12:55:17 +0000 |
| commit | d34cc4671e4310092b7cebebc5942afa2ad7843a (patch) | |
| tree | b0e73e81260ce99d7273639aade1dd4b66752613 /next-lib/src | |
| parent | 1e7c4be78767e508f6f022442d4cdf4f2ebc59e9 (diff) | |
replace spec with qform
Diffstat (limited to 'next-lib/src')
| -rw-r--r-- | next-lib/src/bulgarian/QuestionBul.gf | 20 |
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 } ; |
