mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-27 11:56:29 -06:00
move UseDAP, UseDAPMasc, UseDAPFem to the RGL and implement it for several new languages
This commit is contained in:
+1
-1
@@ -48,7 +48,7 @@ concrete CatDut of Cat =
|
||||
|
||||
Pron = Pronoun ;
|
||||
|
||||
Det = Determiner ;
|
||||
Det, DAP = Determiner ;
|
||||
Quant = Quantifier ;
|
||||
Predet = {s : Number => Gender => Str} ;
|
||||
Num = {s : Str ; n : Number ; isNum : Bool} ;
|
||||
|
||||
@@ -101,4 +101,18 @@ lin
|
||||
ICompAP ap = {s = \\agr => "hoe" ++ ap.s ! agr ! APred} ;
|
||||
|
||||
IAdvAdv adv = {s = "hoe" ++ adv.s} ;
|
||||
|
||||
lin
|
||||
UseDAP dap = dap ** {
|
||||
s = \\_ => dap.sp ! Neutr ;
|
||||
a = agrP3 dap.n ;
|
||||
isPron = False
|
||||
} ;
|
||||
|
||||
UseDAPMasc, UseDAPFem = \dap -> dap ** {
|
||||
s = \\_ => dap.sp ! Utr ;
|
||||
a = agrP3 dap.n ;
|
||||
isPron = False
|
||||
} ;
|
||||
|
||||
}
|
||||
|
||||
@@ -197,4 +197,6 @@ concrete NounDut of Noun = CatDut ** open ResDut, Prelude in {
|
||||
g = cn.g
|
||||
} ;
|
||||
|
||||
DetDAP det = det ;
|
||||
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user