Changeset 5878

Timestamp:

Feb 10, 2007, 9:23:00 PM (18 years ago)

Author:

Gary Byers

Message:

Unicode stuff when accessing control char array; conditionalize for
#+darwin-target, not just #+darwinppc-target.

File:

• trunk/ccl/library/pty.lisp (modified) (3 diffs)

trunk/ccl/library/pty.lisp

@@ -45 +45 @@
         (progn
           (if control-chars
-            (%copy-ptr-to-ivector (pref attr :termios.c_cc)
-                                  0
-                                  control-chars
-                                  0
-                                  #$NCCS))
+            (%str-from-ptr (pref attr :termios.c_cc) #$NCCS control-chars))
           (values
            (pref attr :termios.c_iflag)
@@ -55 +51 @@
            (pref attr :termios.c_cflag)
            (pref attr :termios.c_lflag)
-           #+darwinppc-target 0
-           #-darwinppc-target
+           #+darwin-target 0
+           #-darwin-target
            (pref attr :termios.c_line)
            control-chars
@@ -91 +87 @@
               (setq write-back t))
             (when control-chars
-              (%copy-ivector-to-ptr control-chars
-                                    0
-                                    (pref attr :termios.c_cc)
-                                    0
-                                    #$NCCS)
+              (%cstr-pointer control-chars (pref attr :termios.c_cc) nil)
               (setq write-back t))
             (when input-speed