123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118 |
- (eval-when-compile (require 'cl))
- (require 'url-vars)
- (require 'url-parse)
- (autoload 'Info-goto-node "info" "" t)
- (autoload 'man "man" nil t)
- (defun url-man (url)
- "Fetch a Unix manual page URL."
- (man (url-filename url))
- nil)
- (defun url-info (url)
- "Fetch a GNU Info URL."
-
- (let* ((fname (url-filename url))
- (node (url-unhex-string (or (url-target url) "Top"))))
- (if (and fname node)
- (Info-goto-node (concat "(" fname ")" node))
- (error "Malformed url: %s" (url-recreate-url url)))
- nil))
- (defun url-do-terminal-emulator (type server port user)
- (terminal-emulator
- (generate-new-buffer (format "%s%s" (if user (concat user "@") "") server))
- (case type
- (rlogin "rlogin")
- (telnet "telnet")
- (tn3270 "tn3270")
- (otherwise
- (error "Unknown terminal emulator required: %s" type)))
- (case type
- (rlogin
- (if user
- (list server "-l" user)
- (list server)))
- (telnet
- (if user (message "Please log in as user: %s" user))
- (if port
- (list server port)
- (list server)))
- (tn3270
- (if user (message "Please log in as user: %s" user))
- (list server)))))
- (defun url-generic-emulator-loader (url)
- (let* ((type (intern (downcase (url-type url))))
- (server (url-host url))
- (name (url-user url))
- (port (number-to-string (url-port url))))
- (url-do-terminal-emulator type server port name))
- nil)
- (defalias 'url-rlogin 'url-generic-emulator-loader)
- (defalias 'url-telnet 'url-generic-emulator-loader)
- (defalias 'url-tn3270 'url-generic-emulator-loader)
- (defun url-data (url)
- "Fetch a data URL (RFC 2397)."
- (let ((mediatype nil)
-
- (desc (url-unhex-string (url-filename url)))
- (encoding "8bit")
- (data nil))
- (save-excursion
- (if (not (string-match "\\([^,]*\\)?," desc))
- (error "Malformed data URL: %s" desc)
- (setq mediatype (match-string 1 desc))
- (if (and mediatype (string-match ";base64\\'" mediatype))
- (setq mediatype (substring mediatype 0 (match-beginning 0))
- encoding "base64"))
- (if (or (null mediatype)
- (eq ?\
- (setq mediatype (concat "text/plain" mediatype)))
- (setq data (url-unhex-string (substring desc (match-end 0)))))
- (set-buffer (generate-new-buffer " *url-data*"))
- (mm-disable-multibyte)
- (insert (format "Content-Length: %d\n" (length data))
- "Content-Type: " mediatype "\n"
- "Content-Encoding: " encoding "\n"
- "\n")
- (if data (insert data))
- (current-buffer))))
- (provide 'url-misc)
|