Repository : ssh://darcs.haskell.org//srv/darcs/nofib
On branch : master
http://hackage.haskell.org/trac/ghc/changeset/b735a5e76c1c2188c0cf1a75bc6a8a12a160f164
>---------------------------------------------------------------
commit b735a5e76c1c2188c0cf1a75bc6a8a12a160f164
Author: David Terei <davidterei at gmail.com>
Date: Mon Jan 16 01:25:03 2012 -0800
Remove Fibon specific files.
>---------------------------------------------------------------
fibon/hist.rb | 20 --------------------
fibon/sloc.rb | 43 -------------------------------------------
2 files changed, 0 insertions(+), 63 deletions(-)
diff --git a/fibon/hist.rb b/fibon/hist.rb
deleted file mode 100644
index 88cc5b3..0000000
--- a/fibon/hist.rb
+++ /dev/null
@@ -1,20 +0,0 @@
-#!/usr/bin/env ruby
-
-added = 0
-removed = 0
-IO.popen("git log --reverse --date=short --format=format:\"%ad %s\"") do |p|
- while not p.eof?
- line = p.gets
- if line =~ /Added.*benchmark/ then
- puts line
- added += 1
- elsif line =~ /Deleted.*benchmark|Removed.*benchmark/
- then
- puts line
- removed += 1
- end
- end
-end
-
-puts ("-"*68)
-puts "Added: #{added} Removed: #{removed} Total: #{added - removed}"
diff --git a/fibon/sloc.rb b/fibon/sloc.rb
deleted file mode 100644
index 2878ce2..0000000
--- a/fibon/sloc.rb
+++ /dev/null
@@ -1,43 +0,0 @@
-#!/usr/bin/env ruby
-
-# Simple script to count and display lines of code in a benchmark
-def wcTotal(dir)
- cmd = %@find "#{dir}" \\( \\( -name "*.hs" \\) -or \\( -name "*.lhs" \\) \\) \\! -name "Instance.hs" | xargs wc -l @
- #puts cmd
- s = `#{cmd}`
- if s.split("\n").length == 0 then
- tot = "0"
- elsif s.split("\n").length == 1 then
- tot = s
- else
- tot = s.split("\n").reject{|l| not (l =~ /\s*\d+\s+total/)}.first
- end
- tot.match(/\s*(\d+)\s+/)
- $1
-end
-
-def ppWc(n, h=nil)
- h ||= n
- printf(" %-20s%10d\n", h, (wcTotal n).to_i)
-end
-
-if __FILE__ == $0 then
- dirs = ARGV
- if dirs == [] then dirs = ["*"] end
- dirs.each do |d|
- Dir[d].each do |group|
- if File.directory?(group) then
- puts group
- Dir[group+"/*"].each do |bm|
- if File.directory?(bm) then
- ppWc(bm, File.basename(bm))
- end
- end
- puts " " + "-" * 30
- ppWc(group, "TOTAL")
- puts
- end
- end
- end
-end
-