@@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015, 2016, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016 Ricardo Wurmus <rekado@elephly.net>
+;;; Copyright © 2020 Simon Tournier <zimon.toutoune@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -324,6 +325,28 @@ nodeArray.push(nodes[\"~a\"]);~%"
emit-cypher-prologue emit-cypher-epilogue
emit-cypher-node emit-cypher-edge))
+
+;;;
+;;; Plain export
+;;;
+
+(define (emit-plain-prologue name port)
+ (format port ""))
+
+(define (emit-plain-epilogue port)
+ (format port ""))
+
+(define (emit-plain-node id label port)
+ (format port "~a~%" label))
+
+(define (emit-plain-edge id1 id2 port)
+ (format port ""))
+
+(define %plain-backend
+ (graph-backend "plain"
+ "Generate Plain queries."
+ emit-plain-prologue emit-plain-epilogue
+ emit-plain-node emit-plain-edge))
;;;
@@ -333,7 +356,8 @@ nodeArray.push(nodes[\"~a\"]);~%"
(define %graph-backends
(list %graphviz-backend
%d3js-backend
- %cypher-backend))
+ %cypher-backend
+ %plain-backend))
(define* (export-graph sinks port
#:key