/* $Id: test02.c,v 2.1 2000/05/29 13:56:44 cibrario Rel $
   Chf test program.
   Simple initialization - multithreaded.


*/

#include <stdio.h>
#include <stdlib.h>
#include <errno.h>
#include <setjmp.h>

#ifdef _REENTRANT
#include <pthread.h>
#endif

#define CHF_MODULE_ID		255
#define CHF_EXTENDED_INFO
#include "Chf.h"


void *task(void *arg)
{
    const char *msg;
    const ChfDescriptor *d, *e;

    printf("\tThread %d\n", (int)arg);

    /*   message (CHF_MODULE_ID, 1) exists, (CHF_MODULE_ID, 2) does not */
    msg = ChfGetMessage(CHF_MODULE_ID, 1, "Default_1");
    if(strcmp(msg, "Set_255,Message_1"))  exit(EXIT_FAILURE);
    msg = ChfGetMessage(CHF_MODULE_ID, 2, "Default_2");
    if(strcmp(msg, "Default_2"))  exit(EXIT_FAILURE);

    /* Generate a condition and check descriptor; this is line 36 */
    ChfCondition 3, CHF_WARNING, 456 ChfEnd;

    if((d = ChfGetTopCondition()) == NULL)  exit(EXIT_FAILURE);
    if(
	d->module_id != CHF_MODULE_ID
	|| d->condition_code != 3
	|| d->severity != CHF_WARNING
	|| d->line_number != 36
	|| strcmp(d->file_name, "test02.c")
	|| strcmp(d->message, "Set_255,Arg_456,Message_3")
	|| d->next != NULL
	)  exit(EXIT_FAILURE);

    /* Generate another condition and check; this is line 50 */
    ChfCondition 4, CHF_INFO, "arg" ChfEnd;

    if((e = ChfGetTopCondition()) == NULL)  exit(EXIT_FAILURE);
    if(
	e->module_id != CHF_MODULE_ID
	|| e->condition_code != 4
	|| e->severity != CHF_INFO
	|| e->line_number != 50
	|| strcmp(e->file_name, "test02.c")
	|| strcmp(e->message, "Set_255,Arg_arg,Message_4")
	|| e->next != d
	)  exit(EXIT_FAILURE);

    /* Discard the previous condition group and create a new one */
    ChfDiscard();

    /* This is line 67 */
    ChfCondition 5, CHF_ERROR, 456, 789 ChfEnd;

    if((d = ChfGetTopCondition()) == NULL)  exit(EXIT_FAILURE);
    if(
	d->module_id != CHF_MODULE_ID
	|| d->condition_code != 5
	|| d->severity != CHF_ERROR
	|| d->line_number != 67
	|| strcmp(d->file_name, "test02.c")
	|| strcmp(d->message, "Set_255,Arg_456-789,Message_5")
	|| d->next != NULL
	)  exit(EXIT_FAILURE);

    return (void *)0;
}

#define N_THREADS	50

int main(int argc, char *argv[])
{
    int st;
    int i;
    void *ret;
#ifdef _REENTRANT
    pthread_t t[N_THREADS];
#endif

    puts("test02");

#ifdef _REENTRANT
    /* Initialization */
    if(st = ChfMsgcatInit(argv[0], CHF_DEFAULT, "./test01.cat", 50, 10, 1))
	exit(st);

    /* Create */
    for(i=0; i<N_THREADS; i++)
	if(st = pthread_create(&(t[i]), NULL, task, (void *)i))
	{
	    printf("pthread_create: error %d", st);
	    exit(EXIT_FAILURE);
	}

    /* Join */
    for(i=0; i<N_THREADS; i++)
	if(st = pthread_join(t[i], &ret))
	{
	    printf("pthread_join: error %d", st);
	    exit(EXIT_FAILURE);
	}

    /* Exit Chf */
    ChfExit();
#endif
    exit(EXIT_SUCCESS);
}