If all you need is that one function, you can easily get at it with Inline::C:
#! perl -slw
use strict;
use Inline C => Config => BUILD_NOISY => 1;
use Inline C => <<'END_C', NAME => 'GWTPI', CLEAN_AFTER_BUILD =>0;
#include <windows.h>
#define IS_VARS Inline_Stack_Vars
#define IS_RESET Inline_Stack_Reset
#define IS_PUSHIV( iv ) Inline_Stack_Push( sv_2mortal( newSViv( iv ) )
+ )
#define IS_PUSHUV( uv ) Inline_Stack_Push( sv_2mortal( newSVuv( uv ) )
+ )
#define IS_DONE Inline_Stack_Done
void getWindowThreadProcessId( SV* hwnd ) {
IS_VARS;
DWORD pid;
DWORD tid = GetWindowThreadProcessId( (HWND)SvUV(hwnd), &pid );
IS_RESET;
IS_PUSHUV( tid );
IS_PUSHUV( pid );
IS_DONE;
return;
}
END_C
my( $tid, $pid ) = getWindowThreadProcessId( 0 );
print "$tid $pid";
With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.
| [reply]
[d/l] |
Since the OP is wanting to distribute the code, it becomes necessary to ensure that Inline::C is installed on the target machines (or other appropriate action taken).
<PLUG>
I would therefore probably take the code that BrowserUk provided and turn it into a standalone module - which could be distributed in either source or pre-built (binary) form.
First, create a directory ./Win32-ThreadID-0.01 and a file ./ThreadID.c; where ThreadID.c contains the following section of BrowserUk's code:
#include <windows.h>
#define IS_VARS Inline_Stack_Vars
#define IS_RESET Inline_Stack_Reset
#define IS_PUSHIV( iv ) Inline_Stack_Push( sv_2mortal( newSViv( iv ) )
+ )
#define IS_PUSHUV( uv ) Inline_Stack_Push( sv_2mortal( newSVuv( uv ) )
+ )
#define IS_DONE Inline_Stack_Done
void getWindowThreadProcessId( SV* hwnd ) {
IS_VARS;
DWORD pid;
DWORD tid = GetWindowThreadProcessId( (HWND)SvUV(hwnd), &pid );
IS_RESET;
IS_PUSHUV( tid );
IS_PUSHUV( pid );
IS_DONE;
return;
}
Then run this script:
use warnings;
use strict;
use InlineX::C2XS qw(c2xs);
my $mod = 'Win32::ThreadID';
my $pkg = $mod;
my $build_dir = './Win32-ThreadID-0.01';
c2xs($mod, $pkg, $build_dir,
{WRITE_PM => 1,
WRITE_MAKEFILE_PL => 1,
VERSION => '0.01',
MANIF => 1,
SRC_LOCATION => './ThreadID.c',
EXPORT_OK_ALL => 1,
});
That will create a Win32-ThreadID-0.01 source distro in the Win32-ThreadID-0.01 directory - complete with ThreadID.pm, ThreadID.xs, Makefile.PL, INLINE.h and MANIFEST, where ThreadID.pm exports (upon request) the getWindowThreadProcessId function. That distro as it then stands is already buildable and installable - though there's yet no test script (which would have to be added by hand, if desired).
</PLUG>
Hmmm .... come to think of it, an option to generate a test script (that simply tests the loadability of the module) might be a useful addition to InlineX::C2XS ...
Cheers,
Rob | [reply]
[d/l]
[select] |
| [reply] |
| [reply] |