Ruby4Skype 0.2.1

data/lib/skypeapi/os.rb

@@ -0,0 +1,423 @@
+module SkypeAPI
+  module OS
+    module Share
+      WAIT_CMD_LIMIT = 15.0 #sec
+      PING_CYCLE = 30.0 #sec
+      PING_LIMIT = 10.0 # < PING_CYCLE
+      
+      def sendCMD cmd,method=nil,&block
+        if method
+          sendCallBack cmd do |res|
+            check res,cmd
+            method.call res
+          end
+          return true
+        elsif block_given?
+          sendCallBack cmd do |res|
+            check res,cmd
+            block.call res
+          end
+          return true
+        else
+          return check(sendBlock(cmd),cmd)
+        end
+      end
+      
+      def check res,cmd
+        if res =~ /^ERROR /m
+          raise SkypeAPIError::API,res,cmd
+        else
+          return res
+        end
+      end
+      
+      def sendCallBack cmd,cb=Proc.new
+        @callBack[@sendCount] = cb
+        begin
+          sendMSG cmd
+        rescue => e
+          @callBack.delete(@sendCount)
+          raise e
+        end
+        return true
+      end
+
+      def sendBlock cmd, waitLimit = WAIT_CMD_LIMIT
+        resVal = nil
+        sendCallBack cmd do |res|
+          resVal = res
+        end
+        startTime = Time.now
+        loop do
+          polling
+          if resVal
+            return resVal
+          end
+          if Time.now - startTime > waitLimit
+            unless existEvent? :reconnect
+              raise SkypeAPIError::TimeOut,"TimeOut #{cmd} {(Time.now - startTime).to_i}"
+            else
+              doEvent :reconnect
+              return sendBlock(cmd, waitLimit)
+            end
+          end
+          #Thread.pass
+          sleep 0.00123
+          #sleep 0.000001
+          #sleep 0.01
+        end
+      end
+
+      def attachWait
+        flag = true
+        attach do |state|
+          flag = false if state == :success
+        end
+        while flag
+          polling
+          #sleep 0.0123
+        end
+      end
+      
+      #����reg==nil�ŁA���̑��ƌ���㩁B
+      def addNotify reg, block=Proc.new
+        @notify[reg] = block
+      end
+      
+      def delNotify reg
+        @notify.delete reg
+      end
+      
+      def addEvent sym, block=Proc.new
+        @event[sym].push block
+        block
+      end
+      
+      def setEvent sym, block=Proc.new
+        @event[sym] = Array.new
+        addEvent sym, block
+      end
+      
+      def delEvent sym, block=nil
+        unless block
+          @event[sym] = Array.new
+        else
+          @event[sym].delete block
+        end
+      end
+      
+      def replaceEvent sym,block=Proc.new
+        tmp = @event[sym].dup
+        if defined?(block.each)
+          block.each do |e|
+            addEvent sym, e
+          end
+        else
+          setEvent sym,block
+        end
+        return tmp
+      end
+      
+      def existEvent? sym
+        if @event[sym].length > 0
+          return true
+        else
+          return false
+        end
+      end
+      
+      def getEvent sym
+        @event[sym]
+      end
+      
+      def doEvent sym,*args
+        @event[sym].each do |e|
+          if e.arity == 1
+            e.call args[0]
+          else
+            e.call args
+          end
+        end
+      end
+
+      def pushQueue res
+        if res =~ /^(#(\d+?) )?(.+?)\000$/m
+          if $2
+            if @callBack[$2.to_i]
+              cb = @callBack[$2.to_i]
+              val = $3
+              @queue.push(proc{cb.call val})
+              @callBack.delete($2.to_i)
+            end
+            cmd = "#" + $2 + " " + $3
+          else
+            cmd = $3
+            flag = false
+            @notify.each do |reg,action|
+              if cmd =~ reg
+                res = $1
+                @queue.push(proc{action.call(res)})
+                flag = true
+              end
+            end
+            unless flag
+              action = @notify[nil]
+              @queue.push(proc{action.call(cmd)})
+            end
+          end
+        end
+        
+        @queue.push(proc{doEvent(:received, cmd)}) if existEvent? :received
+      end
+      
+      def queueProcess
+        @pingTime = Time.now unless @pingTime
+        if Time.now - @pingTime > PING_CYCLE
+          @queue.push method(:checkConnection)
+          @pingTime = Time.now
+        end
+        
+        while e = @queue.shift
+          e.call
+        end
+      end
+      
+      def checkConnection
+        begin
+          resVal = nil
+          sendCallBack 'PING' do |res|
+            resVal = res
+          end
+          startTime = Time.now
+          i = 0
+          loop do
+            polling
+            if resVal
+              unless resVal == "PONG"
+                raise SkypeAPIError::Reconnect 
+              else
+                break
+              end
+            end
+            if Time.now - startTime > PING_LIMIT and i > 3
+              raise SkypeAPIError::TimeOut
+            end
+            i+=1
+            sleep 0.001
+          end
+        rescue SkypeAPIError::Reconnect,SkypeAPIError::TimeOut
+          unless existEvent? :reconnect
+            raise SkypeAPIError::Reconnect
+          else
+            doEvent :reconnect
+          end
+        end
+        return true
+      end
+      
+    end
+    
+    class Windows
+      begin
+      	require 'rubygems'
+      	gem 'swin'
+      rescue LoadError
+      end
+      require "swin"
+      require 'Win32API'
+      include Share
+      
+      HWND_BROADCAST = 0xFFFF
+      WM_COPYDATA = 0x004A
+      WM_USER = 0x0400
+      WM_USER_MSG = WM_USER + 1
+      SKYPECONTROLAPI_ATTACH_SUCCESS=0
+      SKYPECONTROLAPI_ATTACH_PENDING_AUTHORIZATION=1
+      SKYPECONTROLAPI_ATTACH_REFUSED=2
+      SKYPECONTROLAPI_ATTACH_NOT_AVAILABLE=3
+      SKYPECONTROLAPI_ATTACH_API_AVAILABLE=0x8001
+
+      RegisterWindowMessage = Win32API.new('user32','RegisterWindowMessageA', 'P', 'L')
+      SendMessage = Win32API.new("user32", "SendMessageA", ['L']*4, 'L')
+      PostMessage = Win32API.new("user32", "PostMessageA", 'LLLP', 'L')
+      
+      def initialize
+        @sendCount = 0
+        @queue = Array.new
+        @callBack = Hash.new
+        @notify = Hash.new
+        @event = Hash.new do |h,k|
+          h[k] = Array.new
+        end
+        
+        addEvent :reconnect do
+          flag = true
+          attachEvent = replaceEvent :attached do
+            flag = false
+          end
+          attach
+          while flag
+            polling
+            sleep 0.123
+          end
+          replaceEvent :attach, attachEvent
+        end
+        
+        @wmBuffer = Hash.new        
+        @wmHandler = SWin::LWFactory.new(SWin::Application.hInstance).newwindow nil
+        @wmHandler.create
+        @wmHandler.addEvent(WM_COPYDATA)
+        @wmHandler.addEvent(WM_USER_MSG)
+        @wmHandler.instance_variable_set :@skypeAPI,self
+        @wmHandler.instance_variable_set :@wmBuffer,@wmBuffer
+        @wmHandler.instance_variable_set :@queue,@queue
+        
+        class << @wmHandler
+          attr_reader :hSkypeAPIWindowHandle
+          
+          def msghandler(sMsg)
+            case sMsg.msg
+            when @dwAttachMsg
+              case sMsg.lParam
+              when SKYPECONTROLAPI_ATTACH_SUCCESS
+                @hSkypeAPIWindowHandle = sMsg.wParam
+                @queue.push Proc.new{@skypeAPI.sendCMD "PROTOCOL 9999"}
+                @queue.push Proc.new{@skypeAPI.doEvent(:attach,:success)}
+                @queue.push Proc.new{@skypeAPI.doEvent(:attached)}
+                sMsg.retval = 1
+              when SKYPECONTROLAPI_ATTACH_PENDING_AUTHORIZATION:
+                @queue.push Proc.new{@skypeAPI.doEvent(:attach,:authorize)}
+                @queue.push Proc.new{@skypeAPI.doEvent(:pendingAuthorization)}
+                sMsg.retval = 1
+              when SKYPECONTROLAPI_ATTACH_REFUSED:
+                unless @skypeAPI.existEvent? :attach
+                  raise SkypeAPIError::Attach,"Refused"
+                else
+                  @queue.push Proc.new{@skypeAPI.doEvent(:attach,:refused)}
+                end
+                sMsg.retval = 1
+              when SKYPECONTROLAPI_ATTACH_NOT_AVAILABLE:
+                unless @skypeAPI.existEvent? :attach
+                  raise SkypeAPIError::Attach,"Not available."
+                else
+                  @queue.push Proc.new{@skypeAPI.doEvent(:attach,:notAvailable)}
+                end
+                sMsg.retval = 1
+              when SKYPECONTROLAPI_ATTACH_API_AVAILABLE:
+                @queue.push Proc.new{@skypeAPI.doEvent(:apiAvailable)}
+                sMsg.retval = 1
+              else
+                unless @skypeAPI.existEvent? :attach
+                  raise SkypeAPIError::Attach,"Skype API attach unknown message"
+                else
+                  @queue.push Proc.new{@skypeAPI.doEvent(:attach,:unkown)}
+                end
+              end
+              #return true
+            when WM_COPYDATA
+              if sMsg.wParam == @hSkypeAPIWindowHandle
+                retval = application.cstruct2array(sMsg.lParam,"LLL")
+                cmd = application.pointer2string(retval[2],retval[1])
+                @wmBuffer.delete($1.to_i) if cmd =~ /^#(\d+) /
+                @skypeAPI.pushQueue cmd
+                sMsg.retval = 1
+                return true
+              end
+            when WM_USER_MSG
+              unless SendMessage.call(sMsg.wParam, WM_COPYDATA, sMsg.hWnd, sMsg.lParam)
+                raise  SkypeAPIError::Connect,"Skype not ready"
+              end
+              sMsg.retval = true
+              return true
+            end
+          end
+        end
+      end
+      
+      #attr_accessor :attached,:received,:sent
+      
+      def attach &block
+        if block
+          if block.arity == 1
+            addEvent :attach, block
+          else
+            addEvent :attached, block
+          end
+        end
+        
+        @wmHandler.create unless @wmHandler.alive?
+        dwDiscoverMsg = RegisterWindowMessage.call("SkypeControlAPIDiscover");
+        raise SkypeAPIError::Attach,"SkypeControlAPIDiscover nothing" unless dwDiscoverMsg
+        dwAttachMsg = RegisterWindowMessage.call("SkypeControlAPIAttach")
+        raise SkypeAPIError::Attach,"SkypeControlAPIAttach nothing" unless dwAttachMsg
+        @wmHandler.instance_variable_set :@dwAttachMsg, dwAttachMsg
+        @wmHandler.addEvent dwAttachMsg
+        #post?
+        unless PostMessage.call(HWND_BROADCAST, dwDiscoverMsg, @wmHandler.hWnd, 0)
+          raise SkypeAPIError::Attach,"SkypeControlAPIDiscover broadcast fail"
+        end
+        return true
+      end
+      
+      def sendMSG cmd
+        unless @wmHandler.hSkypeAPIWindowHandle
+          raise SkypeAPIErorr::Connect,"NullPointerException SendSkype!"
+          return false
+        end
+        
+        cmd = '#' + @sendCount.to_s + ' ' + cmd
+        @wmBuffer[@sendCount] = cmd
+        pCopyData = @wmHandler.application.arg2cstructStr("LLS",0,@wmBuffer[@sendCount].length+1,@wmBuffer[@sendCount])
+        unless PostMessage.call(@wmHandler.hWnd, WM_USER_MSG, @wmHandler.hSkypeAPIWindowHandle, pCopyData)
+          @wmHandler.instance_variable_set :@hSkypeAPIWindowHandle,nil
+          raise SkypeAPIError::Connect,"Skype not ready"
+          return false;
+        end
+        @queue.push(proc{doEvent(:sent, cmd)}) if existEvent? :sent
+        @sendCount+=1
+        return true
+      end
+      
+      
+      def wait someAction=nil
+        if someAction.class == Proc
+          @wmHandler.application.messageloop do 
+            queueProcess
+            someAction.call
+          end
+        elsif block_given?
+          @wmHandler.application.messageloop do
+            queueProcess
+            yield
+          end
+        else
+          @wmHandler.application.messageloop{queueProcess}
+        end
+      end
+      
+      def polling
+        @wmHandler.application.doevents
+        queueProcess
+      end
+
+      def close
+        @wmHandler.close
+      end
+    end
+    
+    class Mac
+      #wiki like
+      def initialize
+        raise SkypeAPIError::NotImplement
+      end
+    end
+    
+    class Linux
+      #plz write it
+      def initialize
+        raise SkypeAPIError::NotImplement
+      end
+    end
+  end
+  
+end

data/lib/skypeapi/profile.rb

@@ -0,0 +1,124 @@
+module SkypeAPI
+  module Object
+    class Profile < AbstractObject
+      OBJECT_NAME = "PROFILE"
+      
+      #def initialize(id); end
+      
+      def self.notified msg
+        if msg =~ /^([^ ]+) (.*)$/m
+          property = P2M[$1]
+          value = V2O[property] ? V2O[property].call($2) : $2
+          instance = new nil
+          instance.notified property,value #if @@instance[self][id]
+          
+          #p [property,value,instance,@notify]
+          #if @notify[nil]
+          #  @notify[nil][nil].call instance, property, value if @notify[nil][nil]
+          #  @notify[nil][value].call instance, property if @notify[nil][value]
+          #end
+          #if @notify[property]
+          #  @notify[property][nil].call instance, value if @notify[property][nil]
+          #  @notify[property][value].call instance if @notify[property][value]
+          #end
+        end
+      end
+      
+      getter :PSTNBalance, 'PSTN_BALANCE' do |str|
+        str._int
+      end
+      getter :PSTNBalanceCurrency, 'PSTN_BALANCE_CURRENCY'
+      getter :Fullname, 'FULLNAME'
+      getter :Birthday, 'BIRTHDAY' do |yyyymmdd|
+        (yyyymmdd =~ /(\d\d\d\d)(\d\d)(\d\d)/) ? Date.new($1.to_i,$2.to_i,$3.to_i) : nil
+      end
+      getter :Sex, 'SEX'
+      getter :Languages, 'LANGUAGES' do |str|
+        str.split(' ')
+      end
+      getter :Country, 'COUNTRY' do |str|
+        str.empty? ? ['',''] : str.split(' ', 2)
+      end
+      getter :IPCountry, 'IPCOUNTRY'
+      getter :Province, 'PROVINCE'
+      getter :City, 'CITY'
+      getter :PhoneHome, 'PHONE_HOME'
+      getter :PhoneOffice, 'PHONE_OFFICE'
+      getter :PhoneMobile, 'PHONE_MOBILE'
+      getter :Homepage, 'HOMEPAGE'
+      getter :About, 'ABOUT'
+      getter :MoodText, 'MOOD_TEXT'
+      getter :RichMoodText, 'RICH_MOOD_TEXT'
+      getter :Timezone, 'TIMEZONE' do |str|
+        str._int
+      end
+      getter :CallApplyCF, 'CALL_APPLY_CF' do |str|
+        str._flag
+      end
+      getter :CallNoanswerTimeout, 'CALL_NOANSWER_TIMEOUT' do |str|
+        str._int
+      end
+      getter :CallForwardRules, 'CALL_FORWARD_RULES' do |str|
+        cfs = str.split ' '
+        cfs = cfs.map do |cf|
+          cf = cf.split ','
+          cf[2] = @@skypeApi.user(cf[2]) unless cf[2] =~ /^\+/
+          [cf[0].to_i, cf[1].to_i, (cf[2] =~ /^\+/ ? cf[2] : @@skypeApi.user(cf[2]))]
+        end
+      end
+      getter :CallSendToVM, 'CALL_SEND_TO_VM' do |str|
+        str._flag
+      end
+      getter :SMSValidatedNumbers, 'SMS_VALIDATED_NUMBERS' do |str|
+        str.split(', ')
+      end
+      
+      def setFullname(val) sendSet('FULLNAME', val); end
+      def setBirthday(*val)
+        val = val[0].class == Date ? val[0].strftime('%Y%m%d') : sprintf("%04d%02d%02d",val[0],val[1],val[2])
+        sendSet('BIRTHDAY', val)
+      end
+      def setSex(val) sendSet('SEX', val); end
+      def setLanguages(*val)
+        if val[0].class == Array
+          val = val[0].join(' ')
+        else
+          val = val.join(' ')
+        end
+        sendSet('LANGUAGES', val)
+      end
+      def setCountry(val) sendSet('COUNTRY', val); end
+      #def setIpcountry(val) sendSet('IPCOUNTRY', val); end
+      def setProvince (val) sendSet('PROVINCE', val); end
+      def setCity (val) sendSet('CITY', val); end
+      def setPhoneHome (val) sendSet('PHONE_HOME', val); end
+      def setPhoneOffice (val) sendSet('PHONE_OFFICE', val); end
+      def setPhoneMobile (val) sendSet('PHONE_MOBILE', val); end
+      def setHomepage (val) sendSet('HOMEPAGE', val); end
+      def setAbout (val) sendSet('ABOUT', val); end
+      def setMoodText (val) sendSet('MOOD_TEXT', val); end
+      def setRichMoodText (val) sendSet('RICH_MOOD_TEXT', val); end
+      def setTimezone (val) sendSet('TIMEZONE', val); end
+      def setCallApplyCF (val)
+        sendSet('CALL_APPLY_CF', val._str)
+      end
+      def setCallNoanswerTimeout (val) sendSet('CALL_NOANSWER_TIMEOUT', val); end
+      def setCallForwardRules(*val)
+        unless val[0] == nil
+          val = val[0] if val.length == 1
+          val = [val] unless val[0].class == Array
+          val.map! do |rule|
+            rule.join ','
+          end
+          val = val.join ' '
+          sendSet('CALL_FORWARD_RULES', val)
+        else
+          sendSet('CALL_FORWARD_RULES', '')
+        end
+      end
+      def setCallSendToVM (val)
+        sendSet('CALL_SEND_TO_VM', val._str)
+      end
+    end
+  end
+end

data/lib/skypeapi/sharefunctions.rb

@@ -0,0 +1,123 @@
+class NilClass
+  def _flag
+    nil
+  end
+  
+  def _swi
+    nil
+  end
+  
+  def _str
+    ""
+  end
+  
+  def _int
+    nil
+  end
+end
+
+class String
+  def _flag
+    case self
+    when /^(TRUE)|(ON)$/i
+      return true
+    when /^(FALSE)|(OFF)$/i
+      return false
+    else
+      self
+    end
+  end
+  
+  def _int
+    self.empty? ? nil : self.to_i
+  end
+  
+  def _str
+    self
+  end
+end
+
+class TrueClass
+  def _swi
+    "ON"
+  end
+  
+  def _str
+    "TRUE"
+  end
+end
+
+class FalseClass
+  def _swi
+    "OFF"
+  end
+  
+  def _str
+    "FALSE"
+  end
+end
+
+module SkypeAPI
+  
+  module ShareFunctions
+    #private
+    
+    #ex
+    #sendEcho "CREATE APPLICATION #{@appName}"
+    #CREATE APPLICATION #{@appName} -> CREATE APPLICATION #{@appName}
+    def sendEcho cmd
+      sendCMD(cmd) == cmd
+    end
+    
+    #ex
+    #sendOne "GET CHATMESSAGE #{@id} BODY","CHATMESSAGE #{@id} BODY"
+    #GET CHATMESSAGE #{@id} BODY -> CHATMESSAGE #{@id} BODY (.+)
+    def sendOne cmd, regExp=cmd
+      regExp.gsub!(/[\^$.\\\[\]*+{}?|()]/) do |char|
+        "\\" + char
+      end
+      sendCMD(cmd) =~ /^#{regExp} (.*)$/m
+      $1
+    end
+    
+    #ex
+    #sendGet("GET USER #{@handle} SkypeOut")
+    #GET USER #{@handle} SkypeOut -> USER #{@handle} SkypeOut (.+)
+    def sendGet prop, value=nil
+      cmd = "GET #{defined?(self.class::OBJECT_NAME) ? self.class::OBJECT_NAME + ' ' : ''}#{@id ? @id.to_s+' ' : ''}#{prop}#{value ? ' ' + value : ''}"
+      reg = "#{defined?(self.class::OBJECT_NAME) ? self.class::OBJECT_NAME + ' ' : ''}#{@id ? @id.to_s+' ' : ''}#{prop}#{value ? ' ' + value : ''}".gsub(/[\^$.\\\[\]*+{}?|()]/) do |char|
+        "\\" + char
+      end
+      sendCMD(cmd) =~ /^#{reg} (.*)$/m
+      $1
+    end
+    
+    def sendSet prop,value=nil
+      cmd = "SET #{defined?(self.class::OBJECT_NAME) ? self.class::OBJECT_NAME + ' ' : ''}#{@id ? @id.to_s + ' ' : ''}#{prop}#{value ? ' '+value.to_s : '' }"
+      reg = "#{defined?(self.class::OBJECT_NAME) ? self.class::OBJECT_NAME + ' ' : ''}#{@id ? @id.to_s + ' ' : ''}#{prop}"
+      str = sendOne cmd, reg
+      if self.class == Module
+        self::V2O[prop] ? self::V2O[prop].call(str) : str
+      else
+        self.class::V2O[prop] ? self.class::V2O[prop].call(str) : str
+      end
+    end
+    
+    #true�����Ԃ��Ȃ��B������ςȂ��B����ȊO�̕Ԃ茌������悤�Ȃ̂͂�sendCMD�Ŏ�������B
+    def sendAlter prop, value=nil
+      cmd = "ALTER #{defined?(self.class::OBJECT_NAME) ? self.class::OBJECT_NAME + ' ' : ''}#{@id ? @id.to_s + ' ' : ''}#{prop}#{value ? ' '+value.to_s : '' }"
+      #res = "ALTER #{defined?(self.class::OBJECT_NAME) ? self.class::OBJECT_NAME + ' ' : ''}#{@id ? @id.to_s + ' ' : ''}#{prop}"
+      #reg.gsub!(/[\^$.\\\[\]*+{}?|()]/) do |char|
+      #  "\\" + char
+      #end
+      #res = "ALTER #{defined?(self.class::OBJECT_NAME) ? self.class::OBJECT_NAME + ' ' : ''}#{prop}"
+      sendCMD(cmd)# == res
+      true
+    end
+    
+    #def sendAlterWithID prop, value=nil
+    #  str = sendOne "ALTER #{self.class::OBJECT_NAME} #{@id} #{prop}#{value ? ' '+value.to_s : '' }","ALTER #{self.class::OBJECT_NAME} #{@id} #{prop}"
+    #  self.class::V2O[self.class::P2M[prop]] ? self.class::V2O[self.class::P2M[prop]].call(str) : str
+    #end
+  end
+end