The R Project SVN R

Rev

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

Rev 90291 Rev 90293
Line 3038... Line 3038...
3038 
}
 3038 
}
3039 
 
 3039 
 
3040 
SEXP R_makePartialArgumentMatchWarningCondition(SEXP call, SEXP argument, SEXP formal)
 3040 
SEXP R_makePartialArgumentMatchWarningCondition(SEXP call, SEXP argument, SEXP formal)
3041 
{
 3041 
{
3042 
    SEXP cond =
 3042 
    SEXP cond =
3043 
	R_makeWarningCondition(call, "partialMatchWarning", NULL, 2,
 3043 
	R_makeWarningCondition(call, "partialMatchWarning",
- 
 
 3044 
			       "partialArgumentMatchWarning", 2,
3044 
			       _("partial argument match of '%s' to '%s'"),
 3045 
			       _("partial argument match of '%s' to '%s'"),
3045 
			       CHAR(PRINTNAME(argument)),//EncodeChar??
 3046 
			       CHAR(PRINTNAME(argument)),//EncodeChar??
3046 
			       CHAR(PRINTNAME(formal)));//EncodeChar??
 3047 
			       CHAR(PRINTNAME(formal)));//EncodeChar??
3047 
    PROTECT(cond);
 3048 
    PROTECT(cond);
3048 
    R_setConditionField(cond, 2, "argument", argument);
 3049 
    R_setConditionField(cond, 2, "argument", argument);