@@ -1,84 +1,82 @@ -require 'net/http' -require 'uri' - -# TODO: what?? this needs to be a class. - -class PartialPage < Exception - attr_accessor :data -end - -def read_data_from_response(response, amount) - - amount_read = 0 - chunks = [] - - begin - - response.read_body do |chunk| # read body now - - amount_read += chunk.length - - if amount_read > amount - amount_of_overflow = amount_read - amount - chunk = chunk[0...-amount_of_overflow] - end - - chunks << chunk - - if amount_read >= amount - raise PartialPage.new chunks.join('') - end - - end - end - -end - - - -def http_get_streaming(url = URI.parse("http://epi.is-a-geek.net/files/Mr.%20Show%20-%20Civil%20War%20Re-enactment.avi")) - - #headers = {'User-Agent' => "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.1) Gecko/20060111 Firefox/1.5.0.1"} - headers = nil - - Net::HTTP.start(url.host, url.port) do |http| - # using block - response = http.request_get(url.path, headers) {|response| - puts "Response: #{response.inspect}" - puts "to hash: #{response.to_hash.inspect}" - - begin - read_data_from_response(response, 500) - rescue PartialPage => p - puts "GOT THE PARTIAL PAGE!" - data = p.data - end - - puts - puts "===========first 500 bytes=================" - puts data - } - end - -end - - -# TODO: Remove RIO dependancy. - -def http_get_cached(url) - require 'digest/md5' - require 'rio' - - tempdir = ENV['TEMP'] - cachefile = rio(tempdir, "cached_url_#{Digest::SHA1.hexdigest(url)}") - - if cachefile.exist? - data = rio(cachefile).read - else - data = rio(url).read - rio(cachefile).binmode < data - end - - data -end - +require 'net/http' +require 'uri' + +# TODO: what?? this needs to be a class. + +class PartialPage < Exception + attr_accessor :data +end + +def read_data_from_response(response, amount) + + amount_read = 0 + chunks = [] + + begin + response.read_body do |chunk| # read body now + + amount_read += chunk.length + + if amount_read > amount + amount_of_overflow = amount_read - amount + chunk = chunk[0...-amount_of_overflow] + end + + chunks << chunk + + if amount_read >= amount + raise PartialPage.new chunks.join('') + end + + end + end + +end + + +def http_get_streaming(url = URI.parse("http://epi.is-a-geek.net/files/Mr.%20Show%20-%20Civil%20War%20Re-enactment.avi")) + + #headers = {'User-Agent' => "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.1) Gecko/20060111 Firefox/1.5.0.1"} + headers = nil + + Net::HTTP.start(url.host, url.port) do |http| + # using block + response = http.request_get(url.path, headers) {|response| + puts "Response: #{response.inspect}" + puts "to hash: #{response.to_hash.inspect}" + + begin + read_data_from_response(response, 500) + rescue PartialPage => p + puts "GOT THE PARTIAL PAGE!" + data = p.data + end + + puts + puts "===========first 500 bytes=================" + puts data + } + end + +end + + +# TODO: Remove RIO dependancy. + +def http_get_cached(url) + require 'digest/md5' + require 'rio' + + tempdir = ENV['TEMP'] + cachefile = rio(tempdir, "cached_url_#{Digest::SHA1.hexdigest(url)}") + + if cachefile.exist? + data = rio(cachefile).read + else + data = rio(url).read + rio(cachefile).binmode < data + end + + data +end + lib/epitools/http.rb @@ -1,28 +1,28 @@ -class Object - # The hidden singleton lurks behind everyone - def metaclass - class << self - self - end - end - - def meta_eval &blk - metaclass.instance_eval &blk - end - - # Adds methods to a metaclass - def meta_def name, &blk - meta_eval { define_method name, &blk } - end - - # Defines an instance method within a class - def class_def name, &blk - class_eval { define_method name, &blk } - end -end - -if $0 == __FILE__ - o = Object.new - p o - p o.metaclass -end \ No newline at end of file +class Object + # The hidden singleton lurks behind everyone + def metaclass + class << self + self + end + end + + def meta_eval &blk + metaclass.instance_eval &blk + end + + # Adds methods to a metaclass + def meta_def name, &blk + meta_eval { define_method name, &blk } + end + + # Defines an instance method within a class + def class_def name, &blk + class_eval { define_method name, &blk } + end +end + +if $0 == __FILE__ + o = Object.new + p o + p o.metaclass +end lib/epitools/metaclass.rb @@ -1,81 +1,81 @@ - -class Array - - def sum - inject(0) { |total,n| total + n } - end - - def average - sum / size.to_f - end - - alias_method :"original_*_for_cartesian_*", :* - def *(other) - case other - when Integer - send(:"original_*_for_cartesian_*", other) - when Array - # cross-product - result = [] - (0...self.size).each do |a| - (0...other.size).each do |b| - result << [self[a], other[b]] - end - end - result - end - end - - def **(exponent) - ([self] * exponent).foldl(:*) - end - -end - - -module Enumerable - - def foldl(operation) - result = nil - - each_with_index do |e,i| - if i == 0 - result = e - next - end - - result = result.send(operation, e) - end - - result - end - -end - - -def perms(total, n=0, stack=[], &block) - ps = yield(n) - results = [] - if n >= total - results << stack - else - ps.each do |p| - results += perms(total, n+1, stack + [p], &block) - end - end - results -end - - -if $0 == __FILE__ - puts "-------------- foldl ---" - p [:sum, [1,1,1].foldl(:+)] - p ["[[1,2],[3]].foldl(:+)", [[1,2],[3]].foldl(:+)] - p [[0,1],[0,1]].foldl(:*) - - puts "-------------- cartesian product ---" - p ["[0,1]*[2,3]",[0,1]*[2,3]] - - puts "-------------- cartesian exponent ---" - p [0,1]**3 -end + +class Array + + def sum + inject(0) { |total,n| total + n } + end + + def average + sum / size.to_f + end + + alias_method :"original_*_for_cartesian_*", :* + def *(other) + case other + when Integer + send(:"original_*_for_cartesian_*", other) + when Array + # cross-product + result = [] + (0...self.size).each do |a| + (0...other.size).each do |b| + result << [self[a], other[b]] + end + end + result + end + end + + def **(exponent) + ([self] * exponent).foldl(:*) + end + +end + + +module Enumerable + + def foldl(operation) + result = nil + + each_with_index do |e,i| + if i == 0 + result = e + next + end + + result = result.send(operation, e) + end + + result + end + +end + + +def perms(total, n=0, stack=[], &block) + ps = yield(n) + results = [] + if n >= total + results << stack + else + ps.each do |p| + results += perms(total, n+1, stack + [p], &block) + end + end + results +end + + +if $0 == __FILE__ + puts "-------------- foldl ---" + p [:sum, [1,1,1].foldl(:+)] + p ["[[1,2],[3]].foldl(:+)", [[1,2],[3]].foldl(:+)] + p [[0,1],[0,1]].foldl(:*) + + puts "-------------- cartesian product ---" + p ["[0,1]*[2,3]",[0,1]*[2,3]] + + puts "-------------- cartesian exponent ---" + p [0,1]**3 +end lib/epitools/permutations.rb 95c567474e6a29d844aa21d219567339f5c9b8c4 epitron chris@ill-logic.com http://github.com/epitron/epitools/commit/5df27d311b0682ca983882d3b8208b6c6ac0b106 5df27d311b0682ca983882d3b8208b6c6ac0b106 2009-10-30T14:47:25-07:00 2009-10-30T14:47:25-07:00 Damn you, tabs and DOS endings! edde5a66717b7cc482d0c3c4f47526d6152b5039 epitron chris@ill-logic.com