/*
 * fontconfig/test/test-pthread.c
 *
 * Copyright © 2000 Keith Packard
 * Copyright © 2013 Raimund Steger
 *
 * Permission to use, copy, modify, distribute, and sell this software and its
 * documentation for any purpose is hereby granted without fee, provided that
 * the above copyright notice appear in all copies and that both that
 * copyright notice and this permission notice appear in supporting
 * documentation, and that the name of the author(s) not be used in
 * advertising or publicity pertaining to distribution of the software without
 * specific, written prior permission.  The authors make no
 * representations about the suitability of this software for any purpose.  It
 * is provided "as is" without express or implied warranty.
 *
 * THE AUTHOR(S) DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
 * INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO
 * EVENT SHALL THE AUTHOR(S) BE LIABLE FOR ANY SPECIAL, INDIRECT OR
 * CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,
 * DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
 * TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
 * PERFORMANCE OF THIS SOFTWARE.
 */
#include <fontconfig/fontconfig.h>

#include <pthread.h>
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>

struct thr_arg_s {
    int thr_num;
};

static void
run_query (void)
{
    FcPattern *pat = FcPatternCreate(), *match;
    FcResult   result;

    FcPatternAddString (pat, FC_FAMILY, (const FcChar8 *)"sans-serif");
    FcPatternAddBool (pat, FC_SCALABLE, FcTrue);
    FcConfigSubstitute (NULL, pat, FcMatchPattern);
    FcDefaultSubstitute (pat);
    match = FcFontMatch (NULL, pat, &result);
    if (result != FcResultMatch || !match) {
	fprintf (stderr, "ERROR: No matches found\n");
    }
    if (match)
	FcPatternDestroy (match);
    FcPatternDestroy (pat);
}

static void
run_reinit (void)
{
    if (!FcInitReinitialize()) {
	fprintf (stderr, "ERROR: Reinitializing failed\n");
    }
}

#define NTEST 3000

static void *
run_test_in_thread (void *arg)
{
    struct thr_arg_s *thr_arg = (struct thr_arg_s *)arg;
    int               thread_num = thr_arg->thr_num;

    fprintf (stderr, "Worker %d: started (round %d)\n", thread_num % 2, thread_num / 2);
    if ((thread_num % 2) == 0) {
	run_query();
    } else {
	run_reinit();
    }
    fprintf (stderr, "Worker %d: done (round %d)\n", thread_num % 2, thread_num / 2);

    return NULL;
}

int
main (int argc, char **argv)
{
    pthread_t        threads[NTEST];
    struct thr_arg_s thr_arg[NTEST];
    int              i, j;

    for (i = 0; i < NTEST; i++) {
	int result;

	fprintf (stderr, "Thread %d (worker %d round %d): creating\n", i, i % 2, i / 2);
	thr_arg[i].thr_num = i;
	result = pthread_create (&threads[i], NULL, run_test_in_thread,
	                         (void *)&thr_arg[i]);
	if (result != 0) {
	    fprintf (stderr, "Cannot create thread %d\n", i);
	    break;
	}
    }
    for (j = 0; j < i; j++) {
	pthread_join (threads[j], NULL);
	fprintf (stderr, "Joined thread %d\n", j);
    }
    FcFini();

    return 0;
}
