xemacs-beta: src/process.c comparison

comparison src/process.c @ 173:8eaf7971accc r20-3b13

Import from CVS: tag r20-3b13

author	cvs
date	Mon, 13 Aug 2007 09:49:09 +0200
parents	15872534500d
children	2d532a89d707

comparison

equal deleted inserted replaced

-:a38aed19690b
+:8eaf7971accc
 ((markobj) (proc->pid));
 ((markobj) (proc->tty_name));
 ((markobj) (proc->instream));
 ((markobj) (proc->outstream));
 ((markobj) (proc->filedesc_stream));
-return (proc->status_symbol);
+return proc->status_symbol;
 }
 static void
 print_process (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag)
 {
 #ifdef HAVE_SOCKETS
 int
 network_connection_p (Lisp_Object process)
 {
-return (GC_CONSP (XPROCESS (process)->pid));
+return GC_CONSP (XPROCESS (process)->pid);
 }
 #endif
 int
 connected_via_filedesc_p (struct Lisp_Process *p)
 DEFUN ("processp", Fprocessp, 1, 1, 0, /*
 Return t if OBJECT is a process.
 */
 (obj))
 {
-return ((PROCESSP (obj)) ? Qt : Qnil);
+return PROCESSP (obj) ? Qt : Qnil;
 }
 DEFUN ("process-list", Fprocess_list, 0, 0, 0, /*
 Return a list of all processes.
 */
 (name))
 {
 Lisp_Object tail;
 if (GC_PROCESSP (name))
-return (name);
+return name;
 if (!gc_in_progress)
 /* this only gets called during GC when emacs is going away as a result
 of a signal or crash. */
 CHECK_STRING (name);
 for (tail = Vprocess_list; GC_CONSP (tail); tail = XCDR (tail))
 {
 Lisp_Object proc = XCAR (tail);
 QUIT;
 if (!NILP (Fequal (name, XPROCESS (proc)->name)))
-return (XCAR (tail));
+return XCAR (tail);
 }
 return Qnil;
 }
 DEFUN ("get-buffer-process", Fget_buffer_process, 1, 1, 0, /*
 Lisp_Object pid;
 CHECK_PROCESS (proc);
 pid = XPROCESS (proc)->pid;
 if (network_connection_p (proc))
-/* return (Qnil); */
+/* return Qnil; */
-return (Fcons (Fcar (pid), Fcdr (pid)));
+return Fcons (Fcar (pid), Fcdr (pid));
 else
-return (pid);
+return pid;
 }
 DEFUN ("process-name", Fprocess_name, 1, 1, 0, /*
 Return the name of PROCESS, as a string.
 This is the name of the program invoked in PROCESS,
 p->outstream = Qnil;
 XSETPROCESS (val, p);
 Vprocess_list = Fcons (val, Vprocess_list);
-return (val);
+return val;
 }
 #ifdef HAVE_PTYS
 /* Open an available pty, returning a file descriptor.
 static int
 get_internet_address (Lisp_Object host, struct sockaddr_in *address,
 		      Error_behavior errb)
 {
-struct hostent *host_info_ptr;
+struct hostent *host_info_ptr = NULL;
 #ifdef TRY_AGAIN
 int count = 0;
 #endif
 #ifndef HAVE_TERM
 vs = get_vms_process_pointer (XINT (p->pid));
 if (vs)
 {
 if (!vs->iosb[0])
-	return(0);		/* Really weird if it does this */
+	return 0;		/* Really weird if it does this */
 if (!(vs->iosb[0] & 1))
 	return -1;		/* I/O error */
 }
 else
 error ("Could not get VMS process pointer");
 running_asynch_code = 0;
 restore_match_data ();
 #ifdef VMS
 start_vms_process_read (vs);
 #endif
-return (nchars);
+return nchars;
 }
 /* If no filter, write into buffer if it isn't dead.  */
 if (!NILP (p->buffer) && BUFFER_LIVE_P (XBUFFER (p->buffer)))
 {
 UNGCPRO;
 }
 #ifdef VMS
 start_vms_process_read (vs);
 #endif
-return (nchars);
+return nchars;
 }
 /* Sending data to subprocess */
 static JMP_BUF send_process_frame;
 get_buffer_range_char (current_buffer, start, end, &st, &en, 0);
 send_process (proc, Fcurrent_buffer (), 0,
 st, en - st);
-return (Qnil);
+return Qnil;
 }
 DEFUN ("process-send-string", Fprocess_send_string, 2, 4, 0, /*
 Send PROCESS the contents of STRING as input.
 PROCESS may be a process name or an actual process.
 get_string_range_byte (string, from, to, &bfr, &bto,
 			 GB_HISTORICAL_STRING_BEHAVIOR);
 len = bto - bfr;
 send_process (proc, string, 0, bfr, len);
-return (Qnil);
+return Qnil;
 }
 #ifdef MULE
 DEFUN ("process-input-coding-system", Fprocess_input_coding_system, 1, 1, 0, /*
 CONST char *
 signal_name (int signum)
 {
 if (signum >= 0 && signum < NSIG)
 #ifndef VMS
-return ((CONST char *) sys_siglist[signum]);
+return (CONST char *) sys_siglist[signum];
 #else
-return ((CONST char *) sys_errlist[signum]);
+return (CONST char *) sys_errlist[signum];
 #endif
-return ((CONST char *) GETTEXT ("unknown signal"));
+return (CONST char *) GETTEXT ("unknown signal");
 }
 /* Compute the Lisp form of the process status from
 the numeric status that was returned by `wait'.  */
 if (EQ (status, Qrun))
 	status = Qopen;
 else if (EQ (status, Qexit))
 	status = Qclosed;
 }
-return (status);
+return status;
 }
 DEFUN ("process-exit-status", Fprocess_exit_status, 1, 1, 0, /*
 Return the exit status of PROCESS or the signal number that killed it.
 If PROCESS has not yet exited or died, return 0.
 */
 (proc))
 {
 CHECK_PROCESS (proc);
-return (make_int (XPROCESS (proc)->exit_code));
+return make_int (XPROCESS (proc)->exit_code);
 }
 #ifdef SIGNALS_VIA_CHARACTERS
 /* Get signal character to send to process if SIGNALS_VIA_CHARACTERS */
 CHECK_PROCESS (proc);
 tem = XPROCESS (proc)->kill_without_query;
 XPROCESS (proc)->kill_without_query = NILP (require_query_p);
-return (tem ? Qnil : Qt);
+return tem ? Qnil : Qt;
 }
 DEFUN ("process-kill-without-query-p", Fprocess_kill_without_query_p, 1, 1, 0, /*
 Whether PROC will be killed without query if running when emacs is exited.
 */
 (proc))
 {
 CHECK_PROCESS (proc);
-return (XPROCESS (proc)->kill_without_query ? Qt : Qnil);
+return XPROCESS (proc)->kill_without_query ? Qt : Qnil;
 }
 /* This is not named init_process in order to avoid a conflict with NS 3.3 */
 void

Mercurial > hg > xemacs-beta

comparison src/process.c @ 173:8eaf7971accc r20-3b13