/[cmucl]/src/hemlock/tty-display.lisp
ViewVC logotype

Diff of /src/hemlock/tty-display.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.1.10 by wlott, Wed Oct 30 08:22:37 1991 UTC revision 1.1.1.11 by ram, Wed Aug 25 02:11:11 1993 UTC
# Line 1216  Line 1216 
1216    (let* ((device (device-hunk-device hunk))    (let* ((device (device-hunk-device hunk))
1217           (init-string (tty-device-insert-init-string device))           (init-string (tty-device-insert-init-string device))
1218           (char-init-string (tty-device-insert-char-init-string device))           (char-init-string (tty-device-insert-char-init-string device))
          (cis-len (if char-init-string (length char-init-string)))  
1219           (char-end-string (tty-device-insert-char-end-string device))           (char-end-string (tty-device-insert-char-end-string device))
          (ces-len (if char-end-string (length char-end-string)))  
1220           (end-string (tty-device-insert-end-string device)))           (end-string (tty-device-insert-end-string device)))
1221      (declare (type (or simple-string null) char-init-string char-end-string))      (declare (type (or simple-string null) char-init-string char-end-string))
1222      (when init-string (device-write-string init-string))      (when init-string (device-write-string init-string))
1223      (if char-init-string      (if char-init-string
1224          (do ((i start (1+ i)))          (let ((cis-len (length char-init-string))
1225              ((= i end))                (ces-len (length char-end-string)))
1226            (device-write-string char-init-string 0 cis-len)            (do ((i start (1+ i)))
1227            (tty-write-char (schar string i))                ((= i end))
1228            (when char-end-string              (device-write-string char-init-string 0 cis-len)
1229              (device-write-string char-end-string 0 ces-len)))              (tty-write-char (schar string i))
1230                (when char-end-string
1231                  (device-write-string char-end-string 0 ces-len))))
1232          (device-write-string string start end))          (device-write-string string start end))
1233      (when end-string (device-write-string end-string))      (when end-string (device-write-string end-string))
1234      (setf (tty-device-cursor-x device)      (setf (tty-device-cursor-x device)

Legend:
Removed from v.1.1.1.10  
changed lines
  Added in v.1.1.1.11

  ViewVC Help
Powered by ViewVC 1.1.5