Anonymous user
Fixed length records: Difference between revisions
Moved processing into a procedure.
(Added statements to close the files.) |
(Moved processing into a procedure.) |
||
Line 972:
<lang Nim>import algorithm
proc reverse(infile, outfile: string) =
let output = "outfile.dat".open(fmWrite)▼
var buffer: array[80, byte]▼
if countRead < 80:▼
raise newException(IOError, "truncated data when reading")▼
buffer.reverse()▼
let countWrite = output.writeBytes(buffer, 0, 80)▼
if countWrite < 80:▼
raise newException(IOError, "truncated data when writing")▼
▲ var buffer: array[80, byte]
while not input.endOfFile:
▲output.close()</lang>
let countRead = input.readBytes(buffer, 0, 80)
▲ if countRead < 80:
▲ raise newException(IOError, "truncated data when reading")
▲ buffer.reverse()
▲ let countWrite = output.writeBytes(buffer, 0, 80)
▲ if countWrite < 80:
▲ raise newException(IOError, "truncated data when writing")
reverse("infile.dat", "outfile.dat")</lang>
{{out}}
|