From cfea23932829f068bfbb3ef641aae082db0bb64e Mon Sep 17 00:00:00 2001
From: ellson <devnull@localhost>
Date: Tue, 14 Oct 2008 10:35:25 +0000
Subject: [PATCH] One tcl script translated - to C.  Now provided by "dot -P"

---
 lib/gvc/plugins.tcl | 108 --------------------------------------------
 1 file changed, 108 deletions(-)
 delete mode 100755 lib/gvc/plugins.tcl

diff --git a/lib/gvc/plugins.tcl b/lib/gvc/plugins.tcl
deleted file mode 100755
index 7ac73600d..000000000
--- a/lib/gvc/plugins.tcl
+++ /dev/null
@@ -1,108 +0,0 @@
-#!/usr/bin/tclsh
-
-set fn /usr/lib64/graphviz/config5
-#set fn $env(PREFIX)/lib/graphviz/config5
-set f [open $fn r]
-set d [read $f [file size $fn]]
-close $f
-
-regsub -all -line {^#.*$} $d {} d
-
-proc mergealias {format} {
-    switch $format {
-	jpg - jpeg - jpe {return jpg/jpe/jpeg}
-	ps - eps {return ps/eps}
-	default {return $format}
-    }
-}
-
-foreach {lib name contents} $d {
-    set LIB($name) {}
-    foreach {type plugins} $contents {
-	foreach {plugin quality} $plugins {
-	    switch $type {
-		render {
-		    lappend LIB_RENDER($name) $plugin
-		}
-		loadimage {
-		    foreach {iformat irender} [split $plugin :] {break}
-		    set iformat [mergealias $iformat]
-		    lappend IFORMAT($iformat) {}
-		    lappend INAMEFORMAT([list $name $iformat]) $irender
-		    lappend LIB_IFORMAT($name) $iformat
-		}
-		device {
-		    foreach {oformat orender} [split $plugin :] {break}
-		    set oformat [mergealias $oformat]
-		    lappend OFORMAT($oformat) {}
-		    lappend ONAMEFORMAT([list $name $oformat]) $orender
-		    lappend LIB_OFORMAT($name) $oformat
-		}
-	    }
-	}
-    }
-}
-
-#set f [open plugins.gv w]
-set f stdout
-puts $f "digraph G {"
-puts $f "\trankdir=LR ranksep=2"
-puts $f "\tsubgraph { rank=same"
-foreach {iformat} [lsort [array names IFORMAT]] {
-    puts "\t\t\"i-$iformat\" \[label=\"$iformat\"\]"
-}
-puts $f "\t}"
-puts $f "\tsubgraph { rank=same"
-foreach {oformat} [lsort [array names OFORMAT]] {
-    puts "\t\t\"o-$oformat\" \[label=\"$oformat\"\]"
-}
-puts $f "\t}"
-foreach {name} [array names LIB] {
-    puts $f "\tsubgraph cluster_$name { label=\"$name\" penwidth=2"
-    if {[info exists LIB_IFORMAT($name)]} {
-        puts $f "\t\tsubgraph { rank=same"
-        foreach {iformat} [lsort -unique $LIB_IFORMAT($name)] {
-            puts $f "\t\t\t\"i-$name-$iformat\" \[label=\"$iformat\"\]"
-        }
-        puts $f "\t\t}"
-    }
-    if {[info exists LIB_RENDER($name)]} {
-        puts $f "\t\tsubgraph { rank=same"
-        foreach {render} [lsort $LIB_RENDER($name)] {
-            puts $f "\t\t\t\"r-$render\" \[label=\"$render\"\]"
-        }
-        puts $f "\t\t}"
-    }
-    if {[info exists LIB_OFORMAT($name)]} {
-        puts $f "\t\tsubgraph { rank=same"
-        foreach {oformat} [lsort -unique $LIB_OFORMAT($name)] {
-            puts $f "\t\t\t\"o-$name-$oformat\" \[label=\"$oformat\"\]"
-        }
-        puts $f "\t\t}"
-    }
-    puts $f "\t}"
-}
-foreach {name_iformat} [lsort [array names INAMEFORMAT]] {
-    foreach {name iformat} $name_iformat {break}
-    if {[string equal $iformat ps/eps]} {set color red} {set color black}
-    puts $f "\t\"i-$iformat\" -> \"i-$name-$iformat\" \[color=$color\]"
-    foreach {irender} [lsort -unique $INAMEFORMAT($name_iformat)] {
-	puts $f "\t\"i-$name-$iformat\" -> \"r-$irender\" \[color=$color\]"
-        if {! [string equal $color black]} {
-	    set RENDERCOLOR($irender) $color
-        }
-    }
-}
-foreach {name_oformat} [lsort [array names ONAMEFORMAT]] {
-    foreach {name oformat} $name_oformat {break}
-    foreach {orender} [lsort -unique $ONAMEFORMAT($name_oformat)] {
-	if {[info exists RENDERCOLOR($orender)]} {
-	    set color $RENDERCOLOR($orender)
-        } {
-	    set color black
-        }
-	puts $f "\t\"r-$orender\" -> \"o-$name-$oformat\" -> \"o-$oformat\" \[color=$color\]"
-    }
-}
-puts $f "}"
-#close $f
-- 
2.40.0