diff options
| author | hallgren <hallgren@chalmers.se> | 2013-11-29 16:26:49 +0000 |
|---|---|---|
| committer | hallgren <hallgren@chalmers.se> | 2013-11-29 16:26:49 +0000 |
| commit | 7d1c01138998497e70008b03c3b09b508850cb32 (patch) | |
| tree | 80c64baee886b96346260be15b6f9003dd1c3e36 /src/compiler/GF/Infra/Option.hs | |
| parent | 729d04051a8f4f92dea0a3d22c64ece2122216bd (diff) | |
Commment code and options relating to the old partial evaluator
This means that the -old-comp and -new-comp flags are not recognized anymore.
The only functional difference is that printnames were still normalized with
the old partial evaluator. Now that is done with the new partial evaluator.
Diffstat (limited to 'src/compiler/GF/Infra/Option.hs')
| -rw-r--r-- | src/compiler/GF/Infra/Option.hs | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/src/compiler/GF/Infra/Option.hs b/src/compiler/GF/Infra/Option.hs index 08f0df18b..fb516a690 100644 --- a/src/compiler/GF/Infra/Option.hs +++ b/src/compiler/GF/Infra/Option.hs @@ -1,4 +1,4 @@ -{-# LANGUAGE CPP #-} +-- LANGUAGE CPP module GF.Infra.Option ( -- * Option types @@ -173,8 +173,8 @@ data Flags = Flags { optTagsOnly :: Bool, optHeuristicFactor :: Maybe Double, optMetaProb :: Maybe Double, - optMetaToknProb :: Maybe Double, - optNewComp :: Bool + optMetaToknProb :: Maybe Double{-, + optNewComp :: Bool-} } deriving (Show) @@ -285,13 +285,14 @@ defaultFlags = Flags { optTagsOnly = False, optHeuristicFactor = Nothing, optMetaProb = Nothing, - optMetaToknProb = Nothing, + optMetaToknProb = Nothing{-, optNewComp = #ifdef NEW_COMP True #else False #endif +-} } -- | Option descriptions @@ -374,8 +375,8 @@ optDescr = Option [] ["heuristic_search_factor"] (ReqArg (readDouble (\d o -> o { optHeuristicFactor = Just d })) "FACTOR") "Set the heuristic search factor for statistical parsing", Option [] ["meta_prob"] (ReqArg (readDouble (\d o -> o { optMetaProb = Just d })) "PROB") "Set the probability of introducting a meta variable in the parser", Option [] ["meta_token_prob"] (ReqArg (readDouble (\d o -> o { optMetaToknProb = Just d })) "PROB") "Set the probability for skipping a token in the parser", - Option [] ["new-comp"] (NoArg (set $ \o -> o{optNewComp = True})) "Use the new experimental compiler.", - Option [] ["old-comp"] (NoArg (set $ \o -> o{optNewComp = False})) "Use old trusty compiler.", +-- Option [] ["new-comp"] (NoArg (set $ \o -> o{optNewComp = True})) "Use the new experimental compiler.", +-- Option [] ["old-comp"] (NoArg (set $ \o -> o{optNewComp = False})) "Use old trusty compiler.", dumpOption "source" Source, dumpOption "rebuild" Rebuild, dumpOption "extend" Extend, |