view src/geos-test.c @ 4734:80461a9e516c

override default xerbla with version from Octave * mingw-blas-1-xerbla.patch, blas.mk: Build default libxerbla lib. * mingw-lapack-1-xerbla.patch, lapack.mk: Use external libxerbla. * mingw-openblas-1-xerbla.patch, openblas.mk: Likewise. * src/qrupdate-1-fixes.patch: Likewise. * default-octave.mk: Also install libxerbla.dll as libxerbla-octave.dll.
author John W. Eaton <jwe@octave.org>
date Thu, 21 Jun 2018 01:32:10 -0400
parents 99516e73b368
children
line wrap: on
line source

/*
 * This file is part of MXE.
 * See index.html for further information.
 */

#include <stdarg.h>
#include <stdio.h>
#include <stdlib.h>

#include <geos_c.h>

static void notice(const char *fmt, ...)
{
    va_list ap;
    va_start(ap, fmt);
    vprintf(fmt, ap);
    va_end(ap);
    printf("\n");
}

static void error(const char *fmt, ...)
{
    va_list ap;
    va_start(ap, fmt);
    vprintf(fmt, ap);
    va_end(ap);
    printf("\n");

    exit(1);
}

int main(int argc, char *argv[])
{
    GEOSContextHandle_t handle;

    (void)argc;
    (void)argv;

    handle = initGEOS_r(notice, error);

    printf("GEOS version: %s\n", GEOSversion());

    finishGEOS_r(handle);
    return 0;
}