diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-12-22 22:44:31 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-12-22 22:48:37 +0100 |
commit | 66f9bc2f4ce9dfb7f90369fc23c3093c2e7835bb (patch) | |
tree | 620c67f6d6ba494aff66faacdbc9c86a89271aeb /use2dot/graphviz.scm | |
parent | Add script to find unused imports. (diff) | |
download | calp-66f9bc2f4ce9dfb7f90369fc23c3093c2e7835bb.tar.gz calp-66f9bc2f4ce9dfb7f90369fc23c3093c2e7835bb.tar.xz |
Complete rewrite of use2dot
Old version tried to leverage guile's built in use2dot, and then
modified it to fit my needs. This new version implements its own
use2dot, using the same underlying mechanism as guile's built in,
giving us FAR greater flexability.
Diffstat (limited to '')
-rw-r--r-- | use2dot/graphviz.scm | 84 |
1 files changed, 84 insertions, 0 deletions
diff --git a/use2dot/graphviz.scm b/use2dot/graphviz.scm new file mode 100644 index 00000000..0c75f3ff --- /dev/null +++ b/use2dot/graphviz.scm @@ -0,0 +1,84 @@ +;;; Copyright © 2016 Roel Janssen <roel@gnu.org> +;;; +;;; This program is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; This program is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with this program. If not, see <http://www.gnu.org/licenses/>. + +;;; https://github.com/roelj/graphviz-guile/blob/master/graphviz.scm + +(define-module (graphviz) + #:export (;; New graphs + graph + digraph + strictgraph + strictdigraph + readstring + read + + ;; New nodes/edges + node + edge + + ;; Setting/getting attribute values + setv + getv + + ;; Finding and obtaining names + nameof + findsubg + findnode + findedge + findattr + + ;; Graph navigators + headof + tailof + graphof + rootof + + ;; Obtain handles of proto node/edge for setting attribute values + protonode + protoedge + + ;; Iterators + ok + firstsubg + nextsubg + firstsupg + nextsupg + firstedge + nextedge + firstout + nextout + firsthead + nexthead + firstin + nextin + firstnode + nextnode + firstattr + nextattr + + ;; Remove graph objects + rm + + ;; Layout + layout + render + renderresult + renderchannel + renderdata + write)) + +;; (load-extension "libgv_guile.so" "SWIG_init") + +(load-extension "/usr/lib/graphviz/guile/libgv_guile.so" "SWIG_init") |