Gecko [ www.corporacionhdm.com.pe ]

Name	Size	Permission	Date
callback.rb	2.77 KB	-rw-r--r--	2011-08-16 00:51
cparser.rb	2.68 KB	-rw-r--r--	2010-06-02 16:02
func.rb	6.11 KB	-rw-r--r--	2013-05-14 11:27
import.rb	6.31 KB	-rw-r--r--	2012-12-20 09:52
pack.rb	2.88 KB	-rw-r--r--	2010-03-19 16:20
stack.rb	2.4 KB	-rw-r--r--	2009-10-02 10:45
struct.rb	4.97 KB	-rw-r--r--	2010-12-08 13:29
types.rb	1.95 KB	-rw-r--r--	2012-02-09 07:20
value.rb	2.68 KB	-rw-r--r--	2012-02-09 07:20

Rename

module DL
  # Adds Windows type aliases to the including class for use with
  # DL::Importer.
  #
  # The aliases added are:
  # * ATOM
  # * BOOL
  # * BYTE
  # * DWORD
  # * DWORD32
  # * DWORD64
  # * HANDLE
  # * HDC
  # * HINSTANCE
  # * HWND
  # * LPCSTR
  # * LPSTR
  # * PBYTE
  # * PDWORD
  # * PHANDLE
  # * PVOID
  # * PWORD
  # * UCHAR
  # * UINT
  # * ULONG
  # * WORD
  module Win32Types
    def included(m) # :nodoc:
      m.module_eval{
        typealias "DWORD", "unsigned long"
        typealias "PDWORD", "unsigned long *"
        typealias "DWORD32", "unsigned long"
        typealias "DWORD64", "unsigned long long"
        typealias "WORD", "unsigned short"
        typealias "PWORD", "unsigned short *"
        typealias "BOOL", "int"
        typealias "ATOM", "int"
        typealias "BYTE", "unsigned char"
        typealias "PBYTE", "unsigned char *"
        typealias "UINT", "unsigned int"
        typealias "ULONG", "unsigned long"
        typealias "UCHAR", "unsigned char"
        if [nil].pack('p').bytesize == 8
          typealias "HANDLE", "unsigned long long"
        else
          typealias "HANDLE", "unsigned long"
        end
        typealias "PHANDLE", "void*"
        typealias "PVOID", "void*"
        typealias "LPCSTR", "char*"
        typealias "LPSTR", "char*"
        typealias "HINSTANCE", "unsigned int"
        typealias "HDC", "unsigned int"
        typealias "HWND", "unsigned int"
      }
    end
    module_function :included
  end

# Adds basic type aliases to the including class for use with DL::Importer.
  #
  # The aliases added are +uint+ and +u_int+ (<tt>unsigned int</tt>) and
  # +ulong+ and +u_long+ (<tt>unsigned long</tt>)
  module BasicTypes
    def included(m) # :nodoc:
      m.module_eval{
        typealias "uint", "unsigned int"
        typealias "u_int", "unsigned int"
        typealias "ulong", "unsigned long"
        typealias "u_long", "unsigned long"
      }
    end
    module_function :included
  end
end