;ELC
;;; Compiled by aatharuv@cutter-john.mit.edu on Sun Jan 5 18:16:38 2003
;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/w3-4.0pre.47/lisp/url-misc.el
;;; in Emacs version 21.1.1
;;; with bytecomp version 2.85
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19.29")))
(error "`url-misc.el' was compiled for Emacs 19.29 or later"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\300\303!\207" [require url-vars url-parse widget] 2)
#@2
(autoload 'Info-goto-node "info" '(#$ . 737) t)
(defalias 'url-netrek #[(url) "\304!\203\n \305!\210\306 !\307\310\n\311H\n\312H\206& \n\313H\205& \314\n\315H \"\243#)\207" [url-working-buffer url data url-default-ports get-buffer kill-buffer url-generic-parse-url error "I should launch netrek on: %s %s" 3 4 8 assoc 0] 6])
(defalias 'url-info #[(url) "\305!\203\n \306!\210\307 !\211\310H\311\n\312H\206 \313! \203. \f\203. \314\315 \316\fR!\2022 \317\320 \"+\207" [url-working-buffer url data fname node get-buffer kill-buffer url-generic-parse-url 5 url-unhex-string 6 "Top" Info-goto-node "(" ")" error "Malformed url: %s"] 6])
(defalias 'url-finger #[(url) "\306\307\310\n!q\210\311 !\203 \202 \312 !\211 \313H\206 \314 \f\315H\206< \f\316H\2036 \317\f\320H5\"\243\206< \317\3215\"\243 6\322\f\323H! 7\324\321\n
\3256!$ 8\3268!\205\267 \3278!\210\3308\331\"\210\3327!\333U\203r 7\334\335O7eb\210\336\337\3407\341
\342\343\344\3457\341
\346\347\350\261\210\35187\352P\"\210\3538!\354>\203\247 \355 \210\3568!\210\202\223 eb\210\357\360\361\"\210db\210\362\363\364\261-\207" [url-current-mime-headers url-current-mime-type url-working-buffer url urlobj host (("content-type" . "text/html")) "text/html" get-buffer-create vectorp url-generic-parse-url 3 "localhost" 4 8 assoc 0 "finger" url-unhex-string 5 url-open-stream string-to-int processp process-kill-without-query set-process-sentinel ignore string-to-char 47 1 nil "\n" " \n" " Finger information for " "@" "\n" " \n" " \n" " Finger information for " "
\n" "
\n" " \n" process-send-string "
\n" url-process-status (run open) url-after-change-function url-accept-process-output url-replace-regexp "^Process .* exited .*code .*$" "" "
\n" " \n" "\n" url-default-ports port user proc] 17])
(defalias 'url-do-terminal-emulator #[(type server port user) "\304\305\306\307\203 \310P\202 \311 #!\n\312=\203 \313\2024 \n\314=\203& \315\2024 \n\316=\2030 \317\2024 \320\321\n\"\n\312=\203J \203E \322E\202y C\202y \n\314=\203h \203Y \323\324\"\210 \203c D\202y C\202y \n\316=\205y \203w \323\324\"\210 C#\207" [user server type port terminal-emulator generate-new-buffer format "%s%s" "@" "" rlogin "rlogin" telnet "telnet" tn3270 "tn3270" error "Unknown terminal emulator required: %s" "-l" message "Please log in as user: %s"] 6])
(defalias 'url-generic-emulator-loader #[(url) "\306!\203\n \307!\210\310\311 \"\204 \312\313 \"\210\314\315\316 \"\227!\315\317 \"\320\224\205/ \320\224\320\225SO \310\321 \"\205B \322\225\323O \322\211\224O \324\n
\f$,\207" [url-working-buffer url type server name port get-buffer kill-buffer string-match "^\\([^:]+\\):/*\\(.*@\\)*\\([^/]*\\)/*" error "Invalid URL: %s" intern match-string 1 3 2 ":" 0 nil url-do-terminal-emulator] 5])
(byte-code "\300\301M\210\302\301M\210\303\301M\207" [url-rlogin url-generic-emulator-loader url-telnet url-tn3270] 2)
(defalias 'url-proxy #[(url) "\303!\211\304\305I\210\306\n\307 !\")\207" [url urlobj url-using-proxy url-generic-parse-url 6 nil url-http url-recreate-url] 5])
(defalias 'url-data #[(url) "\306!q\210\307\211\211\310\311\f\"\2036 \312\313\f\"\312\314\f\"\315\f\316\225\307O! G\316U\203- \317\nG\316U\2036 \320 G \n\321 B\322\nBD \205N c+\207" [url-working-buffer data encoding content-type url url-current-content-length get-buffer-create nil string-match "^data:\\([^;,]*\\);*\\([^,]*\\)," match-string 1 2 url-unhex-string 0 "text/plain" "8bit" "content-type" "content-encoding" url-current-mime-type url-current-mime-encoding url-current-mime-headers] 4])
(provide 'url-misc)