aboutsummaryrefslogtreecommitdiff
path: root/externals/gridflow/bin/check-help-version
diff options
context:
space:
mode:
authorN.N. <matju@users.sourceforge.net>2010-01-05 17:50:51 +0000
committerN.N. <matju@users.sourceforge.net>2010-01-05 17:50:51 +0000
commit39ba8a640bd178fd732d945760df7eef3e2c1e1a (patch)
treeb59fa5bc00fcbb6389ea3ebf2c7ee8b9ced1daa8 /externals/gridflow/bin/check-help-version
parent8cabe6dabadf2422240ff4e9d5f5f8c95622b682 (diff)
no gridflow snapshots in pure-data svn
svn path=/trunk/; revision=12888
Diffstat (limited to 'externals/gridflow/bin/check-help-version')
-rwxr-xr-xexternals/gridflow/bin/check-help-version49
1 files changed, 0 insertions, 49 deletions
diff --git a/externals/gridflow/bin/check-help-version b/externals/gridflow/bin/check-help-version
deleted file mode 100755
index cb067154..00000000
--- a/externals/gridflow/bin/check-help-version
+++ /dev/null
@@ -1,49 +0,0 @@
-#!/usr/bin/tclsh
-
-set argh0 [file normalize [file join [pwd] $argv0]]
-source [file dirname $argh0]/pd-tools.tcl
-
-set report {}
-
-proc find_version_strings {lines i} {
- global filename report
- lappend toplefts [list patate poil] ;# temporary dummy value so that subpatches are represented in the correct order
- set j $i
- set versions {}
- while {$i < [llength $lines]} {
- set list [split [lindex $lines $i] " "]
- switch -- [lindex $list 1] {
- text {
- set comment [join [lrange $list 4 end] " "]
- if {[regexp {^GridFlow (\d\.\d\.\d)} $comment v0 v1]} {
- lappend versions $v1
- }
- }
- connect {incr i; continue}
- restore {break}
- }
- # recurse into subpatches (disabled because not necessary; can treat the file as one flat patch anyway)
- ### if {[string compare [lindex $list 0] "#N"]==0} {set i [find_version_strings $lines [expr $i+1]]}
- incr i
- }
- lappend report [list $filename [lsort $versions]]
- return $i
-}
-
-foreach filename $argv {
- set lines [pd_read_file $filename]
- find_version_strings $lines 1
-}
-
-set env(PRINT_CLASS_LIST) yes
-set f [open "| pd -nogui -send {pd quit} 2&>1" r+]
-while {![eof $f]} {
- if {[regexp {^class_new (.*)} [gets $f] m0 m1]} {
- puts $m1
- }
-}
-
-foreach line [lsort -decreasing -index 1 $report] {
- foreach {filename versions} $line {}
- puts [format "%40s: %s" $filename $versions]
-}