Permalink
Switch branches/tags
stable gitpan_version/1.11 gitpan_version/1.09 gitpan_version/1.08_12 gitpan_version/1.08_11 gitpan_version/1.08_10 gitpan_version/1.08_09 gitpan_version/1.08_08 gitpan_version/1.08_07 gitpan_version/1.08_06 gitpan_version/1.08_04 gitpan_version/1.08_03 gitpan_version/1.08_02 gitpan_version/1.08_01 gitpan_version/1.08 gitpan_version/1.07 gitpan_version/1.06 gitpan_version/1.05 gitpan_version/1.04 gitpan_version/1.03 gitpan_version/1.02 gitpan_version/1.0 gitpan_version/0.99_1 gitpan_version/0.0.558 gitpan_version/0.0.502 gitpan_version/0.0.490 cpan_version/1.11 cpan_version/1.09 cpan_version/1.08_12 cpan_version/1.08_11 cpan_version/1.08_10 cpan_version/1.08_09 cpan_version/1.08_08 cpan_version/1.08_07 cpan_version/1.08_06 cpan_version/1.08_04 cpan_version/1.08_03 cpan_version/1.08_02 cpan_version/1.08_01 cpan_version/1.08 cpan_version/1.07 cpan_version/1.06 cpan_version/1.05 cpan_version/1.04 cpan_version/1.03 cpan_version/1.02 cpan_version/1.0 cpan_version/0.99_1 cpan_version/0.0.558 cpan_version/0.0.502 cpan_version/0.0.490 cpan_path/ROBERTMAY/Win32-GUI/Win32-GUI-1.06.tar.gz cpan_path/ROBERTMAY/Win32-GUI/Win32-GUI-1.05.tar.gz cpan_path/ROBERTMAY/Win32-GUI/Win32-GUI-1.04.tar.gz cpan_path/ROBERTMAY/Win32-GUI/Win32-GUI-1.03.tar.gz cpan_path/ROBERTMAY/Win32-GUI/Win32-GUI-1.02.tar.gz cpan_path/LROCHER/Win32-GUI-1.0.zip cpan_path/LROCHER/Win32-GUI-0.99_1.zip cpan_path/KMX/Win32-GUI-1.11.tar.gz cpan_path/KMX/Win32-GUI-1.09.tar.gz cpan_path/KMX/Win32-GUI-1.08_12.tar.gz cpan_path/KMX/Win32-GUI-1.08_11.tar.gz cpan_path/KMX/Win32-GUI-1.08_10.tar.gz cpan_path/KMX/Win32-GUI-1.08_09.tar.gz cpan_path/KMX/Win32-GUI-1.08_08.tar.gz cpan_path/KMX/Win32-GUI-1.08_07.tar.gz cpan_path/KMX/Win32-GUI-1.08_06.tar.gz cpan_path/KMX/Win32-GUI-1.08_04.tar.gz cpan_path/KMX/Win32-GUI-1.08_03.tar.gz cpan_path/KMX/Win32-GUI-1.08_02.tar.gz cpan_path/KMX/Win32-GUI-1.08_01.tar.gz cpan_path/KMX/Win32-GUI-1.08.tar.gz cpan_path/KMX/Win32-GUI-1.07.tar.gz cpan_path/ACALPINI/Win32-GUI-0.0.558.tar.gz cpan_path/ACALPINI/Win32-GUI-0.0.502.tar.gz cpan_path/ACALPINI/Win32-GUI-0.0.490.zip alpha ROBERTMAY LROCHER KMX ACALPINI
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
62 lines (58 sloc) 1.35 KB
# $Id: TYPEMAP,v 1.10 2007/07/15 18:56:25 robertemay Exp $
TYPEMAP
HWND T_HANDLE
HMENU T_HANDLE
HICON T_HANDLE
HCURSOR T_HANDLE
HBITMAP T_HANDLE
HFONT T_HANDLE
HGDIOBJ T_HANDLE
HIMAGELIST T_HANDLE
HDC T_HANDLE
HBRUSH T_HANDLE
HPEN T_HANDLE
HRGN T_HANDLE
HTREEITEM T_PTR
LONG T_IV
LPCTSTR T_PV
LPTSTR T_PV
DWORD T_UV
UINT T_UV
INT T_IV
BOOL T_IV
WPARAM T_UV
LPARAM T_LPARAM
LRESULT T_IV
HINSTANCE T_PTR
COLORREF T_COLOR
LPCSTR T_PV
HENHMETAFILE T_PTR
FLOAT T_FLOAT
LPVOID T_PV
HACCEL T_PTR
UINT_PTR T_PTR
LONG_PTR T_PTR
################################################################################
INPUT
T_HANDLE
if(SvROK($arg)) {
SV** out=hv_fetch((HV*)SvRV($arg), \"-handle\", 7, 0);
if(out != NULL)
$var = INT2PTR($type,SvIV(*out));
else
$var = NULL;
} else
$var = INT2PTR($type,SvIV($arg));
T_COLOR
$var = SvCOLORREF(NOTXSCALL $arg);
T_LPARAM
if(SvPOK($arg))
$var = ($type) SvPV_nolen($arg);
else
$var = ($type) SvIV($arg);
################################################################################
OUTPUT
T_HANDLE
sv_setiv($arg, PTR2IV($var));
T_COLOR
sv_setiv($arg, (IV) $var);