dde 0.2.9 → 0.2.11

data/doc/types.txt

@@ -1,159 +1,159 @@
-== Parameters ( win32-api )
-Long:     'L'
-Integer:  'I'
-Pointer:  'P'
-Void:     'V'
-String:   'S'
-Callback: 'K' # win32-api only
-
-== Windows Data Types
-BOOL  		=> 'I' (or 'B', win32-api only)
-DWORD 		=> 'L'
-HANDLE		=> 'L'
-LPDWORD		=> 'P' (or 'L')
-LPTSTR 		=> 'P'
-LPCTSTR     => 'S'
-UINT  		=> 'L'
-VOID        => 'V'
-WORD        => 'I'
-LPVOID      => 'L' (or 'P')
-CALLBACK    => 'K'
-
-== C Data Types
-void     	=> 'V'
-void*    	=> 'P'
-char*    	=> 'P'
-const char* => 'L'
-int			=> 'I'
-long        => 'L'
-struct      => 'P'
-struct*     => 'P'
-
-== Notes
-In practice most LPVOID types should be designated as 'L' because this
-usually means the function is looking for an address. Check the documentation
-for details.
-
-If using the windows-api library, you can use 'B' instead of 'I' for the return
-type for functions that return a BOOL.
-
-===== Definitions from windows-api (api.rb)
-      # Verbose data types that can be used instead of single letters
-      DATA_TYPES = {
-         'ATOM'         => 'I',
-         'BOOL'         => 'B',
-         'BOOLEAN'      => 'B',
-         'BYTE'         => 'I',
-         'CALLBACK'     => 'K',
-         'CHAR'         => 'I',
-         'COLORREF'     => 'L',
-         'DWORD'        => 'L',
-         'DWORDLONG'    => 'L',
-         'DWORD_PTR'    => 'P',
-         'DWORD32'      => 'I',
-         'DWORD64'      => 'L',
-         'HACCEL'       => 'L',
-         'HANDLE'       => 'L',
-         'HBITMAP'      => 'L',
-         'HBRUSH'       => 'L',
-         'HCOLORSPACE'  => 'L',
-         'HCONV'        => 'L',
-         'HDC'          => 'L',
-         'HFILE'        => 'I',
-         'HKEY'         => 'L',
-         'HFONT'        => 'L',
-         'HINSTANCE'    => 'L',
-         'HKEY'         => 'L',
-         'HLOCAL'       => 'L',
-         'HMENU'        => 'L',
-         'HMODULE'      => 'L',
-         'HRESULT'      => 'L',
-         'HWND'         => 'L',
-         'INT'          => 'I',
-         'INT_PTR'      => 'P',
-         'INT32'        => 'I',
-         'INT64'        => 'L',
-         'LANGID'       => 'I',
-         'LCID'         => 'L',
-         'LCTYPE'       => 'L',
-         'LONG'         => 'L',
-         'LONGLONG'     => 'L',
-         'LONG_PTR'     => 'P',
-         'LONG32'       => 'L',
-         'LONG64'       => 'L',
-         'LPARAM'       => 'P',
-         'LPBOOL'       => 'P',
-         'LPBYTE'       => 'P',
-         'LPCOLORREF'   => 'P',
-         'LPCSTR'       => 'P',
-         'LPCTSTR'      => 'P',
-         'LPCVOID'      => 'L',
-         'LPCWSTR'      => 'P',
-         'LPDWORD'      => 'P',
-         'LPHANDLE'     => 'P',
-         'LPINT'        => 'P',
-         'LPLONG'       => 'P',
-         'LPSTR'        => 'P',
-         'LPTSTR'       => 'P',
-         'LPVOID'       => 'L',
-         'LPWORD'       => 'P',
-         'LPWSTR'       => 'P',
-         'LRESULT'      => 'P',
-         'PBOOL'        => 'P',
-         'PBOOLEAN'     => 'P',
-         'PBYTE'        => 'P',
-         'PHKEY'        => 'P',
-         'SC_HANDLE'    => 'L',
-         'SC_LOCK'      => 'L',
-         'SERVICE_STATUS_HANDLE' => 'L',
-         'SHORT'        => 'I',
-         'SIZE_T'       => 'P',
-         'TCHAR'        => 'L',
-         'UINT'         => 'I',
-         'UINT_PTR'     => 'P',
-         'UINT32'       => 'I',
-         'UINT64'       => 'L',
-         'ULONG'        => 'L',
-         'ULONGLONG'    => 'L',
-         'ULONG_PTR'    => 'P',
-         'ULONG32'      => 'L',
-         'ULONG64'      => 'L',
-         'USHORT'       => 'I',
-         'USN'          => 'L',
-         'WINAPI'       => 'L',
-         'WORD'         => 'I'
-      }
-
-Win::Library shortcuts (Mostly in line with Array#pack)
-    TYPES = {
-            V: :void, # For functions that return nothing (return type void).
-            v: :void, # For functions that return nothing (return type void).
-            C: :uchar, #– 8-bit unsigned character (byte)
-            c: :char, # 8-bit character (byte)
-            # :int8 – 8-bit signed integer
-            # :uint8 – 8-bit unsigned integer
-            S: :ushort, # – 16-bit unsigned integer (Win32API: used for string)
-            s: :short, # – 16-bit signed integer
-            # :uint16 – 16-bit unsigned integer
-            # :int16 – 16-bit signed integer
-            I: :uint, # 32-bit unsigned integer
-            i: :int, # 32-bit signed integer
-            # :uint32 – 32-bit unsigned integer
-            # :int32 – 32-bit signed integer
-            L: :ulong, # unsigned long int – platform-specific size
-            l: :long, # long int – platform-specific size (http://groups.google.com/group/ruby-ffi/browse_thread/thread/4762fc77130339b1)
-            # :int64 – 64-bit signed integer
-            # :uint64 – 64-bit unsigned integer
-            # :long_long – 64-bit signed integer
-            # :ulong_long – 64-bit unsigned integer
-            F: :float, # 32-bit floating point
-            D: :double, # 64-bit floating point (double-precision)
-            P: :pointer, # pointer – platform-specific size
-            p: :string, # C-style (NULL-terminated) character string (Win32API: S)
-            B: :bool # (?? 1 byte in C++)
-#For function argument type only:
-# :buffer_in – Similar to :pointer, but optimized for Buffers that the function can only read (not write).
-# :buffer_out – Similar to :pointer, but optimized for Buffers that the function can only write (not read).
-# :buffer_inout – Similar to :pointer, but may be optimized for Buffers.
-# :varargs – Variable arguments
-    }
+== Parameters ( win32-api )
+Long:     'L'
+Integer:  'I'
+Pointer:  'P'
+Void:     'V'
+String:   'S'
+Callback: 'K' # win32-api only
+
+== Windows Data Types
+BOOL  		=> 'I' (or 'B', win32-api only)
+DWORD 		=> 'L'
+HANDLE		=> 'L'
+LPDWORD		=> 'P' (or 'L')
+LPTSTR 		=> 'P'
+LPCTSTR     => 'S'
+UINT  		=> 'L'
+VOID        => 'V'
+WORD        => 'I'
+LPVOID      => 'L' (or 'P')
+CALLBACK    => 'K'
+
+== C Data Types
+void     	=> 'V'
+void*    	=> 'P'
+char*    	=> 'P'
+const char* => 'L'
+int			=> 'I'
+long        => 'L'
+struct      => 'P'
+struct*     => 'P'
+
+== Notes
+In practice most LPVOID types should be designated as 'L' because this
+usually means the function is looking for an address. Check the documentation
+for details.
+
+If using the windows-api library, you can use 'B' instead of 'I' for the return
+type for functions that return a BOOL.
+
+===== Definitions from windows-api (api.rb)
+      # Verbose data types that can be used instead of single letters
+      DATA_TYPES = {
+         'ATOM'         => 'I',
+         'BOOL'         => 'B',
+         'BOOLEAN'      => 'B',
+         'BYTE'         => 'I',
+         'CALLBACK'     => 'K',
+         'CHAR'         => 'I',
+         'COLORREF'     => 'L',
+         'DWORD'        => 'L',
+         'DWORDLONG'    => 'L',
+         'DWORD_PTR'    => 'P',
+         'DWORD32'      => 'I',
+         'DWORD64'      => 'L',
+         'HACCEL'       => 'L',
+         'HANDLE'       => 'L',
+         'HBITMAP'      => 'L',
+         'HBRUSH'       => 'L',
+         'HCOLORSPACE'  => 'L',
+         'HCONV'        => 'L',
+         'HDC'          => 'L',
+         'HFILE'        => 'I',
+         'HKEY'         => 'L',
+         'HFONT'        => 'L',
+         'HINSTANCE'    => 'L',
+         'HKEY'         => 'L',
+         'HLOCAL'       => 'L',
+         'HMENU'        => 'L',
+         'HMODULE'      => 'L',
+         'HRESULT'      => 'L',
+         'HWND'         => 'L',
+         'INT'          => 'I',
+         'INT_PTR'      => 'P',
+         'INT32'        => 'I',
+         'INT64'        => 'L',
+         'LANGID'       => 'I',
+         'LCID'         => 'L',
+         'LCTYPE'       => 'L',
+         'LONG'         => 'L',
+         'LONGLONG'     => 'L',
+         'LONG_PTR'     => 'P',
+         'LONG32'       => 'L',
+         'LONG64'       => 'L',
+         'LPARAM'       => 'P',
+         'LPBOOL'       => 'P',
+         'LPBYTE'       => 'P',
+         'LPCOLORREF'   => 'P',
+         'LPCSTR'       => 'P',
+         'LPCTSTR'      => 'P',
+         'LPCVOID'      => 'L',
+         'LPCWSTR'      => 'P',
+         'LPDWORD'      => 'P',
+         'LPHANDLE'     => 'P',
+         'LPINT'        => 'P',
+         'LPLONG'       => 'P',
+         'LPSTR'        => 'P',
+         'LPTSTR'       => 'P',
+         'LPVOID'       => 'L',
+         'LPWORD'       => 'P',
+         'LPWSTR'       => 'P',
+         'LRESULT'      => 'P',
+         'PBOOL'        => 'P',
+         'PBOOLEAN'     => 'P',
+         'PBYTE'        => 'P',
+         'PHKEY'        => 'P',
+         'SC_HANDLE'    => 'L',
+         'SC_LOCK'      => 'L',
+         'SERVICE_STATUS_HANDLE' => 'L',
+         'SHORT'        => 'I',
+         'SIZE_T'       => 'P',
+         'TCHAR'        => 'L',
+         'UINT'         => 'I',
+         'UINT_PTR'     => 'P',
+         'UINT32'       => 'I',
+         'UINT64'       => 'L',
+         'ULONG'        => 'L',
+         'ULONGLONG'    => 'L',
+         'ULONG_PTR'    => 'P',
+         'ULONG32'      => 'L',
+         'ULONG64'      => 'L',
+         'USHORT'       => 'I',
+         'USN'          => 'L',
+         'WINAPI'       => 'L',
+         'WORD'         => 'I'
+      }
+
+Win::Library shortcuts (Mostly in line with Array#pack)
+    TYPES = {
+            V: :void, # For functions that return nothing (return type void).
+            v: :void, # For functions that return nothing (return type void).
+            C: :uchar, #– 8-bit unsigned character (byte)
+            c: :char, # 8-bit character (byte)
+            # :int8 – 8-bit signed integer
+            # :uint8 – 8-bit unsigned integer
+            S: :ushort, # – 16-bit unsigned integer (Win32API: used for string)
+            s: :short, # – 16-bit signed integer
+            # :uint16 – 16-bit unsigned integer
+            # :int16 – 16-bit signed integer
+            I: :uint, # 32-bit unsigned integer
+            i: :int, # 32-bit signed integer
+            # :uint32 – 32-bit unsigned integer
+            # :int32 – 32-bit signed integer
+            L: :ulong, # unsigned long int – platform-specific size
+            l: :long, # long int – platform-specific size (http://groups.google.com/group/ruby-ffi/browse_thread/thread/4762fc77130339b1)
+            # :int64 – 64-bit signed integer
+            # :uint64 – 64-bit unsigned integer
+            # :long_long – 64-bit signed integer
+            # :ulong_long – 64-bit unsigned integer
+            F: :float, # 32-bit floating point
+            D: :double, # 64-bit floating point (double-precision)
+            P: :pointer, # pointer – platform-specific size
+            p: :string, # C-style (NULL-terminated) character string (Win32API: S)
+            B: :bool # (?? 1 byte in C++)
+#For function argument type only:
+# :buffer_in – Similar to :pointer, but optimized for Buffers that the function can only read (not write).
+# :buffer_out – Similar to :pointer, but optimized for Buffers that the function can only write (not read).
+# :buffer_inout – Similar to :pointer, but may be optimized for Buffers.
+# :varargs – Variable arguments
+    }

data/exp/exp_client.rb

@@ -1,44 +1,44 @@
-# Quick and dirty DDE Client (for experimentation)
-
-require 'win/gui/message'
-include Win::GUI::Message
-
-#require_relative 'exp_lib'
-#include DDELib
-
-require 'win/dde'
-include Win::DDE
-
-calls = []
-buffer = FFI::MemoryPointer.new(:long).write_long(0)
-buffer.address
-
-callback = lambda do |*args|
-  calls << [*args]
-  DDE_FACK
-end
-
-p status = DdeInitialize(buffer, callback, APPCLASS_STANDARD, 0)
-p id = buffer.read_long
-
-service = FFI::MemoryPointer.from_string('test_service')
-
-p handle = DdeCreateStringHandle(id, service, CP_WINANSI)
-
-p conv_handle = DdeConnect(id, handle, handle, nil)
-
-str = FFI::MemoryPointer.from_string("Poke_string\n\x00\x00")
-
-p DdeClientTransaction(str, str.size, conv_handle, handle, CF_TEXT, XTYP_POKE, 1000, nil)
-p Win::DDE::ERRORS[DdeGetLastError(id)]
-p DdeClientTransaction(str, str.size, conv_handle, handle, CF_TEXT, XTYP_EXECUTE, 1000, nil)
-p Win::DDE::ERRORS[DdeGetLastError(id)]
-sleep 0.01
-p DdeClientTransaction(str, str.size, conv_handle, handle, CF_TEXT, XTYP_EXECUTE, TIMEOUT_ASYNC, nil)
-p Win::DDE::ERRORS[DdeGetLastError(id)]
-
-p DdeDisconnect(conv_handle)
-
-p calls.map{|c| c.map{|e|e.respond_to?(:address) ? e.address : (Win::DDE::TYPES[e] || e)}}
-
-p Win::DDE::ERRORS[DdeGetLastError(id)]
+# Quick and dirty DDE Client (for experimentation)
+
+require 'win/gui/message'
+include Win::GUI::Message
+
+#require_relative 'exp_lib'
+#include DDELib
+
+require 'win/dde'
+include Win::Dde
+
+calls = []
+buffer = FFI::MemoryPointer.new(:long).write_long(0)
+buffer.address
+
+callback = lambda do |*args|
+  calls << [*args]
+  DDE_FACK
+end
+
+p status = DdeInitialize(buffer, callback, APPCLASS_STANDARD, 0)
+p id = buffer.read_long
+
+service = FFI::MemoryPointer.from_string('test_service')
+
+p handle = DdeCreateStringHandle(id, service, CP_WINANSI)
+
+p conv_handle = DdeConnect(id, handle, handle, nil)
+
+str = FFI::MemoryPointer.from_string("Poke_string\n\x00\x00")
+
+p DdeClientTransaction(str, str.size, conv_handle, handle, CF_TEXT, XTYP_POKE, 1000, nil)
+p Win::Dde::ERRORS[DdeGetLastError(id)]
+p DdeClientTransaction(str, str.size, conv_handle, handle, CF_TEXT, XTYP_EXECUTE, 1000, nil)
+p Win::Dde::ERRORS[DdeGetLastError(id)]
+sleep 0.01
+p DdeClientTransaction(str, str.size, conv_handle, handle, CF_TEXT, XTYP_EXECUTE, TIMEOUT_ASYNC, nil)
+p Win::Dde::ERRORS[DdeGetLastError(id)]
+
+p DdeDisconnect(conv_handle)
+
+p calls.map{|c| c.map{|e|e.respond_to?(:address) ? e.address : (Win::Dde::TYPES[e] || e)}}
+
+p Win::Dde::ERRORS[DdeGetLastError(id)]

data/exp/exp_dde_monitor.rb

@@ -1,18 +1,18 @@
-# Objective DDE Server (for experimentation)
-
-require 'win/gui/message'
-include Win::GUI::Message
-
-require 'dde'
-include Win::DDE
-
-calls = []
-$monitor = DDE::Monitor.new
-msg = Msg.new  # pointer to Msg FFI struct
-
-# Starting message loop (necessary for DDE processing)
-puts "Starting message loop\n"
-while msg = get_message()
-  translate_message(msg)
-  dispatch_message(msg)
-end
+# Objective DDE Server (for experimentation)
+
+require 'win/gui/message'
+include Win::GUI::Message
+
+require 'dde'
+include Win::Dde
+
+calls = []
+$monitor = Dde::Monitor.new
+msg = Msg.new  # pointer to Msg FFI struct
+
+# Starting message loop (necessary for DDE processing)
+puts "Starting message loop\n"
+while msg = get_message()
+  translate_message(msg)
+  dispatch_message(msg)
+end

data/exp/exp_dde_server.rb

@@ -1,36 +1,36 @@
-# Objective DDE Server (for experimentation)
-
-require 'win/gui/message'
-include Win::GUI::Message
-
-require 'dde'
-include Win::DDE
-
-calls = []
-@server = DDE::Server.new do |*args|
-  calls << extract_values(*args)  #[Win::DDE::TYPES[args.shift]]+args; 1}
-  puts "#{Time.now.strftime('%T.%6N')} #{extract_values(*args)}"
-  args.first == XTYP_CONNECT ? 1 : DDE_FACK
-end
-sleep 0.05
-@server.start_service('test_service')
-
-def extract_values(type, format, conv, hsz1, hsz2, data, data1, data2)
-  [Win::DDE::TYPES[type], format, conv,
-   dde_query_string(@server.id, hsz1),
-   dde_query_string(@server.id, hsz2),
-   data, data1, data2]
-end
-
-msg = Msg.new  # pointer to Msg FFI struct
-
-# Starting message loop (necessary for DDE processing)
-puts "Starting message loop\n"
-while msg = get_message()
-  translate_message(msg)
-  dispatch_message(msg)
-end
-
-p calls.map{|c| c.map{|e|e.respond_to?(:address) ? e.address : (Win::DDE::TYPES[e] || e)}}
-
-p Win::DDE::ERRORS[DdeGetLastError(@server.id)]
+# Objective DDE Server (for experimentation)
+
+require 'win/gui/message'
+include Win::GUI::Message
+
+require 'dde'
+include Win::Dde
+
+calls = []
+@server = Dde::Server.new do |*args|
+  calls << extract_values(*args)  #[Win::Dde::TYPES[args.shift]]+args; 1}
+  puts "#{Time.now.strftime('%T.%6N')} #{extract_values(*args)}"
+  args.first == XTYP_CONNECT ? 1 : DDE_FACK
+end
+sleep 0.05
+@server.start_service('test_service')
+
+def extract_values(type, format, conv, hsz1, hsz2, data, data1, data2)
+  [Win::Dde::TYPES[type], format, conv,
+   dde_query_string(@server.id, hsz1),
+   dde_query_string(@server.id, hsz2),
+   data, data1, data2]
+end
+
+msg = Msg.new  # pointer to Msg FFI struct
+
+# Starting message loop (necessary for DDE processing)
+puts "Starting message loop\n"
+while msg = get_message()
+  translate_message(msg)
+  dispatch_message(msg)
+end
+
+p calls.map{|c| c.map{|e|e.respond_to?(:address) ? e.address : (Win::Dde::TYPES[e] || e)}}
+
+p Win::Dde::ERRORS[DdeGetLastError(@server.id)]