142 lines
3.2 KiB
C
142 lines
3.2 KiB
C
/****************************************************************
|
|
* *
|
|
* Copyright 2001, 2005 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 <stdarg.h>
|
|
#include "gtm_stdio.h"
|
|
|
|
#include "fao_parm.h"
|
|
#include "error.h"
|
|
#include "util.h"
|
|
#include "util_out_print_vaparm.h"
|
|
#include "gtmmsg.h"
|
|
#include "gtm_putmsg_list.h"
|
|
#include "io.h"
|
|
|
|
GBLREF va_list last_va_list_ptr;
|
|
|
|
#define NOFLUSH 0
|
|
#define FLUSH 1
|
|
#define RESET 2
|
|
|
|
/*
|
|
* ----------------------------------------------------------------------------------------
|
|
* WARNING: For chained error messages, all messages MUST be followed by an fao count;
|
|
* ======= zero MUST be specified if there are no parameters.
|
|
* ----------------------------------------------------------------------------------------
|
|
*/
|
|
|
|
void gtm_putmsg_list(int arg_count, va_list var)
|
|
{
|
|
int i, msg_id, fao_actual, fao_count, dummy;
|
|
char msg_buffer[1024];
|
|
mstr msg_string;
|
|
boolean_t first_error;
|
|
const err_msg *msg;
|
|
const err_ctl *ctl;
|
|
|
|
assert(0 < arg_count);
|
|
|
|
util_out_print(NULL, RESET);
|
|
first_error = TRUE;
|
|
flush_pio();
|
|
|
|
for (;;)
|
|
{
|
|
msg_id = va_arg(var, int);
|
|
--arg_count;
|
|
|
|
if (NULL == (ctl = err_check(msg_id)))
|
|
msg = NULL;
|
|
else
|
|
{
|
|
assert(0 != (msg_id & FACMASK(ctl->facnum)) && MSGMASK(msg_id, ctl->facnum) <= ctl->msg_cnt);
|
|
|
|
msg = ctl->fst_msg + MSGMASK(msg_id, ctl->facnum) - 1;
|
|
}
|
|
|
|
if (first_error)
|
|
{
|
|
first_error = FALSE;
|
|
error_condition = msg_id;
|
|
severity = NULL == msg ? ERROR : SEVMASK(msg_id);
|
|
}
|
|
|
|
msg_string.addr = msg_buffer;
|
|
msg_string.len = sizeof msg_buffer;
|
|
gtm_getmsg(msg_id, &msg_string);
|
|
|
|
if (NULL == msg)
|
|
{
|
|
util_out_print(msg_string.addr, NOFLUSH, msg_id);
|
|
|
|
if (0 < arg_count)
|
|
{
|
|
/* --------------------------
|
|
* Print the message to date
|
|
* --------------------------
|
|
*/
|
|
|
|
util_out_print(NULL, FLUSH);
|
|
|
|
/* ---------------------------------------
|
|
* Chained error; scan off the fao count
|
|
* (it should be zero)
|
|
* ---------------------------------------
|
|
*/
|
|
|
|
i = va_arg(var, int);
|
|
--arg_count;
|
|
assert(0 == i);
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if (0 < arg_count)
|
|
{
|
|
fao_actual = va_arg(var, int);
|
|
--arg_count;
|
|
|
|
fao_count = fao_actual < msg->parm_count ? fao_actual : msg->parm_count;
|
|
if (MAX_FAO_PARMS < fao_count)
|
|
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); /* needed before used as dest in copy */
|
|
VAR_COPY(var, last_va_list_ptr); /* How much we unwound */
|
|
arg_count -= fao_count;
|
|
|
|
/* ------------------------------
|
|
* Skim off any extra parameters
|
|
* ------------------------------
|
|
*/
|
|
|
|
for (i = fao_count; i < fao_actual; ++i)
|
|
{
|
|
dummy = va_arg(var, int);
|
|
--arg_count;
|
|
}
|
|
va_end(last_va_list_ptr);
|
|
}
|
|
|
|
if (0 == arg_count)
|
|
break;
|
|
|
|
util_out_print("!/", NOFLUSH);
|
|
}
|
|
}
|