The R Project SVN R

Rev

Rev 83446 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 83446 Rev 87901
Line 79... Line 79...
79 
	return R_NilValue;
 79 
	return R_NilValue;
80 
    }
 80 
    }
81 
}
 81 
}
82 
 
 82 
 
83 
// As from R 4.2.0 this is only used on Windows
 83 
// As from R 4.2.0 this is only used on Windows
84 
Rconnection attribute_hidden
84 
attribute_hidden Rconnection
85 
R_newurl(const char *description, const char * const mode, SEXP headers, int type)
 85 
R_newurl(const char *description, const char * const mode, SEXP headers, int type)
86 
{
 86 
{
87 
    if(!initialized) internet_Init();
 87 
    if(!initialized) internet_Init();
88 
    if(initialized > 0)
 88 
    if(initialized > 0)
89 
	return (*ptr->newurl)(description, mode, headers, type);
 89 
	return (*ptr->newurl)(description, mode, headers, type);
Line 91... Line 91...
91 
	error(_("internet routines cannot be loaded"));
 91 
	error(_("internet routines cannot be loaded"));
92 
	return (Rconnection)0;
 92 
	return (Rconnection)0;
93 
    }
 93 
    }
94 
}
 94 
}
95 
 
 95 
 
96 
Rconnection attribute_hidden
 96 
attribute_hidden Rconnection
97 
R_newsock(const char *host, int port, int server, int serverfd,
 97 
R_newsock(const char *host, int port, int server, int serverfd,
98 
          const char * const mode, int timeout, int options)
 98 
          const char * const mode, int timeout, int options)
99 
{
 99 
{
100 
    if(!initialized) internet_Init();
 100 
    if(!initialized) internet_Init();
101 
    if(initialized > 0)
 101 
    if(initialized > 0)
Line 104... Line 104...
104 
	error(_("internet routines cannot be loaded"));
 104 
	error(_("internet routines cannot be loaded"));
105 
	return (Rconnection)0;
 105 
	return (Rconnection)0;
106 
    }
 106 
    }
107 
}
 107 
}
108 
 
 108 
 
109 
Rconnection attribute_hidden R_newservsock(int port)
 109 
attribute_hidden Rconnection R_newservsock(int port)
110 
{
 110 
{
111 
    if(!initialized) internet_Init();
 111 
    if(!initialized) internet_Init();
112 
    if(initialized > 0)
 112 
    if(initialized > 0)
113 
	return (*ptr->newservsock)(port);
 113 
	return (*ptr->newservsock)(port);
114 
    else {
 114 
    else {
Line 283... Line 283...
283 
	error(_("internet routines cannot be loaded"));
 283 
	error(_("internet routines cannot be loaded"));
284 
	return R_NilValue;
 284 
	return R_NilValue;
285 
    }
 285 
    }
286 
}
 286 
}
287 
 
 287 
 
288 
Rconnection attribute_hidden
 288 
attribute_hidden Rconnection
289 
R_newCurlUrl(const char *description, const char * const mode, SEXP headers, int type)
 289 
R_newCurlUrl(const char *description, const char * const mode, SEXP headers, int type)
290 
{
 290 
{
291 
    if(!initialized) internet_Init();
 291 
    if(!initialized) internet_Init();
292 
    if(initialized > 0)
 292 
    if(initialized > 0)
293 
	return (*ptr->newcurlurl)(description, mode, headers, type);
 293 
	return (*ptr->newcurlurl)(description, mode, headers, type);