Mercurial > emacs
annotate src/callproc.c @ 109165:750db9f3e6d8
Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
* alloc.c (overrun_check_malloc, overrun_check_realloc)
(overrun_check_free, xstrdup, allocate_string)
(allocate_string_data, compact_small_strings, Fmake_string)
(make_unibyte_string, make_multibyte_string)
(make_string_from_bytes, make_specified_string, make_float)
(Fcons, allocate_terminal, allocate_frame, make_pure_string)
(Fgarbage_collect): Replace bcopy, safe_bcopy, bzero, bcmp by
memcpy, memmove, memset, memcmp.
* atimer.c (start_atimer, set_alarm): Likewise.
* buffer.c (clone_per_buffer_values, report_overlay_modification)
(mmap_realloc, init_buffer_once): Likewise.
* callint.c (Fcall_interactively): Likewise.
* callproc.c (Fcall_process, Fcall_process_region, child_setup)
(getenv_internal_1): Likewise.
* casefiddle.c (casify_object): Likewise.
* ccl.c (ccl_driver): Likewise.
* character.c (str_as_multibyte, str_to_multibyte): Likewise.
* charset.c (load_charset_map_from_file)
(load_charset_map_from_file, load_charset_map_from_vector)
(Fdefine_charset_internal): Likewise.
* cm.c (Wcm_clear): Likewise.
* coding.c (decode_eol, decode_coding_object)
(Fset_coding_system_priority, make_subsidiaries): Likewise.
* data.c (Faset): Likewise.
* dired.c (directory_files_internal, file_name_completion_stat):
Likewise.
* dispnew.c (new_glyph_matrix, adjust_glyph_matrix)
(clear_glyph_row, copy_row_except_pointers)
(copy_glyph_row_contents, new_glyph_pool, realloc_glyph_pool)
(save_current_matrix, restore_current_matrix)
(build_frame_matrix_from_leaf_window, mirrored_line_dance)
(mirror_line_dance, scrolling_window): Likewise.
* doc.c (Fsnarf_documentation, Fsubstitute_command_keys):
Likewise.
* doprnt.c (doprnt): Likewise.
* editfns.c (Fuser_full_name, make_buffer_string_both)
(Fmessage_box, Fformat, Ftranspose_regions): Likewise.
* emacs.c (sort_args): Likewise.
* eval.c (Fapply, Ffuncall): Likewise.
* fileio.c (Ffile_name_directory, make_temp_name)
(Fexpand_file_name, search_embedded_absfilename)
(Fsubstitute_in_file_name, Ffile_symlink_p, Finsert_file_contents)
(auto_save_error): Likewise.
* fns.c (Fstring_equal, Fcopy_sequence, concat)
(string_to_multibyte, Fstring_as_unibyte, Fstring_as_multibyte)
(internal_equal, Fclear_string, larger_vector, copy_hash_table)
(Fmake_hash_table): Likewise.
* fringe.c (Fdefine_fringe_bitmap): Likewise.
* ftfont.c (ftfont_text_extents): Likewise.
* getloadavg.c (getloadavg): Likewise.
* image.c (define_image_type, make_image, make_image_cache)
(x_create_x_image_and_pixmap, xbm_image_p)
(w32_create_pixmap_from_bitmap_data, xbm_load, xpm_lookup_color)
(xpm_image_p, x_create_bitmap_from_xpm_data, xpm_load)
(init_color_table, x_build_heuristic_mask, pbm_image_p, pbm_load)
(png_image_p, png_read_from_memory, png_load, jpeg_image_p)
(tiff_image_p, tiff_read_from_memory, gif_image_p)
(gif_read_from_memory, gif_load, svg_image_p, gs_image_p):
Likewise.
* indent.c (scan_for_column, compute_motion): Likewise.
* insdel.c (gap_left, gap_right, make_gap_smaller, copy_text)
(insert_1_both, insert_from_gap, replace_range_2): Likewise.
* intervals.c (reproduce_tree, reproduce_tree_obj): Likewise.
* keyboard.c (echo_char, save_getcjmp, restore_getcjmp)
(kbd_buffer_store_event_hold, apply_modifiers_uncached)
(store_user_signal_events, menu_bar_items, tool_bar_items)
(process_tool_bar_item, append_tool_bar_item)
(read_char_minibuf_menu_prompt, read_key_sequence)
(Fread_key_sequence, Fread_key_sequence_vector, Frecent_keys):
Likewise.
* keymap.c (current_minor_maps, Fdescribe_buffer_bindings):
Likewise.
* lisp.h (STRING_COPYIN): Likewise.
* lread.c (Fload, read1, oblookup): Likewise.
* msdos.c (Frecent_doskeys): Likewise.
* nsfns.m (Fx_create_frame): Likewise.
* nsfont.m (nsfont_open, nsfont_text_extents, ns_glyph_metrics):
Likewise.
* nsimage.m (EmacsImage-initFromSkipXBM:width:height:)
(EmacsImage-initForXPMWithDepth:width:height:flip:length:):
Likewise.
* nsmenu.m (ns_update_menubar): Likewise.
* nsterm.m (ns_draw_fringe_bitmap, ns_term_init): Likewise.
* print.c (print_unwind, printchar, strout, print_string)
(print_error_message): Likewise.
* process.c (conv_lisp_to_sockaddr, set_socket_option)
(Fmake_network_process, Fnetwork_interface_list)
(Fnetwork_interface_info, read_process_output, Fprocess_send_eof)
(init_process): Likewise.
* ralloc.c (resize_bloc, r_alloc_sbrk, r_alloc_init): Likewise.
* regex.c (init_syntax_once, regex_compile, re_compile_fastmap):
Likewise.
* scroll.c (do_scrolling, do_direct_scrolling)
(scrolling_max_lines_saved): Likewise.
* search.c (search_buffer, wordify, Freplace_match): Likewise.
* sound.c (wav_init, au_init, Fplay_sound_internal): Likewise.
* syntax.c (skip_chars, skip_syntaxes): Likewise.
* sysdep.c (child_setup_tty, sys_subshell, emacs_get_tty)
(emacs_set_tty): Likewise.
* term.c (encode_terminal_code, calculate_costs)
(produce_special_glyphs, create_tty_output, init_tty, delete_tty):
Likewise.
* termcap.c (tgetst1, gobble_line): Likewise.
* termhooks.h (EVENT_INIT): Likewise.
* tparam.c (tparam1): Likewise.
* unexalpha.c (unexec): Likewise.
* unexec.c (write_segment): Likewise.
* unexmacosx.c (unexec_write_zero): Likewise.
* w32fns.c (w32_wnd_proc, Fx_create_frame, x_create_tip_frame)
(Fx_file_dialog, Fsystem_move_file_to_trash): Likewise.
* w32font.c (w32font_list_family, w32font_text_extents)
(w32font_list_internal, w32font_match_internal)
(w32font_open_internal, compute_metrics, Fx_select_font):
Likewise.
* w32menu.c (set_frame_menubar, add_menu_item)
(w32_menu_display_help, w32_free_submenu_strings): Likewise.
* w32term.c (XCreateGC, w32_initialize_display_info): Likewise.
* w32uniscribe.c (uniscribe_list_family): Likewise.
* w32xfns.c (get_next_msg, post_msg, prepend_msg): Likewise.
* window.c (make_window, replace_window, set_window_buffer)
(Fsplit_window): Likewise.
* xdisp.c (init_iterator, RECORD_OVERLAY_STRING, reseat_to_string)
(add_to_log, message3, x_consider_frame_title)
(append_space_for_newline, extend_face_to_end_of_line)
(decode_mode_spec_coding, init_glyph_string): Likewise.
* xfaces.c (x_create_gc, get_lface_attributes_no_remap)
(Finternal_copy_lisp_face, Finternal_merge_in_global_face)
(face_attr_equal_p, make_realized_face, make_face_cache)
(free_realized_faces, lookup_named_face, smaller_face)
(face_with_height, lookup_derived_face)
(x_supports_face_attributes_p, Finternal_set_font_selection_order)
(Finternal_set_font_selection_order, realize_default_face)
(compute_char_face, face_at_buffer_position)
(face_for_overlay_string, face_at_string_position, merge_faces):
Likewise.
* xfns.c (xic_create_fontsetname, Fx_create_frame)
(Fx_window_property, x_create_tip_frame)
(Fx_backspace_delete_keys_p): Likewise.
* xfont.c (xfont_list, xfont_match, xfont_list_family)
(xfont_text_extents): Likewise.
* xmenu.c (set_frame_menubar, xmenu_show): Likewise.
* xrdb.c (magic_file_p, x_get_resource): Likewise.
* xselect.c (x_queue_event, x_get_window_property)
(receive_incremental_selection): Likewise.
* xsmfns.c (x_session_check_input): Likewise.
* xterm.c (x_send_scroll_bar_event, SET_SAVED_MENU_EVENT)
(handle_one_xevent, x_check_errors, xim_initialize, x_term_init):
Likewise.
* character.h (BCOPY_SHORT): Removed.
* config.in: Regenerate.
* dispnew.c (safe_bcopy): Only define as dummy if PROFILING.
* emacs.c (main) [PROFILING]: Don't declare
dump_opcode_frequencies.
* lisp.h (safe_bcopy): Remove declaration.
(memset) [!HAVE_MEMSET]: Declare.
(memcpy) [!HAVE_MEMCPY]: Likewise.
(memmove) [!HAVE_MEMMOVE]: Likewise.
(memcmp) [!HAVE_MEMCMP]: Likewise.
* s/ms-w32.h (bzero, bcopy, bcmp, GAP_USE_BCOPY)
(BCOPY_UPWARD_SAFE, BCOPY_DOWNWARD_SAFE, HAVE_BCOPY, HAVE_BCMP):
Don't define.
(HAVE_MEMCMP, HAVE_MEMCPY, HAVE_MEMMOVE, HAVE_MEMSET): Define.
* s/msdos.h (GAP_USE_BCOPY, BCOPY_UPWARD_SAFE)
(BCOPY_DOWNWARD_SAFE): Don't define.
* sysdep.c (memset) [!HAVE_MEMSET]: Define.
(memcpy) [!HAVE_MEMCPY]: Define.
(memmove) [!HAVE_MEMMOVE]: Define.
(memcmp) [!HAVE_MEMCMP]: Define.
* config.nt (HAVE_BCOPY, HAVE_BCMP): Remove undefs.
(HAVE_MEMCPY, HAVE_MEMMOVE, HAVE_MEMSET, HAVE_MEMCMP): Add undefs.
* sed2v2.inp (HAVE_MEMCPY, HAVE_MEMSET): Edit to 1.
(HAVE_BZERO): Don't edit.
* lwlib.c (lwlib_memset, lwlib_bcopy): Remove.
(malloc_widget_value, free_widget_info, allocate_widget_instance)
(lw_separator_p): Replace lwlib_memset, lwlib_bcopy, bzero, bcmp by
memset, memcpy, memcmp.
* lwlib-utils.c (XtApplyToWidgets): Likewise.
* xlwmenu.c (XlwMenuInitialize): Likewise.
* lwlib.h (lwlib_bcopy): Remove declaration.
* ebrowse.c (add_sym, make_namespace): Replace bcopy, bzero by
memcpy, memmove, memset.
* pop.c (pop_retrieve, socket_connection, pop_getline): Likewise.
* CPP-DEFINES (BCOPY_DOWNWARD_SAFE, BCOPY_UPWARD_SAFE)
(GAP_USE_BCOPY, HAVE_BCMP, HAVE_BCOPY, bcmp, bcopy, bzero):
Remove.
* configure.in: Don't check for bcopy, bcmp, bzero. Don't include
<strings.h> and don't define bcopy, bzero, BCMP in config.h.
author | Andreas Schwab <schwab@linux-m68k.org> |
---|---|
date | Thu, 08 Jul 2010 00:18:28 +0200 |
parents | aec1143e8d85 |
children | 8cfee7d2955f |
rev | line source |
---|---|
296 | 1 /* Synchronous subprocess invocation for GNU Emacs. |
60891
8881d5e2d23f
(Vdoc_file_name, Vfile_name_coding_system)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57892
diff
changeset
|
2 Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994, 1995, 1999, 2000, 2001, |
106815 | 3 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 |
79759 | 4 Free Software Foundation, Inc. |
296 | 5 |
6 This file is part of GNU Emacs. | |
7 | |
94963
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
91551
diff
changeset
|
8 GNU Emacs is free software: you can redistribute it and/or modify |
296 | 9 it under the terms of the GNU General Public License as published by |
94963
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
91551
diff
changeset
|
10 the Free Software Foundation, either version 3 of the License, or |
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
91551
diff
changeset
|
11 (at your option) any later version. |
296 | 12 |
13 GNU Emacs is distributed in the hope that it will be useful, | |
14 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
16 GNU General Public License for more details. | |
17 | |
18 You should have received a copy of the GNU General Public License | |
94963
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
91551
diff
changeset
|
19 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ |
296 | 20 |
21 | |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
22 #include <config.h> |
296 | 23 #include <signal.h> |
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
24 #include <errno.h> |
7900
60795e826dad
Put stdio.h after config.h.
Richard M. Stallman <rms@gnu.org>
parents:
7824
diff
changeset
|
25 #include <stdio.h> |
105669
68dd71358159
* alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104623
diff
changeset
|
26 #include <setjmp.h> |
296 | 27 |
28 /* Define SIGCHLD as an alias for SIGCLD. */ | |
29 | |
30 #if !defined (SIGCHLD) && defined (SIGCLD) | |
31 #define SIGCHLD SIGCLD | |
32 #endif /* SIGCLD */ | |
33 | |
34 #include <sys/types.h> | |
3932
9a411d86ca72
(PRIO_PROCESS): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
3826
diff
changeset
|
35 |
25767
30ffae737755
(toplevel) [HAVE_UNISTD_H]: Include unistd.h.
Gerd Moellmann <gerd@gnu.org>
parents:
25645
diff
changeset
|
36 #ifdef HAVE_UNISTD_H |
30ffae737755
(toplevel) [HAVE_UNISTD_H]: Include unistd.h.
Gerd Moellmann <gerd@gnu.org>
parents:
25645
diff
changeset
|
37 #include <unistd.h> |
30ffae737755
(toplevel) [HAVE_UNISTD_H]: Include unistd.h.
Gerd Moellmann <gerd@gnu.org>
parents:
25645
diff
changeset
|
38 #endif |
30ffae737755
(toplevel) [HAVE_UNISTD_H]: Include unistd.h.
Gerd Moellmann <gerd@gnu.org>
parents:
25645
diff
changeset
|
39 |
296 | 40 #include <sys/file.h> |
51403 | 41 #ifdef HAVE_FCNTL_H |
296 | 42 #include <fcntl.h> |
43 #endif | |
44 | |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
45 #ifdef WINDOWSNT |
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
46 #define NOMINMAX |
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
47 #include <windows.h> |
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
48 #include <stdlib.h> /* for proper declaration of environ */ |
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
49 #include <fcntl.h> |
16593
4ed80eda6fac
Use new names for w32 files
Geoff Voelker <voelker@cs.washington.edu>
parents:
16486
diff
changeset
|
50 #include "w32.h" |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
51 #define _P_NOWAIT 1 /* from process.h */ |
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
52 #endif |
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
53 |
5501
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
54 #ifdef MSDOS /* Demacs 1.1.1 91/10/16 HIRANO Satoshi */ |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
55 #include <fcntl.h> |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
56 #include <sys/stat.h> |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
57 #include <sys/param.h> |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
58 #endif /* MSDOS */ |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
59 |
296 | 60 #ifndef O_RDONLY |
61 #define O_RDONLY 0 | |
62 #endif | |
63 | |
64 #ifndef O_WRONLY | |
65 #define O_WRONLY 1 | |
66 #endif | |
67 | |
68 #include "lisp.h" | |
69 #include "commands.h" | |
70 #include "buffer.h" | |
88356
5ace79aaf5ad
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
41861
diff
changeset
|
71 #include "character.h" |
23885 | 72 #include "ccl.h" |
17025
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
73 #include "coding.h" |
29273 | 74 #include "composite.h" |
24412
d11ac02f9d6a
Use epaths.h istead of paths.h.
Richard M. Stallman <rms@gnu.org>
parents:
23885
diff
changeset
|
75 #include <epaths.h> |
296 | 76 #include "process.h" |
1504
e074a2236b00
* callproc.c: Arrange for synchronous processes to get SIGINT the
Jim Blandy <jimb@redhat.com>
parents:
1201
diff
changeset
|
77 #include "syssignal.h" |
5348 | 78 #include "systty.h" |
57892 | 79 #include "blockinput.h" |
83421
bb2edc915032
Implement automatic terminal-local environment variables via `local-environment-variables'.
Karoly Lorentey <lorentey@elte.hu>
parents:
64770
diff
changeset
|
80 #include "frame.h" |
bb2edc915032
Implement automatic terminal-local environment variables via `local-environment-variables'.
Karoly Lorentey <lorentey@elte.hu>
parents:
64770
diff
changeset
|
81 #include "termhooks.h" |
296 | 82 |
21786
5f8f1b124f45
nclude msdos.h after lisp.h.
Eli Zaretskii <eliz@gnu.org>
parents:
21694
diff
changeset
|
83 #ifdef MSDOS |
5f8f1b124f45
nclude msdos.h after lisp.h.
Eli Zaretskii <eliz@gnu.org>
parents:
21694
diff
changeset
|
84 #include "msdos.h" |
5f8f1b124f45
nclude msdos.h after lisp.h.
Eli Zaretskii <eliz@gnu.org>
parents:
21694
diff
changeset
|
85 #endif |
5f8f1b124f45
nclude msdos.h after lisp.h.
Eli Zaretskii <eliz@gnu.org>
parents:
21694
diff
changeset
|
86 |
31100
92f108b8b281
[USE_CRT_DLL]: Remove unnecessary extern, which
Andrew Innes <andrewi@gnu.org>
parents:
30703
diff
changeset
|
87 #ifndef USE_CRT_DLL |
296 | 88 extern char **environ; |
89 #endif | |
90 | |
29125
63520d6017fb
(setpgrp) [HAVE_SETPGID]: Define as setpgid.
Gerd Moellmann <gerd@gnu.org>
parents:
29000
diff
changeset
|
91 #ifdef HAVE_SETPGID |
108235 | 92 #if !defined (USG) |
29905
ca781f54ac48
(setpgrp): Undefine before defining.
Dave Love <fx@gnu.org>
parents:
29287
diff
changeset
|
93 #undef setpgrp |
29125
63520d6017fb
(setpgrp) [HAVE_SETPGID]: Define as setpgid.
Gerd Moellmann <gerd@gnu.org>
parents:
29000
diff
changeset
|
94 #define setpgrp setpgid |
63520d6017fb
(setpgrp) [HAVE_SETPGID]: Define as setpgid.
Gerd Moellmann <gerd@gnu.org>
parents:
29000
diff
changeset
|
95 #endif |
29150
0398ec3316c5
(setpgrp): Don't define if USG and BSD_PGRPS are not defined.
Gerd Moellmann <gerd@gnu.org>
parents:
29125
diff
changeset
|
96 #endif |
29125
63520d6017fb
(setpgrp) [HAVE_SETPGID]: Define as setpgid.
Gerd Moellmann <gerd@gnu.org>
parents:
29000
diff
changeset
|
97 |
39811
9f7e72fba3d2
(Vexec_suffixes): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39535
diff
changeset
|
98 Lisp_Object Vexec_path, Vexec_directory, Vexec_suffixes; |
9f7e72fba3d2
(Vexec_suffixes): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39535
diff
changeset
|
99 Lisp_Object Vdata_directory, Vdoc_directory; |
45092
7f1d09693ef3
(Vgame_score_directory): Renamed to Vshared_game_score_directory.
Colin Walters <walters@gnu.org>
parents:
45002
diff
changeset
|
100 Lisp_Object Vconfigure_info_directory, Vshared_game_score_directory; |
101664
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
101 |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
102 /* Pattern used by call-process-region to make temp files. */ |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
103 static Lisp_Object Vtemp_file_name_pattern; |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
104 |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
105 extern Lisp_Object Vtemporary_file_directory; |
296 | 106 |
107 Lisp_Object Vshell_file_name; | |
108 | |
83796
e7303426ed25
(Vinitial_environment): New variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
83652
diff
changeset
|
109 Lisp_Object Vprocess_environment, Vinitial_environment; |
296 | 110 |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
111 #ifdef DOS_NT |
7397
e0ffa47f2ed4
[MSDOS]: Rename Vbinary_process to Vbinary_process_output.
Richard M. Stallman <rms@gnu.org>
parents:
7161
diff
changeset
|
112 Lisp_Object Qbuffer_file_type; |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
113 #endif /* DOS_NT */ |
7397
e0ffa47f2ed4
[MSDOS]: Rename Vbinary_process to Vbinary_process_output.
Richard M. Stallman <rms@gnu.org>
parents:
7161
diff
changeset
|
114 |
78501 | 115 /* True if we are about to fork off a synchronous process or if we |
296 | 116 are waiting for it. */ |
117 int synch_process_alive; | |
118 | |
119 /* Nonzero => this is a string explaining death of synchronous subprocess. */ | |
120 char *synch_process_death; | |
121 | |
53712
659b9b404c02
Define synch_process_termsig.
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
122 /* Nonzero => this is the signal number that terminated the subprocess. */ |
659b9b404c02
Define synch_process_termsig.
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
123 int synch_process_termsig; |
659b9b404c02
Define synch_process_termsig.
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
124 |
296 | 125 /* If synch_process_death is zero, |
126 this is exit code of synchronous subprocess. */ | |
127 int synch_process_retcode; | |
83421
bb2edc915032
Implement automatic terminal-local environment variables via `local-environment-variables'.
Karoly Lorentey <lorentey@elte.hu>
parents:
64770
diff
changeset
|
128 |
296 | 129 |
6275
132464faeaf4
Don't kill remaining processes if child exits.
Richard M. Stallman <rms@gnu.org>
parents:
6031
diff
changeset
|
130 /* Clean up when exiting Fcall_process. |
132464faeaf4
Don't kill remaining processes if child exits.
Richard M. Stallman <rms@gnu.org>
parents:
6031
diff
changeset
|
131 On MSDOS, delete the temporary file on any kind of termination. |
132464faeaf4
Don't kill remaining processes if child exits.
Richard M. Stallman <rms@gnu.org>
parents:
6031
diff
changeset
|
132 On Unix, kill the process and any children on termination by signal. */ |
132464faeaf4
Don't kill remaining processes if child exits.
Richard M. Stallman <rms@gnu.org>
parents:
6031
diff
changeset
|
133 |
132464faeaf4
Don't kill remaining processes if child exits.
Richard M. Stallman <rms@gnu.org>
parents:
6031
diff
changeset
|
134 /* Nonzero if this is termination due to exit. */ |
132464faeaf4
Don't kill remaining processes if child exits.
Richard M. Stallman <rms@gnu.org>
parents:
6031
diff
changeset
|
135 static int call_process_exited; |
132464faeaf4
Don't kill remaining processes if child exits.
Richard M. Stallman <rms@gnu.org>
parents:
6031
diff
changeset
|
136 |
84740
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
137 EXFUN (Fgetenv_internal, 2); |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
138 |
1504
e074a2236b00
* callproc.c: Arrange for synchronous processes to get SIGINT the
Jim Blandy <jimb@redhat.com>
parents:
1201
diff
changeset
|
139 static Lisp_Object |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109087
diff
changeset
|
140 call_process_kill (Lisp_Object fdpid) |
1504
e074a2236b00
* callproc.c: Arrange for synchronous processes to get SIGINT the
Jim Blandy <jimb@redhat.com>
parents:
1201
diff
changeset
|
141 { |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
142 emacs_close (XFASTINT (Fcar (fdpid))); |
1504
e074a2236b00
* callproc.c: Arrange for synchronous processes to get SIGINT the
Jim Blandy <jimb@redhat.com>
parents:
1201
diff
changeset
|
143 EMACS_KILLPG (XFASTINT (Fcdr (fdpid)), SIGKILL); |
e074a2236b00
* callproc.c: Arrange for synchronous processes to get SIGINT the
Jim Blandy <jimb@redhat.com>
parents:
1201
diff
changeset
|
144 synch_process_alive = 0; |
e074a2236b00
* callproc.c: Arrange for synchronous processes to get SIGINT the
Jim Blandy <jimb@redhat.com>
parents:
1201
diff
changeset
|
145 return Qnil; |
e074a2236b00
* callproc.c: Arrange for synchronous processes to get SIGINT the
Jim Blandy <jimb@redhat.com>
parents:
1201
diff
changeset
|
146 } |
e074a2236b00
* callproc.c: Arrange for synchronous processes to get SIGINT the
Jim Blandy <jimb@redhat.com>
parents:
1201
diff
changeset
|
147 |
296 | 148 Lisp_Object |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109087
diff
changeset
|
149 call_process_cleanup (Lisp_Object arg) |
296 | 150 { |
103111
138b39938198
(Fcall_process): Fix GC protection. Make sure
Andreas Schwab <schwab@linux-m68k.org>
parents:
102360
diff
changeset
|
151 Lisp_Object fdpid = Fcdr (arg); |
138b39938198
(Fcall_process): Fix GC protection. Make sure
Andreas Schwab <schwab@linux-m68k.org>
parents:
102360
diff
changeset
|
152 #if defined (MSDOS) |
138b39938198
(Fcall_process): Fix GC protection. Make sure
Andreas Schwab <schwab@linux-m68k.org>
parents:
102360
diff
changeset
|
153 Lisp_Object file; |
138b39938198
(Fcall_process): Fix GC protection. Make sure
Andreas Schwab <schwab@linux-m68k.org>
parents:
102360
diff
changeset
|
154 #else |
138b39938198
(Fcall_process): Fix GC protection. Make sure
Andreas Schwab <schwab@linux-m68k.org>
parents:
102360
diff
changeset
|
155 int pid; |
138b39938198
(Fcall_process): Fix GC protection. Make sure
Andreas Schwab <schwab@linux-m68k.org>
parents:
102360
diff
changeset
|
156 #endif |
138b39938198
(Fcall_process): Fix GC protection. Make sure
Andreas Schwab <schwab@linux-m68k.org>
parents:
102360
diff
changeset
|
157 |
138b39938198
(Fcall_process): Fix GC protection. Make sure
Andreas Schwab <schwab@linux-m68k.org>
parents:
102360
diff
changeset
|
158 Fset_buffer (Fcar (arg)); |
138b39938198
(Fcall_process): Fix GC protection. Make sure
Andreas Schwab <schwab@linux-m68k.org>
parents:
102360
diff
changeset
|
159 |
87730 | 160 #if defined (MSDOS) |
5501
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
161 /* for MSDOS fdpid is really (fd . tempfile) */ |
6495
c88f34090aea
(call_process_cleanup, getenv_internal): Use assignment, not initialization.
Karl Heuer <kwzh@gnu.org>
parents:
6466
diff
changeset
|
162 file = Fcdr (fdpid); |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
163 emacs_close (XFASTINT (Fcar (fdpid))); |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
164 if (strcmp (SDATA (file), NULL_DEVICE) != 0) |
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
165 unlink (SDATA (file)); |
87730 | 166 #else /* not MSDOS */ |
103111
138b39938198
(Fcall_process): Fix GC protection. Make sure
Andreas Schwab <schwab@linux-m68k.org>
parents:
102360
diff
changeset
|
167 pid = XFASTINT (Fcdr (fdpid)); |
1504
e074a2236b00
* callproc.c: Arrange for synchronous processes to get SIGINT the
Jim Blandy <jimb@redhat.com>
parents:
1201
diff
changeset
|
168 |
6275
132464faeaf4
Don't kill remaining processes if child exits.
Richard M. Stallman <rms@gnu.org>
parents:
6031
diff
changeset
|
169 if (call_process_exited) |
6466
4b3c537e1169
(Fcall_process): Make sure to close descriptors.
Richard M. Stallman <rms@gnu.org>
parents:
6391
diff
changeset
|
170 { |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
171 emacs_close (XFASTINT (Fcar (fdpid))); |
6466
4b3c537e1169
(Fcall_process): Make sure to close descriptors.
Richard M. Stallman <rms@gnu.org>
parents:
6391
diff
changeset
|
172 return Qnil; |
4b3c537e1169
(Fcall_process): Make sure to close descriptors.
Richard M. Stallman <rms@gnu.org>
parents:
6391
diff
changeset
|
173 } |
6275
132464faeaf4
Don't kill remaining processes if child exits.
Richard M. Stallman <rms@gnu.org>
parents:
6031
diff
changeset
|
174 |
1504
e074a2236b00
* callproc.c: Arrange for synchronous processes to get SIGINT the
Jim Blandy <jimb@redhat.com>
parents:
1201
diff
changeset
|
175 if (EMACS_KILLPG (pid, SIGINT) == 0) |
e074a2236b00
* callproc.c: Arrange for synchronous processes to get SIGINT the
Jim Blandy <jimb@redhat.com>
parents:
1201
diff
changeset
|
176 { |
46293
1fb8f75062c6
Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents:
46260
diff
changeset
|
177 int count = SPECPDL_INDEX (); |
1504
e074a2236b00
* callproc.c: Arrange for synchronous processes to get SIGINT the
Jim Blandy <jimb@redhat.com>
parents:
1201
diff
changeset
|
178 record_unwind_protect (call_process_kill, fdpid); |
e074a2236b00
* callproc.c: Arrange for synchronous processes to get SIGINT the
Jim Blandy <jimb@redhat.com>
parents:
1201
diff
changeset
|
179 message1 ("Waiting for process to die...(type C-g again to kill it instantly)"); |
e074a2236b00
* callproc.c: Arrange for synchronous processes to get SIGINT the
Jim Blandy <jimb@redhat.com>
parents:
1201
diff
changeset
|
180 immediate_quit = 1; |
e074a2236b00
* callproc.c: Arrange for synchronous processes to get SIGINT the
Jim Blandy <jimb@redhat.com>
parents:
1201
diff
changeset
|
181 QUIT; |
e074a2236b00
* callproc.c: Arrange for synchronous processes to get SIGINT the
Jim Blandy <jimb@redhat.com>
parents:
1201
diff
changeset
|
182 wait_for_termination (pid); |
e074a2236b00
* callproc.c: Arrange for synchronous processes to get SIGINT the
Jim Blandy <jimb@redhat.com>
parents:
1201
diff
changeset
|
183 immediate_quit = 0; |
e074a2236b00
* callproc.c: Arrange for synchronous processes to get SIGINT the
Jim Blandy <jimb@redhat.com>
parents:
1201
diff
changeset
|
184 specpdl_ptr = specpdl + count; /* Discard the unwind protect. */ |
e074a2236b00
* callproc.c: Arrange for synchronous processes to get SIGINT the
Jim Blandy <jimb@redhat.com>
parents:
1201
diff
changeset
|
185 message1 ("Waiting for process to die...done"); |
e074a2236b00
* callproc.c: Arrange for synchronous processes to get SIGINT the
Jim Blandy <jimb@redhat.com>
parents:
1201
diff
changeset
|
186 } |
296 | 187 synch_process_alive = 0; |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
188 emacs_close (XFASTINT (Fcar (fdpid))); |
5501
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
189 #endif /* not MSDOS */ |
296 | 190 return Qnil; |
191 } | |
192 | |
193 DEFUN ("call-process", Fcall_process, Scall_process, 1, MANY, 0, | |
40103
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
194 doc: /* Call PROGRAM synchronously in separate process. |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
195 The remaining arguments are optional. |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
196 The program's input comes from file INFILE (nil means `/dev/null'). |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
197 Insert output in BUFFER before point; t means current buffer; |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
198 nil for BUFFER means discard it; 0 means discard and don't wait. |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
199 BUFFER can also have the form (REAL-BUFFER STDERR-FILE); in that case, |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
200 REAL-BUFFER says what to do with standard output, as above, |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
201 while STDERR-FILE says what to do with standard error in the child. |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
202 STDERR-FILE may be nil (discard standard error output), |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
203 t (mix it with ordinary output), or a file name string. |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
204 |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
205 Fourth arg DISPLAY non-nil means redisplay buffer as output is inserted. |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
206 Remaining arguments are strings passed as command arguments to PROGRAM. |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
207 |
71340
5de9b904c7ad
(Fcall_process): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
70705
diff
changeset
|
208 If executable PROGRAM can't be found as an executable, `call-process' |
5de9b904c7ad
(Fcall_process): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
70705
diff
changeset
|
209 signals a Lisp error. `call-process' reports errors in execution of |
5de9b904c7ad
(Fcall_process): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
70705
diff
changeset
|
210 the program only through its return and output. |
5de9b904c7ad
(Fcall_process): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
70705
diff
changeset
|
211 |
40103
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
212 If BUFFER is 0, `call-process' returns immediately with value nil. |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
213 Otherwise it waits for PROGRAM to terminate |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
214 and returns a numeric exit status or a signal description string. |
40114
c8af574bcf48
(Fcall_process_region, Fcall_process): Add usage: string to doc string.
Miles Bader <miles@gnu.org>
parents:
40103
diff
changeset
|
215 If you quit, the process is killed with SIGINT, or SIGKILL if you quit again. |
c8af574bcf48
(Fcall_process_region, Fcall_process): Add usage: string to doc string.
Miles Bader <miles@gnu.org>
parents:
40103
diff
changeset
|
216 |
c8af574bcf48
(Fcall_process_region, Fcall_process): Add usage: string to doc string.
Miles Bader <miles@gnu.org>
parents:
40103
diff
changeset
|
217 usage: (call-process PROGRAM &optional INFILE BUFFER DISPLAY &rest ARGS) */) |
40103
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
218 (nargs, args) |
296 | 219 int nargs; |
220 register Lisp_Object *args; | |
221 { | |
57473
fb60234070b0
(Fcall_process): Simplify handling of display arg.
Kim F. Storm <storm@cua.dk>
parents:
57290
diff
changeset
|
222 Lisp_Object infile, buffer, current_dir, path; |
fb60234070b0
(Fcall_process): Simplify handling of display arg.
Kim F. Storm <storm@cua.dk>
parents:
57290
diff
changeset
|
223 int display_p; |
296 | 224 int fd[2]; |
225 int filefd; | |
226 register int pid; | |
62982
d7793ac6df62
(Fcall_process): Don't use alloca to gradually
Kim F. Storm <storm@cua.dk>
parents:
60891
diff
changeset
|
227 #define CALLPROC_BUFFER_SIZE_MIN (16 * 1024) |
d7793ac6df62
(Fcall_process): Don't use alloca to gradually
Kim F. Storm <storm@cua.dk>
parents:
60891
diff
changeset
|
228 #define CALLPROC_BUFFER_SIZE_MAX (4 * CALLPROC_BUFFER_SIZE_MIN) |
d7793ac6df62
(Fcall_process): Don't use alloca to gradually
Kim F. Storm <storm@cua.dk>
parents:
60891
diff
changeset
|
229 char buf[CALLPROC_BUFFER_SIZE_MAX]; |
d7793ac6df62
(Fcall_process): Don't use alloca to gradually
Kim F. Storm <storm@cua.dk>
parents:
60891
diff
changeset
|
230 int bufsize = CALLPROC_BUFFER_SIZE_MIN; |
46293
1fb8f75062c6
Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents:
46260
diff
changeset
|
231 int count = SPECPDL_INDEX (); |
20525
468f59c6c9bf
(Fcall_process): Cast new_argv for child_setup.
Richard M. Stallman <rms@gnu.org>
parents:
20448
diff
changeset
|
232 |
98089
4ea0f5996bd5
(Fcall_process): Don't hold references to string data
Andreas Schwab <schwab@suse.de>
parents:
98083
diff
changeset
|
233 register const unsigned char **new_argv; |
10839
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
234 /* File to use for stderr in the child. |
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
235 t means use same as standard output. */ |
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
236 Lisp_Object error_file; |
5501
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
237 #ifdef MSDOS /* Demacs 1.1.1 91/10/16 HIRANO Satoshi */ |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
238 char *outf, *tempfile; |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
239 int outfilefd; |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
240 #endif |
17025
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
241 struct coding_system process_coding; /* coding-system of process output */ |
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
242 struct coding_system argument_coding; /* coding-system of arguments */ |
24931
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
243 /* Set to the return value of Ffind_operation_coding_system. */ |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
244 Lisp_Object coding_systems; |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
245 |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
246 /* Qt denotes that Ffind_operation_coding_system is not yet called. */ |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
247 coding_systems = Qt; |
17025
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
248 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40114
diff
changeset
|
249 CHECK_STRING (args[0]); |
296 | 250 |
10839
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
251 error_file = Qt; |
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
252 |
5501
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
253 #ifndef subprocesses |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
254 /* Without asynchronous processes we cannot have BUFFER == 0. */ |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
47018
diff
changeset
|
255 if (nargs >= 3 |
22639
8177901b437a
(Fcall_process) [! subprocesses]: Balance parentheses in an if clause.
Eli Zaretskii <eliz@gnu.org>
parents:
22550
diff
changeset
|
256 && (INTEGERP (CONSP (args[2]) ? XCAR (args[2]) : args[2]))) |
5501
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
257 error ("Operating system cannot handle asynchronous subprocesses"); |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
258 #endif /* subprocesses */ |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
259 |
24931
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
260 /* Decide the coding-system for giving arguments. */ |
17025
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
261 { |
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
262 Lisp_Object val, *args2; |
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
263 int i; |
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
264 |
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
265 /* If arguments are supplied, we may have to encode them. */ |
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
266 if (nargs >= 5) |
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
267 { |
20595
7d5ca0b58282
(Fcall_process): When deciding whether to encode args,
Richard M. Stallman <rms@gnu.org>
parents:
20525
diff
changeset
|
268 int must_encode = 0; |
90434
8c71fed372cf
(Fcall_process): Sync with HEAD.
Kenichi Handa <handa@m17n.org>
parents:
90393
diff
changeset
|
269 Lisp_Object coding_attrs; |
20595
7d5ca0b58282
(Fcall_process): When deciding whether to encode args,
Richard M. Stallman <rms@gnu.org>
parents:
20525
diff
changeset
|
270 |
20789
140b6fdd53d0
(Fcall_process): Test only args past args[4] for multibyteness.
Richard M. Stallman <rms@gnu.org>
parents:
20724
diff
changeset
|
271 for (i = 4; i < nargs; i++) |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40114
diff
changeset
|
272 CHECK_STRING (args[i]); |
22940
3cfe86230c87
(Fcall_process): Check type of process cmd args earlier on.
Richard M. Stallman <rms@gnu.org>
parents:
22792
diff
changeset
|
273 |
3cfe86230c87
(Fcall_process): Check type of process cmd args earlier on.
Richard M. Stallman <rms@gnu.org>
parents:
22792
diff
changeset
|
274 for (i = 4; i < nargs; i++) |
20595
7d5ca0b58282
(Fcall_process): When deciding whether to encode args,
Richard M. Stallman <rms@gnu.org>
parents:
20525
diff
changeset
|
275 if (STRING_MULTIBYTE (args[i])) |
7d5ca0b58282
(Fcall_process): When deciding whether to encode args,
Richard M. Stallman <rms@gnu.org>
parents:
20525
diff
changeset
|
276 must_encode = 1; |
7d5ca0b58282
(Fcall_process): When deciding whether to encode args,
Richard M. Stallman <rms@gnu.org>
parents:
20525
diff
changeset
|
277 |
18651
982814f78d0d
(Fcall_process): If enable-multibyte-characters is
Kenichi Handa <handa@m17n.org>
parents:
18539
diff
changeset
|
278 if (!NILP (Vcoding_system_for_write)) |
982814f78d0d
(Fcall_process): If enable-multibyte-characters is
Kenichi Handa <handa@m17n.org>
parents:
18539
diff
changeset
|
279 val = Vcoding_system_for_write; |
20595
7d5ca0b58282
(Fcall_process): When deciding whether to encode args,
Richard M. Stallman <rms@gnu.org>
parents:
20525
diff
changeset
|
280 else if (! must_encode) |
18651
982814f78d0d
(Fcall_process): If enable-multibyte-characters is
Kenichi Handa <handa@m17n.org>
parents:
18539
diff
changeset
|
281 val = Qnil; |
982814f78d0d
(Fcall_process): If enable-multibyte-characters is
Kenichi Handa <handa@m17n.org>
parents:
18539
diff
changeset
|
282 else |
17025
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
283 { |
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
284 args2 = (Lisp_Object *) alloca ((nargs + 1) * sizeof *args2); |
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
285 args2[0] = Qcall_process; |
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
286 for (i = 0; i < nargs; i++) args2[i + 1] = args[i]; |
18539
8c13c54d52c8
Call Ffind_operation_coding_system.
Kenichi Handa <handa@m17n.org>
parents:
18494
diff
changeset
|
287 coding_systems = Ffind_operation_coding_system (nargs + 1, args2); |
18182
967f92654591
(Fcall_process): Pay attention to
Kenichi Handa <handa@m17n.org>
parents:
17729
diff
changeset
|
288 if (CONSP (coding_systems)) |
25645
a14111a2a100
Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25522
diff
changeset
|
289 val = XCDR (coding_systems); |
18182
967f92654591
(Fcall_process): Pay attention to
Kenichi Handa <handa@m17n.org>
parents:
17729
diff
changeset
|
290 else if (CONSP (Vdefault_process_coding_system)) |
25645
a14111a2a100
Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25522
diff
changeset
|
291 val = XCDR (Vdefault_process_coding_system); |
18651
982814f78d0d
(Fcall_process): If enable-multibyte-characters is
Kenichi Handa <handa@m17n.org>
parents:
18539
diff
changeset
|
292 else |
982814f78d0d
(Fcall_process): If enable-multibyte-characters is
Kenichi Handa <handa@m17n.org>
parents:
18539
diff
changeset
|
293 val = Qnil; |
17025
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
294 } |
90393
6592da24d351
(Fcall_process): Sync with HEAD.
Kenichi Handa <handa@m17n.org>
parents:
90389
diff
changeset
|
295 val = coding_inherit_eol_type (val, Qnil); |
17025
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
296 setup_coding_system (Fcheck_coding_system (val), &argument_coding); |
90434
8c71fed372cf
(Fcall_process): Sync with HEAD.
Kenichi Handa <handa@m17n.org>
parents:
90393
diff
changeset
|
297 coding_attrs = CODING_ID_ATTRS (argument_coding.id); |
8c71fed372cf
(Fcall_process): Sync with HEAD.
Kenichi Handa <handa@m17n.org>
parents:
90393
diff
changeset
|
298 if (NILP (CODING_ATTR_ASCII_COMPAT (coding_attrs))) |
8c71fed372cf
(Fcall_process): Sync with HEAD.
Kenichi Handa <handa@m17n.org>
parents:
90393
diff
changeset
|
299 { |
8c71fed372cf
(Fcall_process): Sync with HEAD.
Kenichi Handa <handa@m17n.org>
parents:
90393
diff
changeset
|
300 /* We should not use an ASCII incompatible coding system. */ |
8c71fed372cf
(Fcall_process): Sync with HEAD.
Kenichi Handa <handa@m17n.org>
parents:
90393
diff
changeset
|
301 val = raw_text_coding_system (val); |
8c71fed372cf
(Fcall_process): Sync with HEAD.
Kenichi Handa <handa@m17n.org>
parents:
90393
diff
changeset
|
302 setup_coding_system (val, &argument_coding); |
8c71fed372cf
(Fcall_process): Sync with HEAD.
Kenichi Handa <handa@m17n.org>
parents:
90393
diff
changeset
|
303 } |
17025
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
304 } |
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
305 } |
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
306 |
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
307 if (nargs >= 2 && ! NILP (args[1])) |
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
308 { |
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
309 infile = Fexpand_file_name (args[1], current_buffer->directory); |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40114
diff
changeset
|
310 CHECK_STRING (infile); |
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
311 } |
296 | 312 else |
2432
17a84e60603b
New macros NULL_DEVICE and EXEC_SUFFIXES, to give the name of the
Jim Blandy <jimb@redhat.com>
parents:
2286
diff
changeset
|
313 infile = build_string (NULL_DEVICE); |
648 | 314 |
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
315 if (nargs >= 3) |
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
316 { |
10839
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
317 buffer = args[2]; |
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
318 |
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
319 /* If BUFFER is a list, its meaning is |
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
320 (BUFFER-FOR-STDOUT FILE-FOR-STDERR). */ |
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
321 if (CONSP (buffer)) |
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
322 { |
25645
a14111a2a100
Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25522
diff
changeset
|
323 if (CONSP (XCDR (buffer))) |
15440
87c6c9287f45
(Fcall_process): Handle t or nil as STDERR_FILE.
Richard M. Stallman <rms@gnu.org>
parents:
15236
diff
changeset
|
324 { |
15473
cdf40972804f
(Fcall_process): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
15440
diff
changeset
|
325 Lisp_Object stderr_file; |
25645
a14111a2a100
Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25522
diff
changeset
|
326 stderr_file = XCAR (XCDR (buffer)); |
15440
87c6c9287f45
(Fcall_process): Handle t or nil as STDERR_FILE.
Richard M. Stallman <rms@gnu.org>
parents:
15236
diff
changeset
|
327 |
87c6c9287f45
(Fcall_process): Handle t or nil as STDERR_FILE.
Richard M. Stallman <rms@gnu.org>
parents:
15236
diff
changeset
|
328 if (NILP (stderr_file) || EQ (Qt, stderr_file)) |
87c6c9287f45
(Fcall_process): Handle t or nil as STDERR_FILE.
Richard M. Stallman <rms@gnu.org>
parents:
15236
diff
changeset
|
329 error_file = stderr_file; |
87c6c9287f45
(Fcall_process): Handle t or nil as STDERR_FILE.
Richard M. Stallman <rms@gnu.org>
parents:
15236
diff
changeset
|
330 else |
87c6c9287f45
(Fcall_process): Handle t or nil as STDERR_FILE.
Richard M. Stallman <rms@gnu.org>
parents:
15236
diff
changeset
|
331 error_file = Fexpand_file_name (stderr_file, Qnil); |
87c6c9287f45
(Fcall_process): Handle t or nil as STDERR_FILE.
Richard M. Stallman <rms@gnu.org>
parents:
15236
diff
changeset
|
332 } |
87c6c9287f45
(Fcall_process): Handle t or nil as STDERR_FILE.
Richard M. Stallman <rms@gnu.org>
parents:
15236
diff
changeset
|
333 |
25645
a14111a2a100
Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25522
diff
changeset
|
334 buffer = XCAR (buffer); |
10839
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
335 } |
296 | 336 |
10839
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
337 if (!(EQ (buffer, Qnil) |
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
338 || EQ (buffer, Qt) |
22550
4ec5c343db1f
(Fcall_process): Handle third argument BUFFER
Richard M. Stallman <rms@gnu.org>
parents:
22373
diff
changeset
|
339 || INTEGERP (buffer))) |
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
340 { |
10839
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
341 Lisp_Object spec_buffer; |
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
342 spec_buffer = buffer; |
20823
146647357199
(Fcall_process): Allow creating a new buffer for the output.
Richard M. Stallman <rms@gnu.org>
parents:
20789
diff
changeset
|
343 buffer = Fget_buffer_create (buffer); |
10839
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
344 /* Mention the buffer name for a better error message. */ |
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
345 if (NILP (buffer)) |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40114
diff
changeset
|
346 CHECK_BUFFER (spec_buffer); |
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40114
diff
changeset
|
347 CHECK_BUFFER (buffer); |
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
348 } |
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
349 } |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
47018
diff
changeset
|
350 else |
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
351 buffer = Qnil; |
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
352 |
1678
62ecf0c5b54c
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1596
diff
changeset
|
353 /* Make sure that the child will be able to chdir to the current |
62ecf0c5b54c
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1596
diff
changeset
|
354 buffer's current directory, or its unhandled equivalent. We |
62ecf0c5b54c
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1596
diff
changeset
|
355 can't just have the child check for an error when it does the |
62ecf0c5b54c
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1596
diff
changeset
|
356 chdir, since it's in a vfork. |
62ecf0c5b54c
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1596
diff
changeset
|
357 |
62ecf0c5b54c
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1596
diff
changeset
|
358 We have to GCPRO around this because Fexpand_file_name, |
62ecf0c5b54c
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1596
diff
changeset
|
359 Funhandled_file_name_directory, and Ffile_accessible_directory_p |
62ecf0c5b54c
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1596
diff
changeset
|
360 might call a file name handling function. The argument list is |
62ecf0c5b54c
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1596
diff
changeset
|
361 protected by the caller, so all we really have to worry about is |
62ecf0c5b54c
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1596
diff
changeset
|
362 buffer. */ |
62ecf0c5b54c
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1596
diff
changeset
|
363 { |
68389
ee72dfb5a3cd
(Fcall_process): GCPRO error_file. Encode infile,
Kenichi Handa <handa@m17n.org>
parents:
67989
diff
changeset
|
364 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4; |
1678
62ecf0c5b54c
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1596
diff
changeset
|
365 |
62ecf0c5b54c
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1596
diff
changeset
|
366 current_dir = current_buffer->directory; |
62ecf0c5b54c
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1596
diff
changeset
|
367 |
68389
ee72dfb5a3cd
(Fcall_process): GCPRO error_file. Encode infile,
Kenichi Handa <handa@m17n.org>
parents:
67989
diff
changeset
|
368 GCPRO4 (infile, buffer, current_dir, error_file); |
1678
62ecf0c5b54c
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1596
diff
changeset
|
369 |
91551
f14242124fd7
* process.c (Fstart_process):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91367
diff
changeset
|
370 current_dir = Funhandled_file_name_directory (current_dir); |
f14242124fd7
* process.c (Fstart_process):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91367
diff
changeset
|
371 if (NILP (current_dir)) |
f14242124fd7
* process.c (Fstart_process):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91367
diff
changeset
|
372 /* If the file name handler says that current_dir is unreachable, use |
f14242124fd7
* process.c (Fstart_process):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91367
diff
changeset
|
373 a sensible default. */ |
f14242124fd7
* process.c (Fstart_process):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91367
diff
changeset
|
374 current_dir = build_string ("~/"); |
f14242124fd7
* process.c (Fstart_process):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91367
diff
changeset
|
375 current_dir = expand_and_dir_to_file (current_dir, Qnil); |
98083
78f10c77413c
(Fcall_process): Canonicalize current directory name.
Chong Yidong <cyd@stupidchicken.com>
parents:
97142
diff
changeset
|
376 current_dir = Ffile_name_as_directory (current_dir); |
78f10c77413c
(Fcall_process): Canonicalize current directory name.
Chong Yidong <cyd@stupidchicken.com>
parents:
97142
diff
changeset
|
377 |
1678
62ecf0c5b54c
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1596
diff
changeset
|
378 if (NILP (Ffile_accessible_directory_p (current_dir))) |
62ecf0c5b54c
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1596
diff
changeset
|
379 report_file_error ("Setting current directory", |
62ecf0c5b54c
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1596
diff
changeset
|
380 Fcons (current_buffer->directory, Qnil)); |
62ecf0c5b54c
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1596
diff
changeset
|
381 |
68389
ee72dfb5a3cd
(Fcall_process): GCPRO error_file. Encode infile,
Kenichi Handa <handa@m17n.org>
parents:
67989
diff
changeset
|
382 if (STRING_MULTIBYTE (infile)) |
ee72dfb5a3cd
(Fcall_process): GCPRO error_file. Encode infile,
Kenichi Handa <handa@m17n.org>
parents:
67989
diff
changeset
|
383 infile = ENCODE_FILE (infile); |
ee72dfb5a3cd
(Fcall_process): GCPRO error_file. Encode infile,
Kenichi Handa <handa@m17n.org>
parents:
67989
diff
changeset
|
384 if (STRING_MULTIBYTE (current_dir)) |
ee72dfb5a3cd
(Fcall_process): GCPRO error_file. Encode infile,
Kenichi Handa <handa@m17n.org>
parents:
67989
diff
changeset
|
385 current_dir = ENCODE_FILE (current_dir); |
ee72dfb5a3cd
(Fcall_process): GCPRO error_file. Encode infile,
Kenichi Handa <handa@m17n.org>
parents:
67989
diff
changeset
|
386 if (STRINGP (error_file) && STRING_MULTIBYTE (error_file)) |
ee72dfb5a3cd
(Fcall_process): GCPRO error_file. Encode infile,
Kenichi Handa <handa@m17n.org>
parents:
67989
diff
changeset
|
387 error_file = ENCODE_FILE (error_file); |
1678
62ecf0c5b54c
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1596
diff
changeset
|
388 UNGCPRO; |
62ecf0c5b54c
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1596
diff
changeset
|
389 } |
62ecf0c5b54c
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1596
diff
changeset
|
390 |
57473
fb60234070b0
(Fcall_process): Simplify handling of display arg.
Kim F. Storm <storm@cua.dk>
parents:
57290
diff
changeset
|
391 display_p = INTERACTIVE && nargs >= 4 && !NILP (args[3]); |
296 | 392 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
393 filefd = emacs_open (SDATA (infile), O_RDONLY, 0); |
6391
d4fe8a853557
(Fcall_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents:
6275
diff
changeset
|
394 if (filefd < 0) |
d4fe8a853557
(Fcall_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents:
6275
diff
changeset
|
395 { |
68389
ee72dfb5a3cd
(Fcall_process): GCPRO error_file. Encode infile,
Kenichi Handa <handa@m17n.org>
parents:
67989
diff
changeset
|
396 infile = DECODE_FILE (infile); |
6391
d4fe8a853557
(Fcall_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents:
6275
diff
changeset
|
397 report_file_error ("Opening process input file", Fcons (infile, Qnil)); |
d4fe8a853557
(Fcall_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents:
6275
diff
changeset
|
398 } |
d4fe8a853557
(Fcall_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents:
6275
diff
changeset
|
399 /* Search for program; barf if not found. */ |
d4fe8a853557
(Fcall_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents:
6275
diff
changeset
|
400 { |
103111
138b39938198
(Fcall_process): Fix GC protection. Make sure
Andreas Schwab <schwab@linux-m68k.org>
parents:
102360
diff
changeset
|
401 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4; |
6391
d4fe8a853557
(Fcall_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents:
6275
diff
changeset
|
402 |
103111
138b39938198
(Fcall_process): Fix GC protection. Make sure
Andreas Schwab <schwab@linux-m68k.org>
parents:
102360
diff
changeset
|
403 GCPRO4 (infile, buffer, current_dir, error_file); |
45002
f1eb7c3e1e04
(Fcall_process): Update call to openp.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44992
diff
changeset
|
404 openp (Vexec_path, args[0], Vexec_suffixes, &path, make_number (X_OK)); |
6391
d4fe8a853557
(Fcall_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents:
6275
diff
changeset
|
405 UNGCPRO; |
d4fe8a853557
(Fcall_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents:
6275
diff
changeset
|
406 } |
d4fe8a853557
(Fcall_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents:
6275
diff
changeset
|
407 if (NILP (path)) |
d4fe8a853557
(Fcall_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents:
6275
diff
changeset
|
408 { |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
409 emacs_close (filefd); |
6391
d4fe8a853557
(Fcall_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents:
6275
diff
changeset
|
410 report_file_error ("Searching for program", Fcons (args[0], Qnil)); |
d4fe8a853557
(Fcall_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents:
6275
diff
changeset
|
411 } |
47018
101eb25eab6d
(Fcall_process): Remove /: from program name.
Richard M. Stallman <rms@gnu.org>
parents:
46626
diff
changeset
|
412 |
101eb25eab6d
(Fcall_process): Remove /: from program name.
Richard M. Stallman <rms@gnu.org>
parents:
46626
diff
changeset
|
413 /* If program file name starts with /: for quoting a magic name, |
101eb25eab6d
(Fcall_process): Remove /: from program name.
Richard M. Stallman <rms@gnu.org>
parents:
46626
diff
changeset
|
414 discard that. */ |
101eb25eab6d
(Fcall_process): Remove /: from program name.
Richard M. Stallman <rms@gnu.org>
parents:
46626
diff
changeset
|
415 if (SBYTES (path) > 2 && SREF (path, 0) == '/' |
101eb25eab6d
(Fcall_process): Remove /: from program name.
Richard M. Stallman <rms@gnu.org>
parents:
46626
diff
changeset
|
416 && SREF (path, 1) == ':') |
101eb25eab6d
(Fcall_process): Remove /: from program name.
Richard M. Stallman <rms@gnu.org>
parents:
46626
diff
changeset
|
417 path = Fsubstring (path, make_number (2), Qnil); |
101eb25eab6d
(Fcall_process): Remove /: from program name.
Richard M. Stallman <rms@gnu.org>
parents:
46626
diff
changeset
|
418 |
98089
4ea0f5996bd5
(Fcall_process): Don't hold references to string data
Andreas Schwab <schwab@suse.de>
parents:
98083
diff
changeset
|
419 new_argv = (const unsigned char **) |
4ea0f5996bd5
(Fcall_process): Don't hold references to string data
Andreas Schwab <schwab@suse.de>
parents:
98083
diff
changeset
|
420 alloca (max (2, nargs - 2) * sizeof (char *)); |
20230
ad33fb40e5e7
(Fcall_process): GCPRO infile, buffer, and
Kenichi Handa <handa@m17n.org>
parents:
20041
diff
changeset
|
421 if (nargs > 4) |
ad33fb40e5e7
(Fcall_process): GCPRO infile, buffer, and
Kenichi Handa <handa@m17n.org>
parents:
20041
diff
changeset
|
422 { |
ad33fb40e5e7
(Fcall_process): GCPRO infile, buffer, and
Kenichi Handa <handa@m17n.org>
parents:
20041
diff
changeset
|
423 register int i; |
103111
138b39938198
(Fcall_process): Fix GC protection. Make sure
Andreas Schwab <schwab@linux-m68k.org>
parents:
102360
diff
changeset
|
424 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5; |
17025
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
425 |
103111
138b39938198
(Fcall_process): Fix GC protection. Make sure
Andreas Schwab <schwab@linux-m68k.org>
parents:
102360
diff
changeset
|
426 GCPRO5 (infile, buffer, current_dir, path, error_file); |
29000
f5c7d80ed4de
(Fcall_process): Always encode an argument string if
Kenichi Handa <handa@m17n.org>
parents:
28914
diff
changeset
|
427 argument_coding.dst_multibyte = 0; |
f5c7d80ed4de
(Fcall_process): Always encode an argument string if
Kenichi Handa <handa@m17n.org>
parents:
28914
diff
changeset
|
428 for (i = 4; i < nargs; i++) |
f5c7d80ed4de
(Fcall_process): Always encode an argument string if
Kenichi Handa <handa@m17n.org>
parents:
28914
diff
changeset
|
429 { |
f5c7d80ed4de
(Fcall_process): Always encode an argument string if
Kenichi Handa <handa@m17n.org>
parents:
28914
diff
changeset
|
430 argument_coding.src_multibyte = STRING_MULTIBYTE (args[i]); |
f5c7d80ed4de
(Fcall_process): Always encode an argument string if
Kenichi Handa <handa@m17n.org>
parents:
28914
diff
changeset
|
431 if (CODING_REQUIRE_ENCODING (&argument_coding)) |
88356
5ace79aaf5ad
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
41861
diff
changeset
|
432 /* We must encode this argument. */ |
5ace79aaf5ad
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
41861
diff
changeset
|
433 args[i] = encode_coding_string (&argument_coding, args[i], 1); |
20230
ad33fb40e5e7
(Fcall_process): GCPRO infile, buffer, and
Kenichi Handa <handa@m17n.org>
parents:
20041
diff
changeset
|
434 } |
29000
f5c7d80ed4de
(Fcall_process): Always encode an argument string if
Kenichi Handa <handa@m17n.org>
parents:
28914
diff
changeset
|
435 UNGCPRO; |
98089
4ea0f5996bd5
(Fcall_process): Don't hold references to string data
Andreas Schwab <schwab@suse.de>
parents:
98083
diff
changeset
|
436 for (i = 4; i < nargs; i++) |
4ea0f5996bd5
(Fcall_process): Don't hold references to string data
Andreas Schwab <schwab@suse.de>
parents:
98083
diff
changeset
|
437 new_argv[i - 3] = SDATA (args[i]); |
4ea0f5996bd5
(Fcall_process): Don't hold references to string data
Andreas Schwab <schwab@suse.de>
parents:
98083
diff
changeset
|
438 new_argv[i - 3] = 0; |
20230
ad33fb40e5e7
(Fcall_process): GCPRO infile, buffer, and
Kenichi Handa <handa@m17n.org>
parents:
20041
diff
changeset
|
439 } |
20448
afef187a070b
(Fcall_process): Don't clobber new_argv[0]
Karl Heuer <kwzh@gnu.org>
parents:
20436
diff
changeset
|
440 else |
afef187a070b
(Fcall_process): Don't clobber new_argv[0]
Karl Heuer <kwzh@gnu.org>
parents:
20436
diff
changeset
|
441 new_argv[1] = 0; |
98089
4ea0f5996bd5
(Fcall_process): Don't hold references to string data
Andreas Schwab <schwab@suse.de>
parents:
98083
diff
changeset
|
442 new_argv[0] = SDATA (path); |
296 | 443 |
5501
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
444 #ifdef MSDOS /* MW, July 1993 */ |
23462
aaad8461ff34
(Fcall_process): Use $TMPDIR instead of trying $TMP
Eli Zaretskii <eliz@gnu.org>
parents:
23079
diff
changeset
|
445 if ((outf = egetenv ("TMPDIR"))) |
5501
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
446 strcpy (tempfile = alloca (strlen (outf) + 20), outf); |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
447 else |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
448 { |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
449 tempfile = alloca (20); |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
450 *tempfile = '\0'; |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
451 } |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
452 dostounix_filename (tempfile); |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
47018
diff
changeset
|
453 if (*tempfile == '\0' || tempfile[strlen (tempfile) - 1] != '/') |
5501
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
454 strcat (tempfile, "/"); |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
455 strcat (tempfile, "detmp.XXX"); |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
456 mktemp (tempfile); |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
457 |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
458 outfilefd = creat (tempfile, S_IREAD | S_IWRITE); |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
459 if (outfilefd < 0) |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
460 { |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
461 emacs_close (filefd); |
15610 | 462 report_file_error ("Opening process output file", |
463 Fcons (build_string (tempfile), Qnil)); | |
5501
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
464 } |
15610 | 465 fd[0] = filefd; |
13719
660032b84b23
(Fcall_process) [MSDOS]: Support redirection of
Karl Heuer <kwzh@gnu.org>
parents:
12854
diff
changeset
|
466 fd[1] = outfilefd; |
15610 | 467 #endif /* MSDOS */ |
5501
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
468 |
9138
6c814eb4d892
(Fcall_process, child_setup, getenv_internal): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents:
8853
diff
changeset
|
469 if (INTEGERP (buffer)) |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
470 fd[1] = emacs_open (NULL_DEVICE, O_WRONLY, 0), fd[0] = -1; |
296 | 471 else |
472 { | |
5501
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
473 #ifndef MSDOS |
87732
d3276439c0d3
(Fcall_process): Fix previous change.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
87730
diff
changeset
|
474 errno = 0; |
d3276439c0d3
(Fcall_process): Fix previous change.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
87730
diff
changeset
|
475 if (pipe (fd) == -1) |
d3276439c0d3
(Fcall_process): Fix previous change.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
87730
diff
changeset
|
476 { |
d3276439c0d3
(Fcall_process): Fix previous change.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
87730
diff
changeset
|
477 emacs_close (filefd); |
d3276439c0d3
(Fcall_process): Fix previous change.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
87730
diff
changeset
|
478 report_file_error ("Creating process pipe", Qnil); |
d3276439c0d3
(Fcall_process): Fix previous change.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
87730
diff
changeset
|
479 } |
25522
c675d8210bda
(call-process) [macintosh]: Call mac_run_command in
Richard M. Stallman <rms@gnu.org>
parents:
25521
diff
changeset
|
480 #endif |
296 | 481 } |
482 | |
483 { | |
484 /* child_setup must clobber environ in systems with true vfork. | |
485 Protect it from permanent change. */ | |
486 register char **save_environ = environ; | |
487 register int fd1 = fd[1]; | |
10839
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
488 int fd_error = fd1; |
296 | 489 |
490 #if 0 /* Some systems don't have sigblock. */ | |
638 | 491 mask = sigblock (sigmask (SIGCHLD)); |
296 | 492 #endif |
493 | |
494 /* Record that we're about to create a synchronous process. */ | |
495 synch_process_alive = 1; | |
496 | |
4977
81c44a01ddda
(Fcall_process): Clear synch_process_death and
Richard M. Stallman <rms@gnu.org>
parents:
4701
diff
changeset
|
497 /* These vars record information from process termination. |
81c44a01ddda
(Fcall_process): Clear synch_process_death and
Richard M. Stallman <rms@gnu.org>
parents:
4701
diff
changeset
|
498 Clear them now before process can possibly terminate, |
81c44a01ddda
(Fcall_process): Clear synch_process_death and
Richard M. Stallman <rms@gnu.org>
parents:
4701
diff
changeset
|
499 to avoid timing error if process terminates soon. */ |
81c44a01ddda
(Fcall_process): Clear synch_process_death and
Richard M. Stallman <rms@gnu.org>
parents:
4701
diff
changeset
|
500 synch_process_death = 0; |
81c44a01ddda
(Fcall_process): Clear synch_process_death and
Richard M. Stallman <rms@gnu.org>
parents:
4701
diff
changeset
|
501 synch_process_retcode = 0; |
53712
659b9b404c02
Define synch_process_termsig.
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
502 synch_process_termsig = 0; |
4977
81c44a01ddda
(Fcall_process): Clear synch_process_death and
Richard M. Stallman <rms@gnu.org>
parents:
4701
diff
changeset
|
503 |
10839
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
504 if (NILP (error_file)) |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
505 fd_error = emacs_open (NULL_DEVICE, O_WRONLY, 0); |
10839
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
506 else if (STRINGP (error_file)) |
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
507 { |
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
508 #ifdef DOS_NT |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
509 fd_error = emacs_open (SDATA (error_file), |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
510 O_WRONLY | O_TRUNC | O_CREAT | O_TEXT, |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
511 S_IREAD | S_IWRITE); |
10839
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
512 #else /* not DOS_NT */ |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
513 fd_error = creat (SDATA (error_file), 0666); |
10839
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
514 #endif /* not DOS_NT */ |
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
515 } |
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
516 |
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
517 if (fd_error < 0) |
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
518 { |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
519 emacs_close (filefd); |
15610 | 520 if (fd[0] != filefd) |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
521 emacs_close (fd[0]); |
10839
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
522 if (fd1 >= 0) |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
523 emacs_close (fd1); |
15610 | 524 #ifdef MSDOS |
525 unlink (tempfile); | |
526 #endif | |
68389
ee72dfb5a3cd
(Fcall_process): GCPRO error_file. Encode infile,
Kenichi Handa <handa@m17n.org>
parents:
67989
diff
changeset
|
527 if (NILP (error_file)) |
ee72dfb5a3cd
(Fcall_process): GCPRO error_file. Encode infile,
Kenichi Handa <handa@m17n.org>
parents:
67989
diff
changeset
|
528 error_file = build_string (NULL_DEVICE); |
ee72dfb5a3cd
(Fcall_process): GCPRO error_file. Encode infile,
Kenichi Handa <handa@m17n.org>
parents:
67989
diff
changeset
|
529 else if (STRINGP (error_file)) |
ee72dfb5a3cd
(Fcall_process): GCPRO error_file. Encode infile,
Kenichi Handa <handa@m17n.org>
parents:
67989
diff
changeset
|
530 error_file = DECODE_FILE (error_file); |
ee72dfb5a3cd
(Fcall_process): GCPRO error_file. Encode infile,
Kenichi Handa <handa@m17n.org>
parents:
67989
diff
changeset
|
531 report_file_error ("Cannot redirect stderr", Fcons (error_file, Qnil)); |
10839
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
532 } |
19838
7e1bbe58eb02
(Fcall_process): Encode the new current dir.
Richard M. Stallman <rms@gnu.org>
parents:
19790
diff
changeset
|
533 |
13719
660032b84b23
(Fcall_process) [MSDOS]: Support redirection of
Karl Heuer <kwzh@gnu.org>
parents:
12854
diff
changeset
|
534 #ifdef MSDOS /* MW, July 1993 */ |
21694
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
parents:
21626
diff
changeset
|
535 /* Note that on MSDOS `child_setup' actually returns the child process |
13719
660032b84b23
(Fcall_process) [MSDOS]: Support redirection of
Karl Heuer <kwzh@gnu.org>
parents:
12854
diff
changeset
|
536 exit status, not its PID, so we assign it to `synch_process_retcode' |
660032b84b23
(Fcall_process) [MSDOS]: Support redirection of
Karl Heuer <kwzh@gnu.org>
parents:
12854
diff
changeset
|
537 below. */ |
21694
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
parents:
21626
diff
changeset
|
538 pid = child_setup (filefd, outfilefd, fd_error, (char **) new_argv, |
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
parents:
21626
diff
changeset
|
539 0, current_dir); |
13719
660032b84b23
(Fcall_process) [MSDOS]: Support redirection of
Karl Heuer <kwzh@gnu.org>
parents:
12854
diff
changeset
|
540 |
660032b84b23
(Fcall_process) [MSDOS]: Support redirection of
Karl Heuer <kwzh@gnu.org>
parents:
12854
diff
changeset
|
541 /* Record that the synchronous process exited and note its |
660032b84b23
(Fcall_process) [MSDOS]: Support redirection of
Karl Heuer <kwzh@gnu.org>
parents:
12854
diff
changeset
|
542 termination status. */ |
660032b84b23
(Fcall_process) [MSDOS]: Support redirection of
Karl Heuer <kwzh@gnu.org>
parents:
12854
diff
changeset
|
543 synch_process_alive = 0; |
660032b84b23
(Fcall_process) [MSDOS]: Support redirection of
Karl Heuer <kwzh@gnu.org>
parents:
12854
diff
changeset
|
544 synch_process_retcode = pid; |
660032b84b23
(Fcall_process) [MSDOS]: Support redirection of
Karl Heuer <kwzh@gnu.org>
parents:
12854
diff
changeset
|
545 if (synch_process_retcode < 0) /* means it couldn't be exec'ed */ |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
546 { |
26526
b7438760079b
* callproc.c (strerror): Remove decl.
Paul Eggert <eggert@twinsun.com>
parents:
26088
diff
changeset
|
547 synchronize_system_messages_locale (); |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
548 synch_process_death = strerror (errno); |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
549 } |
13719
660032b84b23
(Fcall_process) [MSDOS]: Support redirection of
Karl Heuer <kwzh@gnu.org>
parents:
12854
diff
changeset
|
550 |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
551 emacs_close (outfilefd); |
13719
660032b84b23
(Fcall_process) [MSDOS]: Support redirection of
Karl Heuer <kwzh@gnu.org>
parents:
12854
diff
changeset
|
552 if (fd_error != outfilefd) |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
553 emacs_close (fd_error); |
13719
660032b84b23
(Fcall_process) [MSDOS]: Support redirection of
Karl Heuer <kwzh@gnu.org>
parents:
12854
diff
changeset
|
554 fd1 = -1; /* No harm in closing that one! */ |
17025
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
555 /* Since CRLF is converted to LF within `decode_coding', we can |
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
556 always open a file with binary mode. */ |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
557 fd[0] = emacs_open (tempfile, O_RDONLY | O_BINARY, 0); |
13719
660032b84b23
(Fcall_process) [MSDOS]: Support redirection of
Karl Heuer <kwzh@gnu.org>
parents:
12854
diff
changeset
|
558 if (fd[0] < 0) |
660032b84b23
(Fcall_process) [MSDOS]: Support redirection of
Karl Heuer <kwzh@gnu.org>
parents:
12854
diff
changeset
|
559 { |
660032b84b23
(Fcall_process) [MSDOS]: Support redirection of
Karl Heuer <kwzh@gnu.org>
parents:
12854
diff
changeset
|
560 unlink (tempfile); |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
561 emacs_close (filefd); |
13719
660032b84b23
(Fcall_process) [MSDOS]: Support redirection of
Karl Heuer <kwzh@gnu.org>
parents:
12854
diff
changeset
|
562 report_file_error ("Cannot re-open temporary file", Qnil); |
660032b84b23
(Fcall_process) [MSDOS]: Support redirection of
Karl Heuer <kwzh@gnu.org>
parents:
12854
diff
changeset
|
563 } |
660032b84b23
(Fcall_process) [MSDOS]: Support redirection of
Karl Heuer <kwzh@gnu.org>
parents:
12854
diff
changeset
|
564 #else /* not MSDOS */ |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
565 #ifdef WINDOWSNT |
20525
468f59c6c9bf
(Fcall_process): Cast new_argv for child_setup.
Richard M. Stallman <rms@gnu.org>
parents:
20448
diff
changeset
|
566 pid = child_setup (filefd, fd1, fd_error, (char **) new_argv, |
468f59c6c9bf
(Fcall_process): Cast new_argv for child_setup.
Richard M. Stallman <rms@gnu.org>
parents:
20448
diff
changeset
|
567 0, current_dir); |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
568 #else /* not WINDOWSNT */ |
57892 | 569 BLOCK_INPUT; |
570 | |
296 | 571 pid = vfork (); |
572 | |
573 if (pid == 0) | |
574 { | |
575 if (fd[0] >= 0) | |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
576 emacs_close (fd[0]); |
18235
43ce16d5f31e
(Fcall_process): Use setsid to disconnect child
Richard M. Stallman <rms@gnu.org>
parents:
18182
diff
changeset
|
577 #ifdef HAVE_SETSID |
43ce16d5f31e
(Fcall_process): Use setsid to disconnect child
Richard M. Stallman <rms@gnu.org>
parents:
18182
diff
changeset
|
578 setsid (); |
43ce16d5f31e
(Fcall_process): Use setsid to disconnect child
Richard M. Stallman <rms@gnu.org>
parents:
18182
diff
changeset
|
579 #endif |
108235 | 580 #if defined (USG) |
296 | 581 setpgrp (); |
582 #else | |
583 setpgrp (pid, pid); | |
584 #endif /* USG */ | |
20525
468f59c6c9bf
(Fcall_process): Cast new_argv for child_setup.
Richard M. Stallman <rms@gnu.org>
parents:
20448
diff
changeset
|
585 child_setup (filefd, fd1, fd_error, (char **) new_argv, |
468f59c6c9bf
(Fcall_process): Cast new_argv for child_setup.
Richard M. Stallman <rms@gnu.org>
parents:
20448
diff
changeset
|
586 0, current_dir); |
296 | 587 } |
57892 | 588 |
589 UNBLOCK_INPUT; | |
13719
660032b84b23
(Fcall_process) [MSDOS]: Support redirection of
Karl Heuer <kwzh@gnu.org>
parents:
12854
diff
changeset
|
590 #endif /* not WINDOWSNT */ |
15225
a78a1df9690c
(Fcall_process): Fix previous change (now !MSDOS only).
Richard M. Stallman <rms@gnu.org>
parents:
15210
diff
changeset
|
591 |
a78a1df9690c
(Fcall_process): Fix previous change (now !MSDOS only).
Richard M. Stallman <rms@gnu.org>
parents:
15210
diff
changeset
|
592 /* The MSDOS case did this already. */ |
a78a1df9690c
(Fcall_process): Fix previous change (now !MSDOS only).
Richard M. Stallman <rms@gnu.org>
parents:
15210
diff
changeset
|
593 if (fd_error >= 0) |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
594 emacs_close (fd_error); |
5501
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
595 #endif /* not MSDOS */ |
296 | 596 |
597 environ = save_environ; | |
598 | |
6466
4b3c537e1169
(Fcall_process): Make sure to close descriptors.
Richard M. Stallman <rms@gnu.org>
parents:
6391
diff
changeset
|
599 /* Close most of our fd's, but not fd[0] |
4b3c537e1169
(Fcall_process): Make sure to close descriptors.
Richard M. Stallman <rms@gnu.org>
parents:
6391
diff
changeset
|
600 since we will use that to read input from. */ |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
601 emacs_close (filefd); |
15236
99d01b1b8799
(Fcall_process): Don't close the same fd twice.
Karl Heuer <kwzh@gnu.org>
parents:
15225
diff
changeset
|
602 if (fd1 >= 0 && fd1 != fd_error) |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
603 emacs_close (fd1); |
296 | 604 } |
605 | |
606 if (pid < 0) | |
607 { | |
6466
4b3c537e1169
(Fcall_process): Make sure to close descriptors.
Richard M. Stallman <rms@gnu.org>
parents:
6391
diff
changeset
|
608 if (fd[0] >= 0) |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
609 emacs_close (fd[0]); |
296 | 610 report_file_error ("Doing vfork", Qnil); |
611 } | |
612 | |
9138
6c814eb4d892
(Fcall_process, child_setup, getenv_internal): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents:
8853
diff
changeset
|
613 if (INTEGERP (buffer)) |
296 | 614 { |
6466
4b3c537e1169
(Fcall_process): Make sure to close descriptors.
Richard M. Stallman <rms@gnu.org>
parents:
6391
diff
changeset
|
615 if (fd[0] >= 0) |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
616 emacs_close (fd[0]); |
296 | 617 #ifndef subprocesses |
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
618 /* If Emacs has been built with asynchronous subprocess support, |
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
619 we don't need to do this, I think because it will then have |
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
620 the facilities for handling SIGCHLD. */ |
296 | 621 wait_without_blocking (); |
622 #endif /* subprocesses */ | |
623 return Qnil; | |
624 } | |
625 | |
6466
4b3c537e1169
(Fcall_process): Make sure to close descriptors.
Richard M. Stallman <rms@gnu.org>
parents:
6391
diff
changeset
|
626 /* Enable sending signal if user quits below. */ |
6275
132464faeaf4
Don't kill remaining processes if child exits.
Richard M. Stallman <rms@gnu.org>
parents:
6031
diff
changeset
|
627 call_process_exited = 0; |
132464faeaf4
Don't kill remaining processes if child exits.
Richard M. Stallman <rms@gnu.org>
parents:
6031
diff
changeset
|
628 |
87730 | 629 #if defined(MSDOS) |
5501
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
630 /* MSDOS needs different cleanup information. */ |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
631 record_unwind_protect (call_process_cleanup, |
103111
138b39938198
(Fcall_process): Fix GC protection. Make sure
Andreas Schwab <schwab@linux-m68k.org>
parents:
102360
diff
changeset
|
632 Fcons (Fcurrent_buffer (), |
138b39938198
(Fcall_process): Fix GC protection. Make sure
Andreas Schwab <schwab@linux-m68k.org>
parents:
102360
diff
changeset
|
633 Fcons (make_number (fd[0]), |
138b39938198
(Fcall_process): Fix GC protection. Make sure
Andreas Schwab <schwab@linux-m68k.org>
parents:
102360
diff
changeset
|
634 build_string (tempfile)))); |
5501
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
635 #else |
296 | 636 record_unwind_protect (call_process_cleanup, |
103111
138b39938198
(Fcall_process): Fix GC protection. Make sure
Andreas Schwab <schwab@linux-m68k.org>
parents:
102360
diff
changeset
|
637 Fcons (Fcurrent_buffer (), |
138b39938198
(Fcall_process): Fix GC protection. Make sure
Andreas Schwab <schwab@linux-m68k.org>
parents:
102360
diff
changeset
|
638 Fcons (make_number (fd[0]), make_number (pid)))); |
87730 | 639 #endif /* not MSDOS */ |
296 | 640 |
641 | |
9138
6c814eb4d892
(Fcall_process, child_setup, getenv_internal): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents:
8853
diff
changeset
|
642 if (BUFFERP (buffer)) |
296 | 643 Fset_buffer (buffer); |
644 | |
24931
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
645 if (NILP (buffer)) |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
646 { |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
647 /* If BUFFER is nil, we must read process output once and then |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
648 discard it, so setup coding system but with nil. */ |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
649 setup_coding_system (Qnil, &process_coding); |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
650 } |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
651 else |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
652 { |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
653 Lisp_Object val, *args2; |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
654 |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
655 val = Qnil; |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
656 if (!NILP (Vcoding_system_for_read)) |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
657 val = Vcoding_system_for_read; |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
658 else |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
659 { |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
660 if (EQ (coding_systems, Qt)) |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
661 { |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
662 int i; |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
663 |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
664 args2 = (Lisp_Object *) alloca ((nargs + 1) * sizeof *args2); |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
665 args2[0] = Qcall_process; |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
666 for (i = 0; i < nargs; i++) args2[i + 1] = args[i]; |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
667 coding_systems |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
668 = Ffind_operation_coding_system (nargs + 1, args2); |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
669 } |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
670 if (CONSP (coding_systems)) |
25645
a14111a2a100
Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25522
diff
changeset
|
671 val = XCAR (coding_systems); |
24931
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
672 else if (CONSP (Vdefault_process_coding_system)) |
25645
a14111a2a100
Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25522
diff
changeset
|
673 val = XCAR (Vdefault_process_coding_system); |
24931
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
674 else |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
675 val = Qnil; |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
676 } |
88356
5ace79aaf5ad
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
41861
diff
changeset
|
677 Fcheck_coding_system (val); |
24931
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
678 /* In unibyte mode, character code conversion should not take |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
679 place but EOL conversion should. So, setup raw-text or one |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
680 of the subsidiary according to the information just setup. */ |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
681 if (NILP (current_buffer->enable_multibyte_characters) |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
682 && !NILP (val)) |
88356
5ace79aaf5ad
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
41861
diff
changeset
|
683 val = raw_text_coding_system (val); |
5ace79aaf5ad
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
41861
diff
changeset
|
684 setup_coding_system (val, &process_coding); |
24931
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
685 } |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
686 |
296 | 687 immediate_quit = 1; |
688 QUIT; | |
689 | |
690 { | |
691 register int nread; | |
5251
480731ff8e9a
(Fcall_process): Call prepare_menu_bars.
Richard M. Stallman <rms@gnu.org>
parents:
5179
diff
changeset
|
692 int first = 1; |
11619
ff4be652af46
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
11513
diff
changeset
|
693 int total_read = 0; |
20724
e34b99d443b1
(Fcall_process): Use raw-text instead of emacs-mule
Kenichi Handa <handa@m17n.org>
parents:
20595
diff
changeset
|
694 int carryover = 0; |
57473
fb60234070b0
(Fcall_process): Simplify handling of display arg.
Kim F. Storm <storm@cua.dk>
parents:
57290
diff
changeset
|
695 int display_on_the_fly = display_p; |
22320
aed8bb8b8837
(Fcall_process): Avoid initializer on auto struct.
Karl Heuer <kwzh@gnu.org>
parents:
21997
diff
changeset
|
696 struct coding_system saved_coding; |
aed8bb8b8837
(Fcall_process): Avoid initializer on auto struct.
Karl Heuer <kwzh@gnu.org>
parents:
21997
diff
changeset
|
697 |
aed8bb8b8837
(Fcall_process): Avoid initializer on auto struct.
Karl Heuer <kwzh@gnu.org>
parents:
21997
diff
changeset
|
698 saved_coding = process_coding; |
11780
6ae23eecab6a
(Fcall_process): Keep reading till buffer is nearly full.
Richard M. Stallman <rms@gnu.org>
parents:
11619
diff
changeset
|
699 while (1) |
296 | 700 { |
11780
6ae23eecab6a
(Fcall_process): Keep reading till buffer is nearly full.
Richard M. Stallman <rms@gnu.org>
parents:
11619
diff
changeset
|
701 /* Repeatedly read until we've filled as much as possible |
6ae23eecab6a
(Fcall_process): Keep reading till buffer is nearly full.
Richard M. Stallman <rms@gnu.org>
parents:
11619
diff
changeset
|
702 of the buffer size we have. But don't read |
14036 | 703 less than 1024--save that for the next bufferful. */ |
20724
e34b99d443b1
(Fcall_process): Use raw-text instead of emacs-mule
Kenichi Handa <handa@m17n.org>
parents:
20595
diff
changeset
|
704 nread = carryover; |
11780
6ae23eecab6a
(Fcall_process): Keep reading till buffer is nearly full.
Richard M. Stallman <rms@gnu.org>
parents:
11619
diff
changeset
|
705 while (nread < bufsize - 1024) |
8853
f44e40e722b2
(Fcall_process) [__osf__ && __alpha]:
Richard M. Stallman <rms@gnu.org>
parents:
8737
diff
changeset
|
706 { |
62982
d7793ac6df62
(Fcall_process): Don't use alloca to gradually
Kim F. Storm <storm@cua.dk>
parents:
60891
diff
changeset
|
707 int this_read = emacs_read (fd[0], buf + nread, |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
708 bufsize - nread); |
11780
6ae23eecab6a
(Fcall_process): Keep reading till buffer is nearly full.
Richard M. Stallman <rms@gnu.org>
parents:
11619
diff
changeset
|
709 |
6ae23eecab6a
(Fcall_process): Keep reading till buffer is nearly full.
Richard M. Stallman <rms@gnu.org>
parents:
11619
diff
changeset
|
710 if (this_read < 0) |
6ae23eecab6a
(Fcall_process): Keep reading till buffer is nearly full.
Richard M. Stallman <rms@gnu.org>
parents:
11619
diff
changeset
|
711 goto give_up; |
6ae23eecab6a
(Fcall_process): Keep reading till buffer is nearly full.
Richard M. Stallman <rms@gnu.org>
parents:
11619
diff
changeset
|
712 |
6ae23eecab6a
(Fcall_process): Keep reading till buffer is nearly full.
Richard M. Stallman <rms@gnu.org>
parents:
11619
diff
changeset
|
713 if (this_read == 0) |
21966
10183730b250
(Fcall_process): If we must display received data on
Kenichi Handa <handa@m17n.org>
parents:
21786
diff
changeset
|
714 { |
10183730b250
(Fcall_process): If we must display received data on
Kenichi Handa <handa@m17n.org>
parents:
21786
diff
changeset
|
715 process_coding.mode |= CODING_MODE_LAST_BLOCK; |
10183730b250
(Fcall_process): If we must display received data on
Kenichi Handa <handa@m17n.org>
parents:
21786
diff
changeset
|
716 break; |
10183730b250
(Fcall_process): If we must display received data on
Kenichi Handa <handa@m17n.org>
parents:
21786
diff
changeset
|
717 } |
11780
6ae23eecab6a
(Fcall_process): Keep reading till buffer is nearly full.
Richard M. Stallman <rms@gnu.org>
parents:
11619
diff
changeset
|
718 |
6ae23eecab6a
(Fcall_process): Keep reading till buffer is nearly full.
Richard M. Stallman <rms@gnu.org>
parents:
11619
diff
changeset
|
719 nread += this_read; |
21966
10183730b250
(Fcall_process): If we must display received data on
Kenichi Handa <handa@m17n.org>
parents:
21786
diff
changeset
|
720 total_read += this_read; |
11780
6ae23eecab6a
(Fcall_process): Keep reading till buffer is nearly full.
Richard M. Stallman <rms@gnu.org>
parents:
11619
diff
changeset
|
721 |
21966
10183730b250
(Fcall_process): If we must display received data on
Kenichi Handa <handa@m17n.org>
parents:
21786
diff
changeset
|
722 if (display_on_the_fly) |
10183730b250
(Fcall_process): If we must display received data on
Kenichi Handa <handa@m17n.org>
parents:
21786
diff
changeset
|
723 break; |
10183730b250
(Fcall_process): If we must display received data on
Kenichi Handa <handa@m17n.org>
parents:
21786
diff
changeset
|
724 } |
11780
6ae23eecab6a
(Fcall_process): Keep reading till buffer is nearly full.
Richard M. Stallman <rms@gnu.org>
parents:
11619
diff
changeset
|
725 |
6ae23eecab6a
(Fcall_process): Keep reading till buffer is nearly full.
Richard M. Stallman <rms@gnu.org>
parents:
11619
diff
changeset
|
726 /* Now NREAD is the total amount of data in the buffer. */ |
296 | 727 immediate_quit = 0; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
47018
diff
changeset
|
728 |
942
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
729 if (!NILP (buffer)) |
17025
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
730 { |
88945
9c97427fb1f6
(Fcall_process): Don't call insert_1_both directly if
Kenichi Handa <handa@m17n.org>
parents:
88828
diff
changeset
|
731 if (NILP (current_buffer->enable_multibyte_characters) |
9c97427fb1f6
(Fcall_process): Don't call insert_1_both directly if
Kenichi Handa <handa@m17n.org>
parents:
88828
diff
changeset
|
732 && ! CODING_MAY_REQUIRE_DECODING (&process_coding)) |
62982
d7793ac6df62
(Fcall_process): Don't use alloca to gradually
Kim F. Storm <storm@cua.dk>
parents:
60891
diff
changeset
|
733 insert_1_both (buf, nread, nread, 0, 1, 0); |
17025
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
734 else |
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
735 { /* We have to decode the input. */ |
90190
d8a6a0474c49
(Fcall_process): Sync with the change in
Kenichi Handa <handa@m17n.org>
parents:
90188
diff
changeset
|
736 Lisp_Object curbuf; |
102360
f7043754fd19
(Fcall_process): Bind inhibit-modification-hooks to t when decoding
Eli Zaretskii <eliz@gnu.org>
parents:
101664
diff
changeset
|
737 int count1 = SPECPDL_INDEX (); |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
47018
diff
changeset
|
738 |
90190
d8a6a0474c49
(Fcall_process): Sync with the change in
Kenichi Handa <handa@m17n.org>
parents:
90188
diff
changeset
|
739 XSETBUFFER (curbuf, current_buffer); |
102360
f7043754fd19
(Fcall_process): Bind inhibit-modification-hooks to t when decoding
Eli Zaretskii <eliz@gnu.org>
parents:
101664
diff
changeset
|
740 /* We cannot allow after-change-functions be run |
f7043754fd19
(Fcall_process): Bind inhibit-modification-hooks to t when decoding
Eli Zaretskii <eliz@gnu.org>
parents:
101664
diff
changeset
|
741 during decoding, because that might modify the |
f7043754fd19
(Fcall_process): Bind inhibit-modification-hooks to t when decoding
Eli Zaretskii <eliz@gnu.org>
parents:
101664
diff
changeset
|
742 buffer, while we rely on process_coding.produced to |
f7043754fd19
(Fcall_process): Bind inhibit-modification-hooks to t when decoding
Eli Zaretskii <eliz@gnu.org>
parents:
101664
diff
changeset
|
743 faithfully reflect inserted text until we |
f7043754fd19
(Fcall_process): Bind inhibit-modification-hooks to t when decoding
Eli Zaretskii <eliz@gnu.org>
parents:
101664
diff
changeset
|
744 TEMP_SET_PT_BOTH below. */ |
f7043754fd19
(Fcall_process): Bind inhibit-modification-hooks to t when decoding
Eli Zaretskii <eliz@gnu.org>
parents:
101664
diff
changeset
|
745 specbind (Qinhibit_modification_hooks, Qt); |
90190
d8a6a0474c49
(Fcall_process): Sync with the change in
Kenichi Handa <handa@m17n.org>
parents:
90188
diff
changeset
|
746 decode_coding_c_string (&process_coding, buf, nread, |
d8a6a0474c49
(Fcall_process): Sync with the change in
Kenichi Handa <handa@m17n.org>
parents:
90188
diff
changeset
|
747 curbuf); |
102360
f7043754fd19
(Fcall_process): Bind inhibit-modification-hooks to t when decoding
Eli Zaretskii <eliz@gnu.org>
parents:
101664
diff
changeset
|
748 unbind_to (count1, Qnil); |
21966
10183730b250
(Fcall_process): If we must display received data on
Kenichi Handa <handa@m17n.org>
parents:
21786
diff
changeset
|
749 if (display_on_the_fly |
88356
5ace79aaf5ad
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
41861
diff
changeset
|
750 && CODING_REQUIRE_DETECTION (&saved_coding) |
5ace79aaf5ad
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
41861
diff
changeset
|
751 && ! CODING_REQUIRE_DETECTION (&process_coding)) |
21966
10183730b250
(Fcall_process): If we must display received data on
Kenichi Handa <handa@m17n.org>
parents:
21786
diff
changeset
|
752 { |
10183730b250
(Fcall_process): If we must display received data on
Kenichi Handa <handa@m17n.org>
parents:
21786
diff
changeset
|
753 /* We have detected some coding system. But, |
10183730b250
(Fcall_process): If we must display received data on
Kenichi Handa <handa@m17n.org>
parents:
21786
diff
changeset
|
754 there's a possibility that the detection was |
10183730b250
(Fcall_process): If we must display received data on
Kenichi Handa <handa@m17n.org>
parents:
21786
diff
changeset
|
755 done by insufficient data. So, we give up |
10183730b250
(Fcall_process): If we must display received data on
Kenichi Handa <handa@m17n.org>
parents:
21786
diff
changeset
|
756 displaying on the fly. */ |
88356
5ace79aaf5ad
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
41861
diff
changeset
|
757 if (process_coding.produced > 0) |
5ace79aaf5ad
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
41861
diff
changeset
|
758 del_range_2 (process_coding.dst_pos, |
5ace79aaf5ad
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
41861
diff
changeset
|
759 process_coding.dst_pos_byte, |
5ace79aaf5ad
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
41861
diff
changeset
|
760 process_coding.dst_pos |
5ace79aaf5ad
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
41861
diff
changeset
|
761 + process_coding.produced_char, |
5ace79aaf5ad
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
41861
diff
changeset
|
762 process_coding.dst_pos_byte |
5ace79aaf5ad
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
41861
diff
changeset
|
763 + process_coding.produced, 0); |
21966
10183730b250
(Fcall_process): If we must display received data on
Kenichi Handa <handa@m17n.org>
parents:
21786
diff
changeset
|
764 display_on_the_fly = 0; |
10183730b250
(Fcall_process): If we must display received data on
Kenichi Handa <handa@m17n.org>
parents:
21786
diff
changeset
|
765 process_coding = saved_coding; |
10183730b250
(Fcall_process): If we must display received data on
Kenichi Handa <handa@m17n.org>
parents:
21786
diff
changeset
|
766 carryover = nread; |
57473
fb60234070b0
(Fcall_process): Simplify handling of display arg.
Kim F. Storm <storm@cua.dk>
parents:
57290
diff
changeset
|
767 /* This is to make the above condition always |
fb60234070b0
(Fcall_process): Simplify handling of display arg.
Kim F. Storm <storm@cua.dk>
parents:
57290
diff
changeset
|
768 fails in the future. */ |
90017
6e012bc03071
(Fcall_process): Fix merging of 2004-10-13 change.
Kenichi Handa <handa@m17n.org>
parents:
90016
diff
changeset
|
769 saved_coding.common_flags |
6e012bc03071
(Fcall_process): Fix merging of 2004-10-13 change.
Kenichi Handa <handa@m17n.org>
parents:
90016
diff
changeset
|
770 &= ~CODING_REQUIRE_DETECTION_MASK; |
21966
10183730b250
(Fcall_process): If we must display received data on
Kenichi Handa <handa@m17n.org>
parents:
21786
diff
changeset
|
771 continue; |
10183730b250
(Fcall_process): If we must display received data on
Kenichi Handa <handa@m17n.org>
parents:
21786
diff
changeset
|
772 } |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
47018
diff
changeset
|
773 |
88454
47b395dd6f2c
(Fcall_process): Be sure to give the current buffer
Kenichi Handa <handa@m17n.org>
parents:
88356
diff
changeset
|
774 TEMP_SET_PT_BOTH (PT + process_coding.produced_char, |
47b395dd6f2c
(Fcall_process): Be sure to give the current buffer
Kenichi Handa <handa@m17n.org>
parents:
88356
diff
changeset
|
775 PT_BYTE + process_coding.produced); |
89461
108e326323e3
(Fcall_process): Handle carryover correctly.
Kenichi Handa <handa@m17n.org>
parents:
88945
diff
changeset
|
776 carryover = process_coding.carryover_bytes; |
20724
e34b99d443b1
(Fcall_process): Use raw-text instead of emacs-mule
Kenichi Handa <handa@m17n.org>
parents:
20595
diff
changeset
|
777 if (carryover > 0) |
109165
750db9f3e6d8
Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents:
109126
diff
changeset
|
778 memcpy (buf, process_coding.carryover, |
750db9f3e6d8
Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents:
109126
diff
changeset
|
779 process_coding.carryover_bytes); |
17025
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
780 } |
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
781 } |
29000
f5c7d80ed4de
(Fcall_process): Always encode an argument string if
Kenichi Handa <handa@m17n.org>
parents:
28914
diff
changeset
|
782 |
20724
e34b99d443b1
(Fcall_process): Use raw-text instead of emacs-mule
Kenichi Handa <handa@m17n.org>
parents:
20595
diff
changeset
|
783 if (process_coding.mode & CODING_MODE_LAST_BLOCK) |
29000
f5c7d80ed4de
(Fcall_process): Always encode an argument string if
Kenichi Handa <handa@m17n.org>
parents:
28914
diff
changeset
|
784 break; |
11619
ff4be652af46
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
11513
diff
changeset
|
785 |
ff4be652af46
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
11513
diff
changeset
|
786 /* Make the buffer bigger as we continue to read more data, |
62982
d7793ac6df62
(Fcall_process): Don't use alloca to gradually
Kim F. Storm <storm@cua.dk>
parents:
60891
diff
changeset
|
787 but not past CALLPROC_BUFFER_SIZE_MAX. */ |
d7793ac6df62
(Fcall_process): Don't use alloca to gradually
Kim F. Storm <storm@cua.dk>
parents:
60891
diff
changeset
|
788 if (bufsize < CALLPROC_BUFFER_SIZE_MAX && total_read > 32 * bufsize) |
d7793ac6df62
(Fcall_process): Don't use alloca to gradually
Kim F. Storm <storm@cua.dk>
parents:
60891
diff
changeset
|
789 if ((bufsize *= 2) > CALLPROC_BUFFER_SIZE_MAX) |
d7793ac6df62
(Fcall_process): Don't use alloca to gradually
Kim F. Storm <storm@cua.dk>
parents:
60891
diff
changeset
|
790 bufsize = CALLPROC_BUFFER_SIZE_MAX; |
11619
ff4be652af46
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
11513
diff
changeset
|
791 |
57473
fb60234070b0
(Fcall_process): Simplify handling of display arg.
Kim F. Storm <storm@cua.dk>
parents:
57290
diff
changeset
|
792 if (display_p) |
5251
480731ff8e9a
(Fcall_process): Call prepare_menu_bars.
Richard M. Stallman <rms@gnu.org>
parents:
5179
diff
changeset
|
793 { |
480731ff8e9a
(Fcall_process): Call prepare_menu_bars.
Richard M. Stallman <rms@gnu.org>
parents:
5179
diff
changeset
|
794 if (first) |
480731ff8e9a
(Fcall_process): Call prepare_menu_bars.
Richard M. Stallman <rms@gnu.org>
parents:
5179
diff
changeset
|
795 prepare_menu_bars (); |
480731ff8e9a
(Fcall_process): Call prepare_menu_bars.
Richard M. Stallman <rms@gnu.org>
parents:
5179
diff
changeset
|
796 first = 0; |
35336
002c02db42d3
Call redisplay_preserve_echo_area with additional arg.
Gerd Moellmann <gerd@gnu.org>
parents:
33285
diff
changeset
|
797 redisplay_preserve_echo_area (1); |
57473
fb60234070b0
(Fcall_process): Simplify handling of display arg.
Kim F. Storm <storm@cua.dk>
parents:
57290
diff
changeset
|
798 /* This variable might have been set to 0 for code |
fb60234070b0
(Fcall_process): Simplify handling of display arg.
Kim F. Storm <storm@cua.dk>
parents:
57290
diff
changeset
|
799 detection. In that case, we set it back to 1 because |
fb60234070b0
(Fcall_process): Simplify handling of display arg.
Kim F. Storm <storm@cua.dk>
parents:
57290
diff
changeset
|
800 we should have already detected a coding system. */ |
fb60234070b0
(Fcall_process): Simplify handling of display arg.
Kim F. Storm <storm@cua.dk>
parents:
57290
diff
changeset
|
801 display_on_the_fly = 1; |
5251
480731ff8e9a
(Fcall_process): Call prepare_menu_bars.
Richard M. Stallman <rms@gnu.org>
parents:
5179
diff
changeset
|
802 } |
296 | 803 immediate_quit = 1; |
804 QUIT; | |
805 } | |
11780
6ae23eecab6a
(Fcall_process): Keep reading till buffer is nearly full.
Richard M. Stallman <rms@gnu.org>
parents:
11619
diff
changeset
|
806 give_up: ; |
296 | 807 |
88356
5ace79aaf5ad
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
41861
diff
changeset
|
808 Vlast_coding_system_used = CODING_ID_NAME (process_coding.id); |
5ace79aaf5ad
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
41861
diff
changeset
|
809 /* If the caller required, let the buffer inherit the |
5ace79aaf5ad
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
41861
diff
changeset
|
810 coding-system used to decode the process output. */ |
5ace79aaf5ad
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
41861
diff
changeset
|
811 if (inherit_process_coding_system) |
5ace79aaf5ad
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
41861
diff
changeset
|
812 call1 (intern ("after-insert-file-set-buffer-file-coding-system"), |
103111
138b39938198
(Fcall_process): Fix GC protection. Make sure
Andreas Schwab <schwab@linux-m68k.org>
parents:
102360
diff
changeset
|
813 make_number (total_read)); |
21572 | 814 } |
815 | |
296 | 816 /* Wait for it to terminate, unless it already has. */ |
817 wait_for_termination (pid); | |
818 | |
819 immediate_quit = 0; | |
820 | |
6275
132464faeaf4
Don't kill remaining processes if child exits.
Richard M. Stallman <rms@gnu.org>
parents:
6031
diff
changeset
|
821 /* Don't kill any children that the subprocess may have left behind |
132464faeaf4
Don't kill remaining processes if child exits.
Richard M. Stallman <rms@gnu.org>
parents:
6031
diff
changeset
|
822 when exiting. */ |
132464faeaf4
Don't kill remaining processes if child exits.
Richard M. Stallman <rms@gnu.org>
parents:
6031
diff
changeset
|
823 call_process_exited = 1; |
132464faeaf4
Don't kill remaining processes if child exits.
Richard M. Stallman <rms@gnu.org>
parents:
6031
diff
changeset
|
824 |
296 | 825 unbind_to (count, Qnil); |
826 | |
53712
659b9b404c02
Define synch_process_termsig.
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
827 if (synch_process_termsig) |
659b9b404c02
Define synch_process_termsig.
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
828 { |
659b9b404c02
Define synch_process_termsig.
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
829 char *signame; |
659b9b404c02
Define synch_process_termsig.
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
830 |
659b9b404c02
Define synch_process_termsig.
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
831 synchronize_system_messages_locale (); |
659b9b404c02
Define synch_process_termsig.
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
832 signame = strsignal (synch_process_termsig); |
659b9b404c02
Define synch_process_termsig.
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
833 |
659b9b404c02
Define synch_process_termsig.
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
834 if (signame == 0) |
659b9b404c02
Define synch_process_termsig.
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
835 signame = "unknown"; |
659b9b404c02
Define synch_process_termsig.
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
836 |
659b9b404c02
Define synch_process_termsig.
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
837 synch_process_death = signame; |
659b9b404c02
Define synch_process_termsig.
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
838 } |
659b9b404c02
Define synch_process_termsig.
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
839 |
296 | 840 if (synch_process_death) |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
841 return code_convert_string_norecord (build_string (synch_process_death), |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
842 Vlocale_coding_system, 0); |
296 | 843 return make_number (synch_process_retcode); |
844 } | |
845 | |
1912
f0d4fb2b9157
* callproc.c (delete_temp_file): Declare this to return
Jim Blandy <jimb@redhat.com>
parents:
1886
diff
changeset
|
846 static Lisp_Object |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109087
diff
changeset
|
847 delete_temp_file (Lisp_Object name) |
296 | 848 { |
67989
d7475f0d0bda
(delete_temp_file): Bind file-name-handler-alist to nil for the call
Ken Raeburn <raeburn@raeburn.org>
parents:
67967
diff
changeset
|
849 /* Suppress jka-compr handling, etc. */ |
d7475f0d0bda
(delete_temp_file): Bind file-name-handler-alist to nil for the call
Ken Raeburn <raeburn@raeburn.org>
parents:
67967
diff
changeset
|
850 int count = SPECPDL_INDEX (); |
d7475f0d0bda
(delete_temp_file): Bind file-name-handler-alist to nil for the call
Ken Raeburn <raeburn@raeburn.org>
parents:
67967
diff
changeset
|
851 specbind (intern ("file-name-handler-alist"), Qnil); |
108806
511da81b16c5
Change delete-by-moving-to-trash so Lisp calls explicitly request trashing.
Chong Yidong <cyd@stupidchicken.com>
parents:
108235
diff
changeset
|
852 internal_delete_file (name); |
67989
d7475f0d0bda
(delete_temp_file): Bind file-name-handler-alist to nil for the call
Ken Raeburn <raeburn@raeburn.org>
parents:
67967
diff
changeset
|
853 unbind_to (count, Qnil); |
29905
ca781f54ac48
(setpgrp): Undefine before defining.
Dave Love <fx@gnu.org>
parents:
29287
diff
changeset
|
854 return Qnil; |
296 | 855 } |
856 | |
857 DEFUN ("call-process-region", Fcall_process_region, Scall_process_region, | |
40103
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
858 3, MANY, 0, |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
859 doc: /* Send text from START to END to a synchronous process running PROGRAM. |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
860 The remaining arguments are optional. |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
861 Delete the text if fourth arg DELETE is non-nil. |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
862 |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
863 Insert output in BUFFER before point; t means current buffer; |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
864 nil for BUFFER means discard it; 0 means discard and don't wait. |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
865 BUFFER can also have the form (REAL-BUFFER STDERR-FILE); in that case, |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
866 REAL-BUFFER says what to do with standard output, as above, |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
867 while STDERR-FILE says what to do with standard error in the child. |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
868 STDERR-FILE may be nil (discard standard error output), |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
869 t (mix it with ordinary output), or a file name string. |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
870 |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
871 Sixth arg DISPLAY non-nil means redisplay buffer as output is inserted. |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
872 Remaining args are passed to PROGRAM at startup as command args. |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
873 |
51070
54c727f3404e
(Fcall_process_region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
49600
diff
changeset
|
874 If BUFFER is 0, `call-process-region' returns immediately with value nil. |
40103
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
875 Otherwise it waits for PROGRAM to terminate |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
876 and returns a numeric exit status or a signal description string. |
40114
c8af574bcf48
(Fcall_process_region, Fcall_process): Add usage: string to doc string.
Miles Bader <miles@gnu.org>
parents:
40103
diff
changeset
|
877 If you quit, the process is killed with SIGINT, or SIGKILL if you quit again. |
c8af574bcf48
(Fcall_process_region, Fcall_process): Add usage: string to doc string.
Miles Bader <miles@gnu.org>
parents:
40103
diff
changeset
|
878 |
c8af574bcf48
(Fcall_process_region, Fcall_process): Add usage: string to doc string.
Miles Bader <miles@gnu.org>
parents:
40103
diff
changeset
|
879 usage: (call-process-region START END PROGRAM &optional DELETE BUFFER DISPLAY &rest ARGS) */) |
40103
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
880 (nargs, args) |
296 | 881 int nargs; |
882 register Lisp_Object *args; | |
883 { | |
8555
f1b1537ed3f6
(Fcall_process_region): gcpro filename_string.
Karl Heuer <kwzh@gnu.org>
parents:
7900
diff
changeset
|
884 struct gcpro gcpro1; |
f1b1537ed3f6
(Fcall_process_region): gcpro filename_string.
Karl Heuer <kwzh@gnu.org>
parents:
7900
diff
changeset
|
885 Lisp_Object filename_string; |
f1b1537ed3f6
(Fcall_process_region): gcpro filename_string.
Karl Heuer <kwzh@gnu.org>
parents:
7900
diff
changeset
|
886 register Lisp_Object start, end; |
46293
1fb8f75062c6
Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents:
46260
diff
changeset
|
887 int count = SPECPDL_INDEX (); |
18539
8c13c54d52c8
Call Ffind_operation_coding_system.
Kenichi Handa <handa@m17n.org>
parents:
18494
diff
changeset
|
888 /* Qt denotes we have not yet called Ffind_operation_coding_system. */ |
24931
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
889 Lisp_Object coding_systems; |
17025
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
890 Lisp_Object val, *args2; |
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
891 int i; |
5501
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
892 char *tempfile; |
101664
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
893 Lisp_Object tmpdir, pattern; |
5501
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
894 |
101664
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
895 if (STRINGP (Vtemporary_file_directory)) |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
896 tmpdir = Vtemporary_file_directory; |
5501
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
897 else |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
898 { |
101664
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
899 #ifndef DOS_NT |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
900 if (getenv ("TMPDIR")) |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
901 tmpdir = build_string (getenv ("TMPDIR")); |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
902 else |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
903 tmpdir = build_string ("/tmp/"); |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
904 #else /* DOS_NT */ |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
905 char *outf; |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
906 if ((outf = egetenv ("TMPDIR")) |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
907 || (outf = egetenv ("TMP")) |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
908 || (outf = egetenv ("TEMP"))) |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
909 tmpdir = build_string (outf); |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
910 else |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
911 tmpdir = Ffile_name_as_directory (build_string ("c:/temp")); |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
912 #endif |
5501
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
913 } |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
914 |
101664
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
915 pattern = Fexpand_file_name (Vtemp_file_name_pattern, tmpdir); |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
916 tempfile = (char *) alloca (SBYTES (pattern) + 1); |
109165
750db9f3e6d8
Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents:
109126
diff
changeset
|
917 memcpy (tempfile, SDATA (pattern), SBYTES (pattern) + 1); |
24931
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
918 coding_systems = Qt; |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
919 |
33285
91819a44456a
(Fcall_process_region): Use HAVE_MKSTEMP.
Dave Love <fx@gnu.org>
parents:
31100
diff
changeset
|
920 #ifdef HAVE_MKSTEMP |
91819a44456a
(Fcall_process_region): Use HAVE_MKSTEMP.
Dave Love <fx@gnu.org>
parents:
31100
diff
changeset
|
921 { |
75152
69fafc0d9959
(Fcall_process_region) [HAVE_MKSTEMP]: Add BLOCK_INPUT
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74836
diff
changeset
|
922 int fd; |
69fafc0d9959
(Fcall_process_region) [HAVE_MKSTEMP]: Add BLOCK_INPUT
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74836
diff
changeset
|
923 |
69fafc0d9959
(Fcall_process_region) [HAVE_MKSTEMP]: Add BLOCK_INPUT
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74836
diff
changeset
|
924 BLOCK_INPUT; |
69fafc0d9959
(Fcall_process_region) [HAVE_MKSTEMP]: Add BLOCK_INPUT
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74836
diff
changeset
|
925 fd = mkstemp (tempfile); |
69fafc0d9959
(Fcall_process_region) [HAVE_MKSTEMP]: Add BLOCK_INPUT
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74836
diff
changeset
|
926 UNBLOCK_INPUT; |
33285
91819a44456a
(Fcall_process_region): Use HAVE_MKSTEMP.
Dave Love <fx@gnu.org>
parents:
31100
diff
changeset
|
927 if (fd == -1) |
91819a44456a
(Fcall_process_region): Use HAVE_MKSTEMP.
Dave Love <fx@gnu.org>
parents:
31100
diff
changeset
|
928 report_file_error ("Failed to open temporary file", |
91819a44456a
(Fcall_process_region): Use HAVE_MKSTEMP.
Dave Love <fx@gnu.org>
parents:
31100
diff
changeset
|
929 Fcons (Vtemp_file_name_pattern, Qnil)); |
91819a44456a
(Fcall_process_region): Use HAVE_MKSTEMP.
Dave Love <fx@gnu.org>
parents:
31100
diff
changeset
|
930 else |
91819a44456a
(Fcall_process_region): Use HAVE_MKSTEMP.
Dave Love <fx@gnu.org>
parents:
31100
diff
changeset
|
931 close (fd); |
91819a44456a
(Fcall_process_region): Use HAVE_MKSTEMP.
Dave Love <fx@gnu.org>
parents:
31100
diff
changeset
|
932 } |
91819a44456a
(Fcall_process_region): Use HAVE_MKSTEMP.
Dave Love <fx@gnu.org>
parents:
31100
diff
changeset
|
933 #else |
296 | 934 mktemp (tempfile); |
33285
91819a44456a
(Fcall_process_region): Use HAVE_MKSTEMP.
Dave Love <fx@gnu.org>
parents:
31100
diff
changeset
|
935 #endif |
296 | 936 |
937 filename_string = build_string (tempfile); | |
8555
f1b1537ed3f6
(Fcall_process_region): gcpro filename_string.
Karl Heuer <kwzh@gnu.org>
parents:
7900
diff
changeset
|
938 GCPRO1 (filename_string); |
296 | 939 start = args[0]; |
940 end = args[1]; | |
17025
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
941 /* Decide coding-system of the contents of the temporary file. */ |
19730
1657f4dd8c05
(Fcall_process): Set EOL conversion type to LF when
Richard M. Stallman <rms@gnu.org>
parents:
19580
diff
changeset
|
942 if (!NILP (Vcoding_system_for_write)) |
1657f4dd8c05
(Fcall_process): Set EOL conversion type to LF when
Richard M. Stallman <rms@gnu.org>
parents:
19580
diff
changeset
|
943 val = Vcoding_system_for_write; |
1657f4dd8c05
(Fcall_process): Set EOL conversion type to LF when
Richard M. Stallman <rms@gnu.org>
parents:
19580
diff
changeset
|
944 else if (NILP (current_buffer->enable_multibyte_characters)) |
17025
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
945 val = Qnil; |
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
946 else |
18651
982814f78d0d
(Fcall_process): If enable-multibyte-characters is
Kenichi Handa <handa@m17n.org>
parents:
18539
diff
changeset
|
947 { |
19730
1657f4dd8c05
(Fcall_process): Set EOL conversion type to LF when
Richard M. Stallman <rms@gnu.org>
parents:
19580
diff
changeset
|
948 args2 = (Lisp_Object *) alloca ((nargs + 1) * sizeof *args2); |
1657f4dd8c05
(Fcall_process): Set EOL conversion type to LF when
Richard M. Stallman <rms@gnu.org>
parents:
19580
diff
changeset
|
949 args2[0] = Qcall_process_region; |
1657f4dd8c05
(Fcall_process): Set EOL conversion type to LF when
Richard M. Stallman <rms@gnu.org>
parents:
19580
diff
changeset
|
950 for (i = 0; i < nargs; i++) args2[i + 1] = args[i]; |
1657f4dd8c05
(Fcall_process): Set EOL conversion type to LF when
Richard M. Stallman <rms@gnu.org>
parents:
19580
diff
changeset
|
951 coding_systems = Ffind_operation_coding_system (nargs + 1, args2); |
1657f4dd8c05
(Fcall_process): Set EOL conversion type to LF when
Richard M. Stallman <rms@gnu.org>
parents:
19580
diff
changeset
|
952 if (CONSP (coding_systems)) |
25645
a14111a2a100
Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25522
diff
changeset
|
953 val = XCDR (coding_systems); |
19730
1657f4dd8c05
(Fcall_process): Set EOL conversion type to LF when
Richard M. Stallman <rms@gnu.org>
parents:
19580
diff
changeset
|
954 else if (CONSP (Vdefault_process_coding_system)) |
25645
a14111a2a100
Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25522
diff
changeset
|
955 val = XCDR (Vdefault_process_coding_system); |
18651
982814f78d0d
(Fcall_process): If enable-multibyte-characters is
Kenichi Handa <handa@m17n.org>
parents:
18539
diff
changeset
|
956 else |
19730
1657f4dd8c05
(Fcall_process): Set EOL conversion type to LF when
Richard M. Stallman <rms@gnu.org>
parents:
19580
diff
changeset
|
957 val = Qnil; |
18651
982814f78d0d
(Fcall_process): If enable-multibyte-characters is
Kenichi Handa <handa@m17n.org>
parents:
18539
diff
changeset
|
958 } |
19730
1657f4dd8c05
(Fcall_process): Set EOL conversion type to LF when
Richard M. Stallman <rms@gnu.org>
parents:
19580
diff
changeset
|
959 |
21626
ad899130056e
(Fcall_process_region): Unbind coding-system-for-write
Richard M. Stallman <rms@gnu.org>
parents:
21572
diff
changeset
|
960 { |
46293
1fb8f75062c6
Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents:
46260
diff
changeset
|
961 int count1 = SPECPDL_INDEX (); |
21626
ad899130056e
(Fcall_process_region): Unbind coding-system-for-write
Richard M. Stallman <rms@gnu.org>
parents:
21572
diff
changeset
|
962 |
ad899130056e
(Fcall_process_region): Unbind coding-system-for-write
Richard M. Stallman <rms@gnu.org>
parents:
21572
diff
changeset
|
963 specbind (intern ("coding-system-for-write"), val); |
67967
5936baa93f63
(Fcall_process_region): Bind file-name-handler-alist to nil for the call to
Ken Raeburn <raeburn@raeburn.org>
parents:
64770
diff
changeset
|
964 /* POSIX lets mk[s]temp use "."; don't invoke jka-compr if we |
5936baa93f63
(Fcall_process_region): Bind file-name-handler-alist to nil for the call to
Ken Raeburn <raeburn@raeburn.org>
parents:
64770
diff
changeset
|
965 happen to get a ".Z" suffix. */ |
5936baa93f63
(Fcall_process_region): Bind file-name-handler-alist to nil for the call to
Ken Raeburn <raeburn@raeburn.org>
parents:
64770
diff
changeset
|
966 specbind (intern ("file-name-handler-alist"), Qnil); |
21626
ad899130056e
(Fcall_process_region): Unbind coding-system-for-write
Richard M. Stallman <rms@gnu.org>
parents:
21572
diff
changeset
|
967 Fwrite_region (start, end, filename_string, Qnil, Qlambda, Qnil, Qnil); |
ad899130056e
(Fcall_process_region): Unbind coding-system-for-write
Richard M. Stallman <rms@gnu.org>
parents:
21572
diff
changeset
|
968 |
ad899130056e
(Fcall_process_region): Unbind coding-system-for-write
Richard M. Stallman <rms@gnu.org>
parents:
21572
diff
changeset
|
969 unbind_to (count1, Qnil); |
ad899130056e
(Fcall_process_region): Unbind coding-system-for-write
Richard M. Stallman <rms@gnu.org>
parents:
21572
diff
changeset
|
970 } |
17025
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
971 |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
47018
diff
changeset
|
972 /* Note that Fcall_process takes care of binding |
19730
1657f4dd8c05
(Fcall_process): Set EOL conversion type to LF when
Richard M. Stallman <rms@gnu.org>
parents:
19580
diff
changeset
|
973 coding-system-for-read. */ |
7397
e0ffa47f2ed4
[MSDOS]: Rename Vbinary_process to Vbinary_process_output.
Richard M. Stallman <rms@gnu.org>
parents:
7161
diff
changeset
|
974 |
296 | 975 record_unwind_protect (delete_temp_file, filename_string); |
976 | |
23885 | 977 if (nargs > 3 && !NILP (args[3])) |
296 | 978 Fdelete_region (start, end); |
979 | |
23885 | 980 if (nargs > 3) |
981 { | |
982 args += 2; | |
983 nargs -= 2; | |
984 } | |
985 else | |
986 { | |
987 args[0] = args[2]; | |
988 nargs = 2; | |
989 } | |
990 args[1] = filename_string; | |
296 | 991 |
23885 | 992 RETURN_UNGCPRO (unbind_to (count, Fcall_process (nargs, args))); |
296 | 993 } |
994 | |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109087
diff
changeset
|
995 static int relocate_fd (int fd, int minfd); |
21514 | 996 |
83425
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
997 static char ** |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
998 add_env (char **env, char **new_env, char *string) |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
999 { |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1000 char **ep; |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1001 int ok = 1; |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1002 if (string == NULL) |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1003 return new_env; |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1004 |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1005 /* See if this string duplicates any string already in the env. |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1006 If so, don't put it in. |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1007 When an env var has multiple definitions, |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1008 we keep the definition that comes first in process-environment. */ |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1009 for (ep = env; ok && ep != new_env; ep++) |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1010 { |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1011 char *p = *ep, *q = string; |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1012 while (ok) |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1013 { |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1014 if (*q != *p) |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1015 break; |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1016 if (*q == 0) |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1017 /* The string is a lone variable name; keep it for now, we |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1018 will remove it later. It is a placeholder for a |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1019 variable that is not to be included in the environment. */ |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1020 break; |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1021 if (*q == '=') |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1022 ok = 0; |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1023 p++, q++; |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1024 } |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1025 } |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1026 if (ok) |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1027 *new_env++ = string; |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1028 return new_env; |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1029 } |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1030 |
296 | 1031 /* This is the last thing run in a newly forked inferior |
1032 either synchronous or asynchronous. | |
1033 Copy descriptors IN, OUT and ERR as descriptors 0, 1 and 2. | |
1034 Initialize inferior's priority, pgrp, connected dir and environment. | |
1035 then exec another program based on new_argv. | |
1036 | |
1037 This function may change environ for the superior process. | |
1038 Therefore, the superior process must save and restore the value | |
1039 of environ around the vfork and the call to this function. | |
1040 | |
1041 SET_PGRP is nonzero if we should put the subprocess into a separate | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
47018
diff
changeset
|
1042 process group. |
296 | 1043 |
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1044 CURRENT_DIR is an elisp string giving the path of the current |
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1045 directory the subprocess should have. Since we can't really signal |
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1046 a decent error from within the child, this should be verified as an |
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1047 executable directory by the parent. */ |
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1048 |
21514 | 1049 int |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109087
diff
changeset
|
1050 child_setup (int in, int out, int err, register char **new_argv, int set_pgrp, Lisp_Object current_dir) |
296 | 1051 { |
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1052 char **env; |
7722
e422f06592d3
(child_setup): If PWD is set, set it in the child so that
Richard M. Stallman <rms@gnu.org>
parents:
7481
diff
changeset
|
1053 char *pwd_var; |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1054 #ifdef WINDOWSNT |
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1055 int cpid; |
15087
46157341f721
(Fcall_process) [WINDOWSNT]: Remove conditional NT code.
Richard M. Stallman <rms@gnu.org>
parents:
14872
diff
changeset
|
1056 HANDLE handles[3]; |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1057 #endif /* WINDOWSNT */ |
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1058 |
5530
7ff479a8e8bf
(child_setup): Don't declare PID `register'; we later take its address.
Roland McGrath <roland@gnu.org>
parents:
5516
diff
changeset
|
1059 int pid = getpid (); |
296 | 1060 |
7481
b7d23c08750c
(child_setup): PRIO_PROCESS renamed to SET_EMACS_PRIORITY.
Richard M. Stallman <rms@gnu.org>
parents:
7465
diff
changeset
|
1061 #ifdef SET_EMACS_PRIORITY |
1201
4ea86d32c012
* callproc.c (child_setup): Don't use setpriority; we just need a
Jim Blandy <jimb@redhat.com>
parents:
948
diff
changeset
|
1062 { |
43713
f92c4d87863a
Change defvar_int def and vars to use EMACS_INT instead of just int.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41861
diff
changeset
|
1063 extern EMACS_INT emacs_priority; |
1201
4ea86d32c012
* callproc.c (child_setup): Don't use setpriority; we just need a
Jim Blandy <jimb@redhat.com>
parents:
948
diff
changeset
|
1064 |
7481
b7d23c08750c
(child_setup): PRIO_PROCESS renamed to SET_EMACS_PRIORITY.
Richard M. Stallman <rms@gnu.org>
parents:
7465
diff
changeset
|
1065 if (emacs_priority < 0) |
b7d23c08750c
(child_setup): PRIO_PROCESS renamed to SET_EMACS_PRIORITY.
Richard M. Stallman <rms@gnu.org>
parents:
7465
diff
changeset
|
1066 nice (- emacs_priority); |
1201
4ea86d32c012
* callproc.c (child_setup): Don't use setpriority; we just need a
Jim Blandy <jimb@redhat.com>
parents:
948
diff
changeset
|
1067 } |
7161
67618cd7bdbf
(child_setup): Test PRIO_PROCESS, as in sys_subshell.
Richard M. Stallman <rms@gnu.org>
parents:
7000
diff
changeset
|
1068 #endif |
296 | 1069 |
1070 #ifdef subprocesses | |
1071 /* Close Emacs's descriptors that this process should not have. */ | |
1072 close_process_descs (); | |
1073 #endif | |
21694
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
parents:
21626
diff
changeset
|
1074 /* DOS_NT isn't in a vfork, so if we are in the middle of load-file, |
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
parents:
21626
diff
changeset
|
1075 we will lose if we call close_load_descs here. */ |
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
parents:
21626
diff
changeset
|
1076 #ifndef DOS_NT |
5569
b9e2884ca8e6
(child_setup): Call close_load_descs.
Richard M. Stallman <rms@gnu.org>
parents:
5530
diff
changeset
|
1077 close_load_descs (); |
21694
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
parents:
21626
diff
changeset
|
1078 #endif |
296 | 1079 |
1080 /* Note that use of alloca is always safe here. It's obvious for systems | |
1081 that do not have true vfork or that have true (stack) alloca. | |
84490
23e7b73bbc00
Update comment referring to C_ALLOCA.
Glenn Morris <rgm@gnu.org>
parents:
83802
diff
changeset
|
1082 If using vfork and C_ALLOCA (when Emacs used to include |
23e7b73bbc00
Update comment referring to C_ALLOCA.
Glenn Morris <rgm@gnu.org>
parents:
83802
diff
changeset
|
1083 src/alloca.c) it is safe because that changes the superior's |
23e7b73bbc00
Update comment referring to C_ALLOCA.
Glenn Morris <rgm@gnu.org>
parents:
83802
diff
changeset
|
1084 static variables as if the superior had done alloca and will be |
23e7b73bbc00
Update comment referring to C_ALLOCA.
Glenn Morris <rgm@gnu.org>
parents:
83802
diff
changeset
|
1085 cleaned up in the usual way. */ |
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1086 { |
7722
e422f06592d3
(child_setup): If PWD is set, set it in the child so that
Richard M. Stallman <rms@gnu.org>
parents:
7481
diff
changeset
|
1087 register char *temp; |
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1088 register int i; |
296 | 1089 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
1090 i = SBYTES (current_dir); |
30530
861a1460eba6
(child_setup) [MSDOS]: malloc pwd_var instead of
Eli Zaretskii <eliz@gnu.org>
parents:
29905
diff
changeset
|
1091 #ifdef MSDOS |
861a1460eba6
(child_setup) [MSDOS]: malloc pwd_var instead of
Eli Zaretskii <eliz@gnu.org>
parents:
29905
diff
changeset
|
1092 /* MSDOS must have all environment variables malloc'ed, because |
861a1460eba6
(child_setup) [MSDOS]: malloc pwd_var instead of
Eli Zaretskii <eliz@gnu.org>
parents:
29905
diff
changeset
|
1093 low-level libc functions that launch subsidiary processes rely |
861a1460eba6
(child_setup) [MSDOS]: malloc pwd_var instead of
Eli Zaretskii <eliz@gnu.org>
parents:
29905
diff
changeset
|
1094 on that. */ |
861a1460eba6
(child_setup) [MSDOS]: malloc pwd_var instead of
Eli Zaretskii <eliz@gnu.org>
parents:
29905
diff
changeset
|
1095 pwd_var = (char *) xmalloc (i + 6); |
861a1460eba6
(child_setup) [MSDOS]: malloc pwd_var instead of
Eli Zaretskii <eliz@gnu.org>
parents:
29905
diff
changeset
|
1096 #else |
7722
e422f06592d3
(child_setup): If PWD is set, set it in the child so that
Richard M. Stallman <rms@gnu.org>
parents:
7481
diff
changeset
|
1097 pwd_var = (char *) alloca (i + 6); |
30530
861a1460eba6
(child_setup) [MSDOS]: malloc pwd_var instead of
Eli Zaretskii <eliz@gnu.org>
parents:
29905
diff
changeset
|
1098 #endif |
7722
e422f06592d3
(child_setup): If PWD is set, set it in the child so that
Richard M. Stallman <rms@gnu.org>
parents:
7481
diff
changeset
|
1099 temp = pwd_var + 4; |
109165
750db9f3e6d8
Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents:
109126
diff
changeset
|
1100 memcpy (pwd_var, "PWD=", 4); |
750db9f3e6d8
Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents:
109126
diff
changeset
|
1101 memcpy (temp, SDATA (current_dir), i); |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1102 if (!IS_DIRECTORY_SEP (temp[i - 1])) temp[i++] = DIRECTORY_SEP; |
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1103 temp[i] = 0; |
538 | 1104 |
21694
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
parents:
21626
diff
changeset
|
1105 #ifndef DOS_NT |
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1106 /* We can't signal an Elisp error here; we're in a vfork. Since |
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1107 the callers check the current directory before forking, this |
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1108 should only return an error if the directory's permissions |
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1109 are changed between the check and this chdir, but we should |
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1110 at least check. */ |
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1111 if (chdir (temp) < 0) |
9609
74985a8972e4
(child_setup): Always use _exit.
Richard M. Stallman <rms@gnu.org>
parents:
9138
diff
changeset
|
1112 _exit (errno); |
103711
531520bb5152
* sysdep.c (sys_suspend): Remove USG_JOBCTRL #ifdef, unused.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
103111
diff
changeset
|
1113 #else /* DOS_NT */ |
21694
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
parents:
21626
diff
changeset
|
1114 /* Get past the drive letter, so that d:/ is left alone. */ |
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
parents:
21626
diff
changeset
|
1115 if (i > 2 && IS_DEVICE_SEP (temp[1]) && IS_DIRECTORY_SEP (temp[2])) |
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
parents:
21626
diff
changeset
|
1116 { |
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
parents:
21626
diff
changeset
|
1117 temp += 2; |
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
parents:
21626
diff
changeset
|
1118 i -= 2; |
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
parents:
21626
diff
changeset
|
1119 } |
103711
531520bb5152
* sysdep.c (sys_suspend): Remove USG_JOBCTRL #ifdef, unused.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
103111
diff
changeset
|
1120 #endif /* DOS_NT */ |
21694
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
parents:
21626
diff
changeset
|
1121 |
7722
e422f06592d3
(child_setup): If PWD is set, set it in the child so that
Richard M. Stallman <rms@gnu.org>
parents:
7481
diff
changeset
|
1122 /* Strip trailing slashes for PWD, but leave "/" and "//" alone. */ |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1123 while (i > 2 && IS_DIRECTORY_SEP (temp[i - 1])) |
7722
e422f06592d3
(child_setup): If PWD is set, set it in the child so that
Richard M. Stallman <rms@gnu.org>
parents:
7481
diff
changeset
|
1124 temp[--i] = 0; |
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1125 } |
296 | 1126 |
83425
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1127 /* Set `env' to a vector of the strings in the environment. */ |
296 | 1128 { |
1129 register Lisp_Object tem; | |
1130 register char **new_env; | |
83425
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1131 char **p, **q; |
296 | 1132 register int new_length; |
84740
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1133 Lisp_Object display = Qnil; |
83640
2aee92eacdab
* server.el (server-process-filter): Likewise.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83556
diff
changeset
|
1134 |
296 | 1135 new_length = 0; |
1136 | |
1137 for (tem = Vprocess_environment; | |
83425
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1138 CONSP (tem) && STRINGP (XCAR (tem)); |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1139 tem = XCDR (tem)) |
84740
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1140 { |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1141 if (strncmp (SDATA (XCAR (tem)), "DISPLAY", 7) == 0 |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1142 && (SDATA (XCAR (tem)) [7] == '\0' |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1143 || SDATA (XCAR (tem)) [7] == '=')) |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1144 /* DISPLAY is specified in process-environment. */ |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1145 display = Qt; |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1146 new_length++; |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1147 } |
83425
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1148 |
84740
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1149 /* If not provided yet, use the frame's DISPLAY. */ |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1150 if (NILP (display)) |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1151 { |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1152 Lisp_Object tmp = Fframe_parameter (selected_frame, Qdisplay); |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1153 if (!STRINGP (tmp) && CONSP (Vinitial_environment)) |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1154 /* If still not found, Look for DISPLAY in Vinitial_environment. */ |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1155 tmp = Fgetenv_internal (build_string ("DISPLAY"), |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1156 Vinitial_environment); |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1157 if (STRINGP (tmp)) |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1158 { |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1159 display = tmp; |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1160 new_length++; |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1161 } |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1162 } |
296 | 1163 |
7722
e422f06592d3
(child_setup): If PWD is set, set it in the child so that
Richard M. Stallman <rms@gnu.org>
parents:
7481
diff
changeset
|
1164 /* new_length + 2 to include PWD and terminating 0. */ |
e422f06592d3
(child_setup): If PWD is set, set it in the child so that
Richard M. Stallman <rms@gnu.org>
parents:
7481
diff
changeset
|
1165 env = new_env = (char **) alloca ((new_length + 2) * sizeof (char *)); |
e422f06592d3
(child_setup): If PWD is set, set it in the child so that
Richard M. Stallman <rms@gnu.org>
parents:
7481
diff
changeset
|
1166 /* If we have a PWD envvar, pass one down, |
e422f06592d3
(child_setup): If PWD is set, set it in the child so that
Richard M. Stallman <rms@gnu.org>
parents:
7481
diff
changeset
|
1167 but with corrected value. */ |
83529
0d9e16eab053
Rework environment variable support. (Reported by Kalle Olavi Niemitalo and Noah Friedman.)
Karoly Lorentey <lorentey@elte.hu>
parents:
83518
diff
changeset
|
1168 if (egetenv ("PWD")) |
7722
e422f06592d3
(child_setup): If PWD is set, set it in the child so that
Richard M. Stallman <rms@gnu.org>
parents:
7481
diff
changeset
|
1169 *new_env++ = pwd_var; |
83425
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1170 |
83796
e7303426ed25
(Vinitial_environment): New variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
83652
diff
changeset
|
1171 if (STRINGP (display)) |
83640
2aee92eacdab
* server.el (server-process-filter): Likewise.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83556
diff
changeset
|
1172 { |
2aee92eacdab
* server.el (server-process-filter): Likewise.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83556
diff
changeset
|
1173 int vlen = strlen ("DISPLAY=") + strlen (SDATA (display)) + 1; |
2aee92eacdab
* server.el (server-process-filter): Likewise.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83556
diff
changeset
|
1174 char *vdata = (char *) alloca (vlen); |
2aee92eacdab
* server.el (server-process-filter): Likewise.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83556
diff
changeset
|
1175 strcpy (vdata, "DISPLAY="); |
2aee92eacdab
* server.el (server-process-filter): Likewise.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83556
diff
changeset
|
1176 strcat (vdata, SDATA (display)); |
2aee92eacdab
* server.el (server-process-filter): Likewise.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83556
diff
changeset
|
1177 new_env = add_env (env, new_env, vdata); |
2aee92eacdab
* server.el (server-process-filter): Likewise.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83556
diff
changeset
|
1178 } |
296 | 1179 |
83425
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1180 /* Overrides. */ |
296 | 1181 for (tem = Vprocess_environment; |
25645
a14111a2a100
Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25522
diff
changeset
|
1182 CONSP (tem) && STRINGP (XCAR (tem)); |
a14111a2a100
Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25522
diff
changeset
|
1183 tem = XCDR (tem)) |
84740
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1184 new_env = add_env (env, new_env, SDATA (XCAR (tem))); |
296 | 1185 |
1186 *new_env = 0; | |
83425
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1187 |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1188 /* Remove variable names without values. */ |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1189 p = q = env; |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1190 while (*p != 0) |
2757
a3ee51f30431
(child_setup): Omit duplicates from new env array.
Richard M. Stallman <rms@gnu.org>
parents:
2509
diff
changeset
|
1191 { |
83425
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1192 while (*q != 0 && strchr (*q, '=') == NULL) |
85596
ca34d3d5d8bf
(child_setup): Remove spurious *.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85146
diff
changeset
|
1193 q++; |
83425
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1194 *p = *q++; |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1195 if (*p != 0) |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1196 p++; |
2757
a3ee51f30431
(child_setup): Omit duplicates from new env array.
Richard M. Stallman <rms@gnu.org>
parents:
2509
diff
changeset
|
1197 } |
296 | 1198 } |
83640
2aee92eacdab
* server.el (server-process-filter): Likewise.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83556
diff
changeset
|
1199 |
2aee92eacdab
* server.el (server-process-filter): Likewise.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83556
diff
changeset
|
1200 |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1201 #ifdef WINDOWSNT |
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1202 prepare_standard_handles (in, out, err, handles); |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
1203 set_process_dir (SDATA (current_dir)); |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1204 #else /* not WINDOWSNT */ |
2286
7f66b40a0192
* callproc.c (child_setup): Make sure that in, out, and err are
Jim Blandy <jimb@redhat.com>
parents:
1912
diff
changeset
|
1205 /* Make sure that in, out, and err are not actually already in |
7f66b40a0192
* callproc.c (child_setup): Make sure that in, out, and err are
Jim Blandy <jimb@redhat.com>
parents:
1912
diff
changeset
|
1206 descriptors zero, one, or two; this could happen if Emacs is |
5501
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
1207 started with its standard in, out, or error closed, as might |
2286
7f66b40a0192
* callproc.c (child_setup): Make sure that in, out, and err are
Jim Blandy <jimb@redhat.com>
parents:
1912
diff
changeset
|
1208 happen under X. */ |
12430
14792ea851f9
(child_setup): Don't get confused if in == err.
Richard M. Stallman <rms@gnu.org>
parents:
12238
diff
changeset
|
1209 { |
14792ea851f9
(child_setup): Don't get confused if in == err.
Richard M. Stallman <rms@gnu.org>
parents:
12238
diff
changeset
|
1210 int oin = in, oout = out; |
14792ea851f9
(child_setup): Don't get confused if in == err.
Richard M. Stallman <rms@gnu.org>
parents:
12238
diff
changeset
|
1211 |
14792ea851f9
(child_setup): Don't get confused if in == err.
Richard M. Stallman <rms@gnu.org>
parents:
12238
diff
changeset
|
1212 /* We have to avoid relocating the same descriptor twice! */ |
14792ea851f9
(child_setup): Don't get confused if in == err.
Richard M. Stallman <rms@gnu.org>
parents:
12238
diff
changeset
|
1213 |
14792ea851f9
(child_setup): Don't get confused if in == err.
Richard M. Stallman <rms@gnu.org>
parents:
12238
diff
changeset
|
1214 in = relocate_fd (in, 3); |
14792ea851f9
(child_setup): Don't get confused if in == err.
Richard M. Stallman <rms@gnu.org>
parents:
12238
diff
changeset
|
1215 |
14792ea851f9
(child_setup): Don't get confused if in == err.
Richard M. Stallman <rms@gnu.org>
parents:
12238
diff
changeset
|
1216 if (out == oin) |
14792ea851f9
(child_setup): Don't get confused if in == err.
Richard M. Stallman <rms@gnu.org>
parents:
12238
diff
changeset
|
1217 out = in; |
14792ea851f9
(child_setup): Don't get confused if in == err.
Richard M. Stallman <rms@gnu.org>
parents:
12238
diff
changeset
|
1218 else |
6614
e095c5efe2e0
(child_setup): Check out==err when relocating fds.
Karl Heuer <kwzh@gnu.org>
parents:
6495
diff
changeset
|
1219 out = relocate_fd (out, 3); |
12430
14792ea851f9
(child_setup): Don't get confused if in == err.
Richard M. Stallman <rms@gnu.org>
parents:
12238
diff
changeset
|
1220 |
14792ea851f9
(child_setup): Don't get confused if in == err.
Richard M. Stallman <rms@gnu.org>
parents:
12238
diff
changeset
|
1221 if (err == oin) |
14792ea851f9
(child_setup): Don't get confused if in == err.
Richard M. Stallman <rms@gnu.org>
parents:
12238
diff
changeset
|
1222 err = in; |
14792ea851f9
(child_setup): Don't get confused if in == err.
Richard M. Stallman <rms@gnu.org>
parents:
12238
diff
changeset
|
1223 else if (err == oout) |
14792ea851f9
(child_setup): Don't get confused if in == err.
Richard M. Stallman <rms@gnu.org>
parents:
12238
diff
changeset
|
1224 err = out; |
14792ea851f9
(child_setup): Don't get confused if in == err.
Richard M. Stallman <rms@gnu.org>
parents:
12238
diff
changeset
|
1225 else |
6614
e095c5efe2e0
(child_setup): Check out==err when relocating fds.
Karl Heuer <kwzh@gnu.org>
parents:
6495
diff
changeset
|
1226 err = relocate_fd (err, 3); |
12430
14792ea851f9
(child_setup): Don't get confused if in == err.
Richard M. Stallman <rms@gnu.org>
parents:
12238
diff
changeset
|
1227 } |
2286
7f66b40a0192
* callproc.c (child_setup): Make sure that in, out, and err are
Jim Blandy <jimb@redhat.com>
parents:
1912
diff
changeset
|
1228 |
21694
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
parents:
21626
diff
changeset
|
1229 #ifndef MSDOS |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
1230 emacs_close (0); |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
1231 emacs_close (1); |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
1232 emacs_close (2); |
296 | 1233 |
1234 dup2 (in, 0); | |
1235 dup2 (out, 1); | |
1236 dup2 (err, 2); | |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
1237 emacs_close (in); |
109087
a089fae47976
Avoid erroneous syscalls
Andreas Schwab <schwab@linux-m68k.org>
parents:
108908
diff
changeset
|
1238 if (out != in) |
a089fae47976
Avoid erroneous syscalls
Andreas Schwab <schwab@linux-m68k.org>
parents:
108908
diff
changeset
|
1239 emacs_close (out); |
a089fae47976
Avoid erroneous syscalls
Andreas Schwab <schwab@linux-m68k.org>
parents:
108908
diff
changeset
|
1240 if (err != in && err != out) |
a089fae47976
Avoid erroneous syscalls
Andreas Schwab <schwab@linux-m68k.org>
parents:
108908
diff
changeset
|
1241 emacs_close (err); |
21694
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
parents:
21626
diff
changeset
|
1242 #endif /* not MSDOS */ |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1243 #endif /* not WINDOWSNT */ |
296 | 1244 |
108235 | 1245 #if defined(USG) |
5179
2a1492764d5e
(child_setup): Test SETPGRP_RELEASES_CTTY, not IRIX.
Richard M. Stallman <rms@gnu.org>
parents:
5154
diff
changeset
|
1246 #ifndef SETPGRP_RELEASES_CTTY |
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1247 setpgrp (); /* No arguments but equivalent in this case */ |
5179
2a1492764d5e
(child_setup): Test SETPGRP_RELEASES_CTTY, not IRIX.
Richard M. Stallman <rms@gnu.org>
parents:
5154
diff
changeset
|
1248 #endif |
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1249 #else |
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1250 setpgrp (pid, pid); |
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1251 #endif /* USG */ |
5348 | 1252 /* setpgrp_of_tty is incorrect here; it uses input_fd. */ |
1253 EMACS_SET_TTY_PGRP (0, &pid); | |
296 | 1254 |
21694
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
parents:
21626
diff
changeset
|
1255 #ifdef MSDOS |
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
parents:
21626
diff
changeset
|
1256 pid = run_msdos_command (new_argv, pwd_var + 4, in, out, err, env); |
30607
7f8793e95bb0
(child_setup): Use xfree instead of free.
Gerd Moellmann <gerd@gnu.org>
parents:
30579
diff
changeset
|
1257 xfree (pwd_var); |
21694
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
parents:
21626
diff
changeset
|
1258 if (pid == -1) |
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
parents:
21626
diff
changeset
|
1259 /* An error occurred while trying to run the subprocess. */ |
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
parents:
21626
diff
changeset
|
1260 report_file_error ("Spawning child process", Qnil); |
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
parents:
21626
diff
changeset
|
1261 return pid; |
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
parents:
21626
diff
changeset
|
1262 #else /* not MSDOS */ |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1263 #ifdef WINDOWSNT |
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1264 /* Spawn the child. (See ntproc.c:Spawnve). */ |
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1265 cpid = spawnve (_P_NOWAIT, new_argv[0], new_argv, env); |
20041
c743e52dd2b0
Ensure standard handles are reset even if spawnve fails.
Andrew Innes <andrewi@gnu.org>
parents:
19967
diff
changeset
|
1266 reset_standard_handles (in, out, err, handles); |
11379
23f7aa711f96
(child_setup) [WINDOWSNT]: Removed syntax errors.
Karl Heuer <kwzh@gnu.org>
parents:
11235
diff
changeset
|
1267 if (cpid == -1) |
23f7aa711f96
(child_setup) [WINDOWSNT]: Removed syntax errors.
Karl Heuer <kwzh@gnu.org>
parents:
11235
diff
changeset
|
1268 /* An error occurred while trying to spawn the process. */ |
23f7aa711f96
(child_setup) [WINDOWSNT]: Removed syntax errors.
Karl Heuer <kwzh@gnu.org>
parents:
11235
diff
changeset
|
1269 report_file_error ("Spawning child process", Qnil); |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1270 return cpid; |
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1271 #else /* not WINDOWSNT */ |
296 | 1272 /* execvp does not accept an environment arg so the only way |
1273 to pass this environment is to set environ. Our caller | |
1274 is responsible for restoring the ambient value of environ. */ | |
1275 environ = env; | |
1276 execvp (new_argv[0], new_argv); | |
1277 | |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
1278 emacs_write (1, "Can't exec program: ", 20); |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
1279 emacs_write (1, new_argv[0], strlen (new_argv[0])); |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
1280 emacs_write (1, "\n", 1); |
296 | 1281 _exit (1); |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1282 #endif /* not WINDOWSNT */ |
5501
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
1283 #endif /* not MSDOS */ |
296 | 1284 } |
1285 | |
21454
1361a790bca8
(relocate_fd): Avoid `min'/`max' as variable names.
Karl Heuer <kwzh@gnu.org>
parents:
21244
diff
changeset
|
1286 /* Move the file descriptor FD so that its number is not less than MINFD. |
2286
7f66b40a0192
* callproc.c (child_setup): Make sure that in, out, and err are
Jim Blandy <jimb@redhat.com>
parents:
1912
diff
changeset
|
1287 If the file descriptor is moved at all, the original is freed. */ |
21514 | 1288 static int |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109087
diff
changeset
|
1289 relocate_fd (int fd, int minfd) |
2286
7f66b40a0192
* callproc.c (child_setup): Make sure that in, out, and err are
Jim Blandy <jimb@redhat.com>
parents:
1912
diff
changeset
|
1290 { |
21454
1361a790bca8
(relocate_fd): Avoid `min'/`max' as variable names.
Karl Heuer <kwzh@gnu.org>
parents:
21244
diff
changeset
|
1291 if (fd >= minfd) |
2286
7f66b40a0192
* callproc.c (child_setup): Make sure that in, out, and err are
Jim Blandy <jimb@redhat.com>
parents:
1912
diff
changeset
|
1292 return fd; |
7f66b40a0192
* callproc.c (child_setup): Make sure that in, out, and err are
Jim Blandy <jimb@redhat.com>
parents:
1912
diff
changeset
|
1293 else |
7f66b40a0192
* callproc.c (child_setup): Make sure that in, out, and err are
Jim Blandy <jimb@redhat.com>
parents:
1912
diff
changeset
|
1294 { |
7f66b40a0192
* callproc.c (child_setup): Make sure that in, out, and err are
Jim Blandy <jimb@redhat.com>
parents:
1912
diff
changeset
|
1295 int new = dup (fd); |
7f66b40a0192
* callproc.c (child_setup): Make sure that in, out, and err are
Jim Blandy <jimb@redhat.com>
parents:
1912
diff
changeset
|
1296 if (new == -1) |
7f66b40a0192
* callproc.c (child_setup): Make sure that in, out, and err are
Jim Blandy <jimb@redhat.com>
parents:
1912
diff
changeset
|
1297 { |
2509
daaa78c8c980
* callproc.c (relocate_fd): Make messages string literals, not
Jim Blandy <jimb@redhat.com>
parents:
2432
diff
changeset
|
1298 char *message1 = "Error while setting up child: "; |
5516
ec5a245c14ed
Don't declare sys_errlist; declare strerror instead.
Roland McGrath <roland@gnu.org>
parents:
5501
diff
changeset
|
1299 char *errmessage = strerror (errno); |
2509
daaa78c8c980
* callproc.c (relocate_fd): Make messages string literals, not
Jim Blandy <jimb@redhat.com>
parents:
2432
diff
changeset
|
1300 char *message2 = "\n"; |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
1301 emacs_write (2, message1, strlen (message1)); |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
1302 emacs_write (2, errmessage, strlen (errmessage)); |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
1303 emacs_write (2, message2, strlen (message2)); |
2286
7f66b40a0192
* callproc.c (child_setup): Make sure that in, out, and err are
Jim Blandy <jimb@redhat.com>
parents:
1912
diff
changeset
|
1304 _exit (1); |
7f66b40a0192
* callproc.c (child_setup): Make sure that in, out, and err are
Jim Blandy <jimb@redhat.com>
parents:
1912
diff
changeset
|
1305 } |
7f66b40a0192
* callproc.c (child_setup): Make sure that in, out, and err are
Jim Blandy <jimb@redhat.com>
parents:
1912
diff
changeset
|
1306 /* Note that we hold the original FD open while we recurse, |
7f66b40a0192
* callproc.c (child_setup): Make sure that in, out, and err are
Jim Blandy <jimb@redhat.com>
parents:
1912
diff
changeset
|
1307 to guarantee we'll get a new FD if we need it. */ |
21454
1361a790bca8
(relocate_fd): Avoid `min'/`max' as variable names.
Karl Heuer <kwzh@gnu.org>
parents:
21244
diff
changeset
|
1308 new = relocate_fd (new, minfd); |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
1309 emacs_close (fd); |
2286
7f66b40a0192
* callproc.c (child_setup): Make sure that in, out, and err are
Jim Blandy <jimb@redhat.com>
parents:
1912
diff
changeset
|
1310 return new; |
7f66b40a0192
* callproc.c (child_setup): Make sure that in, out, and err are
Jim Blandy <jimb@redhat.com>
parents:
1912
diff
changeset
|
1311 } |
7f66b40a0192
* callproc.c (child_setup): Make sure that in, out, and err are
Jim Blandy <jimb@redhat.com>
parents:
1912
diff
changeset
|
1312 } |
7f66b40a0192
* callproc.c (child_setup): Make sure that in, out, and err are
Jim Blandy <jimb@redhat.com>
parents:
1912
diff
changeset
|
1313 |
942
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1314 static int |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109087
diff
changeset
|
1315 getenv_internal_1 (char *var, int varlen, char **value, int *valuelen, Lisp_Object env) |
942
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1316 { |
84702
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1317 for (; CONSP (env); env = XCDR (env)) |
942
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1318 { |
84702
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1319 Lisp_Object entry = XCAR (env); |
9138
6c814eb4d892
(Fcall_process, child_setup, getenv_internal): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents:
8853
diff
changeset
|
1320 if (STRINGP (entry) |
84702
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1321 && SBYTES (entry) >= varlen |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1322 #ifdef WINDOWSNT |
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1323 /* NT environment variables are case insensitive. */ |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
1324 && ! strnicmp (SDATA (entry), var, varlen) |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1325 #else /* not WINDOWSNT */ |
109165
750db9f3e6d8
Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents:
109126
diff
changeset
|
1326 && ! memcmp (SDATA (entry), var, varlen) |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1327 #endif /* not WINDOWSNT */ |
11393
81653012e0a6
(getenv_internal): Balance parentheses across #if/#endif.
Karl Heuer <kwzh@gnu.org>
parents:
11379
diff
changeset
|
1328 ) |
942
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1329 { |
84702
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1330 if (SBYTES (entry) > varlen && SREF (entry, varlen) == '=') |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1331 { |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1332 *value = (char *) SDATA (entry) + (varlen + 1); |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1333 *valuelen = SBYTES (entry) - (varlen + 1); |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1334 return 1; |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1335 } |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1336 else if (SBYTES (entry) == varlen) |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1337 { |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1338 /* Lone variable names in Vprocess_environment mean that |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1339 variable should be removed from the environment. */ |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1340 *value = NULL; |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1341 return 1; |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1342 } |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1343 } |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1344 } |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1345 return 0; |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1346 } |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1347 |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1348 static int |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109087
diff
changeset
|
1349 getenv_internal (char *var, int varlen, char **value, int *valuelen, Lisp_Object frame) |
942
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1350 { |
84740
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1351 /* Try to find VAR in Vprocess_environment first. */ |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1352 if (getenv_internal_1 (var, varlen, value, valuelen, |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1353 Vprocess_environment)) |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1354 return *value ? 1 : 0; |
83796
e7303426ed25
(Vinitial_environment): New variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
83652
diff
changeset
|
1355 |
84740
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1356 /* For DISPLAY try to get the values from the frame or the initial env. */ |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1357 if (strcmp (var, "DISPLAY") == 0) |
942
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1358 { |
84740
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1359 Lisp_Object display |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1360 = Fframe_parameter (NILP (frame) ? selected_frame : frame, Qdisplay); |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1361 if (STRINGP (display)) |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1362 { |
83640
2aee92eacdab
* server.el (server-process-filter): Likewise.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83556
diff
changeset
|
1363 *value = (char *) SDATA (display); |
2aee92eacdab
* server.el (server-process-filter): Likewise.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83556
diff
changeset
|
1364 *valuelen = SBYTES (display); |
942
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1365 return 1; |
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1366 } |
84740
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1367 /* If still not found, Look for DISPLAY in Vinitial_environment. */ |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1368 if (getenv_internal_1 (var, varlen, value, valuelen, |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1369 Vinitial_environment)) |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1370 return *value ? 1 : 0; |
942
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1371 } |
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1372 |
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1373 return 0; |
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1374 } |
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1375 |
83421
bb2edc915032
Implement automatic terminal-local environment variables via `local-environment-variables'.
Karoly Lorentey <lorentey@elte.hu>
parents:
64770
diff
changeset
|
1376 DEFUN ("getenv-internal", Fgetenv_internal, Sgetenv_internal, 1, 2, 0, |
83425
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1377 doc: /* Get the value of environment variable VARIABLE. |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1378 VARIABLE should be a string. Value is nil if VARIABLE is undefined in |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1379 the environment. Otherwise, value is a string. |
83421
bb2edc915032
Implement automatic terminal-local environment variables via `local-environment-variables'.
Karoly Lorentey <lorentey@elte.hu>
parents:
64770
diff
changeset
|
1380 |
101275
5bc8609f80b5
* callproc.c (Fgetenv_internal): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
100951
diff
changeset
|
1381 This function searches `process-environment' for VARIABLE. |
83421
bb2edc915032
Implement automatic terminal-local environment variables via `local-environment-variables'.
Karoly Lorentey <lorentey@elte.hu>
parents:
64770
diff
changeset
|
1382 |
84702
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1383 If optional parameter ENV is a list, then search this list instead of |
101275
5bc8609f80b5
* callproc.c (Fgetenv_internal): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
100951
diff
changeset
|
1384 `process-environment', and return t when encountering a negative entry |
5bc8609f80b5
* callproc.c (Fgetenv_internal): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
100951
diff
changeset
|
1385 \(an entry for a variable with no value). */) |
84702
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1386 (variable, env) |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1387 Lisp_Object variable, env; |
942
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1388 { |
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1389 char *value; |
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1390 int valuelen; |
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1391 |
83425
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1392 CHECK_STRING (variable); |
84702
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1393 if (CONSP (env)) |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1394 { |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1395 if (getenv_internal_1 (SDATA (variable), SBYTES (variable), |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1396 &value, &valuelen, env)) |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1397 return value ? make_string (value, valuelen) : Qt; |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1398 else |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1399 return Qnil; |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1400 } |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1401 else if (getenv_internal (SDATA (variable), SBYTES (variable), |
84740
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1402 &value, &valuelen, env)) |
942
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1403 return make_string (value, valuelen); |
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1404 else |
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1405 return Qnil; |
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1406 } |
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1407 |
83425
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1408 /* A version of getenv that consults the Lisp environment lists, |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1409 easily callable from C. */ |
942
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1410 char * |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109087
diff
changeset
|
1411 egetenv (char *var) |
942
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1412 { |
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1413 char *value; |
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1414 int valuelen; |
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1415 |
83421
bb2edc915032
Implement automatic terminal-local environment variables via `local-environment-variables'.
Karoly Lorentey <lorentey@elte.hu>
parents:
64770
diff
changeset
|
1416 if (getenv_internal (var, strlen (var), &value, &valuelen, Qnil)) |
942
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1417 return value; |
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1418 else |
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1419 return 0; |
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1420 } |
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1421 |
296 | 1422 |
5154
e4e66bcaa016
(init_callproc): Maybe add ../lib-src to exec-path
Richard M. Stallman <rms@gnu.org>
parents:
4977
diff
changeset
|
1423 /* This is run before init_cmdargs. */ |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
47018
diff
changeset
|
1424 |
21514 | 1425 void |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109087
diff
changeset
|
1426 init_callproc_1 (void) |
5154
e4e66bcaa016
(init_callproc): Maybe add ../lib-src to exec-path
Richard M. Stallman <rms@gnu.org>
parents:
4977
diff
changeset
|
1427 { |
e4e66bcaa016
(init_callproc): Maybe add ../lib-src to exec-path
Richard M. Stallman <rms@gnu.org>
parents:
4977
diff
changeset
|
1428 char *data_dir = egetenv ("EMACSDATA"); |
6031
ae4c6623837b
(syms_of_callproc): New variable Vdoc_directory.
Karl Heuer <kwzh@gnu.org>
parents:
5688
diff
changeset
|
1429 char *doc_dir = egetenv ("EMACSDOC"); |
ae4c6623837b
(syms_of_callproc): New variable Vdoc_directory.
Karl Heuer <kwzh@gnu.org>
parents:
5688
diff
changeset
|
1430 |
5154
e4e66bcaa016
(init_callproc): Maybe add ../lib-src to exec-path
Richard M. Stallman <rms@gnu.org>
parents:
4977
diff
changeset
|
1431 Vdata_directory |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
47018
diff
changeset
|
1432 = Ffile_name_as_directory (build_string (data_dir ? data_dir |
5154
e4e66bcaa016
(init_callproc): Maybe add ../lib-src to exec-path
Richard M. Stallman <rms@gnu.org>
parents:
4977
diff
changeset
|
1433 : PATH_DATA)); |
6031
ae4c6623837b
(syms_of_callproc): New variable Vdoc_directory.
Karl Heuer <kwzh@gnu.org>
parents:
5688
diff
changeset
|
1434 Vdoc_directory |
ae4c6623837b
(syms_of_callproc): New variable Vdoc_directory.
Karl Heuer <kwzh@gnu.org>
parents:
5688
diff
changeset
|
1435 = Ffile_name_as_directory (build_string (doc_dir ? doc_dir |
ae4c6623837b
(syms_of_callproc): New variable Vdoc_directory.
Karl Heuer <kwzh@gnu.org>
parents:
5688
diff
changeset
|
1436 : PATH_DOC)); |
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1437 |
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1438 /* Check the EMACSPATH environment variable, defaulting to the |
24412
d11ac02f9d6a
Use epaths.h istead of paths.h.
Richard M. Stallman <rms@gnu.org>
parents:
23885
diff
changeset
|
1439 PATH_EXEC path from epaths.h. */ |
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1440 Vexec_path = decode_env_path ("EMACSPATH", PATH_EXEC); |
296 | 1441 Vexec_directory = Ffile_name_as_directory (Fcar (Vexec_path)); |
1442 Vexec_path = nconc2 (decode_env_path ("PATH", ""), Vexec_path); | |
5154
e4e66bcaa016
(init_callproc): Maybe add ../lib-src to exec-path
Richard M. Stallman <rms@gnu.org>
parents:
4977
diff
changeset
|
1443 } |
e4e66bcaa016
(init_callproc): Maybe add ../lib-src to exec-path
Richard M. Stallman <rms@gnu.org>
parents:
4977
diff
changeset
|
1444 |
12615
d5db61e1a4ee
(init_callproc): Set Vdoc_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
12430
diff
changeset
|
1445 /* This is run after init_cmdargs, when Vinstallation_directory is valid. */ |
5154
e4e66bcaa016
(init_callproc): Maybe add ../lib-src to exec-path
Richard M. Stallman <rms@gnu.org>
parents:
4977
diff
changeset
|
1446 |
21514 | 1447 void |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109087
diff
changeset
|
1448 init_callproc (void) |
5154
e4e66bcaa016
(init_callproc): Maybe add ../lib-src to exec-path
Richard M. Stallman <rms@gnu.org>
parents:
4977
diff
changeset
|
1449 { |
e4e66bcaa016
(init_callproc): Maybe add ../lib-src to exec-path
Richard M. Stallman <rms@gnu.org>
parents:
4977
diff
changeset
|
1450 char *data_dir = egetenv ("EMACSDATA"); |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
47018
diff
changeset
|
1451 |
5154
e4e66bcaa016
(init_callproc): Maybe add ../lib-src to exec-path
Richard M. Stallman <rms@gnu.org>
parents:
4977
diff
changeset
|
1452 register char * sh; |
e4e66bcaa016
(init_callproc): Maybe add ../lib-src to exec-path
Richard M. Stallman <rms@gnu.org>
parents:
4977
diff
changeset
|
1453 Lisp_Object tempdir; |
e4e66bcaa016
(init_callproc): Maybe add ../lib-src to exec-path
Richard M. Stallman <rms@gnu.org>
parents:
4977
diff
changeset
|
1454 |
22373
cb8484085daf
(init_callproc): Check Vinstallation_directory even if !initialized.
Richard M. Stallman <rms@gnu.org>
parents:
22320
diff
changeset
|
1455 if (!NILP (Vinstallation_directory)) |
5154
e4e66bcaa016
(init_callproc): Maybe add ../lib-src to exec-path
Richard M. Stallman <rms@gnu.org>
parents:
4977
diff
changeset
|
1456 { |
5618
a70dc7c886d0
(init_callproc): Use Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5569
diff
changeset
|
1457 /* Add to the path the lib-src subdir of the installation dir. */ |
a70dc7c886d0
(init_callproc): Use Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5569
diff
changeset
|
1458 Lisp_Object tem; |
a70dc7c886d0
(init_callproc): Use Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5569
diff
changeset
|
1459 tem = Fexpand_file_name (build_string ("lib-src"), |
a70dc7c886d0
(init_callproc): Use Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5569
diff
changeset
|
1460 Vinstallation_directory); |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1461 #ifndef DOS_NT |
7824
de1dfb8aea82
(init_callproc) [MSDOS]: Exclude less code, so ../etc
Richard M. Stallman <rms@gnu.org>
parents:
7782
diff
changeset
|
1462 /* MSDOS uses wrapped binaries, so don't do this. */ |
24920
d95c8bcfe8ae
(init_callproc): Set exec_directory if installation_directory is
Richard M. Stallman <rms@gnu.org>
parents:
24432
diff
changeset
|
1463 if (NILP (Fmember (tem, Vexec_path))) |
41861
56385cb63c61
(init_callproc): Set Vdata_directory based on the source
Richard M. Stallman <rms@gnu.org>
parents:
41528
diff
changeset
|
1464 { |
56385cb63c61
(init_callproc): Set Vdata_directory based on the source
Richard M. Stallman <rms@gnu.org>
parents:
41528
diff
changeset
|
1465 Vexec_path = decode_env_path ("EMACSPATH", PATH_EXEC); |
56385cb63c61
(init_callproc): Set Vdata_directory based on the source
Richard M. Stallman <rms@gnu.org>
parents:
41528
diff
changeset
|
1466 Vexec_path = Fcons (tem, Vexec_path); |
56385cb63c61
(init_callproc): Set Vdata_directory based on the source
Richard M. Stallman <rms@gnu.org>
parents:
41528
diff
changeset
|
1467 Vexec_path = nconc2 (decode_env_path ("PATH", ""), Vexec_path); |
56385cb63c61
(init_callproc): Set Vdata_directory based on the source
Richard M. Stallman <rms@gnu.org>
parents:
41528
diff
changeset
|
1468 } |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
47018
diff
changeset
|
1469 |
24920
d95c8bcfe8ae
(init_callproc): Set exec_directory if installation_directory is
Richard M. Stallman <rms@gnu.org>
parents:
24432
diff
changeset
|
1470 Vexec_directory = Ffile_name_as_directory (tem); |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1471 #endif /* not DOS_NT */ |
5154
e4e66bcaa016
(init_callproc): Maybe add ../lib-src to exec-path
Richard M. Stallman <rms@gnu.org>
parents:
4977
diff
changeset
|
1472 |
12615
d5db61e1a4ee
(init_callproc): Set Vdoc_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
12430
diff
changeset
|
1473 /* Maybe use ../etc as well as ../lib-src. */ |
d5db61e1a4ee
(init_callproc): Set Vdoc_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
12430
diff
changeset
|
1474 if (data_dir == 0) |
d5db61e1a4ee
(init_callproc): Set Vdoc_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
12430
diff
changeset
|
1475 { |
d5db61e1a4ee
(init_callproc): Set Vdoc_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
12430
diff
changeset
|
1476 tem = Fexpand_file_name (build_string ("etc"), |
d5db61e1a4ee
(init_callproc): Set Vdoc_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
12430
diff
changeset
|
1477 Vinstallation_directory); |
d5db61e1a4ee
(init_callproc): Set Vdoc_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
12430
diff
changeset
|
1478 Vdoc_directory = Ffile_name_as_directory (tem); |
5154
e4e66bcaa016
(init_callproc): Maybe add ../lib-src to exec-path
Richard M. Stallman <rms@gnu.org>
parents:
4977
diff
changeset
|
1479 } |
e4e66bcaa016
(init_callproc): Maybe add ../lib-src to exec-path
Richard M. Stallman <rms@gnu.org>
parents:
4977
diff
changeset
|
1480 } |
7465
fccf9d4df7bb
(init_callproc): Never set Vdata_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
7397
diff
changeset
|
1481 |
fccf9d4df7bb
(init_callproc): Never set Vdata_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
7397
diff
changeset
|
1482 /* Look for the files that should be in etc. We don't use |
fccf9d4df7bb
(init_callproc): Never set Vdata_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
7397
diff
changeset
|
1483 Vinstallation_directory, because these files are never installed |
12615
d5db61e1a4ee
(init_callproc): Set Vdoc_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
12430
diff
changeset
|
1484 near the executable, and they are never in the build |
7465
fccf9d4df7bb
(init_callproc): Never set Vdata_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
7397
diff
changeset
|
1485 directory when that's different from the source directory. |
fccf9d4df7bb
(init_callproc): Never set Vdata_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
7397
diff
changeset
|
1486 |
fccf9d4df7bb
(init_callproc): Never set Vdata_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
7397
diff
changeset
|
1487 Instead, if these files are not in the nominal place, we try the |
fccf9d4df7bb
(init_callproc): Never set Vdata_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
7397
diff
changeset
|
1488 source directory. */ |
fccf9d4df7bb
(init_callproc): Never set Vdata_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
7397
diff
changeset
|
1489 if (data_dir == 0) |
fccf9d4df7bb
(init_callproc): Never set Vdata_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
7397
diff
changeset
|
1490 { |
41861
56385cb63c61
(init_callproc): Set Vdata_directory based on the source
Richard M. Stallman <rms@gnu.org>
parents:
41528
diff
changeset
|
1491 Lisp_Object tem, tem1, srcdir; |
7465
fccf9d4df7bb
(init_callproc): Never set Vdata_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
7397
diff
changeset
|
1492 |
41861
56385cb63c61
(init_callproc): Set Vdata_directory based on the source
Richard M. Stallman <rms@gnu.org>
parents:
41528
diff
changeset
|
1493 srcdir = Fexpand_file_name (build_string ("../src/"), |
56385cb63c61
(init_callproc): Set Vdata_directory based on the source
Richard M. Stallman <rms@gnu.org>
parents:
41528
diff
changeset
|
1494 build_string (PATH_DUMPLOADSEARCH)); |
7465
fccf9d4df7bb
(init_callproc): Never set Vdata_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
7397
diff
changeset
|
1495 tem = Fexpand_file_name (build_string ("GNU"), Vdata_directory); |
fccf9d4df7bb
(init_callproc): Never set Vdata_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
7397
diff
changeset
|
1496 tem1 = Ffile_exists_p (tem); |
41861
56385cb63c61
(init_callproc): Set Vdata_directory based on the source
Richard M. Stallman <rms@gnu.org>
parents:
41528
diff
changeset
|
1497 if (!NILP (Fequal (srcdir, Vinvocation_directory)) || NILP (tem1)) |
7465
fccf9d4df7bb
(init_callproc): Never set Vdata_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
7397
diff
changeset
|
1498 { |
41861
56385cb63c61
(init_callproc): Set Vdata_directory based on the source
Richard M. Stallman <rms@gnu.org>
parents:
41528
diff
changeset
|
1499 Lisp_Object newdir; |
7465
fccf9d4df7bb
(init_callproc): Never set Vdata_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
7397
diff
changeset
|
1500 newdir = Fexpand_file_name (build_string ("../etc/"), |
fccf9d4df7bb
(init_callproc): Never set Vdata_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
7397
diff
changeset
|
1501 build_string (PATH_DUMPLOADSEARCH)); |
fccf9d4df7bb
(init_callproc): Never set Vdata_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
7397
diff
changeset
|
1502 tem = Fexpand_file_name (build_string ("GNU"), newdir); |
fccf9d4df7bb
(init_callproc): Never set Vdata_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
7397
diff
changeset
|
1503 tem1 = Ffile_exists_p (tem); |
fccf9d4df7bb
(init_callproc): Never set Vdata_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
7397
diff
changeset
|
1504 if (!NILP (tem1)) |
fccf9d4df7bb
(init_callproc): Never set Vdata_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
7397
diff
changeset
|
1505 Vdata_directory = newdir; |
fccf9d4df7bb
(init_callproc): Never set Vdata_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
7397
diff
changeset
|
1506 } |
fccf9d4df7bb
(init_callproc): Never set Vdata_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
7397
diff
changeset
|
1507 } |
296 | 1508 |
19498
34057e215ab1
(init_callproc): Don't warn about missing
Richard M. Stallman <rms@gnu.org>
parents:
19135
diff
changeset
|
1509 #ifndef CANNOT_DUMP |
34057e215ab1
(init_callproc): Don't warn about missing
Richard M. Stallman <rms@gnu.org>
parents:
19135
diff
changeset
|
1510 if (initialized) |
34057e215ab1
(init_callproc): Don't warn about missing
Richard M. Stallman <rms@gnu.org>
parents:
19135
diff
changeset
|
1511 #endif |
34057e215ab1
(init_callproc): Don't warn about missing
Richard M. Stallman <rms@gnu.org>
parents:
19135
diff
changeset
|
1512 { |
34057e215ab1
(init_callproc): Don't warn about missing
Richard M. Stallman <rms@gnu.org>
parents:
19135
diff
changeset
|
1513 tempdir = Fdirectory_file_name (Vexec_directory); |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
1514 if (access (SDATA (tempdir), 0) < 0) |
19498
34057e215ab1
(init_callproc): Don't warn about missing
Richard M. Stallman <rms@gnu.org>
parents:
19135
diff
changeset
|
1515 dir_warning ("Warning: arch-dependent data dir (%s) does not exist.\n", |
34057e215ab1
(init_callproc): Don't warn about missing
Richard M. Stallman <rms@gnu.org>
parents:
19135
diff
changeset
|
1516 Vexec_directory); |
34057e215ab1
(init_callproc): Don't warn about missing
Richard M. Stallman <rms@gnu.org>
parents:
19135
diff
changeset
|
1517 } |
296 | 1518 |
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1519 tempdir = Fdirectory_file_name (Vdata_directory); |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
1520 if (access (SDATA (tempdir), 0) < 0) |
16486
30b8c014eaa7
(init_callproc): Use dir_warning.
Richard M. Stallman <rms@gnu.org>
parents:
15824
diff
changeset
|
1521 dir_warning ("Warning: arch-independent data dir (%s) does not exist.\n", |
30b8c014eaa7
(init_callproc): Use dir_warning.
Richard M. Stallman <rms@gnu.org>
parents:
15824
diff
changeset
|
1522 Vdata_directory); |
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1523 |
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1524 sh = (char *) getenv ("SHELL"); |
296 | 1525 Vshell_file_name = build_string (sh ? sh : "/bin/sh"); |
16627
530b3f7373db
(Vtemp_file_name_pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16593
diff
changeset
|
1526 |
46626
4173dcd87832
(init_callproc) [DOS_NT]: Initialize Vshared_game_score_directory to nil.
Juanma Barranquero <lekktu@gmail.com>
parents:
46600
diff
changeset
|
1527 #ifdef DOS_NT |
4173dcd87832
(init_callproc) [DOS_NT]: Initialize Vshared_game_score_directory to nil.
Juanma Barranquero <lekktu@gmail.com>
parents:
46600
diff
changeset
|
1528 Vshared_game_score_directory = Qnil; |
4173dcd87832
(init_callproc) [DOS_NT]: Initialize Vshared_game_score_directory to nil.
Juanma Barranquero <lekktu@gmail.com>
parents:
46600
diff
changeset
|
1529 #else |
46600
736bbb2f8711
(init_callproc): Set up Vshared_game_score_directory.
Richard M. Stallman <rms@gnu.org>
parents:
46546
diff
changeset
|
1530 Vshared_game_score_directory = build_string (PATH_GAME); |
736bbb2f8711
(init_callproc): Set up Vshared_game_score_directory.
Richard M. Stallman <rms@gnu.org>
parents:
46546
diff
changeset
|
1531 if (NILP (Ffile_directory_p (Vshared_game_score_directory))) |
736bbb2f8711
(init_callproc): Set up Vshared_game_score_directory.
Richard M. Stallman <rms@gnu.org>
parents:
46546
diff
changeset
|
1532 Vshared_game_score_directory = Qnil; |
46626
4173dcd87832
(init_callproc) [DOS_NT]: Initialize Vshared_game_score_directory to nil.
Juanma Barranquero <lekktu@gmail.com>
parents:
46600
diff
changeset
|
1533 #endif |
1912
f0d4fb2b9157
* callproc.c (delete_temp_file): Declare this to return
Jim Blandy <jimb@redhat.com>
parents:
1886
diff
changeset
|
1534 } |
f0d4fb2b9157
* callproc.c (delete_temp_file): Declare this to return
Jim Blandy <jimb@redhat.com>
parents:
1886
diff
changeset
|
1535 |
21514 | 1536 void |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109087
diff
changeset
|
1537 set_initial_environment (void) |
1912
f0d4fb2b9157
* callproc.c (delete_temp_file): Declare this to return
Jim Blandy <jimb@redhat.com>
parents:
1886
diff
changeset
|
1538 { |
f0d4fb2b9157
* callproc.c (delete_temp_file): Declare this to return
Jim Blandy <jimb@redhat.com>
parents:
1886
diff
changeset
|
1539 register char **envp; |
296 | 1540 #ifndef CANNOT_DUMP |
1541 if (initialized) | |
96675
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
94963
diff
changeset
|
1542 { |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
94963
diff
changeset
|
1543 #else |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
94963
diff
changeset
|
1544 { |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
94963
diff
changeset
|
1545 Vprocess_environment = Qnil; |
296 | 1546 #endif |
83529
0d9e16eab053
Rework environment variable support. (Reported by Kalle Olavi Niemitalo and Noah Friedman.)
Karoly Lorentey <lorentey@elte.hu>
parents:
83518
diff
changeset
|
1547 for (envp = environ; *envp; envp++) |
83640
2aee92eacdab
* server.el (server-process-filter): Likewise.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83556
diff
changeset
|
1548 Vprocess_environment = Fcons (build_string (*envp), |
2aee92eacdab
* server.el (server-process-filter): Likewise.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83556
diff
changeset
|
1549 Vprocess_environment); |
83799
6aa4d1effd67
(set_initial_environment): Set Vinitial_environment only when
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
83796
diff
changeset
|
1550 /* Ideally, the `copy' shouldn't be necessary, but it seems it's frequent |
6aa4d1effd67
(set_initial_environment): Set Vinitial_environment only when
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
83796
diff
changeset
|
1551 to use `delete' and friends on process-environment. */ |
6aa4d1effd67
(set_initial_environment): Set Vinitial_environment only when
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
83796
diff
changeset
|
1552 Vinitial_environment = Fcopy_sequence (Vprocess_environment); |
83529
0d9e16eab053
Rework environment variable support. (Reported by Kalle Olavi Niemitalo and Noah Friedman.)
Karoly Lorentey <lorentey@elte.hu>
parents:
83518
diff
changeset
|
1553 } |
296 | 1554 } |
1555 | |
21514 | 1556 void |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109087
diff
changeset
|
1557 syms_of_callproc (void) |
296 | 1558 { |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1559 #ifdef DOS_NT |
7397
e0ffa47f2ed4
[MSDOS]: Rename Vbinary_process to Vbinary_process_output.
Richard M. Stallman <rms@gnu.org>
parents:
7161
diff
changeset
|
1560 Qbuffer_file_type = intern ("buffer-file-type"); |
e0ffa47f2ed4
[MSDOS]: Rename Vbinary_process to Vbinary_process_output.
Richard M. Stallman <rms@gnu.org>
parents:
7161
diff
changeset
|
1561 staticpro (&Qbuffer_file_type); |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1562 #endif /* DOS_NT */ |
5501
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
1563 |
101664
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
1564 #ifndef DOS_NT |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
1565 Vtemp_file_name_pattern = build_string ("emacsXXXXXX"); |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
1566 #elif defined (WINDOWSNT) |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
1567 Vtemp_file_name_pattern = build_string ("emXXXXXX"); |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
1568 #else |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
1569 Vtemp_file_name_pattern = build_string ("detmp.XXX"); |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
1570 #endif |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
1571 staticpro (&Vtemp_file_name_pattern); |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
1572 |
296 | 1573 DEFVAR_LISP ("shell-file-name", &Vshell_file_name, |
40103
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
1574 doc: /* *File name to load inferior shells from. |
74836 | 1575 Initialized from the SHELL environment variable, or to a system-dependent |
1576 default if SHELL is not set. */); | |
296 | 1577 |
1578 DEFVAR_LISP ("exec-path", &Vexec_path, | |
40103
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
1579 doc: /* *List of directories to search programs to run in subprocesses. |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
1580 Each element is a string (directory name) or nil (try default directory). */); |
296 | 1581 |
39811
9f7e72fba3d2
(Vexec_suffixes): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39535
diff
changeset
|
1582 DEFVAR_LISP ("exec-suffixes", &Vexec_suffixes, |
40103
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
1583 doc: /* *List of suffixes to try to find executable file names. |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
1584 Each element is a string. */); |
39934
674e73ec881a
(syms_of_callproc): Init Vexec_suffixes to Qnil.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39811
diff
changeset
|
1585 Vexec_suffixes = Qnil; |
39811
9f7e72fba3d2
(Vexec_suffixes): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39535
diff
changeset
|
1586 |
296 | 1587 DEFVAR_LISP ("exec-directory", &Vexec_directory, |
40103
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
1588 doc: /* Directory for executables for Emacs to invoke. |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
1589 More generally, this includes any architecture-dependent files |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
1590 that are built and installed from the Emacs distribution. */); |
439 | 1591 |
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1592 DEFVAR_LISP ("data-directory", &Vdata_directory, |
40103
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
1593 doc: /* Directory of machine-independent files that come with GNU Emacs. |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
1594 These are files intended for Emacs to use while it runs. */); |
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1595 |
6031
ae4c6623837b
(syms_of_callproc): New variable Vdoc_directory.
Karl Heuer <kwzh@gnu.org>
parents:
5688
diff
changeset
|
1596 DEFVAR_LISP ("doc-directory", &Vdoc_directory, |
40103
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
1597 doc: /* Directory containing the DOC file that comes with GNU Emacs. |
75969
58d48cd0f5f0
(syms_of_callproc) <doc-directory, configure-info-directory>:
Juanma Barranquero <lekktu@gmail.com>
parents:
75348
diff
changeset
|
1598 This is usually the same as `data-directory'. */); |
6031
ae4c6623837b
(syms_of_callproc): New variable Vdoc_directory.
Karl Heuer <kwzh@gnu.org>
parents:
5688
diff
changeset
|
1599 |
3064
fa5466904709
* paths.h (PATH_INFO): New path, to edited by the configuration
Jim Blandy <jimb@redhat.com>
parents:
2961
diff
changeset
|
1600 DEFVAR_LISP ("configure-info-directory", &Vconfigure_info_directory, |
40103
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
1601 doc: /* For internal use by the build procedure only. |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
1602 This is the name of the directory in which the build procedure installed |
75969
58d48cd0f5f0
(syms_of_callproc) <doc-directory, configure-info-directory>:
Juanma Barranquero <lekktu@gmail.com>
parents:
75348
diff
changeset
|
1603 Emacs's info files; the default value for `Info-default-directory-list' |
40103
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
1604 includes this. */); |
3064
fa5466904709
* paths.h (PATH_INFO): New path, to edited by the configuration
Jim Blandy <jimb@redhat.com>
parents:
2961
diff
changeset
|
1605 Vconfigure_info_directory = build_string (PATH_INFO); |
fa5466904709
* paths.h (PATH_INFO): New path, to edited by the configuration
Jim Blandy <jimb@redhat.com>
parents:
2961
diff
changeset
|
1606 |
45092
7f1d09693ef3
(Vgame_score_directory): Renamed to Vshared_game_score_directory.
Colin Walters <walters@gnu.org>
parents:
45002
diff
changeset
|
1607 DEFVAR_LISP ("shared-game-score-directory", &Vshared_game_score_directory, |
44486
7b98c268f335
(Vgame_score_directory): New variable.
Colin Walters <walters@gnu.org>
parents:
43713
diff
changeset
|
1608 doc: /* Directory of score files for games which come with GNU Emacs. |
7b98c268f335
(Vgame_score_directory): New variable.
Colin Walters <walters@gnu.org>
parents:
43713
diff
changeset
|
1609 If this variable is nil, then Emacs is unable to use a shared directory. */); |
46626
4173dcd87832
(init_callproc) [DOS_NT]: Initialize Vshared_game_score_directory to nil.
Juanma Barranquero <lekktu@gmail.com>
parents:
46600
diff
changeset
|
1610 #ifdef DOS_NT |
4173dcd87832
(init_callproc) [DOS_NT]: Initialize Vshared_game_score_directory to nil.
Juanma Barranquero <lekktu@gmail.com>
parents:
46600
diff
changeset
|
1611 Vshared_game_score_directory = Qnil; |
4173dcd87832
(init_callproc) [DOS_NT]: Initialize Vshared_game_score_directory to nil.
Juanma Barranquero <lekktu@gmail.com>
parents:
46600
diff
changeset
|
1612 #else |
46600
736bbb2f8711
(init_callproc): Set up Vshared_game_score_directory.
Richard M. Stallman <rms@gnu.org>
parents:
46546
diff
changeset
|
1613 Vshared_game_score_directory = build_string (PATH_GAME); |
46626
4173dcd87832
(init_callproc) [DOS_NT]: Initialize Vshared_game_score_directory to nil.
Juanma Barranquero <lekktu@gmail.com>
parents:
46600
diff
changeset
|
1614 #endif |
44486
7b98c268f335
(Vgame_score_directory): New variable.
Colin Walters <walters@gnu.org>
parents:
43713
diff
changeset
|
1615 |
83796
e7303426ed25
(Vinitial_environment): New variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
83652
diff
changeset
|
1616 DEFVAR_LISP ("initial-environment", &Vinitial_environment, |
e7303426ed25
(Vinitial_environment): New variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
83652
diff
changeset
|
1617 doc: /* List of environment variables inherited from the parent process. |
e7303426ed25
(Vinitial_environment): New variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
83652
diff
changeset
|
1618 Each element should be a string of the form ENVVARNAME=VALUE. |
e7303426ed25
(Vinitial_environment): New variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
83652
diff
changeset
|
1619 The elements must normally be decoded (using `locale-coding-system') for use. */); |
e7303426ed25
(Vinitial_environment): New variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
83652
diff
changeset
|
1620 Vinitial_environment = Qnil; |
e7303426ed25
(Vinitial_environment): New variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
83652
diff
changeset
|
1621 |
296 | 1622 DEFVAR_LISP ("process-environment", &Vprocess_environment, |
83425
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1623 doc: /* List of overridden environment variables for subprocesses to inherit. |
40103
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
1624 Each element should be a string of the form ENVVARNAME=VALUE. |
83425
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1625 |
83529
0d9e16eab053
Rework environment variable support. (Reported by Kalle Olavi Niemitalo and Noah Friedman.)
Karoly Lorentey <lorentey@elte.hu>
parents:
83518
diff
changeset
|
1626 Entries in this list take precedence to those in the frame-local |
0d9e16eab053
Rework environment variable support. (Reported by Kalle Olavi Niemitalo and Noah Friedman.)
Karoly Lorentey <lorentey@elte.hu>
parents:
83518
diff
changeset
|
1627 environments. Therefore, let-binding `process-environment' is an easy |
0d9e16eab053
Rework environment variable support. (Reported by Kalle Olavi Niemitalo and Noah Friedman.)
Karoly Lorentey <lorentey@elte.hu>
parents:
83518
diff
changeset
|
1628 way to temporarily change the value of an environment variable, |
0d9e16eab053
Rework environment variable support. (Reported by Kalle Olavi Niemitalo and Noah Friedman.)
Karoly Lorentey <lorentey@elte.hu>
parents:
83518
diff
changeset
|
1629 irrespective of where it comes from. To use `process-environment' to |
0d9e16eab053
Rework environment variable support. (Reported by Kalle Olavi Niemitalo and Noah Friedman.)
Karoly Lorentey <lorentey@elte.hu>
parents:
83518
diff
changeset
|
1630 remove an environment variable, include only its name in the list, |
0d9e16eab053
Rework environment variable support. (Reported by Kalle Olavi Niemitalo and Noah Friedman.)
Karoly Lorentey <lorentey@elte.hu>
parents:
83518
diff
changeset
|
1631 without "=VALUE". |
83425
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1632 |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1633 This variable is set to nil when Emacs starts. |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1634 |
40103
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
1635 If multiple entries define the same variable, the first one always |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
1636 takes precedence. |
83425
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1637 |
51403 | 1638 Non-ASCII characters are encoded according to the initial value of |
83425
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1639 `locale-coding-system', i.e. the elements must normally be decoded for |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1640 use. |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1641 |
51403 | 1642 See `setenv' and `getenv'. */); |
83426
7c7d1f1cb2e7
Initialize Vprocess_environment to nil.
Karoly Lorentey <lorentey@elte.hu>
parents:
83425
diff
changeset
|
1643 Vprocess_environment = Qnil; |
296 | 1644 |
1645 defsubr (&Scall_process); | |
28914
45b919961573
(Fgetenv_internal): Renamed from Fgetenv.
Gerd Moellmann <gerd@gnu.org>
parents:
26838
diff
changeset
|
1646 defsubr (&Sgetenv_internal); |
296 | 1647 defsubr (&Scall_process_region); |
1648 } | |
52401 | 1649 |
1650 /* arch-tag: 769b8045-1df7-4d2b-8968-e3fb49017f95 | |
1651 (do not change this comment) */ |