up previous next
OpenOFile --
open output file
|
OpenOFile(S: STRING): OSTREAM
OpenOFile(S: STRING,"w" or "W"): OSTREAM |
This function opens the file with name
S
---creating it if it
does not already exist---for output.
It immediately erases the file with name
S
. Then the function
print on
is then used for appending output to
S
until it is closed.
/**/ file := OpenOFile("my-test"); -- open "my-test" for output from CoCoA
/**/ print "hello world! " on file; -- print string into "my-test"
/**/ print " test" on file; -- append to the file "my-test"
/**/ close(file); -- close the file
/**/ file := OpenOFile("my-test"); -- clear "my-test" and re-open it
/**/ print "goodbye" on file; -- "mytest" now consists only of the string "goodbye"
/**/ close(file);
/**/ file := OpenIFile("my-test"); -- open "my-test" for input
/**/ GetLine(file);
goodbye
|