razyk 0.0.1 → 0.1.0

data/examples/air_on_the_g_string.score

@@ -0,0 +1,14 @@
+2
+4A0
+36E5 2A5 2F5 2D5 2C5 2B4 2C5 7B4 A4 8G4
+18G5 2E5 2B4- 2A4 2D5 2C5+ 2G5 2F5 18F5 2D5 2A4 2G4 2C5 2B4 2F5 2E5
+12E5 2F5+ 2G5 4C5 C5 D5 2E5 2E5 4D5 2C5 2B4 2A4 A4 B4 2C5 4C5 2B4 2A4 16G4
+36E5 2A5 2F5 2D5 2C5 2B4 2C5 7B4 A4 8G4
+18G5 2E5 2B4- 2A4 2D5 2C5+ 2G5 2F5 18F5 2D5 2A4 2G4 2C5 2B4 2F5 2E5
+12E5 2F5+ 2G5 4C5 C5 D5 2E5 2E5 4D5 2C5 2B4 2A4 A4 B4 2C5 4C5 2B4 2A4 16G4
+8B4 2B4 C5 B4 A4 B4 2G4 12G5 4B4- 4A4 4A5 2A5 2G5 2F5 2E5 8F5 F5 E5 D5 C5 2B4 2A4
+2G4+ 2A4 4B4 2B4 2C5 4D5 2D5 2E5 4F5 4F5 4E5 2D5 2C5 2B4 2A4 2B4 C5 D5 4C5 16A4
+8C5 2C5 2E5 2D5 2C5 12A5 2G5 2F5+ 2D5 2G5 4G4 6A4 B4 C5 7B4 A4 8G4
+12C5 2E5 2D5 12D5 2F5 2E5 12E5 2G5 2F5 16F5
+8G4 2G4 2B4 2D5 2F5 2F5 2D5 4E5 4E5 2E5 F5 G5 8C5 2C5 2E5 2G5 2B5- 4B5- 8A5 4C5
+2B4 2D5 8F5 4A4 4G4 D5 E5 2F5 2F5 4E5 2D5 C5 B4 4A4 2B4 3B4 A4 2B4 2C5 16C5

data/examples/encoder.rb

@@ -0,0 +1,62 @@
+require "razyk/vm"
+require "razyk/parser"
+
+ZERO = "KI"
+ONE = "I"
+TWO = "(S(S(KS)K)I)"
+THREE = "((S(S(KS)K))(S(S(KS)K)I))"
+FOUR = "(S(S(KS)K))((S(S(KS)K))(S(S(KS)K)I))"
+FIVE = "(S(S(KS)(S(KK)(S(K(S(S(KS)K)I))I)))(S(K((S(S(KS)K))(S(S(KS)K)I)))I))"
+
+def mul(comb, n)
+  "(S(K#{n})(S(K#{comb})I))"
+end
+
+def destruct(n)
+  return ZERO if n == 0
+  return ONE if n == 1
+  return TWO if n == 2
+  return THREE if n == 3
+  return FOUR if n == 4
+  return FIVE if n == 5
+  comb = ONE
+  while n % 2 == 0
+    n /= 2
+    comb = mul(comb, TWO)
+  end
+  while n % 3 == 0
+    n /= 3
+    comb = mul(comb, THREE)
+  end
+  while n % 5 == 0
+    n /= 5
+    comb = mul(comb, FIVE)
+  end
+  if n == 1
+    return comb
+  else
+    return mul(comb, "((S(S(KS)K))#{destruct(n-1)})")
+  end
+end
+
+def cons(a, b)
+  "(S(SI(K(#{a})))(K(#{b})))"
+end
+
+def ary2list(ary)
+  ([256] + ary.reverse).inject("I"){ |cdr, car|
+    cons(destruct(car), cdr)
+  }
+end
+
+def evaluate_church(comb)
+  s = {count: 0}
+  RazyK::VM.new(RazyK::Parser.parse("#{comb} $f $x"), statistics: s, recursive: true).run{|b| p b.tree }
+  s[:count]
+end
+
+def evaluate_list(comb)
+  s = {count: 0}
+  RazyK::VM.new(RazyK::Parser.parse("$OUT ((K #{comb}) $IN)"), statistics: s, recursive: false).run
+  s[:count]
+end

data/examples/hello_world.lazy

@@ -0,0 +1,39 @@
+(K
+ (S(SI(K(S(K((S(S(KS)K))(S(S(KS)K)I)))(S(K(S(K((S(S(KS)K))(S(S(KS)K)I)))
+ (S(K(S(K(S(S(KS)K)I))(S(K(S(K(S(S(KS)K)I))(S(K(S(K(S(S(KS)K)I))(S(KI)I)))I)))
+ I)))I)))I))))(K(S(SI(K(S(K((S(S(KS)K))(S(K(S(S(KS)(S(KK)(S(K(S(S(KS)K)I))I)))
+ (S(K((S(S(KS)K))(S(S(KS)K)I)))I)))(S(K(S(K(S(S(KS)(S(KK)(S(K(S(S(KS)K)I))I)))
+ (S(K((S(S(KS)K))(S(S(KS)K)I)))I)))(S(K(S(K(S(S(KS)K)I))(S(K(S(K(S(S(KS)K)I))
+ (S(KI)I)))I)))I)))I))))(S(KI)I))))(K(S(SI(K(S(K((S(S(KS)K))(S(S(KS)K)I)))
+ (S(K(S(K((S(S(KS)K))(S(S(KS)K)I)))(S(K(S(K((S(S(KS)K))(S(S(KS)K)I)))(S(K(S(K(S
+ (S(KS)K)I))(S(K(S(K(S(S(KS)K)I))(S(KI)I)))I)))I)))I)))I))))(K(S(SI(K(S(K((S(S
+ (KS)K))(S(S(KS)K)I)))(S(K(S(K((S(S(KS)K))(S(S(KS)K)I)))(S(K(S(K((S(S(KS)K))
+ (S(S(KS)K)I)))(S(K(S(K(S(S(KS)K)I))(S(K(S(K(S(S(KS)K)I))(S(KI)I)))I)))I)))I)))I))))
+ (K(S(SI(K(S(K((S(S(KS)K))(S(K((S(S(KS)K))(S(S(KS)K)I)))(S(K(S(K((S(S(KS)K))
+ (S(S(KS)K)I)))(S(K(S(K(S(S(KS)K)I))(S(K(S(K(S(S(KS)K)I))(S(KI)I)))I)))I)))I))))
+ (S(K(S(K((S(S(KS)K))(S(S(KS)K)I)))(S(KI)I)))I))))(K(S(SI(K(S(K((S(S(KS)K))
+ (S(K(S(S(KS)(S(KK)(S(K(S(S(KS)K)I))I)))(S(K((S(S(KS)K))(S(S(KS)K)I)))I)))
+ (S(K(S(K(S(S(KS)K)I))(S(KI)I)))I))))(S(K(S(K(S(S(KS)K)I))(S(K(S(K(S(S(KS)K)I))
+ (S(KI)I)))I)))I))))(K(S(SI(K(S(K(S(S(KS)K)I))(S(K(S(K(S(S(KS)K)I))(S(K(S(K(S(S
+ (KS)K)I))(S(K(S(K(S(S(KS)K)I))(S(K(S(K(S(S(KS)K)I))(S(KI)I)))I)))I)))I)))I))))
+ (K(S(SI(K(S(K((S(S(KS)K))(S(K((S(S(KS)K))(S(K((S(S(KS)K))(S(S(KS)K)I)))(S(K(S
+ (K(S(S(KS)K)I))(S(KI)I)))I))))(S(K(S(K(S(S(KS)K)I))(S(K(S(K(S(S(KS)K)I))
+ (S(KI)I)))I)))I))))(S(K(S(K((S(S(KS)K))(S(S(KS)K)I)))(S(KI)I)))I))))
+ (K(S(SI(K(S(K((S(S(KS)K))(S(K((S(S(KS)K))(S(S(KS)K)I)))(S(K(S(K((S(S(KS)K))
+ (S(S(KS)K)I)))(S(K(S(K(S(S(KS)K)I))(S(K(S(K(S(S(KS)K)I))(S(KI)I)))I)))I)))I))))
+ (S(K(S(K((S(S(KS)K))(S(S(KS)K)I)))(S(KI)I)))I))))(K(S(SI(K(S(K((S(S(KS)K))
+ (S(K((S(S(KS)K))(S(S(KS)K)I)))(S(K(S(K((S(S(KS)K))(S(S(KS)K)I)))(S(K(S(K(S(S
+ (KS)K)I))(S(KI)I)))I)))I))))(S(K(S(K((S(S(KS)K))(S(S(KS)K)I)))(S(K(S(K(S(S(KS)K)I))
+ (S(KI)I)))I)))I))))(K(S(SI(K(S(K((S(S(KS)K))(S(S(KS)K)I)))(S(K(S(K((S(S(KS)K))
+ (S(S(KS)K)I)))(S(K(S(K((S(S(KS)K))(S(S(KS)K)I)))(S(K(S(K(S(S(KS)K)I))(S(K(S(K(S
+ (S(KS)K)I))(S(KI)I)))I)))I)))I)))I))))(K(S(SI(K(S(K(S(S(KS)(S(KK)(S(K(S(S(KS)K)I))I)))
+ (S(K((S(S(KS)K))(S(S(KS)K)I)))I)))(S(K(S(K(S(S(KS)(S(KK)(S(K(S(S(KS)K)I))I)))
+ (S(K((S(S(KS)K))(S(S(KS)K)I)))I)))(S(K(S(K(S(S(KS)K)I))(S(K(S(K(S(S(KS)K)I))
+ (S(KI)I)))I)))I)))I))))(K(S(SI(K(S(K((S(S(KS)K))(S(K(S(S(KS)(S(KK)
+ (S(K(S(S(KS)K)I))I)))(S(K((S(S(KS)K))(S(S(KS)K)I)))I)))(S(K(S(K(S(S(KS)K)I))
+ (S(KI)I)))I))))(S(K(S(K((S(S(KS)K))(S(S(KS)K)I)))(S(KI)I)))I))))
+ (K(S(SI(K(S(K(S(S(KS)(S(KK)(S(K(S(S(KS)K)I))I)))(S(K((S(S(KS)K))(S(S(KS)K)I)))I)))
+ (S(K(S(K(S(S(KS)K)I))(S(KI)I)))I))))(K(S(SI(K(S(K(S(S(KS)K)I))(S(K(S(K(S(S(KS)K)I))
+ (S(K(S(K(S(S(KS)K)I))(S(K(S(K(S(S(KS)K)I))(S(K(S(K(S(S(KS)K)I))(S(K(S(K(S(S(KS)K)I))
+ (S(K(S(K(S(S(KS)K)I))(S(K(S(K(S(S(KS)K)I))(S(KI)I)))I)))I)))I)))I)))I)))I)))I))))
+ (KI)))))))))))))))))))))))))))))))

data/examples/major_scale.lazy

@@ -0,0 +1,20 @@
+K
+(S(SI(K((S(S(KS)K)I))))(K((S(SI(K((S(S(KS)K)I))))(K((S(SI(K((S(S(KS)K))((S(S(KS)
+K))(S(S(KS)K)I)))))(K((S(SI(K(KI)))(K((S(SI(K((S(S(KS)K)I))))(K((S(SI(K((S(S(KS)
+K))((S(S(KS)K))(S(S(KS)K)I)))))(K((S(SI(K((S(S(KS)K)I))))(K((S(SI(K((S(S(KS)K)I)
+)))(K((S(SI(K((S(S(KS)K))((S(S(KS)K))(S(S(KS)K)I)))))(K((S(SI(K((S(S(KS)K))((S(S
+(KS)K))(S(S(KS)K)I)))))(K((S(SI(K((S(S(KS)K)I))))(K((S(SI(K((S(S(KS)K))((S(S(KS)
+K))(S(S(KS)K)I)))))(K((S(SI(K((S(S(KS)(S(KK)(S(K(S(S(KS)K)I))I)))(S(K((S(S(KS)K)
+)(S(S(KS)K)I)))I)))))(K((S(SI(K((S(S(KS)K)I))))(K((S(SI(K((S(S(KS)K))((S(S(KS)K)
+)(S(S(KS)K)I)))))(K((S(SI(K((S(K((S(S(KS)K))(S(K((S(S(KS)K))(S(S(KS)K)I)))(S(K(S
+(K(S(S(KS)K)I))(S(KI)I)))I))))(S(KI)I)))))(K((S(SI(K((S(S(KS)K)I))))(K((S(SI(K((
+S(S(KS)K))((S(S(KS)K))(S(S(KS)K)I)))))(K((S(SI(K((S(K((S(S(KS)K))(S(S(KS)K)I)))(
+S(K(S(K((S(S(KS)K))(S(S(KS)K)I)))(S(KI)I)))I)))))(K((S(SI(K((S(S(KS)K)I))))(K((S
+(SI(K((S(S(KS)K))((S(S(KS)K))(S(S(KS)K)I)))))(K((S(SI(K((S(K((S(S(KS)K))(S(K(S(S
+(KS)(S(KK)(S(K(S(S(KS)K)I))I)))(S(K((S(S(KS)K))(S(S(KS)K)I)))I)))(S(K(S(K(S(S(KS
+)K)I))(S(KI)I)))I))))(S(KI)I)))))(K((S(SI(K((S(S(KS)K))((S(S(KS)K))(S(S(KS)K)I))
+)))(K((S(SI(K((S(S(KS)(S(KK)(S(K(S(S(KS)K)I))I)))(S(K((S(S(KS)K))(S(S(KS)K)I)))I
+)))))(K((S(SI(K(KI)))(K((S(SI(K((S(K(S(S(KS)K)I))(S(K(S(K(S(S(KS)K)I))(S(K(S(K(S
+(S(KS)K)I))(S(K(S(K(S(S(KS)K)I))(S(K(S(K(S(S(KS)K)I))(S(K(S(K(S(S(KS)K)I))(S(K(S
+(K(S(S(KS)K)I))(S(K(S(K(S(S(KS)K)I))(S(KI)I)))I)))I)))I)))I)))I)))I)))I)))))(K(I
+))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))

data/examples/minor_scale.lazy

@@ -0,0 +1,20 @@
+K
+(S(SI(K((S(S(KS)K)I))))(K((S(SI(K((S(S(KS)K)I))))(K((S(SI(K((S(S(KS)K))((S(S(KS)
+K))(S(S(KS)K)I)))))(K((S(SI(K(KI)))(K((S(SI(K((S(S(KS)K)I))))(K((S(SI(K((S(S(KS)
+K))((S(S(KS)K))(S(S(KS)K)I)))))(K((S(SI(K((S(S(KS)K)I))))(K((S(SI(K((S(S(KS)K)I)
+)))(K((S(SI(K((S(S(KS)K))((S(S(KS)K))(S(S(KS)K)I)))))(K((S(SI(K(((S(S(KS)K))(S(S
+(KS)K)I)))))(K((S(SI(K((S(S(KS)K)I))))(K((S(SI(K((S(S(KS)K))((S(S(KS)K))(S(S(KS)
+K)I)))))(K((S(SI(K((S(S(KS)(S(KK)(S(K(S(S(KS)K)I))I)))(S(K((S(S(KS)K))(S(S(KS)K)
+I)))I)))))(K((S(SI(K((S(S(KS)K)I))))(K((S(SI(K((S(S(KS)K))((S(S(KS)K))(S(S(KS)K)
+I)))))(K((S(SI(K((S(K((S(S(KS)K))(S(S(KS)K)I)))(S(K(S(K(S(S(KS)K)I))(S(KI)I)))I)
+))))(K((S(SI(K((S(S(KS)K)I))))(K((S(SI(K((S(S(KS)K))((S(S(KS)K))(S(S(KS)K)I)))))
+(K((S(SI(K((S(K(S(S(KS)K)I))(S(K(S(K(S(S(KS)K)I))(S(K(S(K(S(S(KS)K)I))(S(KI)I)))
+I)))I)))))(K((S(SI(K((S(S(KS)K)I))))(K((S(SI(K((S(S(KS)K))((S(S(KS)K))(S(S(KS)K)
+I)))))(K((S(SI(K((S(K(S(S(KS)(S(KK)(S(K(S(S(KS)K)I))I)))(S(K((S(S(KS)K))(S(S(KS)
+K)I)))I)))(S(K(S(K(S(S(KS)K)I))(S(KI)I)))I)))))(K((S(SI(K((S(S(KS)K))((S(S(KS)K)
+)(S(S(KS)K)I)))))(K((S(SI(K((S(S(KS)(S(KK)(S(K(S(S(KS)K)I))I)))(S(K((S(S(KS)K))(
+S(S(KS)K)I)))I)))))(K((S(SI(K(KI)))(K((S(SI(K((S(K(S(S(KS)K)I))(S(K(S(K(S(S(KS)K
+)I))(S(K(S(K(S(S(KS)K)I))(S(K(S(K(S(S(KS)K)I))(S(K(S(K(S(S(KS)K)I))(S(K(S(K(S(S(
+KS)K)I))(S(K(S(K(S(S(KS)K)I))(S(K(S(K(S(S(KS)K)I))(S(KI)I)))I)))I)))I)))I)))I)))
+I)))I)))))(K(I))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+))))))))))))

data/examples/score2lazy.rb

@@ -0,0 +1,38 @@
+require_relative "encoder"
+
+scores = $stdin.read.split(/\s+/m)
+tempo = scores.shift.to_i
+
+def name2tone(s)
+  /\A(\d*)([A-G])(\d+)([-+]?)\z/ =~ s
+  l = Regexp.last_match(1)
+  k = Regexp.last_match(2)
+  o = Regexp.last_match(3)
+  shift = Regexp.last_match(4)
+  if l == ""
+    l = 1
+  else
+    l = l.to_i
+  end
+  o = o.to_i
+  k = {"C" => 0, "D" => 2, "E" => 4, "F" => 5, "G" => 7, "A" => 9, "B" => 11}[k]
+  if shift == "-"
+    k -= 1
+    if k == -1
+      o -= 1
+      k = 11
+    end
+  elsif shift == "+"
+    k += 1
+    if k == 12
+      o += 1
+      k = 0
+    end
+  end
+  [l, o, k]
+end
+
+lazy = "K" + ary2list([tempo, scores.map{|s| name2tone(s) }].flatten)
+puts lazy
+
+system("bundle exec razyk --audio -e '#{lazy}'")

data/lib/razyk.rb

@@ -6,10 +6,15 @@ require "razyk/vm"
 module RazyK
   def self.run(program, opt={}, &blk)
     opt[:input] ||= $stdin
-    opt[:output] ||= $stdout
+    if opt[:audio]
+      opt[:output] = RazyK::Audio::Port.new
+    else
+      opt[:output] ||= $stdout
+    end
+    opt[:memory] ||= {}
     tree = Parser.parse(program, opt)
     root = Pair.new(:OUT, Pair.new(tree, :IN))
-    vm = VM.new(root, opt[:input], opt[:output])
+    vm = VM.new(root, opt[:input], opt[:output], recursive: opt[:recursive], statistics: opt[:statistics])
 
     if blk
       vm.run(&blk)

data/lib/razyk/application.rb

@@ -0,0 +1,108 @@
+#!/usr/bin/env ruby
+
+require "razyk"
+require "optparse"
+
+module RazyK
+  class ApplicationError < RuntimeError; end
+
+  class Application
+
+    def initialize
+      @program = nil
+      @step = false
+      @web_server = false
+      @optparse = option_parser
+    end
+
+    def option_parser
+      OptionParser.new do |opt|
+        opt.banner = "Usage: razyk [options] [programfile]"
+        opt.on("-e 'program'",
+               "specify LazyK program string. Omit [programfile]") do |prog|
+          @program = prog
+        end
+        opt.on("-s", "--step", "step execution. Dump combinator tree by each step") do
+          @step = true
+        end
+        opt.on("--server [PORT]", "start web server") do |port|
+          @port = Integer(port || 9292)
+          @step = true
+          @web_server = true
+        end
+        opt.on("--[no-]statistics", "dump statistics information at exit") do
+          @statistics = { count: 0 }
+        end
+        opt.on("--audio", "output audio stream (supported on only OS X and coreaudio.gem is required)") do
+          begin
+            require "coreaudio"
+          rescue LoadError
+            raise RazyK::ApplicationError, "--audio option require coreaudio.gem (available only on OS X). Please install coreaudio.gem"
+          end
+          require "razyk/audio"
+          @audio = true
+        end
+      end
+    end
+    private :option_parser
+
+    def run_web_server
+      require "razyk/webapp"
+      app = RazyK::WebApp.new
+      # This should work, but rack-1.2.1 fails. :app don't overwrite config.ru
+      #Rack::Server.start(:app => app, :Port => @port)
+      trap(:INT) do
+        if Rack::Handler::WEBrick.respond_to?(:shutdown)
+          Rack::Handler::WEBrick.shutdown
+        else
+          exit
+        end
+      end
+      Rack::Handler::WEBrick.run(app, :Port => @port)
+    end
+
+    def run_interpreter(argv)
+      if @program.nil?
+        if argv.empty?
+          raise RazyK::ApplicationError, "please specify LazyK program file"
+        end
+        filepath = argv.shift
+        unless File.readable?(filepath)
+          raise RazyK::ApplicationError, "#{filepath} not found or not readable"
+        end
+        @program = IO.read(filepath)
+      end
+
+      opts = {
+        statistics: @statistics,
+        audio: @audio,
+      }
+
+      if @step
+        RazyK.run(@program, opts) do |vm|
+          $stderr.puts vm.tree.inspect
+        end
+      else
+        RazyK.run(@program, opts)
+      end
+    ensure
+      if @statistics
+        puts "Statistics Info:"
+        puts "\t#{@statistics[:started_at]} - #{@statistics[:finished_at]} (#{@statistics[:finished_at]-@statistics[:started_at]} sec)"
+        puts "\treduce count: #{@statistics[:count]}"
+      end
+    end
+
+    def run(argv)
+      @optparse.parse!(argv)
+
+      if @web_server
+        run_web_server
+      else
+        run_interpreter(argv)
+      end
+    rescue RazyK::ApplicationError
+      $stderr.puts($!.message)
+    end
+  end
+end

data/lib/razyk/audio.rb

@@ -0,0 +1,8 @@
+# coding: utf-8
+
+require "coreaudio"
+
+require "razyk/audio/port"
+require "razyk/audio/player"
+
+

data/lib/razyk/audio/player.rb

@@ -0,0 +1,68 @@
+# coding: utf-8
+
+require "coreaudio"
+require "thread"
+
+module RazyK::Audio
+  class Player
+    def initialize(tempo: 4)
+      @tempo = tempo
+      @dev = CoreAudio.default_output_device
+      @buf = @dev.output_buffer(1024)
+      @beat_samples = (@dev.nominal_rate / (@tempo * 4)).floor
+      @beat_bufs = Hash.new { |h, k| h[k] = NArray.sint(@beat_samples * (k+1)) }
+      @samples = 0
+      @queue = Queue.new
+      @thread = nil
+    end
+
+    def play(length, octave, note)
+      unless (0..8).include?(octave)
+        octave = 4
+      end
+      unless (0..11).include?(note)
+        note = 0
+      end
+      @queue.push([length, octave, note])
+      if @thread.nil? or not(@thread.status)
+        @thread = Thread.start{ run }
+      end
+    end
+
+    def stop
+      @queue.push(nil)
+      @thread.join if @thread
+    end
+
+    def run
+      begin
+        @buf.start
+        while (tuple = @queue.pop)
+          length, octave, note = tuple
+          wav = @beat_bufs[length]
+          if octave | note == 0
+            wav.fill!(0)
+          else
+            freq = (440.0 * (2 ** (octave-4))) # An
+            freq *= 2 ** ((note-9)/12.0)
+            phase = Math::PI * 2 * freq / @dev.nominal_rate
+            breath = (@beat_samples * 0.2).round
+            eot = wav.size - breath
+            eot.times do |j|
+              wav[j] = (0.7 * Math.sin(phase*(@samples+j)) * 0x7FFF).round
+            end
+            breath.times do |j|
+              wav[eot+j] = 0
+            end
+            @samples += wav.size
+            @buf << wav
+          end
+        end
+      rescue
+        puts $!, $@
+      ensure
+        @buf.stop
+      end
+    end
+  end
+end

data/lib/razyk/audio/port.rb

@@ -0,0 +1,36 @@
+# coding: utf-8
+
+require "razyk/audio/player"
+
+module RazyK::Audio
+  class Port
+    def initialize
+      @player = nil
+      @note_length = nil
+      @octave = nil
+    end
+
+    def write(s)
+      bytes = s.unpack("C*")
+      if @player.nil?
+        @player = RazyK::Audio::Player.new(tempo: bytes.shift)
+      end
+      bytes.each do |b|
+        if @note_length and @octave
+          @player.play(@note_length, @octave, b)
+          @note_length = nil
+          @octave = nil
+        elsif @note_length
+          @octave = b
+        else
+          @note_length = b
+        end
+      end
+      s
+    end
+
+    def close_write
+      @player.stop
+    end
+  end
+end