GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-28 01:18:57 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Ara) Sorry again, still don't know how to use git.

Browse Source
This commit is contained in:
Inari Listenmaa
2019-01-23 16:24:25 +01:00
parent fa5f4fe829
commit d5084f9041
3 changed files with 11 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/arabic/MorphoAra.gf
View File

@@ -70,6 +70,8 @@ oper
_ => "لِ" _ => "لِ"
}) Dat ; }) Dat ;
biPrep : Preposition = mkPrefix "بِ" ; biPrep : Preposition = mkPrefix "بِ" ;
accPrep : Preposition = mkPreposition [] Acc ; -- default object case in VP
genPrep : Preposition = mkPreposition [] Gen ; -- default object case in N2
pronSuff : pattern Str = #("كَ"|"كِ"|"كُمَا"|"كُمْ"|"كُنَّ"|"هُ"|"ها"|"هُمَا"|"هُمْ"|"هُنَّ") ; pronSuff : pattern Str = #("كَ"|"كِ"|"كُمَا"|"كُمْ"|"كُنَّ"|"هُ"|"ها"|"هُمَا"|"هُمْ"|"هُنَّ") ;
pronSuffAndOther : pattern Str = #( "كَم" ) ; -- TODO list words that begin like pron.suff. but aren't pronSuffAndOther : pattern Str = #( "كَم" ) ; -- TODO list words that begin like pron.suff. but aren't

16
src/arabic/ParadigmsAra.gf
View File

@@ -107,10 +107,10 @@ resource ParadigmsAra = open
--3 Relational nouns --3 Relational nouns
mkN2 : overload { mkN2 : overload {
mkN2 : N -> Preposition -> N2 ; -- ready-made preposition mkN2 : N -> Prep -> N2 ; -- Noun and a ready-made preposition.
mkN2 : N -> Str -> N2 ; -- preposition given as a string mkN2 : N -> Str -> N2 ; -- Noun, preposition given as a string, complement case genitive.
mkN2 : N -> N2 ; -- no preposition mkN2 : N -> N2 ; -- Noun, no preposition, complement case genitive.
mkN2 : Str -> N2 ; -- no preposition, predictable inflection mkN2 : Str -> N2 ; -- Predictable inflection, no preposition, complement case genitive.
} ; } ;
mkN3 : overload { mkN3 : overload {
@@ -343,7 +343,7 @@ resource ParadigmsAra = open
lin Prep (casePrep c) ; lin Prep (casePrep c) ;
} ; } ;
noPrep = lin Prep {s=[]; c=nom; binds=False} ; noPrep = lin Prep ResAra.noPrep ;
biPrep = lin Prep ResAra.biPrep ; biPrep = lin Prep ResAra.biPrep ;
liPrep = lin Prep ResAra.liPrep ; liPrep = lin Prep ResAra.liPrep ;
@@ -614,8 +614,8 @@ resource ParadigmsAra = open
mkN2 = overload { mkN2 = overload {
mkN2 : N -> Prep -> N2 = prepN2 ; mkN2 : N -> Prep -> N2 = prepN2 ;
mkN2 : N -> Str -> N2 = \n,s -> prepN2 n (mkPreposition s); mkN2 : N -> Str -> N2 = \n,s -> prepN2 n (mkPreposition s);
mkN2 : N -> N2 = \n -> lin N2 (n ** {c2 = noPrep}) ; mkN2 : N -> N2 = \n -> prepN2 n genPrep;
mkN2 : Str -> N2 = \str -> lin N2 (smartN str ** {c2 = noPrep}) mkN2 : Str -> N2 = \str -> prepN2 (smartN str) genPrep;
} ; } ;
prepN2 : N -> Preposition -> N2 = \n,p -> lin N2 (n ** {c2 = p}) ; prepN2 : N -> Preposition -> N2 = \n,p -> lin N2 (n ** {c2 = p}) ;
@@ -764,7 +764,7 @@ resource ParadigmsAra = open
mkSubj : Str -> Order -> Subj = \s,o -> lin Subj {s = s ; o = o} ; mkSubj : Str -> Order -> Subj = \s,o -> lin Subj {s = s ; o = o} ;
} ; } ;
dirV2 v = prepV2 v (casePrep acc) ; dirV2 v = prepV2 v accPrep ;
mkV3 = overload { mkV3 = overload {
mkV3 : V -> Prep -> Prep -> V3 = \v,p,q -> mkV3 : V -> Prep -> Prep -> V3 = \v,p,q ->

2
src/arabic/ResAra.gf
View File

@@ -643,7 +643,7 @@ oper
ClSlash : Type = VPSlash ** {subj : Subj} ; ClSlash : Type = VPSlash ** {subj : Subj} ;
emptyVPslash : VP -> VPSlash = \vp -> vp ** { emptyVPslash : VP -> VPSlash = \vp -> vp ** {
c2 = noPrep ; agrObj = \\_ => [] c2 = accPrep ; agrObj = \\_ => []
} ; } ;
slashV2 : Verb2 -> VPSlash = \v -> slashV2 : Verb2 -> VPSlash = \v ->