1 /* -----------------------------------------------------------------------------
3 * (c) The University of Glasgow 2001-2004
5 * Definitions for package `directory' which are visible in Haskell land.
7 * ---------------------------------------------------------------------------*/
9 #ifndef __HSDIRECTORY_H__
10 #define __HSDIRECTORY_H__
12 #include "HsDirectoryConfig.h"
13 // Otherwise these clash with similar definitions from other packages:
14 #undef PACKAGE_BUGREPORT
17 #undef PACKAGE_TARNAME
18 #undef PACKAGE_VERSION
21 #include <sys/types.h>
32 #if defined(__MINGW32__)
36 #if defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32)
37 extern int __hscore_getFolderPath(HWND hwndOwner,
44 /* -----------------------------------------------------------------------------
47 These functions are given as inlines here for when compiling via C,
48 but we also generate static versions into the cbits library for
49 when compiling to native code.
50 -------------------------------------------------------------------------- */
53 # if defined(_MSC_VER)
54 # define INLINE extern __inline
56 # define INLINE static inline
60 /* A size that will contain many path names, but not necessarily all
61 * (PATH_MAX is not defined on systems with unlimited path length,
64 INLINE HsInt __hscore_long_path_size() {
72 INLINE int __hscore_R_OK() { return R_OK; }
73 INLINE int __hscore_W_OK() { return W_OK; }
74 INLINE int __hscore_X_OK() { return X_OK; }
76 INLINE mode_t __hscore_S_IRUSR() { return S_IRUSR; }
77 INLINE mode_t __hscore_S_IWUSR() { return S_IWUSR; }
78 INLINE mode_t __hscore_S_IXUSR() { return S_IXUSR; }
79 INLINE mode_t __hscore_S_IFDIR() { return S_IFDIR; }
81 #if defined(__MINGW32__)
83 /* Make sure we've got the reqd CSIDL_ constants in scope;
84 * w32api header files are lagging a bit in defining the full set.
86 #if !defined(CSIDL_APPDATA)
87 #define CSIDL_APPDATA 0x001a
89 #if !defined(CSIDL_PERSONAL)
90 #define CSIDL_PERSONAL 0x0005
92 #if !defined(CSIDL_PROFILE)
93 #define CSIDL_PROFILE 0x0028
95 #if !defined(CSIDL_WINDOWS)
96 #define CSIDL_WINDOWS 0x0024
99 INLINE int __hscore_CSIDL_PROFILE() { return CSIDL_PROFILE; }
100 INLINE int __hscore_CSIDL_APPDATA() { return CSIDL_APPDATA; }
101 INLINE int __hscore_CSIDL_WINDOWS() { return CSIDL_WINDOWS; }
102 INLINE int __hscore_CSIDL_PERSONAL() { return CSIDL_PERSONAL; }
105 #endif /* __HSDIRECTORY_H__ */