remote-dcl 0.1.0

data/Gemfile

@@ -0,0 +1,4 @@
+source "http://rubygems.org"
+
+# Specify your gem's dependencies in remote-dcl.gemspec
+gemspec

data/LICENSE.txt

@@ -0,0 +1,34 @@
+Remote-DCL is copyrighted free software by Seiya Nishizawa and GFD
+Dennou Club (http://www.gfd-dennou.org/).
+
+Copyright 2012 (C) Seiya Nishizawa and GFD Dennou Club
+(http://www.gfd-dennou.org/) All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are
+met:
+
+   1. Redistributions of source code must retain the above copyright
+      notice, this list of conditions and the following disclaimer.
+
+   2. Redistributions in binary form must reproduce the above copyright
+      notice, this list of conditions and the following disclaimer in
+      the documentation and/or other materials provided with the
+      distribution.
+
+THIS SOFTWARE IS PROVIDED BY GFD DENNOU CLUB AND CONTRIBUTORS ``AS IS'' 
+AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, 
+THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL GFD DENNOU CLUB OR
+CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+The views and conclusions contained in the software and documentation
+are those of the authors and should not be interpreted as representing
+official policies, either expressed or implied, of Seiya Nishizawa
+and GFD Dennou Club.

data/README.rdoc

@@ -0,0 +1,67 @@
+= Remote-DCL
+- A tool to execute DCL scripts at a remote server -
+
+== What's Remote-DCL
+Remote-DCL is a Ruby script to execute a script at a remote server.
+DCL calles in the script creates PNG images at the remote,
+and send them to local and then display the images.
+It avoid X connection between the local and the remote,
+so could reduce execution time.
+
+
+== Requires
+* At remote server
+  * <a href="http://www.ruby-lang.org/">Ruby</a>
+  * Ruby libraries which are required in your script (including DCL)
+  * stdbuf command
+  * ssh server
+  * Xvfb
+    xvfb-run command (optional)
+* At local
+  * <a href="http://www.ruby-lang.org/">Ruby</a>
+  * <a href="http://ruby-gnome2.sourceforge.jp/ja/">Ruby/GTK2,Ruby/GdkPixbuf2</a>
+  * ssh client
+
+
+== Install / Download
+=== RubyGems
+ % gem install remote-dcl
+
+=== repository
+You can get from the git repository
+ % git clone http://ruby.gfd-dennou.org/products/remote-dcl/remote-dcl.git
+or the repository snapshot, <a href="./remote-dcl-snapshot.tar.gz">remote-dcl-snapshot.tar.gz</a>.
+
+
+== Documents
+=== Usage
+==== At remote server
+If you do not use xvfb-run command,
+you should lounch Xvfb server before execution of remote-dcl.rb.
+e.g.)
+ % Xvfb :99 -screen 0 640x480x8 -nolisten tcp
+
+Note: xvfb-run command lounch Xvfb server internally, and the lounching is occuer at every execution of remote-dcl.rb.
+It takes some seconds, so lounching Xvfb server by your self reduces execution time of remote-dcl.rb.
+
+==== At local
+ % ruby remote-dcl.rb yourescript.rb server_name [--display=] [--dir=]
+* yourscript.rb:
+  script name which is executed at the remote server
+* server_name:
+  server name at which the script is execued.
+* display (optional):
+  x server number of Xvfb (e.g. --display=:99).
+  If this is ommited, xvfb-run comand is used.
+* dir (optional):
+  directory name of the remote server at which the script is executed.
+  If this is ommited, the script is executed at the home directory.
+
+=== User Interface
+Actions with key and mouse events are the followings:
+* return key, space key, mouse click:
+  go the next frame
+* "s" key:
+  skip wait and go the next frame automatically
+* "q" key:
+  quit

data/Rakefile

@@ -0,0 +1,5 @@
+require "bundler/gem_tasks"
+require "rake/testtask"
+
+Rake::TestTask.new
+task :default => :test

data/bin/remote-dcl

@@ -0,0 +1,274 @@
+def usage(error = false)
+  print "Usage: ruby #$0 scriptname host [--display=:99] [--dir=directory]\n"
+  print "\n"
+  print "  Note: If xvfb-run does not exit at remote server,\n"
+  print "        run Xvfb at the remote server before execution of this script:\n"
+  print "          e.g.) % Xvfb :99 -screen 0 640x480x8 -nolisten tcp\n"
+  exit(error ? 1 : 0)
+end
+
+usage if ARGV.index("--help") || ARGV.index("-h")
+opts = {
+  "display" => nil,
+  "dir" => nil
+}
+opts.keys.each do |name|
+  ARGV.dup.each do |opt|
+    next unless /\A--#{name}/ =~ opt
+    val = $' && $'[1..-1]
+    case name
+    when "display", "dir"
+      opts[name] = val
+    end
+    ARGV.delete(opt)
+  end
+end
+
+script = ARGV.shift || usage(true)
+host = ARGV.shift || usage(true)
+
+
+
+
+dcl_code = File.read(script)
+remote_code = <<EOC
+pin, pout = IO.pipe
+pid = fork do
+  REMOTE_DCL_FNAME = 'remote_dcl'
+  pin.close
+#  STDOUT.reopen('/dev/null')
+  STDOUT.reopen(STDERR)
+  require 'numru/dcl'
+  require 'base64'
+  require 'fileutils'
+  pout.sync = true
+  POUT = pout
+
+  module NumRu
+    module DCL
+      @@page = 0
+      @@wait = true
+      alias :__gropn :gropn
+      def gropn(iws)
+        swcset('fname', REMOTE_DCL_FNAME)
+        swlset('lwnd', false)
+        __gropn(4)
+      end
+      module_function :__gropn, :gropn
+      private_class_method :__gropn
+
+      alias :__grfrm :grfrm
+      def grfrm
+        __grfrm
+        if @@page > 0
+          __send_png(@@page)
+          __wait
+        end
+        @@page += 1
+      end
+      module_function :__grfrm, :grfrm
+      private_class_method :__grfrm
+
+      alias :__grcls :grcls
+      def grcls
+        __grcls
+        __send_png(@@page)
+      end
+      module_function :__grcls, :grcls
+      private_class_method :__grcls
+        
+      private
+      def __send_png(page)
+# STDERR.print "send_png\\n"
+        fname = REMOTE_DCL_FNAME+'_%03d'%page+'.png'
+        raise('cannot find PNG file') unless File.exist?(fname)
+        POUT.print Base64.encode64(File.read(fname)),"\\n"
+        POUT.flush
+      end
+      module_function :__send_png
+
+      def __wait
+        return unless @@wait
+        c = gets
+        c = c ? c.chop : "q"
+# STDERR.print c,"\\n"
+        case c
+        when 'n'
+        when 's'
+          @@wait = false
+        when 'q'
+          __grcls
+          exit(0)
+        else
+          raise 'received unexpected signal ('+c+')'
+        end
+      end
+      module_function :__wait
+
+    end # module DCL
+  end # module NumRu
+
+  line = __LINE__ + 1
+  begin
+    #{dcl_code}
+  rescue => error
+    backtrace = error.backtrace[0..-3].map do |s|
+      a = s.split(':')
+      a[0] = 'yourscript.rb' if a[0] == '-e'
+      a[1] = a[1].to_i - line
+      a.join(':')
+    end
+    raise error.class, error.message, backtrace
+  ensure
+    Dir[REMOTE_DCL_FNAME+'_*.png'].each do |fname|
+      FileUtils.rm(fname)
+    end
+    pout.close
+  end
+end # fork
+pout.close
+while line = pin.gets
+  print line
+end
+Process.wait(pid)
+EOC
+
+
+def escape(str)
+  str.gsub!("\\"){"\\\\"}
+  str.gsub!(/"/,'\"')
+end
+
+escape remote_code
+#cmd = "ruby -e \"#{remote_code}\""
+cmd = "stdbuf -i0 -o0 -e0 ruby -e \"#{remote_code}\""
+
+class Viewer
+  def initialize(io)
+    @window = Gtk::Window.new
+    @window.realize
+    @drawable = @window.window
+    @gc = Gdk::GC.new(@drawable)
+    @pixbuf = nil
+    @wait = true
+    @window.add_events(Gdk::Event::BUTTON_RELEASE_MASK)
+    @window.signal_connect("expose_event") do |w,e|
+      expose
+    end
+    @window.signal_connect("button_release_event") do |w,e|
+      next_fig
+      true
+    end
+    @window.signal_connect("key_release_event") do |w,e|
+      c = Gdk::Keyval.to_name(e.keyval)
+      case c
+      when "Return", "space", "n"
+        next_fig
+      when "s"
+        print "skip waiting\n"
+        @io.puts c
+      when "q"
+        quit
+      end
+      true
+    end
+    @window.signal_connect("delete_event") do
+      quit
+      false
+    end
+    @io = io
+  end
+  def eof=(boolean)
+    @eof = true
+  end
+  def eof
+    return @eof if @eof
+    @eof = @io.closed?
+  end
+  def next_fig
+    if eof
+      quit
+    elsif @wait
+      print "next\n"
+      @io.puts "n"
+      @io.flush
+      @wait = false
+    end
+  end
+  def quit
+    unless @quit
+      print "quit\n"
+      begin
+        @io.puts("q") unless eof
+        @io.flush
+      rescue
+      end
+      Gtk.main_quit
+      @quit = true
+    end
+  end
+  def expose
+    if @pixbuf
+      @drawable.draw_pixbuf(@gc, @pixbuf, 0, 0, 0, 0, -1, -1, 
+                            Gdk::RGB::DITHER_NONE, 0, 0)
+    end
+  end
+  def render(png)
+    print "render\n"
+    loader = Gdk::PixbufLoader.open("png")
+    loader.last_write(png)
+    @pixbuf = loader.pixbuf
+    expose
+    @window.set_size_request(@pixbuf.width, @pixbuf.height)
+#    @window.resize(@pixbuf.width, @pixbuf.height)
+    @window.show_all
+    @wait = true
+  end
+
+end
+
+
+escape cmd
+cmd = "cd #{opts["dir"]} ; " + cmd if opts["dir"]
+if opts["display"]
+  cmd = "DISPLAY=#{opts["display"]} #{cmd}"
+else
+  cmd = "xvfb-run sh -c \"#{cmd} 2> /dev/null\""
+  escape cmd
+end
+cmd = "ssh #{host} \"#{cmd}\""
+
+IO.popen(cmd, "r+") do |io|
+  begin
+    require "rubygems"
+  rescue LoadError
+  end
+  require "gtk2"
+  require "base64"
+  io.sync = true
+  str = ""
+  Gtk.init
+  viewer = Viewer.new(io)
+  t = Thread.new {
+    Thread.pass
+    Gtk.main
+  }
+  begin
+    any = false
+    while (c = io.gets)
+      any = true
+      if c == "\n"
+        png = Base64.decode64(str)
+        viewer.render(png)
+        str = ""
+      else
+        str << c
+      end
+    end
+    viewer.eof = true
+    viewer.quit unless any
+  ensure
+    io.close
+  end
+  t.join
+end

data/lib/remote-dcl/version.rb

@@ -0,0 +1,3 @@
+module RemoteDCL
+  VERSION = "0.1.0"
+end

data/remote-dcl.gemspec

@@ -0,0 +1,31 @@
+# -*- encoding: utf-8 -*-
+$:.push File.expand_path("../lib", __FILE__)
+require "remote-dcl/version"
+
+Gem::Specification.new do |s|
+  s.name        = "remote-dcl"
+  s.version     = RemoteDCL::VERSION
+  s.authors     = ["Seiya Nishizawa"]
+  s.email       = ["seiya@gfd-dennou.org"]
+  s.homepage    = "http://ruby.gfd-dennou.org/products/remote-dcl/"
+  s.summary     = %q{A tool to execute DCL scripts at a remote server}
+  s.description = %q{Remote-DCL is a Ruby script to execute a script at a remote server.
+DCL calles in the script creates PNG images at the remote,
+and send them to local and then display the images.
+It avoid X connection between the local and the remote,
+so could reduce execution time.}
+
+
+  s.rubyforge_project = "remote-dcl"
+
+  s.files         = `git ls-files`.split("\n")
+  s.test_files    = `git ls-files -- {test,spec,features}/*`.split("\n")
+  s.executables   = `git ls-files -- bin/*`.split("\n").map{ |f| File.basename(f) }
+  s.require_paths = ["lib"]
+  s.bindir = "bin"
+  #s.extensions << "ext/extconf.rb"
+
+  # specify any dependencies here; for example:
+  #s.add_development_dependency "rspec"
+  s.add_runtime_dependency "gtk2"
+end

metadata

@@ -0,0 +1,90 @@
+--- !ruby/object:Gem::Specification 
+name: remote-dcl
+version: !ruby/object:Gem::Version 
+  hash: 27
+  prerelease: 
+  segments: 
+  - 0
+  - 1
+  - 0
+  version: 0.1.0
+platform: ruby
+authors: 
+- Seiya Nishizawa
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2012-01-24 00:00:00 Z
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: gtk2
+  prerelease: false
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        hash: 3
+        segments: 
+        - 0
+        version: "0"
+  type: :runtime
+  version_requirements: *id001
+description: |-
+  Remote-DCL is a Ruby script to execute a script at a remote server.
+  DCL calles in the script creates PNG images at the remote,
+  and send them to local and then display the images.
+  It avoid X connection between the local and the remote,
+  so could reduce execution time.
+email: 
+- seiya@gfd-dennou.org
+executables: 
+- remote-dcl
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- Gemfile
+- LICENSE.txt
+- README.rdoc
+- Rakefile
+- bin/remote-dcl
+- lib/remote-dcl/version.rb
+- remote-dcl.gemspec
+homepage: http://ruby.gfd-dennou.org/products/remote-dcl/
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: remote-dcl
+rubygems_version: 1.8.11
+signing_key: 
+specification_version: 3
+summary: A tool to execute DCL scripts at a remote server
+test_files: []
+