-
Notifications
You must be signed in to change notification settings - Fork 375
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
[ refactor ] Single syscall to get all time attributes of File
- Loading branch information
1 parent
c0584f2
commit 982de4f
Showing
8 changed files
with
276 additions
and
221 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,45 +1,110 @@ | ||
module Libraries.System.File.Meta | ||
|
||
import Data.String | ||
|
||
import System.FFI | ||
|
||
import System.File.Handle | ||
import System.File.Support | ||
import public System.File.Types | ||
|
||
%default total | ||
|
||
%foreign supportC "idris2_fileAccessTimeNs" | ||
prim__fileAccessTimeNs : FilePtr -> PrimIO Int | ||
||| Pointer to a structure holding File's time attributes | ||
FileTimePtr : Type | ||
FileTimePtr = AnyPtr | ||
|
||
%foreign supportC "idris2_fileTime" | ||
"node:support:filetime,support_system_file" | ||
prim__fileTime : FilePtr -> PrimIO FileTimePtr | ||
|
||
%foreign supportC "idris2_filetimeAccessTimeSec" | ||
"node:lambda:ft=>ft.atime_sec" | ||
prim__filetimeAccessTimeSec : FileTimePtr -> PrimIO Int | ||
|
||
%foreign supportC "idris2_filetimeAccessTimeNsec" | ||
"node:lambda:ft=>ft.atime_nsec" | ||
prim__filetimeAccessTimeNsec : FileTimePtr -> PrimIO Int | ||
|
||
%foreign supportC "idris2_fileModifiedTimeNs" | ||
"node:lambda:fp=>require('fs').fstatSync(fp.fd).mtimeMs * 1000000 % 1000000000" | ||
prim__fileModifiedTimeNs : FilePtr -> PrimIO Int | ||
%foreign supportC "idris2_filetimeModifiedTimeSec" | ||
"node:lambda:ft=>ft.mtime_sec" | ||
prim__filetimeModifiedTimeSec : FileTimePtr -> PrimIO Int | ||
|
||
%foreign supportC "idris2_fileStatusTimeNs" | ||
prim__fileStatusTimeNs : FilePtr -> PrimIO Int | ||
%foreign supportC "idris2_filetimeModifiedTimeNsec" | ||
"node:lambda:ft=>ft.mtime_nsec" | ||
prim__filetimeModifiedTimeNsec : FileTimePtr -> PrimIO Int | ||
|
||
%foreign supportC "idris2_filetimeStatusTimeSec" | ||
"node:lambda:ft=>ft.ctime_sec" | ||
prim__filetimeStatusTimeSec : FileTimePtr -> PrimIO Int | ||
|
||
%foreign supportC "idris2_filetimeStatusTimeNsec" | ||
"node:lambda:ft=>ft.ctime_nsec" | ||
prim__filetimeStatusTimeNsec : FileTimePtr -> PrimIO Int | ||
|
||
||| Record that holds timestamps with nanosecond precision | ||
public export | ||
record Timestamp where | ||
constructor MkTimestamp | ||
sec : Int | ||
nsec : Int | ||
|
||
||| Get the nanosecond part of File's atime. | ||
export | ||
fileAccessTimeNs : HasIO io => (h : File) -> io (Either FileError Int) | ||
fileAccessTimeNs (FHandle f) | ||
= do res <- primIO (prim__fileAccessTimeNs f) | ||
if res > 0 | ||
then ok res | ||
else returnError | ||
Eq Timestamp where | ||
t == t' = (t.sec == t'.sec) && (t.nsec == t'.nsec) | ||
|
||
||| Get the nanosecond part of File's mtime. | ||
export | ||
fileModifiedTimeNs : HasIO io => (h : File) -> io (Either FileError Int) | ||
fileModifiedTimeNs (FHandle f) | ||
= do res <- primIO (prim__fileModifiedTimeNs f) | ||
if res > 0 | ||
then ok res | ||
else returnError | ||
Ord Timestamp where | ||
t < t' = (t.sec < t'.sec) || (t.sec == t'.sec && t.nsec < t'.nsec) | ||
|
||
||| Get the nanosecond part of File's ctime. | ||
export | ||
fileStatusTimeNs : HasIO io => (h : File) -> io (Either FileError Int) | ||
fileStatusTimeNs (FHandle f) | ||
= do res <- primIO (prim__fileStatusTimeNs f) | ||
if res > 0 | ||
then ok res | ||
Show Timestamp where | ||
show t = "\{show t.sec}.\{padLeft 9 '0' $ show t.nsec}" | ||
|
||
||| Record that holds file's time attributes | ||
public export | ||
record FileTime where | ||
constructor MkFileTime | ||
atime : Timestamp | ||
mtime : Timestamp | ||
ctime : Timestamp | ||
|
||
||| Get File's time attributes | ||
export | ||
fileTime : HasIO io => (h : File) -> io (Either FileError FileTime) | ||
fileTime (FHandle f) | ||
= do res <- primIO (prim__fileTime f) | ||
ft <- parseFileTime res | ||
free res | ||
if ft.atime.sec > 0 | ||
then ok ft | ||
else returnError | ||
where | ||
parseFileTime : FileTimePtr -> io FileTime | ||
parseFileTime ft = pure $ MkFileTime { atime = MkTimestamp { sec = !(primIO (prim__filetimeAccessTimeSec ft)) | ||
, nsec = !(primIO (prim__filetimeAccessTimeNsec ft)) | ||
} | ||
, mtime = MkTimestamp { sec = !(primIO (prim__filetimeModifiedTimeSec ft)) | ||
, nsec = !(primIO (prim__filetimeModifiedTimeNsec ft)) | ||
} | ||
, ctime = MkTimestamp { sec = !(primIO (prim__filetimeStatusTimeSec ft)) | ||
, nsec = !(primIO (prim__filetimeStatusTimeNsec ft)) | ||
} | ||
} | ||
|
||
||| Get the File's atime. | ||
export | ||
fileAccessTime : HasIO io => (h : File) -> io (Either FileError Int) | ||
fileAccessTime h = (fileTime h <&> (.atime.sec)) @{Compose} | ||
|
||
||| Get the File's mtime. | ||
export | ||
fileModifiedTime : HasIO io => (h : File) -> io (Either FileError Int) | ||
fileModifiedTime h = (fileTime h <&> (.mtime.sec)) @{Compose} | ||
|
||
||| Get the File's ctime. | ||
export | ||
fileStatusTime : HasIO io => (h : File) -> io (Either FileError Int) | ||
fileStatusTime h = (fileTime h <&> (.ctime.sec)) @{Compose} | ||
|
||
|
Oops, something went wrong.