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

Minor clean-up and comment in module dep visualization.

Browse Source
This commit is contained in:
bringert
2004-12-10 14:56:52 +00:00
parent a9e316a1eb
commit a7d8c3cedd
1 changed files with 15 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -37,7 +37,7 @@ canon2graph :: CanonGrammar -> [Node]
canon2graph gr = [ toNode i m | (i,M.ModMod m) <- M.modules gr ] canon2graph gr = [ toNode i m | (i,M.ModMod m) <- M.modules gr ]
source2graph :: SourceGrammar -> [Node] source2graph :: SourceGrammar -> [Node]
source2graph gr = [ toNode i m | (i,M.ModMod m) <- M.modules gr ] -- FIXME: handle ModWith source2graph gr = [ toNode i m | (i,M.ModMod m) <- M.modules gr ] -- FIXME: handle ModWith?
toNode :: Ident -> M.Module Ident f i -> Node toNode :: Ident -> M.Module Ident f i -> Node
toNode i m = Node { toNode i m = Node {
@@ -51,7 +51,10 @@ toNode i m = Node {
} }
where where
l = prIdent i l = prIdent i
(t,is) = case M.mtype m of (t,is) = fromModType (M.mtype m)
fromModType :: M.ModuleType Ident -> (GrType, Maybe String)
fromModType t = case t of
M.MTAbstract -> (GrAbstract, Nothing) M.MTAbstract -> (GrAbstract, Nothing)
M.MTTransfer _ _ -> error "Can't visualize transfer modules yet" -- FIXME M.MTTransfer _ _ -> error "Can't visualize transfer modules yet" -- FIXME
M.MTConcrete i -> (GrConcrete, Just (prIdent i)) M.MTConcrete i -> (GrConcrete, Just (prIdent i))
@@ -61,6 +64,8 @@ toNode i m = Node {
M.MTReuse rt -> error "Can't visualize reuse modules yet" -- FIXME M.MTReuse rt -> error "Can't visualize reuse modules yet" -- FIXME
M.MTUnion _ _ -> error "Can't visualize union modules yet" -- FIXME M.MTUnion _ _ -> error "Can't visualize union modules yet" -- FIXME
-- FIXME: there is something odd about OQualif with 'with' modules,
-- both names seem to be the same.
openName :: M.OpenSpec Ident -> String openName :: M.OpenSpec Ident -> String
openName (M.OSimple q i) = prIdent i openName (M.OSimple q i) = prIdent i
openName (M.OQualif q i _) = prIdent i openName (M.OQualif q i _) = prIdent i