The R Project SVN R

Rev

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

Rev 58001 Rev 62096
Line 195... Line 195...
195 
 
 195 
 
196 
void askchangedir()
 196 
void askchangedir()
197 
{
 197 
{
198 
    char *s, msg[MAX_PATH + 40];
 198 
    char *s, msg[MAX_PATH + 40];
199 
 
 199 
 
200 
/* if cod has never been used, set it to current directory */
 200 
/* set cod to current directory */
201 
    if (!cod[0]) GetCurrentDirectory(MAX_PATH, cod);
 201 
    GetCurrentDirectory(MAX_PATH, cod);
202 
    s = askcdstring(G_(" Change working directory to:"), cod);
 202 
    s = askcdstring(G_(" Change working directory to:"), cod);
203 
    if (s && (SetCurrentDirectory(s) == FALSE)) {
 203 
    if (s && (SetCurrentDirectory(s) == FALSE)) {
204 
	snprintf(msg, MAX_PATH + 40,
 204 
	snprintf(msg, MAX_PATH + 40,
205 
		 G_("Unable to set '%s' as working directory"), s);
 205 
		 G_("Unable to set '%s' as working directory"), s);
206 
	askok(msg);
 206 
	askok(msg);