100 lines
2.3 KiB
C
100 lines
2.3 KiB
C
|
/****************************************************************
|
||
|
|
* *
|
||
|
|
* Copyright 2001, 2009 Fidelity Information Services, Inc *
|
||
|
|
* *
|
||
|
|
* This source code contains the intellectual property *
|
||
|
|
* of its copyright holder(s), and is made available *
|
||
|
|
* under a license. If you do not know the terms of *
|
||
|
|
* the license, please stop and do not read further. *
|
||
|
|
* *
|
||
|
|
****************************************************************/
|
||
|
|
|
||
|
|
#include "mdef.h"
|
||
|
|
|
||
|
|
#include "gtm_string.h"
|
||
|
|
|
||
|
|
#include <stdarg.h>
|
||
|
|
#include "gtm_stdio.h"
|
||
|
|
|
||
|
|
#include "gdsroot.h"
|
||
|
|
#include "gtm_facility.h"
|
||
|
|
#include "fileinfo.h"
|
||
|
|
#include "gdsbt.h"
|
||
|
|
#include "gdsfhead.h"
|
||
|
|
#include "repl_msg.h"
|
||
|
|
#include "gtmsource.h"
|
||
|
|
|
||
|
|
#include "gtmmsg.h"
|
||
|
|
|
||
|
|
#include "error.h"
|
||
|
|
#include "fao_parm.h"
|
||
|
|
#include "util.h"
|
||
|
|
#include "util_out_print_vaparm.h"
|
||
|
|
#include "sgtm_putmsg.h"
|
||
|
|
|
||
|
|
GBLREF char util_outbuff[];
|
||
|
|
GBLREF va_list last_va_list_ptr;
|
||
|
|
|
||
|
|
/*
|
||
|
|
** WARNING: For chained error messages, all messages MUST be followed by an fao count;
|
||
|
|
** ======= zero MUST be specified if there are no parameters.
|
||
|
|
* This routine is a variation on the unix version of rts_error, and has an identical interface.
|
||
|
|
*/
|
||
|
|
|
||
|
|
void sgtm_putmsg(char *out_str, ...)
|
||
|
|
{
|
||
|
|
va_list var;
|
||
|
|
int arg_count, dummy, fao_actual, fao_count, i, msg_id;
|
||
|
|
char msg_buffer[OUT_BUFF_SIZE];
|
||
|
|
mstr msg_string;
|
||
|
|
size_t util_outbufflen;
|
||
|
|
|
||
|
|
VAR_START(var, out_str);
|
||
|
|
arg_count = va_arg(var, int);
|
||
|
|
|
||
|
|
assert(arg_count > 0);
|
||
|
|
util_out_print(NULL, RESET);
|
||
|
|
|
||
|
|
for (;;)
|
||
|
|
{
|
||
|
|
msg_id = (int) va_arg(var, VA_ARG_TYPE);
|
||
|
|
--arg_count;
|
||
|
|
|
||
|
|
msg_string.addr = msg_buffer;
|
||
|
|
msg_string.len = SIZEOF(msg_buffer);
|
||
|
|
gtm_getmsg(msg_id, &msg_string);
|
||
|
|
|
||
|
|
if (arg_count > 0)
|
||
|
|
{
|
||
|
|
fao_actual = (int) va_arg(var, VA_ARG_TYPE);
|
||
|
|
--arg_count;
|
||
|
|
|
||
|
|
fao_count = fao_actual;
|
||
|
|
if (fao_count > MAX_FAO_PARMS)
|
||
|
|
{
|
||
|
|
assert(FALSE);
|
||
|
|
fao_count = MAX_FAO_PARMS;
|
||
|
|
}
|
||
|
|
} else
|
||
|
|
fao_actual = fao_count = 0;
|
||
|
|
|
||
|
|
util_out_print_vaparm(msg_string.addr, NOFLUSH, var, fao_count);
|
||
|
|
va_end(var); /* need before using as dest in va_copy */
|
||
|
|
VAR_COPY(var, last_va_list_ptr);
|
||
|
|
va_end(last_va_list_ptr);
|
||
|
|
arg_count -= fao_count;
|
||
|
|
|
||
|
|
if (0 >= arg_count)
|
||
|
|
break;
|
||
|
|
|
||
|
|
util_out_print("!/", NOFLUSH);
|
||
|
|
}
|
||
|
|
va_end(var);
|
||
|
|
|
||
|
|
util_out_print(NULL, SPRINT);
|
||
|
|
util_outbufflen = strlen(util_outbuff);
|
||
|
|
memcpy(out_str, util_outbuff, util_outbufflen);
|
||
|
|
out_str[util_outbufflen] = '\n';
|
||
|
|
out_str[util_outbufflen + 1] = '\0';
|
||
|
|
}
|