Commit fbf386ef authored by John van Groningen's avatar John van Groningen

remove import of directory_library, the kernel library in StdEnv already contains these functions

parent 0b212cd2
/*
** MdM
** Replaced all BigInts by (Int,Int)!!
*/
implementation module Directory
// version 1.1.1
import StdEnv
import code from "cDirectory.", library "directory_library" // this is the only platform dependent line in this module
//import code from "cDirectory." // for the Macintosh
import code from "cDirectory."
import StdMaybe
from StdLibMisc import :: Date (..), :: Time (..)
//import BigInt
// **************************************************************************************************
getDirectoryContents:: !Path !*env -> (!(!DirError, [DirEntry]), !*env) | FileSystem env
getDirectoryContents path files
......@@ -79,9 +68,8 @@ getDirEntry also_get_file_name platform files
, winIsSystemFile = (FILE_ATTRIBUTE_SYSTEM bitand winFileAttributes) <> 0
}
= ({fileName=fileName, fileInfo={pi_fileInfo=pi_fileInfo, pd_fileInfo=Windows windowsFileInfo}}, files)
| platform == UnixPlatform
# ((unixModeBitsField, unixOwnerUserId, unixOwnerGroupId,
unixLastAccessTimeTuple), files)
| platform == UnixPlatform
# ((unixModeBitsField, unixOwnerUserId, unixOwnerGroupId, unixLastAccessTimeTuple), files)
= getUnixFileInfoC files
unixFileInfo = { unixModeBitsField = unixModeBitsField
, unixOwnerUserId = unixOwnerUserId
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment