Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
P
plot-clean-dependencies
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Cloogle
Archived projects
plot-clean-dependencies
Commits
5d813394
Verified
Commit
5d813394
authored
May 20, 2019
by
Camil Staps
🚀
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Minor updates
parent
55e5bdcb
Changes
1
Show whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
16 additions
and
15 deletions
+16
-15
clean_dependencies.icl
clean_dependencies.icl
+16
-15
No files found.
clean_dependencies.icl
View file @
5d813394
...
...
@@ -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
:==
Tru
e
IGNORE_MISCELLANEOUS
:==
Fals
e
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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment