ProDrop in ExtraPol

2010-12-08 14:01:12 +00:00
parent d7f4f66835
commit 08fc615bba
3 changed files with 16 additions and 5 deletions
--- 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
  ** {} ;
--- 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
  ** {} ;
--- 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 ;
+ } ;
+}