uniform encoding: gfo and pgf in UTF8, internal in unicode

2008-06-26 16:35:45 +00:00
parent 712717e461
commit 7f9a0cdd34
41 changed files with 159 additions and 73 deletions
@@ -1,4 +1,6 @@
 concrete AdjectiveBul of Adjective = CatBul ** open ResBul, Prelude in {
+  flags coding=cp1251 ;
+
  lin
    PositA  a = {
      s = \\aform => a.s ! aform ;
@@ -1,4 +1,6 @@
 concrete AdverbBul of Adverb = CatBul ** open ResBul, Prelude in {
+  flags coding=cp1251 ;
+
  lin
    PositAdvAdj a = {s = a.adv} ;
    ComparAdvAdj cadv a np = {
@@ -3,4 +3,6 @@
 concrete Bulgarian of BulgarianAbs = 
  LangBul,
  ExtraBul
-  ** {} ;
+  ** {
+  flags coding=cp1251 ;
+} ;
@@ -3,4 +3,6 @@
 abstract BulgarianAbs = 
  Lang,
  ExtraBulAbs
-  ** {} ;
+  ** {
+  flags coding=cp1251 ;
+} ;
@@ -1,4 +1,6 @@
-concrete CatBul of Cat = open ResBul, Prelude, (R = ParamX) in {
+concrete CatBul of Cat = open ResBul, Prelude, (R = ParamX) in {
+  flags coding=cp1251 ;
+

  flags optimize=all_subs ;

@@ -1,5 +1,7 @@
 concrete ConjunctionBul of Conjunction = 
  CatBul ** open ResBul, Coordination, Prelude in {
+  flags coding=cp1251 ;
+

  flags optimize=all_subs ;

@@ -1,5 +1,7 @@
 concrete ExtraBul of ExtraBulAbs = CatBul ** 
  open ResBul, Coordination, Prelude in {
+  flags coding=cp1251 ;
+

  lin
    PossIndefPron p = {
@@ -1,4 +1,6 @@
 abstract ExtraBulAbs = Extra ** {
+  flags coding=cp1251 ;
+

 fun
 -- Feminine variants of pronouns (those in $Structural$ are
@@ -15,6 +15,8 @@ concrete GrammarBul of Grammar =
  StructuralBul,
  IdiomBul
  ** {
+  flags coding=cp1251 ;
+

 flags startcat = Phr ; unlexer = text ; lexer = text ;

@@ -1,4 +1,6 @@
 concrete IdiomBul of Idiom = CatBul ** open Prelude, ParadigmsBul, ResBul in {
+  flags coding=cp1251 ;
+
  flags optimize=all_subs ;

  lin
@@ -4,6 +4,8 @@ concrete LangBul of Lang =
  GrammarBul,
  LexiconBul
  ** {
+  flags coding=cp1251 ;
+

 flags startcat = Phr ; unlexer = text ; lexer = text ; erasing = on ; coding = cp1251 ;

@@ -2,6 +2,8 @@

 concrete LexiconBul of Lexicon = CatBul ** 
  open ParadigmsBul, ResBul, Prelude in {
+  flags coding=cp1251 ;
+

 flags 
  optimize=values ;
@@ -12,7 +12,9 @@ resource MorphoBul = ResBul ** open
  Predef,
  Prelude,
  CatBul
-  in {
+  in {
+  flags coding=cp1251 ;
+

  flags optimize=all ;

@@ -4,7 +4,9 @@ resource MorphoFunsBul = open
  Prelude, 
  CatBul,
  MorphoBul
-  in {
+  in {
+  flags coding=cp1251 ;
+

 oper
 --2 Adverbs
@@ -1,4 +1,6 @@
-concrete NounBul of Noun = CatBul ** open ResBul, Prelude in {
+concrete NounBul of Noun = CatBul ** open ResBul, Prelude in {
+  flags coding=cp1251 ;
+

  flags optimize=all_subs ;

@@ -1,4 +1,6 @@
 concrete NumeralBul of Numeral = CatBul ** open Prelude, ResBul in {
+  flags coding=cp1251 ;
+

 lincat 
  Digit      = {s : DForm => CardOrd => Str} ;
@@ -3,7 +3,9 @@ resource ParadigmsBul = MorphoFunsBul ** open
  Prelude,
  MorphoBul,
  CatBul
-  in {
+  in {
+  flags coding=cp1251 ;
+
 oper
  mkN001 : Str -> N ;
  mkN001 base = let v0 = base
@@ -1,4 +1,6 @@
 concrete PhraseBul of Phrase = CatBul ** open Prelude, ResBul in {
+  flags coding=cp1251 ;
+

  lin
    PhrUtt pconj utt voc = {s = pconj.s ++ utt.s ++ voc.s} ;
@@ -1,4 +1,6 @@
 concrete QuestionBul of Question = CatBul ** open ResBul, Prelude in {
+  flags coding=cp1251 ;
+

  flags optimize=all_subs ;

@@ -1,4 +1,6 @@
 concrete RelativeBul of Relative = CatBul ** open ResBul in {
+  flags coding=cp1251 ;
+

  flags optimize=all_subs ;

@@ -8,6 +8,8 @@
 -- patterns needed for $Lex$.

 resource ResBul = ParamX ** open Prelude in {
+  flags coding=cp1251 ;
+

  flags optimize=all ;

@@ -1,4 +1,6 @@
 concrete SentenceBul of Sentence = CatBul ** open Prelude, ResBul in {
+  flags coding=cp1251 ;
+

  flags optimize=all_subs ;

@@ -1,5 +1,7 @@
 concrete StructuralBul of Structural = CatBul ** 
  open MorphoBul, ParadigmsBul, Prelude in {
+  flags coding=cp1251 ;
+

  flags optimize=all ;

@@ -1,4 +1,6 @@
 concrete TextBul of Text = CatBul ** {
+  flags coding=cp1251 ;
+

 -- This will work for almost all languages except Spanish.

@@ -1,4 +1,6 @@
 concrete VerbBul of Verb = CatBul ** open Prelude, ResBul, ParadigmsBul in {
+  flags coding=cp1251 ;
+

  flags optimize=all_subs ;