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." "flag -format."
], ],
exec = \opts es -> do 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 if isFlag "view" opts || isFlag "format" opts then do
let file s = "_grph." ++ s let file s = "_grph." ++ s
let view = optViewGraph opts let view = optViewGraph opts
@@ -169,7 +170,8 @@ allCommands env@(pgf, mos) = Map.fromList [
], ],
flags = [ flags = [
("format","format of the visualization file (default \"png\")"), ("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 { ("ga", emptyCommandInfo {