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