Mercurial > emacs
view lisp/url/url-misc.el @ 97043:9592c50233ab remove-carbon
Remove support for Mac Carbon.
* mactoolbox.c:
* macterm.h:
* macterm.c:
* macselect.c:
* macmenu.c:
* macgui.h:
* macfns.c:
* mac.c: Remove file.
* s/darwin.h:
* m/intel386.h:
* xfaces.c:
* xdisp.c:
* window.c:
* tparam.c:
* termhooks.h:
* termcap.c:
* term.c:
* syssignal.h:
* sysselect.h:
* sysdep.c:
* process.c:
* lread.c:
* lisp.h:
* keyboard.c:
* image.c:
* fringe.c:
* frame.h:
* frame.c:
* fontset.c:
* font.h:
* font.c:
* fns.c:
* fileio.c:
* emacs.c:
* dispnew.c:
* dispextern.h:
* config.in:
* atimer.c:
* Makefile.in: Remove code for Carbon
* erc.el: Remove code for Carbon.
Remove support for Mac Carbon.
* term/mac-win.el: Remove file
* international/mule-cmds.el:
* version.el:
* startup.el:
* simple.el:
* mwheel.el:
* mouse.el:
* loadup.el:
* isearch.el:
* info.el:
* frame.el:
* faces.el:
* disp-table.el:
* cus-start.el:
* cus-face.el:
* cus-edit.el:
* Makefile.in: Remove code for Carbon.
Remove support for Mac Carbon.
* makefile.w32-in:
* emacsclient.c: Remove code for Carbon.
* PROBLEMS:
* MACHINES: Remove mentions of Mac Carbon.
* ns-emacs.texi:
* faq.texi: Remove mentions of Mac Carbon.
* os.texi:
* frames.texi:
* display.texi: Remove mentions of Mac Carbon.
* xresources.texi: Remove mentions of Mac Carbon.
* make-tarball.txt:
* admin.el:
* FOR-RELEASE:
* CPP-DEFINES: Remove mentions of Mac Carbon.
Remove support for Mac Carbon.
* mac: Remove directory.
* make-dist:
* configure.in:
* README:
* Makefile.in:
* INSTALL: Remove code for Carbon.
* configure: Regenerate.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Sun, 27 Jul 2008 18:24:48 +0000 |
parents | 8259d0d8e107 |
children | a9dc0e7c3f2b |
line wrap: on
line source
;;; url-misc.el --- Misc Uniform Resource Locator retrieval code ;; Copyright (C) 1996, 1997, 1998, 1999, 2002, 2004, ;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc. ;; Keywords: comm, data, processes ;; This file is part of GNU Emacs. ;; GNU Emacs is free software: you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or ;; (at your option) any later version. ;; GNU Emacs is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. ;;; Code: (eval-when-compile (require 'cl)) (require 'url-vars) (require 'url-parse) (autoload 'Info-goto-node "info" "" t) (autoload 'man "man" nil t) ;;;###autoload (defun url-man (url) "Fetch a Unix manual page URL." (man (url-filename url)) nil) ;;;###autoload (defun url-info (url) "Fetch a GNU Info URL." ;; Fetch an info node (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))))) ;;;###autoload (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) ;;;###autoload (defalias 'url-rlogin 'url-generic-emulator-loader) ;;;###autoload (defalias 'url-telnet 'url-generic-emulator-loader) ;;;###autoload (defalias 'url-tn3270 'url-generic-emulator-loader) ;; RFC 2397 ;;;###autoload (defun url-data (url) "Fetch a data URL (RFC 2397)." (let ((mediatype nil) ;; The mediatype may need to be hex-encoded too -- see the RFC. (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 ?\; (aref mediatype 0))) (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) ;; arch-tag: 8c544e1b-d8bc-40a6-b319-f1f37fef65a0 ;;; url-misc.el ends here