diff options
author | N.N. <matju@users.sourceforge.net> | 2010-01-05 17:50:51 +0000 |
---|---|---|
committer | N.N. <matju@users.sourceforge.net> | 2010-01-05 17:50:51 +0000 |
commit | 39ba8a640bd178fd732d945760df7eef3e2c1e1a (patch) | |
tree | b59fa5bc00fcbb6389ea3ebf2c7ee8b9ced1daa8 /externals/gridflow/bin/check-help-version | |
parent | 8cabe6dabadf2422240ff4e9d5f5f8c95622b682 (diff) |
no gridflow snapshots in pure-data svn
svn path=/trunk/; revision=12888
Diffstat (limited to 'externals/gridflow/bin/check-help-version')
-rwxr-xr-x | externals/gridflow/bin/check-help-version | 49 |
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] -} |