X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=inline;f=include%2FdirUtils.h;h=b726402c66340167889d9db1518e1cacb68205fe;hb=778b765be6dd903fdac167c3973aebd94b12df33;hp=5f52c0325ea5b7d2226fbf3ac89eae822c73e011;hpb=1e1907fb42b74de4feb5ac8af10846db31e56edb;p=haskell-directory.git

diff --git a/include/dirUtils.h b/include/dirUtils.h
index 5f52c03..b726402 100644
--- a/include/dirUtils.h
+++ b/include/dirUtils.h
@@ -1,36 +1,20 @@
 /* 
- * (c) The GRASP/AQUA Project, Glasgow University, 1994-
+ * (c) The University of Glasgow 2002
  *
- * Directory Runtime Support - prototypes.
+ * Directory Runtime Support
  */
 #ifndef __DIRUTILS_H__
 #define __DIRUTILS_H__
 
-#include "HsCore.h"
+extern int __hscore_readdir(DIR *dirPtr, struct dirent **pDirEnt);
+extern int __hscore_renameFile(char *src, char *dest);
 
-#include <limits.h>
-
-extern HsInt prel_mkdir(HsAddr pathName, HsInt mode);
-extern HsInt prel_lstat(HsAddr fname, HsAddr st);
-
-extern HsInt prel_s_ISDIR(mode_t m);
-extern HsInt prel_s_ISREG(mode_t m);
-
-extern HsInt prel_sz_stat();
-extern HsInt prel_path_max();
-extern mode_t prel_R_OK();
-extern mode_t prel_W_OK();
-extern mode_t prel_X_OK();
-
-extern mode_t prel_S_IRUSR();
-extern mode_t prel_S_IWUSR();
-extern mode_t prel_S_IXUSR();
-
-extern time_t prel_st_mtime(struct stat* st);
-extern mode_t prel_st_mode(struct stat* st);
-
-extern HsAddr prel_d_name(struct dirent* d);
-
-extern HsInt prel_end_of_dir();
+#if defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32)
+extern int __hscore_getFolderPath(HWND hwndOwner,
+				  int nFolder,
+				  HANDLE hToken,
+				  DWORD dwFlags,
+				  char*  pszPath);
+#endif
 
 #endif /* __DIRUTILS_H__ */