mirror of
https://github.com/EiffelSoftware/eiffel-org.git
synced 2025-12-07 07:12:25 +01:00
Changed to read/write character-by-character.
Author:halw Date:2011-01-23T22:33:53.000000Z git-svn-id: https://svn.eiffel.com/eiffel-org/trunk@743 abb3cda0-5349-4a8f-a601-0c33ac3a8c38
This commit is contained in:
@@ -28,13 +28,12 @@ feature {NONE} -- Initialization
|
|||||||
create output_file.make_open_write ("output.txt")
|
create output_file.make_open_write ("output.txt")
|
||||||
|
|
||||||
from
|
from
|
||||||
|
input_file.read_character
|
||||||
until
|
until
|
||||||
input_file.exhausted
|
input_file.exhausted
|
||||||
loop
|
loop
|
||||||
input_file.read_line
|
output_file.put (input_file.last_character)
|
||||||
output_file.put_string (input_file.last_string)
|
input_file.read_character
|
||||||
output_file.new_line
|
|
||||||
end
|
end
|
||||||
|
|
||||||
input_file.close
|
input_file.close
|
||||||
|
|||||||
Reference in New Issue
Block a user