I've been dabbling with scheme off and on for a while but I am just
getting started with Gambit-C.
I am trying to read the output of a program printing information in the
form of s-expressions. The problem is that it puts single quotes around
strings.
eg.
(domain
(domid 1)
(on_crash restart)
(image
(linux
(kernel /boot/vmlinuz-2.6.18-5-xen-amd64)
(ramdisk /boot/initrd.img-2.6.18-5-xen-amd64)
(args 'root=/dev/sda1 ro ')
... and so on
I have an mzscheme script that reads it by messing with the readtable;
the code looks like:
; (mzscheme code)
; Read after redefining so that single quotes are handled like pipe
quotes
(define (read-data inport)
(parameterize ((current-readtable
(make-readtable #f #\' #\| #f)))
(let ((domain (read inport)))
(if (eof-object? domain) '()
(cons domain (read-data inport))))))
The readtable stuff in gambit is different, obviously, so how would I go
about tackling this problem?
I've done some reading and trying different things but my scheme chops
are weak and at this point I'm stumped.
Thanks for your help.
- Jamie
===============================
CONFIDENTIAL & PRIVILEGED COMMUNICATION
The information contained in this message is privileged, confidential, and protected from disclosure. This message is intended for the individual or entity addressed herein. If you are not the intended recipient,please do not read, copy, use or disclose this communication to others. Also please notify the sender by replying to this message, and then delete it from your system. The sender totally disclaims, and will not accept, any responsibility or liability for the unauthorized use, or the consequences of any unauthorized use, of this communication or message.
