SkypeR 0.0.8 → 0.0.9

data/README

@@ -56,6 +56,9 @@ And then, run iskype.rb with application name.
 
  Skype> GET USER somebodys_account LASTONLINETIMESTAMP
 
+ Skype> CHAT CREATE somebodys_account
+ Skype> CHATMESSAGE <chat_id> This is a test
+
  Skype> exit
  See you again.
 
@@ -70,6 +73,23 @@ With -p option, iskype parses input command before execution. The parser is stil
  => USERS echo123, foo, bar
 
 
+== Library Usage
+
+
+ user =  SkypeR::Object::User.new
+ user.execute('CHAT CREATE akimichi_tatsukawa')
+
+== Problems with dbus
+
+ $ sudo dbus-daemon-1 --system
+ $ ~/develop/ruby/skyper$ dbus-launch 
+ DBUS_SESSION_BUS_ADDRESS=unix:abstract=/tmp/dbus-ZJrpT6QzE1,guid=a0ad7207e19214f478b3d900490d662f
+ DBUS_SESSION_BUS_PID=32350
+ $ export DBUS_SESSION_BUS_ADDRESS='unix:abstract=/tmp/dbus-ZJrpT6QzE1,guid=a0ad7207e19214f478b3d900490d662f' 
+ $ export DBUS_SESSION_BUS_PID=32350
+ $ echo $DBUS_SESSION_BUS_ADDRESS
+ unix:abstract=/tmp/dbus-ZJrpT6QzE1,guid=a0ad7207e19214f478b3d900490d662f
+
 Have fun!!
 
 Akimichi Tatsukawa

data/bin/iskype.rb

@@ -1,5 +1,5 @@
 #!/usr/bin/env ruby
-#$:.unshift File.join(File.dirname(__FILE__))
+# author: Péter Kiss, Akimichi TATSUKAWA
 
 require 'rubygems'
 require 'yaparc'
@@ -19,15 +19,15 @@ module SkypeR
         opts.on('-n', '--name [STRING]', 'application name to access Skype') do |string|
           self[:name] = string || '$'
         end
-
+ 
         opts.on('-l', '--log [STRING]', 'log file path') do |string|
           self[:log] = string || '$'
         end
-
-        opts.on('-p', '--parse', 'parsing enabled') do
+ 
+        opts.on('-p', '--parse', 'parse input') do |string|
           self[:parse] = true
         end
-
+ 
         opts.on_tail('-h', '--help', 'display this help') do
           puts opts
           exit
@@ -36,65 +36,46 @@ module SkypeR
       opts.parse(args)
     end
   end
-
+ 
+  SKYPE = Service::Application.new('test')
+ 
   class REPL
+ 
+    application = nil
+ 
     def initialize(name, log = nil, parse = false)
       @debug = false
-      @application = Service::Application.new(name)
-      @parse = parse
+      @application = SKYPE
+      @parse = false
       @headers = []
+ 
+      FileUtils::mkdir(File.dirname(log)) unless File.exists?(log)
+ 
       @logger = Logger.new(log ? log : $stderr)
-      @commands = {
-        'd' => ['toggle debug mode.',
-                proc { @debug = !@debug; puts "debug is #{@debug?'on':'off'}" }],
-        'logger' => ['"logger on": bring logger active.',
-                     proc {|args|
-                       @headers << args
-                     }],
-        'l' => ['"l m": bring in a C library.',
-                proc { |args| @libraries << args }],
-        'test' => ['test if the repl is ok by running a printf through it.',
-                   proc { xsb_command('printf("repl is ok\n");') }],
-        'help' => ['show help on commands.', proc { show_help }]
-      }
     end
-
-
+ 
+ 
     def skype_command(command_statement)
       command_message = Service::CommandMessage.new(command_statement)
     end
-
+ 
     def skype_response(response_statement, response_instance)
       response = Service::ResponseMessage.new(response_statement, response_instance)
       result = @application.parse(response)
     end
-
+ 
     def skype_exit
       raise
     end
-
-
-    def show_help
-      puts <<-EOT
-Not in use, yet.
-Type C statements and declarations as you would in a normal program.
-Type a variable name by itself to see its value.
-
-Commands start with a . and are as follows:
-    EOT
-      cmds = @commands.keys.sort
-      len = cmds.map{|c|c.length}.max
-      @commands.keys.sort.each do |cmd|
-        printf("  %-#{len}s   %s\n", cmd, @commands[cmd][0])
-      end
-    end
-
+ 
     def input_loop
       loop do
-        line = Readline.readline('Skype> ')
+        line = Readline.readline('SkypeAPI> ')
         break unless line
         line.chomp!
         if line.empty?
+          sleep(1)
+          puts '.'
           next
         else
           @logger.debug("INPUT> #{line}")
@@ -106,20 +87,8 @@ Commands start with a . and are as follows:
           else
             response_statement = nil
             command_message = SkypeR::Service::CommandMessage.new(line)
-            if @parse
-              case result = @application.parse(command_message)
-              when Yaparc::OK
-                response_statement = @application.invoke(command_message, 30)
-#                response_instance = result.value[:command_instance].response
-#                skype_response(response_statement, response_instance)
-              when Yaparc::Fail
-                response_statement = "##{command_message.command_id} Parse Error"
-              else
-                raise
-              end
-            else # in case of parse option disabled
-              response_statement = @application.invoke(command_message, 30)
-            end
+            response_statement = @application.invoke(command_message, 30)
+            
             unless response_statement.empty?
               puts response_statement
               response_id, response_statement = split_response(response_statement)
@@ -131,12 +100,11 @@ Commands start with a . and are as follows:
         Readline::HISTORY.push(line)
       end
       @interpreter.close
-
+ 
     end # of input_loop method
-
+ 
     private
     def split_response(response_statement)
-#      if match = Regexp.new(/(#[0-9]+) (.*)$/).match(response_statement)
       if match = Regexp.new(/(#[0-9]+) (.*)$/).match(response_statement.to_s)
         [match[1], match[2]]
       else
@@ -146,8 +114,7 @@ Commands start with a . and are as follows:
     end
   end # of Service
 end # of SkypeR
-
-
+ 
 begin
   arguments = SkypeR::Arguments.new(ARGV)
   if name = arguments[:name]

data/bin/iskype.rb.back

@@ -0,0 +1,170 @@
+#!/usr/bin/env ruby
+
+require 'rubygems'
+require 'yaparc'
+require 'readline'
+require 'optparse'
+require 'logger'
+require "lib/skyper.rb"
+
+module SkypeR
+  LOGGER = nil
+  class Arguments < Hash
+    def initialize(args)
+      super()
+      # default values
+      opts = ::OptionParser.new do |opts|
+        opts.banner = "Usage: #$0 [options]"
+        opts.on('-n', '--name [STRING]', 'application name to access Skype') do |string|
+          self[:name] = string || '$'
+        end
+
+        opts.on('-l', '--log [STRING]', 'log file path') do |string|
+          self[:log] = string || '$'
+        end
+
+        opts.on('-p', '--parse', 'parsing enabled') do
+          self[:parse] = true
+        end
+
+        opts.on_tail('-h', '--help', 'display this help') do
+          puts opts
+          exit
+        end
+      end
+      opts.parse(args)
+    end
+  end
+
+  class REPL
+    def initialize(name, log = nil, parse = false)
+      @debug = false
+      @application = Service::Application.new(name)
+      @parse = parse
+      @headers = []
+      @logger = Logger.new(log ? log : $stderr)
+      @commands = {
+        'd' => ['toggle debug mode.',
+                proc { @debug = !@debug; puts "debug is #{@debug?'on':'off'}" }],
+        'logger' => ['"logger on": bring logger active.',
+                     proc {|args|
+                       @headers << args
+                     }],
+        'l' => ['"l m": bring in a C library.',
+                proc { |args| @libraries << args }],
+        'test' => ['test if the repl is ok by running a printf through it.',
+                   proc { xsb_command('printf("repl is ok\n");') }],
+        'help' => ['show help on commands.', proc { show_help }]
+      }
+    end
+
+
+    def skype_command(command_statement)
+      command_message = Service::CommandMessage.new(command_statement)
+    end
+
+    def skype_response(response_statement, response_instance)
+      response = Service::ResponseMessage.new(response_statement, response_instance)
+      result = @application.parse(response)
+    end
+
+    def skype_exit
+      raise
+    end
+
+
+    def show_help
+      puts <<-EOT
+Not in use, yet.
+Type C statements and declarations as you would in a normal program.
+Type a variable name by itself to see its value.
+
+Commands start with a . and are as follows:
+    EOT
+      cmds = @commands.keys.sort
+      len = cmds.map{|c|c.length}.max
+      @commands.keys.sort.each do |cmd|
+        printf("  %-#{len}s   %s\n", cmd, @commands[cmd][0])
+      end
+    end
+
+    def input_loop
+      loop do
+        line = Readline.readline('Skype> ')
+        break unless line
+        line.chomp!
+        if line.empty?
+          next
+        else
+          @logger.debug("INPUT> #{line}")
+          case line
+          when /^exit$/
+            puts "See you again."
+            @logger.debug("OUTPUT> See you again.")
+            return
+          else
+            response_statement = nil
+            command_message = SkypeR::Service::CommandMessage.new(line)
+            if @parse
+              case result = @application.parse(command_message)
+              when Yaparc::OK
+                response_statement = @application.invoke(command_message, 30)
+#                response_instance = result.value[:command_instance].response
+#                skype_response(response_statement, response_instance)
+              when Yaparc::Fail
+                response_statement = "##{command_message.command_id} Parse Error"
+              else
+                raise
+              end
+            else # in case of parse option disabled
+              response_statement = @application.invoke(command_message, 30)
+            end
+            unless response_statement.nil? or response_statement.empty?
+              puts response_statement
+              response_id, response_statement = split_response(response_statement)
+              puts "=> #{response_statement}"
+              @logger.debug("OUTPUT> #{response_statement}")
+            end
+          end
+        end
+        Readline::HISTORY.push(line)
+      end
+      @interpreter.close
+
+    end # of input_loop method
+
+    private
+    def split_response(response_statement)
+#      if match = Regexp.new(/(#[0-9]+) (.*)$/).match(response_statement)
+      if match = Regexp.new(/(#[0-9]+) (.*)$/).match(response_statement.to_s)
+        [match[1], match[2]]
+      else
+        p "#{response_statement}"
+        raise
+      end
+    end
+  end # of Service
+end # of SkypeR
+
+
+begin
+  arguments = SkypeR::Arguments.new(ARGV)
+  if name = arguments[:name]
+    repl = SkypeR::REPL.new(name, arguments[:log], arguments[:parse])
+  else
+    repl = SkypeR::REPL.new('test', 'log/iskype.log', arguments[:parse])
+  end
+  repl.input_loop
+# rescue Exception => e
+#   puts e.message
+#   puts "Backtrace:"
+#   e.backtrace.each {|line|
+#     puts line
+#   }
+end
+
+
+
+
+
+

data/lib/skyper.rb

@@ -1,13 +1,14 @@
 $:.unshift File.join(File.dirname(__FILE__))
 
 require 'rubygems'
-require 'rbus.rb'
+#require 'rbus.rb'
 
 require 'skyper/service.rb'
 require 'skyper/object.rb'
 require 'skyper/parser.rb'
 require 'skyper/response.rb'
 require 'skyper/command.rb'
+require 'skyper/exception.rb'
 
 
 

data/lib/skyper/command.rb

@@ -10,8 +10,6 @@ require "logger"
 =end
 
 module SkypeR
-
-
   module Parser
 
     class CommandBase < Yaparc::AbstractParser
@@ -347,14 +345,14 @@ module SkypeR
                           Yaparc::Symbol.new("CALL"),
                           Target.new,
                           Yaparc::Many.new(
-                                                 Yaparc::Seq.new(
-                                                                             Yaparc::Symbol.new(','),
-                                                                             Target.new) do |_, target|
-                                         [target]
-                                       end,
-                                       []
-                                       )
-                        ) do |_,target,targets|
+                                           Yaparc::Seq.new(
+                                                           Yaparc::Symbol.new(','),
+                                                           Target.new) do |_, target|
+                                             [target]
+                                           end,
+                                           []
+                                           )
+                          ) do |_,target,targets|
             {:command_instance => self, :targets => [target] + targets}
           end
         end
@@ -387,35 +385,62 @@ module SkypeR
         end
       end
     end
-
+=begin
     # <chat_create_command> := CHAT CREATE <target>[, <target>]*
     # <chat_create_response> := CHAT <chat_id> STATUS <value>
-    # <chat_message_command> := CHATMESSAGE <chat_id> <message>
-    # <chat_message_response> := CHATMESSAGE <id> STATUS SENDING
+=end
     class ChatCreateCommand < CommandBase
       def initialize
         @parser = lambda do
           Yaparc::Seq.new(
-                                Yaparc::Symbol.new("CHAT"),
-                                Yaparc::Symbol.new("CREATE"),
-                                Target.new,
-                                Yaparc::Many.new(
-                                                 Yaparc::Seq.new(Yaparc::Symbol.new(','),
-                                                                 Target.new) do |_, target|
-                                                   [target]
-                                                 end,
-                                                 []
-                                                 )
+                          Yaparc::Symbol.new("CHAT"),
+                          Yaparc::Symbol.new("CREATE"),
+                          Target.new,
+                          Yaparc::Many.new(
+                                           Yaparc::Seq.new(Yaparc::Symbol.new(','),
+                                                           Target.new) do |_, target|
+                                             [target]
+                                           end,
+                                           []
+                                           )
                           ) do |_,_,target,targets|
-            {:command_instance => self, :targets => [target] + targets}
+            @response = ChatCreateResponse.new(SkypeR::Object::Chat.new(:members => [target] + targets))
+            {:response_parser => @response}
           end
         end
-        @response = ChatCreateResponse.new
+        
       end
+
     end
 
-    # <history_command> := <clear_chathistory_command>
-    #                    | <clear_voicemailhistory_command>
+=begin
+Synopsis: Send chatmessage to chat_id
+    # <chat_message_command> := CHATMESSAGE <chat_id> <message>
+    # <chat_message_response> := CHATMESSAGE <id> STATUS SENDING
+    # c.f. https://developer.skype.com/Docs/ApiDoc/CHATMESSAGE_object
+=end
+
+    class ChatMessageCommand < CommandBase
+      def initialize(chatmessage_object)
+        @chatmessage_object = chatmessage_object
+        @response = ChatMessageResponse.new
+
+        @parser = lambda do
+          Yaparc::Seq.new(
+                          Yaparc::Symbol.new("CHATMESSAGE"),
+                          ChatID.new,
+                          Yaparc::Regex.new(/\A.*\Z/)
+                          ) do |_,chat_id,message|
+            #{:chat_id => chat_id, :message => message}
+            @chatmessage_object.messages << message
+            @chatmessage_object.chat_id = chat_id
+            @chatmessage_object
+          end
+        end
+      end
+    end
+
+
     class HistoryCommand < CommandBase
       def initialize
         @parser = lambda do