remove etc folder

2 files changed, 0 insertions, 340 deletions

diff --git a/etc/speedup/current.rb b/etc/speedup/current.rb
deleted file mode 100644
index e98d0e2..0000000
--- a/etc/speedup/current.rb
+++ /dev/null
@@ -1,132 +0,0 @@
-require 'strscan'
-require 'benchmark'
-
-class Scanner < StringScanner
-  
-  def initialize code
-    super code
-    @tokens = Tokens.new
-  end
-  
-  def tokenize
-    scan_tokens @tokens
-    @tokens
-  end
-  
-protected
-  
-  def scan_tokens tokens
-    until eos?
-      if matched = scan(/\s+/)
-        tokens << [matched, :space]
-      elsif matched = scan(/!/)
-        tokens << [matched, :not_going_to_happen]
-      elsif matched = scan(/=/)  #/
-        tokens << [matched, :not_going_to_happen]
-      elsif matched = scan(/%/)
-        tokens << [matched, :not_going_to_happen]
-      elsif matched = scan(/\w+/)
-        tokens << [matched, :word]
-      elsif matched = scan(/[,.]/)
-        tokens << [matched, :op]
-      elsif scan(/\(/)
-        tokens << [:open, :par]
-      elsif scan(/\)/)
-        tokens << [:close, :par]
-      else
-        raise
-      end
-    end
-  end
-  
-end
-
-
-class Tokens < Array
-end
-
-
-class Encoder
-  
-  def encode_tokens tokens
-    @out = ''
-    compile tokens
-    @out
-  end
-  
-protected
-  
-  if RUBY_VERSION >= '1.9' || defined?(JRUBY_VERSION)
-    def compile tokens
-      for text, kind in tokens
-        token text, kind
-      end
-    end
-  else
-    def compile tokens
-      tokens.each(&method(:token).to_proc)
-    end
-  end
-  
-  def token content, kind
-    encoded_token =
-      case content
-      when ::String
-        text_token content, kind
-      when :open
-        open kind
-      when :close
-        close kind
-      when ::Symbol
-        block_token content, kind
-      else
-        raise 'Unknown token content type: %p' % [content]
-      end
-    @out << encoded_token
-  end
-  
-  def text_token text, kind
-    if kind == :space
-      text
-    else
-      text.gsub!(/[)\\]/, '\\\\\0')  # escape ) and \
-      "#{kind}(#{text})"
-    end
-  end
-  
-  def block_token action, kind
-    case action
-    when :open
-      open kind
-    when :close
-      close kind
-    end
-  end
-  
-  def open kind
-    "#{kind}<"
-  end
-  
-  def close kind
-    '>'
-  end
-end
-
-N = (10 ** (ARGV.first || 5).to_i)
-code = "  alpha, beta, (gamma).\n" * N
-scanner = Scanner.new code
-encoder = Encoder.new
-
-tokens = nil
-time_scanning = Benchmark.realtime do
-  tokens = scanner.tokenize
-end
-puts 'Scanning: %0.2fs -- %0.0f kTok/s' % [time_scanning, tokens.size / time_scanning / 1000]
-
-time_encoding = Benchmark.realtime do
-  out = encoder.encode_tokens(tokens).size
-end
-puts 'Encoding: %0.2fs -- %0.0f kTok/s' % [time_encoding, tokens.size / time_encoding / 1000]
-
-time = time_scanning + time_encoding
-puts 'Together: %0.2fs -- %0.0f kTok/s' % [time, tokens.size / time / 1000]
diff --git a/etc/speedup/direct-stream.rb b/etc/speedup/direct-stream.rb
deleted file mode 100644
index a32c2a7..0000000
--- a/etc/speedup/direct-stream.rb
+++ /dev/null
@@ -1,208 +0,0 @@
-require 'strscan'
-require 'benchmark'
-require 'thread'
-
-class Scanner < StringScanner
-  
-  def initialize code
-    super code
-  end
-  
-  def tokenize encoder = Tokens.new
-    scan_tokens encoder
-    encoder
-  end
-  
-protected
-  
-  def scan_tokens encoder
-    until eos?
-      if matched = scan(/\s+/)
-        encoder.text_token matched, :space
-      elsif matched = scan(/!/)
-        encoder.text_token matched, :not_going_to_happen
-      elsif matched = scan(/=/)  #/
-        encoder.text_token matched, :not_going_to_happen
-      elsif matched = scan(/%/)
-        encoder.text_token matched, :not_going_to_happen
-      elsif matched = scan(/\w+/)
-        encoder.text_token matched, :word
-      elsif matched = scan(/[,.]/)
-        encoder.text_token matched, :op
-      elsif scan(/\(/)
-        encoder.begin_group :par
-      elsif scan(/\)/)
-        encoder.end_group :par
-      else
-        raise
-      end
-    end
-  end
-  
-end
-
-
-class Tokens < Array
-  alias token push
-  alias text_token push
-  alias block_token push
-  def begin_group kind; push :begin_group, kind end
-  def end_group kind; push :end_group, kind end
-end
-
-class TokensQueue < Queue
-  def text_token text, kind
-    push [text, kind]
-  end
-  def begin_group kind
-    push [:begin_group, kind]
-  end
-  def end_group kind
-    push [:end_group, kind]
-  end
-end
-
-
-class Encoder
-  
-  def setup
-    @out = ''
-    @opened = []
-  end
-  
-  def finish
-    while kind = @opened.pop
-      close kind
-    end
-    @out
-  end
-  
-  def encode_tokens tokens
-    setup
-    compile tokens
-    finish
-  end
-  
-  def encode_stream scanner
-    setup
-    scanner.tokenize self
-    finish
-  end
-  
-  def encode_queue scanner
-    setup
-    queue = TokensQueue.new
-    Thread.new do
-      scanner.tokenize queue
-      queue << nil  # end
-    end.join
-    Thread.new do
-      while value = queue.pop
-        token(*value)
-      end
-    end.join
-    finish
-  end
-  
-  def token content, kind
-    if content.is_a? ::String
-      text_token content, kind
-    elsif content.is_a? ::Symbol
-      block_token content, kind
-    else
-      raise 'Unknown token content type: %p' % [content]
-    end
-  end
-  
-  def text_token text, kind
-    @out <<
-      if kind == :space
-        text
-      else
-        text.gsub!(/[)\\]/, '\\\\\0')  # escape ) and \
-        "#{kind}(#{text})"
-      end
-  end
-  
-  def block_token action, kind
-    case action
-    when :begin_group
-      begin_group kind
-    when :end_group
-      end_group kind
-    else
-      raise
-    end
-  end
-  
-  def begin_group kind
-    @opened << kind
-    @out << "#{kind}<"
-  end
-  
-  def end_group kind
-    @opened.pop
-    @out << '>'
-  end
-  
-protected
-  
-  def compile tokens
-    content = nil
-    for item in tokens
-      if content
-        case content
-        when ::String
-          text_token content, item
-          content = nil
-        when :begin_group
-          begin_group item
-          content = nil
-        when :end_group
-          end_group item
-          content = nil
-        when ::Symbol
-          block_token content, item
-          content = nil
-        else
-          raise
-        end
-      else
-        content = item
-      end
-    end
-    raise if content
-  end
-  
-end
-
-N = (10 ** (ARGV.first || 5).to_i)
-code = "  alpha, beta, (gamma).\n" * N
-scanner = Scanner.new code
-encoder = Encoder.new
-
-# tokens = nil
-# time_scanning = Benchmark.realtime do
-#   tokens = scanner.tokenize
-# end
-# puts 'Scanning: %0.2fs -- %0.0f kTok/s' % [time_scanning, tokens.size / 2 / time_scanning / 1000]
-# 
-# time_encoding = Benchmark.realtime do
-#   encoder.encode_tokens tokens
-# end
-# puts 'Encoding: %0.2fs -- %0.0f kTok/s' % [time_encoding, tokens.size / 2 / time_encoding / 1000]
-# 
-# time = time_scanning + time_encoding
-# puts 'Together: %0.2fs -- %0.0f kTok/s' % [time, tokens.size / 2 / time / 1000]
-# scanner.reset
-
-time = Benchmark.realtime do
-  encoder.encode_stream scanner
-end
-puts 'Direct Streaming: %0.2fs -- %0.0f kTok/s' % [time, (N * 11 + 1) / time / 1000]
-
-scanner.reset
-time = Benchmark.realtime do
-  encoder.encode_queue scanner
-end
-puts 'Queue: %0.2fs -- %0.0f kTok/s' % [time, (N * 11 + 1) / time / 1000]