/ BCI NET 2 / BCI NET 2.iso / archives / programming / source / a2.0bemacs-src.lha / Emacs-19.25 / lisp / telnet.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6b 77 7a 68 40 68 61 |piled by| kwzh@ha|
|00000020| 6c 2e 67 6e 75 2e 61 69 | 2e 6d 69 74 2e 65 64 75 |l.gnu.ai|.mit.edu|
|00000030| 20 6f 6e 20 54 75 65 20 | 4d 61 79 20 20 33 20 32 | on Tue |May  3 2|
|00000040| 31 3a 35 34 3a 33 38 20 | 31 39 39 34 0a 3b 3b 3b |1:54:38 |1994.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 67 64 2f 67 | from fi|le /gd/g|
|00000060| 6e 75 2f 65 6d 61 63 73 | 2f 31 39 2e 30 2f 6c 69 |nu/emacs|/19.0/li|
|00000070| 73 70 2f 74 65 6c 6e 65 | 74 2e 65 6c 0a 3b 3b 3b |sp/telne|t.el.;;;|
|00000080| 20 65 6d 61 63 73 20 76 | 65 72 73 69 6f 6e 20 31 | emacs v|ersion 1|
|00000090| 39 2e 32 32 2e 39 32 2e | 32 2e 0a 3b 3b 3b 20 62 |9.22.92.|2..;;; b|
|000000a0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000b0| 46 53 46 20 32 2e 31 30 | 0a 3b 3b 3b 20 6f 70 74 |FSF 2.10|.;;; opt|
|000000c0| 69 6d 69 7a 61 74 69 6f | 6e 20 69 73 20 6f 6e 2e |imizatio|n is on.|
|000000d0| 0a 3b 3b 3b 20 74 68 69 | 73 20 66 69 6c 65 20 75 |.;;; thi|s file u|
|000000e0| 73 65 73 20 6f 70 63 6f | 64 65 73 20 77 68 69 63 |ses opco|des whic|
|000000f0| 68 20 64 6f 20 6e 6f 74 | 20 65 78 69 73 74 20 69 |h do not| exist i|
|00000100| 6e 20 45 6d 61 63 73 20 | 31 38 2e 0a 0a 28 69 66 |n Emacs |18...(if|
|00000110| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000120| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 29 0a 09 20 |macs-ver|sion).. |
|00000130| 28 6f 72 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(or (and| (boundp|
|00000140| 20 27 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e | 'epoch:|:version|
|00000150| 29 20 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e |) epoch:|:version|
|00000160| 29 0a 09 20 20 20 20 20 | 28 73 74 72 69 6e 67 2d |)..     |(string-|
|00000170| 6c 65 73 73 70 20 65 6d | 61 63 73 2d 76 65 72 73 |lessp em|acs-vers|
|00000180| 69 6f 6e 20 22 31 39 22 | 29 29 29 0a 20 20 20 20 |ion "19"|))).    |
|00000190| 28 65 72 72 6f 72 20 22 | 60 2f 67 64 2f 67 6e 75 |(error "|`/gd/gnu|
|000001a0| 2f 65 6d 61 63 73 2f 31 | 39 2e 30 2f 6c 69 73 70 |/emacs/1|9.0/lisp|
|000001b0| 2f 74 65 6c 6e 65 74 2e | 65 6c 27 20 77 61 73 20 |/telnet.|el' was |
|000001c0| 63 6f 6d 70 69 6c 65 64 | 20 66 6f 72 20 45 6d 61 |compiled| for Ema|
|000001d0| 63 73 20 31 39 22 29 29 | 0a 0a 28 62 79 74 65 2d |cs 19"))|..(byte-|
|000001e0| 63 6f 64 65 20 22 c0 c1 | 21 88 c2 c3 21 84 5c 66 |code "..|!...!.\f|
|000001f0| 00 c4 13 c2 c5 21 84 14 | 00 c6 15 c2 c7 21 84 1d |.....!..|.....!..|
|00000200| 00 c8 16 07 c2 c9 21 84 | 26 00 c6 16 09 ca c2 cb |......!.|&.......|
|00000210| 21 84 30 00 cc 16 0b cd | cb ce cf 23 88 cb 21 88 |!.0.....|...#..!.|
|00000220| ca c2 d0 21 84 43 00 d1 | 16 10 cd d0 ce d2 23 88 |...!.C..|......#.|
|00000230| d0 21 87 22 20 5b 72 65 | 71 75 69 72 65 20 63 6f |.!." [re|quire co|
|00000240| 6d 69 6e 74 20 62 6f 75 | 6e 64 70 20 74 65 6c 6e |mint bou|ndp teln|
|00000250| 65 74 2d 6e 65 77 2d 6c | 69 6e 65 20 22 0d 22 20 |et-new-l|ine "." |
|00000260| 74 65 6c 6e 65 74 2d 6d | 6f 64 65 2d 6d 61 70 20 |telnet-m|ode-map |
|00000270| 6e 69 6c 20 74 65 6c 6e | 65 74 2d 70 72 6f 6d 70 |nil teln|et-promp|
|00000280| 74 2d 70 61 74 74 65 72 | 6e 20 22 5e 5b 5e 23 24 |t-patter|n "^[^#$|
|00000290| 25 3e 5c 6e 5d 2a 5b 23 | 24 25 3e 5d 20 2a 22 20 |%>\n]*[#|$%>] *" |
|000002a0| 74 65 6c 6e 65 74 2d 72 | 65 70 6c 61 63 65 2d 63 |telnet-r|eplace-c|
|000002b0| 2d 67 20 6d 61 6b 65 2d | 76 61 72 69 61 62 6c 65 |-g make-|variable|
|000002c0| 2d 62 75 66 66 65 72 2d | 6c 6f 63 61 6c 20 74 65 |-buffer-|local te|
|000002d0| 6c 6e 65 74 2d 72 65 6d | 6f 74 65 2d 65 63 68 6f |lnet-rem|ote-echo|
|000002e0| 65 73 20 74 20 70 75 74 | 20 76 61 72 69 61 62 6c |es t put| variabl|
|000002f0| 65 2d 64 6f 63 75 6d 65 | 6e 74 61 74 69 6f 6e 20 |e-docume|ntation |
|00000300| 22 54 72 75 65 20 69 66 | 20 74 68 65 20 74 65 6c |"True if| the tel|
|00000310| 6e 65 74 20 70 72 6f 63 | 65 73 73 20 77 69 6c 6c |net proc|ess will|
|00000320| 20 65 63 68 6f 20 69 6e | 70 75 74 2e 22 20 74 65 | echo in|put." te|
|00000330| 6c 6e 65 74 2d 69 6e 74 | 65 72 72 75 70 74 2d 73 |lnet-int|errupt-s|
|00000340| 74 72 69 6e 67 20 22 03 | 22 20 22 53 74 72 69 6e |tring ".|" "Strin|
|00000350| 67 20 73 65 6e 74 20 62 | 79 20 43 2d 63 2e 22 5d |g sent b|y C-c."]|
|00000360| 20 35 29 0a 28 64 65 66 | 76 61 72 20 74 65 6c 6e | 5).(def|var teln|
|00000370| 65 74 2d 63 6f 75 6e 74 | 20 30 20 22 5c 0a 4e 75 |et-count| 0 "\.Nu|
|00000380| 6d 62 65 72 20 6f 66 20 | 6f 75 74 70 75 74 20 73 |mber of |output s|
|00000390| 74 72 69 6e 67 73 20 66 | 72 6f 6d 20 74 65 6c 6e |trings f|rom teln|
|000003a0| 65 74 20 70 72 6f 63 65 | 73 73 20 77 68 69 6c 65 |et proce|ss while|
|000003b0| 20 6c 6f 6f 6b 69 6e 67 | 20 66 6f 72 20 70 61 73 | looking| for pas|
|000003c0| 73 77 6f 72 64 2e 22 29 | 0a 28 6d 61 6b 65 2d 76 |sword.")|.(make-v|
|000003d0| 61 72 69 61 62 6c 65 2d | 62 75 66 66 65 72 2d 6c |ariable-|buffer-l|
|000003e0| 6f 63 61 6c 20 28 71 75 | 6f 74 65 20 74 65 6c 6e |ocal (qu|ote teln|
|000003f0| 65 74 2d 63 6f 75 6e 74 | 29 29 0a 28 64 65 66 76 |et-count|)).(defv|
|00000400| 61 72 20 74 65 6c 6e 65 | 74 2d 72 73 68 2d 70 72 |ar telne|t-rsh-pr|
|00000410| 6f 67 72 61 6d 20 28 62 | 79 74 65 2d 63 6f 64 65 |ogram (b|yte-code|
|00000420| 20 22 08 c1 3e 83 08 00 | c2 87 c3 87 22 20 5b 73 | "..>...|...." [s|
|00000430| 79 73 74 65 6d 2d 74 79 | 70 65 20 28 68 70 75 78 |ystem-ty|pe (hpux|
|00000440| 20 75 73 67 2d 75 6e 69 | 78 2d 76 29 20 22 72 65 | usg-uni|x-v) "re|
|00000450| 6d 73 68 22 20 22 72 73 | 68 22 5d 20 32 29 20 22 |msh" "rs|h"] 2) "|
|00000460| 5c 0a 50 72 6f 67 72 61 | 6d 20 74 6f 20 72 75 6e |\.Progra|m to run|
|00000470| 20 66 6f 72 20 6f 70 65 | 6e 69 6e 67 20 61 20 72 | for ope|ning a r|
|00000480| 65 6d 6f 74 65 20 73 68 | 65 6c 6c 2e 22 29 0a 28 |emote sh|ell.").(|
|00000490| 64 65 66 76 61 72 20 74 | 65 6c 6e 65 74 2d 69 6e |defvar t|elnet-in|
|000004a0| 69 74 69 61 6c 2d 63 6f | 75 6e 74 20 2d 35 30 20 |itial-co|unt -50 |
|000004b0| 22 5c 0a 49 6e 69 74 69 | 61 6c 20 76 61 6c 75 65 |"\.Initi|al value|
|000004c0| 20 6f 66 20 60 74 65 6c | 6e 65 74 2d 63 6f 75 6e | of `tel|net-coun|
|000004d0| 74 27 2e 20 20 53 68 6f | 75 6c 64 20 62 65 20 73 |t'.  Sho|uld be s|
|000004e0| 65 74 20 74 6f 20 74 68 | 65 20 6e 65 67 61 74 69 |et to th|e negati|
|000004f0| 76 65 20 6f 66 20 74 68 | 65 0a 6e 75 6d 62 65 72 |ve of th|e.number|
|00000500| 20 6f 66 20 74 65 72 6d | 69 6e 61 6c 20 77 72 69 | of term|inal wri|
|00000510| 74 65 73 20 74 65 6c 6e | 65 74 20 77 69 6c 6c 20 |tes teln|et will |
|00000520| 6d 61 6b 65 20 73 65 74 | 74 69 6e 67 20 75 70 20 |make set|ting up |
|00000530| 74 68 65 20 68 6f 73 74 | 20 63 6f 6e 6e 65 63 74 |the host| connect|
|00000540| 69 6f 6e 2e 22 29 0a 28 | 64 65 66 76 61 72 20 74 |ion.").(|defvar t|
|00000550| 65 6c 6e 65 74 2d 6d 61 | 78 69 6d 75 6d 2d 63 6f |elnet-ma|ximum-co|
|00000560| 75 6e 74 20 34 20 22 5c | 0a 4d 61 78 69 6d 75 6d |unt 4 "\|.Maximum|
|00000570| 20 76 61 6c 75 65 20 60 | 74 65 6c 6e 65 74 2d 63 | value `|telnet-c|
|00000580| 6f 75 6e 74 27 20 63 61 | 6e 20 68 61 76 65 2e 0a |ount' ca|n have..|
|00000590| 41 66 74 65 72 20 74 68 | 69 73 20 6d 61 6e 79 20 |After th|is many |
|000005a0| 70 61 73 73 65 73 2c 20 | 77 65 20 73 74 6f 70 20 |passes, |we stop |
|000005b0| 6c 6f 6f 6b 69 6e 67 20 | 66 6f 72 20 69 6e 69 74 |looking |for init|
|000005c0| 69 61 6c 20 73 65 74 75 | 70 20 64 61 74 61 2e 0a |ial setu|p data..|
|000005d0| 53 68 6f 75 6c 64 20 62 | 65 20 73 65 74 20 74 6f |Should b|e set to|
|000005e0| 20 74 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 74 | the num|ber of t|
|000005f0| 65 72 6d 69 6e 61 6c 20 | 77 72 69 74 65 73 20 74 |erminal |writes t|
|00000600| 65 6c 6e 65 74 20 77 69 | 6c 6c 20 6d 61 6b 65 0a |elnet wi|ll make.|
|00000610| 72 65 6a 65 63 74 69 6e | 67 20 6f 6e 65 20 6c 6f |rejectin|g one lo|
|00000620| 67 69 6e 20 61 6e 64 20 | 70 72 6f 6d 70 74 69 6e |gin and |promptin|
|00000630| 67 20 61 67 61 69 6e 20 | 66 6f 72 20 61 20 75 73 |g again |for a us|
|00000640| 65 72 6e 61 6d 65 20 61 | 6e 64 20 70 61 73 73 77 |ername a|nd passw|
|00000650| 6f 72 64 2e 22 29 0a 28 | 62 79 74 65 2d 63 6f 64 |ord.").(|byte-cod|
|00000660| 65 20 22 c0 c1 c2 5c 22 | 88 c0 c3 c4 5c 22 88 c0 |e "...\"|....\"..|
|00000670| c5 c6 5c 22 88 0e 07 84 | 36 00 c8 0e 09 21 16 07 |..\"....|6....!..|
|00000680| ca 0e 07 cb cc 23 88 ca | 0e 07 cd c5 23 88 ca 0e |.....#..|....#...|
|00000690| 07 ce c1 23 88 ca 0e 07 | cf c3 23 88 c0 87 22 20 |...#....|..#..." |
|000006a0| 5b 64 65 66 61 6c 69 61 | 73 20 74 65 6c 6e 65 74 |[defalia|s telnet|
|000006b0| 2d 69 6e 74 65 72 72 75 | 70 74 2d 73 75 62 6a 6f |-interru|pt-subjo|
|000006c0| 62 20 23 5b 6e 69 6c 20 | 22 c0 c1 5c 6e 5c 22 87 |b #[nil |"..\n\".|
|000006d0| 22 20 5b 73 65 6e 64 2d | 73 74 72 69 6e 67 20 6e |" [send-|string n|
|000006e0| 69 6c 20 74 65 6c 6e 65 | 74 2d 69 6e 74 65 72 72 |il telne|t-interr|
|000006f0| 75 70 74 2d 73 74 72 69 | 6e 67 5d 20 33 20 6e 69 |upt-stri|ng] 3 ni|
|00000700| 6c 20 6e 69 6c 5d 20 74 | 65 6c 6e 65 74 2d 63 2d |l nil] t|elnet-c-|
|00000710| 7a 20 23 5b 6e 69 6c 20 | 22 c0 c1 c2 5c 22 87 22 |z #[nil |"...\"."|
|00000720| 20 5b 73 65 6e 64 2d 73 | 74 72 69 6e 67 20 6e 69 | [send-s|tring ni|
|00000730| 6c 20 22 1a 22 5d 20 33 | 20 6e 69 6c 20 6e 69 6c |l "."] 3| nil nil|
|00000740| 5d 20 73 65 6e 64 2d 70 | 72 6f 63 65 73 73 2d 6e |] send-p|rocess-n|
|00000750| 65 78 74 2d 63 68 61 72 | 20 23 5b 6e 69 6c 20 22 |ext-char| #[nil "|
|00000760| c0 c1 c2 c3 1c c5 20 c1 | 16 06 29 21 5c 22 87 22 |...... .|..)!\"."|
|00000770| 20 5b 73 65 6e 64 2d 73 | 74 72 69 6e 67 20 6e 69 | [send-s|tring ni|
|00000780| 6c 20 63 68 61 72 2d 74 | 6f 2d 73 74 72 69 6e 67 |l char-t|o-string|
|00000790| 20 74 20 69 6e 68 69 62 | 69 74 2d 71 75 69 74 20 | t inhib|it-quit |
|000007a0| 72 65 61 64 2d 63 68 61 | 72 20 71 75 69 74 2d 66 |read-cha|r quit-f|
|000007b0| 6c 61 67 5d 20 35 20 6e | 69 6c 20 6e 69 6c 5d 20 |lag] 5 n|il nil] |
|000007c0| 74 65 6c 6e 65 74 2d 6d | 6f 64 65 2d 6d 61 70 20 |telnet-m|ode-map |
|000007d0| 63 6f 70 79 2d 6b 65 79 | 6d 61 70 20 63 6f 6d 69 |copy-key|map comi|
|000007e0| 6e 74 2d 6d 6f 64 65 2d | 6d 61 70 20 64 65 66 69 |nt-mode-|map defi|
|000007f0| 6e 65 2d 6b 65 79 20 22 | 0d 22 20 74 65 6c 6e 65 |ne-key "|." telne|
|00000800| 74 2d 73 65 6e 64 2d 69 | 6e 70 75 74 20 22 03 11 |t-send-i|nput "..|
|00000810| 22 20 22 03 03 22 20 22 | 03 1a 22 5d 20 34 29 0a |" ".." "|.."] 4).|
|00000820| 28 64 65 66 61 6c 69 61 | 73 20 27 74 65 6c 6e 65 |(defalia|s 'telne|
|00000830| 74 2d 63 68 65 63 6b 2d | 73 6f 66 74 77 61 72 65 |t-check-|software|
|00000840| 2d 74 79 70 65 2d 69 6e | 69 74 69 61 6c 69 7a 65 |-type-in|itialize|
|00000850| 20 23 5b 28 73 74 72 69 | 6e 67 29 20 22 c0 19 c2 | #[(stri|ng) "...|
|00000860| c3 5c 66 5c 22 83 12 00 | 0d 16 06 c7 16 08 82 36 |.\f\"...|.......6|
|00000870| 00 c2 c9 5c 66 5c 22 83 | 1f 00 ca 16 06 82 36 00 |...\f\".|......6.|
|00000880| c2 cb 5c 66 5c 22 83 2c | 00 cc 16 06 82 36 00 c2 |..\f\".,|.....6..|
|00000890| cd 5c 66 5c 22 83 36 00 | ce 16 0f 29 0e 06 89 15 |.\f\".6.|...)....|
|000008a0| 87 22 20 5b 74 20 63 61 | 73 65 2d 66 6f 6c 64 2d |." [t ca|se-fold-|
|000008b0| 73 65 61 72 63 68 20 73 | 74 72 69 6e 67 2d 6d 61 |search s|tring-ma|
|000008c0| 74 63 68 20 22 75 6e 69 | 78 22 20 73 74 72 69 6e |tch "uni|x" strin|
|000008d0| 67 20 63 6f 6d 69 6e 74 | 2d 70 72 6f 6d 70 74 2d |g comint|-prompt-|
|000008e0| 72 65 67 65 78 70 20 74 | 65 6c 6e 65 74 2d 70 72 |regexp t|elnet-pr|
|000008f0| 6f 6d 70 74 2d 70 61 74 | 74 65 72 6e 20 22 5c 6e |ompt-pat|tern "\n|
|00000900| 22 20 74 65 6c 6e 65 74 | 2d 6e 65 77 2d 6c 69 6e |" telnet|-new-lin|
|00000910| 65 20 22 74 6f 70 73 2d | 32 30 22 20 22 5b 40 3e |e "tops-|20" "[@>|
|00000920| 5d 2a 22 20 22 69 74 73 | 22 20 22 5e 5b 5e 2a 3e |]*" "its|" "^[^*>|
|00000930| 5c 6e 5d 2a 5b 2a 3e 5d | 20 2a 22 20 22 65 78 70 |\n]*[*>]| *" "exp|
|00000940| 6c 6f 72 65 72 22 20 31 | 30 20 74 65 6c 6e 65 74 |lorer" 1|0 telnet|
|00000950| 2d 72 65 70 6c 61 63 65 | 2d 63 2d 67 5d 20 33 20 |-replace|-c-g] 3 |
|00000960| 22 5c 0a 54 72 69 65 73 | 20 74 6f 20 70 75 74 20 |"\.Tries| to put |
|00000970| 63 6f 72 72 65 63 74 20 | 69 6e 69 74 69 61 6c 69 |correct |initiali|
|00000980| 7a 61 74 69 6f 6e 73 20 | 69 6e 2e 20 20 4e 65 65 |zations |in.  Nee|
|00000990| 64 73 20 77 6f 72 6b 2e | 22 5d 29 0a 28 62 79 74 |ds work.|"]).(byt|
|000009a0| 65 2d 63 6f 64 65 20 22 | c0 c1 c2 5c 22 88 c0 c3 |e-code "|...\"...|
|000009b0| c4 5c 22 88 c0 c5 c6 5c | 22 88 c0 c7 c8 5c 22 87 |.\"....\|"....\".|
|000009c0| 22 20 5b 64 65 66 61 6c | 69 61 73 20 74 65 6c 6e |" [defal|ias teln|
|000009d0| 65 74 2d 69 6e 69 74 69 | 61 6c 2d 66 69 6c 74 65 |et-initi|al-filte|
|000009e0| 72 20 23 5b 28 70 72 6f | 63 20 73 74 72 69 6e 67 |r #[(pro|c string|
|000009f0| 29 20 22 c0 c1 5c 6e 5c | 22 83 11 00 c3 c4 0d 21 |) "..\n\|"......!|
|00000a00| 21 88 c6 c7 21 87 c0 c8 | 5c 6e 5c 22 83 2b 00 c9 |!...!...|\n\".+..|
|00000a10| 0d 5c 6e 5c 22 88 ca 16 | 0b cc 0d cd ce cf 5c 22 |.\n\"...|......\"|
|00000a20| 0e 10 50 5c 22 87 d1 5c | 6e 21 88 c9 0d 5c 6e 5c |..P\"..\|n!...\n\|
|00000a30| 22 88 0e 0b 0e 12 56 83 | 41 00 d3 0d c9 5c 22 87 |".....V.|A....\".|
|00000a40| 0e 0b 54 89 16 0b 87 22 | 20 5b 73 74 72 69 6e 67 |..T...."| [string|
|00000a50| 2d 6d 61 74 63 68 20 22 | 4e 6f 20 73 75 63 68 20 |-match "|No such |
|00000a60| 68 6f 73 74 22 20 73 74 | 72 69 6e 67 20 6b 69 6c |host" st|ring kil|
|00000a70| 6c 2d 62 75 66 66 65 72 | 20 70 72 6f 63 65 73 73 |l-buffer| process|
|00000a80| 2d 62 75 66 66 65 72 20 | 70 72 6f 63 20 65 72 72 |-buffer |proc err|
|00000a90| 6f 72 20 22 4e 6f 20 73 | 75 63 68 20 68 6f 73 74 |or "No s|uch host|
|00000aa0| 2e 22 20 22 70 61 73 73 | 77 22 20 74 65 6c 6e 65 |." "pass|w" telne|
|00000ab0| 74 2d 66 69 6c 74 65 72 | 20 30 20 74 65 6c 6e 65 |t-filter| 0 telne|
|00000ac0| 74 2d 63 6f 75 6e 74 20 | 73 65 6e 64 2d 73 74 72 |t-count |send-str|
|00000ad0| 69 6e 67 20 63 6f 6d 69 | 6e 74 2d 72 65 61 64 2d |ing comi|nt-read-|
|00000ae0| 6e 6f 65 63 68 6f 20 22 | 50 61 73 73 77 6f 72 64 |noecho "|Password|
|00000af0| 3a 20 22 20 74 20 74 65 | 6c 6e 65 74 2d 6e 65 77 |: " t te|lnet-new|
|00000b00| 2d 6c 69 6e 65 20 74 65 | 6c 6e 65 74 2d 63 68 65 |-line te|lnet-che|
|00000b10| 63 6b 2d 73 6f 66 74 77 | 61 72 65 2d 74 79 70 65 |ck-softw|are-type|
|00000b20| 2d 69 6e 69 74 69 61 6c | 69 7a 65 20 74 65 6c 6e |-initial|ize teln|
|00000b30| 65 74 2d 6d 61 78 69 6d | 75 6d 2d 63 6f 75 6e 74 |et-maxim|um-count|
|00000b40| 20 73 65 74 2d 70 72 6f | 63 65 73 73 2d 66 69 6c | set-pro|cess-fil|
|00000b50| 74 65 72 5d 20 35 5d 20 | 74 65 6c 6e 65 74 2d 73 |ter] 5] |telnet-s|
|00000b60| 69 6d 70 6c 65 2d 73 65 | 6e 64 20 23 5b 28 70 72 |imple-se|nd #[(pr|
|00000b70| 6f 63 20 73 74 72 69 6e | 67 29 20 22 c0 09 5c 6e |oc strin|g) "..\n|
|00000b80| 5c 22 88 c0 09 0b 5c 22 | 87 22 20 5b 63 6f 6d 69 |\"....\"|." [comi|
|00000b90| 6e 74 2d 73 65 6e 64 2d | 73 74 72 69 6e 67 20 70 |nt-send-|string p|
|00000ba0| 72 6f 63 20 73 74 72 69 | 6e 67 20 74 65 6c 6e 65 |roc stri|ng telne|
|00000bb0| 74 2d 6e 65 77 2d 6c 69 | 6e 65 5d 20 33 5d 20 74 |t-new-li|ne] 3] t|
|00000bc0| 65 6c 6e 65 74 2d 66 69 | 6c 74 65 72 20 23 5b 28 |elnet-fi|lter #[(|
|00000bd0| 70 72 6f 63 20 73 74 72 | 69 6e 67 29 20 22 8a c0 |proc str|ing) "..|
|00000be0| 09 21 71 88 c2 c3 09 21 | 21 1c 60 5c 66 5a 1d 0e |.!q....!|!.`\fZ..|
|00000bf0| 06 85 19 00 c2 0e 06 21 | 1e 07 c8 70 21 89 1e 09 |.......!|...p!...|
|00000c00| 85 28 00 ca 0e 09 21 1e | 0b 5c 66 62 88 cc 0e 0d |.(....!.|.\fb....|
|00000c10| 21 88 c3 09 21 60 ce 93 | 88 0e 0b 83 46 00 cf 0e |!...!`..|....F...|
|00000c20| 09 0e 0b d0 23 88 0e 07 | 83 52 00 0e 06 0e 07 ce |....#...|.R......|
|00000c30| 93 88 d1 5c 66 78 88 60 | 5c 66 56 83 64 00 60 53 |...\fx.`|\fV.d.`S|
|00000c40| 60 7c 88 82 52 00 c3 09 | 21 62 88 0e 12 83 77 00 |`|..R...|!b....w.|
|00000c50| d3 5c 66 60 d4 0e 12 d0 | 25 88 0d d5 56 85 83 00 |.\f`....|%...V...|
|00000c60| c3 09 21 0d 5c 5c 62 2e | 06 87 22 20 5b 70 72 6f |..!.\\b.|.." [pro|
|00000c70| 63 65 73 73 2d 62 75 66 | 66 65 72 20 70 72 6f 63 |cess-buf|fer proc|
|00000c80| 20 6d 61 72 6b 65 72 2d | 70 6f 73 69 74 69 6f 6e | marker-|position|
|00000c90| 20 70 72 6f 63 65 73 73 | 2d 6d 61 72 6b 20 6c 61 | process|-mark la|
|00000ca0| 73 74 2d 69 6e 73 65 72 | 74 69 6f 6e 20 64 65 6c |st-inser|tion del|
|00000cb0| 74 61 20 63 6f 6d 69 6e | 74 2d 6c 61 73 74 2d 69 |ta comin|t-last-i|
|00000cc0| 6e 70 75 74 2d 65 6e 64 | 20 69 65 20 67 65 74 2d |nput-end| ie get-|
|00000cd0| 62 75 66 66 65 72 2d 77 | 69 6e 64 6f 77 20 77 20 |buffer-w|indow w |
|00000ce0| 77 69 6e 64 6f 77 2d 73 | 74 61 72 74 20 77 73 20 |window-s|tart ws |
|00000cf0| 69 6e 73 65 72 74 2d 62 | 65 66 6f 72 65 2d 6d 61 |insert-b|efore-ma|
|00000d00| 72 6b 65 72 73 20 73 74 | 72 69 6e 67 20 6e 69 6c |rkers st|ring nil|
|00000d10| 20 73 65 74 2d 77 69 6e | 64 6f 77 2d 73 74 61 72 | set-win|dow-star|
|00000d20| 74 20 74 20 22 5e 0d 22 | 20 74 65 6c 6e 65 74 2d |t t "^."| telnet-|
|00000d30| 72 65 70 6c 61 63 65 2d | 63 2d 67 20 73 75 62 73 |replace-|c-g subs|
|00000d40| 74 2d 63 68 61 72 2d 69 | 6e 2d 72 65 67 69 6f 6e |t-char-i|n-region|
|00000d50| 20 37 20 30 5d 20 37 5d | 20 74 65 6c 6e 65 74 2d | 7 0] 7]| telnet-|
|00000d60| 73 65 6e 64 2d 69 6e 70 | 75 74 20 23 5b 6e 69 6c |send-inp|ut #[nil|
|00000d70| 20 22 c0 20 88 09 85 5c | 6e 00 5c 6e 0b 7c 87 22 | ". ...\|n.\n.|."|
|00000d80| 20 5b 63 6f 6d 69 6e 74 | 2d 73 65 6e 64 2d 69 6e | [comint|-send-in|
|00000d90| 70 75 74 20 74 65 6c 6e | 65 74 2d 72 65 6d 6f 74 |put teln|et-remot|
|00000da0| 65 2d 65 63 68 6f 65 73 | 20 63 6f 6d 69 6e 74 2d |e-echoes| comint-|
|00000db0| 6c 61 73 74 2d 69 6e 70 | 75 74 2d 73 74 61 72 74 |last-inp|ut-start|
|00000dc0| 20 63 6f 6d 69 6e 74 2d | 6c 61 73 74 2d 69 6e 70 | comint-|last-inp|
|00000dd0| 75 74 2d 65 6e 64 5d 20 | 32 20 6e 69 6c 20 6e 69 |ut-end] |2 nil ni|
|00000de0| 6c 5d 5d 20 33 29 0a 28 | 64 65 66 61 6c 69 61 73 |l]] 3).(|defalias|
|00000df0| 20 27 74 65 6c 6e 65 74 | 20 23 5b 28 68 6f 73 74 | 'telnet| #[(host|
|00000e00| 29 20 22 c0 19 c2 0b c4 | c5 23 c6 50 1e 07 c8 c9 |) ".....|.#.P....|
|00000e10| 0e 07 c9 51 21 89 1e 5c | 6e 83 29 00 cb 0e 5c 6e |...Q!..\|n.)...\n|
|00000e20| 21 83 29 00 cc c9 0e 07 | c9 51 21 82 57 00 cc cd |!.).....|.Q!.W...|
|00000e30| 0e 07 ce 5c 22 21 88 cf | d0 0e 07 21 d1 5c 22 88 |...\"!..|...!.\".|
|00000e40| d2 d0 0e 07 21 21 88 d3 | 20 88 d4 0e 07 d5 0b d6 |....!!..| .......|
|00000e50| 51 5c 22 88 d7 20 88 d8 | 16 19 0e 1a 89 16 1b 2b |Q\".. ..|.......+|
|00000e60| 87 22 20 5b 28 33 32 20 | 39 29 20 63 6f 6d 69 6e |." [(32 |9) comin|
|00000e70| 74 2d 64 65 6c 69 6d 69 | 74 65 72 2d 61 72 67 75 |t-delimi|ter-argu|
|00000e80| 6d 65 6e 74 2d 6c 69 73 | 74 20 63 6f 6d 69 6e 74 |ment-lis|t comint|
|00000e90| 2d 61 72 67 75 6d 65 6e | 74 73 20 68 6f 73 74 20 |-argumen|ts host |
|00000ea0| 30 20 6e 69 6c 20 22 2d | 74 65 6c 6e 65 74 22 20 |0 nil "-|telnet" |
|00000eb0| 6e 61 6d 65 20 67 65 74 | 2d 62 75 66 66 65 72 20 |name get|-buffer |
|00000ec0| 22 2a 22 20 62 75 66 66 | 65 72 20 67 65 74 2d 62 |"*" buff|er get-b|
|00000ed0| 75 66 66 65 72 2d 70 72 | 6f 63 65 73 73 20 73 77 |uffer-pr|ocess sw|
|00000ee0| 69 74 63 68 2d 74 6f 2d | 62 75 66 66 65 72 20 6d |itch-to-|buffer m|
|00000ef0| 61 6b 65 2d 63 6f 6d 69 | 6e 74 20 22 74 65 6c 6e |ake-comi|nt "teln|
|00000f00| 65 74 22 20 73 65 74 2d | 70 72 6f 63 65 73 73 2d |et" set-|process-|
|00000f10| 66 69 6c 74 65 72 20 67 | 65 74 2d 70 72 6f 63 65 |filter g|et-proce|
|00000f20| 73 73 20 74 65 6c 6e 65 | 74 2d 69 6e 69 74 69 61 |ss telne|t-initia|
|00000f30| 6c 2d 66 69 6c 74 65 72 | 20 61 63 63 65 70 74 2d |l-filter| accept-|
|00000f40| 70 72 6f 63 65 73 73 2d | 6f 75 74 70 75 74 20 65 |process-|output e|
|00000f50| 72 61 73 65 2d 62 75 66 | 66 65 72 20 73 65 6e 64 |rase-buf|fer send|
|00000f60| 2d 73 74 72 69 6e 67 20 | 22 6f 70 65 6e 20 22 20 |-string |"open " |
|00000f70| 22 5c 6e 22 20 74 65 6c | 6e 65 74 2d 6d 6f 64 65 |"\n" tel|net-mode|
|00000f80| 20 74 65 6c 6e 65 74 2d | 73 69 6d 70 6c 65 2d 73 | telnet-|simple-s|
|00000f90| 65 6e 64 20 63 6f 6d 69 | 6e 74 2d 69 6e 70 75 74 |end comi|nt-input|
|00000fa0| 2d 73 65 6e 64 65 72 20 | 74 65 6c 6e 65 74 2d 69 |-sender |telnet-i|
|00000fb0| 6e 69 74 69 61 6c 2d 63 | 6f 75 6e 74 20 74 65 6c |nitial-c|ount tel|
|00000fc0| 6e 65 74 2d 63 6f 75 6e | 74 5d 20 36 20 22 5c 0a |net-coun|t] 6 "\.|
|00000fd0| 4f 70 65 6e 20 61 20 6e | 65 74 77 6f 72 6b 20 6c |Open a n|etwork l|
|00000fe0| 6f 67 69 6e 20 63 6f 6e | 6e 65 63 74 69 6f 6e 20 |ogin con|nection |
|00000ff0| 74 6f 20 68 6f 73 74 20 | 6e 61 6d 65 64 20 48 4f |to host |named HO|
|00001000| 53 54 20 28 61 20 73 74 | 72 69 6e 67 29 2e 0a 43 |ST (a st|ring)..C|
|00001010| 6f 6d 6d 75 6e 69 63 61 | 74 69 6f 6e 20 77 69 74 |ommunica|tion wit|
|00001020| 68 20 48 4f 53 54 20 69 | 73 20 72 65 63 6f 72 64 |h HOST i|s record|
|00001030| 65 64 20 69 6e 20 61 20 | 62 75 66 66 65 72 20 2a |ed in a |buffer *|
|00001040| 48 4f 53 54 2d 74 65 6c | 6e 65 74 2a 2e 0a 4e 6f |HOST-tel|net*..No|
|00001050| 72 6d 61 6c 6c 79 20 69 | 6e 70 75 74 20 69 73 20 |rmally i|nput is |
|00001060| 65 64 69 74 65 64 20 69 | 6e 20 45 6d 61 63 73 20 |edited i|n Emacs |
|00001070| 61 6e 64 20 73 65 6e 74 | 20 61 20 6c 69 6e 65 20 |and sent| a line |
|00001080| 61 74 20 61 20 74 69 6d | 65 2e 22 20 22 73 4f 70 |at a tim|e." "sOp|
|00001090| 65 6e 20 74 65 6c 6e 65 | 74 20 63 6f 6e 6e 65 63 |en telne|t connec|
|000010a0| 74 69 6f 6e 20 74 6f 20 | 68 6f 73 74 3a 20 22 5d |tion to |host: "]|
|000010b0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 74 65 6c |).(defal|ias 'tel|
|000010c0| 6e 65 74 2d 6d 6f 64 65 | 20 23 5b 6e 69 6c 20 22 |net-mode| #[nil "|
|000010d0| c0 20 88 c1 12 c3 14 0d | 16 06 c7 0e 08 21 88 c9 |. ......|.....!..|
|000010e0| ca 21 87 22 20 5b 63 6f | 6d 69 6e 74 2d 6d 6f 64 |.!." [co|mint-mod|
|000010f0| 65 20 74 65 6c 6e 65 74 | 2d 6d 6f 64 65 20 6d 61 |e telnet|-mode ma|
|00001100| 6a 6f 72 2d 6d 6f 64 65 | 20 22 54 65 6c 6e 65 74 |jor-mode| "Telnet|
|00001110| 22 20 6d 6f 64 65 2d 6e | 61 6d 65 20 74 65 6c 6e |" mode-n|ame teln|
|00001120| 65 74 2d 70 72 6f 6d 70 | 74 2d 70 61 74 74 65 72 |et-promp|t-patter|
|00001130| 6e 20 63 6f 6d 69 6e 74 | 2d 70 72 6f 6d 70 74 2d |n comint|-prompt-|
|00001140| 72 65 67 65 78 70 20 75 | 73 65 2d 6c 6f 63 61 6c |regexp u|se-local|
|00001150| 2d 6d 61 70 20 74 65 6c | 6e 65 74 2d 6d 6f 64 65 |-map tel|net-mode|
|00001160| 2d 6d 61 70 20 72 75 6e | 2d 68 6f 6f 6b 73 20 74 |-map run|-hooks t|
|00001170| 65 6c 6e 65 74 2d 6d 6f | 64 65 2d 68 6f 6f 6b 5d |elnet-mo|de-hook]|
|00001180| 20 32 20 22 5c 0a 54 68 | 69 73 20 6d 6f 64 65 20 | 2 "\.Th|is mode |
|00001190| 69 73 20 66 6f 72 20 75 | 73 69 6e 67 20 74 65 6c |is for u|sing tel|
|000011a0| 6e 65 74 20 28 6f 72 20 | 72 73 68 29 20 66 72 6f |net (or |rsh) fro|
|000011b0| 6d 20 61 20 62 75 66 66 | 65 72 20 74 6f 20 61 6e |m a buff|er to an|
|000011c0| 6f 74 68 65 72 20 68 6f | 73 74 2e 0a 49 74 20 68 |other ho|st..It h|
|000011d0| 61 73 20 6d 6f 73 74 20 | 6f 66 20 74 68 65 20 73 |as most |of the s|
|000011e0| 61 6d 65 20 63 6f 6d 6d | 61 6e 64 73 20 61 73 20 |ame comm|ands as |
|000011f0| 63 6f 6d 69 6e 74 2d 6d | 6f 64 65 2e 0a 54 68 65 |comint-m|ode..The|
|00001200| 72 65 20 69 73 20 61 20 | 76 61 72 69 61 62 6c 65 |re is a |variable|
|00001210| 20 60 60 74 65 6c 6e 65 | 74 2d 69 6e 74 65 72 72 | ``telne|t-interr|
|00001220| 75 70 74 2d 73 74 72 69 | 6e 67 27 27 20 77 68 69 |upt-stri|ng'' whi|
|00001230| 63 68 20 69 73 20 74 68 | 65 20 63 68 61 72 61 63 |ch is th|e charac|
|00001240| 74 65 72 0a 73 65 6e 74 | 20 74 6f 20 74 72 79 20 |ter.sent| to try |
|00001250| 74 6f 20 73 74 6f 70 20 | 65 78 65 63 75 74 69 6f |to stop |executio|
|00001260| 6e 20 6f 66 20 61 20 6a | 6f 62 20 6f 6e 20 74 68 |n of a j|ob on th|
|00001270| 65 20 72 65 6d 6f 74 65 | 20 68 6f 73 74 2e 0a 44 |e remote| host..D|
|00001280| 61 74 61 20 69 73 20 73 | 65 6e 74 20 74 6f 20 74 |ata is s|ent to t|
|00001290| 68 65 20 72 65 6d 6f 74 | 65 20 68 6f 73 74 20 77 |he remot|e host w|
|000012a0| 68 65 6e 20 52 45 54 20 | 69 73 20 74 79 70 65 64 |hen RET |is typed|
|000012b0| 2e 0a 0a 5c 5c 7b 74 65 | 6c 6e 65 74 2d 6d 6f 64 |...\\{te|lnet-mod|
|000012c0| 65 2d 6d 61 70 7d 0a 22 | 20 6e 69 6c 5d 29 0a 28 |e-map}."| nil]).(|
|000012d0| 64 65 66 61 6c 69 61 73 | 20 27 72 73 68 20 23 5b |defalias| 'rsh #[|
|000012e0| 28 68 6f 73 74 29 20 22 | c0 c1 21 88 5c 6e c3 50 |(host) "|..!.\n.P|
|000012f0| 1c c5 c6 5c 66 0e 07 c8 | 5c 6e 24 21 88 c9 ca 5c |...\f...|\n$!...\|
|00001300| 66 21 cb 5c 22 88 cc 20 | 88 cd 89 16 0e 29 87 22 |f!.\".. |.....)."|
|00001310| 20 5b 72 65 71 75 69 72 | 65 20 73 68 65 6c 6c 20 | [requir|e shell |
|00001320| 68 6f 73 74 20 22 2d 72 | 73 68 22 20 6e 61 6d 65 |host "-r|sh" name|
|00001330| 20 73 77 69 74 63 68 2d | 74 6f 2d 62 75 66 66 65 | switch-|to-buffe|
|00001340| 72 20 6d 61 6b 65 2d 63 | 6f 6d 69 6e 74 20 74 65 |r make-c|omint te|
|00001350| 6c 6e 65 74 2d 72 73 68 | 2d 70 72 6f 67 72 61 6d |lnet-rsh|-program|
|00001360| 20 6e 69 6c 20 73 65 74 | 2d 70 72 6f 63 65 73 73 | nil set|-process|
|00001370| 2d 66 69 6c 74 65 72 20 | 67 65 74 2d 70 72 6f 63 |-filter |get-proc|
|00001380| 65 73 73 20 74 65 6c 6e | 65 74 2d 69 6e 69 74 69 |ess teln|et-initi|
|00001390| 61 6c 2d 66 69 6c 74 65 | 72 20 74 65 6c 6e 65 74 |al-filte|r telnet|
|000013a0| 2d 6d 6f 64 65 20 2d 31 | 36 20 74 65 6c 6e 65 74 |-mode -1|6 telnet|
|000013b0| 2d 63 6f 75 6e 74 5d 20 | 36 20 22 5c 0a 4f 70 65 |-count] |6 "\.Ope|
|000013c0| 6e 20 61 20 6e 65 74 77 | 6f 72 6b 20 6c 6f 67 69 |n a netw|ork logi|
|000013d0| 6e 20 63 6f 6e 6e 65 63 | 74 69 6f 6e 20 74 6f 20 |n connec|tion to |
|000013e0| 68 6f 73 74 20 6e 61 6d | 65 64 20 48 4f 53 54 20 |host nam|ed HOST |
|000013f0| 28 61 20 73 74 72 69 6e | 67 29 2e 0a 43 6f 6d 6d |(a strin|g)..Comm|
|00001400| 75 6e 69 63 61 74 69 6f | 6e 20 77 69 74 68 20 48 |unicatio|n with H|
|00001410| 4f 53 54 20 69 73 20 72 | 65 63 6f 72 64 65 64 20 |OST is r|ecorded |
|00001420| 69 6e 20 61 20 62 75 66 | 66 65 72 20 2a 48 4f 53 |in a buf|fer *HOS|
|00001430| 54 2d 72 73 68 2a 2e 0a | 4e 6f 72 6d 61 6c 6c 79 |T-rsh*..|Normally|
|00001440| 20 69 6e 70 75 74 20 69 | 73 20 65 64 69 74 65 64 | input i|s edited|
|00001450| 20 69 6e 20 45 6d 61 63 | 73 20 61 6e 64 20 73 65 | in Emac|s and se|
|00001460| 6e 74 20 61 20 6c 69 6e | 65 20 61 74 20 61 20 74 |nt a lin|e at a t|
|00001470| 69 6d 65 2e 22 20 22 73 | 4f 70 65 6e 20 72 73 68 |ime." "s|Open rsh|
|00001480| 20 63 6f 6e 6e 65 63 74 | 69 6f 6e 20 74 6f 20 68 | connect|ion to h|
|00001490| 6f 73 74 3a 20 22 5d 29 | 0a 28 70 72 6f 76 69 64 |ost: "])|.(provid|
|000014a0| 65 20 28 71 75 6f 74 65 | 20 74 65 6c 6e 65 74 29 |e (quote| telnet)|
|000014b0| 29 0a                   |                         |).      |        |
+--------+-------------------------+-------------------------+--------+--------+