diff options
| author | aarne <aarne@chalmers.se> | 2010-12-22 14:11:55 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2010-12-22 14:11:55 +0000 |
| commit | c5b963769539c8a7c9bd154585686d263c7d6d8a (patch) | |
| tree | c1bc4129d94e51c5e68ed4b7c1888ae120aac3fd /deprecated/old-lib/resource/german/QuestionGer.gf | |
| parent | ce15ec7b787479ca4c7295863ea7fa5cfdd16755 (diff) | |
removed GF/deprecated
Diffstat (limited to 'deprecated/old-lib/resource/german/QuestionGer.gf')
| -rw-r--r-- | deprecated/old-lib/resource/german/QuestionGer.gf | 101 |
1 files changed, 0 insertions, 101 deletions
diff --git a/deprecated/old-lib/resource/german/QuestionGer.gf b/deprecated/old-lib/resource/german/QuestionGer.gf deleted file mode 100644 index d94742c5f..000000000 --- a/deprecated/old-lib/resource/german/QuestionGer.gf +++ /dev/null @@ -1,101 +0,0 @@ -concrete QuestionGer of Question = CatGer ** open ResGer in { - - flags optimize=all_subs ; - - lin - - QuestCl cl = { - s = \\m,t,a,p => - let cls = cl.s ! m ! t ! a ! p - in table { - QDir => cls ! Inv ; - QIndir => "ob" ++ cls ! Sub - } - } ; - - QuestVP qp vp = { - s = \\m,t,a,b,q => - let - cl = (mkClause (qp.s ! Nom) (agrP3 qp.n) vp).s ! m ! t ! a ! b - in - case q of { - QIndir => cl ! Sub ; - _ => cl ! Main - } - } ; - - QuestSlash ip slash = { - s = \\m,t,a,p => - let - cls = slash.s ! m ! t ! a ! p ; - who = appPrep slash.c2 ip.s - in table { - QDir => who ++ cls ! Inv ; - QIndir => who ++ cls ! Sub - } - } ; - - QuestIAdv iadv cl = { - s = \\m,t,a,p => - let - cls = cl.s ! m ! t ! a ! p ; - why = iadv.s - in table { - QDir => why ++ cls ! Inv ; - QIndir => why ++ cls ! Sub - } - } ; - - QuestIComp icomp np = { - s = \\m,t,a,p => - let - vp = predV sein_V ; - cls = (mkClause (np.s ! Nom) np.a vp).s ! m ! t ! a ! p ; - why = icomp.s ! np.a - in table { - QDir => why ++ cls ! Inv ; - QIndir => why ++ cls ! Sub - } - } ; - - PrepIP p ip = { - s = appPrep p ip.s - } ; - - AdvIP ip adv = { - s = \\c => ip.s ! c ++ adv.s ; - n = ip.n - } ; - - IdetCN idet cn = - let - g = cn.g ; - n = idet.n - in { - s = \\c => idet.s ! g ! c ++ cn.s ! Weak ! n ! c ; - n = n - } ; - - IdetIP idet = - let - g = Neutr ; ---- - n = idet.n - in { - s = idet.s ! g ; - n = n - } ; - - IdetQuant idet num = - let - n = num.n - in { - s = \\g,c => idet.s ! n ! g ! c ++ num.s!g!c ; - n = n - } ; - - CompIAdv a = {s = \\_ => a.s} ; - - CompIP ip = {s = \\_ => ip.s ! Nom} ; - -} - |
