The R Project SVN R

/*

 *  R : A Computer Language for Statistical Data Analysis

 *  Copyright (C) 2004-2021 The R Core Team

 *

 *  This program is free software; you can redistribute it and/or modify

 *  it under the terms of the GNU General Public License as published by

 *  the Free Software Foundation; either version 2 of the License, or

 *  (at your option) any later version.

 *

 *  This program is distributed in the hope that it will be useful,

 *  but WITHOUT ANY WARRANTY; without even the implied warranty of

 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

 *  GNU General Public License for more details.

 *

 *  You should have received a copy of the GNU General Public License

 *  along with this program; if not, a copy is available at

 *  https://www.R-project.org/Licenses/

 */

#ifndef R_INTERNET_MODULE_H

#define R_INTERNET_MODULE_H

#include <Rinternals.h>

typedef SEXP (*R_DownloadRoutine)(SEXP args);

typedef Rconnection (*R_NewUrlRoutine)(const char *description, const char * const mode,

				       SEXP headers, int method);

typedef Rconnection (*R_NewSockRoutine)(const char *host, int port, int server,

                                        int serverfd, const char * const mode,

                                        int timeout, int options);

typedef Rconnection (*R_NewServSockRoutine)(int port);

typedef void   (*R_SockOpenRoutine)(int *port);

typedef void   (*R_SockListenRoutine)(int *sockp, char **buf, int *len);

typedef void   (*R_SockConnectRoutine)(int *port, char **host);

typedef void   (*R_SockCloseRoutine)(int *sockp);

typedef void   (*R_SockReadRoutine)(int *sockp, char **buf, int *maxlen);

typedef void   (*R_SockWriteRoutine)(int *sockp, char **buf, int *start, int *end, int *len);

typedef int    (*R_SockSelectRoutine)(int nsock, int *insockfd, int *ready, int *write, double timeout);

typedef int    (*R_HTTPDCreateRoutine)(const char *ip, int port);

typedef void   (*R_HTTPDStopRoutine)(void);

typedef SEXP (*R_CurlRoutine)(SEXP call, SEXP op, SEXP args, SEXP rho);

typedef struct {

    R_DownloadRoutine download;

    R_NewUrlRoutine   newurl; // as from R 4.2.0, only used on Windows

    R_NewSockRoutine  newsock;

    R_NewServSockRoutine newservsock;

    R_SockOpenRoutine     sockopen;

    R_SockListenRoutine   socklisten;

    R_SockConnectRoutine  sockconnect;

    R_SockCloseRoutine    sockclose;

    R_SockReadRoutine     sockread;

    R_SockWriteRoutine    sockwrite;

    R_SockSelectRoutine   sockselect;

    R_HTTPDCreateRoutine  HTTPDCreate;

    R_HTTPDStopRoutine    HTTPDStop;

    R_CurlRoutine curlVersion;

    R_CurlRoutine curlGetHeaders;

    R_CurlRoutine curlDownload;

    R_NewUrlRoutine   newcurlurl;

} R_InternetRoutines;

R_InternetRoutines *R_setInternetRoutines(R_InternetRoutines *routines);

#endif /* ifndef R_INTERNET_MODULE_H */