The R Project SVN R

Rev

Rev 26380 | Rev 30791 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 26380 Rev 26421
Line 446... Line 446...
446 
    ctxt = RxmlNanoHTTPOpen(url, NULL, cacheOK);
 446 
    ctxt = RxmlNanoHTTPOpen(url, NULL, cacheOK);
447 
    if(ctxt != NULL) {
 447 
    if(ctxt != NULL) {
448 
	int rc = RxmlNanoHTTPReturnCode(ctxt);
 448 
	int rc = RxmlNanoHTTPReturnCode(ctxt);
449 
	if(rc != 200) {
 449 
	if(rc != 200) {
450 
	    RxmlNanoHTTPClose(ctxt);
 450 
	    RxmlNanoHTTPClose(ctxt);
451 
	    REprintf("cannot open: HTTP status was `%d %s'", rc,
 451 
	    warning("cannot open: HTTP status was `%d %s'", rc,
452 
		  RxmlNanoHTTPStatusMsg(ctxt));
 452 
		  RxmlNanoHTTPStatusMsg(ctxt));
453 
	    return NULL;
 453 
	    return NULL;
454 
	} else {
 454 
	} else {
455 
	    type = RxmlNanoHTTPContentType(ctxt);
 455 
	    type = RxmlNanoHTTPContentType(ctxt);
456 
	    len = RxmlNanoHTTPContentLength(ctxt);
 456 
	    len = RxmlNanoHTTPContentLength(ctxt);
Line 872... Line 872...
872 
    vsnprintf(buf, MBUFSIZE, format, ap);
 872 
    vsnprintf(buf, MBUFSIZE, format, ap);
873 
    buf[MBUFSIZE-1] = '\0';
 873 
    buf[MBUFSIZE-1] = '\0';
874 
    va_end(ap);
 874 
    va_end(ap);
875 
    p = buf + strlen(buf) - 1;
 875 
    p = buf + strlen(buf) - 1;
876 
    if(strlen(buf) > 0 && *p == '\n') *p = '\0';
 876 
    if(strlen(buf) > 0 && *p == '\n') *p = '\0';
877 
    REprintf(buf);
 877 
    warning(buf);
878 
    REprintf("\n");
 - 
 
879 
}
 878 
}
880 
 
 879 
 
881 
#include "sock.h"
 880 
#include "sock.h"
882 
 
 881 
 
883 
#ifdef USE_WININET
 882 
#ifdef USE_WININET