From f313204be63f99fca42979356bb844659381a475 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 23 Sep 2022 20:16:20 +0200 Subject: Move graphviz to main tree. --- module/graphviz.scm | 84 ++++++++++++++++++++++++++++++++++++++++++++ scripts/use2dot/graphviz.scm | 84 -------------------------------------------- 2 files changed, 84 insertions(+), 84 deletions(-) create mode 100644 module/graphviz.scm delete mode 100644 scripts/use2dot/graphviz.scm diff --git a/module/graphviz.scm b/module/graphviz.scm new file mode 100644 index 00000000..9355d723 --- /dev/null +++ b/module/graphviz.scm @@ -0,0 +1,84 @@ +;;; Copyright © 2016 Roel Janssen +;;; +;;; 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 . + +;;; 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") 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 -;;; -;;; 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 . - -;;; 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