flatulent 0.0.3 → 0.0.4

data/rails/lib/flatulent/pervasives.rb

@@ -1,32 +0,0 @@
-module Pervasives
-  VERSION = "1.0.0"
-  def self.version() VERSION end
-  class ::Class 
-    def __pervasive__ m, *a, &b
-      (( Class.instance_method(m) rescue Module.instance_method(m) rescue Object.instance_method(m) )).bind(self).call(*a, &b)
-    end
-  end
-  class ::Module 
-    def __pervasive__ m, *a, &b
-      (( Module.instance_method(m) rescue Object.instance_method(m) )).bind(self).call(*a, &b)
-    end
-  end
-  class ::Object
-    def __pervasive__ m, *a, &b
-      (( Object.instance_method(m) )).bind(self).call(*a, &b)
-    end
-  end
-
-  class Proxy
-    instance_methods.each{|m| undef_method m unless m[%r/__/]}
-    def initialize obj
-      @obj = obj
-    end
-    def method_missing m, *a, &b
-      @obj.__pervasive__ m, *a, &b
-    end
-    def __obj__
-      @obj
-    end
-  end
-end

data/rails/lib/flatulent/stringxor.rb

@@ -1,27 +0,0 @@
-# stringxor.rb  Richard Kernahan <kernighan_rich@rubyforge.org>
-
-module Crypt
-module StringXor
-  
-  
-  def ^(aString)
-    a = self.unpack('C'*(self.length))
-    b = aString.unpack('C'*(aString.length))
-    if (b.length < a.length)
-      (a.length - b.length).times { b << 0 }
-    end
-    xor = ""
-    0.upto(a.length-1) { |pos|
-      x = a[pos] ^ b[pos]
-      xor << x.chr()
-    }
-    return(xor)
-  end
-  
-  
-end
-end
-
-class String
-  include Crypt::StringXor
-end

data/rails/lib/flatulent/text.rb

@@ -1,6 +0,0 @@
-require 'text/double_metaphone'
-require 'text/figlet'
-require 'text/levenshtein'
-require 'text/metaphone'
-require 'text/porter_stemming'
-require 'text/soundex'

data/rails/lib/flatulent/text/double_metaphone.rb

@@ -1,356 +0,0 @@
-#
-# Ruby implementation of the Double Metaphone algorithm by Lawrence Philips,
-# originally published in the June 2000 issue of C/C++ Users Journal.
-#
-# Based on Stephen Woodbridge's PHP version - http://swoodbridge.com/DoubleMetaPhone/
-#
-# Author: Tim Fletcher (twoggle@gmail.com)
-#
-
-module Text # :nodoc:
-module Metaphone
-
-  # Returns the primary and secondary double metaphone tokens
-  # (the secondary will be nil if equal to the primary).
-  def double_metaphone(str)
-    primary, secondary, current = [], [], 0
-    original, length, last = "#{str}     ".upcase, str.length, str.length - 1
-    if /^GN|KN|PN|WR|PS$/ =~ original[0, 2]
-      current += 1
-    end
-    if 'X' == original[0, 1]
-      primary << :S
-      secondary << :S
-      current += 1
-    end
-    while primary.length < 4 || secondary.length < 4
-      break if current > str.length
-      a, b, c = double_metaphone_lookup(original, current, length, last)
-      primary << a if a
-      secondary << b if b
-      current += c if c
-    end
-    primary, secondary = primary.to_s[0, 4], secondary.to_s[0, 4]
-    return primary, (primary == secondary ? nil : secondary)
-  end
-
-
-  private
-
-  def slavo_germanic?(str)
-    /W|K|CZ|WITZ/ =~ str
-  end
-
-  def vowel?(str)
-    /^A|E|I|O|U|Y$/ =~ str
-  end
-
-  def double_metaphone_lookup(str, pos, length, last)
-    case str[pos, 1]
-      when /^A|E|I|O|U|Y$/
-        if 0 == pos
-          return :A, :A, 1
-        else
-          return nil, nil, 1
-        end
-      when 'B'
-        return :P, :P, ('B' == str[pos + 1, 1] ? 2 : 1)
-      when 'Ç' 
-        return :S, :S, 1
-      when 'C'
-        if pos > 1 &&
-          !vowel?(str[pos - 2, 1]) &&
-          'ACH' == str[pos - 1, 3] &&
-          str[pos + 2, 1] != 'I' && (
-            str[pos + 2, 1] != 'E' ||
-            str[pos - 2, 6] =~ /^(B|M)ACHER$/
-          ) then
-          return :K, :K, 2
-        elsif 0 == pos && 'CAESAR' == str[pos, 6]
-          return :S, :S, 2
-        elsif 'CHIA' == str[pos, 4]
-          return :K, :K, 2
-        elsif 'CH' == str[pos, 2]
-          if pos > 0 && 'CHAE' == str[pos, 4]
-            return :K, :X, 2
-          elsif 0 == pos && (
-              ['HARAC', 'HARIS'].include?(str[pos + 1, 5]) ||
-              ['HOR', 'HYM', 'HIA', 'HEM'].include?(str[pos + 1, 3])
-            ) && str[0, 5] != 'CHORE' then
-            return :K, :K, 2
-          elsif ['VAN ','VON '].include?(str[0, 4]) ||
-                'SCH' == str[0, 3] ||
-                ['ORCHES','ARCHIT','ORCHID'].include?(str[pos - 2, 6]) ||
-                ['T','S'].include?(str[pos + 2, 1]) || (
-                  ((0 == pos) || ['A','O','U','E'].include?(str[pos - 1, 1])) &&
-                  ['L','R','N','M','B','H','F','V','W',' '].include?(str[pos + 2, 1])
-                ) then
-            return :K, :K, 2
-          elsif pos > 0
-            return ('MC' == str[0, 2] ? 'K' : 'X'), 'K', 2
-          else
-            return :X, :X, 2
-          end
-        elsif 'CZ' == str[pos, 2] && 'WICZ' != str[pos - 2, 4]
-          return :S, :X, 2
-        elsif 'CIA' == str[pos + 1, 3]
-          return :X, :X, 3
-        elsif 'CC' == str[pos, 2] && !(1 == pos && 'M' == str[0, 1])
-          if /^I|E|H$/ =~ str[pos + 2, 1] && 'HU' != str[pos + 2, 2]
-            if (1 == pos && 'A' == str[pos - 1, 1]) ||
-              /^UCCE(E|S)$/ =~ str[pos - 1, 5] then
-              return :KS, :KS, 3
-            else
-              return :X, :X, 3
-            end
-          else
-            return :K, :K, 2
-          end
-        elsif /^C(K|G|Q)$/ =~ str[pos, 2]
-          return :K, :K, 2
-        elsif /^C(I|E|Y)$/ =~ str[pos, 2]
-          return :S, (/^CI(O|E|A)$/ =~ str[pos, 3] ? :X : :S), 2
-        else
-          if /^ (C|Q|G)$/ =~ str[pos + 1, 2]
-            return :K, :K, 3
-          else     
-            return :K, :K, (/^C|K|Q$/ =~ str[pos + 1, 1] && !(['CE','CI'].include?(str[pos + 1, 2])) ? 2 : 1)
-          end
-        end
-      when 'D'
-        if 'DG' == str[pos, 2]
-          if /^I|E|Y$/ =~ str[pos + 2, 1]
-            return :J, :J, 3
-          else
-            return :TK, :TK, 2
-          end
-        else
-          return :T, :T, (/^D(T|D)$/ =~ str[pos, 2] ? 2 : 1)
-        end
-      when 'F'
-        return :F, :F, ('F' == str[pos + 1, 1] ? 2 : 1)
-      when 'G'
-        if 'H' == str[pos + 1, 1]
-          if pos > 0 && !vowel?(str[pos - 1, 1])
-            return :K, :K, 2
-          elsif 0 == pos
-            if 'I' == str[pos + 2, 1]
-              return :J, :J, 2
-            else
-              return :K, :K, 2
-            end
-          elsif (pos > 1 && /^B|H|D$/ =~ str[pos - 2, 1]) ||
-                (pos > 2 && /^B|H|D$/ =~ str[pos - 3, 1]) ||
-                (pos > 3 && /^B|H$/   =~ str[pos - 4, 1])
-            return nil, nil, 2
-          else
-            if (pos > 2 && 'U' == str[pos - 1, 1] && /^C|G|L|R|T$/ =~ str[pos - 3, 1])
-              return :F, :F, 2
-            elsif pos > 0 && 'I' != str[pos - 1, 1]
-              return :K, :K, 2
-            else
-              return nil, nil, 2
-            end
-          end
-        elsif 'N' == str[pos + 1, 1]
-          if 1 == pos && vowel?(str[0, 1]) && !slavo_germanic?(str)
-            return :KN, :N, 2
-          else
-            if 'EY' != str[pos + 2, 2] && 'Y' != str[pos + 1, 1] && !slavo_germanic?(str)
-              return :N, :KN, 2
-            else
-              return :KN, :KN, 2
-            end
-          end
-        elsif 'LI' == str[pos + 1, 2] && !slavo_germanic?(str)
-          return :KL, :L, 2
-        elsif 0 == pos && ('Y' == str[pos + 1, 1] || /^(E(S|P|B|L|Y|I|R)|I(B|L|N|E))$/ =~ str[pos + 1, 2])
-          return :K, :J, 2
-        elsif (('ER' == str[pos + 1, 2] || 'Y' == str[pos + 1, 1]) &&
-               /^(D|R|M)ANGER$/ !~ str[0, 6] &&
-               /^E|I$/ !~ str[pos - 1, 1] &&
-               /^(R|O)GY$/ !~ str[pos - 1, 3])
-          return :K, :J, 2
-        elsif /^E|I|Y$/ =~ str[pos + 1, 1] || /^(A|O)GGI$/ =~ str[pos - 1, 4]
-          if (/^V(A|O)N $/ =~ str[0, 4] || 'SCH' == str[0, 3]) || 'ET' == str[pos + 1, 2]
-            return :K, :K, 2
-          else
-            if 'IER ' == str[pos + 1, 4]
-              return :J, :J, 2
-            else
-              return :J, :K, 2
-            end
-          end
-        elsif 'G' == str[pos + 1, 1]
-          return :K, :K, 2
-        else
-          return :K, :K, 1
-        end
-      when 'H'
-        if (0 == pos || vowel?(str[pos - 1, 1])) && vowel?(str[pos + 1, 1])
-          return :H, :H, 2
-        else
-          return nil, nil, 1
-        end
-      when 'J'
-        if 'JOSE' == str[pos, 4] || 'SAN ' == str[0, 4]
-          if (0 == pos && ' ' == str[pos + 4, 1]) || 'SAN ' == str[0, 4]
-            return :H, :H, 1
-          else
-            return :J, :H, 1
-          end
-        else
-          current = ('J' == str[pos + 1, 1] ? 2 : 1)
-          
-          if 0 == pos && 'JOSE' != str[pos, 4]
-            return :J, :A, current
-          else
-            if vowel?(str[pos - 1, 1]) && !slavo_germanic?(str) && /^A|O$/ =~ str[pos + 1, 1]
-              return :J, :H, current
-            else
-              if last == pos
-                return :J, nil, current
-              else
-                if /^L|T|K|S|N|M|B|Z$/ !~ str[pos + 1, 1] && /^S|K|L$/ !~ str[pos - 1, 1]
-                  return :J, :J, current
-                else
-                  return nil, nil, current
-                end
-              end
-            end
-          end
-        end
-      when 'K'
-        return :K, :K, ('K' == str[pos + 1, 1] ? 2 : 1)
-      when 'L'
-        if 'L' == str[pos + 1, 1]
-          if (((length - 3) == pos && /^(ILL(O|A)|ALLE)$/ =~ str[pos - 1, 4]) ||
-              ((/^(A|O)S$/ =~ str[last - 1, 2] || /^A|O$/ =~ str[last, 1]) && 'ALLE' == str[pos - 1, 4]))
-            return :L, nil, 2
-          else
-            return :L, :L, 2
-          end
-        else
-          return :L, :L, 1
-        end
-      when 'M'
-        if ('UMB' == str[pos - 1, 3] &&
-            ((last - 1) == pos || 'ER' == str[pos + 2, 2])) || 'M' == str[pos + 1, 1]
-          return :M, :M, 2
-        else
-          return :M, :M, 1
-        end
-      when 'N'
-        return :N, :N, ('N' == str[pos + 1, 1] ? 2 : 1)
-      when 'Ñ' 
-        return :N, :N, 1
-      when 'P'
-        if 'H' == str[pos + 1, 1]
-          return :F, :F, 2
-        else
-          return :P, :P, (/^P|B$/ =~ str[pos + 1, 1] ? 2 : 1)
-        end
-      when 'Q'
-        return :K, :K, ('Q' == str[pos + 1, 1] ? 2 : 1)
-      when 'R'
-        current = ('R' == str[pos + 1, 1] ? 2 : 1)
-        
-        if last == pos && !slavo_germanic?(str) && 'IE' == str[pos - 2, 2] && /^M(E|A)$/ !~ str[pos - 4, 2]
-          return nil, :R, current
-        else
-          return :R, :R, current
-        end
-      when 'S'
-        if /^(I|Y)SL$/ =~ str[pos - 1, 3]
-          return nil, nil, 1
-        elsif 0 == pos && 'SUGAR' == str[pos, 5]
-          return :X, :S, 1
-        elsif 'SH' == str[pos, 2]
-          if /^H(EIM|OEK|OLM|OLZ)$/ =~ str[pos + 1, 4]
-            return :S, :S, 2
-          else
-            return :X, :X, 2
-          end
-        elsif /^SI(O|A)$/ =~ str[pos, 3] || 'SIAN' == str[pos, 4]
-          return :S, (slavo_germanic?(str) ? :S : :X), 3
-        elsif (0 == pos && /^M|N|L|W$/ =~ str[pos + 1, 1]) || 'Z' == str[pos + 1, 1]
-          return :S, :X, ('Z' == str[pos + 1, 1] ? 2 : 1)
-        elsif 'SC' == str[pos, 2]
-          if 'H' == str[pos + 2, 1]
-            if /^OO|ER|EN|UY|ED|EM$/ =~ str[pos + 3, 2]
-              return (/^E(R|N)$/ =~ str[pos + 3, 2] ? :X : :SK), :SK, 3
-            else
-              return :X, ((0 == pos && !vowel?(str[3, 1]) && ('W' != str[pos + 3, 1])) ? :S : :X), 3
-            end
-          elsif /^I|E|Y$/ =~ str[pos + 2, 1]
-            return :S, :S, 3
-          else
-            return :SK, :SK, 3
-          end
-        else
-          return (last == pos && /^(A|O)I$/ =~ str[pos - 2, 2] ? nil : 'S'), 'S', (/^S|Z$/ =~ str[pos + 1, 1] ? 2 : 1)
-        end
-      when 'T'
-        if 'TION' == str[pos, 4]
-          return :X, :X, 3
-        elsif /^T(IA|CH)$/ =~ str[pos, 3]
-          return :X, :X, 3
-        elsif 'TH' == str[pos, 2] || 'TTH' == str[pos, 3]
-          if /^(O|A)M$/ =~ str[pos + 2, 2] || /^V(A|O)N $/ =~ str[0, 4] || 'SCH' == str[0, 3]
-            return :T, :T, 2
-          else
-            return 0, :T, 2
-          end
-        else
-          return :T, :T, (/^T|D$/ =~ str[pos + 1, 1] ? 2 : 1)
-        end
-      when 'V'
-        return :F, :F, ('V' == str[pos + 1, 1] ? 2 : 1)
-      when 'W'
-        if 'WR' == str[pos, 2]
-          return :R, :R, 2
-        end
-        pri, sec = nil, nil
-
-        if 0 == pos && (vowel?(str[pos + 1, 1]) || 'WH' == str[pos, 2])
-          pri = :A
-          sec = vowel?(str[pos + 1, 1]) ? :F : :A
-        end
-
-        if (last == pos && vowel?(str[pos - 1, 1])) || 'SCH' == str[0, 3] ||
-            /^EWSKI|EWSKY|OWSKI|OWSKY$/ =~ str[pos - 1, 5]
-          return pri, "#{sec}F".intern, 1
-        elsif /^WI(C|T)Z$/ =~ str[pos, 4]
-          return "#{pri}TS".intern, "#{sec}FX".intern, 4
-        else
-          return pri, sec, 1
-        end
-      when 'X'
-        current = (/^C|X$/ =~ str[pos + 1, 1] ? 2 : 1)
-
-        if !(last == pos && (/^(I|E)AU$/ =~ str[pos - 3, 3] || /^(A|O)U$/ =~ str[pos - 2, 2]))
-          return :KS, :KS, current
-        else
-          return nil, nil, current
-        end
-      when 'Z'
-        if 'H' == str[pos + 1, 1]
-          return :J, :J, 2
-        else
-          current = ('Z' == str[pos + 1, 1] ? 2 : 1)
-
-          if /^Z(O|I|A)$/ =~ str[pos + 1, 2] || (slavo_germanic?(str) && (pos > 0 && 'T' != str[pos - 1, 1]))
-            return :S, :TS, current
-          else
-            return :S, :S, current
-          end
-        end
-      else
-        return nil, nil, 1
-    end
-  end # def double_metaphone_lookup
-
-  extend self
-
-end # module Metaphone
-end # module Text

data/rails/lib/flatulent/text/figlet.rb

@@ -1,17 +0,0 @@
-#
-# Ruby implementation of the Figlet program (http://www.figlet.org/).
-#
-# Author: Tim Fletcher (twoggle@gmail.com)
-#
-# Usage:
-#
-#   big_font = Text::Figlet::Font.new('big.flf')
-#   
-#   figlet = Text::Figlet::Typesetter.new(big_font)
-#   
-#   puts figlet['hello world']
-#
-#
-require 'text/figlet/font'
-require 'text/figlet/smusher'
-require 'text/figlet/typesetter'

data/rails/lib/flatulent/text/figlet/font.rb

@@ -1,117 +0,0 @@
-module Text
-module Figlet
-
-  class UnknownFontFormat < StandardError
-  end  
-
-  class Font
-    def initialize(filename, load_german = true)
-      file = File.open(filename, 'rb')
-  
-      header = file.gets.strip.split(/ /)
-
-      raise UnknownFontFormat if 'flf2a' != header[0][0, 5]
-
-      @hard_blank = header.shift[-1, 1]
-      @height = header.shift.to_i
-      @baseline = header.shift
-      @max_length = header.shift
-      @old_layout = header.shift.to_i
-      @comment_count = header.shift.to_i
-      @right_to_left = header.shift
-      @right_to_left = !@right_to_left.nil? && @right_to_left.to_i == 1
-      
-      @load_german, @characters = load_german, {}
-
-      load_comments file
-      load_ascii_characters file
-      load_german_characters file
-      load_extended_characters file
-      
-      file.close
-    end
-
-    def [](char)
-      @characters[char]
-    end
-    
-    def has_char?(char)
-      @characters.has_key? char
-    end
-
-    attr_reader :height, :hard_blank, :old_layout
-    
-    def right_to_left?
-      @right_to_left
-    end
-
-
-    private
-    
-    def load_comments(file)
-      @comment_count.times { file.gets.strip }
-    end
-    
-    def load_ascii_characters(file)
-      (32..126).each { |i| @characters[i] = load_char(file) }
-    end
-
-    def load_german_characters(file)
-      [91, 92, 93, 123, 124, 125, 126].each do |i|
-        if @load_german
-          unless char = load_char(file)
-            return
-          end
-          @characters[i] = char
-        else
-          skip_char file
-        end
-      end
-    end
-    
-    def load_extended_characters(file)
-      until file.eof?
-        i = file.gets.strip.split(/ /).first
-        if i.empty?
-          next
-        elsif /^\-0x/i =~ i # comment
-          skip_char file
-        else
-          if /^0x/i =~ i
-            i = i[2, 1].hex
-          elsif '0' == i[0] && '0' != i || '-0' == i[0, 2]
-            i = i.oct
-          end
-          unless char = load_char(file)
-            return
-          end
-          @characters[i] = char
-        end
-      end
-    end
-    
-    def load_char(file)
-      char = []
-      @height.times do
-        return false if file.eof?
-        line = file.gets.rstrip
-        if match = /(.){1,2}$/.match(line)
-          line.gsub! match[1], ''
-        end
-        line << "\x00"
-        char << line
-      end
-      return char      
-    end
-
-    def skip_char(file)
-      @height.times do
-        return if file.eof?
-        return if file.gets.strip.nil?
-      end
-    end
-
-  end
-
-end # module Figlet
-end # module Text