mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-21 09:02:50 -06:00
ProDrop in ExtraPol
This commit is contained in:
@@ -1,5 +1,6 @@
|
|||||||
--# -path=.:../abstract:../common:prelude
|
--# -path=.:../abstract:../common:prelude
|
||||||
|
|
||||||
concrete AllPol of AllPolAbs =
|
concrete AllPol of AllPolAbs =
|
||||||
LangPol
|
LangPol,
|
||||||
|
ExtraPol
|
||||||
** {} ;
|
** {} ;
|
||||||
|
|||||||
@@ -1,5 +1,6 @@
|
|||||||
--# -path=.:../abstract:../common:prelude
|
--# -path=.:../abstract:../common:prelude
|
||||||
|
|
||||||
abstract AllPolAbs =
|
abstract AllPolAbs =
|
||||||
Lang
|
Lang,
|
||||||
|
ExtraPolAbs
|
||||||
** {} ;
|
** {} ;
|
||||||
|
|||||||
@@ -1,3 +1,12 @@
|
|||||||
--concrete ExtraPol of ExtraPolAbs = CatPol ** {
|
concrete ExtraPol of ExtraPolAbs = CatPol ** open ResPol in {
|
||||||
--
|
|
||||||
-- }
|
lin ProDrop p = {
|
||||||
|
nom = [] ;
|
||||||
|
voc = p.voc ;
|
||||||
|
dep = p.dep ;
|
||||||
|
sp = p.sp ;
|
||||||
|
n = p.n ;
|
||||||
|
p = p.p ;
|
||||||
|
g = p.g ;
|
||||||
|
} ;
|
||||||
|
}
|
||||||
|
|||||||
Reference in New Issue
Block a user