s41c 0.0.1

data/Gemfile

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

data/Rakefile

@@ -0,0 +1 @@
+require "bundler/gem_tasks"

data/lib/s41c/server.rb

@@ -0,0 +1,140 @@
+# encoding: utf-8
+
+module S41C
+
+  require 'win32ole'
+  require 'socket'
+
+  class Server
+
+    def initialize(host='localhost', port=1421, log_file=nil)
+      @host, @port = host, port
+      @logger = log_file ? ::STDOUT.reopen(log_file, 'a') : ::STDOUT
+      @ole_object = 'V77.Application'
+    end # initialize
+
+    def ole_object=(name)
+      @ole_object = name
+    end # ole_object
+
+    def at_exit(&block)
+      ::Kernel::at_exit do
+        yield
+      end
+    end # at_exit
+
+    def start
+
+      ["INT", "TERM"].each do |signal|
+        ::Kernel::trap(signal) {
+        log "\n*** Exiting"
+        exit
+        }
+      end
+
+      server = TCPServer.open(@host, @port)
+
+      log "*** Server has been started on #{@host}:#{@port}"
+      log "*** Ctrl+C for stopping"
+
+      loop do
+
+        begin
+          session = server.accept_nonblock
+        rescue IO::WaitReadable, Errno::EINTR
+          IO.select([server])
+          retry
+        end
+
+        session.print "Welcome\r\n"
+
+        loop {
+          attrs = S41C::Utils.to_utf8(session.gets || '').chomp.split('|')
+          cmd = attrs.shift
+          case cmd
+          when "connect"
+            session.puts S41C::Utils.to_bin(connect_to_1c(attrs))
+            session.puts "+OK"
+          when "create"
+            session.puts S41C::Utils.to_bin(create(attrs))
+            session.puts "+OK"
+          when "eval_expr"
+            session.puts S41C::Utils.to_bin(eval_expr(attrs))
+            session.puts "+OK"
+          when "invoke"
+            session.puts S41C::Utils.to_bin(invoke(attrs))
+            session.puts "+OK"
+          when "disconnect"
+            session.puts "Goodbye"
+            session.close
+          break
+          when "shutdown"
+            session.puts "Server is going down now"
+            session.close
+	    exit
+          else
+            session.puts "Bad command"
+            session.puts "+OK"
+          end
+        }
+
+      end
+    end # start
+
+    private
+
+    def log(msg)
+      @logger.puts msg
+      @logger.flush
+    end # log
+
+    def connect_to_1c(attrs)
+      @conn.ole_free unless @conn.nil?
+      options = attrs.shift || ''
+      begin
+        @conn = ::WIN32OLE.new('V77.Application') 
+        res = @conn.Initialize(
+          @conn.RMTrade, 
+          options,
+          ''
+        )
+        "Connected"
+      rescue => e
+        @conn.ole_free
+        "Error: #{e.message}"
+      end
+    end
+
+    def create(attrs)
+      return "Error: not connected" unless @conn
+      obj_name = attrs.shift || ''
+      begin
+        @obj = @conn.CreateObject(obj_name)
+        "Created"
+      rescue => e
+        "Error: #{e.message}"
+      end
+    end
+
+    def eval_expr(attrs)
+      return "Error: not connected" unless @conn
+      expr = attrs.shift || ''
+      begin
+        @conn.invoke("EvalExpr", expr).to_s
+      rescue => e
+        "Error: #{e.message}"
+      end
+    end
+
+    def invoke(attrs)
+      return "Error: working object not found. You must create it before" unless @conn
+      begin
+        @obj.invoke(*attrs).to_s.encode("UTF-8", "IBM866", :invalid => :replace, :replace => "?")
+      rescue => e
+        "Error: #{e.message}"
+      end
+    end
+
+  end # Server
+
+end # S41C

data/lib/s41c/utils.rb

@@ -0,0 +1,15 @@
+module S41C
+
+  module Utils
+
+    def Utils.to_bin(str)
+      str.force_encoding("BINARY")
+    end
+
+    def Utils.to_utf8(str)
+      str.force_encoding("UTF-8")
+    end
+
+  end # Utils
+
+end # S41C

data/lib/s41c/version.rb

@@ -0,0 +1,5 @@
+module S41C
+
+  VERSION = '0.0.1'
+
+end # S41C

data/lib/s41c.rb

@@ -0,0 +1,4 @@
+require 's41c/version'
+require 's41c/utils'
+require 's41c/server'
+require 's41c/client'

data/s41c.gemspec

@@ -0,0 +1,19 @@
+# -*- encoding: utf-8 -*-
+$:.push File.expand_path("../lib", __FILE__)
+require "s41c/version"
+
+Gem::Specification.new do |s|
+  s.name        = "s41c"
+  s.version     = S41C::VERSION
+  s.authors     = ["redfield"]
+  s.email       = ["up.redfield@gmail.com"]
+  s.homepage    = "https://github.com/dancingbytes/s41c"
+  s.summary     = %q{}
+  s.description = %q{TCP-socket сервер и клиент для платформы "1С:Предприятие"}
+
+  s.rubyforge_project = "s41c"
+  
+  s.files      = Dir['**/*']
+  s.require_paths = ["lib"]
+
+end

metadata

@@ -0,0 +1,54 @@
+--- !ruby/object:Gem::Specification
+name: s41c
+version: !ruby/object:Gem::Version
+  version: 0.0.1
+  prerelease: 
+platform: ruby
+authors:
+- redfield
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2012-03-17 00:00:00.000000000 Z
+dependencies: []
+description: TCP-socket сервер и клиент для платформы "1С:Предприятие"
+email:
+- up.redfield@gmail.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- s41c.gemspec
+- s41c-0.0.1.gem
+- lib/s41c/version.rb
+- lib/s41c/utils.rb
+- lib/s41c/server.rb
+- lib/s41c/client.rb
+- lib/s41c.rb
+- Gemfile
+- Rakefile
+homepage: https://github.com/dancingbytes/s41c
+licenses: []
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: s41c
+rubygems_version: 1.8.10
+signing_key: 
+specification_version: 3
+summary: ''
+test_files: []