Verified Commit 5d813394 authored by Camil Staps's avatar Camil Staps 🙂

Minor updates

parent 55e5bdcb
...@@ -4,8 +4,8 @@ module clean_dependencies ...@@ -4,8 +4,8 @@ module clean_dependencies
* Plot dependencies between Clean libraries as a Dot graph. This uses * Plot dependencies between Clean libraries as a Dot graph. This uses
* libraries from Cloogle, https://gitlab.science.ru.nl/cloogle/Cloogle. This * libraries from Cloogle, https://gitlab.science.ru.nl/cloogle/Cloogle. This
* requires the file types.json which is generated by the builddb script of * requires the file types.json which is generated by the builddb script of
* https://gitlab.science.ru.nl/cloogle/Cloogle. It can also be downloaded from * https://gitlab.science.ru.nl/cloogle/cloogle-org. It can also be downloaded
* https://files.camilstaps.nl/cloogle-dumps. * from https://files.camilstaps.nl/cloogle-dumps.
*/ */
import _SystemStrictLists import _SystemStrictLists
...@@ -28,26 +28,26 @@ from Database.Native import :: Entry{value} ...@@ -28,26 +28,26 @@ from Database.Native import :: Entry{value}
import Cloogle.DB import Cloogle.DB
STANDARD = STANDARD =
[ "Dynamics" [ "ABCInterpreter"
, "ArgEnv"
, "Directory"
, "Dynamics"
, "Gast" , "Gast"
, "GraphCopy" , "GraphCopy"
, "iTasks" , "iTasks"
, "ObjectIO"
, "Platform" , "Platform"
, "Sapl"
, "StdEnv" , "StdEnv"
, "StdLib"
, "TCPIP" , "TCPIP"
] ]
DEPRECATED = DEPRECATED =
[ "ArgEnv" [ "MersenneTwister"
, "Directory" , "Sapl"
, "Generics"
, "MersenneTwister"
, "ObjectIO"
, "StdLib"
] ]
IGNORE_MISCELLANEOUS :== True IGNORE_MISCELLANEOUS :== False
Start w Start w
# (io,w) = stdio w # (io,w) = stdio w
...@@ -100,15 +100,16 @@ where ...@@ -100,15 +100,16 @@ where
<<< '"' <<< d.from_lib <<< "\"->\"" <<< d.to_lib <<< '"' <<< '"' <<< d.from_lib <<< "\"->\"" <<< d.to_lib <<< '"'
<<< "[" <<< "["
<<< "penwidth=" <<< (1 + toInt (ln (toReal (length d.in_modules)))) <<< " " <<< "penwidth=" <<< (1 + toInt (ln (toReal (length d.in_modules)))) <<< " "
<<< "label=\"" <<< label <<< "\" " <<< "label=<" <<< label <<< "> "
<<< "tooltip=\"" <<< tooltip <<< "\" " <<< "tooltip=\"" <<< tooltip <<< "\" "
<<< "color=" <<< color <<< " fontcolor=" <<< color <<< "color=" <<< color <<< " fontcolor=" <<< color
<<< "]\n" <<< "]\n"
where where
label = length d.in_modules <+ ": " +++ label = length d.in_modules <+ ": " +++
concat (intersperse ", " (take maxn d.in_modules)) +++ concat (intersperse ",<br/>" (take MAX_N_MODULES d.in_modules)) +++
if (length d.in_modules > maxn) ", ..." "" if (length d.in_modules > MAX_N_MODULES) ", ..." ""
where maxn = 1 where
MAX_N_MODULES = 4
tooltip = concat (intersperse ", " d.in_modules) tooltip = concat (intersperse ", " d.in_modules)
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment