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