mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-10-30 02:33:17 -06:00
move UseDAP, UseDAPMasc, UseDAPFem to the RGL and implement it for several new languages
This commit is contained in:
1 parent
156e193d47
commit
9d657a6f24
17 files changed
+182
-7
No files matched your search
@@ -270,5 +270,35 @@ lin
|
||||
p = NounP3 det.p
|
||||
} ;
|
||||
|
||||
lin UseDAP dap = {
|
||||
s = \\role => let s = dap.s ! False ! ANeut ! role
|
||||
in case role of {
|
||||
RObj c => linCase c dap.p ++ s;
|
||||
_ => s
|
||||
} ;
|
||||
gn = gennum ANeut (numnnum dap.nn);
|
||||
p = NounP3 dap.p
|
||||
} ;
|
||||
|
||||
UseDAPMasc dap = {
|
||||
s = \\role => let s = dap.s ! False ! (AMasc Human) ! role
|
||||
in case role of {
|
||||
RObj c => linCase c dap.p ++ s;
|
||||
_ => s
|
||||
} ;
|
||||
gn = gennum (AMasc Human) (numnnum dap.nn);
|
||||
p = NounP3 dap.p
|
||||
} ;
|
||||
|
||||
UseDAPFem dap = {
|
||||
s = \\role => let s = dap.s ! False ! AFem ! role
|
||||
in case role of {
|
||||
RObj c => linCase c dap.p ++ s;
|
||||
_ => s
|
||||
} ;
|
||||
gn = gennum AFem (numnnum dap.nn);
|
||||
p = NounP3 dap.p
|
||||
} ;
|
||||
|
||||
}
|
||||
|
||||
Reference in new issue
Block a user