xemacs-beta: src/process.c comparison

comparison src/process.c @ 120:cca96a509cfe r20-1b12

Import from CVS: tag r20-1b12

author	cvs
date	Mon, 13 Aug 2007 09:25:29 +0200
parents	9f59509498e1
children	b980b6286996

comparison

equal deleted inserted replaced

-:d101af7320b8
+:cca96a509cfe
 					pty_max_bytes, eof_char);
 }
 #ifdef MULE
 p->instream = make_decoding_input_stream
 (XLSTREAM (p->instream),
-Fget_coding_system (Vprocess_input_coding_system));
+Fget_coding_system (Vcoding_system_for_read));
 Lstream_set_character_mode (XLSTREAM (p->instream));
 p->outstream = make_encoding_output_stream
 (XLSTREAM (p->outstream),
-Fget_coding_system (Vprocess_output_coding_system));
+Fget_coding_system (Vcoding_system_for_write));
 /* CODE_CNTL (&out_state[outchannel]) |= CC_END; !!####
 What's going on here? */
 #endif /* MULE */
 }
 close_descriptor_pair (forkin, forkout);
 report_file_error ("Doing vfork", Qnil);
 }
 p->pid = make_int (pid);
+/* #### dmoore - why is this commented out, otherwise we leave
+subtty = forkin, but then we close forkin just below. */
 /* p->subtty = -1; */
 #ifdef WINDOWSNT
 register_child (pid, inchannel);
 #endif /* WINDOWSNT */
 INCODE and OUTCODE specify the coding-system objects used in input/output
 from/to the process.
 */
 (int nargs, Lisp_Object *args))
 {
+/* This function can call lisp */
 /* !!#### This function has not been Mule-ized */
-/* This function can GC */
 Lisp_Object buffer, name, program, proc, current_dir;
 Lisp_Object tem;
 int speccount = specpdl_depth ();
+struct gcpro gcpro1, gcpro2, gcpro3;
 #ifdef VMS
 char *new_argv;
 int len;
 #else
 char **new_argv;
 #endif
 int i;
+name = args[0];
 buffer = args[1];
+program = args[2];
+current_dir = Qnil;
+/* Protect against various file handlers doing GCs below. */
+GCPRO3 (buffer, program, current_dir);
 if (!NILP (buffer))
 buffer = Fget_buffer_create (buffer);
-CHECK_STRING (args[0]);    /* name */
+CHECK_STRING (name);
-CHECK_STRING (args[2]);    /* program */
+CHECK_STRING (program);
 /* Make sure that the child will be able to chdir to the current
 buffer's current directory, or its unhandled equivalent.  We
 can't just have the child check for an error when it does the
 chdir, since it's in a vfork.
-We have to GCPRO around this because Fexpand_file_name and
+Note: these assignments and calls are like this in order to insure
-Funhandled_file_name_directory might call a file name handling
+"caller protects args" GC semantics. */
-function.  The argument list is protected by the caller, so all
+current_dir = current_buffer->directory;
-we really have to worry about is buffer.  */
+current_dir = Funhandled_file_name_directory (current_dir);
-{
+current_dir = expand_and_dir_to_file (current_dir, Qnil);
-struct gcpro gcpro1, gcpro2; /* Caller gc-protects args[] */
-current_dir = current_buffer->directory;
-GCPRO2 (buffer, current_dir);
-current_dir =
-expand_and_dir_to_file (Funhandled_file_name_directory (current_dir),
-			      Qnil);
 #if 0	/* This loser breaks ange-ftp */
-if (NILP (Ffile_accessible_directory_p (current_dir)))
+/* dmoore - if you re-enable this code, you have to gcprotect
-report_file_error ("Setting current directory",
+current_buffer through the above calls. */
-			 list1 (current_buffer->directory));
+if (NILP (Ffile_accessible_directory_p (current_dir)))
+report_file_error ("Setting current directory",
+		       list1 (current_buffer->directory));
 #endif /* 0 */
-UNGCPRO;
-}
-name = args[0];
-program = args[2];
 #ifdef VMS
 /* Make a one member argv with all args concatenated
 together separated by a blank.  */
 len = XSTRING_LENGTH (program) + 2;
 strcat (new_argv, XSTRING_DATA (tem));
 }
 /* Need to add code here to check for program existence on VMS */
 #else /* not VMS */
-new_argv = (char **)
-alloca ((nargs - 1) * sizeof (char *));
-new_argv[0] = (char *) XSTRING_DATA (program);
 /* If program file name is not absolute, search our path for it */
 if (!IS_DIRECTORY_SEP (XSTRING_BYTE (program, 0))
 && !(XSTRING_LENGTH (program) > 1
 	   && IS_DEVICE_SEP (XSTRING_BYTE (program, 1))))
 {
-struct gcpro gcpro1, gcpro2, gcpro3, gcpro4; /* Caller protects args[] */
+struct gcpro ngcpro1;
-GCPRO4 (buffer, current_dir, name, program);
 tem = Qnil;
+NGCPRO1 (tem);
 locate_file (Vexec_path, program, EXEC_SUFFIXES, &tem,
 		   X_OK);
-UNGCPRO;
 if (NILP (tem))
 	report_file_error ("Searching for program", list1 (program));
-tem = Fexpand_file_name (tem, Qnil);
+program = Fexpand_file_name (tem, Qnil);
-new_argv[0] = (char *) XSTRING_DATA (tem);
+NUNGCPRO;
 }
 else
 {
-/* #### dmoore - file-directory-p can call lisp, make sure everything
-	 here protects itself. */
 if (!NILP (Ffile_directory_p (program)))
 	error ("Specified program for new process is a directory");
 }
+/* Nothing below here GCs so our string pointers shouldn't move. */
+new_argv = (char **) alloca ((nargs - 1) * sizeof (char *));
+new_argv[0] = (char *) XSTRING_DATA (program);
 for (i = 3; i < nargs; i++)
 {
 tem = args[i];
 CHECK_STRING (tem);
 new_argv[i - 2] = (char *) XSTRING_DATA (tem);
 itself; it's all taken care of here.  */
 record_unwind_protect (start_process_unwind, proc);
 create_process (proc, new_argv, (char *) XSTRING_DATA (current_dir));
+UNGCPRO;
 return unbind_to (speccount, proc);
 }
 /* connect to an existing file descriptor.  This is very similar to
 {
 process = get_process (process);
 return encoding_stream_coding_system (XLSTREAM (XPROCESS (process)->outstream));
 }
+DEFUN ("process-coding-system", Fprocess_coding_system, 1, 1, 0, /*
+Return a pair of coding-system for decoding and encoding of PROCESS.
+*/
+(process))
+{
+process = get_process (process);
+return Fcons(decoding_stream_coding_system
+	       (XLSTREAM (XPROCESS (process)->instream)),
+	       encoding_stream_coding_system
+	       (XLSTREAM (XPROCESS (process)->outstream)) );
+}
 DEFUN ("set-process-input-coding-system",
 Fset_process_input_coding_system, 2, 2, 0, /*
 Set PROCESS's input coding system to CODESYS.
 */
 (process, codesys))
 {
 codesys = Fget_coding_system (codesys);
 process = get_process (process);
 set_encoding_stream_coding_system
 ( XLSTREAM ( XPROCESS (process)->outstream), codesys);
+return Qnil;
+}
+DEFUN ("set-process-coding-system",
+Fset_process_coding_system, 1, 3, 0, /*
+Set coding-systems of PROCESS to DECODING and ENCODING.
+*/
+(process, decoding, encoding))
+{
+if(!NILP(decoding)){
+Fset_process_input_coding_system(process, decoding);
+}
+if(!NILP(encoding)){
+Fset_process_output_coding_system(process, encoding);
+}
 return Qnil;
 }
 #endif /* MULE */
 #ifdef MULE
 DEFSUBR (Fprocess_input_coding_system);
 DEFSUBR (Fprocess_output_coding_system);
 DEFSUBR (Fset_process_input_coding_system);
 DEFSUBR (Fset_process_output_coding_system);
+DEFSUBR (Fprocess_coding_system);
+DEFSUBR (Fset_process_coding_system);
 #endif /* MULE */
 }
 void
 vars_of_process (void)

Mercurial > hg > xemacs-beta

comparison src/process.c @ 120:cca96a509cfe r20-1b12