pingpongpear 1.0.0

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: 398675b7d66d9103e11e13a4c5e16d6dc4084dac
+  data.tar.gz: ebe8152549dae3433f437f563af4f6abe22b49b6
+SHA512:
+  metadata.gz: 2794b44623036b5b525c332fe52e676e9b751585c0406ba63c77fb5fcc9b712b7956131114c00a12794a4de425be655a144b8202dc7a2d39e95a20a496a4a9bb
+  data.tar.gz: b61c396a9d1fd66ca26d9604e3f508f5969e7377c671378b690c0ea1abe72140d09c01fc5755511fd2e1e0a5baaca80f655a4ebf1d660d4d1fb66d9e5323de53

data/.autotest

@@ -0,0 +1,8 @@
+# -*- ruby -*-
+
+require 'autotest/restart'
+
+Autotest.add_hook :initialize do |at|
+  at.testlib          = 'minitest/autorun'
+  at.find_directories = ARGV unless ARGV.empty?
+end

data/CHANGELOG.rdoc

@@ -0,0 +1,6 @@
+=== 1.0.0 / 2015-01-03
+
+* 1 major enhancement
+
+  * Birthday!
+

data/Manifest.txt

@@ -0,0 +1,8 @@
+.autotest
+CHANGELOG.rdoc
+Manifest.txt
+README.rdoc
+Rakefile
+bin/pingpongpear
+lib/ping_pong_pear.rb
+test/test_ping_pong_pear.rb

data/README.rdoc

@@ -0,0 +1,52 @@
+= ping_pong_pear
+
+* http://github.com/tenderlove/pingpongpear
+
+== DESCRIPTION:
+
+It is for ping pong pearing
+
+== FEATURES/PROBLEMS:
+
+* many
+
+== SYNOPSIS:
+
+$ pingpongpear start team_fun
+
+Other machine:
+
+$ pingpongpear clone team_fun
+$ cd team_fun
+$ pingpongpear start
+
+Then start pairing
+
+== INSTALL:
+
+* gem install pingpongpear
+
+== LICENSE:
+
+(The MIT License)
+
+Copyright (c) 2015 Aaron Patterson
+
+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/Rakefile

@@ -0,0 +1,18 @@
+# -*- ruby -*-
+
+require 'rubygems'
+require 'hoe'
+
+Hoe.plugins.delete :rubyforge
+Hoe.plugin :minitest
+Hoe.plugin :gemspec # `gem install hoe-gemspec`
+Hoe.plugin :git     # `gem install hoe-git`
+
+Hoe.spec 'pingpongpear' do
+  developer('Aaron Patterson', 'aaron@tenderlovemaking.com')
+  self.readme_file   = 'README.rdoc'
+  self.history_file  = 'CHANGELOG.rdoc'
+  self.extra_rdoc_files  = FileList['*.rdoc']
+end
+
+# vim: syntax=ruby

data/bin/pingpongpear

@@ -0,0 +1,4 @@
+#!/usr/bin/env ruby
+
+require 'ping_pong_pear'
+PingPongPear::Commands.run ARGV

data/lib/ping_pong_pear.rb

@@ -0,0 +1,143 @@
+require 'socket'
+require 'ipaddr'
+require 'json'
+
+module PingPongPear
+  VERSION        = '1.0.0'
+  UDP_PORT       = 4545
+  MULTICAST_ADDR = "224.0.0.1"
+
+  class Broadcaster
+    def self.my_public_address
+      Socket.ip_address_list.reject { |addr|
+        addr.ipv4_loopback? || addr.ipv6_loopback? || addr.ipv6_linklocal?
+      }.first
+    end
+
+    def self.send_update args
+      new.send ['commit'] + args
+    end
+
+    def self.send_location name, address, port
+      new.send ['source', name, address, port]
+    end
+
+    def self.where_is? name
+      listener_t = Thread.new {
+        listener = Listener.new
+        listener.start { |cmd, n, *rest|
+          break(rest) if cmd == 'source' && n == name
+        }
+      }
+      broadcast = new
+      while listener_t.alive?
+        broadcast.send ['locate', name]
+      end
+      addr, port = listener_t.value
+      "http://#{addr}:#{port}/"
+    end
+
+    def initialize
+      @multicast_addr = MULTICAST_ADDR
+      @port           = UDP_PORT
+      @socket         = UDPSocket.open
+      @socket.setsockopt :IPPROTO_IP, :IP_MULTICAST_TTL, 1
+    end
+
+    def send message
+      @socket.send(JSON.dump(message), 0, @multicast_addr, @port)
+    end
+  end
+
+  class Listener
+    def initialize
+      @multicast_addr = MULTICAST_ADDR
+      @bind_addr      = "0.0.0.0"
+      @port           = UDP_PORT
+
+      @socket = UDPSocket.new
+      membership = IPAddr.new(@multicast_addr).hton + IPAddr.new(@bind_addr).hton
+
+      @socket.setsockopt :IPPROTO_IP, :IP_ADD_MEMBERSHIP, membership
+      @socket.setsockopt :SOL_SOCKET, :SO_REUSEPORT, 1
+
+      @socket.bind @bind_addr, @port
+    end
+
+    def start
+      loop do
+        message, _ = @socket.recvfrom 1024
+        yield JSON.parse(message)
+      end
+    end
+  end
+
+  module Commands
+    def self.start args
+      require 'webrick'
+      require 'securerandom'
+      require 'shellwords'
+
+      project_name     = args.first || File.basename(Dir.pwd)
+      post_commit_hook = '.git/hooks/post-commit'
+      uuid             = SecureRandom.uuid
+
+      system 'git update-server-info'
+
+      server = WEBrick::HTTPServer.new Port: 0, DocumentRoot: '.git'
+      http_port = server.listeners.map { |x| x.addr[1] }.first
+      my_address = Broadcaster.my_public_address.ip_address
+
+      File.open(post_commit_hook, 'w') { |f|
+        f.puts "#!/usr/bin/env ruby"
+        f.puts "ARGV[0] = 'update'"
+        f.puts "ARGV[1] = '#{project_name}'"
+        f.puts "ARGV[2] = '#{uuid}'"
+        f.puts "ARGV[3] = '#{my_address}'"
+        f.puts "ARGV[4] = '#{http_port}'"
+        f.write File.read __FILE__
+      }
+      File.chmod 0755, post_commit_hook
+
+      Thread.new {
+        listener = PingPongPear::Listener.new
+        listener.start { |cmd, name, *rest|
+          next unless name == project_name
+
+          case cmd
+          when 'locate' then Broadcaster.send_location project_name, my_address, http_port
+          when 'commit'
+            unless rest.first == uuid
+              url = "http://#{rest.drop(1).join(':')}"
+              system "git pull #{Shellwords.escape(url)}"
+            end
+          end
+        }
+      }
+
+      trap('INT') {
+        File.unlink post_commit_hook
+        server.shutdown
+      }
+      server.start
+    end
+
+    def self.clone args
+      require 'shellwords'
+      name = args.first
+      url = PingPongPear::Broadcaster.where_is? name
+      system "git clone #{Shellwords.escape(url)} #{Shellwords.escape(name)}"
+    end
+
+    def self.update args
+      system 'git update-server-info'
+      PingPongPear::Broadcaster.send_update args
+    end
+
+    def self.run args
+      send args.first, args.drop(1)
+    end
+  end
+end
+
+PingPongPear::Commands.run(ARGV) if $0 == __FILE__

data/test/test_ping_pong_pear.rb

@@ -0,0 +1,247 @@
+require 'minitest/autorun'
+require 'ping_pong_pear'
+require 'tmpdir'
+
+class TestPingPongPear < MiniTest::Test
+  def setup
+    super
+    @current_dir = Dir.pwd
+    Dir.chdir Dir.mktmpdir
+  end
+
+  def teardown
+    Dir.chdir @current_dir
+    super
+  end
+
+  def test_boot
+    system 'git init'
+    stderr_rd, stderr_wr = IO.pipe
+    pid = fork {
+      $stderr.reopen stderr_wr
+      PingPongPear::Commands.run ['start']
+    }
+    stderr_wr.close
+    loop do
+      line = stderr_rd.readline
+      break if line =~ /WEBrick::HTTPServer#start/
+    end
+    assert File.exist? '.git/hooks/post-commit'
+  ensure
+    Process.kill 'INT', pid
+    Process.waitpid pid
+  end
+
+  def test_shutdown
+    system 'git init'
+    stderr_rd, stderr_wr = IO.pipe
+    pid = fork {
+      $stderr.reopen stderr_wr
+      PingPongPear::Commands.run ['start']
+    }
+    stderr_wr.close
+    loop do
+      line = stderr_rd.readline
+      break if line =~ /WEBrick::HTTPServer#start/
+    end
+    assert File.exist? '.git/hooks/post-commit'
+    Process.kill 'INT', pid
+    Process.waitpid pid
+    refute File.exist? '.git/hooks/post-commit'
+  end
+
+  def test_clone
+    system 'git init'
+    File.write 'out.txt', 'aset'
+    system 'git add out.txt'
+    system 'git commit -m"xx"'
+
+    project_name = File.basename Dir.pwd
+    stderr_rd, stderr_wr = IO.pipe
+    pid = fork {
+      $stderr.reopen stderr_wr
+      PingPongPear::Commands.run ['start']
+    }
+    stderr_wr.close
+    loop do
+      line = stderr_rd.readline
+      break if line =~ /WEBrick::HTTPServer#start/
+    end
+
+    Dir.chdir Dir.mktmpdir
+    PingPongPear::Commands.run ['clone', project_name]
+
+    assert File.exist?(project_name), 'should be cloned'
+    assert File.exist? File.join(project_name, 'out.txt')
+  ensure
+    Process.kill 'INT', pid
+    Process.waitpid pid
+  end
+
+  def boot
+    stderr_rd, stderr_wr = IO.pipe
+    stdout_rd, stdout_wr = IO.pipe
+    pid = fork {
+      $stderr.reopen stderr_wr
+      $stdout.reopen stdout_wr
+      PingPongPear::Commands.run ['start']
+    }
+    stderr_wr.close
+    stdout_wr.close
+    loop do
+      line = stderr_rd.readline
+      break if line =~ /WEBrick::HTTPServer#start/
+    end
+    [pid, stderr_rd, stdout_rd]
+  end
+
+  def test_commit
+    system 'git init'
+    File.write 'out.txt', 'aset'
+    system 'git add out.txt'
+    system 'git commit -m"xx"'
+
+    project_name = File.basename Dir.pwd
+    pid, err, out = boot
+
+    original_dir = File.expand_path Dir.pwd
+    Dir.chdir Dir.mktmpdir
+    PingPongPear::Commands.run ['clone', project_name]
+    pid2 = nil
+    Dir.chdir(project_name) do
+      pid2, = boot
+
+      File.write 'out2.txt', 'ddddd'
+      system 'git add out2.txt'
+      system 'git commit -m"xx"'
+    end
+    require 'timeout'
+    Timeout.timeout(2) {
+      loop do
+        break if File.exist? File.join(original_dir, 'out2.txt')
+      end
+    }
+  ensure
+    Process.kill 'INT', pid
+    Process.waitpid pid
+    Process.kill 'INT', pid2
+    Process.waitpid pid2
+  end
+
+  def test_commit_works_on_branches
+    system 'git init'
+    File.write 'out.txt', 'aset'
+    system 'git checkout -b xxx'
+    system 'git add out.txt'
+    system 'git commit -m"xx"'
+
+    project_name = File.basename Dir.pwd
+    stderr_rd, stderr_wr = IO.pipe
+    pid = fork {
+      $stderr.reopen stderr_wr
+      PingPongPear::Commands.run ['start']
+    }
+    stderr_wr.close
+    loop do
+      line = stderr_rd.readline
+      break if line =~ /WEBrick::HTTPServer#start/
+    end
+
+    original_dir = File.expand_path Dir.pwd
+    newdir = Dir.mktmpdir
+    Dir.chdir newdir
+    PingPongPear::Commands.run ['clone', project_name]
+    Dir.chdir project_name
+
+    pid2 = fork { PingPongPear::Commands.run ['start'] }
+    loop do
+      break if File.exist? '.git/hooks/post-commit'
+    end
+    File.write 'out2.txt', 'ddddd'
+    system 'git checkout xxx'
+    system 'git add out2.txt'
+    system 'git commit -m"xx"'
+    require 'timeout'
+    Timeout.timeout(2) {
+      loop do
+        break if File.exist? File.join(original_dir, 'out2.txt')
+      end
+    }
+  ensure
+    Process.kill 'INT', pid
+    Process.waitpid pid
+    Process.kill 'INT', pid2
+    Process.waitpid pid2
+  end
+
+  def test_clone_works_with_name
+    system 'git init'
+    File.write 'out.txt', 'aset'
+    system 'git add out.txt'
+    system 'git commit -m"xx"'
+
+    project_name = 'foo'
+    stderr_rd, stderr_wr = IO.pipe
+    pid = fork {
+      $stderr.reopen stderr_wr
+      PingPongPear::Commands.run ['start', project_name]
+    }
+    stderr_wr.close
+    loop do
+      line = stderr_rd.readline
+      break if line =~ /WEBrick::HTTPServer#start/
+    end
+
+    Dir.chdir Dir.mktmpdir
+    PingPongPear::Commands.run ['clone', project_name]
+
+    assert File.exist?(project_name), 'should be cloned'
+    assert File.exist? File.join(project_name, 'out.txt')
+  ensure
+    Process.kill 'INT', pid
+    Process.waitpid pid
+  end
+
+  def test_commit_works_with_name
+    system 'git init'
+    File.write 'out.txt', 'aset'
+    system 'git add out.txt'
+    system 'git commit -m"xx"'
+
+    project_name = 'foo'
+    stderr_rd, stderr_wr = IO.pipe
+    pid = fork {
+      $stderr.reopen stderr_wr
+      PingPongPear::Commands.run ['start', project_name]
+    }
+    stderr_wr.close
+    loop do
+      line = stderr_rd.readline
+      break if line =~ /WEBrick::HTTPServer#start/
+    end
+
+    original_dir = File.expand_path Dir.pwd
+    Dir.chdir Dir.mktmpdir
+    PingPongPear::Commands.run ['clone', project_name]
+    Dir.chdir project_name
+
+    pid2 = fork { PingPongPear::Commands.run ['start', project_name] }
+    loop do
+      break if File.exist? '.git/hooks/post-commit'
+    end
+    File.write 'out2.txt', 'ddddd'
+    system 'git add out2.txt'
+    system 'git commit -m"xx"'
+    require 'timeout'
+    Timeout.timeout(2) {
+      loop do
+        break if File.exist? File.join(original_dir, 'out2.txt')
+      end
+    }
+  ensure
+    Process.kill 'INT', pid
+    Process.waitpid pid
+    Process.kill 'INT', pid2
+    Process.waitpid pid2
+  end
+end

metadata

@@ -0,0 +1,102 @@
+--- !ruby/object:Gem::Specification
+name: pingpongpear
+version: !ruby/object:Gem::Version
+  version: 1.0.0
+platform: ruby
+authors:
+- Aaron Patterson
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2015-01-06 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: minitest
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '5.5'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '5.5'
+- !ruby/object:Gem::Dependency
+  name: rdoc
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '4.0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '4.0'
+- !ruby/object:Gem::Dependency
+  name: hoe
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '3.13'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '3.13'
+description: It is for ping pong pearing
+email:
+- aaron@tenderlovemaking.com
+executables:
+- pingpongpear
+extensions: []
+extra_rdoc_files:
+- CHANGELOG.rdoc
+- Manifest.txt
+- README.rdoc
+files:
+- ".autotest"
+- ".gemtest"
+- CHANGELOG.rdoc
+- Manifest.txt
+- README.rdoc
+- Rakefile
+- bin/pingpongpear
+- lib/ping_pong_pear.rb
+- test/test_ping_pong_pear.rb
+homepage: http://github.com/tenderlove/pingpongpear
+licenses:
+- MIT
+metadata: {}
+post_install_message: 
+rdoc_options:
+- "--main"
+- README.rdoc
+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.4.5
+signing_key: 
+specification_version: 4
+summary: It is for ping pong pearing
+test_files:
+- test/test_ping_pong_pear.rb