Added FileSeekPos

This commit is contained in:
Yuriy Glukhov
2016-11-10 13:33:53 +02:00
parent 7f03fd3f65
commit feba5acc98
2 changed files with 11 additions and 3 deletions

View File

@@ -336,8 +336,8 @@ proc open(f: var File, filehandle: FileHandle, mode: FileMode): bool =
f = c_fdopen(filehandle, FormatOpen[mode])
result = f != nil
proc setFilePos(f: File, pos: int64) =
if c_fseek(f, clong(pos), 0) != 0:
proc setFilePos(f: File, pos: int64, relativeTo: FileSeekPos = fspSet) =
if c_fseek(f, clong(pos), cint(relativeTo)) != 0:
raiseEIO("cannot set file position")
proc getFilePos(f: File): int64 =