/* -*- 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
}