Ignore:
Timestamp:
08/18/11 12:21:39 (3 years ago)
Author:
rjs
Message:

Update.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/lisp/lmwin/supdup.lisp

    r221 r222  
    10621062           (FUNCALL STREAM ':TYO 377)))))       ;IAC's must be quoted
    10631063
    1064 (DEFMETHOD (BASIC-TELNET :BUFFERED-TYO) (CH)
    1065   (MULTIPLE-VALUE-BIND (IGNORE Y) (FUNCALL-SELF ':READ-CURSORPOS)
    1066     (COND ((= CH NVT-IAC)
    1067            (FUNCALL-SELF ':HANDLE-IAC))         ;Perform new telnet negotiations.
    1068           ((
     1064(DEFMETHOD (BASIC-TELNET :BUFFERED-TYO) (CH &AUX CH1)
     1065  (COND ((= CH NVT-IAC)
     1066         (FUNCALL-SELF ':HANDLE-IAC))           ;Perform new telnet negotiations.
     1067        ((
    10691068 CH 200))                               ;Ignore otelnet negotiations
    1070           ((= CH 7) (TV:BEEP))                  ;^G rings the bell.
    1071           ((= CH 15)
    1072            (FUNCALL-SELF ':FORCE-OUTPUT)
    1073            (FUNCALL-SELF ':SET-CURSORPOS 0 Y))
    1074           ((= CH 12)
    1075            (FUNCALL-SELF ':FORCE-OUTPUT)
    1076            (FUNCALL-SELF ':INCREMENT-CURSORPOS 0 1 ':CHARACTER)
    1077            (FUNCALL-SELF ':CLEAR-EOL))
    1078           ((AND (= CH 177) SIMULATE-IMLAC-FLAG) ;Escape character
    1079            (FUNCALL-SELF ':HANDLE-IMLAC-ESCAPE))
    1080           (T
    1081            (AND (
     1069        ((= CH 7) (TV:BEEP))                    ;^G rings the bell.
     1070        ((AND (= CH 15)
     1071              (IF (= (SETQ CH1 (NVT-NETI)) 12)  ;CR LF is NVT newline "character"
     1072                  NIL                           ;Output normally
     1073                  (FUNCALL-SELF ':FORCE-OUTPUT)
     1074                  (MULTIPLE-VALUE-BIND (IGNORE Y) (FUNCALL-SELF ':READ-CURSORPOS)
     1075                    (FUNCALL-SELF ':SET-CURSORPOS 0 Y))
     1076                  (ZEROP CH1))))                ;CR NUL is bare carriage return
     1077        ((AND (= CH 177) SIMULATE-IMLAC-FLAG)   ;Escape character
     1078         (FUNCALL-SELF ':HANDLE-IMLAC-ESCAPE))
     1079        (T
     1080         (AND (
    10821081 CH 10) (
    10831082 CH 15) ( CH 13)       ;Convert formatting controls
    1084                 (SETQ CH (+ CH 200)))           ;to Lisp machine char set.
    1085            (DO () ((ARRAY-PUSH OUTPUT-BUFFER CH))
    1086              (FUNCALL-SELF ':FORCE-OUTPUT))))))
     1083              (SETQ CH (+ CH 200)))             ;to Lisp machine char set.
     1084         (DO () ((ARRAY-PUSH OUTPUT-BUFFER CH))
     1085           (FUNCALL-SELF ':FORCE-OUTPUT)))))
    10871086
    10881087;;;New telnet protocol IAC handler
Note: See TracChangeset for help on using the changeset viewer.