The R Project SVN R

Rev

Rev 83883 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 83883 Rev 85580
Line 83... Line 83...
83 
# define Renviron_snprintf Rsnprintf_mbcs
 83 
# define Renviron_snprintf Rsnprintf_mbcs
84 
 
 84 
 
85 
static void Renviron_warning(const char *msg)
 85 
static void Renviron_warning(const char *msg)
86 
{
 86 
{
87 
    if (R_Is_Running > 1)
 87 
    if (R_Is_Running > 1)
88 
	warningcall(R_NilValue, msg);
 88 
	warningcall(R_NilValue, "%s", msg);
89 
    else
 89 
    else
90 
	R_ShowMessage(msg);
 90 
	R_ShowMessage(msg);
91 
}
 91 
}
92 
 
 92 
 
93 
static void Renviron_error(const char *msg)
 93 
static void Renviron_error(const char *msg)
94 
{
 94 
{
95 
    if (R_Is_Running > 1)
 95 
    if (R_Is_Running > 1)
96 
	errorcall(R_NilValue, msg);
 96 
	errorcall(R_NilValue, "%s", msg);
97 
    else
 97 
    else
98 
	R_Suicide(msg);
 98 
	R_Suicide(msg);
99 
}
 99 
}
100 
 
 100 
 
101 
#endif
 101 
#endif