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

(Ara) small cleanup

Browse Source
This commit is contained in:
Inari Listenmaa
2019-01-26 18:38:57 +01:00
parent 9c903a76ab
commit dc4e866942
2 changed files with 2 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/arabic/LexiconAra.gf
View File

@@ -142,7 +142,7 @@ flags
old_A = sndA "قدم" "فَعِيل" ; old_A = sndA "قدم" "فَعِيل" ;
open_V2 = dirV2 (regV "يَفتَح") ; open_V2 = dirV2 (regV "يَفتَح") ;
-- open_V2 = dirV2 (v1 "فتح" a a ) ; -- open_V2 = dirV2 (v1 "فتح" a a ) ;
paint_V2A = mkV2A (regV "يَدهَن" ) [] ; paint_V2A = dirV2 (regV "يَدهَن" ) ;
-- paint_V2A = mkV2A (v1 "دهن" a a ) [] ; -- paint_V2A = mkV2A (v1 "دهن" a a ) [] ;
paper_N = brkN "ورق" "فَعَلة" "أَفعَال" Fem NoHum ; paper_N = brkN "ورق" "فَعَلة" "أَفعَال" Fem NoHum ;
paris_PN = mkPN "بارِيس" Fem NoHum ; paris_PN = mkPN "بارِيس" Fem NoHum ;

4
src/arabic/ParadigmsAra.gf
View File

@@ -88,14 +88,13 @@ resource ParadigmsAra = open
= smartPN ; = smartPN ;
mkPN : N -> PN -- Make a PN out of N. The PN is in construct state. mkPN : N -> PN -- Make a PN out of N. The PN is in construct state.
= \n -> lin PN (n ** { = \n -> lin PN (n ** {
s = \\c => n.s ! Sg ! Const ! c s = \\c => n.s ! Sg ! Const ! c
++ n.s2 ! Sg ! Def ! c -- NB this hack works for idaafa constructions (if you used mkN : N -> N -> N), but wrong for mkN : N -> A -> N. /IL ++ n.s2 ! Sg ! Def ! c -- NB this hack works for idaafa constructions (if you used mkN : N -> N -> N), but wrong for mkN : N -> A -> N. /IL
}) ; }) ;
mkPN : Str -> Gender -> Species -> PN -- Make a PN out of string, gender and species. mkPN : Str -> Gender -> Species -> PN -- Make a PN out of string, gender and species.
= mkFullPN ; = mkFullPN ;
} ; } ;
--3 Relational nouns --3 Relational nouns
mkN2 : overload { mkN2 : overload {
@@ -110,7 +109,6 @@ resource ParadigmsAra = open
mkN3 : N -> Str -> Str -> N3 ; -- prepositions given as strings mkN3 : N -> Str -> Str -> N3 ; -- prepositions given as strings
} ; } ;
--2 Adjectives --2 Adjectives
-- Overloaded operator for main cases -- Overloaded operator for main cases