no gridflow snapshots in pure-data svn

svn path=/trunk/; revision=12888

9 files changed, 0 insertions, 268 deletions

diff --git a/externals/gridflow/bin/backtrace b/externals/gridflow/bin/backtrace
deleted file mode 100755
index ac1358af..00000000
--- a/externals/gridflow/bin/backtrace
+++ /dev/null
@@ -1,18 +0,0 @@
-#!/usr/bin/env ruby
-if ARGV.length != 1
-  puts "usage: core.rb <corefile>"
-  exit 1
-end
-qfile=ARGV[0].gsub /'/, "\\\\'"
-x=`gdb --batch -c '#{qfile}'`.split"\n"
-m=/`([^']+)/.match x[0]
-f=File.open("/tmp/backtrace_#{$$}.gdb","w")
-f.puts"bt"
-f.puts"quit"
-f.close
-cmd="gdb #{m[1]} #{qfile} --command=/tmp/backtrace_#{$$}.gdb"
-x=`#{cmd}`.split("\n")
-i=nil
-x.each_with_index {|line,i| break if /^#0/ =~ line }
-x[0..i]=[]
-puts x
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]
-}
diff --git a/externals/gridflow/bin/hpgl_move b/externals/gridflow/bin/hpgl_move
deleted file mode 100755
index f4bf0534..00000000
--- a/externals/gridflow/bin/hpgl_move
+++ /dev/null
@@ -1,19 +0,0 @@
-#!/usr/bin/env ruby
-# Copyright (c) 2009 by Mathieu Bouchard
-
-x = Float ARGV[0]
-y = Float ARGV[1]
-
-puts STDIN.read.split(/\s*;\s*/).map {|m|
-  h = m.slice!(0,2)
-  d = m.split(",")
-  case h
-  when "PA","PD","PU"
-    (0...d.length).each {|i|
-      off = if i%2==0 then x else y end
-      v = Float(d[i])+off
-      d[i] = if v==v.to_i then v.to_i else v.to_f end
-    }
-  end
-  h+d.join(",")
-}.join(";")
diff --git a/externals/gridflow/bin/make-compose-makefile b/externals/gridflow/bin/make-compose-makefile
deleted file mode 100755
index f7e5abca..00000000
--- a/externals/gridflow/bin/make-compose-makefile
+++ /dev/null
@@ -1,30 +0,0 @@
-#!/usr/bin/env ruby
-
-f = File.read("../compose-8859-1.pdd").split(/\s*;\s*/)
-g = File.open("Makefile","w")
-g.puts "default:: all"
-g.puts ""
-list = []
-
-[94,96,126,168,176,180,184].each {|a|
-  g.puts "#{a}u.hpgl: #{a}.hpgl Makefile"
-  dy = (if a==184 then 0 else 100 end)
-  g.puts "\t../../bin/hpgl_move 0 #{dy} < #{a}.hpgl > #{a}u.hpgl"
-  list << "#{a}u.hpgl"
-}
-
-f.each {|char|
-  a,b,c = char.split(/\s+/).map {|x| Integer x }
-  [0,32].each {|o|
-    d = c.to_s + (if o==0 and c>47 then "u" else "" end)
-    g.puts "#{a+o}.hpgl: #{b+o}.hpgl #{d}.hpgl Makefile"
-    g.puts "\tcat #{b+o}.hpgl #{d}.hpgl > #{a+o}.hpgl"
-    g.puts ""
-    list << "#{a+o}.hpgl"
-  }
-}
-
-g.puts "all:: "+list.join(" ")
-g.puts ""
-g.puts "clean::"
-g.puts "\trm "+list.join(" ")
diff --git a/externals/gridflow/bin/pd-tools.tcl b/externals/gridflow/bin/pd-tools.tcl
deleted file mode 100644
index 2951b260..00000000
--- a/externals/gridflow/bin/pd-tools.tcl
+++ /dev/null
@@ -1,37 +0,0 @@
-# (this proc is taken from desiredata)
-# split at message boundaries.
-# \n is wiped, then that character is reused temporarily to mean a quoted semicolon.
-proc pd_mess_split {e} {
-	set r {}
-	regsub -all "\n" $e " " y
-	regsub -all {\\;} $y "\n" z
-	foreach mess [split $z ";"] {
-		regsub -all "\n" $mess "\\;" mess
-		set mess [string trimleft $mess]
-		if {$mess != ""} {lappend r $mess}
-	}
-	return $r
-}
-
-proc pd_read_file {filename} {
-  set f [open $filename]
-  set r [pd_mess_split [read $f]]
-  close $f
-  return $r
-}
-
-proc pd_pickle {l} {
-	set i 0
-	set t ""
-	set n [llength $l]
-	foreach e $l {
-		incr n -1
-		#regsub -all "," $e "\\," e
-		append t $e
-		incr i [string length $e]
-		if {$i>65} {set i 0; append t "\n"} elseif {$n>0} {incr i; append t " "}
-	}
-	append t ";"
-	return $t
-}
-
diff --git a/externals/gridflow/bin/pdnonegative b/externals/gridflow/bin/pdnonegative
deleted file mode 100755
index d707f568..00000000
--- a/externals/gridflow/bin/pdnonegative
+++ /dev/null
@@ -1,66 +0,0 @@
-#!/usr/bin/tclsh
-
-set argh0 [file normalize [file join [pwd] $argv0]]
-source [file dirname $argh0]/pd-tools.tcl
-
-set toplefts {}
-
-# for the recursion to work properly, restore should be checked before #N, and the check
-# for #N shouldn't do "continue", as well as other tricky index stuff.
-proc find_top_left {lines i} {
-  global filename toplefts
-  set toplefts_i [llength $toplefts]
-  lappend toplefts [list patate poil] ;# temporary dummy value so that subpatches are represented in the correct order
-  set j $i
-  set xmin +9999; set ymin +9999
-  set xmax -9999; set ymax -9999
-  while {$i < [llength $lines]} {
-    set list [split [lindex $lines $i] " "]
-    if {[string compare [lindex $list 1] "connect"]==0} {incr i; continue}
-    if {[string compare [lindex $list 1] "restore"]==0} {break}
-    if {[string compare [lindex $list 0] "#N"]==0} {set i [find_top_left $lines [expr $i+1]]}
-    set x [lindex $list 2]; if {$xmin > $x} {set xmin $x}; if {$xmax < $x} {set xmax $x}
-    set y [lindex $list 3]; if {$ymin > $y} {set ymin $y}; if {$ymax < $y} {set ymax $y}
-    incr i
-  }
-  puts [format "filename=%-32s patch at lines %4d thru %4d has xmin=%d ymin=%d xmax=%d ymax=%d" $filename $j $i $xmin $ymin $xmax $ymax]
-  lset toplefts $toplefts_i [list $xmin $ymin]
-  return $i
-}
-
-# somewhat copy-pasted from the above, sorry.
-proc move_objects {lines i} {
-  global toplefts fout
-  set xymin [lindex $toplefts 0]
-  set xmin [lindex $xymin 0]; if {$xmin > 0} {set xmin 0}
-  set ymin [lindex $xymin 1]; if {$ymin > 0} {set ymin 0}
-  set toplefts [lrange $toplefts 1 end]
-  while {$i < [llength $lines]} {
-    set list [split [lindex $lines $i] " "]
-    if {[string compare [lindex $list 1] "connect"]==0} {puts $fout [pd_pickle $list]; incr i; continue}
-    if {[string compare [lindex $list 1] "restore"]==0} {break}
-    if {[string compare [lindex $list 0] "#N"]==0} {
-      puts $fout [pd_pickle $list]
-      set i [move_objects $lines [expr $i+1]]
-      set list [split [lindex $lines $i] " "]
-    }
-    set x [expr [lindex $list 2]-$xmin]
-    set y [expr [lindex $list 3]-$ymin]
-    set list [lreplace $list 2 3 $x $y]
-    puts $fout [pd_pickle $list]
-    incr i
-  }
-  return $i
-}
-
-foreach filename $argv {
-  set lines [pd_read_file $filename]
-  find_top_left $lines 1
-  #continue
-  set fout [open $filename.new w]
-  puts $fout [pd_pickle [lindex $lines 0]]
-  move_objects $lines 1
-  close $fout
-  exec mv $filename $filename.old
-  exec mv $filename.new $filename
-}
diff --git a/externals/gridflow/bin/plusminus b/externals/gridflow/bin/plusminus
deleted file mode 100755
index 36f268f5..00000000
--- a/externals/gridflow/bin/plusminus
+++ /dev/null
@@ -1,39 +0,0 @@
-#!/usr/bin/env ruby
-# NOTE: this works with svn diff -u only!!!
-
-puts "-"*72
-
-$plustot=0
-$minustot=0
-
-def show
-  printf "%40s %+5d %+5d (net %+5d)\n", $file, $plus, -$minus, $plus-$minus
-end
-
-loop{
-  line = gets
-  break if not line
-  if /^\+\+\+/.match line then
-    x = line.split(/\s+/)
-    $plustot+=$plus if $plus
-    $minustot+=$minus if $minus
-    show if $file
-    $file = x[1]
-    $on=false
-    $plus=0
-    $minus=0
-  elsif /^\@\@/ =~ line then $on=true
-  elsif $on and /^\+/ =~ line and /^\-\-\-/ != line then $plus+=1
-  elsif $on and /^\-/ =~ line and /^\+\+\+/ != line then $minus+=1
-  end
-}
-
-$plustot+=$plus if $plus
-$minustot+=$minus if $minus
-show if $file
-
-$file="total"
-$plus=$plustot
-$minus=$minustot
-puts "-"*72
-show
diff --git a/externals/gridflow/bin/svn-mv b/externals/gridflow/bin/svn-mv
deleted file mode 100755
index 0ddadd5f..00000000
--- a/externals/gridflow/bin/svn-mv
+++ /dev/null
@@ -1,5 +0,0 @@
-#!/bin/bash
-mv "$1" "$2"
-svn remove "$1"
-svn add "$2"
-svn commit "$1" "$2"
diff --git a/externals/gridflow/bin/valg b/externals/gridflow/bin/valg
deleted file mode 100755
index de0f040a..00000000
--- a/externals/gridflow/bin/valg
+++ /dev/null
@@ -1,5 +0,0 @@
-GFSOURCE=$HOME/src/gridflow
-SUPPFILE=$GFSOURCE/tests/suppressions.valg3
-
-valgrind --suppressions=$SUPPFILE --gen-suppressions=yes "$@"
-