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

Update.

Files:
1 modified

Legend:

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

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