msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

(Ara) Add UttInterj and an API command mkInterj

Browse Source
This commit is contained in:
Inari Listenmaa
2018-11-14 18:11:10 +01:00
parent 2b16118063
commit 06efa09f93
2 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/arabic/ParadigmsAra.gf
View File

@@ -168,6 +168,8 @@ resource ParadigmsAra = open
mkAdA : Str -> AdA ; mkAdA : Str -> AdA ;
mkInterj : Str -> Interj ;
--2 Prepositions --2 Prepositions
-- --
-- A preposition as used for rection in the lexicon, as well as to -- 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) ;
mkAdV x = lin AdV (ss x) ; mkAdV x = lin AdV (ss x) ;
mkAdA x = lin AdA (ss x) ; mkAdA x = lin AdA (ss x) ;
mkInterj x = lin Interj (ss x) ;
dirV2 v = prepV2 v (casePrep acc) ; dirV2 v = prepV2 v (casePrep acc) ;

1
src/arabic/PhraseAra.gf
View File

@@ -10,6 +10,7 @@ concrete PhraseAra of Phrase = CatAra ** open
UttQS qs = {s = \\g => qs.s ! QDir} ; UttQS qs = {s = \\g => qs.s ! QDir} ;
UttImpSg pol imp = {s = \\g => imp.s ! pol.p ! g ! ResAra.Sg ++ pol.s} ; 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} ; 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 UttIP ip = {s = \\g => ip.s ! False ! g ! Def ! Nom} ; --IL
UttAP ap = {s = ResAra.uttAP ap} ; --IL UttAP ap = {s = ResAra.uttAP ap} ; --IL