summaryrefslogtreecommitdiff
path: root/old-lib/resource/arabic/PhraseAra.gf
diff options
context:
space:
mode:
Diffstat (limited to 'old-lib/resource/arabic/PhraseAra.gf')
-rw-r--r--old-lib/resource/arabic/PhraseAra.gf26
1 files changed, 26 insertions, 0 deletions
diff --git a/old-lib/resource/arabic/PhraseAra.gf b/old-lib/resource/arabic/PhraseAra.gf
new file mode 100644
index 000000000..6910d59f5
--- /dev/null
+++ b/old-lib/resource/arabic/PhraseAra.gf
@@ -0,0 +1,26 @@
+concrete PhraseAra of Phrase = CatAra ** open
+ ParamX,
+ Prelude,
+ ResAra in {
+
+ lin
+ PhrUtt pconj utt voc = {s = pconj.s ++ utt.s ! Masc ++ voc.s} ;--FIXME
+
+-- UttS s = s ;
+-- UttQS qs = {s = qs.s ! QDir} ;
+ UttImpSg pol imp = {s = \\g => imp.s ! pol.p ! g ! ResAra.Sg} ;
+-- UttImpPl pol imp = {s = pol.s ++ imp.s ! pol.p ! Pl} ;
+--
+-- UttIP ip = {s = ip.s ! Nom} ; --- Acc also
+-- UttIAdv iadv = iadv ;
+-- UttNP np = {s = np.s ! Acc} ;
+-- UttVP vp = {s = infVP False vp (agrP3 Sg)} ;
+-- UttAdv adv = adv ;
+--
+ NoPConj = {s = []} ;
+-- PConjConj conj = conj ;
+--
+ NoVoc = {s = []} ;
+-- VocNP np = {s = "،" ++ np.s ! Nom} ;
+--
+}