Commit 5d813394 authored by Camil Staps's avatar Camil Staps 🚀

Minor updates

parent 55e5bdcb
......@@ -4,8 +4,8 @@ module clean_dependencies
* Plot dependencies between Clean libraries as a Dot graph. This uses
* libraries from Cloogle, https://gitlab.science.ru.nl/cloogle/Cloogle. This
* 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://files.camilstaps.nl/cloogle-dumps.
* https://gitlab.science.ru.nl/cloogle/cloogle-org. It can also be downloaded
* from https://files.camilstaps.nl/cloogle-dumps.
*/
import _SystemStrictLists
......@@ -28,26 +28,26 @@ from Database.Native import :: Entry{value}
import Cloogle.DB
STANDARD =
[ "Dynamics"
[ "ABCInterpreter"
, "ArgEnv"
, "Directory"
, "Dynamics"
, "Gast"
, "GraphCopy"
, "iTasks"
, "ObjectIO"
, "Platform"
, "Sapl"
, "StdEnv"
, "StdLib"
, "TCPIP"
]
DEPRECATED =
[ "ArgEnv"
, "Directory"
, "Generics"
, "MersenneTwister"
, "ObjectIO"
, "StdLib"
[ "MersenneTwister"
, "Sapl"
]
IGNORE_MISCELLANEOUS :== True
IGNORE_MISCELLANEOUS :== False
Start w
# (io,w) = stdio w
......@@ -100,15 +100,16 @@ where
<<< '"' <<< d.from_lib <<< "\"->\"" <<< d.to_lib <<< '"'
<<< "["
<<< "penwidth=" <<< (1 + toInt (ln (toReal (length d.in_modules)))) <<< " "
<<< "label=\"" <<< label <<< "\" "
<<< "label=<" <<< label <<< "> "
<<< "tooltip=\"" <<< tooltip <<< "\" "
<<< "color=" <<< color <<< " fontcolor=" <<< color
<<< "]\n"
where
label = length d.in_modules <+ ": " +++
concat (intersperse ", " (take maxn d.in_modules)) +++
if (length d.in_modules > maxn) ", ..." ""
where maxn = 1
concat (intersperse ",<br/>" (take MAX_N_MODULES d.in_modules)) +++
if (length d.in_modules > MAX_N_MODULES) ", ..." ""
where
MAX_N_MODULES = 4
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