blob: ab14631993295fe46a45e427c19b7dd24e99dd03 (
plain)
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
|
{*
* gwin32.inc
*
* depends on gtypes.inc
*}
{$ifdef WIN32}
{ Windows emulation stubs for common Unix functions
}
const
MAXPATHLEN = 1024;
type
Ppid_t = ^Tpid_t;
Tpid_t = longint;
{ For some POSIX functions that are not provided by the MS runtime,
we provide emulators in glib, which are prefixed with g_win32_.
}
function ftruncate(f:gint; size:guint):gint;cdecl;external gliblib name 'g_win32_ftruncate';
function g_win32_ftruncate(f:gint; size:guint):gint;cdecl;external gliblib name 'g_win32_ftruncate';
{ The MS setlocale uses locale names of the form "English_United
States.1252" etc. We want the Unixish standard form "en", "zh_TW"
etc. This function gets the current thread locale from Windows and
returns it as a string of the above form for use in forming file
names etc. The returned string should be deallocated with g_free().
}
function g_win32_getlocale:Pgchar;cdecl;external gliblib name 'g_win32_getlocale';
{ Translate a Win32 error code (as returned by GetLastError()) into
the corresponding message. The returned string should be deallocated
with g_free().
}
function g_win32_error_message(error:gint):Pgchar;cdecl;external gliblib name 'g_win32_error_message';
function g_win32_get_package_installation_directory(package:Pgchar; dll_name:Pgchar):Pgchar;cdecl;external gliblib name 'g_win32_get_package_installation_directory';
function g_win32_get_package_installation_subdirectory(package:Pgchar; dll_name:Pgchar; subdir:Pgchar):Pgchar;cdecl;external gliblib name 'g_win32_get_package_installation_subdirectory';
{$endif}
|