mirror of
https://github.com/wader/fq.git
synced 2024-12-19 11:21:47 +03:00
43 lines
1.0 KiB
Plaintext
43 lines
1.0 KiB
Plaintext
|
#!/usr/bin/env fq -rnf
|
||
|
|
|
||
|
|
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 {"
|
||
|
|
, " concentrate=True"
|
||
|
|
, " rankdir=TB"
|
||
|
|
, " graph ["
|
||
|
|
, " ]"
|
||
|
|
, " node [shape=\"none\"style=\"\"]"
|
||
|
|
, " edge [arrowsize=\"0.7\"]"
|
||
|
|
, ( .[]
|
||
|
|
| . as $f
|
||
|
|
| .dependencies
|
||
|
|
| flatten?
|
||
|
|
| .[]
|
||
|
|
| " \"\($f.name)\":\(.) -> \(.)"
|
||
|
|
)
|
||
|
|
, ( .[]
|
||
|
|
| .name as $name
|
||
|
|
| .groups[]?
|
||
|
|
| " \(.) -> \"\($name)\":\($name)"
|
||
|
|
)
|
||
|
|
, ( to_entries[]
|
||
|
|
| " \(.key) [color=\"paleturquoise\", label=\(_record(.key; (.value.dependencies // [])))]"
|
||
|
|
)
|
||
|
|
, ( [.[].groups[]?]
|
||
|
|
| unique[]
|
||
|
|
| " \(.) [shape=\"record\",style=\"rounded,filled\",color=\"palegreen\"]"
|
||
|
|
)
|
||
|
|
, "}"
|
||
|
|
);
|
||
|
|
|
||
|
|
formats | _formats_dot
|