mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-28 09:28:54 -06:00
(Ara) Remove some LTR (U+200E) chars that had been copypasted in error
This commit is contained in:
@@ -73,7 +73,7 @@ flags
|
|||||||
drink_V2 = dirV2 (regV "شَرِب") ;
|
drink_V2 = dirV2 (regV "شَرِب") ;
|
||||||
-- drink_V2 = dirV2 (v1 "شرب" i a) ;
|
-- drink_V2 = dirV2 (v1 "شرب" i a) ;
|
||||||
easy_A2V = mkA2 (sndA "سهل" "فَعل") "لِ" ;
|
easy_A2V = mkA2 (sndA "سهل" "فَعل") "لِ" ;
|
||||||
eat_V2 = dirV2 (mkV "ءكل" FormI) ;
|
eat_V2 = dirV2 (mkV "ءكل" FormI) ;
|
||||||
empty_A = sndA "فرغ" "فاعِل" ;
|
empty_A = sndA "فرغ" "فاعِل" ;
|
||||||
enemy_N = brkN "عدو" "فَعُلّ" "أَفعاء" Masc Hum ;
|
enemy_N = brkN "عدو" "فَعُلّ" "أَفعاء" Masc Hum ;
|
||||||
factory_N = brkN "صنع" "مَفعَل" "مَفاعِل" Masc NoHum ;
|
factory_N = brkN "صنع" "مَفعَل" "مَفاعِل" Masc NoHum ;
|
||||||
@@ -111,7 +111,7 @@ flags
|
|||||||
iron_N = brkN "حدّ" "فَعِيل" "فَعائِل" Masc NoHum ;
|
iron_N = brkN "حدّ" "فَعِيل" "فَعائِل" Masc NoHum ;
|
||||||
king_N = brkN "ملك" "فَعِل" "فُعُول" Masc Hum ;
|
king_N = brkN "ملك" "فَعِل" "فُعُول" Masc Hum ;
|
||||||
know_V2 = dirV2 (regV "عَرِف") ;
|
know_V2 = dirV2 (regV "عَرِف") ;
|
||||||
know_VS = mkVS (regV "عَرِف") ; -- or with ع ل م?
|
know_VS = mkVS (regV "عَرِف") ; -- or with ع ل م?
|
||||||
lake_N = sdfN "بحر" "فُعَيلة" Fem NoHum ;
|
lake_N = sdfN "بحر" "فُعَيلة" Fem NoHum ;
|
||||||
lamp_N = brkN "صبح" "مِفعال" "مَفاعِيل" Masc NoHum ; --qanDIl, fAnUs
|
lamp_N = brkN "صبح" "مِفعال" "مَفاعِيل" Masc NoHum ; --qanDIl, fAnUs
|
||||||
learn_V2 = dirV2 (v5 "علم") ;
|
learn_V2 = dirV2 (v5 "علم") ;
|
||||||
|
|||||||
@@ -12,7 +12,7 @@ flags coding=utf8 ;
|
|||||||
sun : pattern Str = #("ت"|"ث"|"د"|"ذ"|"ر"|"ز"|"س"|"ش"|"ص"|"ض"|"ط"|"ظ"|"ل"|"ن") ;
|
sun : pattern Str = #("ت"|"ث"|"د"|"ذ"|"ر"|"ز"|"س"|"ش"|"ص"|"ض"|"ط"|"ظ"|"ل"|"ن") ;
|
||||||
|
|
||||||
-- Hamza
|
-- Hamza
|
||||||
hamza : pattern Str = #("ء"|"؟") ;
|
hamza : pattern Str = #("ء"|"؟") ;
|
||||||
|
|
||||||
rectifyHmz: Str -> Str = \word ->
|
rectifyHmz: Str -> Str = \word ->
|
||||||
case word of {
|
case word of {
|
||||||
|
|||||||
@@ -952,7 +952,7 @@ patHollowImp : (_,_ :Str) -> Gender => Number => Str =\xaf,xAf ->
|
|||||||
Const =>
|
Const =>
|
||||||
table {
|
table {
|
||||||
Nom => "َا";
|
Nom => "َا";
|
||||||
_ => "َيْ"
|
_ => "َيْ"
|
||||||
};
|
};
|
||||||
_ =>
|
_ =>
|
||||||
table {
|
table {
|
||||||
|
|||||||
@@ -20,7 +20,7 @@ concrete VerbAra of Verb = CatAra ** open Prelude, ResAra in {
|
|||||||
ComplVV vv vp = let vvVP = predV vv in --- IL
|
ComplVV vv vp = let vvVP = predV vv in --- IL
|
||||||
vp ** {
|
vp ** {
|
||||||
s = \\pgn,vpf => vvVP.s ! pgn ! vpf
|
s = \\pgn,vpf => vvVP.s ! pgn ! vpf
|
||||||
++ vv.c2 -- أَنْ
|
++ vv.c2 -- أَنْ
|
||||||
++ vp.s ! pgn ! VPImpf Cnj
|
++ vp.s ! pgn ! VPImpf Cnj
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user