Subject: clisp dos serial

From: [email-masked]
Date: Fri, 9 Sep 94 03:55:00 UTC

Has anybody used the serial ports from Clisp-Dos? If so I'd be interested to
hear how you went about it.  I've tried (open "com1") but had problems due
to buffering.
 
Ian Garmaise
 
[email-masked]

---

From: haible (Bruno Haible)
Date: Fri, 9 Sep 94 15:12:47 +0200

Ian Garmaise <[email-masked]> writes:

> I've tried (open "com1") but had problems due to buffering.

To get unbuffered streams as result of (open "com1") the following patch
should work:

*** src/lispbibl.d      Tue Aug 30 20:50:04 1994
--- src/lispbibl.d.new  Fri Sep  9 15:08:45 1994
***************
*** 1568,1574 ****
  # Bei Erweiterung: STREAM erweitern (viel Arbeit!).
  
  # Ob es File-Handle-Streams gibt:
!   #if defined(UNIX) || defined(AMIGAOS) || defined(RISCOS)
      #define HANDLES
    #endif
  # Bei Erweiterung: STREAM erweitern.
--- 1568,1574 ----
  # Bei Erweiterung: STREAM erweitern (viel Arbeit!).
  
  # Ob es File-Handle-Streams gibt:
!   #if defined(UNIX) || defined(MSDOS) || defined(AMIGAOS) || defined(RISCOS)
      #define HANDLES
    #endif
  # Bei Erweiterung: STREAM erweitern.
*** src/stream.d        Tue Aug 30 02:25:37 1994
--- src/stream.d.new    Fri Sep  9 15:09:18 1994
***************
*** 8742,8748 ****
        # Alles andere gibt File-Handle-Streams, weil vermutlich lseek() nicht geht.
        if (!nullp(handle))
          {
!           #if defined(UNIX) || defined(RISCOS)
            var struct stat statbuf;
            begin_system_call();
            if (!( fstat(TheHandle(handle),&statbuf) ==0)) { OS_error(); }
--- 8742,8748 ----
        # Alles andere gibt File-Handle-Streams, weil vermutlich lseek() nicht geht.
        if (!nullp(handle))
          {
!           #if defined(UNIX) || defined(MSDOS) || defined(RISCOS)
            var struct stat statbuf;
            begin_system_call();
            if (!( fstat(TheHandle(handle),&statbuf) ==0)) { OS_error(); }

                    Bruno Haible
                    [email-masked]