From 499ac428d32ada9979c2ff41bd23582245fb4715 Mon Sep 17 00:00:00 2001 From: aarne Date: Mon, 19 Oct 2009 15:53:30 +0000 Subject: labels read from config files for dependency trees, eg lib/src/dep.labels --- src/GF/Command/Commands.hs | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'src/GF') diff --git a/src/GF/Command/Commands.hs b/src/GF/Command/Commands.hs index 8284c5e2c..e297bb6b8 100644 --- a/src/GF/Command/Commands.hs +++ b/src/GF/Command/Commands.hs @@ -579,8 +579,14 @@ allCommands cod env@(pgf, mos) = Map.fromList [ "flag -format." ], exec = \opts es -> do + let debug = isOpt "v" opts + let file = valStrOpts "file" "" opts + mlab <- case file of + "" -> return Nothing + _ -> readFile file >>= return . Just . getDepLabels . lines let lang = optLang opts - let grph = if null es then [] else dependencyTree Nothing pgf lang (head es) + let grph = if null es then [] else + dependencyTree debug mlab Nothing pgf lang (head es) if isFlag "view" opts || isFlag "format" opts then do let file s = "_grph." ++ s let view = optViewGraph opts ++ " " @@ -595,8 +601,10 @@ allCommands cod env@(pgf, mos) = Map.fromList [ "gr | vt -view=\"open\" -- generate a tree and display alignment on a Mac" ], options = [ + ("v","show extra information") ], flags = [ + ("file","configuration file for labels per fun, format 'fun l1 ... label ... l2'"), ("format","format of the visualization file (default \"png\")"), ("view","program to open the resulting file (default \"open\")") ] -- cgit v1.2.3