diff options
author | N.N. <matju@users.sourceforge.net> | 2009-11-06 18:33:57 +0000 |
---|---|---|
committer | N.N. <matju@users.sourceforge.net> | 2009-11-06 18:33:57 +0000 |
commit | 5e6bb4f4786dd39158ffe02913590cc3dea21ebd (patch) | |
tree | 17f4c83372dc450503e3106db11c473c513ab7c0 /externals/gridflow/bin/check-help-version | |
parent | b4432042844d0a29f7b654245f9c17da950cd33e (diff) |
remove gridflow 0.9.5
svn path=/trunk/; revision=12727
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] -} |