25
1
mirror of https://github.com/processone/ejabberd.git synced 2024-11-30 16:36:29 +01:00

Better detection of ejabberd modules. Support down to Graphviz 2.8. Fix APP colours.

SVN Revision: 2708
This commit is contained in:
Badlop 2009-10-26 18:30:38 +00:00
parent 236d8fa254
commit 8746175f1d

View File

@ -124,7 +124,7 @@ gc(Filename) ->
MFAs = get_func_calls(), MFAs = get_func_calls(),
AppModules1 = os:cmd("ls -1 *.erl.html | tr \".\" \" \" | awk '{print $1}'"), AppModules1 = os:cmd("ls -1 ../doc/devdoc/*.html | tr \".\" \" \" | tr \"/\" \" \" | awk '{print $3}'"),
AppModules = [list_to_atom(Str) || Str <- string:tokens(AppModules1, [10])], AppModules = [list_to_atom(Str) || Str <- string:tokens(AppModules1, [10])],
ExternalTypes1 = [mfa_to_externaltype(MFA, ModuleName, AppModules, FunctionsParsed) || MFA <- MFAs], ExternalTypes1 = [mfa_to_externaltype(MFA, ModuleName, AppModules, FunctionsParsed) || MFA <- MFAs],
@ -391,9 +391,9 @@ textize(ModuleName, Exports, Privates, AppExternals, ExmppExternals, OTPExternal
%%" node [shape = ellipse, style = filled, color = slategray1, peripheries=3, fontsize=40];~n"++ %%" node [shape = ellipse, style = filled, color = slategray1, peripheries=3, fontsize=40];~n"++
" node [shape = box, color=darkgreen, fillcolor=Honeydew, style=filled, href=\"PRI~p.html#\\N\"];~s~n"++ " node [shape = box, color=darkgreen, fillcolor=Honeydew, style=filled, href=\"PRI~p.html#\\N\"];~s~n"++
" node [shape = box, color=darkgreen, fillcolor=PaleGreen, style=filled, href=\"EXP~p.html#\\N\"];~s~n"++ " node [shape = box, color=darkgreen, fillcolor=PaleGreen, style=filled, href=\"EXP~p.html#\\N\"];~s~n"++
" node [shape = box3d, color=DarkGoldenrod,fillcolor=Chartreuse, style=filled, href=\"APP\\N\"];~s~n"++ " node [shape = box, color=darkgreen, fillcolor=Aquamarine, style=filled, href=\"APP\\N\"];~s~n"++
" node [shape = box3d, color=darkblue, fillcolor=LightSkyBlue,style=filled, href=\"EXM\\N\"];~s~n"++ " node [shape = box, color=darkblue, fillcolor=LightSkyBlue,style=filled, href=\"EXM\\N\"];~s~n"++
" node [shape = box3d, color=darkred, fillcolor=PeachPuff, style=filled, href=\"OTP\\N\"];~s~n"++ " node [shape = box, color=darkred, fillcolor=PeachPuff, style=filled, href=\"OTP\\N\"];~s~n"++
" node [shape = box];~n"++ " node [shape = box];~n"++
"~s"++ "~s"++
"}~n", "}~n",