Mercurial > hg > xemacs-beta
annotate lisp/code-process.el @ 5353:38e24b8be4ea
Improve the lexical scoping in #'block, #'return-from.
lisp/ChangeLog addition:
2011-02-07 Aidan Kehoe <kehoea@parhasard.net>
* bytecomp.el:
* bytecomp.el (byte-compile-initial-macro-environment):
Shadow `block', `return-from' here, we implement them differently
when byte-compiling.
* bytecomp.el (byte-compile-active-blocks): New.
* bytecomp.el (byte-compile-block-1): New.
* bytecomp.el (byte-compile-return-from-1): New.
* bytecomp.el (return-from-1): New.
* bytecomp.el (block-1): New.
These are two aliases that exist to have their own associated
byte-compile functions, which functions implement `block' and
`return-from'.
* cl-extra.el (cl-macroexpand-all):
Fix a bug here when macros in the environment have been compiled.
* cl-macs.el (block):
* cl-macs.el (return):
* cl-macs.el (return-from):
Be more careful about lexical scope in these macros.
* cl.el:
* cl.el ('cl-block-wrapper): Removed.
* cl.el ('cl-block-throw): Removed.
These aren't needed in code generated by this XEmacs. They
shouldn't be needed in code generated by XEmacs 21.4, but if it
turns out the packages do need them, we can put them back.
2011-01-30 Mike Sperber <mike@xemacs.org>
* font-lock.el (font-lock-fontify-pending-extents): Don't fail if
`font-lock-mode' is unset, which can happen in the middle of
`revert-buffer'.
2011-01-23 Aidan Kehoe <kehoea@parhasard.net>
* cl-macs.el (delete):
* cl-macs.el (delq):
* cl-macs.el (remove):
* cl-macs.el (remq):
Don't use the compiler macro if these functions were given the
wrong number of arguments, as happens in lisp-tests.el.
* cl-seq.el (remove, remq): Removed.
I added these to subr.el, and forgot to remove them from here.
2011-01-22 Aidan Kehoe <kehoea@parhasard.net>
* bytecomp.el (byte-compile-setq, byte-compile-set):
Remove kludge allowing keywords' values to be set, all the code
that does that is gone.
* cl-compat.el (elt-satisfies-test-p):
* faces.el (set-face-parent):
* faces.el (face-doc-string):
* gtk-font-menu.el:
* gtk-font-menu.el (gtk-reset-device-font-menus):
* msw-font-menu.el:
* msw-font-menu.el (mswindows-reset-device-font-menus):
* package-get.el (package-get-installedp):
* select.el (select-convert-from-image-data):
* sound.el:
* sound.el (load-sound-file):
* x-font-menu.el (x-reset-device-font-menus-core):
Don't quote keywords, they're self-quoting, and the
win from backward-compatibility is sufficiently small now that the
style problem overrides it.
2011-01-22 Aidan Kehoe <kehoea@parhasard.net>
* cl-macs.el (block, return-from): Require that NAME be a symbol
in these macros, as always documented in the #'block docstring and
as required by Common Lisp.
* descr-text.el (unidata-initialize-unihan-database):
Correct the use of non-symbols in #'block and #'return-from in
this function.
2011-01-15 Aidan Kehoe <kehoea@parhasard.net>
* cl-extra.el (concatenate): Accept more complicated TYPEs in this
function, handing the sequences over to #'coerce if we don't
understand them here.
* cl-macs.el (inline): Don't proclaim #'concatenate as inline, its
compiler macro is more useful than doing that.
2011-01-11 Aidan Kehoe <kehoea@parhasard.net>
* subr.el (delete, delq, remove, remq): Move #'remove, #'remq
here, they don't belong in cl-seq.el; move #'delete, #'delq here
from fns.c, implement them in terms of #'delete*, allowing support
for sequences generally.
* update-elc.el (do-autoload-commands): Use #'delete*, not #'delq
here, now the latter's no longer dumped.
* cl-macs.el (delete, delq): Add compiler macros transforming
#'delete and #'delq to #'delete* calls.
2011-01-10 Aidan Kehoe <kehoea@parhasard.net>
* dialog.el (make-dialog-box): Correct a misplaced parenthesis
here, thank you Mats Lidell in 87zkr9gqrh.fsf@mail.contactor.se !
2011-01-02 Aidan Kehoe <kehoea@parhasard.net>
* dialog.el (make-dialog-box):
* list-mode.el (display-completion-list):
These functions used to use cl-parsing-keywords; change them to
use defun* instead, fixing the build. (Not sure what led to me
not including this change in d1b17a33450b!)
2011-01-02 Aidan Kehoe <kehoea@parhasard.net>
* cl-macs.el (define-star-compiler-macros):
Make sure the form has ITEM and LIST specified before attempting
to change to calls with explicit tests; necessary for some tests
in lisp-tests.el to compile correctly.
(stable-union, stable-intersection): Add compiler macros for these
functions, in the same way we do for most of the other functions
in cl-seq.el.
2011-01-01 Aidan Kehoe <kehoea@parhasard.net>
* cl-macs.el (dolist, dotimes, do-symbols, macrolet)
(symbol-macrolet):
Define these macros with defmacro* instead of parsing the argument
list by hand, for the sake of style and readability; use backquote
where appropriate, instead of calling #'list and and friends, for
the same reason.
2010-12-30 Aidan Kehoe <kehoea@parhasard.net>
* x-misc.el (device-x-display):
Provide this function, documented in the Lispref for years, but
not existing previously. Thank you Julian Bradfield, thank you
Jeff Mincy.
2010-12-30 Aidan Kehoe <kehoea@parhasard.net>
* cl-seq.el:
Move the heavy lifting from this file to C. Dump the
cl-parsing-keywords macro, but don't use defun* for the functions
we define that do take keywords, dynamic scope lossage makes that
not practical.
* subr.el (sort, fillarray): Move these aliases here.
(map-plist): #'nsublis is now built-in, but at this point #'eql
isn't necessarily available as a test; use #'eq.
* obsolete.el (cl-delete-duplicates): Make this available for old
compiler macros and old code.
(memql): Document that this is equivalent to #'member*, and worse.
* cl.el (adjoin, subst): Removed. These are in C.
2010-12-30 Aidan Kehoe <kehoea@parhasard.net>
* simple.el (assoc-ignore-case): Remove a duplicate definition of
this function (it's already in subr.el).
* iso8859-1.el (char-width):
On non-Mule, make this function equivalent to that produced by
(constantly 1), but preserve its docstring.
* subr.el (subst-char-in-string): Define this in terms of
#'substitute, #'nsubstitute.
(string-width): Define this using #'reduce and #'char-width.
(char-width): Give this a simpler definition, it makes far more
sense to check for mule at load time and redefine, as we do in
iso8859-1.el.
(store-substring): Implement this in terms of #'replace, now
#'replace is cheap.
2010-12-30 Aidan Kehoe <kehoea@parhasard.net>
* update-elc.el (lisp-files-needed-for-byte-compilation)
(lisp-files-needing-early-byte-compilation):
cl-macs belongs in the former, not the latter, it is as
fundamental as bytecomp.el.
2010-12-30 Aidan Kehoe <kehoea@parhasard.net>
* cl.el:
Provde the Common Lisp program-error, type-error as error
symbols. This doesn't nearly go far enough for anyone using the
Common Lisp errors.
2010-12-29 Aidan Kehoe <kehoea@parhasard.net>
* cl-macs.el (delete-duplicates):
If the form has an incorrect number of arguments, don't attempt a
compiler macroexpansion.
2010-12-29 Aidan Kehoe <kehoea@parhasard.net>
* cl-macs.el (cl-safe-expr-p):
Forms that start with the symbol lambda are also safe.
2010-12-29 Aidan Kehoe <kehoea@parhasard.net>
* cl-macs.el (= < > <= >=):
For these functions' compiler macros, the optimisation is safe
even if the first and the last arguments have side effects, since
they're only used the once.
2010-12-29 Aidan Kehoe <kehoea@parhasard.net>
* cl-macs.el (inline-side-effect-free-compiler-macros):
Unroll a loop here at macro-expansion time, so these compiler
macros are compiled. Use #'eql instead of #'eq in a couple of
places for better style.
2010-12-29 Aidan Kehoe <kehoea@parhasard.net>
* cl-extra.el (notany, notevery): Avoid some dynamic scope
stupidity with local variable names in these functions, when they
weren't prefixed with cl-; go into some more detail in the doc
strings.
2010-12-29 Aidan Kehoe <kehoea@parhasard.net>
* byte-optimize.el (side-effect-free-fns): #'remove, #'remq are
free of side-effects.
(side-effect-and-error-free-fns):
Drop dot, dot-marker from the list.
2010-11-17 Aidan Kehoe <kehoea@parhasard.net>
* cl-extra.el (coerce):
In the argument list, name the first argument OBJECT, not X; the
former name was always used in the doc string and is clearer.
Handle vector type specifications which include the length of the
target sequence, error if there's a mismatch.
* cl-macs.el (cl-make-type-test): Handle type specifications
starting with the symbol 'eql.
2010-11-14 Aidan Kehoe <kehoea@parhasard.net>
* cl-macs.el (eql): Don't remove the byte-compile property of this
symbol. That was necessary to override a bug in bytecomp.el where
#'eql was confused with #'eq, which bug we no longer have.
If neither expression is constant, don't attempt to handle the
expression in this compiler macro, leave it to byte-compile-eql,
which produces better code anyway.
* bytecomp.el (eq): #'eql is not the function associated with the
byte-eq byte code.
(byte-compile-eql): Add an explicit compile method for this
function, for cases where the cl-macs compiler macro hasn't
reduced it to #'eq or #'equal.
2010-10-25 Aidan Kehoe <kehoea@parhasard.net>
Add compiler macros and compilation sanity-checking for various
functions that take keywords.
* byte-optimize.el (side-effect-free-fns): #'symbol-value is
side-effect free and not error free.
* bytecomp.el (byte-compile-normal-call): Check keyword argument
lists for sanity; store information about the positions where
keyword arguments start using the new byte-compile-keyword-start
property.
* cl-macs.el (cl-const-expr-val): Take a new optional argument,
cl-not-constant, defaulting to nil, in this function; return it if
the expression is not constant.
(cl-non-fixnum-number-p): Make this into a separate function, we
want to pass it to #'every.
(eql): Use it.
(define-star-compiler-macros): Use the same code to generate the
member*, assoc* and rassoc* compiler macros; special-case some
code in #'add-to-list in subr.el.
(remove, remq): Add compiler macros for these two functions, in
preparation for #'remove being in C.
(define-foo-if-compiler-macros): Transform (remove-if-not ...) calls to
(remove ... :if-not) at compile time, which will be a real win
once the latter is in C.
(define-substitute-if-compiler-macros)
(define-subst-if-compiler-macros): Similarly for these functions.
(delete-duplicates): Change this compiler macro to use
#'plists-equal; if we don't have information about the type of
SEQUENCE at compile time, don't bother attempting to inline the
call, the function will be in C soon enough.
(equalp): Remove an old commented-out compiler macro for this, if
we want to see it it's in version control.
(subst-char-in-string): Transform this to a call to nsubstitute or
nsubstitute, if that is appropriate.
* cl.el (ldiff): Don't call setf here, this makes for a load-time
dependency problem in cl-macs.el
2010-06-14 Stephen J. Turnbull <stephen@xemacs.org>
* term/vt100.el:
Refer to XEmacs, not GNU Emacs, in permissions.
* term/bg-mouse.el:
* term/sup-mouse.el:
Put copyright notice in canonical "Copyright DATE AUTHOR" form.
Refer to XEmacs, not GNU Emacs, in permissions.
* site-load.el:
Add permission boilerplate.
* mule/canna-leim.el:
* alist.el:
Refer to XEmacs, not APEL/this program, in permissions.
* mule/canna-leim.el:
Remove my copyright, I've assigned it to the FSF.
2010-06-14 Stephen J. Turnbull <stephen@xemacs.org>
* gtk.el:
* gtk-widget-accessors.el:
* gtk-package.el:
* gtk-marshal.el:
* gtk-compose.el:
* gnome.el:
Add copyright notice based on internal evidence.
2010-06-14 Stephen J. Turnbull <stephen@xemacs.org>
* easymenu.el: Add reference to COPYING to permission notice.
* gutter.el:
* gutter-items.el:
* menubar-items.el:
Fix typo "Xmacs" in permissions notice.
2010-06-14 Stephen J. Turnbull <stephen@xemacs.org>
* auto-save.el:
* font.el:
* fontconfig.el:
* mule/kinsoku.el:
Add "part of XEmacs" text to permission notice.
2010-10-14 Aidan Kehoe <kehoea@parhasard.net>
* byte-optimize.el (side-effect-free-fns):
* cl-macs.el (remf, getf):
* cl-extra.el (tailp, cl-set-getf, cl-do-remf):
* cl.el (ldiff, endp):
Tighten up Common Lisp compatibility for #'ldiff, #'endp, #'tailp;
add circularity checking for the first two.
#'cl-set-getf and #'cl-do-remf were Lisp implementations of
#'plist-put and #'plist-remprop; change the names to aliases,
changes the macros that use them to using #'plist-put and
#'plist-remprop directly.
2010-10-12 Aidan Kehoe <kehoea@parhasard.net>
* abbrev.el (fundamental-mode-abbrev-table, global-abbrev-table):
Create both these abbrev tables using the usual
#'define-abbrev-table calls, rather than attempting to
special-case them.
* cl-extra.el: Force cl-macs to be loaded here, if cl-extra.el is
being loaded interpreted. Previously other, later files would
redundantly call (load "cl-macs") when interpreted, it's more
reasonable to do it here, once.
* cmdloop.el (read-quoted-char-radix): Use defcustom here, we
don't have any dump-order dependencies that would prevent that.
* custom.el (eval-when-compile): Don't load cl-macs when
interpreted or when byte-compiling, rely on cl-extra.el in the
former case and the appropriate entry in bytecomp-load-hook in the
latter. Get rid of custom-declare-variable-list, we have no
dump-time dependencies that would require it.
* faces.el (eval-when-compile): Don't load cl-macs when
interpreted or when byte-compiling.
* packages.el: Remove some inaccurate comments.
* post-gc.el (cleanup-simple-finalizers): Use #'delete-if-not
here, now the order of preloaded-file-list has been changed to
make it available.
* subr.el (custom-declare-variable-list): Remove. No need for it.
Also remove a stub define-abbrev-table from this file, given the
current order of preloaded-file-list there's no need for it.
2010-10-10 Aidan Kehoe <kehoea@parhasard.net>
* bytecomp.el (byte-compile-constp) Forms quoted with FUNCTION are
also constant.
(byte-compile-initial-macro-environment): In #'the, if FORM is
constant and does not match TYPE, warn at byte-compile time.
2010-10-10 Aidan Kehoe <kehoea@parhasard.net>
* backquote.el (bq-vector-contents, bq-list*): Remove; the former
is equivalent to (append VECTOR nil), the latter to (list* ...).
(bq-process-2): Use (append VECTOR nil) instead of using
#'bq-vector-contents to convert to a list.
(bq-process-1): Now we use list* instead of bq-list
* subr.el (list*): Moved from cl.el, since it is now required to
be available the first time a backquoted form is encountered.
* cl.el (list*): Move to subr.el.
2010-09-16 Aidan Kehoe <kehoea@parhasard.net>
* test-harness.el (Check-Message):
Add an omitted comma here, thank you the buildbot.
2010-09-16 Aidan Kehoe <kehoea@parhasard.net>
* hash-table.el (hash-table-key-list, hash-table-value-list)
(hash-table-key-value-alist, hash-table-key-value-plist):
Remove some useless #'nreverse calls in these files; our hash
tables have no order, it's not helpful to pretend they do.
* behavior.el (read-behavior):
Do the same in this file, in some code evidently copied from
hash-table.el.
2010-09-16 Aidan Kehoe <kehoea@parhasard.net>
* info.el (Info-insert-dir):
* format.el (format-deannotate-region):
* files.el (cd, save-buffers-kill-emacs):
Use #'some, #'every and related functions for applying boolean
operations to lists, instead of rolling our own ones that cons and
don't short-circuit.
2010-09-16 Aidan Kehoe <kehoea@parhasard.net>
* bytecomp.el (byte-compile-initial-macro-environment):
* cl-macs.el (the):
Rephrase the docstring, make its implementation when compiling
files a little nicer.
2010-09-16 Aidan Kehoe <kehoea@parhasard.net>
* descr-text.el (unidata-initialize-unicodedata-database)
(unidata-initialize-unihan-database, describe-char-unicode-data)
(describe-char-unicode-data):
Wrap calls to the database functions with (with-fboundp ...),
avoiding byte compile warnings on builds without support for the
database functions.
(describe-char): (reduce #'max ...), not (apply #'max ...), no
need to cons needlessly.
(describe-char): Remove a redundant lambda wrapping
#'extent-properties.
(describe-char-unicode-data): Call #'nsubst when replacing "" with
nil in the result of #'split-string, instead of consing inside
mapcar.
2010-09-16 Aidan Kehoe <kehoea@parhasard.net>
* x-faces.el (x-available-font-sizes):
* specifier.el (let-specifier):
* package-ui.el (pui-add-required-packages):
* msw-faces.el (mswindows-available-font-sizes):
* modeline.el (modeline-minor-mode-menu):
* minibuf.el (minibuf-directory-files):
Replace the O2N (delq nil (mapcar (lambda (W) (and X Y)) Z)) with
the ON (mapcan (lambda (W) (and X (list Y))) Z) in these files.
2010-09-16 Aidan Kehoe <kehoea@parhasard.net>
* cl-macs.el (= < > <= >=):
When these functions are handed more than two arguments, and those
arguments have no side effects, transform to a series of two
argument calls, avoiding funcall in the byte-compiled code.
* mule/mule-cmds.el (finish-set-language-environment):
Take advantage of this change in a function called 256 times at
startup.
2010-09-16 Aidan Kehoe <kehoea@parhasard.net>
* bytecomp.el (byte-compile-function-form, byte-compile-quote)
(byte-compile-quote-form):
Warn at compile time, and error at runtime, if a (quote ...) or a
(function ...) form attempts to quote more than one object.
2010-09-16 Aidan Kehoe <kehoea@parhasard.net>
* byte-optimize.el (byte-optimize-apply): Transform (apply 'nconc
(mapcar ...)) to (mapcan ...); warn about use of the first idiom.
* update-elc.el (do-autoload-commands):
* packages.el (packages-find-package-library-path):
* frame.el (frame-list):
* extents.el (extent-descendants):
* etags.el (buffer-tag-table-files):
* dumped-lisp.el (preloaded-file-list):
* device.el (device-list):
* bytecomp-runtime.el (proclaim-inline, proclaim-notinline)
Use #'mapcan, not (apply #'nconc (mapcar ...) in all these files.
* bytecomp-runtime.el (eval-when-compile, eval-and-compile):
In passing, mention that these macros also evaluate the body when
interpreted.
tests/ChangeLog addition:
2011-02-07 Aidan Kehoe <kehoea@parhasard.net>
* automated/lisp-tests.el:
Test lexical scope for `block', `return-from'; add a
Known-Bug-Expect-Failure for a contorted example that fails when
byte-compiled.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Mon, 07 Feb 2011 12:01:24 +0000 |
| parents | 0b060ef35789 |
| children | 91b3aa59f49b |
| rev | line source |
|---|---|
| 428 | 1 ;;; code-process.el --- Process coding functions for XEmacs. |
| 2 | |
| 3 ;; Copyright (C) 1985-1987, 1993, 1994, 1997 Free Software Foundation, Inc. | |
| 853 | 4 ;; Copyright (C) 1995, 2000, 2002 Ben Wing |
| 428 | 5 ;; Copyright (C) 1997 MORIOKA Tomohiko |
| 6 | |
| 7 ;; Author: Ben Wing | |
| 8 ;; MORIOKA Tomohiko | |
| 9 ;; Maintainer: XEmacs Development Team | |
| 10 ;; Keywords: mule, multilingual, coding system, process | |
| 11 | |
| 12 ;; This file is part of XEmacs. | |
| 13 | |
| 14 ;; This file is very similar to code-process.el | |
| 15 | |
| 16 ;; XEmacs is free software; you can redistribute it and/or modify it | |
| 17 ;; under the terms of the GNU General Public License as published by | |
| 18 ;; the Free Software Foundation; either version 2, or (at your option) | |
| 19 ;; any later version. | |
| 20 | |
| 21 ;; XEmacs is distributed in the hope that it will be useful, but | |
| 22 ;; WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 23 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
| 24 ;; General Public License for more details. | |
| 25 | |
| 26 ;; You should have received a copy of the GNU General Public License | |
| 27 ;; along with XEmacs; see the file COPYING. If not, write to the Free | |
| 28 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA | |
| 29 ;; 02111-1307, USA. | |
| 30 | |
| 31 ;;; Code: | |
| 32 | |
| 33 (defvar process-coding-system-alist nil | |
| 34 "Alist to decide a coding system to use for a process I/O operation. | |
| 35 The format is ((PATTERN . VAL) ...), | |
| 36 where PATTERN is a regular expression matching a program name, | |
| 37 VAL is a coding system, a cons of coding systems, or a function symbol. | |
| 38 If VAL is a coding system, it is used for both decoding what received | |
| 39 from the program and encoding what sent to the program. | |
| 40 If VAL is a cons of coding systems, the car part is used for decoding, | |
| 41 and the cdr part is used for encoding. | |
| 853 | 42 If VAL is a function symbol, it is called with two arguments, a symbol |
| 43 indicating the operation being performed (one of `start-process', | |
| 44 `call-process', `open-network-stream', or `open-multicast-group') and the | |
| 45 program name. The function must return a coding system or a cons of | |
| 46 coding systems which are used as above.") | |
| 428 | 47 |
| 48 (defun call-process (program &optional infile buffer displayp &rest args) | |
| 49 "Call PROGRAM synchronously in separate process. | |
| 853 | 50 |
| 428 | 51 The program's input comes from file INFILE (nil means `/dev/null'). |
| 853 | 52 XEmacs feature: INFILE can also be a list of (BUFFER [START [END]]), i.e. |
| 53 a list of one to three elements, consisting of a buffer and optionally | |
| 54 a start position or start and end position. In this case, input comes | |
| 55 from the buffer, starting from START (defaults to the beginning of the | |
| 56 buffer) and ending at END (defaults to the end of the buffer). | |
| 57 | |
| 428 | 58 Insert output in BUFFER before point; t means current buffer; |
| 59 nil for BUFFER means discard it; 0 means discard and don't wait. | |
| 837 | 60 If BUFFER is a string, then find or create a buffer with that name, |
| 61 then insert the output in that buffer, before point. | |
| 428 | 62 BUFFER can also have the form (REAL-BUFFER STDERR-FILE); in that case, |
| 63 REAL-BUFFER says what to do with standard output, as above, | |
| 64 while STDERR-FILE says what to do with standard error in the child. | |
| 65 STDERR-FILE may be nil (discard standard error output), | |
| 853 | 66 t (mix it with ordinary output), a file name string, or (XEmacs feature) |
| 67 a buffer object. If STDERR-FILE is a buffer object (but not the name of | |
| 68 a buffer, since that would be interpreted as a file), the standard error | |
| 69 output will be inserted into the buffer before point. | |
| 428 | 70 |
| 853 | 71 Fourth arg DISPLAY non-nil means redisplay buffer as output is inserted. |
| 428 | 72 Remaining arguments are strings passed as command arguments to PROGRAM. |
| 73 | |
| 853 | 74 If BUFFER is 0, returns immediately with value nil. |
| 75 Otherwise waits for PROGRAM to terminate and returns a numeric exit status | |
| 76 or a signal description string. If you quit, the process is first killed | |
| 77 with SIGINT, then with SIGKILL if you quit again before the process exits. | |
| 78 | |
| 79 If INFILE is a file, we transfer its exact contents to the process without | |
| 80 any encoding/decoding. (#### This policy might change.) | |
| 81 | |
| 82 Otherwise, the read/write coding systems used for process I/O on the | |
| 83 process are determined as follows: | |
| 84 | |
| 85 1. `coding-system-for-read', `coding-system-for-write', if non-nil. | |
| 86 (Intended as a temporary overriding mechanism for use by Lisp | |
| 87 code.) | |
| 88 2. The matching value for the process name from `process-coding-system-alist', | |
| 89 if any, and if non-nil. The value may be either a single coding | |
| 90 system, used for both read and write; or a cons of read/write; or a | |
| 91 function, called to get one of the other two values. | |
| 92 3. For writing: If a buffer was given in INFILE, the value of | |
| 93 `buffer-file-coding-system' in that buffer. | |
| 94 For reading: if a buffer was given in BUFFER, the value of | |
| 95 `buffer-file-coding-system-for-read' in that buffer. | |
| 96 4. The value of `default-process-coding-system', which should be a cons | |
| 97 of read/write coding systems, if the values are non-nil. | |
| 98 5. The coding system `undecided' for read, and `raw-text' for write. | |
| 99 | |
| 100 Note that the processes of determining the read and write coding systems | |
| 101 proceed essentially independently one from the other, as in `start-process'." | |
| 102 (let (cs-r cs-w) | |
| 103 (let (ret) | |
| 104 (catch 'found | |
| 105 (let ((alist process-coding-system-alist) | |
| 106 (case-fold-search nil)) | |
| 107 (while alist | |
| 108 (if (string-match (car (car alist)) program) | |
| 109 (throw 'found (setq ret (cdr (car alist))))) | |
| 110 (setq alist (cdr alist)) | |
| 111 ))) | |
| 112 (if (functionp ret) | |
| 113 (setq ret (funcall ret 'call-process program))) | |
| 114 (cond ((consp ret) | |
| 115 (setq cs-r (car ret) | |
| 116 cs-w (cdr ret))) | |
| 117 ((and ret (find-coding-system ret)) | |
| 118 (setq cs-r ret | |
| 119 cs-w ret)))) | |
| 120 (let ((coding-system-for-read | |
| 121 (or coding-system-for-read cs-r | |
| 122 (let ((thebuf (if (consp buffer) (car buffer) buffer))) | |
| 123 (and (or (bufferp thebuf) (stringp thebuf)) | |
| 124 (get-buffer thebuf) | |
| 125 (symbol-value-in-buffer | |
| 857 | 126 'buffer-file-coding-system-for-read (get-buffer thebuf)))) |
| 853 | 127 (car default-process-coding-system) |
| 128 'undecided)) | |
| 129 (coding-system-for-write | |
| 130 (or coding-system-for-write cs-w | |
| 131 (and (consp infile) | |
| 132 (symbol-value-in-buffer | |
| 133 'buffer-file-coding-system | |
| 134 (get-buffer (car infile)))) | |
| 135 (cdr default-process-coding-system) | |
| 136 'raw-text))) | |
| 137 (apply 'call-process-internal program infile buffer displayp args)))) | |
| 428 | 138 |
| 139 (defun call-process-region (start end program | |
| 140 &optional deletep buffer displayp | |
| 141 &rest args) | |
| 142 "Send text from START to END to a synchronous process running PROGRAM. | |
| 143 Delete the text if fourth arg DELETEP is non-nil. | |
| 144 | |
| 145 Insert output in BUFFER before point; t means current buffer; | |
| 146 nil for BUFFER means discard it; 0 means discard and don't wait. | |
| 837 | 147 If BUFFER is a string, then find or create a buffer with that name, |
| 148 then insert the output in that buffer, before point. | |
| 428 | 149 BUFFER can also have the form (REAL-BUFFER STDERR-FILE); in that case, |
| 150 REAL-BUFFER says what to do with standard output, as above, | |
| 151 while STDERR-FILE says what to do with standard error in the child. | |
| 152 STDERR-FILE may be nil (discard standard error output), | |
| 853 | 153 t (mix it with ordinary output), a file name string, or (XEmacs feature) |
| 154 a buffer object. If STDERR-FILE is a buffer object (but not the name of | |
| 155 a buffer, since that would be interpreted as a file), the standard error | |
| 156 output will be inserted into the buffer before point. | |
| 428 | 157 |
| 158 Sixth arg DISPLAYP non-nil means redisplay buffer as output is inserted. | |
| 159 Remaining args are passed to PROGRAM at startup as command args. | |
| 160 | |
| 161 If BUFFER is 0, returns immediately with value nil. | |
| 853 | 162 Otherwise waits for PROGRAM to terminate and returns a numeric exit status |
| 163 or a signal description string. If you quit, the process is first killed | |
| 164 with SIGINT, then with SIGKILL if you quit again before the process exits. | |
| 165 | |
| 166 The read/write coding systems used for process I/O on the process are | |
| 167 the same as for `call-process'." | |
| 2356 | 168 |
| 169 ;; We can't delete the region before feeding it to `call-process', so we | |
| 170 ;; take care not to delete the insertion when we delete the region. START | |
| 171 ;; and END may not be markers; copy them. (point) will end up after the | |
| 172 ;; insertion. A copy of (point) tracks the beginning of the insertion. | |
| 173 | |
| 174 (let ((s (and deletep (copy-marker start))) ; Only YOU can | |
| 175 (e (and deletep (copy-marker end t))) ; prevent | |
| 176 (p (and deletep (copy-marker (point)))) ; excess consing! | |
| 177 (retval | |
| 178 (apply #'call-process program (list (current-buffer) start end) | |
| 179 buffer displayp args))) | |
| 180 (when deletep | |
| 181 (if (<= s p e) | |
| 182 ;; region was split by insertion | |
| 183 ;; the order checks are gilt lilies | |
| 184 (progn (when (< (point) e) (delete-region (point) e)) | |
| 185 (when (< s p) (delete-region s p))) | |
| 186 ;; insertion was outside of region | |
| 187 (delete-region s e))) | |
| 188 retval)) | |
| 428 | 189 |
| 190 (defun start-process (name buffer program &rest program-args) | |
| 191 "Start a program in a subprocess. Return the process object for it. | |
| 192 NAME is name for process. It is modified if necessary to make it unique. | |
| 193 BUFFER is the buffer or (buffer-name) to associate with the process. | |
| 853 | 194 Process output goes at end of that buffer, unless you specify |
| 195 an output stream or filter function to handle the output. | |
| 196 BUFFER may be also nil, meaning that this process is not associated | |
| 197 with any buffer. | |
| 198 BUFFER can also have the form (REAL-BUFFER STDERR-BUFFER); in that case, | |
| 199 REAL-BUFFER says what to do with standard output, as above, | |
| 200 while STDERR-BUFFER says what to do with standard error in the child. | |
| 201 STDERR-BUFFER may be nil (discard standard error output, unless a stderr | |
| 202 filter is set). Note that if you do not use this form at process creation, | |
| 203 stdout and stderr will be mixed in the output buffer, and this cannot be | |
| 204 changed, even by setting a stderr filter. | |
| 428 | 205 Third arg is program file name. It is searched for as in the shell. |
| 206 Remaining arguments are strings to give program as arguments. | |
| 853 | 207 |
| 208 The read/write coding systems used for process I/O on the process are | |
| 209 determined as follows: | |
| 210 | |
| 211 1. `coding-system-for-read', `coding-system-for-write', if non-nil. | |
| 212 (Intended as a temporary overriding mechanism for use by Lisp | |
| 213 code.) | |
| 214 2. The matching value for the process name from `process-coding-system-alist', | |
| 215 if any, and if non-nil. The value may be either a single coding | |
| 216 system, used for both read and write; or a cons of read/write; or a | |
| 217 function, called to get one of the other two values. | |
| 218 3. The value of `default-process-coding-system', which should be a cons | |
| 219 of read/write coding systems, if the values are non-nil. | |
| 220 4. The coding system `undecided' for read, and `raw-text' for write. | |
| 221 | |
| 222 Note that the processes of determining the read and write coding systems | |
| 223 proceed essentially independently one from the other. For example, a value | |
| 224 determined from `process-coding-system-alist' might specify a read coding | |
| 225 system but not a write coding system, in which the read coding system is as | |
| 226 specified and the write coding system comes from proceeding to step 3 (and | |
| 227 looking in `default-process-coding-system'). | |
| 228 | |
| 229 You can change the coding systems later on using | |
| 230 `set-process-coding-system', `set-process-input-coding-system', or | |
| 231 `set-process-output-coding-system'. | |
| 232 | |
| 233 See also `set-process-filter' and `set-process-stderr-filter'." | |
| 428 | 234 (let (cs-r cs-w) |
| 235 (let (ret) | |
| 236 (catch 'found | |
| 237 (let ((alist process-coding-system-alist) | |
| 238 (case-fold-search nil)) | |
| 239 (while alist | |
| 240 (if (string-match (car (car alist)) program) | |
| 241 (throw 'found (setq ret (cdr (car alist))))) | |
| 242 (setq alist (cdr alist)) | |
| 243 ))) | |
| 244 (if (functionp ret) | |
| 245 (setq ret (funcall ret 'start-process program))) | |
| 246 (cond ((consp ret) | |
| 247 (setq cs-r (car ret) | |
| 248 cs-w (cdr ret))) | |
| 853 | 249 ((and ret (find-coding-system ret)) |
| 428 | 250 (setq cs-r ret |
| 251 cs-w ret)))) | |
| 252 (let ((coding-system-for-read | |
| 771 | 253 (or coding-system-for-read cs-r |
| 853 | 254 (car default-process-coding-system) 'undecided)) |
| 428 | 255 (coding-system-for-write |
| 771 | 256 (or coding-system-for-write cs-w |
| 853 | 257 (cdr default-process-coding-system) 'raw-text))) |
| 428 | 258 (apply 'start-process-internal name buffer program program-args) |
| 259 ))) | |
| 260 | |
| 261 (defvar network-coding-system-alist nil | |
| 262 "Alist to decide a coding system to use for a network I/O operation. | |
| 263 The format is ((PATTERN . VAL) ...), | |
| 264 where PATTERN is a regular expression matching a network service name | |
| 265 or is a port number to connect to, | |
| 266 VAL is a coding system, a cons of coding systems, or a function symbol. | |
| 267 If VAL is a coding system, it is used for both decoding what received | |
| 268 from the network stream and encoding what sent to the network stream. | |
| 269 If VAL is a cons of coding systems, the car part is used for decoding, | |
| 270 and the cdr part is used for encoding. | |
| 271 If VAL is a function symbol, the function must return a coding system | |
| 272 or a cons of coding systems which are used as above. | |
| 273 | |
| 274 See also the function `find-operation-coding-system'.") | |
| 275 | |
| 276 (defun open-network-stream (name buffer host service &optional protocol) | |
| 277 "Open a TCP connection for a service to a host. | |
| 444 | 278 Return a process object to represent the connection. |
| 428 | 279 Input and output work as for subprocesses; `delete-process' closes it. |
| 280 NAME is name for process. It is modified if necessary to make it unique. | |
| 281 BUFFER is the buffer (or buffer-name) to associate with the process. | |
| 282 Process output goes at end of that buffer, unless you specify | |
| 283 an output stream or filter function to handle the output. | |
| 284 BUFFER may be also nil, meaning that this process is not associated | |
| 853 | 285 with any buffer. |
| 428 | 286 Third arg is name of the host to connect to, or its IP address. |
| 287 Fourth arg SERVICE is name of the service desired, or an integer | |
| 288 specifying a port number to connect to. | |
| 289 Fifth argument PROTOCOL is a network protocol. Currently 'tcp | |
| 290 (Transmission Control Protocol) and 'udp (User Datagram Protocol) are | |
| 291 supported. When omitted, 'tcp is assumed. | |
| 292 | |
| 442 | 293 Output via `process-send-string' and input via buffer or filter (see |
| 428 | 294 `set-process-filter') are stream-oriented. That means UDP datagrams are |
| 295 not guaranteed to be sent and received in discrete packets. (But small | |
| 296 datagrams around 500 bytes that are not truncated by `process-send-string' | |
| 297 are usually fine.) Note further that UDP protocol does not guard against | |
| 853 | 298 lost packets. |
| 299 | |
| 300 The read/write coding systems used for process I/O on the process are | |
| 301 determined as follows: | |
| 302 | |
| 303 1. `coding-system-for-read', `coding-system-for-write', if non-nil. | |
| 304 (Intended as a temporary overriding mechanism for use by Lisp | |
| 305 code.) | |
| 306 2. The matching value for the service from `network-coding-system-alist', | |
| 307 if any, and if non-nil. The value may be either a single coding | |
| 308 system, used for both read and write; or a cons of read/write; or a | |
| 309 function, called to get one of the other two values. | |
| 310 3. The value of `default-network-coding-system', which should be a cons | |
| 311 of read/write coding systems, if the values are non-nil. | |
| 312 4. The coding system `undecided' for read, and `raw-text' for write. | |
| 313 | |
| 314 Note that the processes of determining the read and write coding systems | |
| 315 proceed essentially independently one from the other, as in `start-process'. | |
| 316 | |
| 317 You can change the coding systems later on using | |
| 318 `set-process-coding-system', `set-process-input-coding-system', or | |
| 319 `set-process-output-coding-system'." | |
| 428 | 320 (let (cs-r cs-w) |
| 321 (let (ret) | |
| 322 (catch 'found | |
| 323 (let ((alist network-coding-system-alist) | |
| 324 (case-fold-search nil) | |
| 325 pattern) | |
| 326 (while alist | |
| 327 (setq pattern (car (car alist))) | |
| 328 (and | |
| 329 (cond ((numberp pattern) | |
| 330 (and (numberp service) | |
| 331 (eq pattern service))) | |
| 332 ((stringp pattern) | |
| 333 (or (and (stringp service) | |
| 334 (string-match pattern service)) | |
| 335 (and (numberp service) | |
| 336 (string-match pattern | |
| 337 (number-to-string service)))))) | |
| 338 (throw 'found (setq ret (cdr (car alist))))) | |
| 339 (setq alist (cdr alist)) | |
| 340 ))) | |
| 341 (if (functionp ret) | |
| 342 (setq ret (funcall ret 'open-network-stream service))) | |
| 343 (cond ((consp ret) | |
| 344 (setq cs-r (car ret) | |
| 345 cs-w (cdr ret))) | |
| 853 | 346 ((and ret (find-coding-system ret)) |
| 428 | 347 (setq cs-r ret |
| 348 cs-w ret)))) | |
| 349 (let ((coding-system-for-read | |
| 853 | 350 (or coding-system-for-read cs-r |
| 351 (car default-network-coding-system) | |
| 352 'undecided)) | |
| 428 | 353 (coding-system-for-write |
| 853 | 354 (or coding-system-for-write cs-w |
| 355 (cdr default-network-coding-system) | |
| 356 'raw-text))) | |
| 428 | 357 (open-network-stream-internal name buffer host service protocol)))) |
| 358 | |
| 771 | 359 (defun set-buffer-process-coding-system (decoding encoding) |
| 360 "Set coding systems for the process associated with the current buffer. | |
| 361 DECODING is the coding system to be used to decode input from the process, | |
| 362 ENCODING is the coding system to be used to encode output to the process. | |
| 363 | |
| 853 | 364 For a list of possible values of CODING-SYSTEM, use \\[coding-system-list]." |
| 771 | 365 (interactive |
| 366 "zCoding-system for process input: \nzCoding-system for process output: ") | |
| 367 (let ((proc (get-buffer-process (current-buffer)))) | |
| 368 (if (null proc) | |
| 369 (error "no process") | |
| 370 (get-coding-system decoding) | |
| 371 (get-coding-system encoding) | |
| 372 (set-process-coding-system proc decoding encoding))) | |
| 373 (force-mode-line-update)) | |
| 374 | |
| 440 | 375 ;;; code-process.el ends here |