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, 675 Mass Ave, Cambridge, MA 02139, USA. */
28 extern char *strerror ();
30 /* Define SIGCHLD as an alias for SIGCLD. */
32 #if !defined (SIGCHLD) && defined (SIGCLD)
33 #define SIGCHLD SIGCLD
36 #include <sys/types.h>
40 #define INCLUDED_FCNTL
47 #include <stdlib.h> /* for proper declaration of environ */
50 #define _P_NOWAIT 1 /* from process.h */
53 #ifdef MSDOS /* Demacs 1.1.1 91/10/16 HIRANO Satoshi */
55 #define INCLUDED_FCNTL
58 #include <sys/param.h>
75 #include "syssignal.h"
79 extern noshare
char **environ
;
81 extern char **environ
;
84 #define max(a, b) ((a) > (b) ? (a) : (b))
87 /* When we are starting external processes we need to know whether they
88 take binary input (no conversion) or text input (\n is converted to
89 \r\n). Similar for output: if newlines are written as \r\n then it's
90 text process output, otherwise it's binary. */
91 Lisp_Object Vbinary_process_input
;
92 Lisp_Object Vbinary_process_output
;
95 Lisp_Object Vexec_path
, Vexec_directory
, Vdata_directory
, Vdoc_directory
;
96 Lisp_Object Vconfigure_info_directory
;
98 Lisp_Object Vshell_file_name
;
100 Lisp_Object Vprocess_environment
;
103 Lisp_Object Qbuffer_file_type
;
106 /* True iff we are about to fork off a synchronous process or if we
107 are waiting for it. */
108 int synch_process_alive
;
110 /* Nonzero => this is a string explaining death of synchronous subprocess. */
111 char *synch_process_death
;
113 /* If synch_process_death is zero,
114 this is exit code of synchronous subprocess. */
115 int synch_process_retcode
;
117 extern Lisp_Object Vdoc_file_name
;
119 /* Clean up when exiting Fcall_process.
120 On MSDOS, delete the temporary file on any kind of termination.
121 On Unix, kill the process and any children on termination by signal. */
123 /* Nonzero if this is termination due to exit. */
124 static int call_process_exited
;
126 #ifndef VMS /* VMS version is in vmsproc.c. */
129 call_process_kill (fdpid
)
132 close (XFASTINT (Fcar (fdpid
)));
133 EMACS_KILLPG (XFASTINT (Fcdr (fdpid
)), SIGKILL
);
134 synch_process_alive
= 0;
139 call_process_cleanup (fdpid
)
143 /* for MSDOS fdpid is really (fd . tempfile) */
144 register Lisp_Object file
;
146 close (XFASTINT (Fcar (fdpid
)));
147 if (strcmp (XSTRING (file
)-> data
, NULL_DEVICE
) != 0)
148 unlink (XSTRING (file
)->data
);
149 #else /* not MSDOS */
150 register int pid
= XFASTINT (Fcdr (fdpid
));
153 if (call_process_exited
)
155 close (XFASTINT (Fcar (fdpid
)));
159 if (EMACS_KILLPG (pid
, SIGINT
) == 0)
161 int count
= specpdl_ptr
- specpdl
;
162 record_unwind_protect (call_process_kill
, fdpid
);
163 message1 ("Waiting for process to die...(type C-g again to kill it instantly)");
166 wait_for_termination (pid
);
168 specpdl_ptr
= specpdl
+ count
; /* Discard the unwind protect. */
169 message1 ("Waiting for process to die...done");
171 synch_process_alive
= 0;
172 close (XFASTINT (Fcar (fdpid
)));
173 #endif /* not MSDOS */
177 DEFUN ("call-process", Fcall_process
, Scall_process
, 1, MANY
, 0,
178 "Call PROGRAM synchronously in separate process.\n\
179 The program's input comes from file INFILE (nil means `/dev/null').\n\
180 Insert output in BUFFER before point; t means current buffer;\n\
181 nil for BUFFER means discard it; 0 means discard and don't wait.\n\
182 BUFFER can also have the form (REAL-BUFFER STDERR-FILE); in that case,\n\
183 REAL-BUFFER says what to do with standard output, as above,\n\
184 while STDERR-FILE says what to do with standard error in the child.\n\
185 STDERR-FILE may be nil (discard standard error output),\n\
186 t (mix it with ordinary output), or a file name string.\n\
188 Fourth arg DISPLAY non-nil means redisplay buffer as output is inserted.\n\
189 Remaining arguments are strings passed as command arguments to PROGRAM.\n\
191 If BUFFER is 0, `call-process' returns immediately with value nil.\n\
192 Otherwise it waits for PROGRAM to terminate\n\
193 and returns a numeric exit status or a signal description string.\n\
194 If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.")
197 register Lisp_Object
*args
;
199 Lisp_Object infile
, buffer
, current_dir
, display
, path
;
206 int count
= specpdl_ptr
- specpdl
;
207 register unsigned char **new_argv
208 = (unsigned char **) alloca ((max (2, nargs
- 2)) * sizeof (char *));
209 struct buffer
*old
= current_buffer
;
210 /* File to use for stderr in the child.
211 t means use same as standard output. */
212 Lisp_Object error_file
;
213 #ifdef MSDOS /* Demacs 1.1.1 91/10/16 HIRANO Satoshi */
214 char *outf
, *tempfile
;
220 CHECK_STRING (args
[0], 0);
225 /* Without asynchronous processes we cannot have BUFFER == 0. */
226 if (nargs
>= 3 && INTEGERP (args
[2]))
227 error ("Operating system cannot handle asynchronous subprocesses");
228 #endif /* subprocesses */
230 if (nargs
>= 2 && ! NILP (args
[1]))
232 infile
= Fexpand_file_name (args
[1], current_buffer
->directory
);
233 CHECK_STRING (infile
, 1);
236 infile
= build_string (NULL_DEVICE
);
242 /* If BUFFER is a list, its meaning is
243 (BUFFER-FOR-STDOUT FILE-FOR-STDERR). */
246 if (CONSP (XCONS (buffer
)->cdr
))
247 error_file
= Fexpand_file_name (XCONS (XCONS (buffer
)->cdr
)->car
,
249 buffer
= XCONS (buffer
)->car
;
252 if (!(EQ (buffer
, Qnil
)
254 || XFASTINT (buffer
) == 0))
256 Lisp_Object spec_buffer
;
257 spec_buffer
= buffer
;
258 buffer
= Fget_buffer (buffer
);
259 /* Mention the buffer name for a better error message. */
261 CHECK_BUFFER (spec_buffer
, 2);
262 CHECK_BUFFER (buffer
, 2);
268 /* Make sure that the child will be able to chdir to the current
269 buffer's current directory, or its unhandled equivalent. We
270 can't just have the child check for an error when it does the
271 chdir, since it's in a vfork.
273 We have to GCPRO around this because Fexpand_file_name,
274 Funhandled_file_name_directory, and Ffile_accessible_directory_p
275 might call a file name handling function. The argument list is
276 protected by the caller, so all we really have to worry about is
279 struct gcpro gcpro1
, gcpro2
, gcpro3
;
281 current_dir
= current_buffer
->directory
;
283 GCPRO3 (infile
, buffer
, current_dir
);
286 = expand_and_dir_to_file (Funhandled_file_name_directory (current_dir
),
288 if (NILP (Ffile_accessible_directory_p (current_dir
)))
289 report_file_error ("Setting current directory",
290 Fcons (current_buffer
->directory
, Qnil
));
295 display
= nargs
>= 4 ? args
[3] : Qnil
;
297 filefd
= open (XSTRING (infile
)->data
, O_RDONLY
, 0);
300 report_file_error ("Opening process input file", Fcons (infile
, Qnil
));
302 /* Search for program; barf if not found. */
306 GCPRO1 (current_dir
);
307 openp (Vexec_path
, args
[0], EXEC_SUFFIXES
, &path
, 1);
313 report_file_error ("Searching for program", Fcons (args
[0], Qnil
));
315 new_argv
[0] = XSTRING (path
)->data
;
318 for (i
= 4; i
< nargs
; i
++)
320 CHECK_STRING (args
[i
], i
);
321 new_argv
[i
- 3] = XSTRING (args
[i
])->data
;
326 #ifdef MSDOS /* MW, July 1993 */
327 if ((outf
= egetenv ("TMP")) || (outf
= egetenv ("TEMP")))
328 strcpy (tempfile
= alloca (strlen (outf
) + 20), outf
);
331 tempfile
= alloca (20);
334 dostounix_filename (tempfile
);
335 if (*tempfile
== '\0' || tempfile
[strlen (tempfile
) - 1] != '/')
336 strcat (tempfile
, "/");
337 strcat (tempfile
, "detmp.XXX");
340 outfilefd
= creat (tempfile
, S_IREAD
| S_IWRITE
);
344 report_file_error ("Opening process output file", Fcons (tempfile
, Qnil
));
349 if (INTEGERP (buffer
))
350 fd
[1] = open (NULL_DEVICE
, O_WRONLY
), fd
[0] = -1;
355 pipe_with_inherited_out (fd
);
356 #else /* not WINDOWSNT */
358 #endif /* not WINDOWSNT */
361 /* Replaced by close_process_descs */
362 set_exclusive_use (fd
[0]);
367 /* child_setup must clobber environ in systems with true vfork.
368 Protect it from permanent change. */
369 register char **save_environ
= environ
;
370 register int fd1
= fd
[1];
373 #if 0 /* Some systems don't have sigblock. */
374 mask
= sigblock (sigmask (SIGCHLD
));
377 /* Record that we're about to create a synchronous process. */
378 synch_process_alive
= 1;
380 /* These vars record information from process termination.
381 Clear them now before process can possibly terminate,
382 to avoid timing error if process terminates soon. */
383 synch_process_death
= 0;
384 synch_process_retcode
= 0;
386 if (NILP (error_file
))
387 fd_error
= open (NULL_DEVICE
, O_WRONLY
);
388 else if (STRINGP (error_file
))
391 fd_error
= open (XSTRING (error_file
)->data
,
392 O_WRONLY
| O_TRUNC
| O_CREAT
| O_TEXT
,
394 #else /* not DOS_NT */
395 fd_error
= creat (XSTRING (error_file
)->data
, 0666);
396 #endif /* not DOS_NT */
405 report_file_error ("Cannot open", error_file
);
407 #ifdef MSDOS /* MW, July 1993 */
408 /* ??? Someone who knows MSDOG needs to check whether this properly
409 closes all descriptors that it opens.
411 Note that run_msdos_command() actually returns the child process
412 exit status, not its PID, so we assign it to `synch_process_retcode'
414 pid
= run_msdos_command (new_argv
, current_dir
,
415 filefd
, outfilefd
, fd_error
);
417 /* Record that the synchronous process exited and note its
418 termination status. */
419 synch_process_alive
= 0;
420 synch_process_retcode
= pid
;
421 if (synch_process_retcode
< 0) /* means it couldn't be exec'ed */
422 synch_process_death
= strerror(errno
);
425 if (fd_error
!= outfilefd
)
427 fd1
= -1; /* No harm in closing that one! */
428 fd
[0] = open (tempfile
, NILP (Vbinary_process_output
) ? O_TEXT
: O_BINARY
);
433 report_file_error ("Cannot re-open temporary file", Qnil
);
435 #else /* not MSDOS */
437 pid
= child_setup (filefd
, fd1
, fd_error
, new_argv
, 0, current_dir
);
438 #else /* not WINDOWSNT */
450 child_setup (filefd
, fd1
, fd_error
, new_argv
, 0, current_dir
);
452 #endif /* not WINDOWSNT */
453 #endif /* not MSDOS */
455 environ
= save_environ
;
457 /* Close most of our fd's, but not fd[0]
458 since we will use that to read input from. */
468 report_file_error ("Doing vfork", Qnil
);
471 if (INTEGERP (buffer
))
476 /* If Emacs has been built with asynchronous subprocess support,
477 we don't need to do this, I think because it will then have
478 the facilities for handling SIGCHLD. */
479 wait_without_blocking ();
480 #endif /* subprocesses */
484 /* Enable sending signal if user quits below. */
485 call_process_exited
= 0;
488 /* MSDOS needs different cleanup information. */
489 record_unwind_protect (call_process_cleanup
,
490 Fcons (make_number (fd
[0]), build_string (tempfile
)));
492 record_unwind_protect (call_process_cleanup
,
493 Fcons (make_number (fd
[0]), make_number (pid
)));
494 #endif /* not MSDOS */
497 if (BUFFERP (buffer
))
498 Fset_buffer (buffer
);
510 /* Repeatedly read until we've filled as much as possible
511 of the buffer size we have. But don't read
512 less than 1024--save that for the next bufferfull. */
515 while (nread
< bufsize
- 1024)
518 = read (fd
[0], bufptr
+ nread
, bufsize
- nread
);
531 /* Now NREAD is the total amount of data in the buffer. */
539 insert (bufptr
, nread
);
541 /* Make the buffer bigger as we continue to read more data,
543 if (bufsize
< 64 * 1024 && total_read
> 32 * bufsize
)
546 bufptr
= (char *) alloca (bufsize
);
549 if (!NILP (display
) && INTERACTIVE
)
552 prepare_menu_bars ();
554 redisplay_preserve_echo_area ();
562 /* Wait for it to terminate, unless it already has. */
563 wait_for_termination (pid
);
567 set_buffer_internal (old
);
569 /* Don't kill any children that the subprocess may have left behind
571 call_process_exited
= 1;
573 unbind_to (count
, Qnil
);
575 if (synch_process_death
)
576 return build_string (synch_process_death
);
577 return make_number (synch_process_retcode
);
582 delete_temp_file (name
)
585 /* Use Fdelete_file (indirectly) because that runs a file name handler.
586 We did that when writing the file, so we should do so when deleting. */
587 internal_delete_file (name
);
590 DEFUN ("call-process-region", Fcall_process_region
, Scall_process_region
,
592 "Send text from START to END to a synchronous process running PROGRAM.\n\
593 Delete the text if fourth arg DELETE is non-nil.\n\
595 Insert output in BUFFER before point; t means current buffer;\n\
596 nil for BUFFER means discard it; 0 means discard and don't wait.\n\
597 BUFFER can also have the form (REAL-BUFFER STDERR-FILE); in that case,\n\
598 REAL-BUFFER says what to do with standard output, as above,\n\
599 while STDERR-FILE says what to do with standard error in the child.\n\
600 STDERR-FILE may be nil (discard standard error output),\n\
601 t (mix it with ordinary output), or a file name string.\n\
603 Sixth arg DISPLAY non-nil means redisplay buffer as output is inserted.\n\
604 Remaining args are passed to PROGRAM at startup as command args.\n\
606 If BUFFER is nil, `call-process-region' returns immediately with value nil.\n\
607 Otherwise it waits for PROGRAM to terminate\n\
608 and returns a numeric exit status or a signal description string.\n\
609 If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.")
612 register Lisp_Object
*args
;
615 Lisp_Object filename_string
;
616 register Lisp_Object start
, end
;
622 int count
= specpdl_ptr
- specpdl
;
626 if ((outf
= egetenv ("TMP")) || (outf
= egetenv ("TEMP")))
627 strcpy (tempfile
= alloca (strlen (outf
) + 20), outf
);
630 tempfile
= alloca (20);
633 dostounix_filename (tempfile
);
634 if (!IS_DIRECTORY_SEP (tempfile
[strlen (tempfile
) - 1]))
635 strcat (tempfile
, "/");
637 strcat (tempfile
, "emXXXXXX");
639 strcat (tempfile
, "detmp.XXX");
641 #else /* not DOS_NT */
644 strcpy (tempfile
, "tmp:emacsXXXXXX.");
646 strcpy (tempfile
, "/tmp/emacsXXXXXX");
648 #endif /* not DOS_NT */
652 filename_string
= build_string (tempfile
);
653 GCPRO1 (filename_string
);
657 specbind (Qbuffer_file_type
, Vbinary_process_input
);
658 Fwrite_region (start
, end
, filename_string
, Qnil
, Qlambda
, Qnil
);
659 unbind_to (count
, Qnil
);
660 #else /* not DOS_NT */
661 Fwrite_region (start
, end
, filename_string
, Qnil
, Qlambda
, Qnil
);
662 #endif /* not DOS_NT */
664 record_unwind_protect (delete_temp_file
, filename_string
);
667 Fdelete_region (start
, end
);
669 args
[3] = filename_string
;
671 RETURN_UNGCPRO (unbind_to (count
, Fcall_process (nargs
- 2, args
+ 2)));
674 #ifndef VMS /* VMS version is in vmsproc.c. */
676 /* This is the last thing run in a newly forked inferior
677 either synchronous or asynchronous.
678 Copy descriptors IN, OUT and ERR as descriptors 0, 1 and 2.
679 Initialize inferior's priority, pgrp, connected dir and environment.
680 then exec another program based on new_argv.
682 This function may change environ for the superior process.
683 Therefore, the superior process must save and restore the value
684 of environ around the vfork and the call to this function.
686 ENV is the environment for the subprocess.
688 SET_PGRP is nonzero if we should put the subprocess into a separate
691 CURRENT_DIR is an elisp string giving the path of the current
692 directory the subprocess should have. Since we can't really signal
693 a decent error from within the child, this should be verified as an
694 executable directory by the parent. */
696 child_setup (in
, out
, err
, new_argv
, set_pgrp
, current_dir
)
698 register char **new_argv
;
700 Lisp_Object current_dir
;
703 /* The MSDOS port of gcc cannot fork, vfork, ... so we must call system
705 #else /* not MSDOS */
711 #endif /* WINDOWSNT */
715 #ifdef SET_EMACS_PRIORITY
717 extern int emacs_priority
;
719 if (emacs_priority
< 0)
720 nice (- emacs_priority
);
725 /* Close Emacs's descriptors that this process should not have. */
726 close_process_descs ();
730 /* Note that use of alloca is always safe here. It's obvious for systems
731 that do not have true vfork or that have true (stack) alloca.
732 If using vfork and C_ALLOCA it is safe because that changes
733 the superior's static variables as if the superior had done alloca
734 and will be cleaned up in the usual way. */
739 i
= XSTRING (current_dir
)->size
;
740 pwd_var
= (char *) alloca (i
+ 6);
742 bcopy ("PWD=", pwd_var
, 4);
743 bcopy (XSTRING (current_dir
)->data
, temp
, i
);
744 if (!IS_DIRECTORY_SEP (temp
[i
- 1])) temp
[i
++] = DIRECTORY_SEP
;
747 /* We can't signal an Elisp error here; we're in a vfork. Since
748 the callers check the current directory before forking, this
749 should only return an error if the directory's permissions
750 are changed between the check and this chdir, but we should
752 if (chdir (temp
) < 0)
755 /* Strip trailing slashes for PWD, but leave "/" and "//" alone. */
756 while (i
> 2 && IS_DIRECTORY_SEP (temp
[i
- 1]))
760 /* Set `env' to a vector of the strings in Vprocess_environment. */
762 register Lisp_Object tem
;
763 register char **new_env
;
764 register int new_length
;
767 for (tem
= Vprocess_environment
;
768 CONSP (tem
) && STRINGP (XCONS (tem
)->car
);
769 tem
= XCONS (tem
)->cdr
)
772 /* new_length + 2 to include PWD and terminating 0. */
773 env
= new_env
= (char **) alloca ((new_length
+ 2) * sizeof (char *));
775 /* If we have a PWD envvar, pass one down,
776 but with corrected value. */
778 *new_env
++ = pwd_var
;
780 /* Copy the Vprocess_environment strings into new_env. */
781 for (tem
= Vprocess_environment
;
782 CONSP (tem
) && STRINGP (XCONS (tem
)->car
);
783 tem
= XCONS (tem
)->cdr
)
786 char *string
= (char *) XSTRING (XCONS (tem
)->car
)->data
;
787 /* See if this string duplicates any string already in the env.
788 If so, don't put it in.
789 When an env var has multiple definitions,
790 we keep the definition that comes first in process-environment. */
791 for (; ep
!= new_env
; ep
++)
793 char *p
= *ep
, *q
= string
;
797 /* The string is malformed; might as well drop it. */
812 prepare_standard_handles (in
, out
, err
, handles
);
813 #else /* not WINDOWSNT */
814 /* Make sure that in, out, and err are not actually already in
815 descriptors zero, one, or two; this could happen if Emacs is
816 started with its standard in, out, or error closed, as might
819 int oin
= in
, oout
= out
;
821 /* We have to avoid relocating the same descriptor twice! */
823 in
= relocate_fd (in
, 3);
828 out
= relocate_fd (out
, 3);
832 else if (err
== oout
)
835 err
= relocate_fd (err
, 3);
848 #endif /* not WINDOWSNT */
851 #ifndef SETPGRP_RELEASES_CTTY
852 setpgrp (); /* No arguments but equivalent in this case */
857 /* setpgrp_of_tty is incorrect here; it uses input_fd. */
858 EMACS_SET_TTY_PGRP (0, &pid
);
861 something missing here
;
865 /* Spawn the child. (See ntproc.c:Spawnve). */
866 cpid
= spawnve (_P_NOWAIT
, new_argv
[0], new_argv
, env
);
868 /* An error occurred while trying to spawn the process. */
869 report_file_error ("Spawning child process", Qnil
);
870 reset_standard_handles (in
, out
, err
, handles
);
872 #else /* not WINDOWSNT */
873 /* execvp does not accept an environment arg so the only way
874 to pass this environment is to set environ. Our caller
875 is responsible for restoring the ambient value of environ. */
877 execvp (new_argv
[0], new_argv
);
879 write (1, "Can't exec program: ", 26);
880 write (1, new_argv
[0], strlen (new_argv
[0]));
883 #endif /* not WINDOWSNT */
884 #endif /* not MSDOS */
887 /* Move the file descriptor FD so that its number is not less than MIN.
888 If the file descriptor is moved at all, the original is freed. */
890 relocate_fd (fd
, min
)
900 char *message1
= "Error while setting up child: ";
901 char *errmessage
= strerror (errno
);
902 char *message2
= "\n";
903 write (2, message1
, strlen (message1
));
904 write (2, errmessage
, strlen (errmessage
));
905 write (2, message2
, strlen (message2
));
908 /* Note that we hold the original FD open while we recurse,
909 to guarantee we'll get a new FD if we need it. */
910 new = relocate_fd (new, min
);
917 getenv_internal (var
, varlen
, value
, valuelen
)
925 for (scan
= Vprocess_environment
; CONSP (scan
); scan
= XCONS (scan
)->cdr
)
929 entry
= XCONS (scan
)->car
;
931 && XSTRING (entry
)->size
> varlen
932 && XSTRING (entry
)->data
[varlen
] == '='
934 /* NT environment variables are case insensitive. */
935 && ! strnicmp (XSTRING (entry
)->data
, var
, varlen
)
936 #else /* not WINDOWSNT */
937 && ! bcmp (XSTRING (entry
)->data
, var
, varlen
)
938 #endif /* not WINDOWSNT */
941 *value
= (char *) XSTRING (entry
)->data
+ (varlen
+ 1);
942 *valuelen
= XSTRING (entry
)->size
- (varlen
+ 1);
950 DEFUN ("getenv", Fgetenv
, Sgetenv
, 1, 1, 0,
951 "Return the value of environment variable VAR, as a string.\n\
952 VAR should be a string. Value is nil if VAR is undefined in the environment.\n\
953 This function consults the variable ``process-environment'' for its value.")
960 CHECK_STRING (var
, 0);
961 if (getenv_internal (XSTRING (var
)->data
, XSTRING (var
)->size
,
963 return make_string (value
, valuelen
);
968 /* A version of getenv that consults process_environment, easily
977 if (getenv_internal (var
, strlen (var
), &value
, &valuelen
))
985 /* This is run before init_cmdargs. */
989 char *data_dir
= egetenv ("EMACSDATA");
990 char *doc_dir
= egetenv ("EMACSDOC");
993 = Ffile_name_as_directory (build_string (data_dir
? data_dir
996 = Ffile_name_as_directory (build_string (doc_dir
? doc_dir
999 /* Check the EMACSPATH environment variable, defaulting to the
1000 PATH_EXEC path from paths.h. */
1001 Vexec_path
= decode_env_path ("EMACSPATH", PATH_EXEC
);
1002 Vexec_directory
= Ffile_name_as_directory (Fcar (Vexec_path
));
1003 Vexec_path
= nconc2 (decode_env_path ("PATH", ""), Vexec_path
);
1006 /* This is run after init_cmdargs, when Vinstallation_directory is valid. */
1010 char *data_dir
= egetenv ("EMACSDATA");
1013 Lisp_Object tempdir
;
1015 if (initialized
&& !NILP (Vinstallation_directory
))
1017 /* Add to the path the lib-src subdir of the installation dir. */
1019 tem
= Fexpand_file_name (build_string ("lib-src"),
1020 Vinstallation_directory
);
1021 if (NILP (Fmember (tem
, Vexec_path
)))
1024 /* MSDOS uses wrapped binaries, so don't do this. */
1025 Vexec_path
= nconc2 (Vexec_path
, Fcons (tem
, Qnil
));
1026 Vexec_directory
= Ffile_name_as_directory (tem
);
1027 #endif /* not DOS_NT */
1030 /* Maybe use ../etc as well as ../lib-src. */
1033 tem
= Fexpand_file_name (build_string ("etc"),
1034 Vinstallation_directory
);
1035 Vdoc_directory
= Ffile_name_as_directory (tem
);
1039 /* Look for the files that should be in etc. We don't use
1040 Vinstallation_directory, because these files are never installed
1041 near the executable, and they are never in the build
1042 directory when that's different from the source directory.
1044 Instead, if these files are not in the nominal place, we try the
1045 source directory. */
1048 Lisp_Object tem
, tem1
, newdir
;
1050 tem
= Fexpand_file_name (build_string ("GNU"), Vdata_directory
);
1051 tem1
= Ffile_exists_p (tem
);
1054 newdir
= Fexpand_file_name (build_string ("../etc/"),
1055 build_string (PATH_DUMPLOADSEARCH
));
1056 tem
= Fexpand_file_name (build_string ("GNU"), newdir
);
1057 tem1
= Ffile_exists_p (tem
);
1059 Vdata_directory
= newdir
;
1063 tempdir
= Fdirectory_file_name (Vexec_directory
);
1064 if (access (XSTRING (tempdir
)->data
, 0) < 0)
1067 "Warning: arch-dependent data dir (%s) does not exist.\n",
1068 XSTRING (Vexec_directory
)->data
);
1072 tempdir
= Fdirectory_file_name (Vdata_directory
);
1073 if (access (XSTRING (tempdir
)->data
, 0) < 0)
1076 "Warning: arch-independent data dir (%s) does not exist.\n",
1077 XSTRING (Vdata_directory
)->data
);
1082 Vshell_file_name
= build_string ("*dcl*");
1084 sh
= (char *) getenv ("SHELL");
1085 Vshell_file_name
= build_string (sh
? sh
: "/bin/sh");
1089 set_process_environment ()
1091 register char **envp
;
1093 Vprocess_environment
= Qnil
;
1097 for (envp
= environ
; *envp
; envp
++)
1098 Vprocess_environment
= Fcons (build_string (*envp
),
1099 Vprocess_environment
);
1105 Qbuffer_file_type
= intern ("buffer-file-type");
1106 staticpro (&Qbuffer_file_type
);
1108 DEFVAR_LISP ("binary-process-input", &Vbinary_process_input
,
1109 "*If non-nil then new subprocesses are assumed to take binary input.");
1110 Vbinary_process_input
= Qnil
;
1112 DEFVAR_LISP ("binary-process-output", &Vbinary_process_output
,
1113 "*If non-nil then new subprocesses are assumed to produce binary output.");
1114 Vbinary_process_output
= Qnil
;
1117 DEFVAR_LISP ("shell-file-name", &Vshell_file_name
,
1118 "*File name to load inferior shells from.\n\
1119 Initialized from the SHELL environment variable.");
1121 DEFVAR_LISP ("exec-path", &Vexec_path
,
1122 "*List of directories to search programs to run in subprocesses.\n\
1123 Each element is a string (directory name) or nil (try default directory).");
1125 DEFVAR_LISP ("exec-directory", &Vexec_directory
,
1126 "Directory of architecture-dependent files that come with GNU Emacs,\n\
1127 especially executable programs intended for Emacs to invoke.");
1129 DEFVAR_LISP ("data-directory", &Vdata_directory
,
1130 "Directory of architecture-independent files that come with GNU Emacs,\n\
1131 intended for Emacs to use.");
1133 DEFVAR_LISP ("doc-directory", &Vdoc_directory
,
1134 "Directory containing the DOC file that comes with GNU Emacs.\n\
1135 This is usually the same as data-directory.");
1137 DEFVAR_LISP ("configure-info-directory", &Vconfigure_info_directory
,
1138 "For internal use by the build procedure only.\n\
1139 This is the name of the directory in which the build procedure installed\n\
1140 Emacs's info files; the default value for Info-default-directory-list\n\
1142 Vconfigure_info_directory
= build_string (PATH_INFO
);
1144 DEFVAR_LISP ("process-environment", &Vprocess_environment
,
1145 "List of environment variables for subprocesses to inherit.\n\
1146 Each element should be a string of the form ENVVARNAME=VALUE.\n\
1147 The environment which Emacs inherits is placed in this variable\n\
1148 when Emacs starts.");
1151 defsubr (&Scall_process
);
1154 defsubr (&Scall_process_region
);