DerGuteMoritz

(use posix)

(define (make-serialport file)
  (let ((fileno
         (file-open
           file
           (bitwise-ior open/rdwr open/noctty open/nonblock))))

    ; Enable blocking reads on the FD
    (let ((current-fl (file-control fileno fcntl/getfl 0)))

DerGuteMoritz

<?xml version="1.0"?>
<!-- <!DOCTYPE poem SYSTEM "dolor.dtd"> -->
<poem>
    <title>Dolor</title>

    <!-- Here's a simple example of an XML document -->

    <author>
        <last>Roethke</last>
        <first>Theodore</first>