Allowed getFileInfo to accept TFile objects.

This commit is contained in:
Clay Sweetser
2014-04-15 02:28:50 -04:00
parent 79f0c66b4d
commit 73570cbe38

View File

@@ -1828,7 +1828,7 @@ template rawToFormalFileInfo(rawInfo, formalInfo): expr =
if S_ISDIR(rawInfo.st_mode): formalInfo.kind = pcDir
if S_ISLNK(rawInfo.st_mode): formalInfo.kind.inc()
proc getFileInfo*(handle: TFileHandle, result: var FileInfo) =
proc getFileInfo*(handle: TFileHandle): FileInfo =
## Retrieves file information for the file object represented by the given
## handle.
##
@@ -1849,6 +1849,9 @@ proc getFileInfo*(handle: TFileHandle, result: var FileInfo) =
osError(osLastError())
rawToFormalFileInfo(rawInfo, result)
proc getFileInfo*(file: TFile): FileInfo =
result = getFileInfo(file.fileHandle())
proc getFileInfo*(path: string, followSymlink = true): FileInfo =
## Retrieves file information for the file object pointed to by `path`.
##