int
Perl_fprintf_nocontext(PerlIO *stream, const char *format, ...)
{
dTHX;
va_list(arglist);
va_start(arglist, format);
return PerlIO_vprintf(stream, format, arglist);
}
//-------------------------------------------------------
void ofLogO(ofLogLevel logLevel, const char* format, ...) {
char line[512]; // maybe too small?
va_list(args);
va_start(args, format);
vsprintf(line, format, args);
va_end(args);
ofLogger::instance().log(logLevel, (string) line);
}
int
Perl_printf_nocontext(const char *format, ...)
{
dTHX;
va_list(arglist);
va_start(arglist, format);
return PerlIO_vprintf(PerlIO_stdout(), format, arglist);
}
void hPrintf(char *format, ...)
/* Printf that can be suppressed if not making html. */
{
va_list(args);
va_start(args, format);
hvPrintf(format, args);
va_end(args);
}
void Console::error(const char* format, ...) {
String message;
va_list(arguments);
va_start(arguments, format);
formatString(format, arguments, message);
va_end(arguments);
error(message);
}
void Rf_warning(const char *format, ...) {
char buf[8192];
va_list(ap);
va_start(ap,format);
Rvsnprintf(buf, BUFSIZE - 1, format, ap);
va_end(ap);
unimplemented("Rf_warning");
}
//fixme 这种处理有问题, 后面的数据 有时打印错误.
int log::loggerWarn(char *format, ...)
{
int ret_len=fprintf(m_fp,"[警告]");
va_list(marker);
va_start(marker, format);
ret_len+= logger(format,marker);
va_end(marker);
return ret_len;
}
void log_print(FEATURE Feature, TRACE_LEVEL Level, const char *format, ...)
{
va_list(arglist);
if((LogFeature[Feature].Enable == 1) && (LogFeature[Feature].Level >= Level)) {
va_start(arglist, format);
vprintf(format, arglist);
va_end(arglist);
}
}
static void
err(char *format,...) {
va_list(args);
va_start(args, format);
fprintf(stderr, "\n**************** SERVER PIPE ERROR **************\n");
vfprintf(stderr, format, args);
fprintf(stderr, "\n**************** ************ **************\n");
va_end(args);
}
static void run(const char* format, ...) {
char buffer[1024];
va_list(Args);
va_start(Args, format);
int len = vsprintf(buffer, format, Args);
va_end(Args);
printf("STRING = '%s'\n", buffer);
}
void pe_err(int rc, const char* fmt, ...)
{
va_list(ap);
va_start(ap, fmt);
char message[1024];
vsnprintf(message, sizeof message, fmt, ap);
va_end(ap);
failtest( message);
}
void __attribute__((noreturn)) lerrorf(const struct loc *loc,const char *fmt,
...)
{
va_list(ap);
va_start(ap,fmt);
vlerrorf(loc,fmt,ap);
va_end(ap);
}
void Logger::logInfo(const char * format, ...)
{
va_list(ap);
va_start(ap, format);
writeLog(LOG_INFO, format, ap);
va_end(ap);
// To avoid extra file descriptors in forked boosters closing connection to syslog
Logger::closeLog();
}
/* just to get 'int' instead of 'void' as required by CHOLMOD's print_function */
static int
R_cholmod_printf(const char* fmt, ...)
{
va_list(ap);
va_start(ap, fmt);
Rprintf((char *)fmt, ap);
va_end(ap);
return 0;
}
void Logger::logDebug(const char * format, ...)
{
if (m_debugMode)
{
va_list(ap);
va_start(ap, format);
writeLog(LOG_DEBUG, format, ap);
va_end(ap);
}
}
int sprintf_s(char * string, int plen, const char * format, ...)
{
va_list(arglist);
int Len;
va_start(arglist, format);
Len = vsprintf(string, format, arglist);
va_end(arglist);
return Len;
}
void Rprintf(const char *format, ...) {
char buf[8192];
va_list(ap);
va_start(ap,format);
Rvsnprintf(buf, BUFSIZE - 1, format, ap);
va_end(ap);
void *str = truffle_read_string(buf);
IMPORT_CALLHELPER();
truffle_invoke(obj, "printf", str);
}
void Rprintf(const char *format, ...) {
char buf[8192];
va_list(ap);
va_start(ap,format);
Rvsnprintf(buf, BUFSIZE - 1, format, ap);
va_end(ap);
JNIEnv *thisenv = getEnv();
jstring string = (*thisenv)->NewStringUTF(thisenv, buf);
(*thisenv)->CallStaticObjectMethod(thisenv, CallRFFIHelperClass, RprintfMethodID, string);
}
static void test_toks(const struct json *j, ...)
{
const jsmntok_t * tok = j->toks + 1;
const char *value;
va_list(ap);
va_start(ap, j);
while ((value = va_arg(ap, char *)) != NULL) {
assert(json_tok_streq(j->buffer, tok, value));
tok++;
}
}
/*
REprintf is used by the error handler do not add
anything unless you're sure it won't
cause problems
*/
void REprintf(const char *format, ...)
{
// TODO: determine correct target for this message
char buf[8192];
va_list(ap);
va_start(ap,format);
Rvsnprintf(buf, BUFSIZE - 1, format, ap);
va_end(ap);
unimplemented("REprintf");
}
char *make_msg(char *fmt, ...){
char *buf = malloc(1000 * sizeof(char));
va_list(ap);
va_start(ap, fmt);
vsnprintf(buf, 1000, fmt, ap);
va_end(ap);
char *smallbuf = strdup(buf);
free(buf);
return smallbuf;
}
void Dprintf(char *format, ...) {
va_list (args);
va_start (args, format);
FILE *f = fopen("mc_debug.txt", "a");
if (f) {
fprintf(f, "%d> ", getpid());
vfprintf(f, format, args);
fclose(f);
}
va_end (args);
}
VOID __cdecl Debugprintf(const char * format, ...)
{
char Mess[10000];
va_list(arglist);
va_start(arglist, format);
vsprintf(Mess, format, arglist);
strcat(Mess, "\r\n");
OutputDebugString(Mess);
return;
}
static void
Message(const char *fm, ...)
{ char buf[1024];
va_list(args);
return;
va_start(args, fm);
vsprintf(buf, fm, args);
MessageBox(NULL, buf, "SWI-Prolog", MB_OK|MB_TASKMODAL);
va_end(args);
}
static int
sysctl_scanf(const char *name, const char *fmt, ...)
{
va_list(ap);
int rv;
va_start(ap, fmt);
rv = sysctl_vscanf(name, fmt, ap);
va_end(ap);
return rv;
}
int string_nformat (char *str, const size_t max, const char *fmt, ...)
{
va_list(va);
va_start(va, fmt);
size_t n = vsnprintf(str, max, fmt, va);
va_end(va);
if( max <= n )
fatal("String '%30s...' is %zd (greater than the %zd limit).", str, n, max);
return n;
}
/** Reply to the request message. */
int nta_msg_reply(nta_agent_t *agent,
msg_t *msg,
int status, char const *phrase,
void *extra, ...)
{
int retval;
va_list(headers);
va_start(headers, extra);
retval = nta_msg_vreply(agent, msg, status, phrase, extra, headers);
va_end(headers);
return retval;
}
int
Perl_printf_nocontext(const char *format, ...)
{
dTHX;
va_list(arglist);
#ifdef PERL_IMPLICIT_CONTEXT
PERL_ARGS_ASSERT_PRINTF_NOCONTEXT;
#endif
va_start(arglist, format);
return PerlIO_vprintf(PerlIO_stdout(), format, arglist);
}
/**
* Generate an error using new error function system.
* @param code Error code.
* @param fmt Message format.
* @param ... Format arguments.
*/
void gel_set_error(int code, const char *fmt, ...) {
char msg[256];
va_list(args);
/* prepare message */
va_start(args, fmt);
vsnprintf(msg, sizeof(msg), fmt, args);
va_end(args);
/* launch the error */
gel_errno = code;
error_fun(code, msg);
}
static void __warningHandler(const char *fmt, ...) {
char buf[BUFSIZ], *p;
va_list(ap);
va_start(ap, fmt);
vsprintf(buf, fmt, ap);
va_end(ap);
p = buf + strlen(buf) - 1;
if(strlen(buf) > 0 && *p == '\n') *p = '\0';
warning(buf);
return;
}
