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

Added module file (hacky) URLs to nodes.

Browse Source
This commit is contained in:
bringert
2004-11-26 14:53:44 +00:00
parent 198c84c77f
commit fcbe58ef07
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/GF/Visualization/VisualizeGrammar.hs
View File

@@ -62,7 +62,7 @@ prNode n = concat (map (++";\n") stmts)
GrAbstract -> "solid" GrAbstract -> "solid"
GrConcrete -> "dashed" GrConcrete -> "dashed"
GrResource -> "dotted" GrResource -> "dotted"
attrs = [("style",style)] attrs = [("style",style),("URL", l++".gf")] -- FIXME: might be in a different directory
prExtend :: String -> String -> String prExtend :: String -> String -> String
@@ -78,4 +78,4 @@ prEdge :: String -> String -> [(String,String)] -> String
prEdge f t as = f ++ " -> " ++ t ++ " [" ++ prAttributes as ++ "]" prEdge f t as = f ++ " -> " ++ t ++ " [" ++ prAttributes as ++ "]"
prAttributes :: [(String,String)] -> String prAttributes :: [(String,String)] -> String
prAttributes = concat . intersperse ", " . map (\ (n,v) -> n ++ " = " ++ v) prAttributes = concat . intersperse ", " . map (\ (n,v) -> n ++ " = " ++ show v)