* make-network-process(:nowait t) on MS-Windows @ 2005-11-24 15:26 Kyotaro HORIGUCHI 2005-11-30 8:43 ` Kyotaro HORIGUCHI 0 siblings, 1 reply; 4+ messages in thread From: Kyotaro HORIGUCHI @ 2005-11-24 15:26 UTC (permalink / raw) make-network-process<f> with parameter `:nowait t' returns nil instead of process when evaluating the sample lisp code below on MS-Windows. It seems to have worked once, but does not now. http://lists.gnu.org/archive/html/emacs-devel/2002-05/msg00147.html The following patch make this work again. -- Kyotaro HORIGUCHI ==== sample lisp code (defun my-filter (pro string) (goto-char (point-max)) (insert "FIL: " string)) (defun my-sentinel (pro string) (goto-char (point-max)) (insert "SEN: " string)) (make-network-process :name "foo" :buffer (current-buffer) :host "localhost" :service "smtp" :nowait t :filter 'my-filter :sentinel 'my-sentinel) ==== patch to make make-network-process work. Index: w32.c =================================================================== RCS file: /cvsroot/emacs/emacs/src/w32.c,v retrieving revision 1.97 diff -r1.97 w32.c 154a155,160 > typedef struct { > unsigned int fd_count; > SOCKET fd_array[FD_SETSIZE]; > } pfn_fd_set; > > 2697a2704 > int (PASCAL *pfn_select) (int nfds, pfn_fd_set *readfds, pfn_fd_set *writefds, pfn_fd_set *excepfds, const struct timeval *timeout); 2779a2787 > LOAD_PROC( select ); 2853a2862 > case WSAEWOULDBLOCK: h_errno = EINPROGRESS; break; 3137a3147,3211 > } > > int > sys_select_socket (int nfds, fd_set *readfds, fd_set *writefds, fd_set *exceptfds, struct timeval *timeout) > { > int i, j, k, rc, cfds; > pfn_fd_set *fds[3]; > fd_set *efds[3]; > > if (winsock_lib == NULL) > { > h_errno = ENOTSOCK; > return SOCKET_ERROR; > } > > check_errno (); > > cfds = 0; > efds[0] = readfds; > efds[1] = writefds; > efds[2] = exceptfds; > > for (i = 0 ; i < 3 ; i++) > { > fds[i] = NULL; > if (efds[i]) > { > fds[i] = (pfn_fd_set*)alloca (sizeof (pfn_fd_set)); > fds[i]->fd_count = 0; > for (j = 0 ; j < nfds ; j++) > if (FD_ISSET (j, efds[i])) > { > if (! (fd_info[j].flags & FILE_SOCKET)) > { > h_errno = ENOTSOCK; > return SOCKET_ERROR; > } > > fds[i]->fd_array[fds[i]->fd_count++] = SOCK_HANDLE (j); > cfds++; > } > FD_ZERO (efds[i]); > } > } > > if (cfds == 0) > return 0; > > rc = pfn_select (nfds, fds[0], fds[1], fds[2], timeout); > > if (rc > 0) > for (i = 0 ; i < 3 ; i++) > if (fds[i]) > for (j = 0 ; j < fds[i]->fd_count ; j++) > { > for (k = 0 ; > k < nfds && fds[i]->fd_array [j] != SOCK_HANDLE (k) ; > k++); > if (k < nfds) > FD_SET (k, efds[i]); > } > > if (rc == SOCKET_ERROR) > set_errno (); > return rc; Index: w32proc.c =================================================================== RCS file: /cvsroot/emacs/emacs/src/w32proc.c,v retrieving revision 1.65 diff -r1.65 w32proc.c 1058c1058 < int i, nh, nc, nr; --- > int i, nh, nc, nr, nw; 1074c1074 < if (rfds == NULL || wfds != NULL || efds != NULL) --- > if ((rfds == NULL && wfds == NULL) || efds != NULL) 1082a1083 > nw = 0; 1186a1188,1198 > if (wfds) > { > /* Assume this socket is waiting for connection of > non-blocking socket. */ > struct timeval tm = {0, 0}; > nw = sys_select_socket (nfds, NULL, wfds, NULL, &tm); > > if (nw < 0) > return nw; > } > 1327a1340 > nr += nw; ^ permalink raw reply [flat|nested] 4+ messages in thread
* Re: make-network-process(:nowait t) on MS-Windows 2005-11-24 15:26 make-network-process(:nowait t) on MS-Windows Kyotaro HORIGUCHI @ 2005-11-30 8:43 ` Kyotaro HORIGUCHI 2005-12-01 6:07 ` Richard M. Stallman 0 siblings, 1 reply; 4+ messages in thread From: Kyotaro HORIGUCHI @ 2005-11-30 8:43 UTC (permalink / raw) me> make-network-process<f> with parameter `:nowait t' returns nil me> instead of process when evaluating the sample lisp code below on me> MS-Windows. It seems to have worked once, but does not now. me> me> The following patch make this work again. The errors occurrs after make-network-process returned cannot be caught with the previous patch. Because select() of Winsock returns the failure of the connect with efds, not wfds. Concerning only this issue, and using select(), the simplest way to make this work as expected is to merge efds into wfds returned by Winsock select(). -- Kyotaro HORIGUCHI Index: w32proc.c =================================================================== RCS file: /cvsroot/emacs/emacs/src/w32proc.c,v retrieving revision 1.65 diff -u -2 -r1.65 w32proc.c --- w32proc.c 7 Aug 2005 12:33:18 -0000 1.65 +++ w32proc.c 29 Nov 2005 04:13:45 -0000 @@ -1056,5 +1056,5 @@ SELECT_TYPE orfds; DWORD timeout_ms, start_time; - int i, nh, nc, nr; + int i, nh, nc, nr, nw; DWORD active; child_process *cp, *cps[MAX_CHILDREN]; @@ -1072,5 +1072,5 @@ /* Otherwise, we only handle rfds, so fail otherwise. */ - if (rfds == NULL || wfds != NULL || efds != NULL) + if ((rfds == NULL && wfds == NULL) || efds != NULL) { errno = EINVAL; @@ -1081,4 +1081,5 @@ FD_ZERO (rfds); nr = 0; + nw = 0; /* Always wait on interrupt_handle, to detect C-g (quit). */ @@ -1185,4 +1186,25 @@ } + if (wfds) + { + int i; + SELECT_TYPE efds = *wfds; + struct timeval tm = {0, 0}; + + nw = sys_select_socket (nfds, NULL, wfds, &efds, &tm); + + /* merge retuend efds and wfds */ + for (i = 0 ; i < nfds ; i++) + { + if (FD_ISSET (i, &efds)) + FD_SET (i, wfds); + } + + /* Assume this socket is waiting for connection of + non-blocking socket. */ + if (nw < 0) + return nw; + } + count_children: /* Add handles of child processes. */ @@ -1326,4 +1348,5 @@ /* If no input has arrived and timeout hasn't expired, wait again. */ + nr += nw; if (nr == 0) { Index: w32.c =================================================================== RCS file: /cvsroot/emacs/emacs/src/w32.c,v retrieving revision 1.97 diff -u -2 -r1.97 w32.c --- w32.c 12 Sep 2005 10:27:02 -0000 1.97 +++ w32.c 29 Nov 2005 04:13:46 -0000 @@ -101,4 +101,9 @@ #include "systime.h" +typedef struct { + unsigned int fd_count; + SOCKET fd_array[FD_SETSIZE]; +} pfn_fd_set; + typedef HRESULT (WINAPI * ShGetFolderPath_fn) (IN HWND, IN int, IN HANDLE, IN DWORD, OUT char *); @@ -2696,4 +2701,5 @@ int (PASCAL *pfn_bind) (SOCKET s, const struct sockaddr *addr, int namelen); int (PASCAL *pfn_connect) (SOCKET s, const struct sockaddr *addr, int namelen); +int (PASCAL *pfn_select) (int nfds, pfn_fd_set *readfds, pfn_fd_set *writefds, pfn_fd_set *excepfds, const struct timeval FAR *timeout); int (PASCAL *pfn_ioctlsocket) (SOCKET s, long cmd, u_long *argp); int (PASCAL *pfn_recv) (SOCKET s, char * buf, int len, int flags); @@ -2778,4 +2784,5 @@ LOAD_PROC( bind ); LOAD_PROC( connect ); + LOAD_PROC( select ); LOAD_PROC( ioctlsocket ); LOAD_PROC( recv ); @@ -2852,4 +2859,5 @@ case WSAENAMETOOLONG: h_errno = ENAMETOOLONG; break; case WSAENOTEMPTY: h_errno = ENOTEMPTY; break; + case WSAEWOULDBLOCK: h_errno = EINPROGRESS; break; } errno = h_errno; @@ -3136,4 +3144,69 @@ h_errno = ENOTSOCK; return SOCKET_ERROR; +} + +int +sys_select_socket (int nfds, fd_set *readfds, fd_set *writefds, fd_set *exceptfds, struct timeval *timeout) +{ + int i, j, k, rc, cfds; + pfn_fd_set *fds[3]; + fd_set *efds[3]; + + if (winsock_lib == NULL) + { + h_errno = ENOTSOCK; + return SOCKET_ERROR; + } + + check_errno (); + + cfds = 0; + efds[0] = readfds; + efds[1] = writefds; + efds[2] = exceptfds; + + for (i = 0 ; i < 3 ; i++) + { + fds[i] = NULL; + if (efds[i]) + { + fds[i] = (pfn_fd_set*)alloca (sizeof (pfn_fd_set)); + fds[i]->fd_count = 0; + for (j = 0 ; j < nfds ; j++) + if (FD_ISSET (j, efds[i])) + { + if (! (fd_info[j].flags & FILE_SOCKET)) + { + h_errno = ENOTSOCK; + return SOCKET_ERROR; + } + + fds[i]->fd_array[fds[i]->fd_count++] = SOCK_HANDLE (j); + cfds++; + } + FD_ZERO (efds[i]); + } + } + + if (cfds == 0) + return 0; + + rc = pfn_select (nfds, fds[0], fds[1], fds[2], timeout); + + if (rc > 0) + for (i = 0 ; i < 3 ; i++) + if (fds[i]) + for (j = 0 ; j < fds[i]->fd_count ; j++) + { + for (k = 0 ; + k < nfds && fds[i]->fd_array [j] != SOCK_HANDLE (k) ; + k++); + if (k < nfds) + FD_SET (k, efds[i]); + } + + if (rc == SOCKET_ERROR) + set_errno (); + return rc; } ^ permalink raw reply [flat|nested] 4+ messages in thread
* Re: make-network-process(:nowait t) on MS-Windows 2005-11-30 8:43 ` Kyotaro HORIGUCHI @ 2005-12-01 6:07 ` Richard M. Stallman 2005-12-01 10:07 ` Jason Rumney 0 siblings, 1 reply; 4+ messages in thread From: Richard M. Stallman @ 2005-12-01 6:07 UTC (permalink / raw) Cc: emacs-devel Your patches are big enough that we need some kind of legal papers for them. If the people who maintain Emacs support for Windoze want to use your patches, they should tell me so, and I will make the necessary arrangements with you. ^ permalink raw reply [flat|nested] 4+ messages in thread
* Re: make-network-process(:nowait t) on MS-Windows 2005-12-01 6:07 ` Richard M. Stallman @ 2005-12-01 10:07 ` Jason Rumney 0 siblings, 0 replies; 4+ messages in thread From: Jason Rumney @ 2005-12-01 10:07 UTC (permalink / raw) Cc: Kyotaro HORIGUCHI, emacs-devel Richard M. Stallman wrote: > If the people who maintain Emacs support for Windoze want to use your > patches, they should tell me so, and I will make the necessary > arrangements with you. > Please do. I was going to mail copyright-clerk last night, but ran out of time. ^ permalink raw reply [flat|nested] 4+ messages in thread
end of thread, other threads:[~2005-12-01 10:07 UTC | newest] Thread overview: 4+ messages (download: mbox.gz follow: Atom feed -- links below jump to the message on this page -- 2005-11-24 15:26 make-network-process(:nowait t) on MS-Windows Kyotaro HORIGUCHI 2005-11-30 8:43 ` Kyotaro HORIGUCHI 2005-12-01 6:07 ` Richard M. Stallman 2005-12-01 10:07 ` Jason Rumney
Code repositories for project(s) associated with this external index https://git.savannah.gnu.org/cgit/emacs.git https://git.savannah.gnu.org/cgit/emacs/org-mode.git This is an external index of several public inboxes, see mirroring instructions on how to clone and mirror all data and code used by this external index.