GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-02 15:52:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

Move welcome message from GF.Interactive & GF.Interactive2 to GF.Command.Messages

Browse Source 
...to avoid the duplication.
This commit is contained in:
hallgren
2015-08-12 11:01:45 +00:00
parent e50f92c41d
commit 063912c386
3 changed files with 28 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
src/compiler/GF/Interactive2.hs
View File

@@ -53,9 +53,7 @@ import GF.Server(server)
-}
import GF.System.Console(changeConsoleEncoding)
import GF.Infra.BuildInfo(buildInfo)
import Data.Version(showVersion)
import Paths_gf(version)
import GF.Command.Messages(welcome)
-- | Run the GF Shell in quiet mode (@gf -run@).
mainRunGFI :: Options -> [FilePath] -> IO ()
@@ -67,6 +65,7 @@ beQuiet = addOptions (modifyFlags (\f -> f{optVerbosity=Quiet}))
mainGFI :: Options -> [FilePath] -> IO ()
mainGFI opts files = do
P.putStrLn welcome
P.putStrLn "This shell uses the C run-time system. See help for available commands."
shell opts files
shell opts files = loop opts =<< runSIO (importInEnv emptyGFEnv opts files)
@@ -383,27 +382,6 @@ tryGetLine = do
Left (e :: SomeException) -> return "q"
Right l -> return l
welcome = unlines [
" ",
" * * * ",
" * * ",
" * * ",
" * ",
" * ",
" * * * * * * * ",
" * * * ",
" * * * * * * ",
" * * * ",
" * * * ",
" ",
"This is GF version "++showVersion version++". ",
buildInfo,
"License: see help -license. ",
--"Bug reports: http://code.google.com/p/grammatical-framework/issues/list",
"",
"This shell uses the C run-time system. See help for available commands."
]
prompt env = abs ++ "> "
where
abs = maybe "" C.abstractName (multigrammar (commandenv env))