The R Project SVN – R – Diff – /trunk/src/main/internet.c

 void Rsockconnect(int *port, char **host)
 void Rsockclose(int *sockp)
 void Rsockread(int *sockp, char **buf, int *maxlen)
 void Rsockwrite(int *sockp, char **buf, int *start, int *end, int *len)
+int Rsockselect(int nsock, int *insockfd, int *ready, int *write,
+                double timeout)
  */
 static int initialized = 0;
 R_InternetRoutines *
     if(initialized > 0)
 	(*ptr->sockwrite)(sockp, buf, start, end, len);
     else
 	error("socket routines cannot be loaded");
+}
+int Rsockselect(int nsock, int *insockfd, int *ready, int *write,
+		double timeout)
+{
+    if(!initialized) internet_Init();
+    if(initialized > 0)
+	return (*ptr->sockselect)(nsock, insockfd, ready, write, timeout);
+    else {
+	error("socket routines cannot be loaded");
+	return 0;
+    }
+}

The R Project SVN R