From 2483dc772897eb0909664f1a88cc7f8ec50ebd5b Mon Sep 17 00:00:00 2001 From: "kr.angelov" Date: Wed, 6 Nov 2013 10:21:46 +0000 Subject: the content of ParseEngAbs3.probs is now merged with ParseEngAbs.probs. The later is now retrained. Once the grammar is compiled with the .probs file now it doesn't need anything more to do robust parsing. The robustness itself is controlled by the flags 'heuristic_search_factor', 'meta_prob' and 'meta_token_prob' in ParseEngAbs.gf --- src/compiler/GF/Grammar/Binary.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'src/compiler/GF/Grammar/Binary.hs') diff --git a/src/compiler/GF/Grammar/Binary.hs b/src/compiler/GF/Grammar/Binary.hs index 6641b5718..0e897aa00 100644 --- a/src/compiler/GF/Grammar/Binary.hs +++ b/src/compiler/GF/Grammar/Binary.hs @@ -17,6 +17,7 @@ import Data.Binary --import Control.Monad import qualified Data.Map as Map import qualified Data.ByteString.Char8 as BS +import Text.PrettyPrint (render) import GF.Data.Operations import GF.Infra.Ident @@ -24,9 +25,10 @@ import GF.Infra.Option import GF.Grammar.Grammar import PGF() -- Binary instances +import PGF.Data(ppLit) -- Please change this every time when the GFO format is changed -gfoVersion = "GF02" +gfoVersion = "GF03" instance Binary Ident where put id = put (ident2bs id) @@ -91,7 +93,7 @@ instance Binary ModuleStatus where instance Binary Options where put = put . optionsGFO get = do opts <- get - case parseModuleOptions ["--" ++ flag ++ "=" ++ value | (flag,value) <- opts] of + case parseModuleOptions ["--" ++ flag ++ "=" ++ render (ppLit value) | (flag,value) <- opts] of Ok x -> return x Bad msg -> fail msg -- cgit v1.2.3