mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-27 17:08:54 -06:00
20 lines
511 B
Plaintext
20 lines
511 B
Plaintext
concrete AdjectiveHye of Adjective = CatHye ** open ResHye, Prelude in {
|
|
lin
|
|
AdAP ada ap = {
|
|
s = \\sp,c,num => ada.s ++ ap.s ! sp ! c ! num;
|
|
isPre = ap.isPre
|
|
} ;
|
|
PositA a = {
|
|
s = \\sp,c,num =>
|
|
case <sp,c> of {
|
|
<Def,Nom> => a.def_nom ! num ;
|
|
<Def,Dat> => a.def_dat ! num ;
|
|
<Poss P1,_> => a.poss1 ! c ! num ;
|
|
<Poss P2,_> => a.poss2 ! c ! num ;
|
|
_ => a.s ! c ! num
|
|
} ;
|
|
isPre = True
|
|
} ;
|
|
|
|
}
|