From: ellson <devnull@localhost>
Date: Sat, 12 Jan 2008 04:40:39 +0000 (+0000)
Subject: -renaming demo scripts so that they consistently use .<lang> for their extent
X-Git-Tag: LAST_LIBGRAPH~32^2~4868
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=65a61030eb50eb1c6a2242e70228f1318a8fe82a;p=graphviz

-renaming demo scripts so that they consistently use .<lang> for their extent
-packaging demo scripts in the appropriate graphviz-<lang> rpm
-fix up php install directories
---

diff --git a/tclpkg/tcldot/demo/doted.tcl.README b/tclpkg/tcldot/demo/doted.tcl.README
new file mode 100644
index 000000000..ea99c043a
--- /dev/null
+++ b/tclpkg/tcldot/demo/doted.tcl.README
@@ -0,0 +1,15 @@
+doted.tcl - Graph Editor based on dot
+
+Author: John Ellson <ellson@graphviz.org>
+
+Package requires: wish, tcldot, tkspline
+
+A graph editor with batch layout.  This script is designed to exercise
+the graph layout package: tcldot
+
+The button in the lower-right corner triggers a relayout of the graph.
+
+To Do:
+	- complete Help feature
+	- add zooming
+	- make it easier to edit attributes
diff --git a/tclpkg/tcldot/demo/gcat.tcl b/tclpkg/tcldot/demo/gcat.tcl
new file mode 100755
index 000000000..e9b43e3c7
--- /dev/null
+++ b/tclpkg/tcldot/demo/gcat.tcl
@@ -0,0 +1,47 @@
+#!/bin/sh
+# next line is a comment in tcl \
+exec tclsh "$0" ${1+"$@"}
+
+package require Tcldot
+
+#  gcat f1 [f2 ... ]
+#
+# merge a number of digraphs into one and output to stdout
+#
+# John Ellson  <ellson@graphviz.org>
+# 
+
+# merge graph $g2 into $g
+proc merge {g g2} {
+	foreach i [$g2 listnodes] {
+		set n [$g addnode [$i showname]]
+		$n setattributes [$i queryattributevalues [$i listattributes]]
+	}
+	foreach i [$g2 listedges] {
+		foreach {t h} [$i listnodes] {break}
+		set e [$g addedge [$t showname] [$h showname]]
+		$e setattributes [$i queryattributevalues [$i listattributes]]
+	}
+}
+
+set g [dotnew digraph]
+if {$argc} {
+	foreach file $argv {
+		set f [open $file r]
+		if {[catch {dotread $f} g2]} {
+			puts stderr $g2
+			exit
+		}
+		merge $g $g2
+		close $f
+	}
+} {
+	while {![catch {dotread stdin} g2]} {
+		merge $g $g2
+	}
+	if {![eof stdin]} {
+		puts stderr $g2
+		exit
+	}
+}
+$g write stdout CANON
diff --git a/tclpkg/tcldot/demo/gcat.tcl.README b/tclpkg/tcldot/demo/gcat.tcl.README
new file mode 100644
index 000000000..55eb7c4ba
--- /dev/null
+++ b/tclpkg/tcldot/demo/gcat.tcl.README
@@ -0,0 +1,9 @@
+gcat.tcl - simple graph filter using tcldot
+
+Author: John Ellson <ellson@graphviz.org>
+
+Package requires: tclsh, tcldot
+
+Usage:  gcat.tcl f1 [f2 ... ]
+
+merge a number of digraphs into one and output to stdout