189 |
} |
} |
190 |
|
|
191 |
DEFUN ("call-process", Fcall_process, Scall_process, 1, MANY, 0, |
DEFUN ("call-process", Fcall_process, Scall_process, 1, MANY, 0, |
192 |
"Call PROGRAM synchronously in separate process.\n\ |
doc: /* Call PROGRAM synchronously in separate process. |
193 |
The remaining arguments are optional.\n\ |
The remaining arguments are optional. |
194 |
The program's input comes from file INFILE (nil means `/dev/null').\n\ |
The program's input comes from file INFILE (nil means `/dev/null'). |
195 |
Insert output in BUFFER before point; t means current buffer;\n\ |
Insert output in BUFFER before point; t means current buffer; |
196 |
nil for BUFFER means discard it; 0 means discard and don't wait.\n\ |
nil for BUFFER means discard it; 0 means discard and don't wait. |
197 |
BUFFER can also have the form (REAL-BUFFER STDERR-FILE); in that case,\n\ |
BUFFER can also have the form (REAL-BUFFER STDERR-FILE); in that case, |
198 |
REAL-BUFFER says what to do with standard output, as above,\n\ |
REAL-BUFFER says what to do with standard output, as above, |
199 |
while STDERR-FILE says what to do with standard error in the child.\n\ |
while STDERR-FILE says what to do with standard error in the child. |
200 |
STDERR-FILE may be nil (discard standard error output),\n\ |
STDERR-FILE may be nil (discard standard error output), |
201 |
t (mix it with ordinary output), or a file name string.\n\ |
t (mix it with ordinary output), or a file name string. |
202 |
\n\ |
|
203 |
Fourth arg DISPLAY non-nil means redisplay buffer as output is inserted.\n\ |
Fourth arg DISPLAY non-nil means redisplay buffer as output is inserted. |
204 |
Remaining arguments are strings passed as command arguments to PROGRAM.\n\ |
Remaining arguments are strings passed as command arguments to PROGRAM. |
205 |
\n\ |
|
206 |
If BUFFER is 0, `call-process' returns immediately with value nil.\n\ |
If BUFFER is 0, `call-process' returns immediately with value nil. |
207 |
Otherwise it waits for PROGRAM to terminate\n\ |
Otherwise it waits for PROGRAM to terminate |
208 |
and returns a numeric exit status or a signal description string.\n\ |
and returns a numeric exit status or a signal description string. |
209 |
If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.") |
If you quit, the process is killed with SIGINT, or SIGKILL if you quit again. */) |
210 |
(nargs, args) |
(nargs, args) |
211 |
int nargs; |
int nargs; |
212 |
register Lisp_Object *args; |
register Lisp_Object *args; |
213 |
{ |
{ |
971 |
} |
} |
972 |
|
|
973 |
DEFUN ("call-process-region", Fcall_process_region, Scall_process_region, |
DEFUN ("call-process-region", Fcall_process_region, Scall_process_region, |
974 |
3, MANY, 0, |
3, MANY, 0, |
975 |
"Send text from START to END to a synchronous process running PROGRAM.\n\ |
doc: /* Send text from START to END to a synchronous process running PROGRAM. |
976 |
The remaining arguments are optional.\n\ |
The remaining arguments are optional. |
977 |
Delete the text if fourth arg DELETE is non-nil.\n\ |
Delete the text if fourth arg DELETE is non-nil. |
978 |
\n\ |
|
979 |
Insert output in BUFFER before point; t means current buffer;\n\ |
Insert output in BUFFER before point; t means current buffer; |
980 |
nil for BUFFER means discard it; 0 means discard and don't wait.\n\ |
nil for BUFFER means discard it; 0 means discard and don't wait. |
981 |
BUFFER can also have the form (REAL-BUFFER STDERR-FILE); in that case,\n\ |
BUFFER can also have the form (REAL-BUFFER STDERR-FILE); in that case, |
982 |
REAL-BUFFER says what to do with standard output, as above,\n\ |
REAL-BUFFER says what to do with standard output, as above, |
983 |
while STDERR-FILE says what to do with standard error in the child.\n\ |
while STDERR-FILE says what to do with standard error in the child. |
984 |
STDERR-FILE may be nil (discard standard error output),\n\ |
STDERR-FILE may be nil (discard standard error output), |
985 |
t (mix it with ordinary output), or a file name string.\n\ |
t (mix it with ordinary output), or a file name string. |
986 |
\n\ |
|
987 |
Sixth arg DISPLAY non-nil means redisplay buffer as output is inserted.\n\ |
Sixth arg DISPLAY non-nil means redisplay buffer as output is inserted. |
988 |
Remaining args are passed to PROGRAM at startup as command args.\n\ |
Remaining args are passed to PROGRAM at startup as command args. |
989 |
\n\ |
|
990 |
If BUFFER is nil, `call-process-region' returns immediately with value nil.\n\ |
If BUFFER is nil, `call-process-region' returns immediately with value nil. |
991 |
Otherwise it waits for PROGRAM to terminate\n\ |
Otherwise it waits for PROGRAM to terminate |
992 |
and returns a numeric exit status or a signal description string.\n\ |
and returns a numeric exit status or a signal description string. |
993 |
If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.") |
If you quit, the process is killed with SIGINT, or SIGKILL if you quit again. */) |
994 |
(nargs, args) |
(nargs, args) |
995 |
int nargs; |
int nargs; |
996 |
register Lisp_Object *args; |
register Lisp_Object *args; |
997 |
{ |
{ |
1406 |
} |
} |
1407 |
|
|
1408 |
DEFUN ("getenv-internal", Fgetenv_internal, Sgetenv_internal, 1, 1, 0, |
DEFUN ("getenv-internal", Fgetenv_internal, Sgetenv_internal, 1, 1, 0, |
1409 |
"Return the value of environment variable VAR, as a string.\n\ |
doc: /* Return the value of environment variable VAR, as a string. |
1410 |
VAR should be a string. Value is nil if VAR is undefined in the environment.\n\ |
VAR should be a string. Value is nil if VAR is undefined in the environment. |
1411 |
This function consults the variable ``process-environment'' for its value.") |
This function consults the variable ``process-environment'' for its value. */) |
1412 |
(var) |
(var) |
1413 |
Lisp_Object var; |
Lisp_Object var; |
1414 |
{ |
{ |
1415 |
char *value; |
char *value; |
1579 |
#endif /* DOS_NT */ |
#endif /* DOS_NT */ |
1580 |
|
|
1581 |
DEFVAR_LISP ("shell-file-name", &Vshell_file_name, |
DEFVAR_LISP ("shell-file-name", &Vshell_file_name, |
1582 |
"*File name to load inferior shells from.\n\ |
doc: /* *File name to load inferior shells from. |
1583 |
Initialized from the SHELL environment variable."); |
Initialized from the SHELL environment variable. */); |
1584 |
|
|
1585 |
DEFVAR_LISP ("exec-path", &Vexec_path, |
DEFVAR_LISP ("exec-path", &Vexec_path, |
1586 |
"*List of directories to search programs to run in subprocesses.\n\ |
doc: /* *List of directories to search programs to run in subprocesses. |
1587 |
Each element is a string (directory name) or nil (try default directory)."); |
Each element is a string (directory name) or nil (try default directory). */); |
1588 |
|
|
1589 |
DEFVAR_LISP ("exec-suffixes", &Vexec_suffixes, |
DEFVAR_LISP ("exec-suffixes", &Vexec_suffixes, |
1590 |
"*List of suffixes to try to find executable file names.\n\ |
doc: /* *List of suffixes to try to find executable file names. |
1591 |
Each element is a string"); |
Each element is a string. */); |
1592 |
Vexec_suffixes = Qnil; |
Vexec_suffixes = Qnil; |
1593 |
|
|
1594 |
DEFVAR_LISP ("exec-directory", &Vexec_directory, |
DEFVAR_LISP ("exec-directory", &Vexec_directory, |
1595 |
"Directory for executables for Emacs to invoke.\n\ |
doc: /* Directory for executables for Emacs to invoke. |
1596 |
More generally, this includes any architecture-dependent files\n\ |
More generally, this includes any architecture-dependent files |
1597 |
that are built and installed from the Emacs distribution."); |
that are built and installed from the Emacs distribution. */); |
1598 |
|
|
1599 |
DEFVAR_LISP ("data-directory", &Vdata_directory, |
DEFVAR_LISP ("data-directory", &Vdata_directory, |
1600 |
"Directory of machine-independent files that come with GNU Emacs.\n\ |
doc: /* Directory of machine-independent files that come with GNU Emacs. |
1601 |
These are files intended for Emacs to use while it runs."); |
These are files intended for Emacs to use while it runs. */); |
1602 |
|
|
1603 |
DEFVAR_LISP ("doc-directory", &Vdoc_directory, |
DEFVAR_LISP ("doc-directory", &Vdoc_directory, |
1604 |
"Directory containing the DOC file that comes with GNU Emacs.\n\ |
doc: /* Directory containing the DOC file that comes with GNU Emacs. |
1605 |
This is usually the same as data-directory."); |
This is usually the same as data-directory. */); |
1606 |
|
|
1607 |
DEFVAR_LISP ("configure-info-directory", &Vconfigure_info_directory, |
DEFVAR_LISP ("configure-info-directory", &Vconfigure_info_directory, |
1608 |
"For internal use by the build procedure only.\n\ |
doc: /* For internal use by the build procedure only. |
1609 |
This is the name of the directory in which the build procedure installed\n\ |
This is the name of the directory in which the build procedure installed |
1610 |
Emacs's info files; the default value for Info-default-directory-list\n\ |
Emacs's info files; the default value for Info-default-directory-list |
1611 |
includes this."); |
includes this. */); |
1612 |
Vconfigure_info_directory = build_string (PATH_INFO); |
Vconfigure_info_directory = build_string (PATH_INFO); |
1613 |
|
|
1614 |
DEFVAR_LISP ("temp-file-name-pattern", &Vtemp_file_name_pattern, |
DEFVAR_LISP ("temp-file-name-pattern", &Vtemp_file_name_pattern, |
1615 |
"Pattern for making names for temporary files.\n\ |
doc: /* Pattern for making names for temporary files. |
1616 |
This is used by `call-process-region'."); |
This is used by `call-process-region'. */); |
1617 |
/* This variable is initialized in init_callproc. */ |
/* This variable is initialized in init_callproc. */ |
1618 |
|
|
1619 |
DEFVAR_LISP ("process-environment", &Vprocess_environment, |
DEFVAR_LISP ("process-environment", &Vprocess_environment, |
1620 |
"List of environment variables for subprocesses to inherit.\n\ |
doc: /* List of environment variables for subprocesses to inherit. |
1621 |
Each element should be a string of the form ENVVARNAME=VALUE.\n\ |
Each element should be a string of the form ENVVARNAME=VALUE. |
1622 |
If multiple entries define the same variable, the first one always\n\ |
If multiple entries define the same variable, the first one always |
1623 |
takes precedence.\n\ |
takes precedence. |
1624 |
The environment which Emacs inherits is placed in this variable\n\ |
The environment which Emacs inherits is placed in this variable |
1625 |
when Emacs starts."); |
when Emacs starts. */); |
1626 |
|
|
1627 |
#ifndef VMS |
#ifndef VMS |
1628 |
defsubr (&Scall_process); |
defsubr (&Scall_process); |