GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-26 03:08:55 -06:00
Code Issues Packages Projects Releases Wiki Activity

sorting command list in Commands

Browse Source
This commit is contained in:
aarne
2008-06-08 19:27:20 +00:00
parent ce06bd457e
commit fd6f37032c
4 changed files with 24 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
lib/resource-1.4/spanish/DiffSpa.gf
View File

@@ -59,7 +59,7 @@ instance DiffSpa of DiffRomance = open CommonRomance, PhonoSpa, BeschSpa, Prelud
vpAgrClit : Agr -> VPAgr = \a ->
vpAgrNone ;
pronArg = \n,p,acc,dat ->
pronArg = \n,p,acc,dat ->
let
paccp = case acc of {
CRefl => <reflPron n p Acc, p,True> ;
@@ -69,11 +69,15 @@ instance DiffSpa of DiffRomance = open CommonRomance, PhonoSpa, BeschSpa, Prelud
pdatp = case dat of {
CPron ag an ap => <argPron ag an ap dative, ap,True> ;
_ => <[],P2,False>
}
in case <<paccp.p2, pdatp.p2> : Person * Person> of {
<P3,P3> => <"se" ++ paccp.p1, [],True> ;
_ => <pdatp.p1 ++ paccp.p1, [],orB paccp.p3 pdatp.p3>
} ;
} ;
defaultPronArg = <pdatp.p1 ++ paccp.p1, [], orB paccp.p3 pdatp.p3>
in
case <<paccp.p2, pdatp.p2> : Person * Person> of {
<P3,P3> => <"se" ++ paccp.p1, [], True> ;
_ => defaultPronArg
} ;
---- 8/6/2008 efficiency problem in pgf generation: replace the case expr with
---- defaultPronArg ;
mkImperative b p vp = {
s = \\pol,aag =>