GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki 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"
GrConcrete -> "dashed"
GrResource -> "dotted"
attrs = [("style",style)]
attrs = [("style",style),("URL", l++".gf")] -- FIXME: might be in a different directory
prExtend :: String -> String -> String
@@ -78,4 +78,4 @@ prEdge :: String -> String -> [(String,String)] -> String
prEdge f t as = f ++ " -> " ++ t ++ " [" ++ prAttributes as ++ "]"
prAttributes :: [(String,String)] -> String
prAttributes = concat . intersperse ", " . map (\ (n,v) -> n ++ " = " ++ v)
prAttributes = concat . intersperse ", " . map (\ (n,v) -> n ++ " = " ++ show v)