summaryrefslogtreecommitdiff
path: root/next-lib/src/thai/PhraseTha.gf
diff options
context:
space:
mode:
Diffstat (limited to 'next-lib/src/thai/PhraseTha.gf')
-rw-r--r--next-lib/src/thai/PhraseTha.gf24
1 files changed, 0 insertions, 24 deletions
diff --git a/next-lib/src/thai/PhraseTha.gf b/next-lib/src/thai/PhraseTha.gf
deleted file mode 100644
index c51d85a20..000000000
--- a/next-lib/src/thai/PhraseTha.gf
+++ /dev/null
@@ -1,24 +0,0 @@
-concrete PhraseTha of Phrase = CatTha ** open Prelude, ResTha in {
-
- lin
- PhrUtt pconj utt voc = {s = pconj.s ++ utt.s ++ voc.s} ;
-
- UttS s = s ;
- UttQS qs = {s = qs.s ! QDir} ;
- UttImpSg pol imp = {s = pol.s ++ imp.s ! pol.p} ;
- UttImpPl pol imp = {s = pol.s ++ imp.s ! pol.p} ;
- UttImpPol pol imp = {s = pol.s ++ imp.s ! pol.p} ; --- add politeness here?
-
- UttIP ip = ip ;
- UttIAdv iadv = iadv ;
- UttNP np = np ;
- UttVP vp = {s = vp.s ! Pos} ;
- UttAdv adv = adv ;
-
- NoPConj = {s = []} ;
- PConjConj conj = conj ;
-
- NoVoc = {s = []} ;
- VocNP np = {s = np.s} ; ---- ??
-
-}