re-enabled Phrasebook in App ; added Russian ; testing with lower-casing the input

2026-04-11 13:59:31 -06:00 · 2017-04-11 15:48:18 +00:00
parent 23f740d3b9
commit dd61e1dc19
21 changed files with 52 additions and 18 deletions
--- a/examples/app/App.gf
+++ b/examples/app/App.gf
@@ -22,7 +22,7 @@ abstract App =
  -- Extensions
    PassVPSlash, PassAgentVPSlash -- not reachable anyway
  ]
--P  ,Phrasebook
+  ,Phrasebook

              ** {
 flags
@@ -30,8 +30,8 @@ flags
  heuristic_search_factor=0.80; -- doesn't seem to affect speed or quality much

 fun
--P  PhrasePhr : Phrase -> Phr ;
--P  Phrase_Chunk : Phrase -> Chunk ;
+  PhrasePhr : Phrase -> Phr ;
+  Phrase_Chunk : Phrase -> Chunk ;

  ComplV2 : V2 -> NP -> VP ;  -- sees him
  
--- a/examples/app/AppBul.gf
+++ b/examples/app/AppBul.gf
@@ -22,7 +22,8 @@ concrete AppBul of App =
  -- Construction
  -- Extensions
    PassVPSlash, PassAgentVPSlash -- not reachable anyway
-  ]
+  ],
+   PhrasebookBul - [open_Adv,closed_A,open_A]

   ** AppFunctor with (Syntax = SyntaxBul) ;

--- a/examples/app/AppCat.gf
+++ b/examples/app/AppCat.gf
@@ -23,5 +23,6 @@ concrete AppCat of App =
  -- Extensions
    PassVPSlash, PassAgentVPSlash -- not reachable anyway
  ]
-
+   ,PhrasebookCat - [open_Adv,closed_A,open_A,at_Prep,cheap_A,expensive_A,stateCopula]
+   
   ** AppFunctor with (Syntax = SyntaxCat) ;
--- a/examples/app/AppChi.gf
+++ b/examples/app/AppChi.gf
@@ -22,6 +22,7 @@ concrete AppChi of App =
  -- Construction
  -- Extensions
    PassVPSlash, PassAgentVPSlash -- not reachable anyway
-  ]
-
+  ],
+   PhrasebookChi - [open_Adv,closed_A,open_A,at_Prep,by_Prep]
+   
   ** AppFunctor with (Syntax = SyntaxChi) ;
--- a/examples/app/AppDut.gf
+++ b/examples/app/AppDut.gf
@@ -22,6 +22,7 @@ concrete AppDut of App =
  -- Construction
  -- Extensions
    PassVPSlash, PassAgentVPSlash -- not reachable anyway
-  ]
+  ],
+   PhrasebookDut - [open_Adv,closed_A,open_A]

   ** AppFunctor with (Syntax = SyntaxDut) ;
--- a/examples/app/AppEng.gf
+++ b/examples/app/AppEng.gf
@@ -22,7 +22,8 @@ concrete AppEng of App =
  -- Construction
  -- Extensions
    PassVPSlash, PassAgentVPSlash -- not reachable anyway
-  ]
+  ],
+  PhrasebookEng - [open_Adv]

   ** AppFunctor with (Syntax = SyntaxEng) ;

--- a/examples/app/AppEst.gf
+++ b/examples/app/AppEst.gf
@@ -23,5 +23,7 @@ concrete AppEst of App =
  -- Extensions
    PassVPSlash, PassAgentVPSlash -- not reachable anyway
  ]
+   ,PhrasebookEst - [open_Adv,closed_A,open_A,at_Prep]
+   

   ** AppFunctor with (Syntax = SyntaxEst) ;
--- a/examples/app/AppFin.gf
+++ b/examples/app/AppFin.gf
@@ -22,6 +22,8 @@ concrete AppFin of App =
  -- Construction
  -- Extensions
    PassVPSlash, PassAgentVPSlash -- not reachable anyway
-  ]
+  ],
+   PhrasebookFin - [open_Adv,closed_A,open_A,at_Prep]
+   

   ** AppFunctor with (Syntax = SyntaxFin) ;
--- a/examples/app/AppFre.gf
+++ b/examples/app/AppFre.gf
@@ -22,5 +22,7 @@ concrete AppFre of App =
  -- Extensions
    PassVPSlash, PassAgentVPSlash -- not reachable anyway
  ]
+   ,PhrasebookFre - [open_Adv,closed_A,open_A,at_Prep]
+   

   ** AppFunctor with (Syntax = SyntaxFre) ;
--- a/examples/app/AppFunctor.gf
+++ b/examples/app/AppFunctor.gf
@@ -20,14 +20,19 @@ incomplete concrete AppFunctor of App =
  -- Construction
  -- Extensions
    PassVPSlash, PassAgentVPSlash -- not reachable anyway
-  ]
+  ],
+ Phrasebook - [open_Adv]

   ** open Syntax in {

 flags
  literal=Symb ;
+  case_sensitive=off ;

 lin
+  PhrasePhr p = {s = "+" ++ p.s} | p ;
+  Phrase_Chunk p = p ;
+
  ComplV2 v np = mkVP v np ;

  ComplV2V v np vp = mkVP v np vp ;
--- a/examples/app/AppGer.gf
+++ b/examples/app/AppGer.gf
@@ -22,6 +22,8 @@ concrete AppGer of App =
  -- Construction
  -- Extensions
    PassVPSlash, PassAgentVPSlash -- not reachable anyway
-  ]
+  ],
+   PhrasebookGer - [open_Adv,closed_A,open_A,at_Prep]
+   

   ** AppFunctor with (Syntax = SyntaxGer) ;
--- a/examples/app/AppHin.gf
+++ b/examples/app/AppHin.gf
@@ -22,6 +22,8 @@ concrete AppHin of App =
  -- Construction
  -- Extensions
    PassVPSlash, PassAgentVPSlash -- not reachable anyway
-  ]
+  ],
+   PhrasebookHin - [open_Adv,closed_A,open_A,at_Prep]
+   

   ** AppFunctor with (Syntax = SyntaxHin) ;
--- a/examples/app/AppIta.gf
+++ b/examples/app/AppIta.gf
@@ -23,5 +23,7 @@ concrete AppIta of App =
  -- Extensions
    PassVPSlash, PassAgentVPSlash -- not reachable anyway
  ]
+   ,PhrasebookIta - [open_Adv,closed_A,open_A,at_Prep]
+   

   ** AppFunctor with (Syntax = SyntaxIta) ;
--- a/examples/app/AppJpn.gf
+++ b/examples/app/AppJpn.gf
@@ -22,6 +22,8 @@ concrete AppJpn of App =
  -- Construction
  -- Extensions
    PassVPSlash, PassAgentVPSlash -- not reachable anyway
-  ]
+  ],
+   PhrasebookJpn - [open_Adv,closed_A,open_A,at_Prep]
+   

   ** AppFunctor with (Syntax = SyntaxJpn) ;
--- a/examples/app/AppRus.gf
+++ b/examples/app/AppRus.gf
@@ -23,5 +23,7 @@ concrete AppRus of App =
  -- Extensions
    PassVPSlash, PassAgentVPSlash -- not reachable anyway
  ]
+   ,PhrasebookRus - [open_Adv,closed_A,open_A,at_Prep,cost_V]
+   

   ** AppFunctor with (Syntax = SyntaxRus) ;
--- a/examples/app/AppSpa.gf
+++ b/examples/app/AppSpa.gf
@@ -24,5 +24,7 @@ concrete AppSpa of App =
  -- Extensions
    PassVPSlash, PassAgentVPSlash -- not reachable anyway
  ]
+   ,PhrasebookSpa - [open_Adv,closed_A,open_A,at_Prep,cheap_A,expensive_A,stateCopula]
+   

   ** AppFunctor with (Syntax = SyntaxSpa) ;
--- a/examples/app/AppSwe.gf
+++ b/examples/app/AppSwe.gf
@@ -21,6 +21,7 @@ concrete AppSwe of App =
  -- Construction
  -- Extensions
    PassVPSlash, PassAgentVPSlash -- not reachable anyway
-  ]
+  ],
+   PhrasebookSwe - [open_Adv,closed_A,open_A]

   ** AppFunctor with (Syntax = SyntaxSwe) ;
--- a/examples/app/AppTha.gf
+++ b/examples/app/AppTha.gf
@@ -22,7 +22,9 @@ concrete AppTha of App =
  -- Construction
  -- Extensions
    PassVPSlash, PassAgentVPSlash -- not reachable anyway
-  ]
+  ],
+   PhrasebookTha - [open_Adv,closed_A,open_A,at_Prep]
+   

   ** AppFunctor with (Syntax = SyntaxTha) ;

--- a/examples/app/Makefile
+++ b/examples/app/Makefile
@@ -34,7 +34,7 @@ App16.pgf: $(APP16)

 # Without dependencies:
 App11:
-	$(GFMKT) -name=App12 $(APP11) +RTS -K200M
+	$(GFMKT) -name=App11 $(APP11) +RTS -K200M
 App12:
 	$(GFMKT) -name=App12 $(APP12) +RTS -K200M
 App13:
@@ -43,6 +43,8 @@ App14:
 	$(GFMKT) -name=App14 $(APP14) +RTS -K200M
 App15:
 	$(GFMKT) -name=App15 $(APP15) +RTS -K200M
+App16:
+	$(GFMKT) -name=App16 $(APP16) +RTS -K200M

 # App grammars for individual languages
 AppEng.pgf:: ; $(GFMKT) -name=AppEng AppEng.gf
--- a/examples/phrasebook/Makefile
+++ b/examples/phrasebook/Makefile
@@ -1,7 +1,7 @@
 compile = runghc Compile 

 forApp: 
-	$(compile) -opt Bul Cat Chi Dut Eng Est Fin Fre Ger Hin Ita Jpn Spa Swe Tha
+	$(compile) -opt Bul Cat Chi Dut Eng Est Fin Fre Ger Hin Ita Jpn Rus Spa Swe Tha
 	make gfos

 .PHONY: gfos
--- a/src/ui/android/src/org/grammaticalframework/ui/android/Translator.java
+++ b/src/ui/android/src/org/grammaticalframework/ui/android/Translator.java
@@ -41,6 +41,7 @@ public class Translator {
        new Language("hi-IN", "Hindi",   "AppHin", R.xml.devanagari_page1, R.xml.devanagari_page2),
        new Language("it-IT", "Italian", "AppIta", R.xml.qwerty),
        new Language("ja-JP", "Japanese","AppJpn", R.xml.qwerty),
+	new Language("ru-RU", "Russian", "AppRus", R.xml.cyrillic),
        new Language("es-ES", "Spanish", "AppSpa", R.xml.qwerty),
        new Language("sv-SE", "Swedish", "AppSwe", R.xml.nordic),
        new Language("th-TH", "Thai",    "AppTha", R.xml.thai_page1, R.xml.thai_page2)