Mercurial > emacs
view lib-src/env.c @ 4872:628cbf7e7005
(comint-after-partial-file-name-command):
Renamed from comint-after-partial-pathname-command.
(comint-match-partial-file-name, comint-after-partial-file-name):
Renamed from comint-match-partial-pathname, etc.
(comint-last-output-start): New variable to record
where most recent process output started from.
(comint-mode): Initialise it.
(comint-output-filter): Set it.
(comint-previous-matching-input-string): Moved to
comint-previous-matching-input-position.
(comint-previous-matching-input-string): Use it.
(comint-search-arg, comint-search-start,
comint-previous-input-string): New subroutines.
(comint-previous-input, comint-next-input,
comint-previous-matching-input, comint-next-matching-input,
comint-previous-matching-input-from-input,
comint-next-matching-input-from-input): Use them.
(comint-mode-map): Added signal menu-bar. Moved
comint-backward/forward-matching-input to output menu-bar, since
they move within the buffer rather than do input.
(comint-send-input, comint-after-pmark-p,
comint-kill-input, comint-proc-query): Removed serialisation of
obtaining the process mark's marker-position.
Commented out comint-load-hooks.
(comint-dynamic-simple-complete): New subroutine.
(comint-dynamic-complete-filename-command): New variable.
(comint-after-partial-pathname-command): New variable.
(comint-after-partial-pathname): New subroutine.
(comint-dynamic-complete): Use them.
(comint-mode): Make them local.
Renamed comint-dynamic-complete-command to
comint-dynamic-complete-command-command for consistency.
Renamed comint-file-name-addsuffix/autolist/recexact to
comint-completion-addsuffix/autolist/recexact for consistency.
(comint-replace-by-expanded-history): Check if input
ring size is not big enough for relative reference.
(comint-read-input-ring, comint-input-ring-file-name):
From shell.el.
(shell-write-input-ring): New subroutine.
(comint-file-name-prefix): New variable.
(comint-directory): New inline subroutine.
(comint-dynamic-complete-filename, comint-dynamic-complete-variable,
comint-dynamic-list-filename-completions): Use it.
(comint-dynamic-complete-filename,
comint-dynamic-complete-variable,
comint-dynamic-list-filename-completions): Make sure local
completion-ignore-case is nil.
(comint-next-prompt, comint-previous-prompt): Use
paragraph-start and paragraph motion commands rather than
re-search-forward and re-search-backward commands.
(comint-dynamic-list-input-ring,
comint-previous-matching-input-string): Use ring-empty-p rather
than zerop and ring-length.
(comint-input-ignoredups): New variable.
(comint-send-input, shell-read-input-ring): Use it.
(comint-mode): Make comint-input-ignoredups local. Doc fix.
(comint-scroll-to-bottom-on-input): New variable.
(comint-scroll-to-bottom-on-output): New variable.
(comint-scroll-show-maximum-output): New variable.
(comint-output-filter-hook): New variable, defaults to
comint-postoutput-scroll-to-bottom.
(comint-output-filter): Renamed from comint-filter
for consistency. Now calls comint-output-filter-hook.
(comint-preinput-scroll-to-bottom): New subroutine.
(comint-postoutput-scroll-to-bottom): New subroutine.
(comint-show-maximum-output): New command.
(comint-copy-old-input): New command.
(comint-send-input): Run comint-output-filter-hook if
necessary as a kludge to prevent messy redisplays.
(comint-mode-map): Added comint-show-maximum-output to
C-c C-e and menu-bar output, and comint-copy-old-input to C-c C-i
and menu-bar input.
(comint-mode): Make local variables
comint-scroll-to-bottom-on-input, before-change-function,
comint-scroll-to-bottom-on-output, comint-scroll-show-maximum-output,
and comint-output-filter-hook.
(comint-version): Deleted--no need for separate version.
(comint-input-ring-index): Make this a permanent local.
(comint-mode): Don't alter comint-input-ring-index or comint-input-ring
if already set meaningfully.
(comint-mode-map): Added keys M-R/S for
comint-previous/next-matching-input-from-input and to completion
menu-bar. Added comint-forward/backward-matching-input and
comint-previous/next-matching-input to completion menu-bar.
(comint-mode): Doc fix for functionality.
(comint-exec-1): Uses setenv.
(comint-update-env): Removed.
(comint-input-ring-size): Incremented to 32, as with
command history.
(comint-dynamic-list-input-ring): Check for zero
length ring. Use ring length, not ring size, when generating
list. Use buffer " *Input History*".
(comint-previous-matching-input-string): Check for zero-length ring.
Check last item in case at end of cycle and it's a match.
(comint-searching-input-ring): New subroutine.
(comint-regexp-arg): New subroutine.
(comint-previous-matching-input-from-input): New command.
(comint-next-matching-input-from-input): New command.
(comint-replace-by-expanded-history): Fix for matching
inside quotes. Fix to allow argument subrange specifiers. Fix to
identify and reject absolute input number references.
(comint-within-quotes): New subroutine.
(comint-how-many-region): New subroutine.
(comint-args): New subroutine.
(comint-delim-arg): New subroutine.
(comint-arguments): New subroutine.
(comint-delimiter-argument-list): New variable.
(comint-send-input): Inserts input arguments into ring
separated by single spaces.
(comint-filter): Checks the buffer's process to make
sure it's still there. Otherwise, set-buffer will fail.
(comint-backward-matching-input): New command.
(comint-forward-matching-input): New command.
(comint-next-prompt, comint-previous-prompt):
Error if reach beg/end of buffer.
(comint-dynamic-complete): Fix for absolute input
number references.
(comint-dynamic-complete-filename): Changed listings
function to comint-dynamic-list-filename-completions. Uses
file-directory-p rather than string-match to test for directories.
(comint-dynamic-list-completions): Changed to list the
list of completions supplied as the function argument. Use buffer
" *Completions*".
(comint-match-partial-pathname): New subroutine.
(comint-dynamic-complete-variable): New command.
(comint-dynamic-list-filename-completions): New function.
(comint-previous-input):
Don't use replace-match; just insert before deleting.
(comint-magic-space): Use self-insert command.
(comint-history-file-name): New variable.
(comint-mode): Initialize comint-input-ring before
running comint-mode-hook.
(comint-input-autoexpand): New variable.
(comint-dynamic-complete-command): New variable.
(comint-get-current-command): New variable.
(comint-read-input-ring): New function.
(comint-send-input): Handle history expansion.
(comint-input-sentinel): Doc fix.
(comint-mode-map): Added key binding for C-c C-h.
Added menu bars for completion, input and output.
(comint-dynamic-list-input-ring): New function.
(comint-previous-input-string): New subroutine.
(comint-previous-input): Use it.
(comint-previous-matching-input-string): New subroutine.
(comint-previous-matching-input): Use it.
(comint-replace-by-expanded-history): New command.
(comint-magic-space): New command.
(comint-replace-by-expanded-filename): Now replaces
expanded match for a filename, and then calls filename completion
comint-dynamic-complete-filename to do file name completion.
(comint-kill-output): Don't kill prompt.
(comint-show-output): Don't move point if it's
visible where it is, and if point is moved, put it after prompt.
(comint-dynamic-complete): Totally new definition.
(comint-dynamic-complete-filename): New name for old
function comint-dynamic-complete, completes files and lists
candidates, souped up for configurability.
(comint-dynamic-complete-variable): New command.
(comint-file-name-autolist): New variable.
(comint-file-name-addsuffix): New variable,
(comint-file-name-recexact): New variable.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Fri, 22 Oct 1993 02:57:36 +0000 |
parents | fe951f9dd70b |
children | 84fcbbd80e3d |
line wrap: on
line source
/* env - manipulate environment and execute a program in that environment Copyright (C) 1986 Free Software Foundation, Inc. This program 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 2, or (at your option) any later version. This program 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 this program; if not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Mly 861126 */ /* If first argument is "-", then a new environment is constructed from scratch; otherwise the environment is inherited from the parent process, except as modified by other options. So, "env - foo" will invoke the "foo" program in a null environment, whereas "env foo" would invoke "foo" in the same environment as that passed to "env" itself. Subsequent arguments are interpreted as follows: * "variable=value" (i.e., an arg containing a "=" character) means to set the specified environment variable to that value. `value' may be of zero length ("variable="). Note that setting a variable to a zero-length value is different from unsetting it. * "-u variable" or "-unset variable" means to unset that variable. If that variable isn't set, does nothing. * "-s variable value" or "-set variable value" same as "variable=value". * "-" or "--" are used to indicate that the following argument is the program to invoke. This is only necessary when the program's name begins with "-" or contains a "=". * anything else The first remaining argument specifies a program to invoke (it is searched for according to the specification of the PATH environment variable) and any arguments following that are passed as arguments to that program. If no program-name is specified following the environment specifications, the resulting environment is printed. This is like specifying a program-name of "printenv". Examples: If the environment passed to "env" is { USER=rms EDITOR=emacs PATH=.:/gnubin:/hacks } * "env DISPLAY=gnu:0 nemacs" calls "nemacs" in the envionment { USER=rms EDITOR=emacs PATH=.:/gnubin:/hacks DISPLAY=gnu:0 } * "env - USER=foo /hacks/hack bar baz" calls the "hack" program on arguments "bar" and "baz" in an environment in which the only variable is "USER". Note that the "-" option clears out the PATH variable, so one should be careful to specify in which directory to find the program to call. * "env -u EDITOR USER=foo PATH=/energy -- e=mc2 bar baz" The program "/energy/e=mc2" is called with environment { USER=foo PATH=/energy } */ #ifdef EMACS #define NO_SHORTNAMES #include "../src/config.h" #endif /* EMACS */ #include <stdio.h> extern int execvp (); char *xmalloc (), *xrealloc (); char *concat (); extern char **environ; char **nenv; int nenv_size; char *progname; void setenv (); void fatal (); char *myindex (); main (argc, argv, envp) register int argc; register char **argv; char **envp; { register char *tem; progname = argv[0]; argc--; argv++; nenv_size = 100; nenv = (char **) xmalloc (nenv_size * sizeof (char *)); *nenv = (char *) 0; /* "-" flag means to not inherit parent's environment */ if (argc && !strcmp (*argv, "-")) { argc--; argv++; } else /* Else pass on existing env vars. */ for (; *envp; envp++) { tem = myindex (*envp, '='); if (tem) { *tem = '\000'; setenv (*envp, tem + 1); } } while (argc > 0) { tem = myindex (*argv, '='); if (tem) /* If arg contains a "=" it specifies to set a variable */ { *tem = '\000'; setenv (*argv, tem + 1); argc--; argv++; continue; } if (**argv != '-') /* Remaining args are program name and args to pass it */ break; if (argc < 2) fatal ("no argument for `%s' option", *argv); if (!strcmp (*argv, "-u") || !strcmp (*argv, "-unset")) /* Unset a variable */ { argc--; argv++; setenv (*argv, (char *) 0); argc--; argv++; } else if (!strcmp (*argv, "-s") || !strcmp (*argv, "-set")) /* Set a variable */ { argc--; argv++; tem = *argv; if (argc < 2) fatal ("no value specified for variable \"%s\"", tem); argc--; argv++; setenv (tem, *argv); argc--; argv++; } else if (!strcmp (*argv, "-") || !strcmp (*argv, "--")) { argc--; argv++; break; } else { fatal ("unrecognized option `%s'", *argv); } } /* If no program specified print the environment and exit */ if (argc <= 0) { while (*nenv) printf ("%s\n", *nenv++); exit (0); } else { extern int errno, sys_nerr; extern char *sys_errlist[]; environ = nenv; (void) execvp (*argv, argv); fprintf (stderr, "%s: cannot execute `%s'", progname, *argv); if (errno < sys_nerr) fprintf (stderr, ": %s\n", sys_errlist[errno]); else putc ('\n', stderr); exit (errno != 0 ? errno : 1); } } void setenv (var, val) register char *var, *val; { register char **e; int len = strlen (var); { register char *tem = myindex (var, '='); if (tem) fatal ("environment variable names can not contain `=': %s", var); else if (*var == '\000') fatal ("zero-length environment variable name specified"); } for (e = nenv; *e; e++) if (!strncmp (var, *e, len) && (*e)[len] == '=') { if (val) goto set; else do { *e = *(e + 1); } while (*e++); return; } if (!val) return; /* Nothing to unset */ len = e - nenv; if (len + 1 >= nenv_size) { nenv_size += 100; nenv = (char **) xrealloc (nenv, nenv_size * sizeof (char *)); e = nenv + len; } set: val = concat (var, "=", val); if (*e) free (*e); else *(e + 1) = (char *) 0; *e = val; return; } void fatal (msg, arg1, arg2) char *msg, *arg1, *arg2; { fprintf (stderr, "%s: ", progname); fprintf (stderr, msg, arg1, arg2); putc ('\n', stderr); exit (1); } extern char *malloc (), *realloc (); void memory_fatal () { fatal ("virtual memory exhausted"); } char * xmalloc (size) int size; { register char *value; value = (char *) malloc (size); if (!value) memory_fatal (); return (value); } char * xrealloc (ptr, size) char *ptr; int size; { register char *value; value = (char *) realloc (ptr, size); if (!value) memory_fatal (); return (value); } /* Return a newly-allocated string whose contents concatenate those of S1, S2, S3. */ char * concat (s1, s2, s3) char *s1, *s2, *s3; { int len1 = strlen (s1), len2 = strlen (s2), len3 = strlen (s3); char *result = (char *) xmalloc (len1 + len2 + len3 + 1); strcpy (result, s1); strcpy (result + len1, s2); strcpy (result + len1 + len2, s3); result[len1 + len2 + len3] = 0; return result; } /* Return a pointer to the first occurrence in STR of C, or 0 if C does not occur. */ char * myindex (str, c) char *str; char c; { char *s = str; while (*s) { if (*s == c) return s; s++; } return 0; }