home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / comint / telnet.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  5.4 KB  |  54 lines
  1. ;;; compiled by jwz@thalidomide on Mon Dec 28 15:55:15 1992
  2. ;;; from file /cadillac-th/jwz/emacs19/lisp/comint/telnet.el
  3. ;;; emacs version 19.4.1 Lucid.
  4. ;;; bytecomp version 2.08; 13-dec-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (byte-code "└┴!ê┬├!¼é─ ¼ª┼ ╞ ├\"ê╟ \"ê╔ ╩╦#ê╔ ╠═#ê╔ ╬╧#ê╔ ╨╤#ê┬╥!¼â╩┬╙!¼â─┬╘!¼â╒─ç" [require comint boundp telnet-mode-map nil make-sparse-keymap set-keymap-name set-keymap-parent comint-mode-map define-key "" telnet-send-input "" telnet-send-process-next-char "" telnet-interrupt-subjob "" telnet-c-z telnet-new-line telnet-replace-c-g telnet-prompt-pattern "^[^#$%>]*[#$%>] *"] 4)
  14. (defvar telnet-remote-echoes t "\
  15. True if the telnet process will echo input.")
  16. (defvar telnet-interrupt-string "" "\
  17. String sent by C-c.")
  18. (defvar telnet-count 0 "\
  19. Number of output strings read from the telnet process
  20. while looking for the initial password.")
  21. (defvar telnet-initial-count -50 "\
  22. Initial value of telnet-count.  Should be set to the negative of the
  23. number of terminal writes telnet will make setting up the host connection.")
  24. (defvar telnet-maximum-count 4 "\
  25. Maximum value telnet-count can have.
  26. After this many passes, we stop looking for initial setup data.
  27. Should be set to the number of terminal writes telnet will make
  28. rejecting one login and prompting for the again for a username and password.")
  29. (byte-code "└┴Mê┬├Mê─┼Mç" [telnet-interrupt-subjob #[nil "└┴\n\"ç" [send-string nil telnet-interrupt-string] 3 nil nil] telnet-c-z #[nil "└┴┬\"ç" [send-string nil ""] 3 nil nil] telnet-send-process-next-char #[nil "└┴┬├┼ ┴)!\"ç" [send-string nil char-to-string t inhibit-quit read-char quit-flag] 5 nil nil]] 2)
  30. (fset 'telnet-check-software-type-initialize #[(string) "└┬├ \"½ê╟¬ƒ┬╔ \"½à╩¬ö┬╦ \"½à╠¬ë┬═ \"½â╬)╨╤!Lç" [t case-fold-search string-match "unix" string shell-prompt-pattern telnet-prompt-pattern "\n" telnet-new-line "tops-20" "[@>]*" "its" "^[^*>]*[*>] *" "explorer" 10 telnet-replace-c-g make-local-variable comint-prompt-regexp] 3 "\
  31. Tries to put correct initializations in.  Needs work."])
  32. (byte-code "└┴Mê┬├Mê─┼Mê╞╟Mê╚╔Mç" [telnet-initial-filter #[(proc string) "└┴\n\"½è├─!!ê╞╟!ç└╚\n\"½Ö╔\n\"ê╩ ╠ ╩╧P\"*ç╤\n!ê╔\n\"êV½à╙╔\"çTëç" [string-match "No such host" string kill-buffer process-buffer proc error "No such host." "passw" telnet-filter 0 echo-keystrokes telnet-read-password password telnet-count send-string telnet-new-line telnet-check-software-type-initialize telnet-maximum-count set-process-filter] 4] telnet-filter #[(proc string) "è└    !qê┬ ─Ä┼╞    !!ë`Z    ¡ä┼    !\n╦p!ë ¡ä═ !bê╧!ê╞    !`╤ôê½ê╥ ╙#ê\n½ç    \n╤ôê╘╒╙#½å╓╫!ê¬r╞    !bê½è┘`┌╙%ê╞    !\\bê█▄!¡ä▄!.ç" [process-buffer proc match-data _match_data_ ((store-match-data _match_data_)) marker-position process-mark last-insertion delta comint-last-input-end ie get-buffer-window w window-start ws insert-before-markers string nil set-window-start t search-backward "" delete-char 1 telnet-replace-c-g subst-char-in-region 7 fboundp shell-hack-prompt-font] 7] telnet-read-password #[nil "└┴─┼!ê╞ ë╟U¼ì\n╚U¼ê ╔\n!P¬k─└!ê *ç" ["" nil tem answ message "Reading password..." read-char 13 10 char-to-string] 3] telnet-send-input #[nil "└p!┴ë½ÿ`╞ !Y½æè½â┴ê╚╞ !!`)╔  ½à \nT|ê+ç" [get-buffer-process nil p2 p1 proc telnet-remote-echoes process-mark comint-eol-on-send marker-position comint-send-input] 3 nil nil] telnet-input-sender #[(proc string) "└    \n\"ê└     \"ç" [comint-send-string proc string telnet-new-line] 3]] 2)
  33. (fset 'telnet #[(hostname) "┴P├─\n┼\"!ê╞╟\n!╚\"ê╔ ê╩\n╦╠Q\"ê═ êë)ç" [hostname "-telnet" name switch-to-buffer make-comint "telnet" set-process-filter get-process telnet-initial-filter erase-buffer send-string "open " "\n" telnet-mode telnet-initial-count telnet-count] 5 "\
  34. Open a network login connection to host named HOST (a string).
  35. Communication with HOST is recorded in a buffer *HOST-telnet*.
  36. Normally input is edited in Emacs and sent a line at a time.
  37. See also `\\[rsh]'." "sOpen telnet connection to host: "])
  38. (fset 'rsh #[(hostname) "┴P├─\n┼╞$!ê╟╚\n!╔\"ê╩ ê╦╠!êë)ç" [hostname "-rsh" name switch-to-buffer make-comint "rsh" nil set-process-filter get-process telnet-initial-filter telnet-mode telnet-check-software-type-initialize "unix" telnet-initial-count telnet-count] 6 "\
  39. Open a network login connection to host named HOST (a string).
  40. Communication with HOST is recorded in a buffer *HOST-rsh*.
  41. Normally input is edited in Emacs and sent a line at a time.
  42. See also `\\[telnet]'." "sOpen rsh connection to host: "])
  43. (fset 'telnet-mode #[nil "└ ê┴├╟╔┼!ê╔╩!ê╔╦!ê╔╠!ê╔═!ê╔╬!ê╧!ê╤╥!ç" [comint-mode telnet-mode major-mode "Telnet" mode-name telnet-prompt-pattern comint-prompt-regexp telnet-input-sender comint-input-sender make-local-variable telnet-new-line telnet-replace-c-g telnet-remote-echoes telnet-interrupt-string telnet-count use-local-map telnet-mode-map run-hooks telnet-mode-hook] 2 "\
  44. This mode is for use during telnet or rsh from a buffer to another
  45. host. It has most of the same commands as comint-mode.
  46. There is a variable ``telnet-interrupt-string'' which is the character
  47. sent to try to stop execution of a job on the remote host.
  48. Data is sent to the remote host when RET is typed.
  49. \\{telnet-mode-map}
  50.  
  51. Bugs:
  52. --Replaces  by a space, really should remove." nil])
  53. (provide 'telnet)
  54.