commit
ce05a850a5
2 changed files with 8 additions and 1 deletions
|
|
@ -130,7 +130,10 @@ else:
|
|||
const
|
||||
BufSize = 4000
|
||||
|
||||
proc close*(f: File) = discard c_fclose(f)
|
||||
proc close*(f: File) =
|
||||
if not f.isNil:
|
||||
discard c_fclose(f)
|
||||
|
||||
proc readChar(f: File): char =
|
||||
let x = c_fgetc(f)
|
||||
if x < 0:
|
||||
|
|
|
|||
|
|
@ -103,3 +103,7 @@ block t5349:
|
|||
|
||||
for line in lines("test.txt"):
|
||||
echo line
|
||||
|
||||
block t9456:
|
||||
var f: File
|
||||
f.close()
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue