/* -*- mode: c; c-basic-offset: 4; indent-tabs-mode: nil -*- */

#include <stdio.h>

#include <string.h>

#include <stdlib.h>

#include "com_err.h"

#include "et1.h"

#include "et2.h"

int misc_err, known_err;        /* known_err is err in whether or not

                                   table is 'known' to library */

int fail;

static void

try_one (errcode_t code, int known, int table, int msgno)

{

    const char *msg = error_message (code);

    char buffy[1024];

    snprintf (buffy, sizeof(buffy), "error table %d message %d", table, msgno);

    if (0 == strcmp (buffy, msg)) {

        if (!known) {

            known_err++;

        }

        return;

    }

    snprintf (buffy, sizeof(buffy), "Unknown code et%d %d", table, msgno);

    if (!strcmp (buffy, msg)) {

        if (known)

            known_err++;

        return;

    }

    printf ("error code %ld got unrecognized message '%s',\n"

            "should have been table %d message %d\n",

            (long) code, msg, table, msgno);

    misc_err++;

}

static void

try_table (int table, int known, int lineno,

           errcode_t c0, errcode_t c1, errcode_t c2)

{

    try_one (c0, known, table, 0);

    try_one (c1, known, table, 1);

    try_one (c2, known, table, 2);

    if (misc_err != 0 || known_err != 0) {

        fail++;

        if (known_err)

            printf ("table list error from line %d, table %d\n", lineno,

                    table);

        if (misc_err)

            printf ("misc errors from line %d table %d\n", lineno, table);

        misc_err = known_err = 0;

    }

}

static void

try_em_1 (int t1_known, int t2_known, int lineno)

{

    try_table (1, t1_known, lineno, ET1_M0, ET1_M1, ET1_M2);

    try_table (2, t2_known, lineno, ET2_M0, ET2_M1, ET2_M2);

}

#define try_em(A,B) try_em_1(A,B,__LINE__)

static void *run(/*@unused@*/ void *x)

{

    try_em (0, 0);

    (void) add_error_table (&et_et1_error_table);

    try_em (1, 0);

    (void) add_error_table (&et_et2_error_table);

    try_em (1, 1);

    (void) remove_error_table (&et_et1_error_table);

    try_em (0, 1);

    (void) remove_error_table (&et_et1_error_table);

    try_em (0, 1);

    (void) remove_error_table (&et_et2_error_table);

    try_em (0, 0);

    initialize_et1_error_table ();

    try_em (1, 0);

    (void) add_error_table (&et_et1_error_table);

    try_em (1, 0);

    (void) remove_error_table (&et_et1_error_table);

    try_em (1, 0);

    (void) remove_error_table (&et_et1_error_table);

    try_em (0, 0);

    initialize_et1_error_table ();

    try_em (1, 0);

    (void) add_error_table (&et_et1_error_table);

    try_em (1, 0);

    (void) add_error_table (&et_et2_error_table);

    try_em (1, 1);

    (void) remove_error_table (&et_et1_error_table);

    try_em (1, 1);

    (void) remove_error_table (&et_et1_error_table);

    try_em (0, 1);

    (void) remove_error_table (&et_et2_error_table);

    try_em (0, 0);

    (void) remove_error_table (&et_et2_error_table);

    try_em (0, 0);

    (void) add_error_table (&et_et2_error_table);

    try_em (0, 1);

    initialize_et2_error_table ();

    try_em (0, 1);

    (void) add_error_table (&et_et1_error_table);

    try_em (1, 1);

    (void) remove_error_table (&et_et1_error_table);

    try_em (0, 1);

    (void) remove_error_table (&et_et2_error_table);

    try_em (0, 1);

    (void) remove_error_table (&et_et2_error_table);

    try_em (0, 0);

    return 0;

}

#ifdef TEST_THREADS

#include <pthread.h>

#endif

int main (/*@unused@*/ int argc, /*@unused@*/ char *argv[])

{

#ifdef TEST_THREADS

    pthread_t t;

    int err;

    void *t_retval;

    err = pthread_create(&t, 0, run, 0);

    if (err) {

        fprintf(stderr, "pthread_create error: %s\n", strerror(err));

        exit(1);

    }

    err = pthread_join(t, &t_retval);

    if (err) {

        fprintf(stderr, "pthread_join error: %s\n", strerror(err));

        exit(1);

    }

    return fail;

#else

    run(0);

    return fail;

#endif

}