The R Project SVN R

Rev

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

Rev 87803 Rev 88599
Line 539... Line 539...
539 
    WIctxt  wictxt;
 539 
    WIctxt  wictxt;
540 
    DWORD status = 0, len = 0, d1 = 4, d2 = 0, d3 = 100;
 540 
    DWORD status = 0, len = 0, d1 = 4, d2 = 0, d3 = 100;
541 
    char buf[101], *p;
 541 
    char buf[101], *p;
542 
 
 542 
 
543 
    wictxt = (WIctxt) malloc(sizeof(wIctxt));
 543 
    wictxt = (WIctxt) malloc(sizeof(wIctxt));
- 
 
 544 
    if (!wictxt)
- 
 
 545 
	return NULL;
- 
 
 546 
 
544 
    wictxt->length = -1;
 547 
    wictxt->length = -1;
545 
    wictxt->type = NULL;
 548 
    wictxt->type = NULL;
546 
    wictxt->hand =
 549 
    wictxt->hand =
547 
	InternetOpen(agent, INTERNET_OPEN_TYPE_PRECONFIG, NULL, NULL, 0);
 550 
	InternetOpen(agent, INTERNET_OPEN_TYPE_PRECONFIG, NULL, NULL, 0);
548 
    if(!wictxt->hand) {
 551 
    if(!wictxt->hand) {
Line 649... Line 652...
649 
static void *in_R_FTPOpen2(const char *url)
 652 
static void *in_R_FTPOpen2(const char *url)
650 
{
 653 
{
651 
    WIctxt  wictxt;
 654 
    WIctxt  wictxt;
652 
 
 655 
 
653 
    wictxt = (WIctxt) malloc(sizeof(wIctxt));
 656 
    wictxt = (WIctxt) malloc(sizeof(wIctxt));
- 
 
 657 
    if (!wictxt)
- 
 
 658 
	return NULL;
654 
    wictxt->length = -1;
 659 
    wictxt->length = -1;
655 
    wictxt->type = NULL;
 660 
    wictxt->type = NULL;
656 
 
 661 
 
657 
    wictxt->hand =
 662 
    wictxt->hand =
658 
	InternetOpen("R", INTERNET_OPEN_TYPE_PRECONFIG, NULL, NULL, 0);
 663 
	InternetOpen("R", INTERNET_OPEN_TYPE_PRECONFIG, NULL, NULL, 0);