time_util_warning__()

int time_util_warning__	(	char *	caller,
		char *	text,
		time_kernel::ftnlen	caller_len,
		time_kernel::ftnlen	text_len
	)

Definition at line 51 of file cxxtime_util_warning.cc.

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

{
  std::string callerstring, textstring;
  int i;
  if (!(libtime::Warning::suppress_normal|| 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;
    std::cerr << message << std::endl;
  }
  return(0);
} /* time_util_warning__ */