GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-27 17:08:54 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Ara) Add EmptyRelSlash to ExtendAra

Browse Source
This commit is contained in:
Inari Listenmaa
2019-01-04 12:56:46 +02:00
parent 93679cbcb2
commit 19dca60b6e
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/arabic/ExtendAra.gf
View File

@@ -15,6 +15,7 @@ concrete ExtendAra of Extend =
ParamX, ParamX,
ResAra, ResAra,
Prelude, Prelude,
RelativeAra,
Coordination Coordination
in { in {
@@ -28,6 +29,9 @@ concrete ExtendAra of Extend =
-- : AP -> IComp ; -- "how old" -- : AP -> IComp ; -- "how old"
ICompAP ap = {s = \\gn => "كَمْ" ++ ap.s ! NoHum ! gn.g ! gn.n ! Indef ! Acc} ; ICompAP ap = {s = \\gn => "كَمْ" ++ ap.s ! NoHum ! gn.g ! gn.n ! Indef ! Acc} ;
-- : ClSlash -> RCl -- he lives in
EmptyRelSlash = RelSlash (IdRP ** {s = \\_ => []}) ;
lincat lincat
VPS = {s : PerGenNum => Str} ; -- finite VP's with tense and polarity VPS = {s : PerGenNum => Str} ; -- finite VP's with tense and polarity
[VPS] = {s1,s2 : PerGenNum => Str} ; [VPS] = {s1,s2 : PerGenNum => Str} ;