Repository : ssh://darcs.haskell.org//srv/darcs/nofib On branch : master
http://hackage.haskell.org/trac/ghc/changeset/b735a5e76c1c2188c0cf1a75bc6a8a12a160f164 >--------------------------------------------------------------- commit b735a5e76c1c2188c0cf1a75bc6a8a12a160f164 Author: David Terei <[email protected]> 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 - _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
