mirror of
https://github.com/wader/fq.git
synced 2024-12-27 15:42:07 +03:00
43 lines
1.2 KiB
Plaintext
Executable File
43 lines
1.2 KiB
Plaintext
Executable File
#!/usr/bin/env fq -rnf
|
|
|
|
def color:
|
|
md5 | [.[range(3)]] | map(band(.; 0x7f)+60 | radix16 | "0"[length:]+.) | join("");
|
|
|
|
def _formats_dot:
|
|
def _record($title; $fields):
|
|
[ "<"
|
|
, "<table bgcolor=\"paleturquoise\" border=\"0\" cellspacing=\"0\">"
|
|
, "<tr><td port=\"\($title)\">\($title)</td></tr>"
|
|
, [$fields | flatten | map("<tr><td align=\"left\" bgcolor=\"lightgrey\" port=\"\(.)\">\(.)</td></tr>")]
|
|
, "</table>"
|
|
, ">"
|
|
] | flatten | join("");
|
|
( "# ... | dot -Tsvg -o formats.svg"
|
|
, "digraph formats {"
|
|
, " rankdir=TB"
|
|
, " node [penwidth=2 shape=\"none\" style=\"\"]"
|
|
, " edge [penwidth=2]"
|
|
, ( .[]
|
|
| . as $f
|
|
| .dependencies
|
|
| flatten?
|
|
| .[]
|
|
| " \"\($f.name)\":\(.):e -> \(.):n [color=\"#\($f.name | color)\"]"
|
|
)
|
|
, ( .[]
|
|
| .name as $name
|
|
| .groups[]?
|
|
| " \(.) -> \"\($name)\":\($name):n [color=\"#\(. | color)\"]"
|
|
)
|
|
, ( to_entries[]
|
|
| " \(.key) [color=\"paleturquoise\", label=\(_record(.key; (.value.dependencies // [])))]"
|
|
)
|
|
, ( [.[].groups[]?]
|
|
| unique[]
|
|
| " \(.) [shape=\"record\",style=\"rounded,filled\",color=\"palegreen\"]"
|
|
)
|
|
, "}"
|
|
);
|
|
|
|
formats | _formats_dot
|