emacs: src/process.c comparison

comparison src/process.c @ 1522:19ccf004b172

* process.c: (status_convert): Declare this to return a Lisp_Object at the top of the file. (decode_status): Don't untag XCONS (tem)->cdr before storing it in tem; tem is a Lisp_Object, too. (process_send_signal): Declare this to be static void. Don't return Qnil; nobody cares. (sigchld_handler): Use XFASTINT to manipulate p->infd. * process.c (pty_process): Variable deleted; it's no longer used. (syms_of_process): Don't initialize it.

author	Jim Blandy <jimb@redhat.com>
date	Sat, 31 Oct 1992 05:27:42 +0000
parents	25b5b55a3916
children	52a69b6a8f96

comparison

equal deleted inserted replaced

-:5d58b9e933ee
+:19ccf004b172
 int proc_buffered_char[MAXDESC];
 /* Compute the Lisp form of the process status, p->status, from
 the numeric status that was returned by `wait'.  */
+Lisp_Object status_convert ();
 update_status (p)
 struct Lisp_Process *p;
 {
 union { int i; WAITTYPE wt; } u;
 u.i = XFASTINT (p->raw_status_low) + (XFASTINT (p->raw_status_high) << 16);
 else
 {
 *symbol = XCONS (l)->car;
 tem = XCONS (l)->cdr;
 *code = XFASTINT (XCONS (tem)->car);
-tem = XFASTINT (XCONS (tem)->cdr);
+tem = XCONS (tem)->cdr;
 *coredump = !NILP (tem);
 }
 }
 /* Return a string describing a process status list.  */
 else
 return Fcopy_sequence (Fsymbol_name (symbol));
 }
 #ifdef HAVE_PTYS
-static int pty_process;
 /* Open an available pty, returning a file descriptor.
 Return -1 on failure.
 The file name of the terminal corresponding to the pty
 is left in the variable pty_name.  */
 the terminal being used to communicate with PROCESS.
 This is used for various commands in shell mode.
 If NOMSG is zero, insert signal-announcements into process's buffers
 right away.  */
+static void
 process_send_signal (process, signo, current_group, nomsg)
 Lisp_Object process;
 int signo;
 Lisp_Object current_group;
 int nomsg;
 switch (signo)
 	{
 	case SIGINT:
 	  ioctl (XFASTINT (p->infd), TIOCGETC, &c);
 	  send_process (proc, &c.t_intrc, 1);
-	  return Qnil;
+	  return;
 	case SIGQUIT:
 	  ioctl (XFASTINT (p->infd), TIOCGETC, &c);
 	  send_process (proc, &c.t_quitc, 1);
-	  return Qnil;
+	  return;
 #ifdef SIGTSTP
 	case SIGTSTP:
 	  ioctl (XFASTINT (p->infd), TIOCGLTC, &lc);
 	  send_process (proc, &lc.t_suspc, 1);
-	  return Qnil;
+	  return;
 #endif /* SIGTSTP */
 	}
 #endif /* ! defined (TIOCGLTC) && defined (TIOCGETC) */
 /* It is possible that the following code would work
 	 on other kinds of USG systems, not just on the IRIS.
 switch (signo)
 	{
 	case SIGINT:
 	  ioctl (XFASTINT (p->infd), TCGETA, &t);
 	  send_process (proc, &t.c_cc[VINTR], 1);
-	  return Qnil;
+	  return;
 	case SIGQUIT:
 	  ioctl (XFASTINT (p->infd), TCGETA, &t);
 	  send_process (proc, &t.c_cc[VQUIT], 1);
-	  return Qnil;
+	  return;
 	case SIGTSTP:
 	  ioctl (XFASTINT (p->infd), TCGETA, &t);
 	  send_process (proc, &t.c_cc[VSWTCH], 1);
-	  return Qnil;
+	  return;
 	}
 #endif /* ! defined (USG) */
 #ifdef TIOCGPGRP
 /* Get the pgrp using the tty itself, if we have that.
 	  XFASTINT (p->raw_status_low) = u.i & 0xffff;
 	  XFASTINT (p->raw_status_high) = u.i >> 16;
 	  /* If process has terminated, stop waiting for its output.  */
 	  if (WIFSIGNALED (w) || WIFEXITED (w))
-	    if (p->infd)
+	    if (XFASTINT (p->infd))
-	      FD_CLR (p->infd, &input_wait_mask);
+	      FD_CLR (XFASTINT (p->infd), &input_wait_mask);
 	}
 	/* There was no asynchronous process found for that id.  Check
 	   if we have a synchronous process.  */
 else
 return XPROCESS (process)->type;
 }
 #endif
 syms_of_process ()
 {
-#ifdef HAVE_PTYS
-pty_process = intern ("pty");
-#endif
 #ifdef HAVE_SOCKETS
 stream_process = intern ("stream");
 #endif
 Qprocessp = intern ("processp");
 staticpro (&Qprocessp);

Mercurial > emacs

comparison src/process.c @ 1522:19ccf004b172