The R Project SVN R

Rev

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

Rev 77324 Rev 77458
Line 494... Line 494...
494 
    int strip = 0;
 494 
    int strip = 0;
495 
    if (len < 4 || strncmp("\\\\?\\", res, 4))
 495 
    if (len < 4 || strncmp("\\\\?\\", res, 4))
496 
	/* res should start with \\?\ */
 496 
	/* res should start with \\?\ */
497 
	return FALSE;
 497 
	return FALSE;
498
498
499 
    if (len > 8 && !strncmp("UNC\\", res+4, 4))
 499 
    if (len > 8 && !strncmp("UNC\\", res+4, 4)) {
500 
	/* UNC path \\?\UNC */
 500 
	/* UNC path \\?\UNC */
- 
 
 501 
	res[6] = '\\'; /* replace the "C" in "UNC" to get "\\" prefix */
501 
	strip = 7;
502 
	strip = 6;
502 
    else if (len >= 6 && isalpha(res[4]) && res[5] == ':' && res[6] == '\\')
 503 
    } else if (len >= 6 && isalpha(res[4]) && res[5] == ':' && res[6] == '\\')
503 
	/* \\?\D: */
 504 
	/* \\?\D: */
504 
	strip = 4;
 505 
	strip = 4;
505 
    else
 506 
    else
506 
	return FALSE;
 507 
	return FALSE;
507 
    memmove(res, res+strip, len-strip+1);
 508 
    memmove(res, res+strip, len-strip+1);