1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
|
/* Win32CORE.c
*
* Copyright (C) 2007 by Larry Wall and others
*
* You may distribute under the terms of either the GNU General Public
* License or the Artistic License, as specified in the README file.
*
*/
#define WIN32_LEAN_AND_MEAN
#include <windows.h>
#if defined(__CYGWIN__) && !defined(USEIMPORTLIB)
#undef WIN32
#endif
#define PERL_NO_GET_CONTEXT
#include "EXTERN.h"
#if defined(__CYGWIN__) && !defined(USEIMPORTLIB)
#define EXTCONST extern const
#endif
#include "perl.h"
#include "XSUB.h"
XS(w32_CORE_all){
/* I'd use dSAVE_ERRNO() here, but it doesn't save the Win32 error code
* under cygwin, if that changes this code should change to use that.
*/
int saved_errno = errno;
DWORD err = GetLastError();
/* capture the XSANY value before Perl_load_module, the CV's any member will
* be overwritten by Perl_load_module and subsequent newXSes or pure perl
* subs
*/
const char *function = (const char *) XSANY.any_ptr;
Perl_load_module(aTHX_ PERL_LOADMOD_NOIMPORT, newSVpvs("Win32"), newSVnv(0.27));
SetLastError(err);
errno = saved_errno;
/* mark and SP from caller are passed through unchanged */
call_pv(function, GIMME_V);
}
#ifdef __cplusplus
extern "C"
#endif
XS_EXTERNAL(boot_Win32CORE)
{
/* This function only exists because writemain.SH, lib/ExtUtils/Embed.pm
* and win32/buildext.pl will all generate references to it. The function
* should never be called though, as Win32CORE.pm doesn't use DynaLoader.
*/
PERL_UNUSED_ARG(cv);
}
EXTERN_C
#if !defined(__CYGWIN__) || defined(USEIMPORTLIB)
__declspec(dllexport)
#endif
void
init_Win32CORE(pTHX)
{
/* This function is called from init_os_extras(). The Perl interpreter
* is not yet fully initialized, so don't do anything fancy in here.
*/
static const struct {
char Win32__GetCwd [sizeof("Win32::GetCwd")];
char Win32__SetCwd [sizeof("Win32::SetCwd")];
char Win32__GetNextAvailDrive [sizeof("Win32::GetNextAvailDrive")];
char Win32__GetLastError [sizeof("Win32::GetLastError")];
char Win32__SetLastError [sizeof("Win32::SetLastError")];
char Win32__LoginName [sizeof("Win32::LoginName")];
char Win32__NodeName [sizeof("Win32::NodeName")];
char Win32__DomainName [sizeof("Win32::DomainName")];
char Win32__FsType [sizeof("Win32::FsType")];
char Win32__GetOSVersion [sizeof("Win32::GetOSVersion")];
char Win32__IsWinNT [sizeof("Win32::IsWinNT")];
char Win32__IsWin95 [sizeof("Win32::IsWin95")];
char Win32__FormatMessage [sizeof("Win32::FormatMessage")];
char Win32__Spawn [sizeof("Win32::Spawn")];
char Win32__GetTickCount [sizeof("Win32::GetTickCount")];
char Win32__GetShortPathName [sizeof("Win32::GetShortPathName")];
char Win32__GetFullPathName [sizeof("Win32::GetFullPathName")];
char Win32__GetLongPathName [sizeof("Win32::GetLongPathName")];
char Win32__CopyFile [sizeof("Win32::CopyFile")];
char Win32__Sleep [sizeof("Win32::Sleep")];
} fnname_table = {
"Win32::GetCwd",
"Win32::SetCwd",
"Win32::GetNextAvailDrive",
"Win32::GetLastError",
"Win32::SetLastError",
"Win32::LoginName",
"Win32::NodeName",
"Win32::DomainName",
"Win32::FsType",
"Win32::GetOSVersion",
"Win32::IsWinNT",
"Win32::IsWin95",
"Win32::FormatMessage",
"Win32::Spawn",
"Win32::GetTickCount",
"Win32::GetShortPathName",
"Win32::GetFullPathName",
"Win32::GetLongPathName",
"Win32::CopyFile",
"Win32::Sleep"
};
static const unsigned char fnname_lens [] = {
sizeof("Win32::GetCwd"),
sizeof("Win32::SetCwd"),
sizeof("Win32::GetNextAvailDrive"),
sizeof("Win32::GetLastError"),
sizeof("Win32::SetLastError"),
sizeof("Win32::LoginName"),
sizeof("Win32::NodeName"),
sizeof("Win32::DomainName"),
sizeof("Win32::FsType"),
sizeof("Win32::GetOSVersion"),
sizeof("Win32::IsWinNT"),
sizeof("Win32::IsWin95"),
sizeof("Win32::FormatMessage"),
sizeof("Win32::Spawn"),
sizeof("Win32::GetTickCount"),
sizeof("Win32::GetShortPathName"),
sizeof("Win32::GetFullPathName"),
sizeof("Win32::GetLongPathName"),
sizeof("Win32::CopyFile"),
sizeof("Win32::Sleep")
};
const unsigned char * len = (const unsigned char *)&fnname_lens;
const char * function = (char *)&fnname_table;
while (function < (char *)&fnname_table + sizeof(fnname_table)) {
const char * const file = __FILE__;
CV * const cv = newXS(function, w32_CORE_all, file);
XSANY.any_ptr = (void *)function;
function += *len++;
}
/* Don't forward Win32::SetChildShowWindow(). It accesses the internal variable
* w32_showwindow in thread_intern and is therefore not implemented in Win32.xs.
*/
/* newXS("Win32::SetChildShowWindow", w32_SetChildShowWindow, file); */
}
|
