aboutsummaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@lysator.liu.se>2022-09-23 20:16:20 +0200
committerHugo Hörnquist <hugo@lysator.liu.se>2022-09-23 20:16:20 +0200
commitf313204be63f99fca42979356bb844659381a475 (patch)
tree4d609ea61e4c72f4fd34e8e69dc7e28f953b8086 /scripts
parentAdd procedure module-file-mappings. (diff)
downloadcalp-f313204be63f99fca42979356bb844659381a475.tar.gz
calp-f313204be63f99fca42979356bb844659381a475.tar.xz
Move graphviz to main tree.
Diffstat (limited to 'scripts')
-rw-r--r--scripts/use2dot/graphviz.scm84
1 files changed, 0 insertions, 84 deletions
diff --git a/scripts/use2dot/graphviz.scm b/scripts/use2dot/graphviz.scm
deleted file mode 100644
index 9355d723..00000000
--- a/scripts/use2dot/graphviz.scm
+++ /dev/null
@@ -1,84 +0,0 @@
-;;; 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")