3 * Copyright (C) 2007 by Larry Wall and others
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.
15 forward(pTHX_ const char *function)
18 Perl_load_module(aTHX_ PERL_LOADMOD_NOIMPORT, newSVpvn("Win32",5), newSVnv(0.27));
21 call_pv(function, GIMME_V);
24 #define FORWARD(function) XS(w32_##function){ forward(aTHX_ "Win32::"#function); }
27 FORWARD(GetNextAvailDrive)
37 FORWARD(FormatMessage)
40 FORWARD(GetShortPathName)
41 FORWARD(GetFullPathName)
42 FORWARD(GetLongPathName)
46 /* Don't forward Win32::SetChildShowWindow(). It accesses the internal variable
47 * w32_showwindow in thread_intern and is therefore not implemented in Win32.xs.
49 /* FORWARD(SetChildShowWindow) */
56 char *file = __FILE__;
58 /* these names are Activeware compatible */
59 newXS("Win32::GetCwd", w32_GetCwd, file);
60 newXS("Win32::SetCwd", w32_SetCwd, file);
61 newXS("Win32::GetNextAvailDrive", w32_GetNextAvailDrive, file);
62 newXS("Win32::GetLastError", w32_GetLastError, file);
63 newXS("Win32::SetLastError", w32_SetLastError, file);
64 newXS("Win32::LoginName", w32_LoginName, file);
65 newXS("Win32::NodeName", w32_NodeName, file);
66 newXS("Win32::DomainName", w32_DomainName, file);
67 newXS("Win32::FsType", w32_FsType, file);
68 newXS("Win32::GetOSVersion", w32_GetOSVersion, file);
69 newXS("Win32::IsWinNT", w32_IsWinNT, file);
70 newXS("Win32::IsWin95", w32_IsWin95, file);
71 newXS("Win32::FormatMessage", w32_FormatMessage, file);
72 newXS("Win32::Spawn", w32_Spawn, file);
73 newXS("Win32::GetTickCount", w32_GetTickCount, file);
74 newXS("Win32::GetShortPathName", w32_GetShortPathName, file);
75 newXS("Win32::GetFullPathName", w32_GetFullPathName, file);
76 newXS("Win32::GetLongPathName", w32_GetLongPathName, file);
77 newXS("Win32::CopyFile", w32_CopyFile, file);
78 newXS("Win32::Sleep", w32_Sleep, file);
79 /* newXS("Win32::SetChildShowWindow", w32_SetChildShowWindow, file); */