From 5a6bee4fe076e06514c6e4e538590dd3a2a5cdc3 Mon Sep 17 00:00:00 2001
From: "N.N." <matju@users.sourceforge.net>
Date: Fri, 6 Nov 2009 18:37:00 +0000
Subject: upgrade gridflow

svn path=/trunk/; revision=12728
---
 externals/gridflow/doc/find_missing.rb | 40 ++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)
 create mode 100644 externals/gridflow/doc/find_missing.rb

(limited to 'externals/gridflow/doc/find_missing.rb')

diff --git a/externals/gridflow/doc/find_missing.rb b/externals/gridflow/doc/find_missing.rb
new file mode 100644
index 00000000..5ac44da0
--- /dev/null
+++ b/externals/gridflow/doc/find_missing.rb
@@ -0,0 +1,40 @@
+#!/usr/bin/env ruby
+
+a=[]
+`grep -nriw install ../src/*.[ch]xx ../src/*.m`.each {|line|
+  m=/install\(\"([^"]+)/.match(line)
+  a<<m[1] if m
+}
+
+b=Dir["../abstractions/*.pd"].map{|x|
+  x.gsub(/^\.\.\/abstractions\//,"").gsub(/\.pd$/,"")
+}
+
+c      = Dir["flow_classes/*-help.pd"   ].map{|x| x.gsub(/^flow_classes\//,"").gsub(/-help\.pd$/,"") }
+c.concat Dir["flow_classes/cv/*-help.pd"].map{|x| x.gsub(/^flow_classes\//,"").gsub(/-help\.pd$/,"") }
+ab=a+b
+
+d=[]
+File.open("index.pd") {|f|
+  f.each {|line|
+    m=/obj \d+ \d+ ([^ ;]+)/.match(line)
+    d<<m[1] if m
+  }
+}
+
+puts "missing from help files: "
+puts (ab-c).sort.join" "
+puts (ab-c).size
+puts ""
+
+puts "orphan help files:"
+puts (c-ab).sort.join" "
+puts ""
+
+puts "missing from index:"
+puts (ab-d).sort.join" "
+puts (ab-d).size
+puts ""
+
+puts "orphan index entries: "
+puts (d-ab).sort.join" "
-- 
cgit v1.2.1