Mercurial > hg > xemacs-beta

comparison src/process-unix.c @ 4123:5333f383efbd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-08-17 08:04:25 by crestani] 2007-08-15 Marcus Crestani <crestani@xemacs.org> * input-method-xlib.c (EmacsFreeXIMStyles): * lisp.h: * process-unix.c (connect_to_file_descriptor): * process-unix.c (create_bidirectional_pipe): * process-unix.c (unix_create_process): * process-unix.c (unix_open_network_stream): * process-unix.c (unix_open_multicast_group): Convert pointers to EMACS_INTs instead of ints. * vdb.c (Ftest_vdb): Print adresses as pointers.
author crestani
date Fri, 17 Aug 2007 08:04:28 +0000
parents 0cc7794d231e
children aa5ed11f473b
comparison
equal deleted inserted replaced
4122:8fea628c26fb 4123:5333f383efbd
172 connect_to_file_descriptor (Lisp_Object name, Lisp_Object buffer, 172 connect_to_file_descriptor (Lisp_Object name, Lisp_Object buffer,
173 Lisp_Object infd, Lisp_Object outfd) 173 Lisp_Object infd, Lisp_Object outfd)
174 { 174 {
175 /* This function can GC */ 175 /* This function can GC */
176 Lisp_Object proc; 176 Lisp_Object proc;
177 int inch; 177 EMACS_INT inch;
178 178
179 CHECK_STRING (name); 179 CHECK_STRING (name);
180 CHECK_INT (infd); 180 CHECK_INT (infd);
181 CHECK_INT (outfd); 181 CHECK_INT (outfd);
182 182
422 } /* iteration */ 422 } /* iteration */
423 return -1; 423 return -1;
424 } 424 }
425 425
426 static int 426 static int
427 create_bidirectional_pipe (int *inchannel, int *outchannel, 427 create_bidirectional_pipe (EMACS_INT *inchannel, EMACS_INT *outchannel,
428 volatile int *forkin, volatile int *forkout) 428 volatile EMACS_INT *forkin, volatile EMACS_INT *forkout)
429 { 429 {
430 int sv[2]; 430 int sv[2];
431 431
432 #ifdef SKTPAIR 432 #ifdef SKTPAIR
433 if (socketpair (AF_UNIX, SOCK_STREAM, 0, sv) < 0) 433 if (socketpair (AF_UNIX, SOCK_STREAM, 0, sv) < 0)
1053 Lisp_Object *argv, int nargv, 1053 Lisp_Object *argv, int nargv,
1054 Lisp_Object program, Lisp_Object cur_dir, 1054 Lisp_Object program, Lisp_Object cur_dir,
1055 int separate_err) 1055 int separate_err)
1056 { 1056 {
1057 int pid; 1057 int pid;
1058 int inchannel = -1; 1058 EMACS_INT inchannel = -1;
1059 int outchannel = -1; 1059 EMACS_INT outchannel = -1;
1060 int errchannel = -1; 1060 EMACS_INT errchannel = -1;
1061 /* Use volatile to protect variables from being clobbered by longjmp. */ 1061 /* Use volatile to protect variables from being clobbered by longjmp. */
1062 volatile int forkin = -1; 1062 volatile EMACS_INT forkin = -1;
1063 volatile int forkout = -1; 1063 volatile EMACS_INT forkout = -1;
1064 volatile int forkerr = -1; 1064 volatile EMACS_INT forkerr = -1;
1065 volatile int pty_flag = 0; 1065 volatile int pty_flag = 0;
1066 1066
1067 if (!NILP (Vprocess_connection_type)) 1067 if (!NILP (Vprocess_connection_type))
1068 { 1068 {
1069 /* find a new pty, open the master side, return the opened 1069 /* find a new pty, open the master side, return the opened
1882 static void 1882 static void
1883 unix_open_network_stream (Lisp_Object name, Lisp_Object host, 1883 unix_open_network_stream (Lisp_Object name, Lisp_Object host,
1884 Lisp_Object service, Lisp_Object protocol, 1884 Lisp_Object service, Lisp_Object protocol,
1885 void **vinfd, void **voutfd) 1885 void **vinfd, void **voutfd)
1886 { 1886 {
1887 int inch; 1887 EMACS_INT inch;
1888 int outch; 1888 EMACS_INT outch;
1889 volatile int s = -1; 1889 volatile int s = -1;
1890 volatile int port; 1890 volatile int port;
1891 volatile int retry = 0; 1891 volatile int retry = 0;
1892 volatile int xerrno = 0; 1892 volatile int xerrno = 0;
1893 volatile int failed_connect = 0; 1893 volatile int failed_connect = 0;
2160 void **voutfd) 2160 void **voutfd)
2161 { 2161 {
2162 struct ip_mreq imr; 2162 struct ip_mreq imr;
2163 struct sockaddr_in sa; 2163 struct sockaddr_in sa;
2164 struct protoent *udp; 2164 struct protoent *udp;
2165 int ws, rs; 2165 EMACS_INT ws, rs;
2166 int theport; 2166 int theport;
2167 unsigned char thettl; 2167 unsigned char thettl;
2168 int one = 1; /* For REUSEADDR */ 2168 int one = 1; /* For REUSEADDR */
2169 int ret; 2169 int ret;
2170 volatile int retry = 0; 2170 volatile int retry = 0;