making TryPol compile

lib/src/Make.hs

@@ -54,7 +54,7 @@ langsCoding = [
 langs = map fst langsCoding
 
 -- languagues for which to compile Lang
-langsLang = langs `except` ["Pol","Tur"]
+langsLang = langs `except` ["Tur"]
 
 -- languages for which to compile Try 
 langsAPI  = langsLang `except` ["Ara","Bul","Hin","Ina","Lat","Rus","Tha"]

lib/src/api/SymbolicPol.gf

@@ -0,0 +1,5 @@
+--# -path=.:present
+
+resource SymbolicPol = Symbolic with 
+  (Symbol = SymbolPol),
+  (Grammar = GrammarPol) ;

lib/src/api/TryPol.gf

@@ -3,10 +3,10 @@
 resource TryPol = SyntaxPol, LexiconPol, ParadigmsPol - [mkAdv] ** 
   open (P = ParadigmsPol) in {
 
-oper
+--oper
 
-  mkAdv = overload SyntaxPol {
+--  mkAdv = overload SyntaxPol {
-    mkAdv : Str -> Adv = P.mkAdv ;
+--    mkAdv : Str -> Adv = P.mkAdv ;
-  } ;
+--  } ;
 
 }

lib/src/polish/GrammarPol.gf

@@ -13,7 +13,7 @@ concrete GrammarPol of Grammar =
   RelativePol,
   ConjunctionPol,
   PhrasePol,
-  TextPol,
+  TextX - [CAdv],
   StructuralPol,
   IdiomPol
    ** { flags  startcat = Phr ; unlexer = text ; lexer = text ;} ;

lib/src/polish/TextPol.gf

@@ -1,9 +0,0 @@
-concrete TextPol of Text = {
-
-  lin
-    TEmpty = {s = []} ;
-    TFullStop x xs = {s = x.s ++ "." ++ xs.s} ;
-    TQuestMark x xs = {s = x.s ++ "?" ++ xs.s} ;
-    TExclMark x xs = {s = x.s ++ "!" ++ xs.s} ;
-
-}