From 08fc615bba5cd2039f07ccc848f4fbef789bbafd Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 8 Dec 2010 14:01:12 +0000 Subject: [PATCH] ProDrop in ExtraPol --- lib/src/polish/AllPol.gf | 3 ++- lib/src/polish/AllPolAbs.gf | 3 ++- lib/src/polish/ExtraPol.gf | 15 ++++++++++++--- 3 files changed, 16 insertions(+), 5 deletions(-) diff --git a/lib/src/polish/AllPol.gf b/lib/src/polish/AllPol.gf index b3953ead8..f2c9d3259 100644 --- a/lib/src/polish/AllPol.gf +++ b/lib/src/polish/AllPol.gf @@ -1,5 +1,6 @@ --# -path=.:../abstract:../common:prelude concrete AllPol of AllPolAbs = - LangPol + LangPol, + ExtraPol ** {} ; diff --git a/lib/src/polish/AllPolAbs.gf b/lib/src/polish/AllPolAbs.gf index c999c0bec..4a65a3890 100644 --- a/lib/src/polish/AllPolAbs.gf +++ b/lib/src/polish/AllPolAbs.gf @@ -1,5 +1,6 @@ --# -path=.:../abstract:../common:prelude abstract AllPolAbs = - Lang + Lang, + ExtraPolAbs ** {} ; diff --git a/lib/src/polish/ExtraPol.gf b/lib/src/polish/ExtraPol.gf index 2d34dc095..162d5b86d 100644 --- a/lib/src/polish/ExtraPol.gf +++ b/lib/src/polish/ExtraPol.gf @@ -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 ; + } ; +}