time_util_warning_n__()

int time_util_warning_n__	(	char *	caller,
		char *	text,
		time_kernel::integer *	n,
		time_kernel::ftnlen	caller_len,
		time_kernel::ftnlen	text_len
	)

Definition at line 67 of file cxxtime_util_warning.cc.

References libtime::Warning::suppress_any, and libtime::Warning::suppress_year.

{
  std::string callerstring, textstring;
  int i;
  if (!(libtime::Warning::suppress_year|| libtime::Warning::suppress_any))
  {
    for (i=0; i<caller_len; i++) { callerstring += *(caller++); }
    for (i=0; i<text_len; i++) { textstring += *(text++); }
    std::string message="ERROR ("+callerstring+"): "+textstring;
    i=(int)*n;
    std::cerr << message << " " << i << std::endl;
  }
  return(0);
} /* time_util_warning_n__ */