2 * (c) The GRASP/AQUA Project, Glasgow University, 1994-
4 * Directory Runtime Support
8 #if defined(mingw32_TARGET_OS)
23 prel_mkdir(HsAddr pathName, HsInt mode)
25 #if defined(mingw32_TARGET_OS)
26 return mkdir(pathName);
28 return mkdir(pathName,mode);
33 prel_lstat(HsAddr fname, HsAddr st)
36 return lstat((const char*)fname, (struct stat*)st);
38 return stat((const char*)fname, (struct stat*)st);
42 HsInt prel_s_ISDIR(mode_t m) {return S_ISDIR(m);}
43 HsInt prel_s_ISREG(mode_t m) {return S_ISREG(m);}
45 HsInt prel_sz_stat() { return sizeof(struct stat); }
46 HsInt prel_path_max() { return PATH_MAX; }
47 mode_t prel_R_OK() { return R_OK; }
48 mode_t prel_W_OK() { return W_OK; }
49 mode_t prel_X_OK() { return X_OK; }
51 mode_t prel_S_IRUSR() { return S_IRUSR; }
52 mode_t prel_S_IWUSR() { return S_IWUSR; }
53 mode_t prel_S_IXUSR() { return S_IXUSR; }
55 time_t prel_st_mtime(struct stat* st) { return st->st_mtime; }
56 mode_t prel_st_mode(struct stat* st) { return st->st_mode; }
58 HsAddr prel_d_name(struct dirent* d)
60 #ifndef mingw32_TARGET_OS
61 return (HsAddr)(&d->d_name);
63 return (HsAddr)(d->d_name);
67 HsInt prel_end_of_dir()
69 #ifndef mingw32_TARGET_OS