The R Project SVN R

Rev

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

Rev 68956 Rev 73564
Line 43... Line 43...
43 
    if(argc <= 2) {
 43 
    if(argc <= 2) {
44 
	getcwd(buf, MAX_PATH);
 44 
	getcwd(buf, MAX_PATH);
45 
	for (p = buf; *p; p++)
45 
	for (p = buf; *p; p++)
46 
	    if (isspace(*p)) { hasspace = 1; break; }
 46 
	    if (isspace(*p)) { hasspace = 1; break; }
47 
	if (hasspace)
 47 
	if (hasspace)
- 
 
 48 
	    /* NOTE: short names are not always enabled */
48 
	    GetShortPathName(buf, buf, MAX_PATH);
 49 
	    GetShortPathName(buf, buf, MAX_PATH);
49 
	for (p = buf; *p; p++)
 50 
	for (p = buf; *p; p++)
50 
	    if (*p == '\\') *p = '/';
 51 
	    if (*p == '\\') *p = '/';
51 
	printf("%s", buf);
 52 
	printf("%s", buf);
52 
	exit(0);
 53 
	exit(0);