Append string to existing textfile in IronScheme

Question

We are trying to construct a log file using IronScheme, and we have written a code for it using racket. It works fine in racket, but IronScheme throws an error. This is what we have so far:

(define write-to-log
(lambda(whatToWrite)
(with-output-to-file "robot-log.txt"
(lambda () (printf (string-append whatToWrite "\r\n" ))) #:exists 'append)))

See how we use the "exists" optional parameter when using with-output-to-file. We are not sure how to make this optional parameter work with IronScheme. Are there any ways of getting this to work, or alternative methods?

Please note that we would like to append a string to an existing .txt file. If we don't use the optional argument, an error is thrown saying that the file already exists.

Not surprising since the Scheme standard does not specify any keyword arguments for `with-output-to-file`. — ben rudgers, May 23 '15 at 13:34

leppie · Accepted Answer · 2015-05-27T05:28:24.123

IronScheme supports R6RS :)

file-options are not available on with-output-to-file, so you need to use open-file-output-port.

Example (not correct):

(let ((p (open-file-output-port "robot-log.txt" (file-options no-create))))
  (fprintf p "~a\r\n" whatToWrite)
  (close-port p))

Update:

The above will not work. It seems you might have found a bug in IronScheme. It is not clear though from R6RS what file-options should behave like append, if any at all. I will investigate some more and provide feedback.

Update 2:

I have spoken to one of the editors of R6RS, and it does not appear to have a portable way to specify 'append mode'. We, of course have this available in .NET, so I will fix the issue by adding another file-options for appending. I will also think about adding some overloads for the 'simple io' procedures to deal with this as using the above code is rather tedious. Thanks for spotting the issue!

Update 3:

I have addressed the issue. From TFS rev 114008, append has been added to file-options. Also, with-output-to-file, call-with-output-file and open-output-file has an additional optional parameter to indicate 'append-mode'. You can get the latest build from http://build.ironscheme.net/.

Example:

(with-output-to-file "test.txt" (lambda () (displayln "world")) #t)

Thanks for the answer! Since then, we have found a workaround, we now overwrite everything and handle it in a different manner while reading it. — Robert, May 25 '15 at 15:58

score 0 · Answer 2 · answered May 23 '15 at 00:27

0

It is my understanding that IronScheme is based on R5RS. From the R5RS Documentation:

for with-output-to-file, the effect is unspecified if the file already exists.

So throwing an error is certainly consistent with the specification and portability of Racket code should not be expected.

Caveat: This code was run on a different R5RS implementation, not IronScheme.

If you just want to append to an existing file in R5RS:

(define my-file (open-output-file "robotlog.txt"))
(display (string-append what-to-write "\r\n") my-file)
(close-output-port my-file)

Is a simple approach that may get you close to what you want.

answered May 23 '15 at 00:27

ben rudgers

3,647
2
20
32

Thanks for the answer! Unfortunately, this code will always try to create a new file, and if the file exists, it throws an error. (i/o-file-already-exists) – Robert May 23 '15 at 10:20
1

@Robert If my sample code is throwing an error with an existing file then the problem may simply be the non standard nature of Iron Scheme. – ben rudgers May 23 '15 at 13:31

Append string to existing textfile in IronScheme

2 Answers2

Linked