diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-09-23 09:52:10 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-09-23 09:52:10 +0000 |
| commit | ffb5b007488e4f36079d3c319c299fb865ce0497 (patch) | |
| tree | 6ae623241f74428f8ef6ea6cffffa61f57b5c385 /next-lib/src/telugu/QuestionTel.gf | |
| parent | 47abd5327d5f2764dbb3fa26c7fa98b76944b6c6 (diff) | |
started Telugu in next-lib
Diffstat (limited to 'next-lib/src/telugu/QuestionTel.gf')
| -rw-r--r-- | next-lib/src/telugu/QuestionTel.gf | 55 |
1 files changed, 55 insertions, 0 deletions
diff --git a/next-lib/src/telugu/QuestionTel.gf b/next-lib/src/telugu/QuestionTel.gf new file mode 100644 index 000000000..3ad83bda5 --- /dev/null +++ b/next-lib/src/telugu/QuestionTel.gf @@ -0,0 +1,55 @@ +--concrete QuestionTel of Question = CatTel ** open ResTel, Prelude in { +---- +---- flags optimize=all_subs ; +---- +---- lin +---- +---- QuestCl cl = { +---- s = \\t,a,p => +---- let cls = cl.s ! t ! a ! p +---- in table { +---- QDir => cls ! OQuest ; +---- QIndir => "if" ++ cls ! ODir +---- } ---- "whether" in ExtTel +---- } ; +---- +---- QuestVP qp vp = +---- let cl = mkClause (qp.s ! Nom) (agrP3 qp.n) vp +---- in {s = \\t,a,b,_ => cl.s ! t ! a ! b ! ODir} ; +---- +---- QuestSlash ip slash = +---- mkQuestion (ss (slash.c2 ++ ip.s ! Acc)) slash ; +---- --- stranding in ExratTel +---- +---- QuestIAdv iadv cl = mkQuestion iadv cl ; +---- +---- QuestIComp icomp np = +---- mkQuestion icomp (mkClause (np.s ! Nom) np.a (predAux auxBe)) ; +---- +---- +---- PrepIP p ip = {s = p.s ++ ip.s ! Acc} ; +---- +---- AdvIP ip adv = { +---- s = \\c => ip.s ! c ++ adv.s ; +---- n = ip.n +---- } ; +---- +---- IdetCN idet cn = { +---- s = \\c => idet.s ++ cn.s ! idet.n ! c ; +---- n = idet.n +---- } ; +---- +---- IdetIP idet = { +---- s = \\c => idet.s ; +---- n = idet.n +---- } ; +---- +---- IdetQuant idet num = { +---- s = idet.s ! num.n ++ num.s ; +---- n = num.n +---- } ; +---- +---- CompIAdv a = a ; +---- CompIP p = ss (p.s ! Nom) ; +---- +--} |