#include "EXTERN.h" #include "perl.h" #include "XSUB.h" #include "windows.h" static int not_here(char *s) { croak("%s not implemented on this architecture", s); return -1; } static double constant(char *name, int len, int arg) { errno = EINVAL; return 0; } MODULE = Win32::API::OutputDebugString PACKAGE = Win32::API::OutputDebugString double constant(sv,arg) PREINIT: STRLEN len; INPUT: SV * sv char * s = SvPV(sv, len); int arg CODE: RETVAL = constant(s,len,arg); OUTPUT: RETVAL void ODS(lpOutputString) char * lpOutputString CODE: OutputDebugString(lpOutputString);