From f7b2a83059697f1b36a6369e489ac276e7ff875d Mon Sep 17 00:00:00 2001 From: aarne Date: Fri, 27 Jun 2008 09:09:29 +0000 Subject: version-related changes in Makefile and help --- src/GF/Command/Commands.hs | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) (limited to 'src/GF/Command/Commands.hs') diff --git a/src/GF/Command/Commands.hs b/src/GF/Command/Commands.hs index e161c623f..29f0bd61a 100644 --- a/src/GF/Command/Commands.hs +++ b/src/GF/Command/Commands.hs @@ -23,6 +23,7 @@ import GF.Infra.UseIO import GF.Data.ErrM ---- import PGF.Expr (readTree) import GF.Command.Abstract +import GF.Command.Messages import GF.Text.Lexing import GF.Text.Transliterations @@ -193,10 +194,16 @@ allCommands enc pgf = Map.fromList [ "Without argument, shows the synopsis of all commands." ], options = [ - ("full","give full information of the commands") + ("changes","give a summary of changes from GF 2.9"), + ("coding","give advice on character encoding"), + ("full","give full information of the commands"), + ("license","show copyright and license information") ], exec = \opts ts -> return ([], case ts of - [t] -> let co = showTree t in + _ | isOpt "changes" opts -> changesMsg + _ | isOpt "coding" opts -> codingMsg + _ | isOpt "license" opts -> licenseMsg + [t] -> let co = getCommandOp (showTree t) in case lookCommand co (allCommands enc pgf) of ---- new map ??!! Just info -> commandHelp True (co,info) _ -> "command not found" @@ -612,3 +619,5 @@ infinity = 256 lookFlag :: PGF -> String -> String -> Maybe String lookFlag pgf lang flag = lookConcrFlag pgf (mkCId lang) (mkCId flag) + + -- cgit v1.2.3