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

fix the -view option for vt,vp,vd,aw to work on Windows

Browse Source
This commit is contained in:
krasimir
2010-04-27 20:01:54 +00:00
parent 9c73777a4c
commit c87bbcb8e4
1 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -153,11 +153,11 @@ allCommands env@(pgf, mos) = Map.fromList [
let grph = if null es then [] else graphvizAlignment pgf (head es) let grph = if null es then [] else graphvizAlignment pgf (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
let format = optViewFormat opts let format = optViewFormat opts
writeFile (file "dot") grph writeFile (file "dot") grph
system $ "dot -T" ++ format ++ " " ++ file "dot" ++ " > " ++ file format ++ system $ "dot -T" ++ format ++ " " ++ file "dot" ++ " > " ++ file format
" ; " ++ view ++ file format system $ view ++ " " ++ file format
return void return void
else return $ fromString grph, else return $ fromString grph,
examples = [ examples = [
@@ -735,11 +735,11 @@ allCommands env@(pgf, mos) = Map.fromList [
let grphs = unlines $ map (graphvizDependencyTree outp debug mlab Nothing pgf lang) es let grphs = unlines $ map (graphvizDependencyTree outp debug mlab Nothing pgf lang) es
if isFlag "view" opts || isFlag "format" opts then do if isFlag "view" opts || isFlag "format" opts then do
let file s = "_grphd." ++ s let file s = "_grphd." ++ s
let view = optViewGraph opts ++ " " let view = optViewGraph opts
let format = optViewFormat opts let format = optViewFormat opts
writeFile (file "dot") grphs writeFile (file "dot") grphs
system $ "dot -T" ++ format ++ " " ++ file "dot" ++ " > " ++ file format ++ system $ "dot -T" ++ format ++ " " ++ file "dot" ++ " > " ++ file format
" ; " ++ view ++ file format system $ view ++ " " ++ file format
return void return void
else return $ fromString grphs, else return $ fromString grphs,
examples = [ examples = [
@@ -776,11 +776,11 @@ allCommands env@(pgf, mos) = Map.fromList [
let grph = if null es then [] else graphvizParseTree pgf lang (head es) let grph = if null es then [] else graphvizParseTree pgf lang (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
let format = optViewFormat opts let format = optViewFormat opts
writeFile (file "dot") grph writeFile (file "dot") grph
system $ "dot -T" ++ format ++ " " ++ file "dot" ++ " > " ++ file format ++ system $ "dot -T" ++ format ++ " " ++ file "dot" ++ " > " ++ file format
" ; " ++ view ++ file format system $ view ++ " " ++ file format
return void return void
else return $ fromString grph, else return $ fromString grph,
examples = [ examples = [
@@ -816,11 +816,11 @@ allCommands env@(pgf, mos) = Map.fromList [
let grph = unlines (map (graphvizAbstractTree pgf (funs,cats)) es) -- True=digraph let grph = unlines (map (graphvizAbstractTree pgf (funs,cats)) es) -- True=digraph
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
let format = optViewFormat opts let format = optViewFormat opts
writeFile (file "dot") grph writeFile (file "dot") grph
system $ "dot -T" ++ format ++ " " ++ file "dot" ++ " > " ++ file format ++ system $ "dot -T" ++ format ++ " " ++ file "dot" ++ " > " ++ file format
" ; " ++ view ++ file format system $ view ++ " " ++ file format
return void return void
else return $ fromString grph, else return $ fromString grph,
examples = [ examples = [