diff options
| author | krasimir <krasimir@chalmers.se> | 2008-02-21 15:58:19 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2008-02-21 15:58:19 +0000 |
| commit | 389ba6058d336e4f193fa02c1fad3edad67415c1 (patch) | |
| tree | 44e10f5bc2b4827adf4f1f2f1a7a0995f96f750e | |
| parent | 671b6b4dff42efeef8c1e1471576f06fdcff8f68 (diff) | |
For Windows change the Console Code Page to the default ANSI code page. This fixes the problem with cyrilic.
| -rw-r--r-- | src/GF.hs | 12 | ||||
| -rw-r--r-- | src/GF/Shell/HelpFile.hs | 2 |
2 files changed, 13 insertions, 1 deletions
@@ -1,3 +1,4 @@ +{-# OPTIONS -cpp #-} ---------------------------------------------------------------------- -- | -- Module : Main @@ -37,10 +38,21 @@ import System (getArgs,system,getEnv) import Control.Monad (foldM,liftM) import Data.List (nub) +#ifdef mingw32_HOST_OS +import System.Win32.Console +import System.Win32.NLS +#endif + -- AR 19/4/2000 -- 21/3/2006 main :: IO () main = do +#ifdef mingw32_HOST_OS + codepage <- getACP + setConsoleCP codepage + setConsoleOutputCP codepage +#endif + xs <- getArgs let (os,fs) = getOptions "-" xs diff --git a/src/GF/Shell/HelpFile.hs b/src/GF/Shell/HelpFile.hs index 06528204b..43fae7c42 100644 --- a/src/GF/Shell/HelpFile.hs +++ b/src/GF/Shell/HelpFile.hs @@ -717,7 +717,7 @@ txtHelpFile = "\n-coding, Some grammars are in UTF-8, some in isolatin-1." ++ "\n If the letters \228 (a-umlaut) and \246 (o-umlaut) look strange, either" ++ "\n change your terminal to isolatin-1, or rewrite the grammar with" ++ - "\n 'pg -utf8'." ++ + "\n 'pg -utf8'. For Windows you also may have to change your font to TrueType." ++ "\n" ++ "\n-- *: Commands and options marked with * are not currently implemented." ++ [] |