/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / emacs-19.16 / lisp / rlogin.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 6a 69 6d 62 40 67 65 |piled by| jimb@ge|
|00000020| 65 63 68 2e 67 6e 75 2e | 61 69 2e 6d 69 74 2e 65 |ech.gnu.|ai.mit.e|
|00000030| 64 75 20 6f 6e 20 4d 6f | 6e 20 4a 75 6c 20 20 35 |du on Mo|n Jul  5|
|00000040| 20 32 33 3a 34 39 3a 31 | 36 20 31 39 39 33 0a 3b | 23:49:1|6 1993.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 67 64 |;; from |file /gd|
|00000060| 2f 67 6e 75 2f 65 6d 61 | 63 73 2f 31 39 2e 30 2f |/gnu/ema|cs/19.0/|
|00000070| 6c 69 73 70 2f 72 6c 6f | 67 69 6e 2e 65 6c 0a 3b |lisp/rlo|gin.el.;|
|00000080| 3b 3b 20 65 6d 61 63 73 | 20 76 65 72 73 69 6f 6e |;; emacs| version|
|00000090| 20 31 39 2e 31 35 2e 31 | 36 2e 0a 3b 3b 3b 20 62 | 19.15.1|6..;;; 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 | 54 68 69 73 20 66 69 6c |(error "|This fil|
|000001a0| 65 20 77 61 73 20 63 6f | 6d 70 69 6c 65 64 20 66 |e was co|mpiled f|
|000001b0| 6f 72 20 45 6d 61 63 73 | 20 31 39 22 29 29 0a 0a |or Emacs| 19"))..|
|000001c0| 28 72 65 71 75 69 72 65 | 20 28 71 75 6f 74 65 20 |(require| (quote |
|000001d0| 63 6f 6d 69 6e 74 29 29 | 0a 28 64 65 66 76 61 72 |comint))|.(defvar|
|000001e0| 20 72 6c 6f 67 69 6e 2d | 70 72 6f 67 72 61 6d 20 | rlogin-|program |
|000001f0| 22 72 6c 6f 67 69 6e 22 | 20 22 5c 0a 2a 4e 61 6d |"rlogin"| "\.*Nam|
|00000200| 65 20 6f 66 20 70 72 6f | 67 72 61 6d 20 74 6f 20 |e of pro|gram to |
|00000210| 69 6e 76 6f 6b 65 20 72 | 6c 6f 67 69 6e 22 29 0a |invoke r|login").|
|00000220| 28 64 65 66 76 61 72 20 | 72 6c 6f 67 69 6e 2d 65 |(defvar |rlogin-e|
|00000230| 78 70 6c 69 63 69 74 2d | 61 72 67 73 20 6e 69 6c |xplicit-|args nil|
|00000240| 20 22 5c 0a 2a 4c 69 73 | 74 20 6f 66 20 61 72 67 | "\.*Lis|t of arg|
|00000250| 75 6d 65 6e 74 73 20 74 | 6f 20 70 61 73 73 20 74 |uments t|o pass t|
|00000260| 6f 20 72 6c 6f 67 69 6e | 20 6f 6e 20 74 68 65 20 |o rlogin| on the |
|00000270| 63 6f 6d 6d 61 6e 64 20 | 6c 69 6e 65 2e 22 29 0a |command |line.").|
|00000280| 28 64 65 66 76 61 72 20 | 72 6c 6f 67 69 6e 2d 6d |(defvar |rlogin-m|
|00000290| 6f 64 65 2d 68 6f 6f 6b | 20 6e 69 6c 20 22 5c 0a |ode-hook| nil "\.|
|000002a0| 2a 48 6f 6f 6b 73 20 74 | 6f 20 72 75 6e 20 61 66 |*Hooks t|o run af|
|000002b0| 74 65 72 20 73 65 74 74 | 69 6e 67 20 63 75 72 72 |ter sett|ing curr|
|000002c0| 65 6e 74 20 62 75 66 66 | 65 72 20 74 6f 20 72 6c |ent buff|er to rl|
|000002d0| 6f 67 69 6e 2d 6d 6f 64 | 65 2e 22 29 0a 28 64 65 |ogin-mod|e.").(de|
|000002e0| 66 76 61 72 20 72 6c 6f | 67 69 6e 2d 70 72 6f 63 |fvar rlo|gin-proc|
|000002f0| 65 73 73 2d 63 6f 6e 6e | 65 63 74 69 6f 6e 2d 74 |ess-conn|ection-t|
|00000300| 79 70 65 20 6e 69 6c 20 | 22 5c 0a 2a 49 66 20 6e |ype nil |"\.*If n|
|00000310| 6f 6e 2d 60 6e 69 6c 27 | 2c 20 75 73 65 20 61 20 |on-`nil'|, use a |
|00000320| 70 74 79 20 66 6f 72 20 | 74 68 65 20 6c 6f 63 61 |pty for |the loca|
|00000330| 6c 20 72 6c 6f 67 69 6e | 20 70 72 6f 63 65 73 73 |l rlogin| process|
|00000340| 2e 20 20 0a 49 66 20 60 | 6e 69 6c 27 2c 20 75 73 |.  .If `|nil', us|
|00000350| 65 20 61 20 70 69 70 65 | 20 28 69 66 20 70 69 70 |e a pipe| (if pip|
|00000360| 65 73 20 61 72 65 20 73 | 75 70 70 6f 72 74 65 64 |es are s|upported|
|00000370| 20 6f 6e 20 74 68 65 20 | 6c 6f 63 61 6c 20 73 79 | on the |local sy|
|00000380| 73 74 65 6d 29 2e 20 20 | 0a 0a 47 65 6e 65 72 61 |stem).  |..Genera|
|00000390| 6c 6c 79 20 69 74 20 69 | 73 20 62 65 74 74 65 72 |lly it i|s better|
|000003a0| 20 6e 6f 74 20 74 6f 20 | 77 61 73 74 65 20 70 74 | not to |waste pt|
|000003b0| 79 73 20 6f 6e 20 73 79 | 73 74 65 6d 73 20 77 68 |ys on sy|stems wh|
|000003c0| 69 63 68 20 68 61 76 65 | 20 61 20 73 74 61 74 69 |ich have| a stati|
|000003d0| 63 0a 6e 75 6d 62 65 72 | 20 6f 66 20 74 68 65 6d |c.number| of them|
|000003e0| 2e 20 20 4f 6e 20 74 68 | 65 20 6f 74 68 65 72 20 |.  On th|e other |
|000003f0| 68 61 6e 64 2c 20 73 6f | 6d 65 20 69 6d 70 6c 65 |hand, so|me imple|
|00000400| 6d 65 6e 74 61 74 69 6f | 6e 73 20 6f 66 20 60 72 |mentatio|ns of `r|
|00000410| 6c 6f 67 69 6e 27 20 61 | 73 73 75 6d 65 0a 61 20 |login' a|ssume.a |
|00000420| 70 74 79 20 69 73 20 62 | 65 69 6e 67 20 75 73 65 |pty is b|eing use|
|00000430| 64 2c 20 61 6e 64 20 65 | 72 72 6f 72 73 20 77 69 |d, and e|rrors wi|
|00000440| 6c 6c 20 72 65 73 75 6c | 74 20 66 72 6f 6d 20 75 |ll resul|t from u|
|00000450| 73 69 6e 67 20 61 20 70 | 69 70 65 20 69 6e 73 74 |sing a p|ipe inst|
|00000460| 65 61 64 2e 22 29 0a 28 | 64 65 66 76 61 72 20 72 |ead.").(|defvar r|
|00000470| 6c 6f 67 69 6e 2d 70 61 | 73 73 77 6f 72 64 2d 70 |login-pa|ssword-p|
|00000480| 61 72 61 6e 6f 69 61 20 | 6e 69 6c 20 22 5c 0a 2a |aranoia |nil "\.*|
|00000490| 49 66 20 6e 6f 6e 2d 60 | 6e 69 6c 27 2c 20 71 75 |If non-`|nil', qu|
|000004a0| 65 72 79 20 75 73 65 72 | 20 66 6f 72 20 61 20 70 |ery user| for a p|
|000004b0| 61 73 73 77 6f 72 64 20 | 69 6e 20 74 68 65 20 6d |assword |in the m|
|000004c0| 69 6e 69 62 75 66 66 65 | 72 20 77 68 65 6e 20 61 |inibuffe|r when a|
|000004d0| 20 50 61 73 73 77 6f 72 | 64 3a 20 70 72 6f 6d 70 | Passwor|d: promp|
|000004e0| 74 20 61 70 70 65 61 72 | 73 2e 0a 49 74 27 73 20 |t appear|s..It's |
|000004f0| 61 6c 73 6f 20 70 6f 73 | 73 69 62 6c 65 20 74 6f |also pos|sible to|
|00000500| 20 73 65 6c 65 63 74 69 | 76 65 6c 79 20 65 6e 74 | selecti|vely ent|
|00000510| 65 72 20 70 61 73 73 77 | 6f 72 64 73 20 77 69 74 |er passw|ords wit|
|00000520| 68 6f 75 74 20 65 63 68 | 6f 69 6e 67 20 74 68 65 |hout ech|oing the|
|00000530| 6d 20 69 6e 0a 74 68 65 | 20 6d 69 6e 69 62 75 66 |m in.the| minibuf|
|00000540| 66 65 72 20 75 73 69 6e | 67 20 74 68 65 20 63 6f |fer usin|g the co|
|00000550| 6d 6d 61 6e 64 20 60 72 | 6c 6f 67 69 6e 2d 70 61 |mmand `r|login-pa|
|00000560| 73 73 77 6f 72 64 27 20 | 65 78 70 6c 69 63 69 74 |ssword' |explicit|
|00000570| 6c 79 2e 22 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |ly.").(b|yte-code|
|00000580| 20 22 c0 c1 21 84 08 00 | c2 11 09 84 28 00 c3 0c | "..!...|....(...|
|00000590| 21 11 c5 09 c6 c7 23 88 | c5 09 c8 c9 23 88 c5 09 |!.....#.|....#...|
|000005a0| ca cb 23 88 c5 09 cc cd | 23 88 c2 87 22 20 5b 62 |..#.....|#..." [b|
|000005b0| 6f 75 6e 64 70 20 72 6c | 6f 67 69 6e 2d 6d 6f 64 |oundp rl|ogin-mod|
|000005c0| 65 2d 6d 61 70 20 6e 69 | 6c 20 66 75 6c 6c 2d 63 |e-map ni|l full-c|
|000005d0| 6f 70 79 2d 73 70 61 72 | 73 65 2d 6b 65 79 6d 61 |opy-spar|se-keyma|
|000005e0| 70 20 63 6f 6d 69 6e 74 | 2d 6d 6f 64 65 2d 6d 61 |p comint|-mode-ma|
|000005f0| 70 20 64 65 66 69 6e 65 | 2d 6b 65 79 20 22 03 03 |p define|-key "..|
|00000600| 22 20 72 6c 6f 67 69 6e | 2d 73 65 6e 64 2d 43 74 |" rlogin|-send-Ct|
|00000610| 72 6c 2d 43 20 22 03 1a | 22 20 72 6c 6f 67 69 6e |rl-C "..|" rlogin|
|00000620| 2d 73 65 6e 64 2d 43 74 | 72 6c 2d 5a 20 22 03 1c |-send-Ct|rl-Z "..|
|00000630| 22 20 72 6c 6f 67 69 6e | 2d 73 65 6e 64 2d 43 74 |" rlogin|-send-Ct|
|00000640| 72 6c 2d 62 61 63 6b 73 | 6c 61 73 68 20 22 04 22 |rl-backs|lash "."|
|00000650| 20 72 6c 6f 67 69 6e 2d | 64 65 6c 63 68 61 72 2d | rlogin-|delchar-|
|00000660| 6f 72 2d 73 65 6e 64 2d | 43 74 72 6c 2d 44 5d 20 |or-send-|Ctrl-D] |
|00000670| 34 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 72 6c |4).(defa|lias 'rl|
|00000680| 6f 67 69 6e 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |ogin #[(|&optiona|
|00000690| 6c 20 70 72 65 66 69 78 | 20 68 6f 73 74 29 20 22 |l prefix| host) "|
|000006a0| 08 19 c2 c3 0c 5c 22 1d | 0e 06 83 19 00 0e 06 3c |.....\".|.......<|
|000006b0| 83 19 00 0c 0e 06 42 82 | 1b 00 0c 43 1e 07 c8 1e |......B.|...C....|
|000006c0| 09 0e 5c 6e 83 2b 00 c5 | cb 0d 21 21 15 cc 0d 21 |..\n.+..|..!!...!|
|000006d0| 88 cd 0d 21 86 57 00 ce | 20 88 cf 70 0d 0e 10 c8 |...!.W..| ..p....|
|000006e0| 0e 07 25 88 d1 0d 21 16 | 09 d2 0e 09 21 64 c8 93 |..%...!.|....!d..|
|000006f0| 88 d3 0e 09 d4 5c 22 88 | d5 20 2c 87 22 20 5b 72 |.....\".|. ,." [r|
|00000700| 6c 6f 67 69 6e 2d 70 72 | 6f 63 65 73 73 2d 63 6f |login-pr|ocess-co|
|00000710| 6e 6e 65 63 74 69 6f 6e | 2d 74 79 70 65 20 70 72 |nnection|-type pr|
|00000720| 6f 63 65 73 73 2d 63 6f | 6e 6e 65 63 74 69 6f 6e |ocess-co|nnection|
|00000730| 2d 74 79 70 65 20 66 6f | 72 6d 61 74 20 22 2a 72 |-type fo|rmat "*r|
|00000740| 6c 6f 67 69 6e 2d 25 73 | 2a 22 20 68 6f 73 74 20 |login-%s|*" host |
|00000750| 62 75 66 66 65 72 2d 6e | 61 6d 65 20 72 6c 6f 67 |buffer-n|ame rlog|
|00000760| 69 6e 2d 65 78 70 6c 69 | 63 69 74 2d 61 72 67 73 |in-expli|cit-args|
|00000770| 20 61 72 67 73 20 6e 69 | 6c 20 70 72 6f 63 20 70 | args ni|l proc p|
|00000780| 72 65 66 69 78 20 67 65 | 6e 65 72 61 74 65 2d 6e |refix ge|nerate-n|
|00000790| 65 77 2d 62 75 66 66 65 | 72 20 73 77 69 74 63 68 |ew-buffe|r switch|
|000007a0| 2d 74 6f 2d 62 75 66 66 | 65 72 20 63 6f 6d 69 6e |-to-buff|er comin|
|000007b0| 74 2d 63 68 65 63 6b 2d | 70 72 6f 63 20 63 6f 6d |t-check-|proc com|
|000007c0| 69 6e 74 2d 6d 6f 64 65 | 20 63 6f 6d 69 6e 74 2d |int-mode| comint-|
|000007d0| 65 78 65 63 20 72 6c 6f | 67 69 6e 2d 70 72 6f 67 |exec rlo|gin-prog|
|000007e0| 72 61 6d 20 67 65 74 2d | 70 72 6f 63 65 73 73 20 |ram get-|process |
|000007f0| 70 72 6f 63 65 73 73 2d | 6d 61 72 6b 20 73 65 74 |process-|mark set|
|00000800| 2d 70 72 6f 63 65 73 73 | 2d 66 69 6c 74 65 72 20 |-process|-filter |
|00000810| 72 6c 6f 67 69 6e 2d 66 | 69 6c 74 65 72 20 72 6c |rlogin-f|ilter rl|
|00000820| 6f 67 69 6e 2d 6d 6f 64 | 65 5d 20 36 20 22 5c 0a |ogin-mod|e] 6 "\.|
|00000830| 4f 70 65 6e 20 61 20 6e | 65 74 77 6f 72 6b 20 6c |Open a n|etwork l|
|00000840| 6f 67 69 6e 20 63 6f 6e | 6e 65 63 74 69 6f 6e 20 |ogin con|nection |
|00000850| 74 6f 20 48 4f 53 54 20 | 76 69 61 20 74 68 65 20 |to HOST |via the |
|00000860| 60 72 6c 6f 67 69 6e 27 | 20 70 72 6f 67 72 61 6d |`rlogin'| program|
|00000870| 2e 0a 49 6e 70 75 74 20 | 69 73 20 73 65 6e 74 20 |..Input |is sent |
|00000880| 6c 69 6e 65 2d 61 74 2d | 61 2d 74 69 6d 65 20 74 |line-at-|a-time t|
|00000890| 6f 20 74 68 65 20 72 65 | 6d 6f 74 65 20 63 6f 6e |o the re|mote con|
|000008a0| 6e 65 63 74 69 6f 6e 2e | 0a 0a 43 6f 6d 6d 75 6e |nection.|..Commun|
|000008b0| 69 63 61 74 69 6f 6e 20 | 77 69 74 68 20 48 4f 53 |ication |with HOS|
|000008c0| 54 20 69 73 20 72 65 63 | 6f 72 64 65 64 20 69 6e |T is rec|orded in|
|000008d0| 20 61 20 62 75 66 66 65 | 72 20 2a 72 6c 6f 67 69 | a buffe|r *rlogi|
|000008e0| 6e 2d 48 4f 53 54 2a 2e | 0a 49 66 20 61 20 70 72 |n-HOST*.|.If a pr|
|000008f0| 65 66 69 78 20 61 72 67 | 75 6d 65 6e 74 20 69 73 |efix arg|ument is|
|00000900| 20 67 69 76 65 6e 20 61 | 6e 64 20 74 68 65 20 62 | given a|nd the b|
|00000910| 75 66 66 65 72 20 2a 72 | 6c 6f 67 69 6e 2d 48 4f |uffer *r|login-HO|
|00000920| 53 54 2a 20 61 6c 72 65 | 61 64 79 20 65 78 69 73 |ST* alre|ady exis|
|00000930| 74 73 2c 0a 61 20 6e 65 | 77 20 62 75 66 66 65 72 |ts,.a ne|w buffer|
|00000940| 20 77 69 74 68 20 61 20 | 64 69 66 66 65 72 65 6e | with a |differen|
|00000950| 74 20 63 6f 6e 6e 65 63 | 74 69 6f 6e 20 77 69 6c |t connec|tion wil|
|00000960| 6c 20 62 65 20 6d 61 64 | 65 2e 20 0a 0a 54 68 65 |l be mad|e. ..The|
|00000970| 20 76 61 72 69 61 62 6c | 65 20 60 72 6c 6f 67 69 | variabl|e `rlogi|
|00000980| 6e 2d 70 72 6f 67 72 61 | 6d 27 20 63 6f 6e 74 61 |n-progra|m' conta|
|00000990| 69 6e 73 20 74 68 65 20 | 6e 61 6d 65 20 6f 66 20 |ins the |name of |
|000009a0| 74 68 65 20 61 63 74 75 | 61 6c 20 70 72 6f 67 72 |the actu|al progr|
|000009b0| 61 6d 20 74 6f 0a 72 75 | 6e 2e 20 20 49 74 20 63 |am to.ru|n.  It c|
|000009c0| 61 6e 20 62 65 20 61 20 | 72 65 6c 61 74 69 76 65 |an be a |relative|
|000009d0| 20 6f 72 20 61 62 73 6f | 6c 75 74 65 20 70 61 74 | or abso|lute pat|
|000009e0| 68 2e 20 0a 0a 54 68 65 | 20 76 61 72 69 61 62 6c |h. ..The| variabl|
|000009f0| 65 20 60 72 6c 6f 67 69 | 6e 2d 65 78 70 6c 69 63 |e `rlogi|n-explic|
|00000a00| 69 74 2d 61 72 67 73 27 | 20 69 73 20 61 20 6c 69 |it-args'| is a li|
|00000a10| 73 74 20 6f 66 20 61 72 | 67 75 6d 65 6e 74 73 20 |st of ar|guments |
|00000a20| 74 6f 20 67 69 76 65 20 | 74 6f 0a 74 68 65 20 72 |to give |to.the r|
|00000a30| 6c 6f 67 69 6e 20 77 68 | 65 6e 20 73 74 61 72 74 |login wh|en start|
|00000a40| 69 6e 67 2e 22 20 28 6c | 69 73 74 20 63 75 72 72 |ing." (l|ist curr|
|00000a50| 65 6e 74 2d 70 72 65 66 | 69 78 2d 61 72 67 20 28 |ent-pref|ix-arg (|
|00000a60| 72 65 61 64 2d 66 72 6f | 6d 2d 6d 69 6e 69 62 75 |read-fro|m-minibu|
|00000a70| 66 66 65 72 20 22 4f 70 | 65 6e 20 72 6c 6f 67 69 |ffer "Op|en rlogi|
|00000a80| 6e 20 63 6f 6e 6e 65 63 | 74 69 6f 6e 20 74 6f 20 |n connec|tion to |
|00000a90| 68 6f 73 74 3a 20 22 29 | 29 5d 29 0a 28 64 65 66 |host: ")|)]).(def|
|00000aa0| 61 6c 69 61 73 20 27 72 | 6c 6f 67 69 6e 2d 77 69 |alias 'r|login-wi|
|00000ab0| 74 68 2d 61 72 67 73 20 | 23 5b 28 68 6f 73 74 20 |th-args |#[(host |
|00000ac0| 61 72 67 73 29 20 22 c0 | 20 c1 1a 1b c4 8e c5 c6 |args) ".| .......|
|00000ad0| 0e 07 5c 22 83 24 00 0e | 07 c8 94 c8 95 4f 5c 6e |..\".$..|.....O\n|
|00000ae0| 42 12 0e 07 c9 89 94 4f | 16 07 82 07 00 29 ca c8 |B......O|.....)..|
|00000af0| 0e 0b 5c 22 2a 87 22 20 | 5b 6d 61 74 63 68 2d 64 |..\"*." |[match-d|
|00000b00| 61 74 61 20 6e 69 6c 20 | 72 6c 6f 67 69 6e 2d 65 |ata nil |rlogin-e|
|00000b10| 78 70 6c 69 63 69 74 2d | 61 72 67 73 20 6f 6c 64 |xplicit-|args old|
|00000b20| 2d 6d 61 74 63 68 2d 64 | 61 74 61 20 28 28 73 74 |-match-d|ata ((st|
|00000b30| 6f 72 65 2d 6d 61 74 63 | 68 2d 64 61 74 61 20 6f |ore-matc|h-data o|
|00000b40| 6c 64 2d 6d 61 74 63 68 | 2d 64 61 74 61 29 29 20 |ld-match|-data)) |
|00000b50| 73 74 72 69 6e 67 2d 6d | 61 74 63 68 20 22 5b 20 |string-m|atch "[ |
|00000b60| 09 5d 2a 5c 5c 28 5b 5e | 20 09 5d 2b 5c 5c 29 24 |.]*\\([^| .]+\\)$|
|00000b70| 22 20 61 72 67 73 20 31 | 20 30 20 72 6c 6f 67 69 |" args 1| 0 rlogi|
|00000b80| 6e 20 68 6f 73 74 5d 20 | 33 20 22 5c 0a 4f 70 65 |n host] |3 "\.Ope|
|00000b90| 6e 20 61 20 6e 65 77 20 | 72 6c 6f 67 69 6e 20 63 |n a new |rlogin c|
|00000ba0| 6f 6e 6e 65 63 74 69 6f | 6e 20 74 6f 20 48 4f 53 |onnectio|n to HOS|
|00000bb0| 54 2c 20 65 76 65 6e 20 | 69 66 20 6f 6e 65 20 61 |T, even |if one a|
|00000bc0| 6c 72 65 61 64 79 20 65 | 78 69 73 74 73 2e 20 0a |lready e|xists. .|
|00000bd0| 53 74 72 69 6e 67 20 41 | 52 47 53 20 69 73 20 67 |String A|RGS is g|
|00000be0| 69 76 65 6e 20 61 73 20 | 61 72 67 75 6d 65 6e 74 |iven as |argument|
|00000bf0| 73 20 74 6f 20 74 68 65 | 20 60 72 6c 6f 67 69 6e |s to the| `rlogin|
|00000c00| 27 20 70 72 6f 67 72 61 | 6d 2c 20 6f 76 65 72 72 |' progra|m, overr|
|00000c10| 69 64 69 6e 67 20 74 68 | 65 0a 76 61 6c 75 65 20 |iding th|e.value |
|00000c20| 6f 66 20 60 72 6c 6f 67 | 69 6e 2d 65 78 70 6c 69 |of `rlog|in-expli|
|00000c30| 63 69 74 2d 61 72 67 73 | 27 2e 22 20 28 6c 69 73 |cit-args|'." (lis|
|00000c40| 74 20 28 72 65 61 64 2d | 66 72 6f 6d 2d 6d 69 6e |t (read-|from-min|
|00000c50| 69 62 75 66 66 65 72 20 | 22 4f 70 65 6e 20 72 6c |ibuffer |"Open rl|
|00000c60| 6f 67 69 6e 20 63 6f 6e | 6e 65 63 74 69 6f 6e 20 |ogin con|nection |
|00000c70| 74 6f 20 68 6f 73 74 3a | 20 22 29 20 28 72 65 61 |to host:| ") (rea|
|00000c80| 64 2d 66 72 6f 6d 2d 6d | 69 6e 69 62 75 66 66 65 |d-from-m|inibuffe|
|00000c90| 72 20 22 77 69 74 68 20 | 61 72 67 75 6d 65 6e 74 |r "with |argument|
|00000ca0| 73 3a 20 22 29 29 5d 29 | 0a 28 64 65 66 61 6c 69 |s: "))])|.(defali|
|00000cb0| 61 73 20 27 72 6c 6f 67 | 69 6e 2d 70 61 73 73 77 |as 'rlog|in-passw|
|00000cc0| 6f 72 64 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |ord #[(&|optional|
|00000cd0| 20 70 72 6f 63 29 20 22 | 08 84 08 00 c1 70 21 10 | proc) "|.....p!.|
|00000ce0| c2 c3 08 21 21 1a c4 c5 | c6 5c 6e 5c 22 c7 5c 22 |...!!...|.\n\".\"|
|00000cf0| 89 1e 08 85 2c 00 8a 5c | 6e 71 88 c9 ca 21 88 cb |....,..\|nq...!..|
|00000d00| 08 c5 cc 0e 08 5c 22 5c | 22 29 2a 87 22 20 5b 70 |.....\"\|")*." [p|
|00000d10| 72 6f 63 20 67 65 74 2d | 62 75 66 66 65 72 2d 70 |roc get-|buffer-p|
|00000d20| 72 6f 63 65 73 73 20 62 | 75 66 66 65 72 2d 6e 61 |rocess b|uffer-na|
|00000d30| 6d 65 20 70 72 6f 63 65 | 73 73 2d 62 75 66 66 65 |me proce|ss-buffe|
|00000d40| 72 20 63 6f 6d 69 6e 74 | 2d 72 65 61 64 2d 6e 6f |r comint|-read-no|
|00000d50| 65 63 68 6f 20 66 6f 72 | 6d 61 74 20 22 50 61 73 |echo for|mat "Pas|
|00000d60| 73 77 6f 72 64 20 66 6f | 72 20 62 75 66 66 65 72 |sword fo|r buffer|
|00000d70| 20 5c 22 25 73 5c 22 3a | 20 22 20 73 74 61 72 73 | \"%s\":| " stars|
|00000d80| 20 70 61 73 73 20 69 6e | 73 65 72 74 2d 62 65 66 | pass in|sert-bef|
|00000d90| 6f 72 65 2d 6d 61 72 6b | 65 72 73 20 22 5c 6e 22 |ore-mark|ers "\n"|
|00000da0| 20 63 6f 6d 69 6e 74 2d | 73 65 6e 64 2d 73 74 72 | comint-|send-str|
|00000db0| 69 6e 67 20 22 25 73 5c | 6e 22 5d 20 36 20 22 5c |ing "%s\|n"] 6 "\|
|00000dc0| 0a 52 65 61 64 20 61 20 | 70 61 73 73 77 6f 72 64 |.Read a |password|
|00000dd0| 20 61 6e 64 20 73 65 6e | 64 20 69 74 20 74 6f 20 | and sen|d it to |
|00000de0| 61 6e 20 72 6c 6f 67 69 | 6e 20 73 65 73 73 69 6f |an rlogi|n sessio|
|00000df0| 6e 2e 0a 46 6f 72 20 65 | 61 63 68 20 63 68 61 72 |n..For e|ach char|
|00000e00| 61 63 74 65 72 20 74 79 | 70 65 64 2c 20 61 20 60 |acter ty|ped, a `|
|00000e10| 2a 27 20 69 73 20 65 63 | 68 6f 65 64 20 69 6e 20 |*' is ec|hoed in |
|00000e20| 74 68 65 20 6d 69 6e 69 | 62 75 66 66 65 72 2e 0a |the mini|buffer..|
|00000e30| 45 6e 64 20 77 69 74 68 | 20 52 45 54 2c 20 4c 46 |End with| RET, LF|
|00000e40| 44 2c 20 6f 72 20 45 53 | 43 2e 20 20 44 45 4c 20 |D, or ES|C.  DEL |
|00000e50| 6f 72 20 43 2d 68 20 72 | 75 62 73 20 6f 75 74 2e |or C-h r|ubs out.|
|00000e60| 20 20 43 2d 75 20 6b 69 | 6c 6c 73 20 6c 69 6e 65 |  C-u ki|lls line|
|00000e70| 2e 0a 43 2d 67 20 61 62 | 6f 72 74 73 20 61 74 74 |..C-g ab|orts att|
|00000e80| 65 6d 70 74 20 74 6f 20 | 72 65 61 64 20 61 6e 64 |empt to |read and|
|00000e90| 20 73 65 6e 64 20 70 61 | 73 73 77 6f 72 64 2e 20 | send pa|ssword. |
|00000ea0| 0a 0a 4f 70 74 69 6f 6e | 61 6c 20 61 72 67 75 6d |..Option|al argum|
|00000eb0| 65 6e 74 20 50 52 4f 43 | 20 69 73 20 74 68 65 20 |ent PROC| is the |
|00000ec0| 70 72 6f 63 65 73 73 20 | 74 6f 20 77 68 69 63 68 |process |to which|
|00000ed0| 20 74 68 65 20 70 61 73 | 73 77 6f 72 64 20 73 68 | the pas|sword sh|
|00000ee0| 6f 75 6c 64 20 62 65 20 | 73 65 6e 74 2e 0a 49 66 |ould be |sent..If|
|00000ef0| 20 6e 6f 74 20 70 72 6f | 76 69 64 65 64 2c 20 73 | not pro|vided, s|
|00000f00| 65 6e 64 20 74 6f 20 74 | 68 65 20 70 72 6f 63 65 |end to t|he proce|
|00000f10| 73 73 20 69 6e 20 74 68 | 65 20 63 75 72 72 65 6e |ss in th|e curren|
|00000f20| 74 20 62 75 66 66 65 72 | 2e 20 20 54 68 69 73 20 |t buffer|.  This |
|00000f30| 61 72 67 75 6d 65 6e 74 | 0a 69 73 20 69 6e 74 65 |argument|.is inte|
|00000f40| 6e 64 65 64 20 70 72 69 | 6d 61 72 69 6c 79 20 66 |nded pri|marily f|
|00000f50| 6f 72 20 75 73 65 20 62 | 79 20 60 72 6c 6f 67 69 |or use b|y `rlogi|
|00000f60| 6e 2d 66 69 6c 74 65 72 | 27 2e 22 20 6e 69 6c 5d |n-filter|'." nil]|
|00000f70| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 72 6c 6f |).(defal|ias 'rlo|
|00000f80| 67 69 6e 2d 6d 6f 64 65 | 20 23 5b 6e 69 6c 20 22 |gin-mode| #[nil "|
|00000f90| c0 20 88 c1 20 88 5c 6e | 13 c4 15 c6 16 07 c8 0e |. .. .\n|........|
|00000fa0| 09 21 88 ca cb 21 87 22 | 20 5b 6b 69 6c 6c 2d 61 |.!...!."| [kill-a|
|00000fb0| 6c 6c 2d 6c 6f 63 61 6c | 2d 76 61 72 69 61 62 6c |ll-local|-variabl|
|00000fc0| 65 73 20 63 6f 6d 69 6e | 74 2d 6d 6f 64 65 20 73 |es comin|t-mode s|
|00000fd0| 68 65 6c 6c 2d 70 72 6f | 6d 70 74 2d 70 61 74 74 |hell-pro|mpt-patt|
|00000fe0| 65 72 6e 20 63 6f 6d 69 | 6e 74 2d 70 72 6f 6d 70 |ern comi|nt-promp|
|00000ff0| 74 2d 72 65 67 65 78 70 | 20 72 6c 6f 67 69 6e 2d |t-regexp| rlogin-|
|00001000| 6d 6f 64 65 20 6d 61 6a | 6f 72 2d 6d 6f 64 65 20 |mode maj|or-mode |
|00001010| 22 72 6c 6f 67 69 6e 22 | 20 6d 6f 64 65 2d 6e 61 |"rlogin"| mode-na|
|00001020| 6d 65 20 75 73 65 2d 6c | 6f 63 61 6c 2d 6d 61 70 |me use-l|ocal-map|
|00001030| 20 72 6c 6f 67 69 6e 2d | 6d 6f 64 65 2d 6d 61 70 | rlogin-|mode-map|
|00001040| 20 72 75 6e 2d 68 6f 6f | 6b 73 20 72 6c 6f 67 69 | run-hoo|ks rlogi|
|00001050| 6e 2d 6d 6f 64 65 2d 68 | 6f 6f 6b 5d 20 32 20 22 |n-mode-h|ook] 2 "|
|00001060| 5c 0a 53 65 74 20 6d 61 | 6a 6f 72 2d 6d 6f 64 65 |\.Set ma|jor-mode|
|00001070| 20 66 6f 72 20 72 6c 6f | 67 69 6e 20 73 65 73 73 | for rlo|gin sess|
|00001080| 69 6f 6e 73 2e 20 0a 49 | 66 20 60 72 6c 6f 67 69 |ions. .I|f `rlogi|
|00001090| 6e 2d 6d 6f 64 65 2d 68 | 6f 6f 6b 27 20 69 73 20 |n-mode-h|ook' is |
|000010a0| 73 65 74 2c 20 72 75 6e | 20 69 74 2e 22 20 6e 69 |set, run| it." ni|
|000010b0| 6c 5d 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |l]).(byt|e-code "|
|000010c0| c0 c1 c2 5c 22 88 c0 c3 | c4 5c 22 88 c0 c5 c6 5c |...\"...|.\"....\|
|000010d0| 22 88 c0 c7 c8 5c 22 87 | 22 20 5b 64 65 66 61 6c |"....\".|" [defal|
|000010e0| 69 61 73 20 72 6c 6f 67 | 69 6e 2d 66 69 6c 74 65 |ias rlog|in-filte|
|000010f0| 72 20 23 5b 28 70 72 6f | 63 20 73 74 72 69 6e 67 |r #[(pro|c string|
|00001100| 29 20 22 c0 89 89 19 1a | 1b 8a c4 0d 21 71 88 c6 |) ".....|....!q..|
|00001110| 0d 21 13 60 12 0e 07 c8 | 55 3f 85 24 00 0b c9 20 |.!.`....|U?.$... |
|00001120| 55 85 24 00 ca 70 21 11 | 0b 62 88 cb 0e 0c 21 88 |U.$..p!.|.b....!.|
|00001130| 5c 6e 62 88 cd ce 0b cf | 23 83 3f 00 d0 d1 21 88 |\nb.....|#.?...!.|
|00001140| 82 30 00 29 09 83 52 00 | c9 09 21 5c 6e 59 83 52 |.0.)..R.|..!\nY.R|
|00001150| 00 d2 09 5c 6e d3 23 88 | 2b 0e 14 85 62 00 0e 0c |...\n.#.|+...b...|
|00001160| d5 98 85 62 00 d6 0d 21 | 87 22 20 5b 6e 69 6c 20 |...b...!|." [nil |
|00001170| 77 69 6e 64 6f 77 20 72 | 65 67 69 6f 6e 2d 62 65 |window r|egion-be|
|00001180| 67 69 6e 20 70 72 6f 63 | 2d 6d 61 72 6b 20 70 72 |gin proc|-mark pr|
|00001190| 6f 63 65 73 73 2d 62 75 | 66 66 65 72 20 70 72 6f |ocess-bu|ffer pro|
|000011a0| 63 20 70 72 6f 63 65 73 | 73 2d 6d 61 72 6b 20 73 |c proces|s-mark s|
|000011b0| 63 72 6f 6c 6c 2d 73 74 | 65 70 20 30 20 77 69 6e |croll-st|ep 0 win|
|000011c0| 64 6f 77 2d 73 74 61 72 | 74 20 67 65 74 2d 62 75 |dow-star|t get-bu|
|000011d0| 66 66 65 72 2d 77 69 6e | 64 6f 77 20 69 6e 73 65 |ffer-win|dow inse|
|000011e0| 72 74 2d 62 65 66 6f 72 | 65 2d 6d 61 72 6b 65 72 |rt-befor|e-marker|
|000011f0| 73 20 73 74 72 69 6e 67 | 20 73 65 61 72 63 68 2d |s string| search-|
|00001200| 66 6f 72 77 61 72 64 20 | 22 0d 22 20 67 6f 74 6f |forward |"." goto|
|00001210| 2d 65 6e 64 20 64 65 6c | 65 74 65 2d 63 68 61 72 |-end del|ete-char|
|00001220| 20 2d 31 20 73 65 74 2d | 77 69 6e 64 6f 77 2d 73 | -1 set-|window-s|
|00001230| 74 61 72 74 20 6e 6f 66 | 6f 72 63 65 20 72 6c 6f |tart nof|orce rlo|
|00001240| 67 69 6e 2d 70 61 73 73 | 77 6f 72 64 2d 70 61 72 |gin-pass|word-par|
|00001250| 61 6e 6f 69 61 20 22 50 | 61 73 73 77 6f 72 64 3a |anoia "P|assword:|
|00001260| 22 20 72 6c 6f 67 69 6e | 2d 70 61 73 73 77 6f 72 |" rlogin|-passwor|
|00001270| 64 5d 20 34 5d 20 72 6c | 6f 67 69 6e 2d 73 65 6e |d] 4] rl|ogin-sen|
|00001280| 64 2d 43 74 72 6c 2d 43 | 20 23 5b 6e 69 6c 20 22 |d-Ctrl-C| #[nil "|
|00001290| c0 c1 c2 5c 22 87 22 20 | 5b 73 65 6e 64 2d 73 74 |...\"." |[send-st|
|000012a0| 72 69 6e 67 20 6e 69 6c | 20 22 03 22 5d 20 33 20 |ring nil| "."] 3 |
|000012b0| 6e 69 6c 20 6e 69 6c 5d | 20 72 6c 6f 67 69 6e 2d |nil nil]| rlogin-|
|000012c0| 73 65 6e 64 2d 43 74 72 | 6c 2d 5a 20 23 5b 6e 69 |send-Ctr|l-Z #[ni|
|000012d0| 6c 20 22 c0 c1 c2 5c 22 | 87 22 20 5b 73 65 6e 64 |l "...\"|." [send|
|000012e0| 2d 73 74 72 69 6e 67 20 | 6e 69 6c 20 22 1a 22 5d |-string |nil "."]|
|000012f0| 20 33 20 6e 69 6c 20 6e | 69 6c 5d 20 72 6c 6f 67 | 3 nil n|il] rlog|
|00001300| 69 6e 2d 73 65 6e 64 2d | 43 74 72 6c 2d 62 61 63 |in-send-|Ctrl-bac|
|00001310| 6b 73 6c 61 73 68 20 23 | 5b 6e 69 6c 20 22 c0 c1 |kslash #|[nil "..|
|00001320| c2 5c 22 87 22 20 5b 73 | 65 6e 64 2d 73 74 72 69 |.\"." [s|end-stri|
|00001330| 6e 67 20 6e 69 6c 20 22 | 1c 22 5d 20 33 20 6e 69 |ng nil "|."] 3 ni|
|00001340| 6c 20 6e 69 6c 5d 5d 20 | 33 29 0a 28 64 65 66 61 |l nil]] |3).(defa|
|00001350| 6c 69 61 73 20 27 72 6c | 6f 67 69 6e 2d 64 65 6c |lias 'rl|ogin-del|
|00001360| 63 68 61 72 2d 6f 72 2d | 73 65 6e 64 2d 43 74 72 |char-or-|send-Ctr|
|00001370| 6c 2d 44 20 23 5b 28 61 | 72 67 29 20 22 6d 83 09 |l-D #[(a|rg) "m..|
|00001380| 00 c0 c1 c2 5c 22 87 c3 | 0c 21 87 22 20 5b 73 65 |....\"..|.!." [se|
|00001390| 6e 64 2d 73 74 72 69 6e | 67 20 6e 69 6c 20 22 04 |nd-strin|g nil ".|
|000013a0| 22 20 64 65 6c 65 74 65 | 2d 63 68 61 72 20 61 72 |" delete|-char ar|
|000013b0| 67 5d 20 33 20 22 5c 0a | 44 65 6c 65 74 65 20 41 |g] 3 "\.|Delete A|
|000013c0| 52 47 20 63 68 61 72 61 | 63 74 65 72 73 20 66 6f |RG chara|cters fo|
|000013d0| 72 77 61 72 64 2c 20 6f | 72 20 73 65 6e 64 20 61 |rward, o|r send a|
|000013e0| 20 43 2d 64 20 74 6f 20 | 70 72 6f 63 65 73 73 20 | C-d to |process |
|000013f0| 69 66 20 61 74 20 65 6e | 64 20 6f 66 0a 62 75 66 |if at en|d of.buf|
|00001400| 66 65 72 2e 22 20 22 70 | 22 5d 29 0a             |fer." "p|"]).    |
+--------+-------------------------+-------------------------+--------+--------+