diff --git a/src/arabic/ParadigmsAra.gf b/src/arabic/ParadigmsAra.gf index 06b181f3e..eb81ad02c 100644 --- a/src/arabic/ParadigmsAra.gf +++ b/src/arabic/ParadigmsAra.gf @@ -168,6 +168,8 @@ resource ParadigmsAra = open mkAdA : Str -> AdA ; + mkInterj : Str -> Interj ; + --2 Prepositions -- -- A preposition as used for rection in the lexicon, as well as to @@ -641,7 +643,7 @@ resource ParadigmsAra = open mkAdv x = lin Adv (ss x) ; mkAdV x = lin AdV (ss x) ; mkAdA x = lin AdA (ss x) ; - + mkInterj x = lin Interj (ss x) ; dirV2 v = prepV2 v (casePrep acc) ; diff --git a/src/arabic/PhraseAra.gf b/src/arabic/PhraseAra.gf index 78c8f947a..9bc36fa60 100644 --- a/src/arabic/PhraseAra.gf +++ b/src/arabic/PhraseAra.gf @@ -10,6 +10,7 @@ concrete PhraseAra of Phrase = CatAra ** open UttQS qs = {s = \\g => qs.s ! QDir} ; UttImpSg pol imp = {s = \\g => imp.s ! pol.p ! g ! ResAra.Sg ++ pol.s} ; UttImpPl,UttImpPol = \pol,imp -> {s = \\g => imp.s ! pol.p ! g ! ResAra.Pl ++ pol.s} ; + UttInterj i = {s = \\g => i.s} ; UttIP ip = {s = \\g => ip.s ! False ! g ! Def ! Nom} ; --IL UttAP ap = {s = ResAra.uttAP ap} ; --IL