1 /* Synchronous subprocess invocation for GNU Emacs.
2 Copyright (C) 1985, 86, 87, 88, 93, 94, 95 Free Software Foundation, Inc.
4 This file is part of GNU Emacs.
6 GNU Emacs is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2, or (at your option)
11 GNU Emacs is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with GNU Emacs; see the file COPYING. If not, write to
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
19 Boston, MA 02111-1307, USA. */
29 extern char *strerror ();
31 /* Define SIGCHLD as an alias for SIGCLD. */
33 #if !defined (SIGCHLD) && defined (SIGCLD)
34 #define SIGCHLD SIGCLD
37 #include <sys/types.h>
41 #define INCLUDED_FCNTL
48 #include <stdlib.h> /* for proper declaration of environ */
51 #define _P_NOWAIT 1 /* from process.h */
54 #ifdef MSDOS /* Demacs 1.1.1 91/10/16 HIRANO Satoshi */
56 #define INCLUDED_FCNTL
59 #include <sys/param.h>
76 #include "syssignal.h"
80 extern noshare
char **environ
;
82 extern char **environ
;
85 #define max(a, b) ((a) > (b) ? (a) : (b))
88 /* When we are starting external processes we need to know whether they
89 take binary input (no conversion) or text input (\n is converted to
90 \r\n). Similar for output: if newlines are written as \r\n then it's
91 text process output, otherwise it's binary. */
92 Lisp_Object Vbinary_process_input
;
93 Lisp_Object Vbinary_process_output
;
96 Lisp_Object Vexec_path
, Vexec_directory
, Vdata_directory
, Vdoc_directory
;
97 Lisp_Object Vconfigure_info_directory
;
99 Lisp_Object Vshell_file_name
;
101 Lisp_Object Vprocess_environment
;
104 Lisp_Object Qbuffer_file_type
;
107 /* True iff we are about to fork off a synchronous process or if we
108 are waiting for it. */
109 int synch_process_alive
;
111 /* Nonzero => this is a string explaining death of synchronous subprocess. */
112 char *synch_process_death
;
114 /* If synch_process_death is zero,
115 this is exit code of synchronous subprocess. */
116 int synch_process_retcode
;
118 extern Lisp_Object Vdoc_file_name
;
120 /* Clean up when exiting Fcall_process.
121 On MSDOS, delete the temporary file on any kind of termination.
122 On Unix, kill the process and any children on termination by signal. */
124 /* Nonzero if this is termination due to exit. */
125 static int call_process_exited
;
127 #ifndef VMS /* VMS version is in vmsproc.c. */
130 call_process_kill (fdpid
)
133 close (XFASTINT (Fcar (fdpid
)));
134 EMACS_KILLPG (XFASTINT (Fcdr (fdpid
)), SIGKILL
);
135 synch_process_alive
= 0;
140 call_process_cleanup (fdpid
)
144 /* for MSDOS fdpid is really (fd . tempfile) */
145 register Lisp_Object file
;
147 close (XFASTINT (Fcar (fdpid
)));
148 if (strcmp (XSTRING (file
)-> data
, NULL_DEVICE
) != 0)
149 unlink (XSTRING (file
)->data
);
150 #else /* not MSDOS */
151 register int pid
= XFASTINT (Fcdr (fdpid
));
154 if (call_process_exited
)
156 close (XFASTINT (Fcar (fdpid
)));
160 if (EMACS_KILLPG (pid
, SIGINT
) == 0)
162 int count
= specpdl_ptr
- specpdl
;
163 record_unwind_protect (call_process_kill
, fdpid
);
164 message1 ("Waiting for process to die...(type C-g again to kill it instantly)");
167 wait_for_termination (pid
);
169 specpdl_ptr
= specpdl
+ count
; /* Discard the unwind protect. */
170 message1 ("Waiting for process to die...done");
172 synch_process_alive
= 0;
173 close (XFASTINT (Fcar (fdpid
)));
174 #endif /* not MSDOS */
178 DEFUN ("call-process", Fcall_process
, Scall_process
, 1, MANY
, 0,
179 "Call PROGRAM synchronously in separate process.\n\
180 The program's input comes from file INFILE (nil means `/dev/null').\n\
181 Insert output in BUFFER before point; t means current buffer;\n\
182 nil for BUFFER means discard it; 0 means discard and don't wait.\n\
183 BUFFER can also have the form (REAL-BUFFER STDERR-FILE); in that case,\n\
184 REAL-BUFFER says what to do with standard output, as above,\n\
185 while STDERR-FILE says what to do with standard error in the child.\n\
186 STDERR-FILE may be nil (discard standard error output),\n\
187 t (mix it with ordinary output), or a file name string.\n\
189 Fourth arg DISPLAY non-nil means redisplay buffer as output is inserted.\n\
190 Remaining arguments are strings passed as command arguments to PROGRAM.\n\
192 If BUFFER is 0, `call-process' returns immediately with value nil.\n\
193 Otherwise it waits for PROGRAM to terminate\n\
194 and returns a numeric exit status or a signal description string.\n\
195 If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.")
198 register Lisp_Object
*args
;
200 Lisp_Object infile
, buffer
, current_dir
, display
, path
;
207 int count
= specpdl_ptr
- specpdl
;
208 register unsigned char **new_argv
209 = (unsigned char **) alloca ((max (2, nargs
- 2)) * sizeof (char *));
210 struct buffer
*old
= current_buffer
;
211 /* File to use for stderr in the child.
212 t means use same as standard output. */
213 Lisp_Object error_file
;
214 #ifdef MSDOS /* Demacs 1.1.1 91/10/16 HIRANO Satoshi */
215 char *outf
, *tempfile
;
221 CHECK_STRING (args
[0], 0);
226 /* Without asynchronous processes we cannot have BUFFER == 0. */
227 if (nargs
>= 3 && INTEGERP (args
[2]))
228 error ("Operating system cannot handle asynchronous subprocesses");
229 #endif /* subprocesses */
231 if (nargs
>= 2 && ! NILP (args
[1]))
233 infile
= Fexpand_file_name (args
[1], current_buffer
->directory
);
234 CHECK_STRING (infile
, 1);
237 infile
= build_string (NULL_DEVICE
);
243 /* If BUFFER is a list, its meaning is
244 (BUFFER-FOR-STDOUT FILE-FOR-STDERR). */
247 if (CONSP (XCONS (buffer
)->cdr
))
249 Lisp_Object stderr_file
;
250 stderr_file
= XCONS (XCONS (buffer
)->cdr
)->car
;
252 if (NILP (stderr_file
) || EQ (Qt
, stderr_file
))
253 error_file
= stderr_file
;
255 error_file
= Fexpand_file_name (stderr_file
, Qnil
);
258 buffer
= XCONS (buffer
)->car
;
261 if (!(EQ (buffer
, Qnil
)
263 || XFASTINT (buffer
) == 0))
265 Lisp_Object spec_buffer
;
266 spec_buffer
= buffer
;
267 buffer
= Fget_buffer (buffer
);
268 /* Mention the buffer name for a better error message. */
270 CHECK_BUFFER (spec_buffer
, 2);
271 CHECK_BUFFER (buffer
, 2);
277 /* Make sure that the child will be able to chdir to the current
278 buffer's current directory, or its unhandled equivalent. We
279 can't just have the child check for an error when it does the
280 chdir, since it's in a vfork.
282 We have to GCPRO around this because Fexpand_file_name,
283 Funhandled_file_name_directory, and Ffile_accessible_directory_p
284 might call a file name handling function. The argument list is
285 protected by the caller, so all we really have to worry about is
288 struct gcpro gcpro1
, gcpro2
, gcpro3
;
290 current_dir
= current_buffer
->directory
;
292 GCPRO3 (infile
, buffer
, current_dir
);
295 = expand_and_dir_to_file (Funhandled_file_name_directory (current_dir
),
297 if (NILP (Ffile_accessible_directory_p (current_dir
)))
298 report_file_error ("Setting current directory",
299 Fcons (current_buffer
->directory
, Qnil
));
304 display
= nargs
>= 4 ? args
[3] : Qnil
;
306 filefd
= open (XSTRING (infile
)->data
, O_RDONLY
, 0);
309 report_file_error ("Opening process input file", Fcons (infile
, Qnil
));
311 /* Search for program; barf if not found. */
315 GCPRO1 (current_dir
);
316 openp (Vexec_path
, args
[0], EXEC_SUFFIXES
, &path
, 1);
322 report_file_error ("Searching for program", Fcons (args
[0], Qnil
));
324 new_argv
[0] = XSTRING (path
)->data
;
327 for (i
= 4; i
< nargs
; i
++)
329 CHECK_STRING (args
[i
], i
);
330 new_argv
[i
- 3] = XSTRING (args
[i
])->data
;
335 #ifdef MSDOS /* MW, July 1993 */
336 if ((outf
= egetenv ("TMP")) || (outf
= egetenv ("TEMP")))
337 strcpy (tempfile
= alloca (strlen (outf
) + 20), outf
);
340 tempfile
= alloca (20);
343 dostounix_filename (tempfile
);
344 if (*tempfile
== '\0' || tempfile
[strlen (tempfile
) - 1] != '/')
345 strcat (tempfile
, "/");
346 strcat (tempfile
, "detmp.XXX");
349 outfilefd
= creat (tempfile
, S_IREAD
| S_IWRITE
);
353 report_file_error ("Opening process output file",
354 Fcons (build_string (tempfile
), Qnil
));
360 if (INTEGERP (buffer
))
361 fd
[1] = open (NULL_DEVICE
, O_WRONLY
), fd
[0] = -1;
368 /* Replaced by close_process_descs */
369 set_exclusive_use (fd
[0]);
374 /* child_setup must clobber environ in systems with true vfork.
375 Protect it from permanent change. */
376 register char **save_environ
= environ
;
377 register int fd1
= fd
[1];
380 #if 0 /* Some systems don't have sigblock. */
381 mask
= sigblock (sigmask (SIGCHLD
));
384 /* Record that we're about to create a synchronous process. */
385 synch_process_alive
= 1;
387 /* These vars record information from process termination.
388 Clear them now before process can possibly terminate,
389 to avoid timing error if process terminates soon. */
390 synch_process_death
= 0;
391 synch_process_retcode
= 0;
393 if (NILP (error_file
))
394 fd_error
= open (NULL_DEVICE
, O_WRONLY
);
395 else if (STRINGP (error_file
))
398 fd_error
= open (XSTRING (error_file
)->data
,
399 O_WRONLY
| O_TRUNC
| O_CREAT
| O_TEXT
,
401 #else /* not DOS_NT */
402 fd_error
= creat (XSTRING (error_file
)->data
, 0666);
403 #endif /* not DOS_NT */
416 report_file_error ("Cannot redirect stderr",
417 Fcons ((NILP (error_file
)
418 ? build_string (NULL_DEVICE
) : error_file
),
421 #ifdef MSDOS /* MW, July 1993 */
422 /* ??? Someone who knows MSDOG needs to check whether this properly
423 closes all descriptors that it opens.
425 Note that run_msdos_command() actually returns the child process
426 exit status, not its PID, so we assign it to `synch_process_retcode'
428 pid
= run_msdos_command (new_argv
, current_dir
,
429 filefd
, outfilefd
, fd_error
);
431 /* Record that the synchronous process exited and note its
432 termination status. */
433 synch_process_alive
= 0;
434 synch_process_retcode
= pid
;
435 if (synch_process_retcode
< 0) /* means it couldn't be exec'ed */
436 synch_process_death
= strerror(errno
);
439 if (fd_error
!= outfilefd
)
441 fd1
= -1; /* No harm in closing that one! */
442 fd
[0] = open (tempfile
, NILP (Vbinary_process_output
) ? O_TEXT
: O_BINARY
);
447 report_file_error ("Cannot re-open temporary file", Qnil
);
449 #else /* not MSDOS */
451 pid
= child_setup (filefd
, fd1
, fd_error
, new_argv
, 0, current_dir
);
452 #else /* not WINDOWSNT */
459 #if defined(USG) && !defined(BSD_PGRPS)
464 child_setup (filefd
, fd1
, fd_error
, new_argv
, 0, current_dir
);
466 #endif /* not WINDOWSNT */
468 /* The MSDOS case did this already. */
471 #endif /* not MSDOS */
473 environ
= save_environ
;
475 /* Close most of our fd's, but not fd[0]
476 since we will use that to read input from. */
478 if (fd1
>= 0 && fd1
!= fd_error
)
486 report_file_error ("Doing vfork", Qnil
);
489 if (INTEGERP (buffer
))
494 /* If Emacs has been built with asynchronous subprocess support,
495 we don't need to do this, I think because it will then have
496 the facilities for handling SIGCHLD. */
497 wait_without_blocking ();
498 #endif /* subprocesses */
502 /* Enable sending signal if user quits below. */
503 call_process_exited
= 0;
506 /* MSDOS needs different cleanup information. */
507 record_unwind_protect (call_process_cleanup
,
508 Fcons (make_number (fd
[0]), build_string (tempfile
)));
510 record_unwind_protect (call_process_cleanup
,
511 Fcons (make_number (fd
[0]), make_number (pid
)));
512 #endif /* not MSDOS */
515 if (BUFFERP (buffer
))
516 Fset_buffer (buffer
);
528 /* Repeatedly read until we've filled as much as possible
529 of the buffer size we have. But don't read
530 less than 1024--save that for the next bufferful. */
533 while (nread
< bufsize
- 1024)
536 = read (fd
[0], bufptr
+ nread
, bufsize
- nread
);
549 /* Now NREAD is the total amount of data in the buffer. */
557 insert (bufptr
, nread
);
559 /* Make the buffer bigger as we continue to read more data,
561 if (bufsize
< 64 * 1024 && total_read
> 32 * bufsize
)
564 bufptr
= (char *) alloca (bufsize
);
567 if (!NILP (display
) && INTERACTIVE
)
570 prepare_menu_bars ();
572 redisplay_preserve_echo_area ();
580 /* Wait for it to terminate, unless it already has. */
581 wait_for_termination (pid
);
585 set_buffer_internal (old
);
587 /* Don't kill any children that the subprocess may have left behind
589 call_process_exited
= 1;
591 unbind_to (count
, Qnil
);
593 if (synch_process_death
)
594 return build_string (synch_process_death
);
595 return make_number (synch_process_retcode
);
600 delete_temp_file (name
)
603 /* Use Fdelete_file (indirectly) because that runs a file name handler.
604 We did that when writing the file, so we should do so when deleting. */
605 internal_delete_file (name
);
608 DEFUN ("call-process-region", Fcall_process_region
, Scall_process_region
,
610 "Send text from START to END to a synchronous process running PROGRAM.\n\
611 Delete the text if fourth arg DELETE is non-nil.\n\
613 Insert output in BUFFER before point; t means current buffer;\n\
614 nil for BUFFER means discard it; 0 means discard and don't wait.\n\
615 BUFFER can also have the form (REAL-BUFFER STDERR-FILE); in that case,\n\
616 REAL-BUFFER says what to do with standard output, as above,\n\
617 while STDERR-FILE says what to do with standard error in the child.\n\
618 STDERR-FILE may be nil (discard standard error output),\n\
619 t (mix it with ordinary output), or a file name string.\n\
621 Sixth arg DISPLAY non-nil means redisplay buffer as output is inserted.\n\
622 Remaining args are passed to PROGRAM at startup as command args.\n\
624 If BUFFER is nil, `call-process-region' returns immediately with value nil.\n\
625 Otherwise it waits for PROGRAM to terminate\n\
626 and returns a numeric exit status or a signal description string.\n\
627 If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.")
630 register Lisp_Object
*args
;
633 Lisp_Object filename_string
;
634 register Lisp_Object start
, end
;
640 int count
= specpdl_ptr
- specpdl
;
644 if ((outf
= egetenv ("TMP")) || (outf
= egetenv ("TEMP")))
645 strcpy (tempfile
= alloca (strlen (outf
) + 20), outf
);
648 tempfile
= alloca (20);
651 if (!IS_DIRECTORY_SEP (tempfile
[strlen (tempfile
) - 1]))
652 strcat (tempfile
, "/");
653 if ('/' == DIRECTORY_SEP
)
654 dostounix_filename (tempfile
);
656 unixtodos_filename (tempfile
);
658 strcat (tempfile
, "emXXXXXX");
660 strcat (tempfile
, "detmp.XXX");
662 #else /* not DOS_NT */
665 strcpy (tempfile
, "tmp:emacsXXXXXX.");
667 strcpy (tempfile
, "/tmp/emacsXXXXXX");
669 #endif /* not DOS_NT */
673 filename_string
= build_string (tempfile
);
674 GCPRO1 (filename_string
);
678 specbind (Qbuffer_file_type
, Vbinary_process_input
);
679 Fwrite_region (start
, end
, filename_string
, Qnil
, Qlambda
, Qnil
);
680 unbind_to (count
, Qnil
);
681 #else /* not DOS_NT */
682 Fwrite_region (start
, end
, filename_string
, Qnil
, Qlambda
, Qnil
);
683 #endif /* not DOS_NT */
685 record_unwind_protect (delete_temp_file
, filename_string
);
688 Fdelete_region (start
, end
);
690 args
[3] = filename_string
;
692 RETURN_UNGCPRO (unbind_to (count
, Fcall_process (nargs
- 2, args
+ 2)));
695 #ifndef VMS /* VMS version is in vmsproc.c. */
697 /* This is the last thing run in a newly forked inferior
698 either synchronous or asynchronous.
699 Copy descriptors IN, OUT and ERR as descriptors 0, 1 and 2.
700 Initialize inferior's priority, pgrp, connected dir and environment.
701 then exec another program based on new_argv.
703 This function may change environ for the superior process.
704 Therefore, the superior process must save and restore the value
705 of environ around the vfork and the call to this function.
707 ENV is the environment for the subprocess.
709 SET_PGRP is nonzero if we should put the subprocess into a separate
712 CURRENT_DIR is an elisp string giving the path of the current
713 directory the subprocess should have. Since we can't really signal
714 a decent error from within the child, this should be verified as an
715 executable directory by the parent. */
717 child_setup (in
, out
, err
, new_argv
, set_pgrp
, current_dir
)
719 register char **new_argv
;
721 Lisp_Object current_dir
;
724 /* The MSDOS port of gcc cannot fork, vfork, ... so we must call system
726 #else /* not MSDOS */
732 #endif /* WINDOWSNT */
736 #ifdef SET_EMACS_PRIORITY
738 extern int emacs_priority
;
740 if (emacs_priority
< 0)
741 nice (- emacs_priority
);
746 /* Close Emacs's descriptors that this process should not have. */
747 close_process_descs ();
751 /* Note that use of alloca is always safe here. It's obvious for systems
752 that do not have true vfork or that have true (stack) alloca.
753 If using vfork and C_ALLOCA it is safe because that changes
754 the superior's static variables as if the superior had done alloca
755 and will be cleaned up in the usual way. */
760 i
= XSTRING (current_dir
)->size
;
761 pwd_var
= (char *) alloca (i
+ 6);
763 bcopy ("PWD=", pwd_var
, 4);
764 bcopy (XSTRING (current_dir
)->data
, temp
, i
);
765 if (!IS_DIRECTORY_SEP (temp
[i
- 1])) temp
[i
++] = DIRECTORY_SEP
;
768 /* We can't signal an Elisp error here; we're in a vfork. Since
769 the callers check the current directory before forking, this
770 should only return an error if the directory's permissions
771 are changed between the check and this chdir, but we should
773 if (chdir (temp
) < 0)
776 /* Strip trailing slashes for PWD, but leave "/" and "//" alone. */
777 while (i
> 2 && IS_DIRECTORY_SEP (temp
[i
- 1]))
781 /* Set `env' to a vector of the strings in Vprocess_environment. */
783 register Lisp_Object tem
;
784 register char **new_env
;
785 register int new_length
;
788 for (tem
= Vprocess_environment
;
789 CONSP (tem
) && STRINGP (XCONS (tem
)->car
);
790 tem
= XCONS (tem
)->cdr
)
793 /* new_length + 2 to include PWD and terminating 0. */
794 env
= new_env
= (char **) alloca ((new_length
+ 2) * sizeof (char *));
796 /* If we have a PWD envvar, pass one down,
797 but with corrected value. */
799 *new_env
++ = pwd_var
;
801 /* Copy the Vprocess_environment strings into new_env. */
802 for (tem
= Vprocess_environment
;
803 CONSP (tem
) && STRINGP (XCONS (tem
)->car
);
804 tem
= XCONS (tem
)->cdr
)
807 char *string
= (char *) XSTRING (XCONS (tem
)->car
)->data
;
808 /* See if this string duplicates any string already in the env.
809 If so, don't put it in.
810 When an env var has multiple definitions,
811 we keep the definition that comes first in process-environment. */
812 for (; ep
!= new_env
; ep
++)
814 char *p
= *ep
, *q
= string
;
818 /* The string is malformed; might as well drop it. */
833 prepare_standard_handles (in
, out
, err
, handles
);
834 #else /* not WINDOWSNT */
835 /* Make sure that in, out, and err are not actually already in
836 descriptors zero, one, or two; this could happen if Emacs is
837 started with its standard in, out, or error closed, as might
840 int oin
= in
, oout
= out
;
842 /* We have to avoid relocating the same descriptor twice! */
844 in
= relocate_fd (in
, 3);
849 out
= relocate_fd (out
, 3);
853 else if (err
== oout
)
856 err
= relocate_fd (err
, 3);
869 #endif /* not WINDOWSNT */
871 #if defined(USG) && !defined(BSD_PGRPS)
872 #ifndef SETPGRP_RELEASES_CTTY
873 setpgrp (); /* No arguments but equivalent in this case */
878 /* setpgrp_of_tty is incorrect here; it uses input_fd. */
879 EMACS_SET_TTY_PGRP (0, &pid
);
882 something missing here
;
886 /* Spawn the child. (See ntproc.c:Spawnve). */
887 cpid
= spawnve (_P_NOWAIT
, new_argv
[0], new_argv
, env
);
889 /* An error occurred while trying to spawn the process. */
890 report_file_error ("Spawning child process", Qnil
);
891 reset_standard_handles (in
, out
, err
, handles
);
893 #else /* not WINDOWSNT */
894 /* execvp does not accept an environment arg so the only way
895 to pass this environment is to set environ. Our caller
896 is responsible for restoring the ambient value of environ. */
898 execvp (new_argv
[0], new_argv
);
900 write (1, "Can't exec program: ", 20);
901 write (1, new_argv
[0], strlen (new_argv
[0]));
904 #endif /* not WINDOWSNT */
905 #endif /* not MSDOS */
908 /* Move the file descriptor FD so that its number is not less than MIN.
909 If the file descriptor is moved at all, the original is freed. */
911 relocate_fd (fd
, min
)
921 char *message1
= "Error while setting up child: ";
922 char *errmessage
= strerror (errno
);
923 char *message2
= "\n";
924 write (2, message1
, strlen (message1
));
925 write (2, errmessage
, strlen (errmessage
));
926 write (2, message2
, strlen (message2
));
929 /* Note that we hold the original FD open while we recurse,
930 to guarantee we'll get a new FD if we need it. */
931 new = relocate_fd (new, min
);
938 getenv_internal (var
, varlen
, value
, valuelen
)
946 for (scan
= Vprocess_environment
; CONSP (scan
); scan
= XCONS (scan
)->cdr
)
950 entry
= XCONS (scan
)->car
;
952 && XSTRING (entry
)->size
> varlen
953 && XSTRING (entry
)->data
[varlen
] == '='
955 /* NT environment variables are case insensitive. */
956 && ! strnicmp (XSTRING (entry
)->data
, var
, varlen
)
957 #else /* not WINDOWSNT */
958 && ! bcmp (XSTRING (entry
)->data
, var
, varlen
)
959 #endif /* not WINDOWSNT */
962 *value
= (char *) XSTRING (entry
)->data
+ (varlen
+ 1);
963 *valuelen
= XSTRING (entry
)->size
- (varlen
+ 1);
971 DEFUN ("getenv", Fgetenv
, Sgetenv
, 1, 1, 0,
972 "Return the value of environment variable VAR, as a string.\n\
973 VAR should be a string. Value is nil if VAR is undefined in the environment.\n\
974 This function consults the variable ``process-environment'' for its value.")
981 CHECK_STRING (var
, 0);
982 if (getenv_internal (XSTRING (var
)->data
, XSTRING (var
)->size
,
984 return make_string (value
, valuelen
);
989 /* A version of getenv that consults process_environment, easily
998 if (getenv_internal (var
, strlen (var
), &value
, &valuelen
))
1004 #endif /* not VMS */
1006 /* This is run before init_cmdargs. */
1010 char *data_dir
= egetenv ("EMACSDATA");
1011 char *doc_dir
= egetenv ("EMACSDOC");
1014 = Ffile_name_as_directory (build_string (data_dir
? data_dir
1017 = Ffile_name_as_directory (build_string (doc_dir
? doc_dir
1020 /* Check the EMACSPATH environment variable, defaulting to the
1021 PATH_EXEC path from paths.h. */
1022 Vexec_path
= decode_env_path ("EMACSPATH", PATH_EXEC
);
1023 Vexec_directory
= Ffile_name_as_directory (Fcar (Vexec_path
));
1024 Vexec_path
= nconc2 (decode_env_path ("PATH", ""), Vexec_path
);
1027 /* This is run after init_cmdargs, when Vinstallation_directory is valid. */
1031 char *data_dir
= egetenv ("EMACSDATA");
1034 Lisp_Object tempdir
;
1036 if (initialized
&& !NILP (Vinstallation_directory
))
1038 /* Add to the path the lib-src subdir of the installation dir. */
1040 tem
= Fexpand_file_name (build_string ("lib-src"),
1041 Vinstallation_directory
);
1042 if (NILP (Fmember (tem
, Vexec_path
)))
1045 /* MSDOS uses wrapped binaries, so don't do this. */
1046 Vexec_path
= nconc2 (Vexec_path
, Fcons (tem
, Qnil
));
1047 Vexec_directory
= Ffile_name_as_directory (tem
);
1048 #endif /* not DOS_NT */
1051 /* Maybe use ../etc as well as ../lib-src. */
1054 tem
= Fexpand_file_name (build_string ("etc"),
1055 Vinstallation_directory
);
1056 Vdoc_directory
= Ffile_name_as_directory (tem
);
1060 /* Look for the files that should be in etc. We don't use
1061 Vinstallation_directory, because these files are never installed
1062 near the executable, and they are never in the build
1063 directory when that's different from the source directory.
1065 Instead, if these files are not in the nominal place, we try the
1066 source directory. */
1069 Lisp_Object tem
, tem1
, newdir
;
1071 tem
= Fexpand_file_name (build_string ("GNU"), Vdata_directory
);
1072 tem1
= Ffile_exists_p (tem
);
1075 newdir
= Fexpand_file_name (build_string ("../etc/"),
1076 build_string (PATH_DUMPLOADSEARCH
));
1077 tem
= Fexpand_file_name (build_string ("GNU"), newdir
);
1078 tem1
= Ffile_exists_p (tem
);
1080 Vdata_directory
= newdir
;
1084 tempdir
= Fdirectory_file_name (Vexec_directory
);
1085 if (access (XSTRING (tempdir
)->data
, 0) < 0)
1088 "Warning: arch-dependent data dir (%s) does not exist.\n",
1089 XSTRING (Vexec_directory
)->data
);
1093 tempdir
= Fdirectory_file_name (Vdata_directory
);
1094 if (access (XSTRING (tempdir
)->data
, 0) < 0)
1097 "Warning: arch-independent data dir (%s) does not exist.\n",
1098 XSTRING (Vdata_directory
)->data
);
1103 Vshell_file_name
= build_string ("*dcl*");
1105 sh
= (char *) getenv ("SHELL");
1106 Vshell_file_name
= build_string (sh
? sh
: "/bin/sh");
1110 set_process_environment ()
1112 register char **envp
;
1114 Vprocess_environment
= Qnil
;
1118 for (envp
= environ
; *envp
; envp
++)
1119 Vprocess_environment
= Fcons (build_string (*envp
),
1120 Vprocess_environment
);
1126 Qbuffer_file_type
= intern ("buffer-file-type");
1127 staticpro (&Qbuffer_file_type
);
1129 DEFVAR_LISP ("binary-process-input", &Vbinary_process_input
,
1130 "*If non-nil then new subprocesses are assumed to take binary input.");
1131 Vbinary_process_input
= Qnil
;
1133 DEFVAR_LISP ("binary-process-output", &Vbinary_process_output
,
1134 "*If non-nil then new subprocesses are assumed to produce binary output.");
1135 Vbinary_process_output
= Qnil
;
1138 DEFVAR_LISP ("shell-file-name", &Vshell_file_name
,
1139 "*File name to load inferior shells from.\n\
1140 Initialized from the SHELL environment variable.");
1142 DEFVAR_LISP ("exec-path", &Vexec_path
,
1143 "*List of directories to search programs to run in subprocesses.\n\
1144 Each element is a string (directory name) or nil (try default directory).");
1146 DEFVAR_LISP ("exec-directory", &Vexec_directory
,
1147 "Directory of architecture-dependent files that come with GNU Emacs,\n\
1148 especially executable programs intended for Emacs to invoke.");
1150 DEFVAR_LISP ("data-directory", &Vdata_directory
,
1151 "Directory of architecture-independent files that come with GNU Emacs,\n\
1152 intended for Emacs to use.");
1154 DEFVAR_LISP ("doc-directory", &Vdoc_directory
,
1155 "Directory containing the DOC file that comes with GNU Emacs.\n\
1156 This is usually the same as data-directory.");
1158 DEFVAR_LISP ("configure-info-directory", &Vconfigure_info_directory
,
1159 "For internal use by the build procedure only.\n\
1160 This is the name of the directory in which the build procedure installed\n\
1161 Emacs's info files; the default value for Info-default-directory-list\n\
1163 Vconfigure_info_directory
= build_string (PATH_INFO
);
1165 DEFVAR_LISP ("process-environment", &Vprocess_environment
,
1166 "List of environment variables for subprocesses to inherit.\n\
1167 Each element should be a string of the form ENVVARNAME=VALUE.\n\
1168 The environment which Emacs inherits is placed in this variable\n\
1169 when Emacs starts.");
1172 defsubr (&Scall_process
);
1175 defsubr (&Scall_process_region
);