tiny_frp 0.0.1

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: 7b7543c7cb87158728c311de095ecabe8efe772f
+  data.tar.gz: 6adb9c7b7e19c7ad4c5c42dd834b291055f10f27
+SHA512:
+  metadata.gz: 5512cda0b886039366ba73b45d78fe08f61cadfb297365a3e1eb34bce747ee80ab97749c99b1b75f4d19d13544bd29e12ad2d5eb5f46fbc2009daaf98de3f3e8
+  data.tar.gz: 9865e8ae70843349b993b15e353f3a644b46bb675f9c707437f89338ee2cf4ea797321ee21113beea564d9cd7d9209908ab1f7b16a8c37fca2444d22dbc27783

data/.gitignore

@@ -0,0 +1,16 @@
+/.bundle/
+/.yardoc
+/Gemfile.lock
+/_yardoc/
+/coverage/
+/doc/
+/pkg/
+/spec/reports/
+/tmp/
+*.bundle
+*.so
+*.o
+*.a
+*~
+*#
+mkmf.log

data/Gemfile

@@ -0,0 +1,4 @@
+source 'https://rubygems.org'
+
+# Specify your gem's dependencies in frp.gemspec
+gemspec

data/LICENSE.txt

@@ -0,0 +1,22 @@
+Copyright (c) 2015 sawaken
+
+MIT License
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README.md

@@ -0,0 +1,32 @@
+# TinyFrp
+
+Very small and simple library to do (functional)-reactive-programming in Ruby.
+
+## Installation
+
+Add this line to your application's Gemfile:
+
+```ruby
+gem 'frp'
+```
+
+And then execute:
+
+    $ bundle
+
+Or install it yourself as:
+
+    $ gem install frp
+
+## Usage
+
+
+
+
+## Contributing
+
+1. Fork it ( https://github.com/sawaken/tiny-frp/fork )
+2. Create your feature branch (`git checkout -b my-new-feature`)
+3. Commit your changes (`git commit -am 'Add some feature'`)
+4. Push to the branch (`git push origin my-new-feature`)
+5. Create a new Pull Request

data/Rakefile

@@ -0,0 +1,8 @@
+require "bundler/gem_tasks"
+require "rake/testtask"
+
+Rake::TestTask.new do |test|
+  test.test_files = Dir["unit_test/**/test_*.rb"]
+  test.verbose = true
+end
+

data/lib/tiny_frp/version.rb

@@ -0,0 +1,3 @@
+module TinyFRP
+  VERSION = "0.0.1"
+end

data/lib/tiny_frp.rb

@@ -0,0 +1,138 @@
+require "tiny_frp/version"
+
+module TinyFRP
+  class Runtime
+    def initialize(signal)
+      @parents = Runtime.make_map(signal)
+      @children = Runtime.traverse(signal)
+      @inputs = @parents.keys.select{|node| @parents[node] == []}
+    end
+
+    def self.make_map(signal)
+      signal.assigned_signals.inject({}){|h, s|
+        h.merge(make_map(s))
+      }.merge(signal.node => signal.assigned_signals.map{|s| s.node})
+    end
+
+    def self.traverse(signal)
+      signal.assigned_signals.each_with_index.inject({signal.node =>[]}) do |h, a|
+        s, i = *a
+        edges = traverse(s).merge(s.node => [[i, signal.node]]){|k, old, new| (old + new).uniq}
+        h.merge(edges){|k, old, new| (old + new).uniq}
+      end
+    end
+
+    def conduct
+      received = Hash.new([])
+      queue = Array.new(@inputs)
+      until queue.empty?
+        node = queue.shift
+        val = node.call(*received[node].sort{|a, b| a[0] <=> b[0]}.map{|idx, val| val})
+        @children[node].each do |idx, ch_node|
+          received[ch_node] = received[ch_node] + [[idx, val]]
+          if received[ch_node].size == @parents[ch_node].size
+            queue << ch_node
+          end
+        end
+      end
+      return val
+    end
+
+    def run(mode=:loop, &proc)
+      case mode
+      when :loop
+        loop{ 
+          v = conduct
+          proc.call(v) if proc
+        }
+      when 0
+        []
+      when 1
+        [conduct]
+      when Integer
+        [conduct] + run(mode - 1)
+      end
+    end
+  end
+
+  class Signal
+    attr_reader :node, :assigned_signals
+    def initialize(node, assigned_signals)
+      @node, @assigned_signals = node, assigned_signals
+    end
+  end
+
+  class Node
+    attr_reader :fixed_argc
+
+    def >>(node)
+      node.apply([self])
+    end
+
+    def apply(args)
+      signals = args.map{|s| s.is_a?(Node) && s.fixed_argc == 0 ? Signal.new(s, []) : s}
+      if signals.any?{|s| !s.is_a?(Signal)}
+        raise "Error: cannot apply SignalFunction to Non-Signal Object."
+      end
+      if signals.size < @fixed_argc || (!@rest_arg && signals.size != @fixed_argc)
+        raise "Error: cannot apply SignalFunction to Signals."
+      end
+      Signal.new(self, signals)
+    end
+  end
+
+  class Foldp < Node
+    def initialize(initial_state, proc, fixed_argc, rest_arg)
+      @state, @proc  = initial_state, proc
+      @fixed_argc, @rest_arg = fixed_argc, rest_arg
+    end
+
+    def update(diff)
+      @state.keys.map{|k| [k, diff[k] || @state[k]]}.to_h
+    end
+
+    def call(*raw_args)
+      @state = update(@proc.call(@state, *raw_args))
+    end
+  end
+
+  class Lift < Node
+    def initialize(proc, fixed_argc, rest_arg=false)
+      @proc, @fixed_argc, @rest_arg = proc, fixed_argc, rest_arg
+    end
+
+    def call(*raw_args)
+      @proc.call(*raw_args)
+    end
+  end
+   
+  class Bundler
+    def initialize(signals)
+      @signals = signals
+    end
+
+    def >>(node)
+      node.apply(@signals)
+    end
+  end
+
+  def self.foldp(initial_state, &proc)
+    fixed_argc = proc.parameters.select{|t, n| t == :opt}.count - 1
+    rest_arg = proc.parameters.any?{|t, n| t == :rest}
+    Foldp.new(initial_state, proc, fixed_argc, rest_arg)
+  end
+
+  def self.bundle(*signals)
+    Bundler.new(signals)
+  end
+
+  def self.lift(&proc)
+    fixed_argc = proc.parameters.select{|t, n| t == :opt}.count
+    rest_arg = proc.parameters.any?{|t, n| t == :rest}
+    Lift.new(proc, fixed_argc, rest_arg)
+  end
+
+  def self.bottom
+    Lift.new(proc{|*_| nil}, 0, true)
+  end
+end

data/tiny_frp.gemspec

@@ -0,0 +1,24 @@
+# -*- mode: ruby -*-
+# coding: utf-8
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'tiny_frp/version'
+
+Gem::Specification.new do |spec|
+  spec.name          = "tiny_frp"
+  spec.version       = TinyFRP::VERSION
+  spec.authors       = ["sawaken"]
+  spec.email         = ["sasasawada@gmail.com"]
+  spec.summary       = %q{Very small and simple library to do (functional)-reactive-programming in Ruby.}
+  spec.description   = %q{}
+  spec.homepage      = ""
+  spec.license       = "MIT"
+
+  spec.files         = `git ls-files -z`.split("\x0")
+  spec.executables   = spec.files.grep(%r{^bin/}) { |f| File.basename(f) }
+  spec.test_files    = spec.files.grep(%r{^(test|spec|features)/})
+  spec.require_paths = ["lib"]
+
+  spec.add_development_dependency "bundler", "~> 1.7"
+  spec.add_development_dependency "rake", "~> 10.0"
+end

data/unit_test/test_tiny_frp.rb

@@ -0,0 +1,83 @@
+$LIBRARY_ROOT_PATH = File.dirname(File.expand_path(File.dirname(__FILE__)))
+
+module TinyFRP
+  module UnitTest
+    require 'test/unit'
+    require $LIBRARY_ROOT_PATH + '/lib/tiny_frp.rb'
+
+    class RuntimeTest < Test::Unit::TestCase
+      def test_make_map
+        s1 = Signal.new(:node_a, [])
+        s2 = Signal.new(:node_b, [])
+        s3 = Signal.new(:node_c, [s1, s2])
+        s4 = Signal.new(:node_d, [s3])
+        s5 = Signal.new(:node_e, [s3])
+        s6 = Signal.new(:node_f, [s4, s5])
+        ps = Runtime.make_map(s6)
+
+        assert_equal([],                 ps[:node_a])
+        assert_equal([],                 ps[:node_b])
+        assert_equal([:node_a, :node_b], ps[:node_c])
+        assert_equal([:node_c],          ps[:node_d])
+        assert_equal([:node_c],          ps[:node_e])        
+        assert_equal([:node_d, :node_e], ps[:node_f])
+      end
+
+      def test_traverse
+        s1 = Signal.new(:node_a, [])
+        s2 = Signal.new(:node_b, [])
+        s3 = Signal.new(:node_c, [s1, s2])
+        s4 = Signal.new(:node_d, [s3])
+        s5 = Signal.new(:node_e, [s3])
+        s6 = Signal.new(:node_f, [s4, s5])
+        cs = Runtime.traverse(s6)
+
+        assert_equal(1, cs[:node_a].size)
+        assert(cs[:node_a].include? [0, :node_c])
+
+        assert_equal(1, cs[:node_b].size)
+        assert(cs[:node_b].include? [1, :node_c])
+
+        assert_equal(2, cs[:node_c].size)
+        assert(cs[:node_c].include? [0, :node_d])
+        assert(cs[:node_c].include? [0, :node_e])
+
+        assert_equal(1, cs[:node_d].size)
+        assert(cs[:node_d].include? [0, :node_f])
+
+        assert_equal(1, cs[:node_e].size)
+        assert(cs[:node_e].include? [1, :node_f])
+
+        assert_equal(0, cs[:node_f].size)
+      end
+
+      def test_conduct
+        v1, v2 = 0, 1
+        s1 = Signal.new(proc{ v1 = v1 + 1}, [])
+        s2 = Signal.new(proc{ v2 = v2 * 2}, [])
+        s3 = Signal.new(proc{|a, b| a + b}, [s1, s2])
+
+        assert_equal([1+2, 2+4, 3+8, 4+16, 5+32], Runtime.new(s3).run(5))
+      end
+
+      def test_lift
+        v1, v2 = 0, 1
+        l1 = TinyFRP.lift{v1 = v1 + 1}
+        l2 = TinyFRP.lift{v2 = v2 * 2}
+        signal = TinyFRP.bundle(l1, l2) >> TinyFRP.lift{|a, b| a + b}
+        
+        assert_equal([1+2, 2+4, 3+8, 4+16, 5+32], Runtime.new(signal).run(5))
+      end
+
+      def test_foldp
+        f1 = TinyFRP.foldp(val: 0){|acc| {val: acc[:val] + 1}}
+        f2 = TinyFRP.foldp(val: 1){|acc| {val: acc[:val] * 2}}
+        signal = TinyFRP.bundle(f1, f2) >> TinyFRP.lift{|a, b| a[:val] + b[:val]}
+
+        assert_equal([1+2, 2+4, 3+8, 4+16, 5+32], Runtime.new(signal).run(5))
+      end
+    end
+  end
+end
+
+      

metadata

@@ -0,0 +1,82 @@
+--- !ruby/object:Gem::Specification
+name: tiny_frp
+version: !ruby/object:Gem::Version
+  version: 0.0.1
+platform: ruby
+authors:
+- sawaken
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2015-02-01 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: bundler
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.7'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.7'
+- !ruby/object:Gem::Dependency
+  name: rake
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '10.0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '10.0'
+description: ''
+email:
+- sasasawada@gmail.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- ".gitignore"
+- Gemfile
+- LICENSE.txt
+- README.md
+- Rakefile
+- lib/tiny_frp.rb
+- lib/tiny_frp/version.rb
+- tiny_frp.gemspec
+- unit_test/test_tiny_frp.rb
+homepage: ''
+licenses:
+- MIT
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.2.2
+signing_key: 
+specification_version: 4
+summary: Very small and simple library to do (functional)-reactive-programming in
+  Ruby.
+test_files: []