msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

lang flag in align_words sets the list of languages

Browse Source
This commit is contained in:
aarne
2010-11-22 22:41:29 +00:00
parent 0b80b3ef0a
commit 153568c17f
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/compiler/GF/Command/Commands.hs
View File

@@ -151,7 +151,8 @@ allCommands env@(pgf, mos) = Map.fromList [
"flag -format."
],
exec = \opts es -> do
let grph = if null es then [] else graphvizAlignment pgf (languages pgf) (head es)
let langs = optLangs opts
let grph = if null es then [] else graphvizAlignment pgf langs (head es)
if isFlag "view" opts || isFlag "format" opts then do
let file s = "_grph." ++ s
let view = optViewGraph opts
@@ -169,7 +170,8 @@ allCommands env@(pgf, mos) = Map.fromList [
],
flags = [
("format","format of the visualization file (default \"png\")"),
("view","program to open the resulting file (default \"open\")")
("lang", "alignments for this list of languages (default: all)"),
("view", "program to open the resulting file (default \"open\")")
]
}),
("ga", emptyCommandInfo {