Original bug ID: 1531
Reporter: administrator
Status: closed
Resolution: fixed
Priority: normal
Severity: minor
Category: ~DO NOT USE (was: OCaml general)

Bug description

Bonjour,

une petit remarque:

Le programme qui teste l'IO asynchrone (async_io.c dans
config/auto-aux) échoue sur les systèmes linux pour un truc bête : le
test est effectué sur des pipes alors que linux n'implémente l'IO
async que sur les sockets et les ttys. Or la communication X11 passe
par des sockets, donc tout marche parfaitement pour le module Graphics
avec IO asynchrone (je crois que ce n'est utilisé que là).

Je suggère donc de modifier le fichier async_io.c en remplaçant le
pipe() par un socketpair().

--
Olivier

--- config/auto-aux/async_io.c.bak Fri Jan 31 16:53:56 2003
+++ config/auto-aux/async_io.c Fri Jan 31 17:04:48 2003
@@ -13,10 +13,14 @@

/* $Id: async_io.c,v 1.7 2001/12/07 13:39:43 xleroy Exp $ */

+#include <stdlib.h>
#include <stdio.h>
#include <fcntl.h>
#include <signal.h>
#include <errno.h>
+#include <unistd.h>
+#include <sys/wait.h>
+#include <sys/socket.h>
#include "s.h"

int signalled;
@@ -33,7 +37,7 @@
int ret;
#define OUT 0
#define IN 1

• if (pipe(p) == -1) return 1;

• socketpair(PF_LOCAL, SOCK_DGRAM, 0, p);
  signalled = 0;
  signal(SIGIO, sigio_handler);
  ret = fcntl(p[OUT], F_GETFL, 0);
  @@ -44,7 +48,7 @@
  return 1;
  case 0:
  close(p[OUT]);

• write(p[IN], "x", 1);

• send(p[IN], "x", 1, 0);
  sleep(1);
  exit(0);
  default: