From bbcbee79d885904fbb1bcf20f77704562f624ef0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 31 Jan 2022 20:03:51 +0100
Subject: Move use2dot into scripts subdir.

---
 scripts/use2dot/graphviz.scm | 84 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 84 insertions(+)
 create mode 100644 scripts/use2dot/graphviz.scm

(limited to 'scripts/use2dot/graphviz.scm')

diff --git a/scripts/use2dot/graphviz.scm b/scripts/use2dot/graphviz.scm
new file mode 100644
index 00000000..0c75f3ff
--- /dev/null
+++ b/scripts/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")
-- 
cgit v1.2.3