The R Project SVN R

Rev

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

Rev 48572 Rev 49644
Line 135... Line 135...
135 
	    error(_("%s%d:%d: %s"),
 135 
	    error(_("%s%d:%d: %s"),
136 
		  filename, linenum, R_ParseErrorCol, R_ParseErrorMsg);
 136 
		  filename, linenum, R_ParseErrorCol, R_ParseErrorMsg);
137 
	    break;
 137 
	    break;
138 
	case 1:
 138 
	case 1:
139 
	    sprintf(buffer, "%d: %n", R_ParseContextLine, &width);
139 
	    sprintf(buffer, "%d: %n", R_ParseContextLine, &width);
140 
	    Rprintf("Context is '%s'", CHAR(STRING_ELT(context,0)));
 - 
 
141 
	    error(_("%s%d:%d: %s\n%d: %s\n%*s"),
 140 
	    error(_("%s%d:%d: %s\n%d: %s\n%*s"),
142 
		  filename, linenum, R_ParseErrorCol, R_ParseErrorMsg,
 141 
		  filename, linenum, R_ParseErrorCol, R_ParseErrorMsg,
143 
		  R_ParseContextLine, CHAR(STRING_ELT(context, 0)),
142 
		  R_ParseContextLine, CHAR(STRING_ELT(context, 0)),
144 
		  width+R_ParseErrorCol, "^");
 143 
		  width+R_ParseErrorCol, "^");
145 
	    break;
 144 
	    break;