/* .+

.identifier   : $Id: chf_gen.c,v 2.2 2001/01/25 12:10:22 cibrario Exp $
.context      : CHF, Condition Handling Facility
.title	      : $RCSfile: chf_gen.c,v $, condition generation
.kind	      : C source
.author	      : Ivan Cibrario B.
.site	      : CSTV-CNR
.creation     :	 3-May-1996
.keywords     : *
.description  :
  This module contains the condition generation function of CHF

.include      : Chf.h

.notes	      :
  $Log: chf_gen.c,v $
  Revision 2.2  2001/01/25 12:10:22  cibrario
  Added partial Win32 support (Windows CE only).

  Revision 1.1  1996/05/28  12:53:59  cibrario
  Initial revision


.- */

#ifndef lint
static char rcs_id[] = "$Id: chf_gen.c,v 2.2 2001/01/25 12:10:22 cibrario Exp $";
#endif

#include <stdio.h>
#include <stdlib.h>
#ifndef _WIN32
#include <errno.h>
#endif
#include <setjmp.h>
#include <stdarg.h>
#include <string.h>

#ifdef _WIN32
#include <windows.h>
#include <tchar.h>
#endif

#include "Chf.h"
#include "ChfPriv.h"


/* .+

.title	      : ChfGenerate
.kind	      : C function
.creation     :  3-May-1996
.description  :
  This function generates a condition descriptor for the condition described
  by 'module_id', 'file_name', 'line_number', 'condition_code' and 'severity',
  and the partial message associated with it, specialized with the additional
  arguments '...'; the new condition descriptor is put onto the top of the
  condition stack.

  If the condition stack is full, this function generates the condition
  CHF_F_COND_STACK_FULL and immediately invokes ChfSignal() for the current
  condition stack.

  NOTE: This function calls the CHF function 'ChfAbort()' to
	abort the application if either:
	- CHF has not been initialized correctly (abort code CHF_ABORT_INIT)
	- there is an overflow in the internal buffer used during the
	  generation of the partial message associated with the condition
	  (abort code CHF_ABORT_MSG_OVF)
	- there was an attempt to generate a condition while the CHF condition
	  CHF_F_COND_STACK_FULL (condition stack full) was being signalled
	  (abort code CHF_ABORT_COND_STACK_OVF)


.call	      :
		ChfGenerate(module_id, file_name, line_number,
			condition_code, severity, ...);
.input	      :
		const int module_id, module identifier
		const char *file_name, file name
		const int line_number, line number
		const int condition_code, condition code
		const ChfSeverity severity, severity
		..., additional arguments
.output	      :
		void
.status_codes :
		(*) CHF_F_COND_STACK_FULL, the condition stack is full
.notes	      :
  1.1,  3-May-1996, creation

.- */
void ChfGenerate(		/* Generate a condition into the stack */
  const int module_id,
  const ChfChar *file_name,
  const int line_number,
  const int condition_code,
  const ChfSeverity severity,
  ...
)
{
  ChfDescriptor *new_descriptor;
  va_list aux_arg;

  /* Check that CHF has been correctly initialized */
  if(chf_context.state == CHF_UNKNOWN)  ChfAbort(CHF_ABORT_INIT);

  /* Prepare the additional arguments list */
  va_start(aux_arg, severity);

  if((new_descriptor = chf_context.condition_sp) -
    chf_context.condition_stack >= chf_context.condition_stack_size)
  {
    /* The condition stack is full;
       generate the CHF_F_COND_STACK_FULL condition and signal it immediately,
       using the last available slot of the stack, if it's still empty,
       otherwise abort the application.
    */
    if(new_descriptor - chf_context.condition_stack ==
      chf_context.condition_stack_size)
    {
      new_descriptor->module_id = CHF_MODULE_ID;
      new_descriptor->condition_code = CHF_F_COND_STACK_FULL;
      new_descriptor->severity = CHF_FATAL;
      new_descriptor->line_number = CHF_UNKNOWN_LINE_NUMBER;
      new_descriptor->file_name = CHF_UNKNOWN_FILE_NAME;

      ChfStrncpy(new_descriptor->message,
        ChfGetMessage(CHF_MODULE_ID, CHF_F_COND_STACK_FULL,
        ChfText("Condition stack is full")), CHF_MAX_MESSAGE_LENGTH-1);
      new_descriptor->message[CHF_MAX_MESSAGE_LENGTH-1] = '\0';

      new_descriptor->next = CHF_NULL_DESCRIPTOR;
      chf_context.condition_sp++;

      ChfSignal();
    }

    else
      ChfAbort(CHF_ABORT_COND_STACK_OVF);
  }

  else
  {
    ChfChar def_message[CHF_DEF_MESSAGE_LENGTH];
    ChfChar tmp_message[CHF_TMP_MESSAGE_LENGTH];

    new_descriptor->module_id = module_id;
    new_descriptor->condition_code = condition_code;
    new_descriptor->severity = severity;
    new_descriptor->line_number = line_number;
    new_descriptor->file_name = file_name;

    /* Generate the default message */
    ChfSprintf(def_message, CHF_DEF_PARTIAL_MSG_FMT, condition_code);

    /* Generate the partial message associated with the condition using a
       temporary area
    */
    if(
      ChfVsprintf(tmp_message,
      ChfGetMessage(module_id, condition_code, def_message), aux_arg) >=
      CHF_TMP_MESSAGE_LENGTH)
      ChfAbort(CHF_ABORT_MSG_OVF);
      
    /* Copy the message into the condition descriptor */
    ChfStrncpy(new_descriptor->message, tmp_message, CHF_MAX_MESSAGE_LENGTH-1);
    new_descriptor->message[CHF_MAX_MESSAGE_LENGTH-1] = '\0';

    /* Link the new descriptor with the current descriptor list, if it
       isn't the first descriptor of the list
    */
    new_descriptor->next = (new_descriptor == chf_context.condition_base)
      ? CHF_NULL_DESCRIPTOR : new_descriptor - 1;

    chf_context.condition_sp++;
  }
}