Ruby4Skype 0.2.1

data/lib/skypeapi/chat.rb

@@ -0,0 +1,186 @@
+module SkypeAPI
+  module Object
+    class Chat < AbstractObject      
+      OBJECT_NAME =  "CHAT"
+      
+      getter :Name, 'NAME'
+      getter :Timestamp, 'TIMESTAMP' do |str|
+        str.to_i
+      end
+      getter :Adder, 'ADDER' do |str|
+        str.empty? ? nil : @@skypeApi.user(str)
+      end
+      getter :Status, 'STATUS'
+      getter :Posters, 'POSTERS' do |str|
+        str.split(', ').map do |handle|
+          @@skypeApi.user handle
+        end
+      end
+      getter :Members, 'MEMBERS' do |str|
+        str.split(' ').map do |handle|
+          @@skypeApi.user handle
+        end
+      end
+      getter :Topic, 'TOPIC'
+      getter :TopicXML, 'TOPICXML'
+      getter :ChatMessages, 'CHATMESSAGES' do |str|
+        str.split(' ').map do |id|
+          @@skypeApi.chatMessage id
+        end
+      end
+      getter :ActiveMembers, 'ACTIVEMEMBERS' do |str|
+        str.split(' ').map do |handle|
+          @@skypeApi.user handle
+        end
+      end
+      getter :FriendlyName, 'FRIENDLYNAME'
+      getter :RecentChatMessages, 'RECENTCHATMESSAGES' do |str|
+        str.split(' ').map do |handle|
+          @@skypeApi.chatMessage handle
+        end
+      end
+      getter :Bookmarked, 'BOOKMARKED' do |str|
+        str._flag
+      end
+      getter :MemberObjects, 'MEMBEROBJECTS' do |str|
+        str.split(', ').map do |id|
+          @@skypeApi.chatMember id
+        end
+      end
+      getter :PasswordHint, 'PASSWORDHINT'
+      getter :GuideLines, 'GUIDELINES'
+      getter :Options, 'OPTIONS' do |str|
+        str.to_i
+      end
+      getter :Description, 'DESCRIPTION'
+      getter :DialogPartner, 'DIALOG_PARTNER' do |str|
+        if str.empty?
+           nil
+        else
+          @@skypeApi.user str
+        end
+      end
+      getter :ActivityTimestamp, 'ACTIVITY_TIMESTAMP' do |str|
+        str.to_i
+      end
+      getter :Type, 'TYPE'
+      getter :MyStatus, 'MYSTATUS'
+      getter :MyRole, 'MYROLE'
+      getter :Blob, 'BLOB'
+      getter :Applicants, 'APPLICANTS' do |str|
+        str.split(' ').map do |handle|
+          @@skypeApi.user handle
+        end
+      end
+      
+      
+      def self.create *users
+        retVal = @@skypeApi.sendCMD "CHAT CREATE #{users.join(', ')}"
+        retVal =~ /^CHAT ([^ ]+) STATUS (.+)$/
+        chatID, status = $1, $2
+        return @@skypeApi.chat(chatID)#, status
+      end
+      
+      def self.findUsingBlob blob
+        retVal = @@skypeApi.sendCMD "CHAT FINDUSINGBLOB #{blob}"
+        retVal =~ /^CHAT ([^ ]+) STATUS (.+)$/
+        chatID, status = $1, $2
+        return @@skypeApi.chat(chatID)#, status
+      end
+      
+      def self.createUsingBlob blob
+        retVal = @@skypeApi.sendCMD "CHAT CREATEUSINGBLOB #{blob}"
+        retVal =~ /^CHAT ([^ ]+) STATUS (.+)$/
+        chatID, status = $1, $2
+        return @@skypeApi.chat(chatID)#, status
+      end
+      
+      #���[
+      #def open
+      #  retVal = sendCMD "OPEN CHAT #{@id}"
+      #  retVal =~ /^OPEN CHAT (.+)$/
+      #  return @@skypeApi.chat($1)
+      #end
+      
+      def setTopic str
+        sendAlter "SETTOPIC", str
+      end
+
+      def setTopicXML str
+        sendAlter "SETTOPICXML", str
+      end
+      
+      def addMembers *member
+        sendAlter "ADDMEMBERS",  member.join(', ')
+      end
+      
+      def leave
+        sendAlter "LEAVE"
+      end
+      
+      def bookmarked
+        sendAlter "BOOKMARK"
+      end
+      
+      def unbookmarked
+        sendAlter "UNBOOKMARK"
+      end
+      
+      def join
+        #
+        sendAlter "JOIN"
+      end
+      
+      def clearRecentMessages
+        sendAlter "CLEARRECENTMESSAGES"
+      end
+      
+      def setAlertString str
+        sendAlter "SETALERTSTRING", str
+      end
+      
+      def acceptadd
+        sendAlter "ACCEPTADD"
+      end
+      
+      def disband
+        sendAlter "DISBAND"
+      end
+      
+      
+      def setPassword password, passwordHint=''
+        sendAlter "SETPASSWORD", password + ' ' + passwordHint
+      end
+      
+      def enterPassword password
+        sendAlter "ENTERPASSWORD", password
+      end
+      
+      def setOptions option
+        sendAlter "SETOPTIONS", option
+      end
+
+      def kick *users
+        users = users.join ', '
+        sendAlter "KICK", users
+      end
+      
+      def kickBan *users
+        users = users.join ', '
+        sendAlter "KICKBAN", users
+      end
+      
+      def setGuideLines guidlines
+        sendAlter 'SETGUIDELINES', guidlines
+      end
+      
+      def setOptions optionsBitmap
+        sendAlter 'SETOPTIONS', optionsBitmap.to_s
+      end
+      
+      def sendMessage msg
+        @@skypeApi.ChatMessage.create self, msg
+      end
+    end
+  end
+end

data/lib/skypeapi/chatmember.rb

@@ -0,0 +1,33 @@
+module SkypeAPI
+  module Object
+    class ChatMember < AbstractObject
+      OBJECT_NAME = "CHATMEMBER"
+
+      getter :Chat, 'CHATNAME' do |str|
+        @@skypeApi.chat(str)
+      end
+      
+      getter :User,'IDENTITY' do |str|
+         @@skypeApi.user str
+      end
+      
+      getter :Role, 'ROLE'
+      
+      getter :IsActive, 'IS_ACTIVE' do |str|
+        str._flag
+      end
+      
+      def setRoleTo role
+        sendAlter('SETROLETO', role)
+      end
+      
+      def canSetRoleTo role
+        #ALTER�ŕԂ茌������ɂ߂ē����B
+        res = sendCMD("ALTER CHATMEMBER #{@id} CANSETROLETO #{role}")
+        res =~ /ALTER CHATMEMBER CANSETROLETO (TRUE|FALSE)/
+        $1._flag
+      end
+      
+    end
+  end
+end

data/lib/skypeapi/chatmessage.rb

@@ -0,0 +1,64 @@
+module SkypeAPI
+  module Object
+    class ChatMessage < AbstractObject
+      OBJECT_NAME = "CHATMESSAGE"
+
+      def self.create chatId ,msg
+        res = @@skypeApi.sendCMD "CHATMESSAGE #{chatId} #{msg}"
+        if res =~ /^CHATMESSAGE (\d+) STATUS (.+)$/
+          return @@skypeApi.chatMessage($1)#, $2
+        else
+          raise #????
+        end
+      end
+      
+      getter :Body, 'BODY'
+      getter :Timestamp, 'TIMESTAMP' do |str|
+        str.to_i
+      end
+      getter :Partner, 'PARTNER_HANDLE' do |str|
+        @@skypeApi.user str
+      end
+      getter :PartnerDispname, 'PARTNER_DISPNAME'
+      getter :From, 'FROM_HANDLE' do |str|
+        @@skypeApi.user str
+      end
+      getter :FromDispname, 'FROM_DISPNAME'
+      getter :Type, 'TYPE'
+      getter :Status, 'STATUS'
+      getter :LeaveReason, 'LEAVEREASON'
+      getter :Chat, 'CHATNAME' do |str|
+        @@skypeApi.chat str
+      end
+      getter :Users, 'USERS' do |str|
+        str.split(',').map do |handle|
+          @@skypeApi.user handle
+        end
+      end
+      getter :IsEditable, 'IS_EDITABLE' do |str|
+        str._flag
+      end
+      getter :EditedBy, 'EDITED_BY' do |str|
+        str.empty? ? nil : @@skypeApi.user(str)
+      end
+      getter :EditedTimestamp, 'EDITED_TIMESTAMP' do |str|
+        str.to_i
+      end
+      getter :Options, 'OPTIONS' do |str|
+        str.to_i
+      end
+      getter :Role, 'ROLE'
+      
+      def setSeen
+        str = @@skypeApi.sendCMD "SET CHATMESSAGE #{@id} SEEN"
+        if str =~ /^CHATMESSAGE #{@id} STATUS (.+)$/
+          return true
+        else
+          raise #????
+        end
+      end
+      
+      def setBody (val) sendSet('BODY',val._str); end
+    end
+  end
+end

data/lib/skypeapi/event.rb

@@ -0,0 +1,46 @@
+module SkypeAPI
+  module Object    
+    class Event  < AbstractObject
+      OBJECT_NAME = "EVENT"
+      
+      def self.create id, caption, hint, block=Proc.new
+        res = @@skypeApi.sendCMD "CREATE EVENT #{id} CAPTION #{caption} HINT #{hint}"
+        res == "EVENT #{id} CREATED"
+        instance = new id
+        instance.setNotify block if block
+        instance
+      end
+      
+      def self.setNotify id=nil, block=Proc.new
+        @notify[id] = block
+      end
+      
+      def self.notified msg
+        if msg =~ /^([^ ]+) CLICKED$/m
+          id = $1
+          instance = new $1
+          @notify[nil].call instance if @notify[nil]
+          @notify[id].call instance if @notify[id]
+          @@instance[self][id].notified if @@instance[self][id]
+        end
+      end
+      
+      def notified
+        @notify.call self if @notify
+      end
+      
+      def setNotify block=Proc.new
+        @notify = block
+      end
+      
+      def self.delete id
+        new(id).delete
+      end
+      
+      def delete
+        res = sendCMD "DELETE EVENT #{@id}"
+        res == "DLEETE EVENT #{@id}"
+      end
+    end
+  end
+end

data/lib/skypeapi/filetransfer.rb

@@ -0,0 +1,31 @@
+module SkypeAPI
+  module Object
+    class FileTransfer < AbstractObject
+      OBJECT_NAME = "FILETRANSFER"
+      
+      getter :Type, 'TYPE'
+      getter :Status, 'STATUS'
+      getter :FailureReason, 'FAILUREREASON'
+      getter :Partner, 'PARTNER_HANDLE' do |str|
+        @@skypeApi.user str
+      end
+      getter :PartnerDispname, 'PARTNER_DISPNAME'
+      getter :StartTime, 'STARTTIME' do |str|
+        str.to_i
+      end
+      getter :FinishTime, 'FINISHTIME' do |str|
+        str.to_i
+      end
+      getter :FilePath, 'FILEPATH'
+      getter :FileSize, 'FILESIZE' do |str|
+        str.to_i
+      end
+      getter :BytesPerSecond, 'BYTESPERSECOND' do |str|
+        str.to_i
+      end
+      getter :BytesTransferred, 'BYTESTRANSFERRED' do |str|
+        str.to_i
+      end
+    end
+  end
+end

data/lib/skypeapi/group.rb

@@ -0,0 +1,81 @@
+module SkypeAPI
+  module Object
+    class Group < AbstractObject
+      OBJECT_NAME = "GROUP"
+      
+      def self.create family
+        @@skypeApi.sendCMD("CREATE GROUP #{family}")
+        group = nil
+        tmp = nil
+        if @@skypeApi.Group.notify[:displayname] and @@skypeApi.Group.notify[:displayname][family]
+          tmp = @@skypeApi.Group.notify[:displayname][family]
+        end
+        @@skypeApi.Group.setNotify :DisplayName, family do |g|
+          group = g
+        end
+        until group
+          @@skypeApi.polling
+          sleep 0.0123
+        end
+        if tmp
+          @@skypeApi.Group.setNotify :DisplayName, family, tmp
+          tmp.call group
+        else
+          @@skypeApi.Group.notify[:displayname][family] = nil
+        end
+        group
+        #ThreadSafe ����ς��낤�Ȃ��B�B�B
+      end
+      
+      getter :Type, 'TYPE'
+      getter :CustomGroupID, 'CUSTOM_GROUP_ID' do |str|
+        str.to_i
+      end
+      getter :DisplayName, 'DISPLAYNAME'
+      getter :NrofUsers, 'NROFUSERS' do |str|
+        str.to_i
+      end
+      getter :NrofUsersOnline, 'NROFUSERS_ONLINE' do |str|
+        str.to_i
+      end
+      getter :Users, 'USERS' do |str|
+        str.split('./')
+      end
+      getter :Visible, 'VISIBLE' do |str|
+        str._flag
+      end
+      getter :Expanded, 'EXPANDED' do |str|
+        str._flag
+      end
+      
+      def setDisplayName name
+        sendSet "DISPLAYNAME", name
+      end
+      
+      def delete
+        sendEcho "DELETE GROUP #{@id}"
+      end
+      
+      def addUser user
+        sendAlter "ADDUSER", user
+      end
+      
+      def removeUser user
+        sendAlter "REMOVEUSER", user
+      end
+      
+      def share text
+        sendAlter "Share", text
+      end
+      
+      def accept
+        sendAlter "ACCEPT"
+      end
+      
+      def decline
+        sendAlter "DECLINE"
+      end
+      
+    end
+  end
+end

data/lib/skypeapi/menuitem.rb

@@ -0,0 +1,64 @@
+module SkypeAPI
+  module Object
+    class MenuItem < AbstractObject
+      OBJECT_NAME = 'MENU_ITEM'
+      
+      def self.create h, block=Proc.new
+        raise ArgumentError unless h[:id] and h[:context] and h[:context]
+        #id, context, caption, hint=nil, icon=nil, enabled=nil, enableMultipleContacts=nil, &block
+        res = @@skypeApi.sendCMD "CREATE MENU_ITEM #{h[:id]} CONTEXT #{h[:context]} CAPTION #{h[:caption]}#{h[:hint].nil? ? '' : " HINT #{h[:hint]}"}#{h[:icon].nil? ? '' : " ICON #{h[:icon]}"}#{h[:enable].nil? ? '' : " ENABLED #{h[:enabled]}"}#{h[:enableMultipleContacts].nil? ? '' : " ENABLE_MULTIPLE_CONTACTS #{h[:enableMultipleContacts]}"}"
+        res == "MENU_ITEM #{h[:id]} CREATED"
+        instance = new h[:id]
+        instance.setNotify block if block
+        instance
+      end
+
+      def self.setNotify sym=nil, block=Proc.new
+        @notify[sym] = block
+      end
+      
+      def self.notified msg
+        if msg =~ /^([^ ]+) CLICKED( ([^ ]+))? CONTEXT ([^ ]+)( CONTEXT_ID (.+))?$/m
+          id = $1; context = $4; userID = $3; contextID = $6
+          user = userID ? @@skypeApi.user(userID) : nil
+          instance = new $1
+          @notify[nil].call instance, context, user, contextID if @notify[nil]
+          @notify[id].call instance, context, user, contextID if @notify[id]
+          @@instance[self][id].notified context, user, contextID if @@instance[self][id]
+        end
+      end
+      
+      def notified context, user, contextID
+        @notify.call context, user, contextID if @notify
+      end
+      
+      def setNotify block=Proc.new
+        @notify = block
+      end
+      
+      def self.delete id
+        new(id).delete
+      end
+      
+      def delete
+        res = @@skypeApi.sendCMD "DELETE MENU_ITEM #{@id}"
+        res == "DELETE MENU_ITEM #{@id}"
+      end
+      
+      def setCaption value
+        res = sendCMD "SET MENU_ITEM #{@id} CAPTION #{value}"
+        res == "MENU_ITEM #{@id} CAPTION \"#{value}\""
+      end
+      
+      def setHint value
+        res = sendCMD "SET MENU_ITEM #{@id} HINT #{value}"
+        res == "MENU_ITEM #{@id} HINT \"#{value}\""
+      end
+      
+      def setEnabled value
+        res = sendCMD "SET MENU_ITEM #{@id} ENABLED #{value._str}"
+        res == "MENU_ITEM #{@id} ENABLED #{value._str}"
+      end
+    end
+  end
+end

data/lib/skypeapi/message.rb

@@ -0,0 +1,46 @@
+module SkypeAPI
+  module Object
+    class Message < AbstractObject
+      OBJECT_NAME = "MESSAGE"
+ 
+      PROPERTY2METHOD =  {
+        'TIMESTAMP' => :timestamp,
+        'PARTNER_HANDLE' => :partnerHandle,
+        'PARTNER_DISPNAME' => :partnerDispname,
+        'CONF_ID' => :confIdD,
+        'TYPE' => :type,
+        'STATUS' => :status,
+        'FAILUREREASON' => :failureReason,
+        'BODY' => :body,
+      }
+      
+      def self.create target,text
+        if defined? target.getHandle
+          target = target.getHandle
+        elsif target.class == String
+        else
+          raise target
+        end
+        res = @skypeApi.sendOne "MESSAGE #{target} #{text}","MESSAGE"
+        if res =~ /^(\d+) STATUS (.+)$/
+          return @skypeApi.getMessage($1),"getStatus",$2
+        else
+          raise #????
+        end
+      end
+      
+      def timestamp() sendGet('TIMESTAMP'); end
+      def partnerHandle() sendGet('PARTNER_HANDLE'); end
+      def partnerDispname() sendGet('PARTNER_DISPNAME'); end
+      def confIdD() sendGet('CONF_ID'); end
+      def type() sendGet('TYPE'); end
+      def status() sendGet('STATUS'); end
+      def failureReason() sendGet('FAILUREREASON'); end
+      def body() sendGet('BODY'); end
+      
+      #def setSeen
+      #  str2object sendOne("SET MESSAGE #{@id} SEEN","SET MESSAGE #{@id} STATUS")
+      #end
+    end
+  end
+end

data/lib/skypeapi/object.rb

@@ -0,0 +1,122 @@
+require 'date'
+
+module SkypeAPI
+  module Object
+    
+   
+    #������R�s�y�U�݁B
+    module Notify
+      def setNotify property=nil,value=nil, block=Proc.new
+        property = property.to_s.downcase.to_sym if property
+        value = value.to_s.upcase if value.class == Symbol
+        @notify[property] = Hash.new unless @notify[property]
+        @notify[property][value] = block
+      end
+      
+      def delNotify property=nil,value=nil
+        @notify[property].delete value
+      end
+      
+      def notify
+        @notify
+      end
+      
+      def notified property,value
+        if @notify[nil]
+          @notify[nil][nil].call property, value if @notify[nil][nil]
+          @notify[nil][value].call property if @notify[nil][value]
+        end
+        if @notify[property]
+          @notify[property][nil].call value if @notify[property][nil]
+          @notify[property][value].call if @notify[property][value]
+        end
+      end
+    end
+    
+    module Get
+      def getter methodName, skypeProperty=methodName.to_s.upcase, &callBack
+        defineMethod = self == SkypeAPI ? self.class.method(:define_method) : method(:define_method)
+        defineMethod.call 'get' + methodName.to_s do
+          str = sendGet skypeProperty
+          callBack ? callBack.call(str) : str
+        end
+        self::P2M[skypeProperty] = methodName.to_sym
+        self::V2O[skypeProperty] = callBack if callBack
+      end
+      
+      def notice methodName,skypeProperty,&block
+        self::P2M[skypeProperty] = methodName.to_sym
+        self::V2O[methodName] = block if block
+      end
+    end
+    
+    class AbstractObject
+      extend SkypeAPI::Object::Notify
+      extend Forwardable
+      extend SkypeAPI::Object::Get
+      include SkypeAPI::Object::Notify
+      include SkypeAPI::ShareFunctions
+      
+      #�p�������ނ�S������B@@instance[class][id of instance]
+      @@instance = Hash.new do |hash,key|
+        hash[key] = Hash.new
+      end
+      @@skypeApi = SkypeAPI
+      
+      #�萔�͌p�����Ăق����Ȃ��ׁA�•ʂɐ����B
+      #Module include self.class::P2M
+      #Module extend self::P2M
+      #Class  P2M
+      #Instance P2M �ŃA�N�Z�X�B
+      def self.inherited sub
+        sub.const_set :P2M, Hash.new{|hash,key| hash[key] = key}
+        sub.const_set :V2O, Hash.new
+        sub.instance_variable_set :@notify, Hash.new
+      end
+      
+      #extend����Notify���I�[�o�[���C�h�B
+      #����Ă�̂́A�l�̕ϊ��Ǝ�����notify�ƃC���X�^���X��notify�񂵁B
+      def self.notified msg
+        if msg =~ /^([^ ]+) ([^ ]+) (.*)$/m
+          id = $1; skypeProperty = $2; value = $3
+          instance = new id
+          property = self::P2M[skypeProperty].to_s.downcase.to_sym if self::P2M[skypeProperty].class == Symbol
+          value = self::V2O[skypeProperty].call value if self::V2O[skypeProperty]
+          
+          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
+          @@instance[self][id].notified property,value if @@instance[self][id]
+        end
+      end
+      
+      def self.new id
+        if @@instance[self][id]
+          return @@instance[self][id]
+        else
+          instance = super id
+          instance.instance_variable_set :@notify, Hash.new
+          @@instance[self][id] = instance
+          return instance
+        end
+      end
+      
+      def initialize id
+        @id = id
+      end
+      
+      def to_s
+        @id.to_s
+      end
+      
+      #def_delegators :@@skypeApi, :sendCMD
+      def_delegators :@@skypeApi, :sendCMD
+    end
+    
+  end
+end