projects
/
cl-graph.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fixed a bug in graph->dot: edge-labeler argument was not being used properly
[cl-graph.git]
/
dev
/
graphviz
/
graphviz-support.lisp
diff --git
a/dev/graphviz/graphviz-support.lisp
b/dev/graphviz/graphviz-support.lisp
index
63cd048
..
a974d64
100644
(file)
--- a/
dev/graphviz/graphviz-support.lisp
+++ b/
dev/graphviz/graphviz-support.lisp
@@
-4,10
+4,6
@@
$Id: graphviz-support.lisp,v 1.7 2005/06/21 20:51:51 moody Exp $
$Id: graphviz-support.lisp,v 1.7 2005/06/21 20:51:51 moody Exp $
-Copyright 1992 - 2005 Experimental Knowledge Systems Lab,
-University of Massachusetts Amherst MA, 01003-4610
-Professor Paul Cohen, Director
-
Author: Gary King, Levente Mészáros, Attila Lendvai
DISCUSSION
Author: Gary King, Levente Mészáros, Attila Lendvai
DISCUSSION
@@
-15,7
+11,7
@@
DISCUSSION
This file contains the stuff that does not depend on cl-graphviz.
|#
This file contains the stuff that does not depend on cl-graphviz.
|#
-(in-package metabang.graph)
+(in-package #:metabang.graph)
;;; ---------------------------------------------------------------------------
;
;;; ---------------------------------------------------------------------------
;
@@
-65,7
+61,7
@@
This file contains the stuff that does not depend on cl-graphviz.
(princ " [" stream)
(when (and directed? directed-edge-tag)
(princ directed-edge-tag stream))
(princ " [" stream)
(when (and directed? directed-edge-tag)
(princ directed-edge-tag stream))
- (when edge-key
+ (when edge-labeler
(princ "label=\"" stream)
(funcall edge-labeler e stream)
(princ "\"," stream))
(princ "label=\"" stream)
(funcall edge-labeler e stream)
(princ "\"," stream))
@@
-87,9
+83,11
@@
This file contains the stuff that does not depend on cl-graphviz.
(iterate-vertexes
g
(lambda (v)
(iterate-vertexes
g
(lambda (v)
+ ;(spy v)
(iterate-edges
v
(lambda (e)
(iterate-edges
v
(lambda (e)
+ ;(spy e (undirected-edge-p e) (item-at-1 edges e))
(when (and (undirected-edge-p e)
(not (item-at-1 edges e)))
(setf (item-at-1 edges e) t)
(when (and (undirected-edge-p e)
(not (item-at-1 edges e)))
(setf (item-at-1 edges e) t)