[jboss-svn-commits] JBL Code SVN: r17997 - labs/jbossrules/trunk/lib/utility-scripts.

[jboss-svn-commits at lists.jboss.org]

Author: michael.neale at jboss.com
Date: 2008-01-21 01:44:55 -0500 (Mon, 21 Jan 2008)
New Revision: 17997

Added:
   labs/jbossrules/trunk/lib/utility-scripts/image_usage.rb
Log:
utility to find unused images

Added: labs/jbossrules/trunk/lib/utility-scripts/image_usage.rb
===================================================================
--- labs/jbossrules/trunk/lib/utility-scripts/image_usage.rb	                        (rev 0)
+++ labs/jbossrules/trunk/lib/utility-scripts/image_usage.rb	2008-01-21 06:44:55 UTC (rev 17997)
@@ -0,0 +1,44 @@
+#
+# This looks for unuses image in GWT code. 
+# Gets a list of images, and looks to find if they are used. 
+#
+# Author: Michael Neale
+#
+
+#directory recursive processor...
+def mapdir(dir, predicate, action) 
+    Dir.foreach(dir) do |d| 
+      if d != "." && d != ".." then
+        sub = dir + "/" + d        
+        if not File.directory? sub and predicate.call(sub) then
+          action.call(sub)
+        else 
+          if File.directory? sub and not sub.include? ".svn" 
+	  then mapdir(sub, predicate, action) end
+        end        
+      end
+    end
+end
+
+
+def process(image_root, sources_root)
+  images = []
+  mapdir image_root, lambda { |f| true }, lambda { |f| images << f }
+
+  mapdir sources_root, lambda { |f| f.include? ".java" or f.include? ".html" or f.include? ".js" }, 
+   lambda do |f|
+    contents = IO.read(f)
+    images.each do |img|
+      if contents.include? img.split("/images/")[1] then
+         images = images - [img]
+      end
+    end 
+   end
+         
+  puts "#{images.size} Unused images: \n " 
+  puts images
+
+
+end
+
+process "/Users/michaelneale/project/jboss-rules/drools-jbrms/src/main/java/org/drools/brms/public/images", "/Users/michaelneale/project/jboss-rules/drools-jbrms/src/main/java/org/drools/brms"


Property changes on: labs/jbossrules/trunk/lib/utility-scripts/image_usage.rb
___________________________________________________________________
Name: svn:eol-style
   + native