/**********************************************************************
 * $Id$
 *
 * Name:     geoconcept.c
 * Project:  OpenGIS Simple Features Reference Implementation
 * Purpose:  Implements Physical Access class.
 * Language: C
 *
 **********************************************************************
 * Copyright (c) 2007,  Geoconcept and IGN
 * Copyright (c) 2008-2013, Even Rouault <even dot rouault at spatialys.com>
 *
 * SPDX-License-Identifier: MIT
 **********************************************************************/

#include "cpl_port.h"
#include <math.h>
#include "geoconcept.h"
#include "cpl_conv.h"
#include "cpl_string.h"
#include "ogr_core.h"

#define kItemSize_GCIO 256
#define kExtraSize_GCIO 4096
#define kIdSize_GCIO 12
#define UNDEFINEDID_GCIO 199901L

static const char *const gkGCCharset[] = {
    /* 0 */ "",
    /* 1 */ "ANSI",
    /* 2 */ "DOS",
    /* 3 */ "MAC"};

static const char *const gkGCAccess[] = {
    /* 0 */ "",
    /* 1 */ "NO",
    /* 2 */ "READ",
    /* 3 */ "UPDATE",
    /* 4 */ "WRITE"};

static const char *const gkGCStatus[] = {
    /* 0 */ "NONE",
    /* 1 */ "MEMO",
    /* 2 */ "EOF"};

static const char *const gk3D[] = {
    /* 0 */ "",
    /* 1 */ "2D",
    /* 2 */ "3DM",
    /* 3 */ "3D"};

static const char *const gkGCTypeKind[] = {
    /* 0 */ "",
    /* 1 */ "POINT",
    /* 2 */ "LINE",
    /* 3 */ "TEXT",
    /* 4 */ "POLYGON",
    /* 5 */ "MEMO",
    /* 6 */ "INT",
    /* 7 */ "REAL",
    /* 8 */ "LENGTH",
    /* 9 */ "AREA",
    /*10 */ "POSITION",
    /*11 */ "DATE",
    /*12 */ "TIME",
    /*13 */ "CHOICE",
    /*14 */ "MEMO"};

/* -------------------------------------------------------------------- */
/*      GCIO API Prototypes                                             */
/* -------------------------------------------------------------------- */

/* -------------------------------------------------------------------- */
static char GCIOAPI_CALL1(*) _getHeaderValue_GCIO(const char *s)
{
    char *b, *e;

    if ((b = strchr(s, '=')) == NULL)
        return NULL;
    b++;
    while (isspace((unsigned char)*b))
        b++;
    e = b;
    while (*e != '\0' && !isspace((unsigned char)*e))
        e++;
    *e = '\0';
    return b;
} /* _getHeaderValue_GCIO */

/* -------------------------------------------------------------------- */
const char GCIOAPI_CALL1(*) GCCharset2str_GCIO(GCCharset cs)
{
    switch (cs)
    {
        case vANSI_GCIO:
        case vDOS_GCIO:
        case vMAC_GCIO:
            return gkGCCharset[cs];
        default:
            return gkGCCharset[vUnknownCharset_GCIO];
    }
} /* GCCharset2str_GCIO */

/* -------------------------------------------------------------------- */
GCCharset GCIOAPI_CALL str2GCCharset_GCIO(const char *s)
{
    if (strcmp(s, gkGCCharset[vANSI_GCIO]) == 0)
        return vANSI_GCIO;
    if (strcmp(s, gkGCCharset[vDOS_GCIO]) == 0)
        return vDOS_GCIO;
    if (strcmp(s, gkGCCharset[vMAC_GCIO]) == 0)
        return vMAC_GCIO;
    return vUnknownCharset_GCIO;
} /* str2GCCharset_GCIO */

/* -------------------------------------------------------------------- */
const char GCIOAPI_CALL1(*) GCAccessMode2str_GCIO(GCAccessMode mode)
{
    switch (mode)
    {
        case vNoAccess_GCIO:
        case vReadAccess_GCIO:
        case vUpdateAccess_GCIO:
        case vWriteAccess_GCIO:
            return gkGCAccess[mode];
        default:
            return gkGCAccess[vUnknownAccessMode_GCIO];
    }
} /* GCAccessMode2str_GCIO */

/* -------------------------------------------------------------------- */
GCAccessMode GCIOAPI_CALL str2GCAccessMode_GCIO(const char *s)
{
    if (strcmp(s, gkGCAccess[vNoAccess_GCIO]) == 0)
        return vNoAccess_GCIO;
    if (strcmp(s, gkGCAccess[vReadAccess_GCIO]) == 0)
        return vReadAccess_GCIO;
    if (strcmp(s, gkGCAccess[vUpdateAccess_GCIO]) == 0)
        return vUpdateAccess_GCIO;
    if (strcmp(s, gkGCAccess[vWriteAccess_GCIO]) == 0)
        return vWriteAccess_GCIO;
    return vUnknownAccessMode_GCIO;
} /* str2GCAccessMode_GCIO */

/* -------------------------------------------------------------------- */
const char GCIOAPI_CALL1(*) GCAccessStatus2str_GCIO(GCAccessStatus stts)
{
    switch (stts)
    {
        case vMemoStatus_GCIO:
        case vEof_GCIO:
            return gkGCStatus[stts];
        default:
            return gkGCStatus[vNoStatus_GCIO];
    }
} /* GCAccessStatus2str_GCIO */

/* -------------------------------------------------------------------- */
GCAccessStatus GCIOAPI_CALL str2GCAccessStatus_GCIO(const char *s)
{
    if (strcmp(s, gkGCStatus[vMemoStatus_GCIO]) == 0)
        return vMemoStatus_GCIO;
    if (strcmp(s, gkGCStatus[vEof_GCIO]) == 0)
        return vEof_GCIO;
    return vNoStatus_GCIO;
} /* str2GCAccessStatus_GCIO */

/* -------------------------------------------------------------------- */
const char GCIOAPI_CALL1(*) GCDim2str_GCIO(GCDim sys)
{
    switch (sys)
    {
        case v2D_GCIO:
        case v3D_GCIO:
        case v3DM_GCIO:
            return gk3D[sys];
        default:
            return gk3D[vUnknown3D_GCIO];
    }
} /* GCDim2str_GCIO */

/* -------------------------------------------------------------------- */
GCDim GCIOAPI_CALL str2GCDim(const char *s)
{
    if (strcmp(s, gk3D[v2D_GCIO]) == 0)
        return v2D_GCIO;
    if (strcmp(s, gk3D[v3D_GCIO]) == 0)
        return v3D_GCIO;
    if (strcmp(s, gk3D[v3DM_GCIO]) == 0)
        return v3DM_GCIO;
    return vUnknown3D_GCIO;
} /* str2GCDim */

/* -------------------------------------------------------------------- */
const char GCIOAPI_CALL1(*) GCTypeKind2str_GCIO(GCTypeKind item)
{
    switch (item)
    {
        case vPoint_GCIO:
        case vLine_GCIO:
        case vText_GCIO:
        case vPoly_GCIO:
        case vMemoFld_GCIO:
        case vIntFld_GCIO:
        case vRealFld_GCIO:
        case vLengthFld_GCIO:
        case vAreaFld_GCIO:
        case vPositionFld_GCIO:
        case vDateFld_GCIO:
        case vTimeFld_GCIO:
        case vChoiceFld_GCIO:
        case vInterFld_GCIO:
            return gkGCTypeKind[item];
        default:
            return gkGCTypeKind[vUnknownItemType_GCIO];
    }
} /* GCTypeKind2str_GCIO */

/* -------------------------------------------------------------------- */
GCTypeKind GCIOAPI_CALL str2GCTypeKind_GCIO(const char *s)
{
    if (strcmp(s, gkGCTypeKind[vPoint_GCIO]) == 0)
        return vPoint_GCIO;
    if (strcmp(s, gkGCTypeKind[vLine_GCIO]) == 0)
        return vLine_GCIO;
    if (strcmp(s, gkGCTypeKind[vText_GCIO]) == 0)
        return vText_GCIO;
    if (strcmp(s, gkGCTypeKind[vPoly_GCIO]) == 0)
        return vPoly_GCIO;
    if (strcmp(s, gkGCTypeKind[vMemoFld_GCIO]) == 0)
        return vMemoFld_GCIO;
    if (strcmp(s, gkGCTypeKind[vIntFld_GCIO]) == 0)
        return vIntFld_GCIO;
    if (strcmp(s, gkGCTypeKind[vRealFld_GCIO]) == 0)
        return vRealFld_GCIO;
    if (strcmp(s, gkGCTypeKind[vLengthFld_GCIO]) == 0)
        return vLengthFld_GCIO;
    if (strcmp(s, gkGCTypeKind[vAreaFld_GCIO]) == 0)
        return vAreaFld_GCIO;
    if (strcmp(s, gkGCTypeKind[vPositionFld_GCIO]) == 0)
        return vPositionFld_GCIO;
    if (strcmp(s, gkGCTypeKind[vDateFld_GCIO]) == 0)
        return vDateFld_GCIO;
    if (strcmp(s, gkGCTypeKind[vTimeFld_GCIO]) == 0)
        return vTimeFld_GCIO;
    if (strcmp(s, gkGCTypeKind[vChoiceFld_GCIO]) == 0)
        return vChoiceFld_GCIO;
    if (strcmp(s, gkGCTypeKind[vInterFld_GCIO]) == 0)
        return vInterFld_GCIO;
    return vUnknownItemType_GCIO;
} /* str2GCTypeKind_GCIO */

/* -------------------------------------------------------------------- */
static const char GCIOAPI_CALL1(*) _metaDelimiter2str_GCIO(char delim)
{
    switch (delim)
    {
        case '\t':
            return "tab";
        default:
            return "\t";
    }
} /* _metaDelimiter2str_GCIO */

/* -------------------------------------------------------------------- */
static long GCIOAPI_CALL _read_GCIO(GCExportFileH *hGXT)
{
    VSILFILE *h;
    long nread;
    unsigned char c;
    char *result;

    h = GetGCHandle_GCIO(hGXT);
    nread = 0L;
    result = GetGCCache_GCIO(hGXT);
    SetGCCurrentOffset_GCIO(
        hGXT, VSIFTellL(h)); /* keep offset of beginning of lines */
    while (VSIFReadL(&c, 1, 1, h) == 1)
    {
        if (c == '\r') /* PC '\r\n' line, MAC '\r' */
        {
            if (VSIFReadL(&c, 1, 1, h) != 1)
            {
                c = '\n';
            }
            else if (c != '\n')
            {
                VSIFSeekL(h, VSIFTellL(h) - 1, SEEK_SET);
                c = '\n';
            }
        }

        switch (c)
        {
            case 0X1A:
                continue; /* PC end-of-file           */
            case '\n':
                SetGCCurrentLinenum_GCIO(hGXT,
                                         GetGCCurrentLinenum_GCIO(hGXT) + 1L);
                if (nread == 0L)
                    continue;
                *result = '\0';
                return nread;
            default:
                *result = (char)c;
                result++;
                nread++;
                if (nread == kCacheSize_GCIO)
                {
                    CPLError(CE_Failure, CPLE_OutOfMemory,
                             "Too many characters at line %lu.\n",
                             GetGCCurrentLinenum_GCIO(hGXT));
                    return EOF;
                }
        } /* switch */
    }     /* while */
    *result = '\0';

    SetGCStatus_GCIO(hGXT, vEof_GCIO);
    if (nread == 0L)
    {
        return EOF;
    }
    return nread;

} /* _read_GCIO */

/* -------------------------------------------------------------------- */
static vsi_l_offset GCIOAPI_CALL _get_GCIO(GCExportFileH *hGXT)
{
    if (GetGCStatus_GCIO(hGXT) == vEof_GCIO)
    {
        SetGCCache_GCIO(hGXT, "");
        SetGCWhatIs_GCIO(hGXT, (GCTypeKind)vUnknownIO_ItemType_GCIO);
        return EOF;
    }
    if (GetGCStatus_GCIO(hGXT) == vMemoStatus_GCIO)
    {
        SetGCStatus_GCIO(hGXT, vNoStatus_GCIO);
        return GetGCCurrentOffset_GCIO(hGXT);
    }
    if (_read_GCIO(hGXT) == EOF)
    {
        SetGCWhatIs_GCIO(hGXT, (GCTypeKind)vUnknownIO_ItemType_GCIO);
        return (vsi_l_offset)EOF;
    }
    SetGCWhatIs_GCIO(hGXT, (GCTypeKind)vStdCol_GCIO);
    if (strstr(GetGCCache_GCIO(hGXT), kCom_GCIO) == GetGCCache_GCIO(hGXT))
    { /* // */
        SetGCWhatIs_GCIO(hGXT, (GCTypeKind)vComType_GCIO);
        if (strstr(GetGCCache_GCIO(hGXT), kHeader_GCIO) ==
            GetGCCache_GCIO(hGXT))
        { /* //# */
            SetGCWhatIs_GCIO(hGXT, (GCTypeKind)vHeader_GCIO);
        }
        else
        {
            if (strstr(GetGCCache_GCIO(hGXT), kPragma_GCIO) ==
                GetGCCache_GCIO(hGXT))
            { /* //$ */
                SetGCWhatIs_GCIO(hGXT, (GCTypeKind)vPragma_GCIO);
            }
        }
    }
    return GetGCCurrentOffset_GCIO(hGXT);
} /* _get_GCIO */

/* -------------------------------------------------------------------- */
static void GCIOAPI_CALL _InitExtent_GCIO(GCExtent *theExtent)
{
    theExtent->XUL = HUGE_VAL;
    theExtent->YUL = -HUGE_VAL;
    theExtent->XLR = -HUGE_VAL;
    theExtent->YLR = HUGE_VAL;
} /* _InitExtent_GCIO */

/* -------------------------------------------------------------------- */
GCExtent GCIOAPI_CALL1(*)
    CreateExtent_GCIO(double Xmin, double Ymin, double Xmax, double Ymax)
{
    GCExtent *theExtent;

    if (!(theExtent = VSI_MALLOC_VERBOSE(sizeof(GCExtent))))
    {
        return NULL;
    }
    _InitExtent_GCIO(theExtent);
    theExtent->XUL = Xmin;
    theExtent->YUL = Ymax;
    theExtent->XLR = Xmax;
    theExtent->YLR = Ymin;

    return theExtent;
} /* CreateExtent_GCIO */

/* -------------------------------------------------------------------- */
static void GCIOAPI_CALL _ReInitExtent_GCIO(GCExtent *theExtent)
{
    _InitExtent_GCIO(theExtent);
} /* _ReInitExtent_GCIO */

/* -------------------------------------------------------------------- */
void GCIOAPI_CALL DestroyExtent_GCIO(GCExtent **theExtent)
{
    _ReInitExtent_GCIO(*theExtent);
    CPLFree(*theExtent);
    *theExtent = NULL;
} /* DestroyExtent_GCIO */

/* -------------------------------------------------------------------- */
static void GCIOAPI_CALL _InitField_GCIO(GCField *theField)
{
    SetFieldName_GCIO(theField, NULL);
    SetFieldID_GCIO(theField, UNDEFINEDID_GCIO);
    SetFieldKind_GCIO(theField, vUnknownItemType_GCIO);
    SetFieldExtra_GCIO(theField, NULL);
    SetFieldList_GCIO(theField, NULL);
} /* _InitField_GCIO */

/* -------------------------------------------------------------------- */
static const char GCIOAPI_CALL1(*) _NormalizeFieldName_GCIO(const char *name)
{
    if (name[0] == '@')
    {
        if (EQUAL(name, "@Identificateur") || EQUAL(name, kIdentifier_GCIO))
        {
            return kIdentifier_GCIO;
        }
        else if (EQUAL(name, "@Type") || EQUAL(name, kClass_GCIO))
        {
            return kClass_GCIO;
        }
        else if (EQUAL(name, "@Sous-type") || EQUAL(name, kSubclass_GCIO))
        {
            return kSubclass_GCIO;
        }
        else if (EQUAL(name, "@Nom") || EQUAL(name, kName_GCIO))
        {
            return kName_GCIO;
        }
        else if (EQUAL(name, kNbFields_GCIO))
        {
            return kNbFields_GCIO;
        }
        else if (EQUAL(name, kX_GCIO))
        {
            return kX_GCIO;
        }
        else if (EQUAL(name, kY_GCIO))
        {
            return kY_GCIO;
        }
        else if (EQUAL(name, "@X'") || EQUAL(name, kXP_GCIO))
        {
            return kXP_GCIO;
        }
        else if (EQUAL(name, "@Y'") || EQUAL(name, kYP_GCIO))
        {
            return kYP_GCIO;
        }
        else if (EQUAL(name, kGraphics_GCIO))
        {
            return kGraphics_GCIO;
        }
        else if (EQUAL(name, kAngle_GCIO))
        {
            return kAngle_GCIO;
        }
        else
        {
            return name;
        }
    }
    else
    {
        return name;
    }
} /* _NormalizeFieldName_GCIO */

/* -------------------------------------------------------------------- */
static GCField GCIOAPI_CALL1(*)
    _CreateField_GCIO(const char *name, long id, GCTypeKind knd,
                      const char *extra, const char *enums)
{
    GCField *theField;

    if (!(theField = VSI_MALLOC_VERBOSE(sizeof(GCField))))
    {
        return NULL;
    }
    _InitField_GCIO(theField);
    SetFieldName_GCIO(theField, CPLStrdup(name));
    SetFieldID_GCIO(theField, id);
    SetFieldKind_GCIO(theField, knd);
    if (extra && extra[0] != '\0')
        SetFieldExtra_GCIO(theField, CPLStrdup(extra));
    if (enums && enums[0] != '\0')
        SetFieldList_GCIO(theField, CSLTokenizeString2(enums, ";", 0));

    return theField;
} /* _CreateField_GCIO */

/* -------------------------------------------------------------------- */
static void GCIOAPI_CALL _ReInitField_GCIO(GCField *theField)
{
    if (GetFieldName_GCIO(theField))
    {
        CPLFree(GetFieldName_GCIO(theField));
    }
    if (GetFieldExtra_GCIO(theField))
    {
        CPLFree(GetFieldExtra_GCIO(theField));
    }
    if (GetFieldList_GCIO(theField))
    {
        CSLDestroy(GetFieldList_GCIO(theField));
    }
    _InitField_GCIO(theField);
} /* _ReInitField_GCIO */

/* -------------------------------------------------------------------- */
static void GCIOAPI_CALL _DestroyField_GCIO(GCField **theField)
{
    _ReInitField_GCIO(*theField);
    CPLFree(*theField);
    *theField = NULL;
} /* _DestroyField_GCIO */

/* -------------------------------------------------------------------- */
static int GCIOAPI_CALL _findFieldByName_GCIO(CPLList *fields, const char *name)
{
    GCField *theField;

    if (fields)
    {
        int i = 0;
        CPLList *psIter = fields;
        for (; psIter; psIter = psIter->psNext, i++)
        {
            theField = (GCField *)psIter->pData;
            if (EQUAL(GetFieldName_GCIO(theField), name))
            {
                return i;
            }
        }
    }
    return -1;
} /* _findFieldByName_GCIO */

/* -------------------------------------------------------------------- */
static GCField GCIOAPI_CALL1(*) _getField_GCIO(CPLList *fields, int where)
{
    CPLList *e;

    if ((e = CPLListGet(fields, where)))
        return (GCField *)CPLListGetData(e);
    return NULL;
} /* _getField_GCIO */

/* -------------------------------------------------------------------- */
static void GCIOAPI_CALL _InitSubType_GCIO(GCSubType *theSubType)
{
    SetSubTypeGCHandle_GCIO(theSubType, NULL);
    SetSubTypeType_GCIO(theSubType, NULL);
    SetSubTypeName_GCIO(theSubType, NULL);
    SetSubTypeFields_GCIO(theSubType, NULL); /* GCField */
    SetSubTypeFeatureDefn_GCIO(theSubType, NULL);
    SetSubTypeKind_GCIO(theSubType, vUnknownItemType_GCIO);
    SetSubTypeID_GCIO(theSubType, UNDEFINEDID_GCIO);
    SetSubTypeDim_GCIO(theSubType, v2D_GCIO);
    SetSubTypeNbFields_GCIO(theSubType, -1);
    SetSubTypeNbFeatures_GCIO(theSubType, 0L);
    SetSubTypeBOF_GCIO(theSubType, (vsi_l_offset)EOF);
    SetSubTypeBOFLinenum_GCIO(theSubType, 0L);
    SetSubTypeExtent_GCIO(theSubType, NULL);
    SetSubTypeHeaderWritten_GCIO(theSubType, FALSE);
} /* _InitSubType_GCIO */

/* -------------------------------------------------------------------- */
static GCSubType GCIOAPI_CALL1(*)
    _CreateSubType_GCIO(const char *subtypName, long id, GCTypeKind knd,
                        GCDim sys)
{
    GCSubType *theSubType;

    if (!(theSubType = VSI_MALLOC_VERBOSE(sizeof(GCSubType))))
    {
        return NULL;
    }
    _InitSubType_GCIO(theSubType);
    SetSubTypeName_GCIO(theSubType, CPLStrdup(subtypName));
    SetSubTypeID_GCIO(theSubType, id);
    SetSubTypeKind_GCIO(theSubType, knd);
    SetSubTypeDim_GCIO(theSubType, sys);

    return theSubType;
} /* _CreateSubType_GCIO */

/* -------------------------------------------------------------------- */
static void GCIOAPI_CALL _ReInitSubType_GCIO(GCSubType *theSubType)
{
    if (GetSubTypeFeatureDefn_GCIO(theSubType))
    {
        OGR_FD_Release(GetSubTypeFeatureDefn_GCIO(theSubType));
    }
    if (GetSubTypeFields_GCIO(theSubType))
    {
        CPLList *e;
        GCField *theField;
        int i, n;
        if ((n = CPLListCount(GetSubTypeFields_GCIO(theSubType))) > 0)
        {
            for (i = 0; i < n; i++)
            {
                if ((e = CPLListGet(GetSubTypeFields_GCIO(theSubType), i)))
                {
                    if ((theField = (GCField *)CPLListGetData(e)))
                    {
                        _DestroyField_GCIO(&theField);
                    }
                }
            }
        }
        CPLListDestroy(GetSubTypeFields_GCIO(theSubType));
    }
    if (GetSubTypeName_GCIO(theSubType))
    {
        CPLFree(GetSubTypeName_GCIO(theSubType));
    }
    if (GetSubTypeExtent_GCIO(theSubType))
    {
        DestroyExtent_GCIO(&(GetSubTypeExtent_GCIO(theSubType)));
    }
    _InitSubType_GCIO(theSubType);
} /* _ReInitSubType_GCIO */

/* -------------------------------------------------------------------- */
static void GCIOAPI_CALL _DestroySubType_GCIO(GCSubType **theSubType)
{
    _ReInitSubType_GCIO(*theSubType);
    CPLFree(*theSubType);
    *theSubType = NULL;
} /* _DestroySubType_GCIO */

/* -------------------------------------------------------------------- */
static int GCIOAPI_CALL _findSubTypeByName_GCIO(GCType *theClass,
                                                const char *subtypName)
{
    GCSubType *theSubType;

    if (theClass != NULL && GetTypeSubtypes_GCIO(theClass))
    {
        CPLList *e;
        int n, i;
        if ((n = CPLListCount(GetTypeSubtypes_GCIO(theClass))) > 0)
        {
            if (*subtypName == '*')
                return 0;
            for (i = 0; i < n; i++)
            {
                if ((e = CPLListGet(GetTypeSubtypes_GCIO(theClass), i)))
                {
                    if ((theSubType = (GCSubType *)CPLListGetData(e)))
                    {
                        if (EQUAL(GetSubTypeName_GCIO(theSubType), subtypName))
                        {
                            return i;
                        }
                    }
                }
            }
        }
    }
    return -1;
} /* _findSubTypeByName_GCIO */

/* -------------------------------------------------------------------- */
static GCSubType GCIOAPI_CALL1(*) _getSubType_GCIO(GCType *theClass, int where)
{
    CPLList *e;

    if ((e = CPLListGet(GetTypeSubtypes_GCIO(theClass), where)))
        return (GCSubType *)CPLListGetData(e);
    return NULL;
} /* _getSubType_GCIO */

/* -------------------------------------------------------------------- */
static void GCIOAPI_CALL _InitType_GCIO(GCType *theClass)
{
    SetTypeName_GCIO(theClass, NULL);
    SetTypeSubtypes_GCIO(theClass, NULL); /* GCSubType */
    SetTypeFields_GCIO(theClass, NULL);   /* GCField */
    SetTypeID_GCIO(theClass, UNDEFINEDID_GCIO);
} /* _InitType_GCIO */

/* -------------------------------------------------------------------- */
static GCType GCIOAPI_CALL1(*) _CreateType_GCIO(const char *typName, long id)
{
    GCType *theClass;

    if (!(theClass = VSI_MALLOC_VERBOSE(sizeof(GCType))))
    {
        return NULL;
    }
    _InitType_GCIO(theClass);
    SetTypeName_GCIO(theClass, CPLStrdup(typName));
    SetTypeID_GCIO(theClass, id);

    return theClass;
} /* _CreateType_GCIO */

/* -------------------------------------------------------------------- */
static void GCIOAPI_CALL _ReInitType_GCIO(GCType *theClass)
{
    if (GetTypeSubtypes_GCIO(theClass))
    {
        CPLList *e;
        GCSubType *theSubType;
        int i, n;
        if ((n = CPLListCount(GetTypeSubtypes_GCIO(theClass))) > 0)
        {
            for (i = 0; i < n; i++)
            {
                if ((e = CPLListGet(GetTypeSubtypes_GCIO(theClass), i)))
                {
                    if ((theSubType = (GCSubType *)CPLListGetData(e)))
                    {
                        _DestroySubType_GCIO(&theSubType);
                    }
                }
            }
        }
        CPLListDestroy(GetTypeSubtypes_GCIO(theClass));
    }
    if (GetTypeFields_GCIO(theClass))
    {
        CPLList *e;
        GCField *theField;
        int i, n;
        if ((n = CPLListCount(GetTypeFields_GCIO(theClass))) > 0)
        {
            for (i = 0; i < n; i++)
            {
                if ((e = CPLListGet(GetTypeFields_GCIO(theClass), i)))
                {
                    if ((theField = (GCField *)CPLListGetData(e)))
                    {
                        _DestroyField_GCIO(&theField);
                    }
                }
            }
        }
        CPLListDestroy(GetTypeFields_GCIO(theClass));
    }
    if (GetTypeName_GCIO(theClass))
    {
        CPLFree(GetTypeName_GCIO(theClass));
    }
    _InitType_GCIO(theClass);
} /* _ReInitType_GCIO */

/* -------------------------------------------------------------------- */
static void GCIOAPI_CALL _DestroyType_GCIO(GCType **theClass)
{
    _ReInitType_GCIO(*theClass);
    CPLFree(*theClass);
    *theClass = NULL;
} /* _DestroyType_GCIO */

/* -------------------------------------------------------------------- */
static int GCIOAPI_CALL _findTypeByName_GCIO(GCExportFileH *hGXT,
                                             const char *typName)
{
    GCType *theClass;
    GCExportFileMetadata *header;

    header = GetGCMeta_GCIO(hGXT);
    if (GetMetaTypes_GCIO(header))
    {
        CPLList *e;
        int n, i;
        if ((n = CPLListCount(GetMetaTypes_GCIO(header))) > 0)
        {
            if (*typName == '*')
                return 0;
            for (i = 0; i < n; i++)
            {
                if ((e = CPLListGet(GetMetaTypes_GCIO(header), i)))
                {
                    if ((theClass = (GCType *)CPLListGetData(e)))
                    {
                        if (EQUAL(GetTypeName_GCIO(theClass), typName))
                        {
                            return i;
                        }
                    }
                }
            }
        }
    }
    return -1;
} /* _findTypeByName_GCIO */

/* -------------------------------------------------------------------- */
static GCType GCIOAPI_CALL1(*) _getType_GCIO(GCExportFileH *hGXT, int where)
{
    CPLList *e;

    if ((e = CPLListGet(GetMetaTypes_GCIO(GetGCMeta_GCIO(hGXT)), where)))
        return (GCType *)CPLListGetData(e);
    return NULL;
} /* _getType_GCIO */

/* -------------------------------------------------------------------- */
static void GCIOAPI_CALL _InitHeader_GCIO(GCExportFileMetadata *header)
{
    SetMetaVersion_GCIO(header, NULL);
    SetMetaDelimiter_GCIO(header, kTAB_GCIO[0]);
    SetMetaQuotedText_GCIO(header, FALSE);
    SetMetaCharset_GCIO(header, vANSI_GCIO);
    SetMetaUnit_GCIO(header, "m");
    SetMetaFormat_GCIO(header, 2);
    SetMetaSysCoord_GCIO(header, NULL); /* GCSysCoord */
    SetMetaPlanarFormat_GCIO(header, 0);
    SetMetaHeightFormat_GCIO(header, 0);
    SetMetaSRS_GCIO(header, NULL);
    SetMetaTypes_GCIO(header, NULL);  /* GCType */
    SetMetaFields_GCIO(header, NULL); /* GCField */
    SetMetaResolution_GCIO(header, 0.1);
    SetMetaExtent_GCIO(header, NULL);
} /* _InitHeader_GCIO */

/* -------------------------------------------------------------------- */
GCExportFileMetadata GCIOAPI_CALL1(*) CreateHeader_GCIO(void)
{
    GCExportFileMetadata *m;

    if (!(m = VSI_MALLOC_VERBOSE(sizeof(GCExportFileMetadata))))
    {
        return NULL;
    }
    _InitHeader_GCIO(m);

    return m;
} /* CreateHeader_GCIO */

/* -------------------------------------------------------------------- */
static void GCIOAPI_CALL _ReInitHeader_GCIO(GCExportFileMetadata *header)
{
    if (GetMetaVersion_GCIO(header))
    {
        CPLFree(GetMetaVersion_GCIO(header));
    }
    if (GetMetaExtent_GCIO(header))
    {
        DestroyExtent_GCIO(&(GetMetaExtent_GCIO(header)));
    }
    if (GetMetaTypes_GCIO(header))
    {
        CPLList *e;
        GCType *theClass;
        int i, n;
        if ((n = CPLListCount(GetMetaTypes_GCIO(header))) > 0)
        {
            for (i = 0; i < n; i++)
            {
                if ((e = CPLListGet(GetMetaTypes_GCIO(header), i)))
                {
                    if ((theClass = (GCType *)CPLListGetData(e)))
                    {
                        _DestroyType_GCIO(&theClass);
                    }
                }
            }
        }
        CPLListDestroy(GetMetaTypes_GCIO(header));
    }
    if (GetMetaFields_GCIO(header))
    {
        CPLList *e;
        GCField *theField;
        int i, n;
        if ((n = CPLListCount(GetMetaFields_GCIO(header))) > 0)
        {
            for (i = 0; i < n; i++)
            {
                if ((e = CPLListGet(GetMetaFields_GCIO(header), i)))
                {
                    if ((theField = (GCField *)CPLListGetData(e)))
                    {
                        _DestroyField_GCIO(&theField);
                    }
                }
            }
        }
        CPLListDestroy(GetMetaFields_GCIO(header));
    }
    if (GetMetaSRS_GCIO(header))
    {
        OSRRelease(GetMetaSRS_GCIO(header));
    }
    if (GetMetaSysCoord_GCIO(header))
    {
        DestroySysCoord_GCSRS(&(GetMetaSysCoord_GCIO(header)));
    }

    _InitHeader_GCIO(header);
} /* _ReInitHeader_GCIO */

/* -------------------------------------------------------------------- */
void GCIOAPI_CALL DestroyHeader_GCIO(GCExportFileMetadata **m)
{
    _ReInitHeader_GCIO(*m);
    CPLFree(*m);
    *m = NULL;
} /* DestroyHeader_GCIO */

/* -------------------------------------------------------------------- */
static void GCIOAPI_CALL _Init_GCIO(GCExportFileH *H)
{
    SetGCCache_GCIO(H, "");
    SetGCPath_GCIO(H, NULL);
    SetGCBasename_GCIO(H, NULL);
    SetGCExtension_GCIO(H, NULL);
    SetGCHandle_GCIO(H, NULL);
    SetGCCurrentOffset_GCIO(H, 0L);
    SetGCCurrentLinenum_GCIO(H, 0L);
    SetGCNbObjects_GCIO(H, 0L);
    SetGCMeta_GCIO(H, NULL);
    SetGCMode_GCIO(H, vNoAccess_GCIO);
    SetGCStatus_GCIO(H, vNoStatus_GCIO);
    SetGCWhatIs_GCIO(H, (GCTypeKind)vUnknownIO_ItemType_GCIO);
} /* _Init_GCIO */

/* -------------------------------------------------------------------- */
static GCExportFileH GCIOAPI_CALL1(*)
    _Create_GCIO(const char *pszGeoconceptFile, const char *ext,
                 const char *mode)
{
    GCExportFileH *hGXT;

    CPLDebug("GEOCONCEPT", "allocating %d bytes for GCExportFileH",
             (int)sizeof(GCExportFileH));
    if (!(hGXT = VSI_MALLOC_VERBOSE(sizeof(GCExportFileH))))
    {
        return NULL;
    }

    _Init_GCIO(hGXT);
    SetGCPath_GCIO(hGXT, CPLStrdup(CPLGetDirname(pszGeoconceptFile)));
    SetGCBasename_GCIO(hGXT, CPLStrdup(CPLGetBasename(pszGeoconceptFile)));
    SetGCExtension_GCIO(hGXT, CPLStrdup(ext ? ext : "gxt"));
    SetGCMode_GCIO(
        hGXT, (mode[0] == 'w'
                   ? vWriteAccess_GCIO
                   : (mode[0] == 'a' ? vUpdateAccess_GCIO : vReadAccess_GCIO)));

    return hGXT;
} /* _Create_GCIO */

/* -------------------------------------------------------------------- */
static void GCIOAPI_CALL _ReInit_GCIO(GCExportFileH *hGXT)
{
    if (GetGCMeta_GCIO(hGXT))
    {
        DestroyHeader_GCIO(&(GetGCMeta_GCIO(hGXT)));
    }
    if (GetGCHandle_GCIO(hGXT))
    {
        VSIFCloseL(GetGCHandle_GCIO(hGXT));
    }
    if (GetGCExtension_GCIO(hGXT))
    {
        CPLFree(GetGCExtension_GCIO(hGXT));
    }
    if (GetGCBasename_GCIO(hGXT))
    {
        CPLFree(GetGCBasename_GCIO(hGXT));
    }
    if (GetGCPath_GCIO(hGXT))
    {
        CPLFree(GetGCPath_GCIO(hGXT));
    }
    SetGCCache_GCIO(hGXT, "");
    _Init_GCIO(hGXT);
} /* _ReInit_GCIO */

/* -------------------------------------------------------------------- */
static void GCIOAPI_CALL _Destroy_GCIO(GCExportFileH **hGXT, int delFile)
{
    if (delFile && GetGCMode_GCIO(*hGXT) == vWriteAccess_GCIO)
    {
        VSIFCloseL(GetGCHandle_GCIO(*hGXT));
        SetGCHandle_GCIO(*hGXT, NULL);
        VSIUnlink(CPLFormFilename(GetGCPath_GCIO(*hGXT),
                                  GetGCBasename_GCIO(*hGXT),
                                  GetGCExtension_GCIO(*hGXT)));
    }
    _ReInit_GCIO(*hGXT);
    CPLFree(*hGXT);
    *hGXT = NULL;
} /* _Destroy_GCIO */

/* -------------------------------------------------------------------- */
static int _checkSchema_GCIO(GCExportFileH *hGXT)
{
    GCExportFileMetadata *Meta;
    int nT, iT, nS, iS, nF, iF, nU, iId, iCl, iSu, iNa, iNb, iX, iY, iXP, iYP,
        iGr, iAn;
    GCField *theField;
    GCSubType *theSubType;
    GCType *theClass;
    CPLList *e;

    if (!(Meta = GetGCMeta_GCIO(hGXT)))
    {
        return TRUE; /* FIXME */
    }
    if ((nT = CPLListCount(GetMetaTypes_GCIO(Meta))) == 0)
    {
        CPLError(CE_Failure, CPLE_AppDefined,
                 "Geoconcept schema without types!\n");
        return FALSE;
    }
    for (iT = 0; iT < nT; iT++)
    {
        if ((e = CPLListGet(GetMetaTypes_GCIO(Meta), iT)))
        {
            if ((theClass = (GCType *)CPLListGetData(e)))
            {
                if ((nS = CPLListCount(GetTypeSubtypes_GCIO(theClass))) == 0)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Geoconcept type %s without sub-types!\n",
                             GetTypeName_GCIO(theClass));
                    return FALSE;
                }
                for (iS = 0; iS < nS; iS++)
                {
                    if ((e = CPLListGet(GetTypeSubtypes_GCIO(theClass), iS)))
                    {
                        if ((theSubType = (GCSubType *)CPLListGetData(e)))
                        {
                            if ((nF = CPLListCount(
                                     GetSubTypeFields_GCIO(theSubType))) == 0)
                            {
                                CPLError(CE_Failure, CPLE_AppDefined,
                                         "Geoconcept sub-type %s.%s without "
                                         "fields!\n",
                                         GetTypeName_GCIO(theClass),
                                         GetSubTypeName_GCIO(theSubType));
                                return FALSE;
                            }
                            nU = 0;
                            iId = iCl = iSu = iNa = iNb = iX = iY = iXP = iYP =
                                iGr = iAn = -1;
                            for (iF = 0; iF < nF; iF++)
                            {
                                if ((e = CPLListGet(
                                         GetSubTypeFields_GCIO(theSubType),
                                         iF)))
                                {
                                    if ((theField =
                                             (GCField *)CPLListGetData(e)))
                                    {
                                        if (IsPrivateField_GCIO(theField))
                                        {
                                            if (EQUAL(
                                                    GetFieldName_GCIO(theField),
                                                    kIdentifier_GCIO))
                                                iId = iF;
                                            else if (EQUAL(GetFieldName_GCIO(
                                                               theField),
                                                           kClass_GCIO))
                                                iCl = iF;
                                            else if (EQUAL(GetFieldName_GCIO(
                                                               theField),
                                                           kSubclass_GCIO))
                                                iSu = iF;
                                            else if (EQUAL(GetFieldName_GCIO(
                                                               theField),
                                                           kName_GCIO))
                                                iNa = iF;
                                            else if (EQUAL(GetFieldName_GCIO(
                                                               theField),
                                                           kNbFields_GCIO))
                                                iNb = iF;
                                            else if (EQUAL(GetFieldName_GCIO(
                                                               theField),
                                                           kX_GCIO))
                                                iX = iF;
                                            else if (EQUAL(GetFieldName_GCIO(
                                                               theField),
                                                           kY_GCIO))
                                                iY = iF;
                                            else if (EQUAL(GetFieldName_GCIO(
                                                               theField),
                                                           kXP_GCIO))
                                                iXP = iF;
                                            else if (EQUAL(GetFieldName_GCIO(
                                                               theField),
                                                           kYP_GCIO))
                                                iYP = iF;
                                            else if (EQUAL(GetFieldName_GCIO(
                                                               theField),
                                                           kGraphics_GCIO))
                                                iGr = iF;
                                            else if (EQUAL(GetFieldName_GCIO(
                                                               theField),
                                                           kAngle_GCIO))
                                                iAn = iF;
                                        }
                                        else
                                        {
                                            nU++;
                                        }
                                    }
                                }
                            }
                            if (iId == -1)
                            {
                                CPLError(CE_Failure, CPLE_AppDefined,
                                         "Geoconcept mandatory field %s is "
                                         "missing on %s.%s!\n",
                                         kIdentifier_GCIO,
                                         GetTypeName_GCIO(theClass),
                                         GetSubTypeName_GCIO(theSubType));
                                return FALSE;
                            }
                            else if (iId != 0)
                            {
                                CPLError(CE_Failure, CPLE_AppDefined,
                                         "Geoconcept mandatory field %s must "
                                         "be the first field of %s.%s!\n",
                                         kIdentifier_GCIO,
                                         GetTypeName_GCIO(theClass),
                                         GetSubTypeName_GCIO(theSubType));
                                return FALSE;
                            }
                            if (iCl == -1)
                            {
                                CPLError(CE_Failure, CPLE_AppDefined,
                                         "Geoconcept mandatory field %s is "
                                         "missing on %s.%s!\n",
                                         kClass_GCIO,
                                         GetTypeName_GCIO(theClass),
                                         GetSubTypeName_GCIO(theSubType));
                                return FALSE;
                            }
                            else if (iCl - iId != 1)
                            {
                                CPLError(CE_Failure, CPLE_AppDefined,
                                         "Geoconcept mandatory field %s must "
                                         "be the second field of %s.%s!\n",
                                         kClass_GCIO,
                                         GetTypeName_GCIO(theClass),
                                         GetSubTypeName_GCIO(theSubType));
                                return FALSE;
                            }
                            if (iSu == -1)
                            {
                                CPLError(CE_Failure, CPLE_AppDefined,
                                         "Geoconcept mandatory field %s is "
                                         "missing on %s.%s!\n",
                                         kSubclass_GCIO,
                                         GetTypeName_GCIO(theClass),
                                         GetSubTypeName_GCIO(theSubType));
                                return FALSE;
                            }
                            else if (iSu - iCl != 1)
                            {
                                CPLError(CE_Failure, CPLE_AppDefined,
                                         "Geoconcept mandatory field %s must "
                                         "be the third field of %s.%s!\n",
                                         kSubclass_GCIO,
                                         GetTypeName_GCIO(theClass),
                                         GetSubTypeName_GCIO(theSubType));
                                return FALSE;
                            }
                            if (iNa == -1)
                            {
                                CPLError(CE_Failure, CPLE_AppDefined,
                                         "Geoconcept mandatory field %s is "
                                         "missing on %s.%s!\n",
                                         kName_GCIO, GetTypeName_GCIO(theClass),
                                         GetSubTypeName_GCIO(theSubType));
                                return FALSE;
                            }
                            else if (iNa - iSu != 1)
                            {
                                CPLError(CE_Failure, CPLE_AppDefined,
                                         "Geoconcept mandatory field %s must "
                                         "be the forth field of %s.%s!\n",
                                         kName_GCIO, GetTypeName_GCIO(theClass),
                                         GetSubTypeName_GCIO(theSubType));
                                return FALSE;
                            }
                            if (iNb == -1)
                            {
                                CPLError(CE_Failure, CPLE_AppDefined,
                                         "Geoconcept mandatory field %s is "
                                         "missing on %s.%s!\n",
                                         kNbFields_GCIO,
                                         GetTypeName_GCIO(theClass),
                                         GetSubTypeName_GCIO(theSubType));
                                return FALSE;
                            }
                            if (iX == -1)
                            {
                                CPLError(CE_Failure, CPLE_AppDefined,
                                         "Geoconcept mandatory field %s is "
                                         "missing on %s.%s!\n",
                                         kX_GCIO, GetTypeName_GCIO(theClass),
                                         GetSubTypeName_GCIO(theSubType));
                                return FALSE;
                            }
                            if (iY == -1)
                            {
                                CPLError(CE_Failure, CPLE_AppDefined,
                                         "Geoconcept mandatory field %s is "
                                         "missing on %s.%s!\n",
                                         kY_GCIO, GetTypeName_GCIO(theClass),
                                         GetSubTypeName_GCIO(theSubType));
                                return FALSE;
                            }
                            if (iY - iX != 1)
                            {
                                CPLError(CE_Failure, CPLE_AppDefined,
                                         "Geoconcept geometry fields %s, %s "
                                         "must be consecutive for %s.%s!\n",
                                         kX_GCIO, kY_GCIO,
                                         GetTypeName_GCIO(theClass),
                                         GetSubTypeName_GCIO(theSubType));
                                return FALSE;
                            }
                            if (GetSubTypeKind_GCIO(theSubType) == vLine_GCIO)
                            {
                                if (iXP == -1)
                                {
                                    CPLError(CE_Failure, CPLE_AppDefined,
                                             "Geoconcept mandatory field %s is "
                                             "missing on %s.%s!\n",
                                             kXP_GCIO,
                                             GetTypeName_GCIO(theClass),
                                             GetSubTypeName_GCIO(theSubType));
                                    return FALSE;
                                }
                                if (iYP == -1)
                                {
                                    CPLError(CE_Failure, CPLE_AppDefined,
                                             "Geoconcept mandatory field %s is "
                                             "missing on %s.%s!\n",
                                             kYP_GCIO,
                                             GetTypeName_GCIO(theClass),
                                             GetSubTypeName_GCIO(theSubType));
                                    return FALSE;
                                }
                                if (iYP - iXP != 1)
                                {
                                    CPLError(
                                        CE_Failure, CPLE_AppDefined,
                                        "Geoconcept geometry fields %s, %s "
                                        "must be consecutive for %s.%s!\n",
                                        kXP_GCIO, kYP_GCIO,
                                        GetTypeName_GCIO(theClass),
                                        GetSubTypeName_GCIO(theSubType));
                                    return FALSE;
                                }
                                if (iXP - iY != 1)
                                {
                                    CPLError(CE_Failure, CPLE_AppDefined,
                                             "Geoconcept geometry fields %s, "
                                             "%s, %s, %s must be consecutive "
                                             "for %s.%s!\n",
                                             kX_GCIO, kY_GCIO, kXP_GCIO,
                                             kYP_GCIO,
                                             GetTypeName_GCIO(theClass),
                                             GetSubTypeName_GCIO(theSubType));
                                    return FALSE;
                                }
                            }
                            else
                            {
                                if (iXP != -1)
                                {
                                    CPLError(CE_Failure, CPLE_AppDefined,
                                             "Geoconcept sub-type %s.%s has a "
                                             "mandatory field %s only required "
                                             "on linear type!\n",
                                             GetTypeName_GCIO(theClass),
                                             GetSubTypeName_GCIO(theSubType),
                                             kXP_GCIO);
                                    return FALSE;
                                }
                                if (iYP != -1)
                                {
                                    CPLError(CE_Failure, CPLE_AppDefined,
                                             "Geoconcept sub-type %s.%s has a "
                                             "mandatory field %s only required "
                                             "on linear type!\n",
                                             GetTypeName_GCIO(theClass),
                                             GetSubTypeName_GCIO(theSubType),
                                             kYP_GCIO);
                                    return FALSE;
                                }
                            }
                            if (GetSubTypeKind_GCIO(theSubType) == vLine_GCIO ||
                                GetSubTypeKind_GCIO(theSubType) == vPoly_GCIO)
                            {
                                if (iGr == -1)
                                {
                                    CPLError(CE_Failure, CPLE_AppDefined,
                                             "Geoconcept mandatory field %s is "
                                             "missing on %s.%s!\n",
                                             kGraphics_GCIO,
                                             GetTypeName_GCIO(theClass),
                                             GetSubTypeName_GCIO(theSubType));
                                    return FALSE;
                                }
                                else
                                {
                                    if (!(((iGr != -1) && ((iGr == iY + 1) ||
                                                           (iGr == iYP + 1))) ||
                                          (iGr == -1)))

                                    {
                                        CPLError(
                                            CE_Failure, CPLE_AppDefined,
                                            "Geoconcept geometry fields %s, %s "
                                            "must be consecutive for %s.%s!\n",
                                            iYP != -1 ? kYP_GCIO : kY_GCIO,
                                            kGraphics_GCIO,
                                            GetTypeName_GCIO(theClass),
                                            GetSubTypeName_GCIO(theSubType));
                                        return FALSE;
                                    }
                                }
                                if (iAn != -1)
                                {
                                    CPLError(CE_Failure, CPLE_AppDefined,
                                             "Geoconcept sub-type %s.%s has a "
                                             "field %s only required on "
                                             "ponctual or text type!\n",
                                             GetTypeName_GCIO(theClass),
                                             GetSubTypeName_GCIO(theSubType),
                                             kAngle_GCIO);
                                    return FALSE;
                                }
                            }
                            else
                            {
                                if (iGr != -1)
                                {
                                    CPLError(CE_Failure, CPLE_AppDefined,
                                             "Geoconcept sub-type %s.%s has a "
                                             "mandatory field %s only required "
                                             "on linear or polygonal type!\n",
                                             GetTypeName_GCIO(theClass),
                                             GetSubTypeName_GCIO(theSubType),
                                             kGraphics_GCIO);
                                    return FALSE;
                                }
                            }
                            SetSubTypeNbFields_GCIO(theSubType, nU);
                            SetSubTypeGCHandle_GCIO(theSubType, hGXT);
                        }
                    }
                }
            }
        }
    }

    return TRUE;
} /* _checkSchema_GCIO */

/* -------------------------------------------------------------------- */
static GCExportFileMetadata GCIOAPI_CALL1(*)
    _parsePragma_GCIO(GCExportFileH *hGXT)
{
    GCExportFileMetadata *Meta;
    char *p, *e;

    Meta = GetGCMeta_GCIO(hGXT);

    if ((p = strstr(GetGCCache_GCIO(hGXT), kMetadataVERSION_GCIO)) != NULL)
    {
        if (GetMetaVersion_GCIO(Meta))
        {
            DestroyHeader_GCIO(&(GetGCMeta_GCIO(hGXT)));
            return NULL;
        }

        /* //$VERSION char* */
        p += strlen(kMetadataVERSION_GCIO);
        while (isspace((unsigned char)*p))
            p++;
        e = p;
        while (isalpha((unsigned char)*p))
            p++;
        *p = '\0';
        SetMetaVersion_GCIO(Meta, CPLStrdup(e));
        return Meta;
    }
    if ((p = strstr(GetGCCache_GCIO(hGXT), kMetadataDELIMITER_GCIO)) != NULL)
    {
        /* //$DELIMITER "char*" */
        if ((p = strchr(p, '"')))
        {
            p++;
            e = p;
            while (*p != '"' && *p != '\0')
                p++;
            *p = '\0';
            if (!(EQUAL(e, "tab") || EQUAL(e, kTAB_GCIO)))
            {
                CPLDebug("GEOCONCEPT", "%s%s only supports \"tab\" value",
                         kPragma_GCIO, kMetadataDELIMITER_GCIO);
                SetMetaDelimiter_GCIO(Meta, kTAB_GCIO[0]);
            }
            else
            {
                SetMetaDelimiter_GCIO(Meta, kTAB_GCIO[0]);
            }
        }
        return Meta;
    }
    if ((p = strstr(GetGCCache_GCIO(hGXT), kMetadataQUOTEDTEXT_GCIO)) != NULL)
    {
        /* //$QUOTED-TEXT "char*" */
        if ((p = strchr(p, '"')))
        {
            p++;
            e = p;
            while (*p != '"' && *p != '\0')
                p++;
            *p = '\0';
            if (EQUAL(e, "no"))
            {
                SetMetaQuotedText_GCIO(Meta, FALSE);
            }
            else
            {
                SetMetaQuotedText_GCIO(Meta, TRUE);
            }
        }
        return Meta;
    }
    if ((p = strstr(GetGCCache_GCIO(hGXT), kMetadataCHARSET_GCIO)) != NULL)
    {
        /* //$CHARSET char* */
        p += strlen(kMetadataCHARSET_GCIO);
        while (isspace((unsigned char)*p))
            p++;
        e = p;
        while (isalpha((unsigned char)*p))
            p++;
        *p = '\0';
        SetMetaCharset_GCIO(Meta, str2GCCharset_GCIO(e));
        return Meta;
    }
    if ((p = strstr(GetGCCache_GCIO(hGXT), kMetadataUNIT_GCIO)) != NULL)
    {
        /* //$UNIT Distance|Angle:char* */
        if ((p = strchr(p, ':')))
        {
            p++;
            while (isspace((unsigned char)*p))
                p++;
            e = p;
            while (isalpha((unsigned char)*p) || *p == '.')
                p++;
            *p = '\0';
            SetMetaUnit_GCIO(Meta, e); /* FIXME : check value ? */
        }
        return Meta;
    }
    if ((p = strstr(GetGCCache_GCIO(hGXT), kMetadataFORMAT_GCIO)) != NULL)
    {
        /* //$FORMAT 1|2 */
        p += strlen(kMetadataFORMAT_GCIO);
        while (isspace((unsigned char)*p))
            p++;
        e = p;
        if (*e == '1')
        {
            SetMetaFormat_GCIO(Meta, 1);
        }
        else
        {
            SetMetaFormat_GCIO(Meta, 2);
        }
        return Meta;
    }
    if ((p = strstr(GetGCCache_GCIO(hGXT), kMetadataSYSCOORD_GCIO)) != NULL)
    {
        int v, z;
        GCSysCoord *syscoord;

        if (GetMetaSysCoord_GCIO(Meta))
        {
            DestroyHeader_GCIO(&(GetGCMeta_GCIO(hGXT)));
            return NULL;
        }

        /* //$SYSCOORD {Type: int} [ ; { TimeZone: TimeZoneValue } ] */
        v = -1;
        z = -1;
        if ((p = strchr(p, ':')))
        {
            p++;
            while (isspace((unsigned char)*p))
                p++;
            e = p;
            if (*p == '-')
                p++; /* allow -1 as SysCoord */
            while (isdigit((unsigned char)*p))
                p++;
            *p = '\0';
            if (sscanf(e, "%d", &v) != 1)
            {
                DestroyHeader_GCIO(&(GetGCMeta_GCIO(hGXT)));
                CPLError(CE_Failure, CPLE_AppDefined,
                         "Invalid SRS identifier. "
                         "Geoconcept export syntax error at line %ld.",
                         GetGCCurrentLinenum_GCIO(hGXT));
                return NULL;
            }
            if ((p = strrchr(GetGCCache_GCIO(hGXT), ';')))
            {
                if ((p = strchr(p, ':')))
                {
                    p++;
                    while (isspace((unsigned char)*p))
                        p++;
                    e = p;
                    if (*p == '-')
                        p++; /* allow -1 as TimeZone */
                    while (isdigit((unsigned char)*p))
                        p++;
                    *p = '\0';
                    if (sscanf(e, "%d", &z) != 1)
                    {
                        DestroyHeader_GCIO(&(GetGCMeta_GCIO(hGXT)));
                        CPLError(CE_Failure, CPLE_AppDefined,
                                 "Invalid TimeZone. "
                                 "Geoconcept export syntax error at line %ld.",
                                 GetGCCurrentLinenum_GCIO(hGXT));
                        return NULL;
                    }
                }
            }
            if (!(syscoord = CreateSysCoord_GCSRS(v, z)))
            {
                DestroyHeader_GCIO(&(GetGCMeta_GCIO(hGXT)));
                return NULL;
            }
            SetMetaSysCoord_GCIO(Meta, syscoord);
        }
        return Meta;
    }
    if ((p = strstr(GetGCCache_GCIO(hGXT), kMetadataFIELDS_GCIO)) != NULL)
    {
        char **kv, **vl, *nm, **fl;
        int whereClass, v, i, n,
            mask =
                CSLT_HONOURSTRINGS | CSLT_STRIPLEADSPACES | CSLT_STRIPENDSPACES;
        GCType *theClass;
        GCSubType *theSubType;
        GCField *theField;
        /* //$FIELDS +Class=char*; *Subclass=char*; *Kind=1..4;
         * *Fields=(Private#)?char*(\t((Private#)?char*))* */
        p += strlen(kMetadataFIELDS_GCIO);
        kv = CSLTokenizeString2(p, ";", mask);
        if (!kv || CSLCount(kv) != 4)
        {
            CSLDestroy(kv);
            DestroyHeader_GCIO(&(GetGCMeta_GCIO(hGXT)));
            CPLError(
                CE_Failure, CPLE_AppDefined,
                "Expected: //$FIELDS +Class=char*; *Subclass=char*; "
                "*Kind=1..4; *Fields=(Private#)?char*(\\t((Private#)?char*))*\n"
                "Found: [%s]\n"
                "Geoconcept export syntax error at line %ld.\n",
                p, GetGCCurrentLinenum_GCIO(hGXT));
            return NULL;
        }
        for (i = 0; i < 4; i++)
            CPLDebug("GEOCONCEPT", "%d kv[%d]=[%s]\n", __LINE__, i, kv[i]);
        /* Class=char* */
        vl = CSLTokenizeString2(kv[0], "=", 0);
        if (!vl || CSLCount(vl) != 2)
        {
            CPLError(CE_Failure, CPLE_AppDefined,
                     "Expected: Class=char*\n"
                     "Found: [%s]\n"
                     "Geoconcept export syntax error at line %ld.\n",
                     kv[0], GetGCCurrentLinenum_GCIO(hGXT));
            CSLDestroy(vl);
            CSLDestroy(kv);
            DestroyHeader_GCIO(&(GetGCMeta_GCIO(hGXT)));
            return NULL;
        }
        for (i = 0; i < 2; i++)
            CPLDebug("GEOCONCEPT", "%d vl[%d]=[%s]\n", __LINE__, i, vl[i]);
        if (!EQUAL(vl[0], "Class"))
        {
            CPLError(CE_Failure, CPLE_AppDefined,
                     "Expected: 'Class'\n"
                     "Found: [%s]\n"
                     "Geoconcept export syntax error at line %ld.\n",
                     vl[0], GetGCCurrentLinenum_GCIO(hGXT));
            CSLDestroy(vl);
            CSLDestroy(kv);
            DestroyHeader_GCIO(&(GetGCMeta_GCIO(hGXT)));
            return NULL;
        }
        p = vl[1];
        e = p;
        if ((whereClass = _findTypeByName_GCIO(hGXT, e)) == -1)
        {
            if (!(theClass = AddType_GCIO(hGXT, e, -1)))
            {
                CPLError(CE_Failure, CPLE_AppDefined,
                         "Geoconcept export syntax error at line %ld.\n",
                         GetGCCurrentLinenum_GCIO(hGXT));
                CSLDestroy(vl);
                CSLDestroy(kv);
                DestroyHeader_GCIO(&(GetGCMeta_GCIO(hGXT)));
                return NULL;
            }
        }
        else
        {
            theClass = _getType_GCIO(hGXT, whereClass);
        }
        CSLDestroy(vl);
        /* Subclass=char* */
        vl = CSLTokenizeString2(kv[1], "=", mask);
        if (!vl || CSLCount(vl) != 2)
        {
            CPLError(CE_Failure, CPLE_AppDefined,
                     "Expected: Subclass=char*\n"
                     "Found: [%s]\n"
                     "Geoconcept export syntax error at line %ld.\n",
                     kv[1], GetGCCurrentLinenum_GCIO(hGXT));
            CSLDestroy(vl);
            CSLDestroy(kv);
            DestroyHeader_GCIO(&(GetGCMeta_GCIO(hGXT)));
            return NULL;
        }
        for (i = 0; i < 2; i++)
            CPLDebug("GEOCONCEPT", "%d vl[%d]=[%s]\n", __LINE__, i, vl[i]);
        p = vl[0];
        if (!EQUAL(p, "Subclass"))
        {
            CPLError(CE_Failure, CPLE_AppDefined,
                     "Expected: 'Subclass'\n"
                     "Found: [%s]\n"
                     "Geoconcept export syntax error at line %ld.\n",
                     p, GetGCCurrentLinenum_GCIO(hGXT));
            CSLDestroy(vl);
            CSLDestroy(kv);
            DestroyHeader_GCIO(&(GetGCMeta_GCIO(hGXT)));
            return NULL;
        }
        p = vl[1];
        e = p;
        if (_findSubTypeByName_GCIO(theClass, e) != -1)
        {
            CPLError(CE_Failure, CPLE_AppDefined,
                     "[%s] already exists.\n"
                     "Geoconcept export syntax error at line %ld.\n",
                     e, GetGCCurrentLinenum_GCIO(hGXT));
            CSLDestroy(vl);
            CSLDestroy(kv);
            DestroyHeader_GCIO(&(GetGCMeta_GCIO(hGXT)));
            return NULL;
        }
        nm = CPLStrdup(e);
        CSLDestroy(vl);
        /* Kind=1..4 */
        vl = CSLTokenizeString2(kv[2], "=", mask);
        if (!vl || CSLCount(vl) != 2)
        {
            CPLError(CE_Failure, CPLE_AppDefined,
                     "Expected: Kind=1..4\n"
                     "Found: [%s]"
                     "Geoconcept export syntax error at line %ld.\n",
                     kv[2], GetGCCurrentLinenum_GCIO(hGXT));
            CPLFree(nm);
            CSLDestroy(vl);
            CSLDestroy(kv);
            DestroyHeader_GCIO(&(GetGCMeta_GCIO(hGXT)));
            return NULL;
        }
        for (i = 0; i < 2; i++)
            CPLDebug("GEOCONCEPT", "%d vl[%d]=[%s]\n", __LINE__, i, vl[i]);
        p = vl[0];
        if (!EQUAL(p, "Kind"))
        {
            CPLError(CE_Failure, CPLE_AppDefined,
                     "Expected: 'Kind'\n"
                     "Found: [%s]\n"
                     "Geoconcept export syntax error at line %ld.\n",
                     p, GetGCCurrentLinenum_GCIO(hGXT));
            CPLFree(nm);
            CSLDestroy(vl);
            CSLDestroy(kv);
            DestroyHeader_GCIO(&(GetGCMeta_GCIO(hGXT)));
            return NULL;
        }
        p = vl[1];
        e = p;
        while (isdigit((unsigned char)*p))
            p++;
        *p = '\0';
        if (sscanf(e, "%d", &v) != 1 || v < 1 || v > 4)
        {
            CPLError(CE_Failure, CPLE_AppDefined,
                     "Invalid Geometry type.\n"
                     "Geoconcept export syntax error at line %ld.\n",
                     GetGCCurrentLinenum_GCIO(hGXT));
            CPLFree(nm);
            CSLDestroy(vl);
            CSLDestroy(kv);
            DestroyHeader_GCIO(&(GetGCMeta_GCIO(hGXT)));
            return NULL;
        }
        CSLDestroy(vl);
        if (!(theSubType = AddSubType_GCIO(hGXT, GetTypeName_GCIO(theClass), nm,
                                           -1, (GCTypeKind)v, vUnknown3D_GCIO)))
        {
            CPLFree(nm);
            CSLDestroy(kv);
            DestroyHeader_GCIO(&(GetGCMeta_GCIO(hGXT)));
            CPLError(CE_Failure, CPLE_AppDefined,
                     "Geoconcept export syntax error at line %ld.\n",
                     GetGCCurrentLinenum_GCIO(hGXT));
            return NULL;
        }
        CPLFree(nm);
        /* Fields=(Private#)?char*(\s((Private#)?char*))* */
        vl = CSLTokenizeString2(kv[3], "=", mask);
        if (!vl || CSLCount(vl) != 2)
        {
            CPLError(
                CE_Failure, CPLE_AppDefined,
                "Expected: Fields=(Private#)?char*(\\t((Private#)?char*))*\n"
                "Found: [%s]\n"
                "Geoconcept export syntax error at line %ld.\n",
                kv[3], GetGCCurrentLinenum_GCIO(hGXT));
            CSLDestroy(vl);
            CSLDestroy(kv);
            DestroyHeader_GCIO(&(GetGCMeta_GCIO(hGXT)));
            return NULL;
        }
        for (i = 0; i < 2; i++)
            CPLDebug("GEOCONCEPT", "%d vl[%d]=[%s]\n", __LINE__, i, vl[i]);
        CSLDestroy(kv);
        p = vl[0];
        if (!EQUAL(p, "Fields"))
        {
            CPLError(CE_Failure, CPLE_AppDefined,
                     "Expected: 'Fields'\n"
                     "Found: [%s]\n"
                     "Geoconcept export syntax error at line %ld.\n",
                     p, GetGCCurrentLinenum_GCIO(hGXT));
            CSLDestroy(vl);
            DestroyHeader_GCIO(&(GetGCMeta_GCIO(hGXT)));
            return NULL;
        }
        fl = CSLTokenizeString2(vl[1], "\t", mask);
        if (!fl || (n = CSLCount(fl)) == 0)
        {
            CPLError(CE_Failure, CPLE_AppDefined,
                     "Expected: (Private#)?char*(\\t((Private#)?char*))*\n"
                     "Found: [%s]\n"
                     "Geoconcept export syntax error at line %ld.\n",
                     vl[1], GetGCCurrentLinenum_GCIO(hGXT));
            CSLDestroy(fl);
            CSLDestroy(vl);
            DestroyHeader_GCIO(&(GetGCMeta_GCIO(hGXT)));
            return NULL;
        }
        CSLDestroy(vl);
        for (i = 0; i < n; i++)
        {
            p = fl[i];
            CPLDebug("GEOCONCEPT", "%d fl[%d]=[%s]\n", __LINE__, i, p);
            e = p;
            if (EQUALN(p, kPrivate_GCIO, strlen(kPrivate_GCIO)))
            {
                p += strlen(kPrivate_GCIO);
                e = p - 1;
                *e = '@';
            }
            nm = CPLStrdup(e);
            CPLDebug("GEOCONCEPT", "%d e=[%s]\n", __LINE__, e);
            theField =
                AddSubTypeField_GCIO(hGXT, GetTypeName_GCIO(theClass),
                                     GetSubTypeName_GCIO(theSubType), -1, nm,
                                     -1, vUnknownItemType_GCIO, NULL, NULL);
            if (theField == NULL)
            {
                CPLError(CE_Failure, CPLE_AppDefined,
                         "Geoconcept export syntax error at line %ld.\n",
                         GetGCCurrentLinenum_GCIO(hGXT));
                CPLFree(nm);
                CSLDestroy(fl);
                DestroyHeader_GCIO(&(GetGCMeta_GCIO(hGXT)));
                return NULL;
            }
            CPLDebug("GEOCONCEPT", "%d %s.%s@%s-1 added\n", __LINE__,
                     GetTypeName_GCIO(theClass),
                     GetSubTypeName_GCIO(theSubType), nm);
            CPLFree(nm);
        }
        CSLDestroy(fl);
        SetSubTypeHeaderWritten_GCIO(theSubType, TRUE);
        return Meta;
    }
    /* end of definitions ... */ /* FIXME */
    if ((strstr(GetGCCache_GCIO(hGXT), k3DOBJECTMONO_GCIO)) ||
        (strstr(GetGCCache_GCIO(hGXT), k3DOBJECT_GCIO)) ||
        (strstr(GetGCCache_GCIO(hGXT), k2DOBJECT_GCIO)))
        /* next reading will be in cache ! */
        SetGCStatus_GCIO(hGXT, vMemoStatus_GCIO);
    /* unknown pragma ... */
    return Meta;
} /* _parsePragma_GCIO */

/* -------------------------------------------------------------------- */
static OGRGeometryH GCIOAPI_CALL _buildOGRGeometry_GCIO(
    GCExportFileMetadata *Meta, GCSubType *theSubType, int i,
    const char **papszFields, int nbtp, GCDim d, OGREnvelope *bbox)
{
    OGRGeometryH g;
    OGRwkbGeometryType gt;
    double x, y, z;
    int ip, np, buildGeom;

    g = NULL;
    if (bbox == NULL)
    {
        buildGeom = TRUE;
    }
    else
    {
        buildGeom = FALSE;
    }
    z = 0.0;
    switch (GetSubTypeKind_GCIO(theSubType))
    {
        case vPoint_GCIO:
        case vText_GCIO: /* FIXME : treat as point ? */
            gt = wkbPoint;
            break;
        case vLine_GCIO:
            gt = wkbLineString;
            break;
        case vPoly_GCIO:
            gt = wkbMultiPolygon;
            break;
        default:
            gt = wkbUnknown;
            break;
    }
    if (buildGeom)
    {
        if (!(g = OGR_G_CreateGeometry(gt)))
        {
            return NULL;
        }
        OGR_G_SetCoordinateDimension(g,
                                     d == v3D_GCIO || d == v3DM_GCIO ? 3 : 2);
    }
    if (!GetMetaSRS_GCIO(Meta) && GetMetaSysCoord_GCIO(Meta))
    {
        SetMetaSRS_GCIO(Meta, SysCoord2OGRSpatialReference_GCSRS(
                                  GetMetaSysCoord_GCIO(Meta)));
    }
    if (buildGeom)
    {
        if (GetMetaSRS_GCIO(Meta))
        {
            OGR_G_AssignSpatialReference(g, GetMetaSRS_GCIO(Meta));
        }
    }

    /*
     * General structure :
     * X<>Y[<>Z]{<>More Graphics}
     */

    if (gt == wkbPoint)
    {
        if (i + 2 + ((d == v3D_GCIO || d == v3DM_GCIO) ? 1 : 0) > nbtp)
        {
            OGR_G_DestroyGeometry(g);
            return NULL;
        }
        /*
         * More Graphics :
         * Angle
         * Angle in tenth of degrees (counterclockwise) of the symbol
         * displayed to represent the ponctual entity or angle of the text
         * entity NOT IMPLEMENTED
         */
        x = CPLAtof(papszFields[i]);
        i++;
        y = CPLAtof(papszFields[i]);
        i++;
        if (d == v3D_GCIO || d == v3DM_GCIO)
        {
            z = CPLAtof(papszFields[i]);
            i++;
        }
        if (buildGeom)
        {
            if (OGR_G_GetCoordinateDimension(g) == 3)
                OGR_G_AddPoint(g, x, y, z);
            else
                OGR_G_AddPoint_2D(g, x, y);
        }
        else
        {
            MergeOGREnvelope_GCIO(bbox, x, y);
        }
        return g;
    }

    if (gt == wkbLineString)
    {
        if (i + 2 * (2 + ((d == v3D_GCIO || d == v3DM_GCIO) ? 1 : 0)) + 1 >
            nbtp)
        {
            OGR_G_DestroyGeometry(g);
            return NULL;
        }

        /*
         * More Graphics :
         * XP<>YP[<>ZP]Nr points=k[<>X<>Y[<>Z]]k...
         */
        x = CPLAtof(papszFields[i]);
        i++;
        y = CPLAtof(papszFields[i]);
        i++;
        if (d == v3D_GCIO || d == v3DM_GCIO)
        {
            z = CPLAtof(papszFields[i]);
            i++;
        }
        if (buildGeom)
        {
            if (OGR_G_GetCoordinateDimension(g) == 3)
                OGR_G_AddPoint(g, x, y, z);
            else
                OGR_G_AddPoint_2D(g, x, y);
        }
        else
        {
            MergeOGREnvelope_GCIO(bbox, x, y);
        }
        /* skip XP<>YP[<>ZP] : the last point is in k[<>X<>Y[<>Z]]k */
        i++;
        i++;
        if (d == v3D_GCIO || d == v3DM_GCIO)
        {
            i++;
        }
        np = atoi(papszFields[i]);
        i++;
        for (ip = 1; ip <= np; ip++)
        {
            if (i + 2 + ((d == v3D_GCIO || d == v3DM_GCIO) ? 1 : 0) > nbtp)
            {
                OGR_G_DestroyGeometry(g);
                return NULL;
            }
            x = CPLAtof(papszFields[i]);
            i++;
            y = CPLAtof(papszFields[i]);
            i++;
            if (d == v3D_GCIO || d == v3DM_GCIO)
            {
                z = CPLAtof(papszFields[i]);
                i++;
            }
            if (buildGeom)
            {
                if (OGR_G_GetCoordinateDimension(g) == 3)
                    OGR_G_AddPoint(g, x, y, z);
                else
                    OGR_G_AddPoint_2D(g, x, y);
            }
            else
            {
                MergeOGREnvelope_GCIO(bbox, x, y);
            }
        }
        return g;
    }

    if (gt == wkbMultiPolygon)
    {
        /*
         * More Graphics :
         * {Single Polygon{<>NrPolys=j[<>X<>Y[<>Z]<>Single Polygon]j}}
         * with Single Polygon :
         * Nr points=k[<>X<>Y[<>Z]]k...
         */
        CPLList *Lpo, *e;
        OGRGeometryH outer, ring;
        int npo, ipo, ilpo;

        Lpo = e = NULL;
        outer = ring = NULL;
        if (i + 2 + ((d == v3D_GCIO || d == v3DM_GCIO) ? 1 : 0) + 1 > nbtp)
        {
            goto onError;
        }
        if (buildGeom)
        {
            if (!(outer = OGR_G_CreateGeometry(wkbPolygon)))
            {
                goto onError;
            }
            OGR_G_SetCoordinateDimension(outer,
                                         OGR_G_GetCoordinateDimension(g));
            if (GetMetaSRS_GCIO(Meta))
            {
                OGR_G_AssignSpatialReference(outer, GetMetaSRS_GCIO(Meta));
            }
            if (!(ring = OGR_G_CreateGeometry(wkbLinearRing)))
            {
                OGR_G_DestroyGeometry(outer);
                goto onError;
            }
            OGR_G_SetCoordinateDimension(ring, OGR_G_GetCoordinateDimension(g));
            if (GetMetaSRS_GCIO(Meta))
            {
                OGR_G_AssignSpatialReference(ring, GetMetaSRS_GCIO(Meta));
            }
        }
        x = CPLAtof(papszFields[i]);
        i++;
        y = CPLAtof(papszFields[i]);
        i++;
        if (d == v3D_GCIO || d == v3DM_GCIO)
        {
            z = CPLAtof(papszFields[i]);
            i++;
        }
        if (buildGeom)
        {
            if (OGR_G_GetCoordinateDimension(g) == 3)
                OGR_G_AddPoint(ring, x, y, z);
            else
                OGR_G_AddPoint_2D(ring, x, y);
        }
        else
        {
            MergeOGREnvelope_GCIO(bbox, x, y);
        }
        np = atoi(papszFields[i]);
        i++;
        if (np < 0 ||
            (np > 0 &&
             i + (GIntBig)(2 + ((d == v3D_GCIO || d == v3DM_GCIO) ? 1 : 0)) *
                         np >
                 nbtp))
        {
            OGR_G_DestroyGeometry(outer);
            OGR_G_DestroyGeometry(ring);
            goto onError;
        }
        for (ip = 1; ip <= np; ip++)
        {
            x = CPLAtof(papszFields[i]);
            i++;
            y = CPLAtof(papszFields[i]);
            i++;
            if (d == v3D_GCIO || d == v3DM_GCIO)
            {
                z = CPLAtof(papszFields[i]);
                i++;
            }
            if (buildGeom)
            {
                if (OGR_G_GetCoordinateDimension(g) == 3)
                    OGR_G_AddPoint(ring, x, y, z);
                else
                    OGR_G_AddPoint_2D(ring, x, y);
            }
            else
            {
                MergeOGREnvelope_GCIO(bbox, x, y);
            }
        }
        if (buildGeom)
        {
            OGR_G_AddGeometryDirectly(outer, ring);
            if ((Lpo = CPLListAppend(Lpo, outer)) == NULL)
            {
                CPLError(CE_Failure, CPLE_OutOfMemory,
                         "failed to add a polygon to subtype '%s.%s'.\n",
                         GetTypeName_GCIO(GetSubTypeType_GCIO(theSubType)),
                         GetSubTypeName_GCIO(theSubType));
                OGR_G_DestroyGeometry(outer);
                goto onError;
            }
        }
        /* additional ring : either holes, or islands */
        if (i < nbtp - 1)
        {
            npo = atoi(papszFields[i]);
            i++;
            for (ipo = 1; ipo <= npo; ipo++)
            {
                if (i + (2 + ((d == v3D_GCIO || d == v3DM_GCIO) ? 1 : 0) + 1) >
                    nbtp)
                {
                    goto onError;
                }
                if (buildGeom)
                {
                    if (!(ring = OGR_G_CreateGeometry(wkbLinearRing)))
                    {
                        goto onError;
                    }
                    OGR_G_SetCoordinateDimension(
                        ring, OGR_G_GetCoordinateDimension(g));
                    if (GetMetaSRS_GCIO(Meta))
                    {
                        OGR_G_AssignSpatialReference(ring,
                                                     GetMetaSRS_GCIO(Meta));
                    }
                }
                x = CPLAtof(papszFields[i]);
                i++;
                y = CPLAtof(papszFields[i]);
                i++;
                if (d == v3D_GCIO || d == v3DM_GCIO)
                {
                    z = CPLAtof(papszFields[i]);
                    i++;
                }
                if (buildGeom)
                {
                    if (OGR_G_GetCoordinateDimension(g) == 3)
                        OGR_G_AddPoint(ring, x, y, z);
                    else
                        OGR_G_AddPoint_2D(ring, x, y);
                }
                else
                {
                    MergeOGREnvelope_GCIO(bbox, x, y);
                }
                np = atoi(papszFields[i]);
                i++;
                for (ip = 1; ip <= np; ip++)
                {
                    if (i + (2 + ((d == v3D_GCIO || d == v3DM_GCIO) ? 1 : 0)) >
                        nbtp)
                    {
                        OGR_G_DestroyGeometry(ring);
                        goto onError;
                    }
                    x = CPLAtof(papszFields[i]);
                    i++;
                    y = CPLAtof(papszFields[i]);
                    i++;
                    if (d == v3D_GCIO || d == v3DM_GCIO)
                    {
                        z = CPLAtof(papszFields[i]);
                        i++;
                    }
                    if (buildGeom)
                    {
                        if (OGR_G_GetCoordinateDimension(g) == 3)
                            OGR_G_AddPoint(ring, x, y, z);
                        else
                            OGR_G_AddPoint_2D(ring, x, y);
                    }
                    else
                    {
                        MergeOGREnvelope_GCIO(bbox, x, y);
                    }
                }
                if (buildGeom)
                {
                    /* is the ring a hole or another polygon ? */
                    const int nListCount = CPLListCount(Lpo);
                    for (ilpo = 0; ilpo < nListCount; ilpo++)
                    {
                        if ((e = CPLListGet(Lpo, ilpo)))
                        {
                            if ((outer = (OGRGeometryH)CPLListGetData(e)))
                            {
                                OGRGeometryH hPolyRing =
                                    OGR_G_CreateGeometry(wkbPolygon);
                                int bRes;
                                if (OGR_G_AddGeometryDirectly(
                                        hPolyRing, ring) != OGRERR_NONE)
                                {
                                    OGR_G_DestroyGeometry(hPolyRing);
                                    goto onError;
                                }
                                bRes = OGR_G_Contains(outer, hPolyRing);
                                OGR_G_RemoveGeometry(hPolyRing, 0, FALSE);
                                OGR_G_DestroyGeometry(hPolyRing);
                                if (bRes)
                                {
                                    OGR_G_AddGeometryDirectly(outer, ring);
                                    ring = NULL;
                                    break;
                                }
                            }
                        }
                    }
                    if (ring)
                    {
                        /* new polygon */
                        if (!(outer = OGR_G_CreateGeometry(wkbPolygon)))
                        {
                            OGR_G_DestroyGeometry(ring);
                            goto onError;
                        }
                        OGR_G_SetCoordinateDimension(
                            outer, OGR_G_GetCoordinateDimension(g));
                        if (GetMetaSRS_GCIO(Meta))
                        {
                            OGR_G_AssignSpatialReference(outer,
                                                         GetMetaSRS_GCIO(Meta));
                        }
                        OGR_G_AddGeometryDirectly(outer, ring);
                        if ((Lpo = CPLListAppend(Lpo, outer)) == NULL)
                        {
                            CPLError(
                                CE_Failure, CPLE_OutOfMemory,
                                "failed to add a polygon to subtype '%s.%s'.\n",
                                GetTypeName_GCIO(
                                    GetSubTypeType_GCIO(theSubType)),
                                GetSubTypeName_GCIO(theSubType));
                            OGR_G_DestroyGeometry(outer);
                            goto onError;
                        }
                    }
                }
            }
        }
        if (Lpo)
        {
            if ((npo = CPLListCount(Lpo)) > 0)
            {
                for (ipo = 0; ipo < npo; ipo++)
                {
                    if ((e = CPLListGet(Lpo, ipo)))
                    {
                        if ((outer = (OGRGeometryH)CPLListGetData(e)))
                        {
                            OGR_G_AddGeometryDirectly(g, outer);
                        }
                    }
                }
            }
            CPLListDestroy(Lpo);
        }
        return g;

    onError:
        if (Lpo)
        {
            if ((npo = CPLListCount(Lpo)) > 0)
            {
                for (ipo = 0; ipo < npo; ipo++)
                {
                    if ((e = CPLListGet(Lpo, ipo)))
                    {
                        if ((outer = (OGRGeometryH)CPLListGetData(e)))
                        {
                            OGR_G_DestroyGeometry(outer);
                        }
                    }
                }
            }
            CPLListDestroy(Lpo);
        }
        if (g)
            OGR_G_DestroyGeometry(g);
    }

    return NULL;
} /* _buildOGRGeometry_GCIO */

/* -------------------------------------------------------------------- */
static OGRFeatureH GCIOAPI_CALL _buildOGRFeature_GCIO(GCExportFileH *H,
                                                      GCSubType **theSubType,
                                                      GCDim d,
                                                      OGREnvelope *bbox)
{
    GCExportFileMetadata *Meta;
    char **papszFields, delim[2] = {0}, tdst[kItemSize_GCIO];
    int whereClass, whereSubType, i, j, nbstf, nbf, nbtf, buildFeature;
    GCType *theClass;
    GCField *theField;
    OGRFieldDefnH fld;
    OGRFeatureDefnH fd;
    OGRFeatureH f;
    OGRGeometryH g;
    int bTokenBehavior = CSLT_ALLOWEMPTYTOKENS;

    fd = NULL;
    f = NULL;
    Meta = GetGCMeta_GCIO(H);
    delim[0] = GetMetaDelimiter_GCIO(Meta);
    delim[1] = '\0';
    if (d == vUnknown3D_GCIO)
        d = v2D_GCIO;
    if (bbox == NULL)
    {
        buildFeature = TRUE;
    }
    else
    {
        buildFeature = FALSE;
    }
    CPLDebug("GEOCONCEPT", "buildFeature is %s",
             buildFeature ? "true" : "false");

    /* due to the order of fields, we know how to proceed : */
    /* A.- Line syntax :                                    */
    /* Object internal identifier <delimiter>               */
    /* Class <delimiter>                                    */
    /* Subclass <delimiter>                                 */
    /* Name <delimiter>                                     */
    /* NbFields <delimiter>                                 */
    /* User's field <delimiter> [0..N]                      */
    /* Graphics                                             */
    /* Graphics depends on the Kind of the                  */
    /* B.- Algorithm :                                      */
    /*  1.- Get Class                                       */
    /*  2.- Get Subclass                                    */
    /*  3.- Find feature in schema                          */
    /*  4.- Get Kind                                        */
    /*  5.- Get NbFields                                    */
    /*  6.- Get Geometry as 5+NbFields field                */
    /*  7.- Parse Geometry and build OGRGeometryH           */
    /*  8.- Compute extent and update file extent           */
    /*   9.- increment number of features                   */
    /* FIXME : add index when reading feature to            */
    /*         allow direct access !                        */
    if (GetMetaQuotedText_GCIO(Meta))
    {
        bTokenBehavior |= CSLT_HONOURSTRINGS;
    }
    CPLDebug("GEOCONCEPT", "Cache=[%s] delim=[%s]", GetGCCache_GCIO(H), delim);
    if (!(papszFields =
              CSLTokenizeString2(GetGCCache_GCIO(H), delim, bTokenBehavior)))
    {
        CPLError(CE_Failure, CPLE_AppDefined,
                 "Line %ld, Geoconcept line syntax is wrong.\n",
                 GetGCCurrentLinenum_GCIO(H));
        return NULL;
    }
    if ((nbtf = CSLCount(papszFields)) <= 5)
    {
        CSLDestroy(papszFields);
        CPLError(
            CE_Failure, CPLE_AppDefined,
            "Line %ld, Missing fields (at least 5 are expected, %d found).\n",
            GetGCCurrentLinenum_GCIO(H), nbtf);
        return NULL;
    }
    /* Class */
    if ((whereClass = _findTypeByName_GCIO(H, papszFields[1])) == -1)
    {
        if (CPLListCount(GetMetaTypes_GCIO(Meta)) == 0)
        {
            CPLError(CE_Failure, CPLE_AppDefined,
                     "Line %ld, %s%s pragma expected from type definition "
                     "before objects dump.",
                     GetGCCurrentLinenum_GCIO(H), kPragma_GCIO,
                     kMetadataFIELDS_GCIO);
        }
        else
        {
            CPLError(CE_Failure, CPLE_AppDefined,
                     "Line %ld, Unknown type '%s'.\n",
                     GetGCCurrentLinenum_GCIO(H), papszFields[1]);
        }
        CSLDestroy(papszFields);
        return NULL;
    }
    theClass = _getType_GCIO(H, whereClass);
    if (theClass == NULL)
    {
        CSLDestroy(papszFields);
        return NULL;
    }
    if (*theSubType)
    {
        /* reading ... */
        if (!EQUAL(GetTypeName_GCIO(GetSubTypeType_GCIO(*theSubType)),
                   GetTypeName_GCIO(theClass)))
        {
            CSLDestroy(papszFields);
            return NULL;
        }
    }
    /* Subclass */
    if ((whereSubType = _findSubTypeByName_GCIO(theClass, papszFields[2])) ==
        -1)
    {
        CPLError(CE_Failure, CPLE_AppDefined,
                 "Line %ld, Unknown subtype found '%s' for type '%s'.\n",
                 GetGCCurrentLinenum_GCIO(H), papszFields[2], papszFields[1]);
        CSLDestroy(papszFields);
        return NULL;
    }
    if (*theSubType)
    {
        GCSubType *psSubType = _getSubType_GCIO(theClass, whereSubType);
        if (psSubType == NULL || !EQUAL(GetSubTypeName_GCIO(psSubType),
                                        GetSubTypeName_GCIO(*theSubType)))
        {
            CSLDestroy(papszFields);
            return NULL;
        }
    }
    else
    {
        *theSubType = _getSubType_GCIO(theClass, whereSubType);
        CPLAssert(*theSubType != NULL);
    }
    snprintf(tdst, kItemSize_GCIO - 1, "%s.%s", GetTypeName_GCIO(theClass),
             GetSubTypeName_GCIO(*theSubType));
    tdst[kItemSize_GCIO - 1] = '\0';
    /* Name */
    if (_findFieldByName_GCIO(GetSubTypeFields_GCIO(*theSubType), kName_GCIO) ==
        -1)
    {
        CPLError(CE_Failure, CPLE_AppDefined,
                 "Line %ld, missing mandatory field %s for type '%s'.\n",
                 GetGCCurrentLinenum_GCIO(H), kName_GCIO, tdst);
        CSLDestroy(papszFields);
        return NULL;
    }
    nbf = 4;
    /* NbFields */
    nbstf = GetSubTypeNbFields_GCIO(*theSubType);
    if (nbstf == -1)
    {
        /* figure out how many user's attributes we've got : */
        i = 1 + nbf;
        nbstf = 0;
        while ((theField = GetSubTypeField_GCIO(*theSubType, i)))
        {
            if (IsPrivateField_GCIO(theField))
            {
                break;
            };  // FIXME: could count geometry private fields ...
            nbstf++;
            SetSubTypeNbFields_GCIO(*theSubType, nbstf);
            i++;
        }
    }
    if (nbtf < 1 + nbf + nbstf + 1)
    {
        CPLError(CE_Failure, CPLE_AppDefined,
                 "Line %ld, Total number of fields differs with type "
                 "definition '%s' (%d found, at least %d expected).\n",
                 GetGCCurrentLinenum_GCIO(H), tdst, nbtf, 1 + nbf + nbstf + 1);
        CSLDestroy(papszFields);
        return NULL;
    }
    i = atoi(papszFields[nbf]);
    if (i != nbstf)
    {
        CPLError(CE_Failure, CPLE_AppDefined,
                 "Line %ld, Number of user's fields differs with type "
                 "definition '%s' (%d found, %d expected).\n",
                 GetGCCurrentLinenum_GCIO(H), tdst, i, nbstf);
        CSLDestroy(papszFields);
        return NULL;
    }
    /*
     * the Subclass has no definition : let's build one
     */
    if (!(fd = GetSubTypeFeatureDefn_GCIO(*theSubType)))
    {
        if (!(fd = OGR_FD_Create(tdst)))
        {
            CSLDestroy(papszFields);
            return NULL;
        }

        switch (GetSubTypeKind_GCIO(*theSubType))
        {
            case vPoint_GCIO:
            case vText_GCIO: /* FIXME : treat as point ? */
                switch (d)
                {
                    case v3D_GCIO:
                    case v3DM_GCIO:
                        OGR_FD_SetGeomType(fd, wkbPoint25D);
                        break;
                    default:
                        OGR_FD_SetGeomType(fd, wkbPoint);
                        break;
                }
                break;
            case vLine_GCIO:
                switch (d)
                {
                    case v3D_GCIO:
                    case v3DM_GCIO:
                        OGR_FD_SetGeomType(fd, wkbLineString25D);
                        break;
                    default:
                        OGR_FD_SetGeomType(fd, wkbLineString);
                        break;
                }
                break;
            case vPoly_GCIO:
                switch (d)
                {
                    case v3D_GCIO:
                    case v3DM_GCIO:
                        OGR_FD_SetGeomType(fd, wkbMultiPolygon25D);
                        break;
                    default:
                        OGR_FD_SetGeomType(fd, wkbMultiPolygon);
                        break;
                }
                break;
            default:
                CSLDestroy(papszFields);
                OGR_FD_Destroy(fd);
                CPLError(CE_Failure, CPLE_NotSupported,
                         "Unknown Geoconcept type for '%s'.\n", tdst);
                return NULL;
        }
        for (i = 1 + nbf; i < 1 + nbf + nbstf; i++)
        {
            theField = GetSubTypeField_GCIO(*theSubType, i);
            if (!(fld = OGR_Fld_Create(GetFieldName_GCIO(theField),
                                       OFTString))) /* FIXME */
            {
                CSLDestroy(papszFields);
                OGR_FD_Destroy(fd);
                return NULL;
            }
            OGR_FD_AddFieldDefn(fd, fld);
            OGR_Fld_Destroy(fld);
            fld = NULL;
        }
    }

    /*
     * the Subclass is just under parsing via _parseObject_GCIO
     */
    if (buildFeature)
    {
        if (!(f = OGR_F_Create(fd)))
        {
            if (!GetSubTypeFeatureDefn_GCIO(*theSubType))
                OGR_FD_Destroy(fd);
            CSLDestroy(papszFields);
            return NULL;
        }
        OGR_F_SetFID(f, atol(papszFields[0])); /* FID */
        if (OGR_F_GetFID(f) == OGRNullFID)
        {
            OGR_F_SetFID(f, GetGCCurrentLinenum_GCIO(H));
        }
        for (i = 1 + nbf, j = 0; i < 1 + nbf + nbstf; i++, j++)
        {
            /*theField= GetSubTypeField_GCIO(*theSubType,i); */ /* FIXME?*/
            if (papszFields[i][0] == '\0')
                OGR_F_UnsetField(f, j);
            else
                OGR_F_SetFieldString(f, j, papszFields[i]);
        }
    }
    else
    {
        i = 1 + nbf + nbstf;
    }
    CPLDebug("GEOCONCEPT", "%d %d/%d/%d/%d\n", __LINE__, i, nbf, nbstf, nbtf);
    if (!(g = _buildOGRGeometry_GCIO(
              Meta, *theSubType, i, (const char **)papszFields, nbtf, d, bbox)))
    {
        /*
         * the Subclass is under reading via ReadNextFeature_GCIO
         */
        if (buildFeature)
        {
            CSLDestroy(papszFields);
            if (f)
                OGR_F_Destroy(f);
            return NULL;
        }
    }
    if (buildFeature)
    {
        if (OGR_F_SetGeometryDirectly(f, g) != OGRERR_NONE)
        {
            CSLDestroy(papszFields);
            if (f)
                OGR_F_Destroy(f);
            return NULL;
        }
    }
    CSLDestroy(papszFields);

    /* Assign definition : */
    if (!GetSubTypeFeatureDefn_GCIO(*theSubType))
    {
        SetSubTypeFeatureDefn_GCIO(*theSubType, fd);
        OGR_FD_Reference(fd);
    }

    /*
     * returns either the built object for ReadNextFeature_GCIO or
     *                the feature definition for _parseObject_GCIO :
     */
    return buildFeature ? f : (OGRFeatureH)fd;
} /* _buildOGRFeature_GCIO */

/* -------------------------------------------------------------------- */
static GCExportFileMetadata GCIOAPI_CALL1(*) _parseObject_GCIO(GCExportFileH *H)
{
    GCExportFileMetadata *Meta;
    GCSubType *theSubType;
    GCDim d;
    vsi_l_offset coff;
    OGREnvelope bbox, *pszBbox = &bbox;

    Meta = GetGCMeta_GCIO(H);

    InitOGREnvelope_GCIO(pszBbox);

    d = vUnknown3D_GCIO;
    theSubType = NULL;
    coff = (vsi_l_offset)EOF;
reloop:
    /* TODO: Switch to C++ casts below. */
    if ((enum _tIO_MetadataType_GCIO)GetGCWhatIs_GCIO(H) == vComType_GCIO)
    {
        if (_get_GCIO(H) == (vsi_l_offset)EOF)
            return Meta;
        goto reloop;
    }
    /* analyze the line according to schema : */
    /* coverity[mixed_enums] */ /* FIXME ? */
    if ((enum _tIO_MetadataType_GCIO)GetGCWhatIs_GCIO(H) == vPragma_GCIO)
    {
        if (strstr(GetGCCache_GCIO(H), k3DOBJECTMONO_GCIO))
        {
            d = v3DM_GCIO;
            coff = GetGCCurrentOffset_GCIO(H);
        }
        else if (strstr(GetGCCache_GCIO(H), k3DOBJECT_GCIO))
        {
            d = v3D_GCIO;
            coff = GetGCCurrentOffset_GCIO(H);
        }
        else if (strstr(GetGCCache_GCIO(H), k2DOBJECT_GCIO))
        {
            d = v2D_GCIO;
            coff = GetGCCurrentOffset_GCIO(H);
        }
        else
        {
            /* not an object pragma ... */
            SetGCStatus_GCIO(H, vMemoStatus_GCIO);
            return Meta;
        }
        if (_get_GCIO(H) == (vsi_l_offset)EOF)
            return Meta;
        goto reloop;
    }
    if (coff == (vsi_l_offset)EOF)
        coff = GetGCCurrentOffset_GCIO(H);
    if (!_buildOGRFeature_GCIO(H, &theSubType, d, pszBbox))
    {
        return NULL;
    }
    if (GetSubTypeBOF_GCIO(theSubType) == (vsi_l_offset)EOF)
    {
        SetSubTypeBOF_GCIO(theSubType,
                           coff); /* Begin Of Features for the Class.Subclass */
        SetSubTypeBOFLinenum_GCIO(theSubType, GetGCCurrentLinenum_GCIO(H));
        CPLDebug("GEOCONCEPT", "Feature Type [%s] starts at #%ld, line %ld\n",
                 GetSubTypeName_GCIO(theSubType),
                 (long)GetSubTypeBOF_GCIO(theSubType),
                 GetSubTypeBOFLinenum_GCIO(theSubType));
    }
    SetSubTypeNbFeatures_GCIO(theSubType,
                              GetSubTypeNbFeatures_GCIO(theSubType) + 1L);
    SetGCNbObjects_GCIO(H, GetGCNbObjects_GCIO(H) + 1L);
    /* update bbox of both feature and file */
    SetExtentULAbscissa_GCIO(GetMetaExtent_GCIO(Meta), pszBbox->MinX);
    SetExtentULOrdinate_GCIO(GetMetaExtent_GCIO(Meta), pszBbox->MaxY);
    SetExtentLRAbscissa_GCIO(GetMetaExtent_GCIO(Meta), pszBbox->MaxX);
    SetExtentLROrdinate_GCIO(GetMetaExtent_GCIO(Meta), pszBbox->MinY);
    if (!GetSubTypeExtent_GCIO(theSubType))
    {
        SetSubTypeExtent_GCIO(
            theSubType,
            CreateExtent_GCIO(HUGE_VAL, HUGE_VAL, -HUGE_VAL, -HUGE_VAL));
    }
    SetExtentULAbscissa_GCIO(GetSubTypeExtent_GCIO(theSubType), pszBbox->MinX);
    SetExtentULOrdinate_GCIO(GetSubTypeExtent_GCIO(theSubType), pszBbox->MaxY);
    SetExtentLRAbscissa_GCIO(GetSubTypeExtent_GCIO(theSubType), pszBbox->MaxX);
    SetExtentLROrdinate_GCIO(GetSubTypeExtent_GCIO(theSubType), pszBbox->MinY);
    if (d == vUnknown3D_GCIO &&
        GetSubTypeDim_GCIO(theSubType) == vUnknown3D_GCIO)
    {
        /* FIXME ? */
#ifdef notdef
        switch (d)
        {
            case v3DM_GCIO:
            case v3D_GCIO:
                SetSubTypeDim_GCIO(theSubType, v3D_GCIO);
                break;
            default:
#endif
                SetSubTypeDim_GCIO(theSubType, v2D_GCIO);
#ifdef notdef
                break;
        }
#endif
    }
    /*d= vUnknown3D_GCIO;*/
    theSubType = NULL;

    return Meta;
} /* _parseObject_GCIO */

/* -------------------------------------------------------------------- */
GCExportFileH GCIOAPI_CALL1(*)
    Open_GCIO(const char *pszGeoconceptFile, const char *ext, /* gxt if NULL */
              const char *mode, const char *gctPath /* if !NULL, mode=w */
    )
{
    GCExportFileH *hGXT;

    CPLDebug(
        "GEOCONCEPT", "filename '%s' - '%s' - mode '%s' - config path '%s'",
        pszGeoconceptFile, ext ? ext : "gxt", mode, gctPath ? gctPath : "???");

    if (!(hGXT = _Create_GCIO(pszGeoconceptFile, ext, mode)))
    {
        return NULL;
    }

    if (GetGCMode_GCIO(hGXT) == vUpdateAccess_GCIO)
    {
        VSILFILE *h;

        /* file must exists ... */
        if (!(h = VSIFOpenL(CPLFormFilename(GetGCPath_GCIO(hGXT),
                                            GetGCBasename_GCIO(hGXT),
                                            GetGCExtension_GCIO(hGXT)),
                            "rt")))
        {
            _Destroy_GCIO(&hGXT, FALSE);
            return NULL;
        }
        VSIFCloseL(h);
    }

    SetGCHandle_GCIO(hGXT, VSIFOpenL(CPLFormFilename(GetGCPath_GCIO(hGXT),
                                                     GetGCBasename_GCIO(hGXT),
                                                     GetGCExtension_GCIO(hGXT)),
                                     mode));
    if (!GetGCHandle_GCIO(hGXT))
    {
        _Destroy_GCIO(&hGXT, FALSE);
        return NULL;
    }

    if (GetGCMode_GCIO(hGXT) == vWriteAccess_GCIO)
    {
        if (gctPath != NULL)
        {
            /* load Metadata */
            GCExportFileH *hGCT;

            hGCT = _Create_GCIO(gctPath, "gct", "-");
            SetGCHandle_GCIO(
                hGCT, VSIFOpenL(CPLFormFilename(GetGCPath_GCIO(hGCT),
                                                GetGCBasename_GCIO(hGCT),
                                                GetGCExtension_GCIO(hGCT)),
                                "r"));
            if (!GetGCHandle_GCIO(hGCT))
            {
                CPLError(CE_Failure, CPLE_NotSupported,
                         "opening a Geoconcept config file '%s' failed.\n",
                         gctPath);
                _Destroy_GCIO(&hGCT, FALSE);
                _Destroy_GCIO(&hGXT, TRUE);
                return NULL;
            }
            if (ReadConfig_GCIO(hGCT) == NULL)
            {
                _Destroy_GCIO(&hGCT, FALSE);
                _Destroy_GCIO(&hGXT, TRUE);
                return NULL;
            }
            SetGCMeta_GCIO(hGXT, GetGCMeta_GCIO(hGCT));
            SetGCMeta_GCIO(hGCT, NULL);
            _Destroy_GCIO(&hGCT, FALSE);
            SetMetaExtent_GCIO(
                GetGCMeta_GCIO(hGXT),
                CreateExtent_GCIO(HUGE_VAL, HUGE_VAL, -HUGE_VAL, -HUGE_VAL));
        }
    }
    else
    {
        /* read basic Metadata from export    */
        /* read and parse the export file ... */
        if (ReadHeader_GCIO(hGXT) == NULL)
        {
            _Destroy_GCIO(&hGXT, FALSE);
            return NULL;
        }
    }
    /* check schema */
    if (!_checkSchema_GCIO(hGXT))
    {
        _Destroy_GCIO(&hGXT,
                      GetGCMode_GCIO(hGXT) == vWriteAccess_GCIO ? TRUE : FALSE);
        return NULL;
    }

    CPLDebug("GEOCONCEPT",
             "Export =(\n"
             "  Path : %s\n"
             "  Basename : %s\n"
             "  Extension : %s\n"
             "  Mode : %s\n"
             "  Status : %s\n"
             ")",
             GetGCPath_GCIO(hGXT), GetGCBasename_GCIO(hGXT),
             GetGCExtension_GCIO(hGXT),
             GCAccessMode2str_GCIO(GetGCMode_GCIO(hGXT)),
             GCAccessStatus2str_GCIO(GetGCStatus_GCIO(hGXT)));

    return hGXT;
} /* Open_GCIO */

/* -------------------------------------------------------------------- */
void GCIOAPI_CALL Close_GCIO(GCExportFileH **hGXT)
{
    _Destroy_GCIO(hGXT, FALSE);
} /* Close_GCIO */

/* -------------------------------------------------------------------- */
GCExportFileH GCIOAPI_CALL1(*)
    Rewind_GCIO(GCExportFileH *hGXT, GCSubType *theSubType)
{
    if (hGXT)
    {
        if (GetGCHandle_GCIO(hGXT))
        {
            if (!theSubType)
            {
                VSIRewindL(GetGCHandle_GCIO(hGXT));
                SetGCCurrentLinenum_GCIO(hGXT, 0L);
            }
            else
            {
                if (VSIFSeekL(GetGCHandle_GCIO(hGXT),
                              GetSubTypeBOF_GCIO(theSubType), SEEK_SET) == 0)
                    SetGCCurrentLinenum_GCIO(
                        hGXT, GetSubTypeBOFLinenum_GCIO(theSubType));
            }
            SetGCStatus_GCIO(hGXT, vNoStatus_GCIO);
        }
    }
    return hGXT;
} /* Rewind_GCIO */

/* -------------------------------------------------------------------- */
GCExportFileH GCIOAPI_CALL1(*) FFlush_GCIO(GCExportFileH *hGXT)
{
    if (hGXT)
    {
        if (GetGCHandle_GCIO(hGXT))
        {
            VSIFFlushL(GetGCHandle_GCIO(hGXT));
        }
    }
    return hGXT;
} /* FFlush_GCIO */

#ifdef unused
/* -------------------------------------------------------------------- */
GCAccessMode GCIOAPI_CALL GetMode_GCIO(GCExportFileH *hGXT)
{
    return hGXT ? GetGCMode_GCIO(hGXT) : vUnknownAccessMode_GCIO;
} /* GetMode_GCIO */
#endif

/* -------------------------------------------------------------------- */
GCSubType GCIOAPI_CALL1(*)
    AddSubType_GCIO(GCExportFileH *H, const char *typName,
                    const char *subtypName, long id, GCTypeKind knd, GCDim sys)
{
    int whereClass;
    GCType *theClass;
    GCSubType *theSubType;
    CPLList *L;

    if ((whereClass = _findTypeByName_GCIO(H, typName)) == -1)
    {
        CPLError(CE_Failure, CPLE_AppDefined,
                 "failed to find a Geoconcept type for '%s.%s#%ld'.\n", typName,
                 subtypName, id);
        return NULL;
    }

    theClass = _getType_GCIO(H, whereClass);
    if (theClass == NULL)
        return NULL;
    if (GetTypeSubtypes_GCIO(theClass))
    {
        if (_findSubTypeByName_GCIO(theClass, subtypName) != -1)
        {
            CPLError(CE_Failure, CPLE_AppDefined,
                     "Geoconcept subtype '%s.%s#%ld' already exists.\n",
                     typName, subtypName, id);
            return NULL;
        }
    }

    if (!(theSubType = _CreateSubType_GCIO(subtypName, id, knd, sys)))
    {
        return NULL;
    }
    if ((L = CPLListAppend(GetTypeSubtypes_GCIO(theClass), theSubType)) == NULL)
    {
        _DestroySubType_GCIO(&theSubType);
        CPLError(CE_Failure, CPLE_OutOfMemory,
                 "failed to add a Geoconcept subtype for '%s.%s#%ld'.\n",
                 typName, subtypName, id);
        return NULL;
    }
    SetTypeSubtypes_GCIO(theClass, L);
    SetSubTypeType_GCIO(theSubType, theClass);

    CPLDebug("GEOCONCEPT", "SubType '%s.%s#%ld' added.", typName, subtypName,
             id);

    return theSubType;
} /* AddSubType_GCIO */

/* -------------------------------------------------------------------- */
static void GCIOAPI_CALL _dropSubType_GCIO(GCSubType **theSubType)
{
    GCType *theClass;
    int where;

    if (!theSubType || !(*theSubType))
        return;
    if (!(theClass = GetSubTypeType_GCIO(*theSubType)))
        return;
    if ((where = _findSubTypeByName_GCIO(
             theClass, GetSubTypeName_GCIO(*theSubType))) == -1)
    {
        CPLError(CE_Failure, CPLE_AppDefined, "subtype %s does not exist.\n",
                 GetSubTypeName_GCIO(*theSubType)
                     ? GetSubTypeName_GCIO(*theSubType)
                     : "''");
        return;
    }
    CPLListRemove(GetTypeSubtypes_GCIO(theClass), where);
    _DestroySubType_GCIO(theSubType);

    return;
} /* _dropSubType_GCIO */

/* -------------------------------------------------------------------- */
GCType GCIOAPI_CALL1(*)
    AddType_GCIO(GCExportFileH *H, const char *typName, long id)
{
    GCType *theClass;
    CPLList *L;

    if (_findTypeByName_GCIO(H, typName) != -1)
    {
        CPLError(CE_Failure, CPLE_AppDefined, "type %s already exists.\n",
                 typName);
        return NULL;
    }

    if (!(theClass = _CreateType_GCIO(typName, id)))
    {
        return NULL;
    }
    if ((L = CPLListAppend(GetMetaTypes_GCIO(GetGCMeta_GCIO(H)), theClass)) ==
        NULL)
    {
        _DestroyType_GCIO(&theClass);
        CPLError(CE_Failure, CPLE_OutOfMemory,
                 "failed to add a Geoconcept type for '%s#%ld'.\n", typName,
                 id);
        return NULL;
    }
    SetMetaTypes_GCIO(GetGCMeta_GCIO(H), L);

    CPLDebug("GEOCONCEPT", "Type '%s#%ld' added.", typName, id);

    return theClass;
} /* AddType_GCIO */

/* -------------------------------------------------------------------- */
static void GCIOAPI_CALL _dropType_GCIO(GCExportFileH *H, GCType **theClass)
{
    int where;

    if (!theClass || !(*theClass))
        return;
    if ((where = _findTypeByName_GCIO(H, GetTypeName_GCIO(*theClass))) == -1)
    {
        CPLError(CE_Failure, CPLE_AppDefined, "type %s does not exist.\n",
                 GetTypeName_GCIO(*theClass) ? GetTypeName_GCIO(*theClass)
                                             : "''");
        return;
    }
    CPLListRemove(GetMetaTypes_GCIO(GetGCMeta_GCIO(H)), where);
    _DestroyType_GCIO(theClass);

    return;
} /* _dropType_GCIO */

/* -------------------------------------------------------------------- */
GCField GCIOAPI_CALL1(*)
    AddTypeField_GCIO(GCExportFileH *H, const char *typName,
                      int where, /* -1 : in the end */
                      const char *name, long id, GCTypeKind knd,
                      const char *extra, const char *enums)
{
    int whereClass;
    GCType *theClass;
    GCField *theField;
    CPLList *L;
    const char *normName;

    if ((whereClass = _findTypeByName_GCIO(H, typName)) == -1)
    {
        CPLError(CE_Failure, CPLE_AppDefined,
                 "failed to find a Geoconcept type for '%s@%s#%ld'.\n", typName,
                 name, id);
        return NULL;
    }
    theClass = _getType_GCIO(H, whereClass);
    if (theClass == NULL)
    {
        return NULL;
    }
    normName = _NormalizeFieldName_GCIO(name);
    if (_findFieldByName_GCIO(GetTypeFields_GCIO(theClass), normName) != -1)
    {
        CPLError(CE_Failure, CPLE_AppDefined,
                 "field '%s@%s#%ld' already exists.\n", typName, name, id);
        return NULL;
    }

    if (!(theField = _CreateField_GCIO(normName, id, knd, extra, enums)))
    {
        return NULL;
    }
    if (where == -1 ||
        (where == 0 && CPLListCount(GetTypeFields_GCIO(theClass)) == 0))
    {
        L = CPLListAppend(GetTypeFields_GCIO(theClass), theField);
    }
    else
    {
        L = CPLListInsert(GetTypeFields_GCIO(theClass), theField, where);
    }
    if (!L)
    {
        _DestroyField_GCIO(&theField);
        CPLError(CE_Failure, CPLE_OutOfMemory,
                 "failed to add a Geoconcept field for '%s@%s#%ld'.\n", typName,
                 name, id);
        return NULL;
    }
    SetTypeFields_GCIO(theClass, L);

    CPLDebug("GEOCONCEPT", "Field '%s@%s#%ld' added.", typName, name, id);

    return theField;
} /* AddTypeField_GCIO */

/* -------------------------------------------------------------------- */
GCField GCIOAPI_CALL1(*)
    AddSubTypeField_GCIO(GCExportFileH *H, const char *typName,
                         const char *subtypName,
                         int where, /* -1 : in the end */
                         const char *name, long id, GCTypeKind knd,
                         const char *extra, const char *enums)
{
    int whereClass, whereSubType;
    GCType *theClass;
    GCSubType *theSubType;
    GCField *theField;
    CPLList *L;
    const char *normName;

    if ((whereClass = _findTypeByName_GCIO(H, typName)) == -1)
    {
        CPLError(CE_Failure, CPLE_AppDefined,
                 "failed to find a Geoconcept type for '%s.%s@%s#%ld'.\n",
                 typName, subtypName, name, id);
        return NULL;
    }
    theClass = _getType_GCIO(H, whereClass);

    if ((whereSubType = _findSubTypeByName_GCIO(theClass, subtypName)) == -1)
    {
        CPLError(CE_Failure, CPLE_AppDefined,
                 "failed to find a Geoconcept subtype for '%s.%s@%s#%ld'.\n",
                 typName, subtypName, name, id);
        return NULL;
    }
    theSubType = _getSubType_GCIO(theClass, whereSubType);
    if (theSubType == NULL)
    {
        return NULL;
    }

    normName = _NormalizeFieldName_GCIO(name);
    if (_findFieldByName_GCIO(GetSubTypeFields_GCIO(theSubType), normName) !=
        -1)
    {
        CPLError(CE_Failure, CPLE_AppDefined,
                 "field '%s.%s@%s#%ld' already exists.\n", typName, subtypName,
                 name, id);
        return NULL;
    }

    if (!(theField = _CreateField_GCIO(normName, id, knd, extra, enums)))
    {
        return NULL;
    }
    if (where == -1 ||
        (where == 0 && CPLListCount(GetSubTypeFields_GCIO(theSubType)) == 0))
    {
        L = CPLListAppend(GetSubTypeFields_GCIO(theSubType), theField);
    }
    else
    {
        L = CPLListInsert(GetSubTypeFields_GCIO(theSubType), theField, where);
    }
    if (!L)
    {
        _DestroyField_GCIO(&theField);
        CPLError(CE_Failure, CPLE_OutOfMemory,
                 "failed to add a Geoconcept field for '%s.%s@%s#%ld'.\n",
                 typName, subtypName, name, id);
        return NULL;
    }
    SetSubTypeFields_GCIO(theSubType, L);

    CPLDebug("GEOCONCEPT", "Field '%s.%s@%s#%ld' added.", typName, subtypName,
             name, id);

    return theField;
} /* AddSubTypeField_GCIO */

/* -------------------------------------------------------------------- */
static OGRErr GCIOAPI_CALL _readConfigField_GCIO(GCExportFileH *hGCT)
{
    int bEOF;
    char *k;
    char n[kItemSize_GCIO] = {0};
    char x[kExtraSize_GCIO] = {0};
    char e[kExtraSize_GCIO] = {0};
    const char *normName;
    long id;
    GCTypeKind knd;
    CPLList *L;
    GCField *theField;

    bEOF = 0;
    n[0] = '\0';
    x[0] = '\0';
    e[0] = '\0';
    id = UNDEFINEDID_GCIO;
    knd = vUnknownItemType_GCIO;
    theField = NULL;
    while (_get_GCIO(hGCT) != (vsi_l_offset)EOF)
    {
        if ((enum _tIO_MetadataType_GCIO)GetGCWhatIs_GCIO(hGCT) ==
            vComType_GCIO)
        {
            continue;
        }
        /* coverity[mixed_enums] */ /* FIXME ? */
        if ((enum _tIO_MetadataType_GCIO)GetGCWhatIs_GCIO(hGCT) == vHeader_GCIO)
        {
            if (strstr(GetGCCache_GCIO(hGCT), kConfigEndField_GCIO) != NULL)
            {
                bEOF = 1;
                if (n[0] == '\0' || id == UNDEFINEDID_GCIO ||
                    knd == vUnknownItemType_GCIO)
                {
                    CPLError(CE_Failure, CPLE_AppDefined, "Missing %s.\n",
                             n[0] == '\0'             ? "Name"
                             : id == UNDEFINEDID_GCIO ? "ID"
                                                      : "Kind");
                    goto onError;
                }
                normName = _NormalizeFieldName_GCIO(n);
                if (_findFieldByName_GCIO(
                        GetMetaFields_GCIO(GetGCMeta_GCIO(hGCT)), normName) !=
                    -1)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "field '@%s#%ld' already exists.\n", n, id);
                    goto onError;
                }
                if (!(theField = _CreateField_GCIO(normName, id, knd, x, e)))
                {
                    goto onError;
                }
                if ((L = CPLListAppend(GetMetaFields_GCIO(GetGCMeta_GCIO(hGCT)),
                                       theField)) == NULL)
                {
                    _DestroyField_GCIO(&theField);
                    CPLError(
                        CE_Failure, CPLE_OutOfMemory,
                        "failed to add a Geoconcept field for '@%s#%ld'.\n", n,
                        id);
                    goto onError;
                }
                SetMetaFields_GCIO(GetGCMeta_GCIO(hGCT), L);
                break;
            }

            if ((k = strstr(GetGCCache_GCIO(hGCT), kConfigName_GCIO)) != NULL)
            {
                if (n[0] != '\0')
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Duplicate Name found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                if ((k = _getHeaderValue_GCIO(k)) == NULL)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Invalid Name found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                strncpy(n, k, kItemSize_GCIO - 1);
                n[kItemSize_GCIO - 1] = '\0';
            }
            else if ((k = strstr(GetGCCache_GCIO(hGCT), kConfigID_GCIO)) !=
                     NULL)
            {
                if (id != UNDEFINEDID_GCIO)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Duplicate ID found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                if ((k = _getHeaderValue_GCIO(k)) == NULL)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Invalid ID found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                if (sscanf(k, "%ld", &id) != 1)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Invalid ID found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
            }
            else if ((k = strstr(GetGCCache_GCIO(hGCT), kConfigKind_GCIO)) !=
                     NULL)
            {
                if (knd != vUnknownItemType_GCIO)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Duplicate Kind found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                if ((k = _getHeaderValue_GCIO(k)) == NULL)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Invalid Kind found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                if ((knd = str2GCTypeKind_GCIO(k)) == vUnknownItemType_GCIO)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Not supported Kind found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
            }
            else if ((k = strstr(GetGCCache_GCIO(hGCT), kConfigExtra_GCIO)) !=
                         NULL ||
                     (k = strstr(GetGCCache_GCIO(hGCT),
                                 kConfigExtraText_GCIO)) != NULL)
            {
                if (x[0] != '\0')
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Duplicate Extra information found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                if ((k = _getHeaderValue_GCIO(k)) == NULL)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Invalid Extra information found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                strncpy(x, k, kExtraSize_GCIO - 1);
                x[kExtraSize_GCIO - 1] = '\0';
            }
            else if ((k = strstr(GetGCCache_GCIO(hGCT), kConfigList_GCIO)) !=
                     NULL)
            {
                if (e[0] != '\0')
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Duplicate List found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                if ((k = _getHeaderValue_GCIO(k)) == NULL)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Invalid List found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                strncpy(e, k, kExtraSize_GCIO - 1);
                e[kExtraSize_GCIO - 1] = '\0';
            }
            else
            { /* Skipping ... */
            }

            continue;
        }
    onError:
        return OGRERR_CORRUPT_DATA;
    }
    if (bEOF != 1)
    {
        CPLError(CE_Failure, CPLE_AppDefined,
                 "Geoconcept config field end block %s not found.\n",
                 kConfigEndField_GCIO);
        return OGRERR_CORRUPT_DATA;
    }

    return OGRERR_NONE;
} /* _readConfigField_GCIO */

/* -------------------------------------------------------------------- */
static OGRErr GCIOAPI_CALL _readConfigFieldType_GCIO(GCExportFileH *hGCT,
                                                     GCType *theClass)
{
    int bEOF;
    char *k;
    char n[kItemSize_GCIO] = {0};
    char x[kExtraSize_GCIO] = {0};
    char e[kExtraSize_GCIO] = {0};
    long id;
    GCTypeKind knd;

    bEOF = 0;
    n[0] = '\0';
    x[0] = '\0';
    e[0] = '\0';
    id = UNDEFINEDID_GCIO;
    knd = vUnknownItemType_GCIO;
    while (_get_GCIO(hGCT) != (vsi_l_offset)EOF)
    {
        /* TODO: Switch to C++ casts below. */
        if ((enum _tIO_MetadataType_GCIO)GetGCWhatIs_GCIO(hGCT) ==
            vComType_GCIO)
        {
            continue;
        }
        /* coverity[mixed_enums] */ /* FIXME ? */
        if ((enum _tIO_MetadataType_GCIO)GetGCWhatIs_GCIO(hGCT) == vHeader_GCIO)
        {
            if (strstr(GetGCCache_GCIO(hGCT), kConfigEndField_GCIO) != NULL)
            {
                bEOF = 1;
                if (n[0] == '\0' || id == UNDEFINEDID_GCIO ||
                    knd == vUnknownItemType_GCIO)
                {
                    CPLError(CE_Failure, CPLE_AppDefined, "Missing %s.\n",
                             n[0] == '\0'             ? "Name"
                             : id == UNDEFINEDID_GCIO ? "ID"
                                                      : "Kind");
                    goto onError;
                }
                if (AddTypeField_GCIO(hGCT, GetTypeName_GCIO(theClass), -1, n,
                                      id, knd, x, e) == NULL)
                {
                    goto onError;
                }
                break;
            }

            if ((k = strstr(GetGCCache_GCIO(hGCT), kConfigName_GCIO)) != NULL)
            {
                if (n[0] != '\0')
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Duplicate Name found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                if ((k = _getHeaderValue_GCIO(k)) == NULL)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Invalid Name found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                strncpy(n, k, kItemSize_GCIO - 1);
                n[kItemSize_GCIO - 1] = '\0';
            }
            else if ((k = strstr(GetGCCache_GCIO(hGCT), kConfigID_GCIO)) !=
                     NULL)
            {
                if (id != UNDEFINEDID_GCIO)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Duplicate ID found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                if ((k = _getHeaderValue_GCIO(k)) == NULL)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Invalid ID found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                if (sscanf(k, "%ld", &id) != 1)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Invalid ID found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
            }
            else if ((k = strstr(GetGCCache_GCIO(hGCT), kConfigKind_GCIO)) !=
                     NULL)
            {
                if (knd != vUnknownItemType_GCIO)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Duplicate Kind found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                if ((k = _getHeaderValue_GCIO(k)) == NULL)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Invalid Kind found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                if ((knd = str2GCTypeKind_GCIO(k)) == vUnknownItemType_GCIO)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Not supported Kind found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
            }
            else if ((k = strstr(GetGCCache_GCIO(hGCT), kConfigExtra_GCIO)) !=
                         NULL ||
                     (k = strstr(GetGCCache_GCIO(hGCT),
                                 kConfigExtraText_GCIO)) != NULL)
            {
                if (x[0] != '\0')
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Duplicate Extra information found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                if ((k = _getHeaderValue_GCIO(k)) == NULL)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Invalid extra information found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                strncpy(x, k, kExtraSize_GCIO - 1);
                x[kExtraSize_GCIO - 1] = '\0';
            }
            else if ((k = strstr(GetGCCache_GCIO(hGCT), kConfigList_GCIO)) !=
                     NULL)
            {
                if (e[0] != '\0')
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Duplicate List found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                if ((k = _getHeaderValue_GCIO(k)) == NULL)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Invalid List found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                strncpy(e, k, kExtraSize_GCIO - 1);
                e[kExtraSize_GCIO - 1] = '\0';
            }
            else
            { /* Skipping ... */
            }

            continue;
        }
    onError:
        return OGRERR_CORRUPT_DATA;
    }
    if (bEOF != 1)
    {
        CPLError(CE_Failure, CPLE_AppDefined,
                 "Geoconcept config field end block %s not found.\n",
                 kConfigEndField_GCIO);
        return OGRERR_CORRUPT_DATA;
    }

    return OGRERR_NONE;
} /* _readConfigFieldType_GCIO */

/* -------------------------------------------------------------------- */
static OGRErr GCIOAPI_CALL _readConfigFieldSubType_GCIO(GCExportFileH *hGCT,
                                                        GCType *theClass,
                                                        GCSubType *theSubType)
{
    int bEOF;
    char *k;
    char n[kItemSize_GCIO] = {0};
    char x[kExtraSize_GCIO] = {0};
    char e[kExtraSize_GCIO] = {0};
    long id;
    GCTypeKind knd;

    bEOF = 0;
    n[0] = '\0';
    x[0] = '\0';
    e[0] = '\0';
    id = UNDEFINEDID_GCIO;
    knd = vUnknownItemType_GCIO;
    while (_get_GCIO(hGCT) != (vsi_l_offset)EOF)
    {
        if ((enum _tIO_MetadataType_GCIO)GetGCWhatIs_GCIO(hGCT) ==
            vComType_GCIO)
        {
            continue;
        }
        /* coverity[mixed_enums] */ /* FIXME ? */
        if ((enum _tIO_MetadataType_GCIO)GetGCWhatIs_GCIO(hGCT) == vHeader_GCIO)
        {
            if (strstr(GetGCCache_GCIO(hGCT), kConfigEndField_GCIO) != NULL)
            {
                bEOF = 1;
                if (n[0] == '\0' || id == UNDEFINEDID_GCIO ||
                    knd == vUnknownItemType_GCIO)
                {
                    CPLError(CE_Failure, CPLE_AppDefined, "Missing %s.\n",
                             n[0] == '\0'             ? "Name"
                             : id == UNDEFINEDID_GCIO ? "ID"
                                                      : "Kind");
                    goto onError;
                }
                if (AddSubTypeField_GCIO(hGCT, GetTypeName_GCIO(theClass),
                                         GetSubTypeName_GCIO(theSubType), -1, n,
                                         id, knd, x, e) == NULL)
                {
                    goto onError;
                }
                break;
            }

            if ((k = strstr(GetGCCache_GCIO(hGCT), kConfigName_GCIO)) != NULL)
            {
                if (n[0] != '\0')
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Duplicate Name found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                if ((k = _getHeaderValue_GCIO(k)) == NULL)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Invalid Name found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                strncpy(n, k, kItemSize_GCIO - 1);
                n[kItemSize_GCIO - 1] = '\0';
            }
            else if ((k = strstr(GetGCCache_GCIO(hGCT), kConfigID_GCIO)) !=
                     NULL)
            {
                if (id != UNDEFINEDID_GCIO)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Duplicate ID found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                if ((k = _getHeaderValue_GCIO(k)) == NULL)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Invalid ID found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                if (sscanf(k, "%ld", &id) != 1)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Invalid ID found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
            }
            else if ((k = strstr(GetGCCache_GCIO(hGCT), kConfigKind_GCIO)) !=
                     NULL)
            {
                if (knd != vUnknownItemType_GCIO)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Duplicate Kind found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                if ((k = _getHeaderValue_GCIO(k)) == NULL)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Invalid Kind found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                if ((knd = str2GCTypeKind_GCIO(k)) == vUnknownItemType_GCIO)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Not supported Kind found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
            }
            else if ((k = strstr(GetGCCache_GCIO(hGCT), kConfigExtra_GCIO)) !=
                         NULL ||
                     (k = strstr(GetGCCache_GCIO(hGCT),
                                 kConfigExtraText_GCIO)) != NULL)
            {
                if (x[0] != '\0')
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Duplicate Extra information found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                if ((k = _getHeaderValue_GCIO(k)) == NULL)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Invalid extra information found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                strncpy(x, k, kExtraSize_GCIO - 1);
                x[kExtraSize_GCIO - 1] = '\0';
            }
            else if ((k = strstr(GetGCCache_GCIO(hGCT), kConfigList_GCIO)) !=
                     NULL)
            {
                if (e[0] != '\0')
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Duplicate List found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                if ((k = _getHeaderValue_GCIO(k)) == NULL)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Invalid List found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                strncpy(e, k, kExtraSize_GCIO - 1);
                e[kExtraSize_GCIO - 1] = '\0';
            }
            else
            { /* Skipping ... */
            }

            continue;
        }
    onError:
        return OGRERR_CORRUPT_DATA;
    }
    if (bEOF != 1)
    {
        CPLError(CE_Failure, CPLE_AppDefined,
                 "Geoconcept config field end block %s not found.\n",
                 kConfigEndField_GCIO);
        return OGRERR_CORRUPT_DATA;
    }

    return OGRERR_NONE;
} /* _readConfigFieldSubType_GCIO */

/* -------------------------------------------------------------------- */
static OGRErr GCIOAPI_CALL _readConfigSubTypeType_GCIO(GCExportFileH *hGCT,
                                                       GCType *theClass)
{
    int eost, res;
    char *k;
    char n[kItemSize_GCIO] = {0};
    long id;
    GCTypeKind knd;
    GCDim sys;
    GCSubType *theSubType;

    eost = 0;
    n[0] = '\0';
    id = UNDEFINEDID_GCIO;
    knd = vUnknownItemType_GCIO;
    sys = v2D_GCIO;
    theSubType = NULL;
    while (_get_GCIO(hGCT) != (vsi_l_offset)EOF)
    {
        if ((enum _tIO_MetadataType_GCIO)GetGCWhatIs_GCIO(hGCT) ==
            vComType_GCIO)
        {
            continue;
        }
        /* coverity[mixed_enums] */ /* FIXME ? */
        if ((enum _tIO_MetadataType_GCIO)GetGCWhatIs_GCIO(hGCT) == vHeader_GCIO)
        {
            if (strstr(GetGCCache_GCIO(hGCT), kConfigEndSubType_GCIO) != NULL)
            {
                eost = 1;
                break;
            }
            res = OGRERR_NONE;
            if ((k = strstr(GetGCCache_GCIO(hGCT), kConfigName_GCIO)) != NULL)
            {
                if (n[0] != '\0')
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Duplicate Name found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                if ((k = _getHeaderValue_GCIO(k)) == NULL)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Invalid Name found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                strncpy(n, k, kItemSize_GCIO - 1);
                n[kItemSize_GCIO - 1] = '\0';
            }
            else if ((k = strstr(GetGCCache_GCIO(hGCT), kConfigID_GCIO)) !=
                     NULL)
            {
                if (id != UNDEFINEDID_GCIO)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Duplicate ID found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                if ((k = _getHeaderValue_GCIO(k)) == NULL)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Invalid ID found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                if (sscanf(k, "%ld", &id) != 1)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Invalid ID found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
            }
            else if ((k = strstr(GetGCCache_GCIO(hGCT), kConfigKind_GCIO)) !=
                     NULL)
            {
                if (knd != vUnknownItemType_GCIO)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Duplicate Kind found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                if ((k = _getHeaderValue_GCIO(k)) == NULL)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Invalid Kind found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                if ((knd = str2GCTypeKind_GCIO(k)) == vUnknownItemType_GCIO)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Not supported Kind found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
            }
            else if ((k = strstr(GetGCCache_GCIO(hGCT), kConfig3D_GCIO)) !=
                     NULL)
            {
                if (sys != vUnknown3D_GCIO && sys != v2D_GCIO)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Duplicate Dimension found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                if ((k = _getHeaderValue_GCIO(k)) == NULL)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Invalid Dimension found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                if ((sys = str2GCDim(k)) == vUnknown3D_GCIO)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Not supported Dimension found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
            }
            else if (strstr(GetGCCache_GCIO(hGCT), kConfigBeginField_GCIO) !=
                     NULL)
            {
                if (theSubType == NULL)
                {
                    if (n[0] == '\0' || id == UNDEFINEDID_GCIO ||
                        knd == vUnknownItemType_GCIO || sys == vUnknown3D_GCIO)
                    {
                        CPLError(CE_Failure, CPLE_AppDefined, "Missing %s.\n",
                                 n[0] == '\0'                   ? "Name"
                                 : id == UNDEFINEDID_GCIO       ? "ID"
                                 : knd == vUnknownItemType_GCIO ? "Kind"
                                                                : "3D");
                        goto onError;
                    }
                    if ((theSubType =
                             AddSubType_GCIO(hGCT, GetTypeName_GCIO(theClass),
                                             n, id, knd, sys)) == NULL)
                    {
                        goto onError;
                    }
                }
                res = _readConfigFieldSubType_GCIO(hGCT, theClass, theSubType);
            }
            else
            { /* Skipping ... */
                res = OGRERR_NONE;
            }
            if (res != OGRERR_NONE)
            {
                goto onError;
            }
            continue;
        }
    onError:
        if (theSubType)
        {
            _dropSubType_GCIO(&theSubType);
        }
        return OGRERR_CORRUPT_DATA;
    }
    if (eost != 1)
    {
        if (theSubType)
        {
            _dropSubType_GCIO(&theSubType);
        }
        CPLError(CE_Failure, CPLE_AppDefined,
                 "Geoconcept config subtype end block %s not found.\n",
                 kConfigEndSubType_GCIO);
        return OGRERR_CORRUPT_DATA;
    }

    return OGRERR_NONE;
} /* _readConfigSubTypeType_GCIO */

/* -------------------------------------------------------------------- */
static OGRErr GCIOAPI_CALL _readConfigType_GCIO(GCExportFileH *hGCT)
{
    int eot, res;
    char *k;
    char n[kItemSize_GCIO] = {0};
    long id;
    GCType *theClass;

    eot = 0;
    n[0] = '\0';
    id = UNDEFINEDID_GCIO;
    theClass = NULL;
    while (_get_GCIO(hGCT) != (vsi_l_offset)EOF)
    {
        if ((enum _tIO_MetadataType_GCIO)GetGCWhatIs_GCIO(hGCT) ==
            vComType_GCIO)
        {
            continue;
        }
        /* coverity[mixed_enums] */ /* FIXME ? */
        if ((enum _tIO_MetadataType_GCIO)GetGCWhatIs_GCIO(hGCT) == vHeader_GCIO)
        {
            if (strstr(GetGCCache_GCIO(hGCT), kConfigEndType_GCIO) != NULL)
            {
                eot = 1;
                break;
            }
            res = OGRERR_NONE;
            if ((k = strstr(GetGCCache_GCIO(hGCT), kConfigName_GCIO)) != NULL)
            {
                if (n[0] != '\0')
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Duplicate Name found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                if ((k = _getHeaderValue_GCIO(k)) == NULL)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Invalid Name found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                strncpy(n, k, kItemSize_GCIO - 1);
                n[kItemSize_GCIO - 1] = '\0';
            }
            else if ((k = strstr(GetGCCache_GCIO(hGCT), kConfigID_GCIO)) !=
                     NULL)
            {
                if (id != UNDEFINEDID_GCIO)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Duplicate ID found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                if ((k = _getHeaderValue_GCIO(k)) == NULL)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Invalid ID found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                if (sscanf(k, "%ld", &id) != 1)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Not supported ID found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
            }
            else if (strstr(GetGCCache_GCIO(hGCT), kConfigBeginSubType_GCIO) !=
                     NULL)
            {
                if (theClass == NULL)
                {
                    if (n[0] == '\0' || id == UNDEFINEDID_GCIO ||
                        (theClass = AddType_GCIO(hGCT, n, id)) == NULL)
                    {
                        goto onError;
                    }
                }
                res = _readConfigSubTypeType_GCIO(hGCT, theClass);
            }
            else if (strstr(GetGCCache_GCIO(hGCT), kConfigBeginField_GCIO) !=
                     NULL)
            {
                if (theClass == NULL)
                {
                    if (n[0] == '\0' || id == UNDEFINEDID_GCIO ||
                        (theClass = AddType_GCIO(hGCT, n, id)) == NULL)
                    {
                        goto onError;
                    }
                }
                res = _readConfigFieldType_GCIO(hGCT, theClass);
            }
            else
            { /* Skipping ... */
                res = OGRERR_NONE;
            }
            if (res != OGRERR_NONE)
            {
                goto onError;
            }
            continue;
        }
    onError:
        if (theClass)
        {
            _dropType_GCIO(hGCT, &theClass);
        }
        return OGRERR_CORRUPT_DATA;
    }
    if (eot != 1)
    {
        if (theClass)
        {
            _dropType_GCIO(hGCT, &theClass);
        }
        CPLError(CE_Failure, CPLE_AppDefined,
                 "Geoconcept config type end block %s not found.\n",
                 kConfigEndType_GCIO);
        return OGRERR_CORRUPT_DATA;
    }

    return OGRERR_NONE;
} /* _readConfigType_GCIO */

/* -------------------------------------------------------------------- */
static OGRErr GCIOAPI_CALL _readConfigMap_GCIO(GCExportFileH *hGCT)
{
    int eom;
    char *k;

    eom = 0;
    while (_get_GCIO(hGCT) != (vsi_l_offset)EOF)
    {
        if ((enum _tIO_MetadataType_GCIO)GetGCWhatIs_GCIO(hGCT) ==
            vComType_GCIO)
        {
            continue;
        }
        /* coverity[mixed_enums] */ /* FIXME ? */
        if ((enum _tIO_MetadataType_GCIO)GetGCWhatIs_GCIO(hGCT) == vHeader_GCIO)
        {
            if (strstr(GetGCCache_GCIO(hGCT), kConfigEndMap_GCIO) != NULL)
            {
                eom = 1;
                break;
            }

            if ((k = strstr(GetGCCache_GCIO(hGCT), kConfigUnit_GCIO)) != NULL &&
                strstr(GetGCCache_GCIO(hGCT), kConfigZUnit_GCIO) == NULL)
            {
                if ((k = _getHeaderValue_GCIO(k)) == NULL)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Invalid Unit found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                SetMetaUnit_GCIO(GetGCMeta_GCIO(hGCT), k);
            }
            else if ((k = strstr(GetGCCache_GCIO(hGCT),
                                 kConfigPrecision_GCIO)) != NULL &&
                     strstr(GetGCCache_GCIO(hGCT), kConfigZPrecision_GCIO) ==
                         NULL)
            {
                double r;
                if ((k = _getHeaderValue_GCIO(k)) == NULL)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Invalid Precision found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                if (CPLsscanf(k, "%lf", &r) != 1)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "Invalid Precision found : '%s'.\n",
                             GetGCCache_GCIO(hGCT));
                    goto onError;
                }
                SetMetaResolution_GCIO(GetGCMeta_GCIO(hGCT), r);
            }
            else
            { /* Skipping ... */
            }

            continue;
        }
    onError:
        return OGRERR_CORRUPT_DATA;
    }
    if (eom != 1)
    {
        CPLError(CE_Failure, CPLE_AppDefined,
                 "Geoconcept config map end block %s not found.\n",
                 kConfigEndMap_GCIO);
        return OGRERR_CORRUPT_DATA;
    }

    return OGRERR_NONE;
} /* _readConfigMap_GCIO */

/* -------------------------------------------------------------------- */
GCExportFileMetadata GCIOAPI_CALL1(*) ReadConfig_GCIO(GCExportFileH *hGCT)
{
    int eoc, res, it, nt;
    int i, n, il, nl, ll;
    int is, ns;
    char l[kExtraSize_GCIO];
    const char *v;
    GCField *theField;
    GCSubType *theSubType;
    GCType *theClass;
    CPLList *e, *es, *et;
    GCExportFileMetadata *Meta;

    eoc = 0;
    if (_get_GCIO(hGCT) == (vsi_l_offset)EOF)
    {
        return NULL;
    }
    if ((enum _tIO_MetadataType_GCIO)GetGCWhatIs_GCIO(hGCT) != vHeader_GCIO &&
        strstr(GetGCCache_GCIO(hGCT), kConfigBeginConfig_GCIO) == NULL)
    {
        CPLError(CE_Failure, CPLE_AppDefined,
                 "Geoconcept config begin block %s not found.\n",
                 kConfigBeginConfig_GCIO);
        return NULL;
    }
    SetGCMeta_GCIO(hGCT, CreateHeader_GCIO());
    if ((Meta = GetGCMeta_GCIO(hGCT)) == NULL)
    {
        return NULL;
    }
    while (_get_GCIO(hGCT) != (vsi_l_offset)EOF)
    {
        if ((enum _tIO_MetadataType_GCIO)GetGCWhatIs_GCIO(hGCT) ==
            vComType_GCIO)
        {
            continue;
        }
        /* coverity[mixed_enums] */ /* FIXME ? */
        if ((enum _tIO_MetadataType_GCIO)GetGCWhatIs_GCIO(hGCT) == vHeader_GCIO)
        {
            if (strstr(GetGCCache_GCIO(hGCT), kConfigEndConfig_GCIO) != NULL)
            {
                eoc = 1;
                break;
            }

            if (strstr(GetGCCache_GCIO(hGCT), kConfigBeginMap_GCIO) != NULL)
            {
                res = _readConfigMap_GCIO(hGCT);
            }
            else if (strstr(GetGCCache_GCIO(hGCT), kConfigBeginType_GCIO) !=
                     NULL)
            {
                res = _readConfigType_GCIO(hGCT);
            }
            else if (strstr(GetGCCache_GCIO(hGCT), kConfigBeginField_GCIO) !=
                     NULL)
            {
                res = _readConfigField_GCIO(hGCT);
            }
            else
            { /* Skipping : Version, Origin, ... */
                res = OGRERR_NONE;
            }
            if (res != OGRERR_NONE)
            {
                goto onError;
            }
            continue;
        }
    onError:
        DestroyHeader_GCIO(&(GetGCMeta_GCIO(hGCT)));
        CPLError(CE_Failure, CPLE_AppDefined,
                 "Geoconcept config syntax error at line %ld.\n",
                 GetGCCurrentLinenum_GCIO(hGCT));
        return NULL;
    }
    if (eoc != 1)
    {
        DestroyHeader_GCIO(&(GetGCMeta_GCIO(hGCT)));
        CPLError(CE_Failure, CPLE_AppDefined,
                 "Geoconcept config end block %s not found.\n",
                 kConfigEndConfig_GCIO);
        return NULL;
    }

    if ((nt = CPLListCount(GetMetaTypes_GCIO(Meta))) == 0)
    {
        DestroyHeader_GCIO(&(GetGCMeta_GCIO(hGCT)));
        CPLError(CE_Failure, CPLE_AppDefined, "No types found.\n");
        return NULL;
    }
    /* for each general fields add it on top of types' fields list          */
    if (GetMetaFields_GCIO(Meta))
    {
        if ((n = CPLListCount(GetMetaFields_GCIO(Meta))) > 0)
        {
            for (i = n - 1; i >= 0; i--)
            {
                if ((e = CPLListGet(GetMetaFields_GCIO(Meta), i)))
                {
                    if ((theField = (GCField *)CPLListGetData(e)))
                    {
                        l[0] = '\0';
                        ll = 0;
                        if ((nl = CSLCount(GetFieldList_GCIO(theField))) > 0)
                        {
                            for (il = 0; il < nl; il++)
                            {
                                v = CSLGetField(GetFieldList_GCIO(theField),
                                                il);
                                snprintf(l + ll, kExtraSize_GCIO - ll - 1,
                                         "%s;", v);
                                l[kExtraSize_GCIO - 1] = '\0';
                                ll += (int)strlen(v);
                            }
                        }
                        for (it = 0; it < nt; it++)
                        {
                            if ((et = CPLListGet(GetMetaTypes_GCIO(Meta), it)))
                            {
                                if ((theClass = (GCType *)CPLListGetData(et)))
                                {
                                    if (AddTypeField_GCIO(
                                            hGCT, GetTypeName_GCIO(theClass), 0,
                                            GetFieldName_GCIO(theField),
                                            GetFieldID_GCIO(theField),
                                            GetFieldKind_GCIO(theField),
                                            GetFieldExtra_GCIO(theField),
                                            l) == NULL)
                                    {
                                        DestroyHeader_GCIO(
                                            &(GetGCMeta_GCIO(hGCT)));
                                        return NULL;
                                    }
                                }
                            }
                        }
                    }
                }
            }
            for (i = n - 1; i >= 0; i--)
            {
                if ((e = CPLListGet(GetMetaFields_GCIO(Meta), i)))
                {
                    if ((theField = (GCField *)CPLListGetData(e)))
                    {
                        _DestroyField_GCIO(&theField);
                    }
                }
            }
        }
        CPLListDestroy(GetMetaFields_GCIO(Meta));
        SetMetaFields_GCIO(Meta, NULL);
    }

    /* for each field of types add it on top of types' subtypes field list */
    for (it = 0; it < nt; it++)
    {
        if ((et = CPLListGet(GetMetaTypes_GCIO(Meta), it)))
        {
            if ((theClass = (GCType *)CPLListGetData(et)))
            {
                if ((ns = CPLListCount(GetTypeSubtypes_GCIO(theClass))) == 0)
                {
                    CPLError(CE_Failure, CPLE_AppDefined,
                             "No subtypes found for type %s.\n",
                             GetTypeName_GCIO(theClass));
                    DestroyHeader_GCIO(&(GetGCMeta_GCIO(hGCT)));
                    return NULL;
                }
                for (is = 0; is < ns; is++)
                {
                    if ((es = CPLListGet(GetTypeSubtypes_GCIO(theClass), is)))
                    {
                        if ((theSubType = (GCSubType *)CPLListGetData(es)))
                        {
                            if (_findFieldByName_GCIO(
                                    GetTypeFields_GCIO(theClass),
                                    kNbFields_GCIO) == -1 &&
                                _findFieldByName_GCIO(
                                    GetSubTypeFields_GCIO(theSubType),
                                    kNbFields_GCIO) == -1)
                            {
                                if (AddSubTypeField_GCIO(
                                        hGCT, GetTypeName_GCIO(theClass),
                                        GetSubTypeName_GCIO(theSubType), 0,
                                        kNbFields_GCIO, -9999L, vIntFld_GCIO,
                                        NULL, NULL) == NULL)
                                {
                                    DestroyHeader_GCIO(&(GetGCMeta_GCIO(hGCT)));
                                    return NULL;
                                }
                            }
                            if ((n = CPLListCount(
                                     GetTypeFields_GCIO(theClass))) > 0)
                            {
                                for (i = n - 1; i >= 0; i--)
                                {
                                    if ((e = CPLListGet(
                                             GetTypeFields_GCIO(theClass), i)))
                                    {
                                        if ((theField =
                                                 (GCField *)CPLListGetData(e)))
                                        {
                                            l[0] = '\0';
                                            ll = 0;
                                            if ((nl =
                                                     CSLCount(GetFieldList_GCIO(
                                                         theField))) > 0)
                                            {
                                                for (il = 0; il < nl; il++)
                                                {
                                                    v = CSLGetField(
                                                        GetFieldList_GCIO(
                                                            theField),
                                                        il);
                                                    snprintf(l + ll,
                                                             kExtraSize_GCIO -
                                                                 ll - 1,
                                                             "%s;", v);
                                                    l[kExtraSize_GCIO - 1] =
                                                        '\0';
                                                    ll += (int)strlen(v);
                                                }
                                            }
                                            if (AddSubTypeField_GCIO(
                                                    hGCT,
                                                    GetTypeName_GCIO(theClass),
                                                    GetSubTypeName_GCIO(
                                                        theSubType),
                                                    0,
                                                    GetFieldName_GCIO(theField),
                                                    GetFieldID_GCIO(theField),
                                                    GetFieldKind_GCIO(theField),
                                                    GetFieldExtra_GCIO(
                                                        theField),
                                                    l) == NULL)
                                            {
                                                DestroyHeader_GCIO(
                                                    &(GetGCMeta_GCIO(hGCT)));
                                                return NULL;
                                            }
                                        }
                                    }
                                }
                            }
                        }
                    }
                }
                if ((n = CPLListCount(GetTypeFields_GCIO(theClass))) > 0)
                {
                    for (i = n - 1; i >= 0; i--)
                    {
                        if ((e = CPLListGet(GetTypeFields_GCIO(theClass), i)))
                        {
                            if ((theField = (GCField *)CPLListGetData(e)))
                            {
                                _DestroyField_GCIO(&theField);
                            }
                        }
                    }
                }
                CPLListDestroy(GetTypeFields_GCIO(theClass));
                SetTypeFields_GCIO(theClass, NULL);
            }
        }
    }

    /* let's reorder sub-types fields : */
    for (it = 0; it < nt; it++)
    {
        if ((et = CPLListGet(GetMetaTypes_GCIO(Meta), it)))
        {
            if ((theClass = (GCType *)CPLListGetData(et)))
            {
                ns = CPLListCount(GetTypeSubtypes_GCIO(theClass));
                for (is = 0; is < ns; is++)
                {
                    if ((es = CPLListGet(GetTypeSubtypes_GCIO(theClass), is)))
                    {
                        if ((theSubType = (GCSubType *)CPLListGetData(es)))
                        {
                            CPLList *orderedFields = NULL;
                            if ((n = CPLListCount(
                                     GetSubTypeFields_GCIO(theSubType))) > 0)
                            {
                                if ((i = _findFieldByName_GCIO(
                                         GetSubTypeFields_GCIO(theSubType),
                                         kIdentifier_GCIO)) != -1)
                                {
                                    e = CPLListGet(
                                        GetSubTypeFields_GCIO(theSubType), i);
                                    if (!(orderedFields = CPLListAppend(
                                              orderedFields,
                                              (GCField *)CPLListGetData(e))))
                                    {
                                        CPLError(
                                            CE_Failure, CPLE_OutOfMemory,
                                            "failed to arrange Geoconcept "
                                            "subtype '%s.%s' fields list.\n",
                                            GetTypeName_GCIO(theClass),
                                            GetSubTypeName_GCIO(theSubType));
                                        DestroyHeader_GCIO(
                                            &(GetGCMeta_GCIO(hGCT)));
                                        return NULL;
                                    }
                                }
                                if ((i = _findFieldByName_GCIO(
                                         GetSubTypeFields_GCIO(theSubType),
                                         kClass_GCIO)) != -1)
                                {
                                    e = CPLListGet(
                                        GetSubTypeFields_GCIO(theSubType), i);
                                    if (!(orderedFields = CPLListAppend(
                                              orderedFields,
                                              (GCField *)CPLListGetData(e))))
                                    {
                                        CPLError(
                                            CE_Failure, CPLE_OutOfMemory,
                                            "failed to arrange Geoconcept "
                                            "subtype '%s.%s' fields list.\n",
                                            GetTypeName_GCIO(theClass),
                                            GetSubTypeName_GCIO(theSubType));
                                        DestroyHeader_GCIO(
                                            &(GetGCMeta_GCIO(hGCT)));
                                        return NULL;
                                    }
                                }
                                if ((i = _findFieldByName_GCIO(
                                         GetSubTypeFields_GCIO(theSubType),
                                         kSubclass_GCIO)) != -1)
                                {
                                    e = CPLListGet(
                                        GetSubTypeFields_GCIO(theSubType), i);
                                    if (!(orderedFields = CPLListAppend(
                                              orderedFields,
                                              (GCField *)CPLListGetData(e))))
                                    {
                                        CPLError(
                                            CE_Failure, CPLE_OutOfMemory,
                                            "failed to arrange Geoconcept "
                                            "subtype '%s.%s' fields list.\n",
                                            GetTypeName_GCIO(theClass),
                                            GetSubTypeName_GCIO(theSubType));
                                        DestroyHeader_GCIO(
                                            &(GetGCMeta_GCIO(hGCT)));
                                        return NULL;
                                    }
                                }
                                if ((i = _findFieldByName_GCIO(
                                         GetSubTypeFields_GCIO(theSubType),
                                         kName_GCIO)) != -1)
                                {
                                    e = CPLListGet(
                                        GetSubTypeFields_GCIO(theSubType), i);
                                    if (!(orderedFields = CPLListAppend(
                                              orderedFields,
                                              (GCField *)CPLListGetData(e))))
                                    {
                                        CPLError(
                                            CE_Failure, CPLE_OutOfMemory,
                                            "failed to arrange Geoconcept "
                                            "subtype '%s.%s' fields list.\n",
                                            GetTypeName_GCIO(theClass),
                                            GetSubTypeName_GCIO(theSubType));
                                        DestroyHeader_GCIO(
                                            &(GetGCMeta_GCIO(hGCT)));
                                        return NULL;
                                    }
                                }
                                if ((i = _findFieldByName_GCIO(
                                         GetSubTypeFields_GCIO(theSubType),
                                         kNbFields_GCIO)) != -1)
                                {
                                    e = CPLListGet(
                                        GetSubTypeFields_GCIO(theSubType), i);
                                    if (!(orderedFields = CPLListAppend(
                                              orderedFields,
                                              (GCField *)CPLListGetData(e))))
                                    {
                                        CPLError(
                                            CE_Failure, CPLE_OutOfMemory,
                                            "failed to arrange Geoconcept "
                                            "subtype '%s.%s' fields list.\n",
                                            GetTypeName_GCIO(theClass),
                                            GetSubTypeName_GCIO(theSubType));
                                        DestroyHeader_GCIO(
                                            &(GetGCMeta_GCIO(hGCT)));
                                        return NULL;
                                    }
                                }
                                for (i = 0; i < n; i++)
                                {
                                    e = CPLListGet(
                                        GetSubTypeFields_GCIO(theSubType), i);
                                    if (!IsPrivateField_GCIO(
                                            (GCField *)CPLListGetData(e)))
                                    {
                                        if (!(orderedFields = CPLListAppend(
                                                  orderedFields,
                                                  (GCField *)CPLListGetData(
                                                      e))))
                                        {
                                            CPLError(CE_Failure,
                                                     CPLE_OutOfMemory,
                                                     "failed to arrange "
                                                     "Geoconcept subtype "
                                                     "'%s.%s' fields list.\n",
                                                     GetTypeName_GCIO(theClass),
                                                     GetSubTypeName_GCIO(
                                                         theSubType));
                                            DestroyHeader_GCIO(
                                                &(GetGCMeta_GCIO(hGCT)));
                                            return NULL;
                                        }
                                    }
                                }
                                if ((i = _findFieldByName_GCIO(
                                         GetSubTypeFields_GCIO(theSubType),
                                         kX_GCIO)) != -1)
                                {
                                    e = CPLListGet(
                                        GetSubTypeFields_GCIO(theSubType), i);
                                    if (!(orderedFields = CPLListAppend(
                                              orderedFields,
                                              (GCField *)CPLListGetData(e))))
                                    {
                                        CPLError(
                                            CE_Failure, CPLE_OutOfMemory,
                                            "failed to arrange Geoconcept "
                                            "subtype '%s.%s' fields list.\n",
                                            GetTypeName_GCIO(theClass),
                                            GetSubTypeName_GCIO(theSubType));
                                        DestroyHeader_GCIO(
                                            &(GetGCMeta_GCIO(hGCT)));
                                        return NULL;
                                    }
                                }
                                if ((i = _findFieldByName_GCIO(
                                         GetSubTypeFields_GCIO(theSubType),
                                         kY_GCIO)) != -1)
                                {
                                    e = CPLListGet(
                                        GetSubTypeFields_GCIO(theSubType), i);
                                    if (!(orderedFields = CPLListAppend(
                                              orderedFields,
                                              (GCField *)CPLListGetData(e))))
                                    {
                                        CPLError(
                                            CE_Failure, CPLE_OutOfMemory,
                                            "failed to arrange Geoconcept "
                                            "subtype '%s.%s' fields list.\n",
                                            GetTypeName_GCIO(theClass),
                                            GetSubTypeName_GCIO(theSubType));
                                        DestroyHeader_GCIO(
                                            &(GetGCMeta_GCIO(hGCT)));
                                        return NULL;
                                    }
                                }
                                if ((i = _findFieldByName_GCIO(
                                         GetSubTypeFields_GCIO(theSubType),
                                         kXP_GCIO)) != -1)
                                {
                                    e = CPLListGet(
                                        GetSubTypeFields_GCIO(theSubType), i);
                                    if (!(orderedFields = CPLListAppend(
                                              orderedFields,
                                              (GCField *)CPLListGetData(e))))
                                    {
                                        CPLError(
                                            CE_Failure, CPLE_OutOfMemory,
                                            "failed to arrange Geoconcept "
                                            "subtype '%s.%s' fields list.\n",
                                            GetTypeName_GCIO(theClass),
                                            GetSubTypeName_GCIO(theSubType));
                                        DestroyHeader_GCIO(
                                            &(GetGCMeta_GCIO(hGCT)));
                                        return NULL;
                                    }
                                }
                                if ((i = _findFieldByName_GCIO(
                                         GetSubTypeFields_GCIO(theSubType),
                                         kYP_GCIO)) != -1)
                                {
                                    e = CPLListGet(
                                        GetSubTypeFields_GCIO(theSubType), i);
                                    if (!(orderedFields = CPLListAppend(
                                              orderedFields,
                                              (GCField *)CPLListGetData(e))))
                                    {
                                        CPLError(
                                            CE_Failure, CPLE_OutOfMemory,
                                            "failed to arrange Geoconcept "
                                            "subtype '%s.%s' fields list.\n",
                                            GetTypeName_GCIO(theClass),
                                            GetSubTypeName_GCIO(theSubType));
                                        DestroyHeader_GCIO(
                                            &(GetGCMeta_GCIO(hGCT)));
                                        return NULL;
                                    }
                                }
                                if ((i = _findFieldByName_GCIO(
                                         GetSubTypeFields_GCIO(theSubType),
                                         kGraphics_GCIO)) != -1)
                                {
                                    e = CPLListGet(
                                        GetSubTypeFields_GCIO(theSubType), i);
                                    if (!(orderedFields = CPLListAppend(
                                              orderedFields,
                                              (GCField *)CPLListGetData(e))))
                                    {
                                        CPLError(
                                            CE_Failure, CPLE_OutOfMemory,
                                            "failed to arrange Geoconcept "
                                            "subtype '%s.%s' fields list.\n",
                                            GetTypeName_GCIO(theClass),
                                            GetSubTypeName_GCIO(theSubType));
                                        DestroyHeader_GCIO(
                                            &(GetGCMeta_GCIO(hGCT)));
                                        return NULL;
                                    }
                                }
                                if ((i = _findFieldByName_GCIO(
                                         GetSubTypeFields_GCIO(theSubType),
                                         kAngle_GCIO)) != -1)
                                {
                                    e = CPLListGet(
                                        GetSubTypeFields_GCIO(theSubType), i);
                                    if (!(orderedFields = CPLListAppend(
                                              orderedFields,
                                              (GCField *)CPLListGetData(e))))
                                    {
                                        CPLError(
                                            CE_Failure, CPLE_OutOfMemory,
                                            "failed to arrange Geoconcept "
                                            "subtype '%s.%s' fields list.\n",
                                            GetTypeName_GCIO(theClass),
                                            GetSubTypeName_GCIO(theSubType));
                                        DestroyHeader_GCIO(
                                            &(GetGCMeta_GCIO(hGCT)));
                                        return NULL;
                                    }
                                }
                                CPLListDestroy(
                                    GetSubTypeFields_GCIO(theSubType));
                                SetSubTypeFields_GCIO(theSubType,
                                                      orderedFields);
                            }
                        }
                    }
                }
            }
        }
    }

    CPLDebug("GEOCONCEPT",
             "Metadata = (\n"
             "  nb Types : %d\n"
             "  Charset : %s\n"
             "  Delimiter : 0x%x\n"
             "  Unit : %s\n"
             "  Resolution : %g\n"
             "  Quoted-Text : %s\n"
             "  Format : %s\n"
             "  CoordSystemID : %d; TimeZoneValue : %d\n"
             ")",
             CPLListCount(GetMetaTypes_GCIO(Meta)),
             GCCharset2str_GCIO(GetMetaCharset_GCIO(Meta)),
             GetMetaDelimiter_GCIO(Meta), GetMetaUnit_GCIO(Meta),
             GetMetaResolution_GCIO(Meta),
             GetMetaQuotedText_GCIO(Meta) ? "yes" : "no",
             GetMetaFormat_GCIO(Meta) == 1 ? "relative" : "absolute",
             GetMetaSysCoord_GCIO(Meta)
                 ? GetSysCoordSystemID_GCSRS(GetMetaSysCoord_GCIO(Meta))
                 : -1,
             GetMetaSysCoord_GCIO(Meta)
                 ? GetSysCoordTimeZone_GCSRS(GetMetaSysCoord_GCIO(Meta))
                 : -1);

    return Meta;
} /* ReadConfig_GCIO */

/* -------------------------------------------------------------------- */
static VSILFILE GCIOAPI_CALL1(*)
    _writeFieldsPragma_GCIO(GCSubType *theSubType, VSILFILE *gc, char delim)
{
    int nF, iF;
    GCField *theField;
    CPLList *e;

    VSIFPrintfL(
        gc, "%s%s Class=%s;Subclass=%s;Kind=%d;Fields=", kPragma_GCIO,
        kMetadataFIELDS_GCIO, GetTypeName_GCIO(GetSubTypeType_GCIO(theSubType)),
        GetSubTypeName_GCIO(theSubType), (int)GetSubTypeKind_GCIO(theSubType));
    if ((nF = CPLListCount(GetSubTypeFields_GCIO(theSubType))) > 0)
    {
        for (iF = 0; iF < nF; iF++)
        {
            if ((e = CPLListGet(GetSubTypeFields_GCIO(theSubType), iF)))
            {
                if ((theField = (GCField *)CPLListGetData(e)))
                {
                    if (iF > 0)
                        VSIFPrintfL(gc, "%c", delim);
                    if (IsPrivateField_GCIO(theField))
                    {
                        VSIFPrintfL(gc, "%s%s", kPrivate_GCIO,
                                    GetFieldName_GCIO(theField) + 1);
                    }
                    else
                    {
                        VSIFPrintfL(gc, "%s%s", kPublic_GCIO,
                                    GetFieldName_GCIO(theField));
                    }
                }
            }
        }
    }
    VSIFPrintfL(gc, "\n");
    SetSubTypeHeaderWritten_GCIO(theSubType, TRUE);

    return gc;
} /* _writeFieldsPragma_GCIO */

/* -------------------------------------------------------------------- */
GCExportFileH GCIOAPI_CALL1(*) WriteHeader_GCIO(GCExportFileH *H)
{
    GCExportFileMetadata *Meta;
    int nT, iT, nS, iS;
    GCSubType *theSubType;
    GCType *theClass;
    CPLList *e;
    VSILFILE *gc;

    /* FIXME : howto change default values ?                              */
    /*         there seems to be no ways in Geoconcept to change them ... */
    Meta = GetGCMeta_GCIO(H);
    gc = GetGCHandle_GCIO(H);
    if (GetMetaVersion_GCIO(Meta))
    {
        VSIFPrintfL(gc, "%s%s %s\n", kPragma_GCIO, kMetadataVERSION_GCIO,
                    GetMetaVersion_GCIO(Meta));
    }
    VSIFPrintfL(gc, "%s%s \"%s\"\n", kPragma_GCIO, kMetadataDELIMITER_GCIO,
                _metaDelimiter2str_GCIO(GetMetaDelimiter_GCIO(Meta)));
    VSIFPrintfL(gc, "%s%s \"%s\"\n", kPragma_GCIO, kMetadataQUOTEDTEXT_GCIO,
                GetMetaQuotedText_GCIO(Meta) ? "yes" : "no");
    VSIFPrintfL(gc, "%s%s %s\n", kPragma_GCIO, kMetadataCHARSET_GCIO,
                GCCharset2str_GCIO(GetMetaCharset_GCIO(Meta)));
    if (strcmp(GetMetaUnit_GCIO(Meta), "deg") == 0 ||
        strcmp(GetMetaUnit_GCIO(Meta), "deg.min") == 0 ||
        strcmp(GetMetaUnit_GCIO(Meta), "rad") == 0 ||
        strcmp(GetMetaUnit_GCIO(Meta), "gr") == 0)
    {
        VSIFPrintfL(gc, "%s%s Angle:%s\n", kPragma_GCIO, kMetadataUNIT_GCIO,
                    GetMetaUnit_GCIO(Meta));
    }
    else
    {
        VSIFPrintfL(gc, "%s%s Distance:%s\n", kPragma_GCIO, kMetadataUNIT_GCIO,
                    GetMetaUnit_GCIO(Meta));
    }
    VSIFPrintfL(gc, "%s%s %d\n", kPragma_GCIO, kMetadataFORMAT_GCIO,
                GetMetaFormat_GCIO(Meta));
    if (GetMetaSysCoord_GCIO(Meta))
    {
        VSIFPrintfL(gc, "%s%s {Type: %d}", kPragma_GCIO, kMetadataSYSCOORD_GCIO,
                    GetSysCoordSystemID_GCSRS(GetMetaSysCoord_GCIO(Meta)));
        if (GetSysCoordTimeZone_GCSRS(GetMetaSysCoord_GCIO(Meta)) != -1)
        {
            VSIFPrintfL(gc, ";{TimeZone: %d}",
                        GetSysCoordTimeZone_GCSRS(GetMetaSysCoord_GCIO(Meta)));
        }
    }
    else
    {
        VSIFPrintfL(gc, "%s%s {Type: -1}", kPragma_GCIO,
                    kMetadataSYSCOORD_GCIO);
    }
    VSIFPrintfL(gc, "\n");

    if ((nT = CPLListCount(GetMetaTypes_GCIO(Meta))) > 0)
    {
        for (iT = 0; iT < nT; iT++)
        {
            if ((e = CPLListGet(GetMetaTypes_GCIO(Meta), iT)))
            {
                if ((theClass = (GCType *)CPLListGetData(e)))
                {
                    if ((nS = CPLListCount(GetTypeSubtypes_GCIO(theClass))) > 0)
                    {
                        for (iS = 0; iS < nS; iS++)
                        {
                            if ((e = CPLListGet(GetTypeSubtypes_GCIO(theClass),
                                                iS)))
                            {
                                if ((theSubType =
                                         (GCSubType *)CPLListGetData(e)) &&
                                    !IsSubTypeHeaderWritten_GCIO(theSubType))
                                {
                                    if (!_writeFieldsPragma_GCIO(
                                            theSubType, gc,
                                            GetMetaDelimiter_GCIO(Meta)))
                                    {
                                        return NULL;
                                    }
                                }
                            }
                        }
                    }
                }
            }
        }
    }

    return H;
} /* WriteHeader_GCIO */

/* -------------------------------------------------------------------- */
GCExportFileMetadata GCIOAPI_CALL1(*) ReadHeader_GCIO(GCExportFileH *hGXT)
{
    GCExportFileMetadata *Meta;

    if (_get_GCIO(hGXT) == (vsi_l_offset)EOF)
    {
        return NULL;
    }
    if ((enum _tIO_MetadataType_GCIO)GetGCWhatIs_GCIO(hGXT) != vPragma_GCIO)
    {
        CPLDebug("GEOCONCEPT",
                 "Geoconcept export badly formatted :"
                 "%s expected.",
                 kPragma_GCIO);
        return NULL;
    }
    SetGCMeta_GCIO(hGXT, CreateHeader_GCIO());
    if ((Meta = GetGCMeta_GCIO(hGXT)) == NULL)
    {
        return NULL;
    }
    SetMetaExtent_GCIO(
        Meta, CreateExtent_GCIO(HUGE_VAL, HUGE_VAL, -HUGE_VAL, -HUGE_VAL));
    while (_get_GCIO(hGXT) != (vsi_l_offset)EOF)
    {
        if ((enum _tIO_MetadataType_GCIO)GetGCWhatIs_GCIO(hGXT) ==
            vComType_GCIO)
        {
            continue;
        }
        /* coverity[mixed_enums] */ /* FIXME ? */
        if ((enum _tIO_MetadataType_GCIO)GetGCWhatIs_GCIO(hGXT) == vPragma_GCIO)
        {
            /* try config header first ... */
            if (!_parsePragma_GCIO(hGXT))
            {
                return NULL;
            }
            /* in case of Memo read, we try parsing an object ... */
            if (GetGCStatus_GCIO(hGXT) != vMemoStatus_GCIO)
            {
                continue;
            }
        }
        /* then object ... */
        if (!_parseObject_GCIO(hGXT))
        {
            return NULL;
        }
    }
    if (CPLListCount(GetMetaTypes_GCIO(Meta)) == 0)
    {
        DestroyHeader_GCIO(&(GetGCMeta_GCIO(hGXT)));
        CPLError(CE_Failure, CPLE_AppDefined,
                 "Geoconcept export syntax error at line %ld.\n",
                 GetGCCurrentLinenum_GCIO(hGXT));
        return NULL;
    }

    Rewind_GCIO(hGXT, NULL);

    CPLDebug("GEOCONCEPT",
             "Metadata = (\n"
             "  nb Types : %d\n"
             "  Charset : %s\n"
             "  Delimiter : 0x%x\n"
             "  Unit : %s\n"
             "  Resolution : %g\n"
             "  Quoted-Text : %s\n"
             "  Format : %s\n"
             "  CoordSystemID : %d; TimeZoneValue : %d\n"
             ")",
             CPLListCount(GetMetaTypes_GCIO(Meta)),
             GCCharset2str_GCIO(GetMetaCharset_GCIO(Meta)),
             GetMetaDelimiter_GCIO(Meta), GetMetaUnit_GCIO(Meta),
             GetMetaResolution_GCIO(Meta),
             GetMetaQuotedText_GCIO(Meta) ? "yes" : "no",
             GetMetaFormat_GCIO(Meta) == 1 ? "relative" : "absolute",
             GetMetaSysCoord_GCIO(Meta)
                 ? GetSysCoordSystemID_GCSRS(GetMetaSysCoord_GCIO(Meta))
                 : -1,
             GetMetaSysCoord_GCIO(Meta)
                 ? GetSysCoordTimeZone_GCSRS(GetMetaSysCoord_GCIO(Meta))
                 : -1);

    return Meta;
} /* ReadHeader_GCIO */

/* -------------------------------------------------------------------- */
GCSubType GCIOAPI_CALL1(*)
    FindFeature_GCIO(GCExportFileH *hGCT, const char *typDOTsubtypName)
{
    char **fe;
    int whereClass, whereSubType;
    GCType *theClass;
    GCSubType *theSubType;
    if (hGCT == NULL)
        return NULL;
    if (typDOTsubtypName == NULL)
        return NULL;
    if (!(fe = CSLTokenizeString2(typDOTsubtypName, ".", 0)) ||
        CSLCount(fe) != 2)
    {
        CSLDestroy(fe);
        return NULL;
    }
    if ((whereClass = _findTypeByName_GCIO(hGCT, fe[0])) == -1)
    {
        CSLDestroy(fe);
        return NULL;
    }
    theClass = _getType_GCIO(hGCT, whereClass);
    if ((whereSubType = _findSubTypeByName_GCIO(theClass, fe[1])) == -1)
    {
        CSLDestroy(fe);
        return NULL;
    }
    theSubType = _getSubType_GCIO(theClass, whereSubType);
    CSLDestroy(fe);
    return theSubType;
} /* FindFeature_GCIO */

/* -------------------------------------------------------------------- */
int GCIOAPI_CALL FindFeatureFieldIndex_GCIO(GCSubType *theSubType,
                                            const char *fieldName)
{
    if (theSubType == NULL)
        return -1;
    if (fieldName == NULL)
        return -1;
    return _findFieldByName_GCIO(GetSubTypeFields_GCIO(theSubType), fieldName);
} /* FindFeatureFieldIndex_GCIO */

/* -------------------------------------------------------------------- */
GCField GCIOAPI_CALL1(*)
    FindFeatureField_GCIO(GCSubType *theSubType, const char *fieldName)
{
    int whereField;
    GCField *theField;
    if ((whereField = FindFeatureFieldIndex_GCIO(theSubType, fieldName)) == -1)
    {
        return NULL;
    }
    theField = _getField_GCIO(GetSubTypeFields_GCIO(theSubType), whereField);
    return theField;
} /* FindFeatureField_GCIO */

/* -------------------------------------------------------------------- */
static char GCIOAPI_CALL1(*)
    _escapeString_GCIO(CPL_UNUSED GCExportFileH *H, const char *theString)
{
    int l, i, o;
    char *res;
    if (!theString || (l = (int)strlen(theString)) == 0)
    {
        res = CPLStrdup(theString);
        return res;
    }
    if ((res = (char *)CPLMalloc(l * 2 + 1)))
    {
        for (i = 0, o = 0; i < l; i++, o++)
        {
            switch (theString[i])
            {
                case '\t':
                    res[o] = '#';
                    o++;
                    res[o] = '#';
                    break;
                case '\r':
                case '\n':
                    res[o] = '@';
                    break;
                default:
                    res[o] = theString[i];
                    break;
            }
        }
        res[o] = '\0';
    }
    return res;
} /* _escapeString_GCIO */

/* -------------------------------------------------------------------- */
static int GCIOAPI_CALL _findNextFeatureFieldToWrite_GCIO(GCSubType *theSubType,
                                                          int from, long id)
{
    GCExportFileH *H;
    VSILFILE *h;
    int n, i;
    GCField *theField;
    char *fieldName, *escapedValue, delim;
    const char *quotes;

    if ((n = CountSubTypeFields_GCIO(theSubType)) == 0)
    {
        return WRITECOMPLETED_GCIO;
    }
    if (!(from < n))
    {
        return WRITECOMPLETED_GCIO;
    }

    H = GetSubTypeGCHandle_GCIO(theSubType);
    h = GetGCHandle_GCIO(H);
    /* Dimension pragma for 3DM et 3D : */
    if (from == 0)
    {
        if (GetSubTypeDim_GCIO(theSubType) == v3DM_GCIO)
        {
            if (VSIFPrintfL(h, "%s%s\n", kPragma_GCIO, k3DOBJECTMONO_GCIO) <= 0)
            {
                CPLError(CE_Failure, CPLE_AppDefined, "Write failed.\n");
                return WRITEERROR_GCIO;
            }
            SetGCCurrentLinenum_GCIO(H, GetGCCurrentLinenum_GCIO(H) + 1L);
        }
        else if (GetSubTypeDim_GCIO(theSubType) == v3D_GCIO)
        {
            if (VSIFPrintfL(h, "%s%s\n", kPragma_GCIO, k3DOBJECT_GCIO) <= 0)
            {
                CPLError(CE_Failure, CPLE_AppDefined, "Write failed.\n");
                return WRITEERROR_GCIO;
            }
            SetGCCurrentLinenum_GCIO(H, GetGCCurrentLinenum_GCIO(H) + 1L);
        }
    }
    if (GetMetaQuotedText_GCIO(GetGCMeta_GCIO(H)))
    {
        quotes = "\"";
    }
    else
    {
        quotes = "";
    }
    delim = GetMetaDelimiter_GCIO(GetGCMeta_GCIO(H));
    /* Fields are written in the same order as in the sub-type definition. */
    /* Check for Private# fields : */
    for (i = from; i < n; i++)
    {
        theField = GetSubTypeField_GCIO(theSubType, i);
        if (!IsPrivateField_GCIO(theField))
        {
            return i; /* needs a call to WriteFeatureField_GCIO() for the ith
                         field */
        }
        fieldName = GetFieldName_GCIO(theField);
        if (EQUAL(fieldName, kX_GCIO) || EQUAL(fieldName, kY_GCIO) ||
            EQUAL(fieldName, kXP_GCIO) || EQUAL(fieldName, kYP_GCIO) ||
            EQUAL(fieldName, kGraphics_GCIO) || EQUAL(fieldName, kAngle_GCIO))
        {
            return GEOMETRYEXPECTED_GCIO; /* needs a call to
                                             WriteFeatureGeometry_GCIO() now */
        }
        if (EQUAL(fieldName, kIdentifier_GCIO))
        {
            /* long integer which GeoConcept may use as a key for the object it
             * will create. */
            /* If set to '-1', it will be ignored. */
            if (VSIFPrintfL(h, "%s%ld%s", quotes, id, quotes) <= 0)
            {
                CPLError(CE_Failure, CPLE_AppDefined, "Write failed.\n");
                return WRITEERROR_GCIO;
            }
        }
        else if (EQUAL(fieldName, kClass_GCIO))
        {
            if (!(escapedValue = _escapeString_GCIO(
                      H, GetTypeName_GCIO(GetSubTypeType_GCIO(theSubType)))))
            {
                return WRITEERROR_GCIO;
            }
            if (VSIFPrintfL(h, "%s%s%s", quotes, escapedValue, quotes) <= 0)
            {
                CPLError(CE_Failure, CPLE_AppDefined, "Write failed.\n");
                CPLFree(escapedValue);
                return WRITEERROR_GCIO;
            }
            CPLFree(escapedValue);
        }
        else if (EQUAL(fieldName, kSubclass_GCIO))
        {
            if (!(escapedValue =
                      _escapeString_GCIO(H, GetSubTypeName_GCIO(theSubType))))
            {
                return WRITEERROR_GCIO;
            }
            if (VSIFPrintfL(h, "%s%s%s", quotes, escapedValue, quotes) <= 0)
            {
                CPLError(CE_Failure, CPLE_AppDefined, "Write failed.\n");
                CPLFree(escapedValue);
                return WRITEERROR_GCIO;
            }
            CPLFree(escapedValue);
        }
        else if (EQUAL(fieldName, kName_GCIO))
        {
            if (!(escapedValue =
                      _escapeString_GCIO(H, GetSubTypeName_GCIO(theSubType))))
            {
                return WRITEERROR_GCIO;
            }
            if (VSIFPrintfL(h, "%s%s%s", quotes, escapedValue, quotes) <= 0)
            {
                CPLError(CE_Failure, CPLE_AppDefined, "Write failed.\n");
                CPLFree(escapedValue);
                return WRITEERROR_GCIO;
            }
            CPLFree(escapedValue);
        }
        else if (EQUAL(fieldName, kNbFields_GCIO))
        {
            if (VSIFPrintfL(h, "%s%d%s", quotes,
                            GetSubTypeNbFields_GCIO(theSubType), quotes) <= 0)
            {
                CPLError(CE_Failure, CPLE_AppDefined, "Write failed.\n");
                return WRITEERROR_GCIO;
            }
        }
        else
        {
            CPLError(CE_Failure, CPLE_NotSupported,
                     "Writing %s field is not implemented.\n", fieldName);
            return WRITEERROR_GCIO;
        }
        if (i != n - 1)
        {
            if (VSIFPrintfL(h, "%c", delim) <= 0)
            {
                CPLError(CE_Failure, CPLE_AppDefined, "Write failed.\n");
                return WRITEERROR_GCIO;
            }
        }
    }

    return WRITECOMPLETED_GCIO;
} /* _findNextFeatureFieldToWrite_GCIO */

/* -------------------------------------------------------------------- */
int GCIOAPI_CALL StartWritingFeature_GCIO(GCSubType *theSubType, long id)
{
    if (!IsSubTypeHeaderWritten_GCIO(theSubType))
    {
        GCExportFileH *H;
        VSILFILE *h;

        H = GetSubTypeGCHandle_GCIO(theSubType);
        h = GetGCHandle_GCIO(H);
        if (!_writeFieldsPragma_GCIO(theSubType, h,
                                     GetMetaDelimiter_GCIO(GetGCMeta_GCIO(H))))
        {
            CPLError(CE_Failure, CPLE_AppDefined,
                     "Write Fields pragma failed for feature id %ld.\n", id);
            return WRITEERROR_GCIO;
        }
    }
    return _findNextFeatureFieldToWrite_GCIO(theSubType, 0, id);
} /* StartWritingFeature_GCIO */

/* -------------------------------------------------------------------- */
static int GCIOAPI_CALL _writePoint_GCIO(VSILFILE *h, const char *quotes,
                                         char delim, double x, double y,
                                         double z, GCDim dim, GCExtent *e,
                                         int pCS, int hCS)
{
    SetExtentULAbscissa_GCIO(e, x);
    SetExtentULOrdinate_GCIO(e, y);
    SetExtentLRAbscissa_GCIO(e, x);
    SetExtentLROrdinate_GCIO(e, y);
    if (dim == v3DM_GCIO || dim == v3D_GCIO)
    {
        if (VSIFPrintfL(h, "%s%.*f%s%c%s%.*f%s%c%s%.*f%s", quotes, pCS, x,
                        quotes, delim, quotes, pCS, y, quotes, delim, quotes,
                        hCS, z, quotes) <= 0)
        {
            CPLError(CE_Failure, CPLE_AppDefined, "Write failed.\n");
            return FALSE;
        }
    }
    else
    {
        if (VSIFPrintfL(h, "%s%.*f%s%c%s%.*f%s", quotes, pCS, x, quotes, delim,
                        quotes, pCS, y, quotes) <= 0)
        {
            CPLError(CE_Failure, CPLE_AppDefined, "Write failed.\n");
            return FALSE;
        }
    }
    return TRUE;
} /* _writePoint_GCIO */

/* -------------------------------------------------------------------- */
static int GCIOAPI_CALL _writeLine_GCIO(VSILFILE *h, const char *quotes,
                                        char delim, OGRGeometryH poArc,
                                        GCTypeKind knd, GCDim dim, int fmt,
                                        GCExtent *e, int pCS, int hCS)
{
    int iP, nP;
    double dX, dY, dZ;
    /* 1st point */
    if (!_writePoint_GCIO(h, quotes, delim, OGR_G_GetX(poArc, 0),
                          OGR_G_GetY(poArc, 0), OGR_G_GetZ(poArc, 0), dim, e,
                          pCS, hCS))
    {
        return FALSE;
    }
    if (VSIFPrintfL(h, "%c", delim) <= 0)
    {
        CPLError(CE_Failure, CPLE_AppDefined, "Write failed.\n");
        return FALSE;
    }
    nP = OGR_G_GetPointCount(poArc);
    if (knd == vLine_GCIO)
    {
        /* last point */
        if (!_writePoint_GCIO(h, quotes, delim, OGR_G_GetX(poArc, nP - 1),
                              OGR_G_GetY(poArc, nP - 1),
                              OGR_G_GetZ(poArc, nP - 1), dim, e, pCS, hCS))
        {
            return FALSE;
        }
        if (VSIFPrintfL(h, "%c", delim) <= 0)
        {
            CPLError(CE_Failure, CPLE_AppDefined, "Write failed.\n");
            return FALSE;
        }
    }
    /* number of remaining points : */
    if (VSIFPrintfL(h, "%s%d%s%c", quotes, nP - 1, quotes, delim) <= 0)
    {
        CPLError(CE_Failure, CPLE_AppDefined, "Write failed.\n");
        return FALSE;
    }
    /* 2nd up to the last point ... */
    for (iP = 1; iP < nP; iP++)
    {
        if (fmt == 1)
        { /* relative coordinates ... */
            dX = OGR_G_GetX(poArc, iP - 1) - OGR_G_GetX(poArc, iP);
            dY = OGR_G_GetY(poArc, iP - 1) - OGR_G_GetY(poArc, iP);
            dZ = OGR_G_GetZ(poArc, iP - 1) - OGR_G_GetZ(poArc, iP);
        }
        else
        { /* absolute coordinates ... */
            dX = OGR_G_GetX(poArc, iP);
            dY = OGR_G_GetY(poArc, iP);
            dZ = OGR_G_GetZ(poArc, iP);
        }
        if (!_writePoint_GCIO(h, quotes, delim, dX, dY, dZ, dim, e, pCS, hCS))
        {
            return FALSE;
        }
        if (iP != nP - 1)
        {
            if (VSIFPrintfL(h, "%c", delim) <= 0)
            {
                CPLError(CE_Failure, CPLE_AppDefined, "Write failed.\n");
                return FALSE;
            }
        }
    }
    return TRUE;
} /* _writeLine_GCIO */

/* -------------------------------------------------------------------- */
static int GCIOAPI_CALL _writePolygon_GCIO(VSILFILE *h, const char *quotes,
                                           char delim, OGRGeometryH poPoly,
                                           GCDim dim, int fmt, GCExtent *e,
                                           int pCS, int hCS)
{
    int iR, nR;
    OGRGeometryH poRing;
    /*
     * X<>Y[<>Z]{Single Polygon{<>NrPolys=j[<>X<>Y[<>Z]<>Single Polygon]j}}
     * with :
     * Single Polygon = Nr points=k[<>PointX<>PointY[<>Z]]k...
     */
    if ((nR = OGR_G_GetGeometryCount(poPoly)) == 0)
    {
        CPLError(CE_Warning, CPLE_AppDefined,
                 "Ignore POLYGON EMPTY in Geoconcept writer.\n");
        return TRUE;
    }
    poRing = OGR_G_GetGeometryRef(poPoly, 0);
    if (!_writeLine_GCIO(h, quotes, delim, poRing, vPoly_GCIO, dim, fmt, e, pCS,
                         hCS))
    {
        return FALSE;
    }
    /* number of interior rings : */
    if (nR > 1)
    {
        if (VSIFPrintfL(h, "%c%d%c", delim, nR - 1, delim) <= 0)
        {
            CPLError(CE_Failure, CPLE_AppDefined, "Write failed.\n");
            return FALSE;
        }
        for (iR = 1; iR < nR; iR++)
        {
            poRing = OGR_G_GetGeometryRef(poPoly, iR);
            if (!_writeLine_GCIO(h, quotes, delim, poRing, vPoly_GCIO, dim, fmt,
                                 e, pCS, hCS))
            {
                return FALSE;
            }
            if (iR != nR - 1)
            {
                if (VSIFPrintfL(h, "%c", delim) <= 0)
                {
                    CPLError(CE_Failure, CPLE_AppDefined, "Write failed.\n");
                    return FALSE;
                }
            }
        }
    }
    return TRUE;
} /* _writePolygon_GCIO */

/* -------------------------------------------------------------------- */
int GCIOAPI_CALL WriteFeatureGeometry_GCIO(GCSubType *theSubType,
                                           OGRGeometryH poGeom)
{
    GCExportFileH *H;
    VSILFILE *h;
    int n, i, iAn, pCS, hCS;
    const char *quotes;
    char delim;

    H = GetSubTypeGCHandle_GCIO(theSubType);
    h = GetGCHandle_GCIO(H);
    n = CountSubTypeFields_GCIO(theSubType);
    iAn = -1;
    if ((i = _findFieldByName_GCIO(GetSubTypeFields_GCIO(theSubType),
                                   kGraphics_GCIO)) == -1)
    {
        if ((i = _findFieldByName_GCIO(GetSubTypeFields_GCIO(theSubType),
                                       kAngle_GCIO)) == -1)
        {
            i = _findFieldByName_GCIO(GetSubTypeFields_GCIO(theSubType),
                                      kY_GCIO);
        }
        else
        {
            iAn = i;
        }
    }

    if (GetMetaQuotedText_GCIO(GetGCMeta_GCIO(H)))
    {
        quotes = "\"";
    }
    else
    {
        quotes = "";
    }
    delim = GetMetaDelimiter_GCIO(GetGCMeta_GCIO(H));

    if ((pCS = GetMetaPlanarFormat_GCIO(GetGCMeta_GCIO(H))) == 0)
    {
        if (OSRIsGeographic(GetMetaSRS_GCIO(GetGCMeta_GCIO(H))))
        {
            pCS = kGeographicPlanarRadix;
        }
        else
        {
            pCS = kCartesianPlanarRadix;
        }
        SetMetaPlanarFormat_GCIO(GetGCMeta_GCIO(H), pCS);
    }

    hCS = 0;
    if (GetSubTypeDim_GCIO(theSubType) == v3D_GCIO &&
        (hCS = GetMetaHeightFormat_GCIO(GetGCMeta_GCIO(H))) == 0)
    {
        hCS = kElevationRadix;
        SetMetaHeightFormat_GCIO(GetGCMeta_GCIO(H), hCS);
    }

    switch (wkbFlatten(OGR_G_GetGeometryType(poGeom)))
    {
        case wkbPoint:
            if (!_writePoint_GCIO(h, quotes, delim, OGR_G_GetX(poGeom, 0),
                                  OGR_G_GetY(poGeom, 0), OGR_G_GetZ(poGeom, 0),
                                  GetSubTypeDim_GCIO(theSubType),
                                  GetMetaExtent_GCIO(GetGCMeta_GCIO(H)), pCS,
                                  hCS))
            {
                return WRITEERROR_GCIO;
            }
            break;
        case wkbLineString:
            if (!_writeLine_GCIO(h, quotes, delim, poGeom, vLine_GCIO,
                                 GetSubTypeDim_GCIO(theSubType),
                                 GetMetaFormat_GCIO(GetGCMeta_GCIO(H)),
                                 GetMetaExtent_GCIO(GetGCMeta_GCIO(H)), pCS,
                                 hCS))
            {
                return WRITEERROR_GCIO;
            }
            break;
        case wkbPolygon:
            if (!_writePolygon_GCIO(
                    h, quotes, delim, poGeom, GetSubTypeDim_GCIO(theSubType),
                    GetMetaFormat_GCIO(GetGCMeta_GCIO(H)),
                    GetMetaExtent_GCIO(GetGCMeta_GCIO(H)), pCS, hCS))
            {
                return WRITEERROR_GCIO;
            }
            break;
        default:
            CPLError(CE_Warning, CPLE_AppDefined,
                     "Geometry type %d not supported in Geoconcept, feature "
                     "skipped.\n",
                     OGR_G_GetGeometryType(poGeom));
            break;
    }
    /* Angle= 0 !! */
    if (iAn != -1)
    {
        if (VSIFPrintfL(h, "%c%s%1d%s", delim, quotes, 0, quotes) <= 0)
        {
            CPLError(CE_Failure, CPLE_AppDefined, "Write failed.\n");
            return WRITEERROR_GCIO;
        }
    }
    /* if it is not the last field ... */
    if (i != n - 1)
    {
        if (VSIFPrintfL(h, "%c", delim) <= 0)
        {
            CPLError(CE_Failure, CPLE_AppDefined, "Write failed.\n");
            return WRITEERROR_GCIO;
        }
    }

    /* find out next field to write ... */
    return _findNextFeatureFieldToWrite_GCIO(theSubType, i + 1, OGRNullFID);
} /* WriteFeatureGeometry_GCIO */

/* -------------------------------------------------------------------- */
int GCIOAPI_CALL WriteFeatureFieldAsString_GCIO(GCSubType *theSubType,
                                                int iField,
                                                const char *theValue)
{
    GCExportFileH *H;
    VSILFILE *h;
    int n;
    const char *quotes;
    char *escapedValue, delim;
    GCField *theField;

    H = GetSubTypeGCHandle_GCIO(theSubType);
    h = GetGCHandle_GCIO(H);
    n = CountSubTypeFields_GCIO(theSubType);
    if (GetMetaQuotedText_GCIO(GetGCMeta_GCIO(H)))
    {
        quotes = "\"";
    }
    else
    {
        quotes = "";
    }
    delim = GetMetaDelimiter_GCIO(GetGCMeta_GCIO(H));
    theField = GetSubTypeField_GCIO(theSubType, iField);
    if (!theField)
    {
        CPLError(CE_Failure, CPLE_NotSupported,
                 "Attempt to write a field #%d that does not exist on feature "
                 "%s.%s.\n",
                 iField, GetTypeName_GCIO(GetSubTypeType_GCIO(theSubType)),
                 GetSubTypeName_GCIO(theSubType));
        return WRITEERROR_GCIO;
    }
    if (!(escapedValue = _escapeString_GCIO(H, theValue)))
    {
        return WRITEERROR_GCIO;
    }
    if (VSIFPrintfL(h, "%s%s%s", quotes, escapedValue, quotes) <= 0)
    {
        /* it is really an error if one of the parameters is not empty ... */
        if (*quotes != '\0' || *escapedValue != '\0')
        {
            CPLError(CE_Failure, CPLE_AppDefined, "Write failed.\n");
            CPLFree(escapedValue);
            return WRITEERROR_GCIO;
        }
    }
    if (iField != n - 1)
    {
        if (VSIFPrintfL(h, "%c", delim) <= 0)
        {
            CPLError(CE_Failure, CPLE_AppDefined, "Write failed.\n");
            CPLFree(escapedValue);
            return WRITEERROR_GCIO;
        }
    }
    CPLFree(escapedValue);

    return _findNextFeatureFieldToWrite_GCIO(theSubType, iField + 1,
                                             OGRNullFID);
} /* WriteFeatureFieldAsString_GCIO */

/* -------------------------------------------------------------------- */
void GCIOAPI_CALL StopWritingFeature_GCIO(GCSubType *theSubType)
{
    GCExportFileH *H;

    H = GetSubTypeGCHandle_GCIO(theSubType);
    if (VSIFPrintfL(GetGCHandle_GCIO(H), "\n") <= 0)
    {
        CPLError(CE_Failure, CPLE_AppDefined, "Write failed.\n");
    }
    SetSubTypeNbFeatures_GCIO(theSubType,
                              GetSubTypeNbFeatures_GCIO(theSubType) + 1L);
    SetGCNbObjects_GCIO(H, GetGCNbObjects_GCIO(H) + 1L);
    SetGCCurrentLinenum_GCIO(H, GetGCCurrentLinenum_GCIO(H) + 1L);
} /* StopWritingFeature_GCIO */

/* -------------------------------------------------------------------- */
OGRFeatureH GCIOAPI_CALL ReadNextFeature_GCIO(GCSubType *theSubType)
{
    OGRFeatureH f;
    GCExportFileH *H;
    GCDim d;

    f = NULL;
    H = GetSubTypeGCHandle_GCIO(theSubType);
    if (!(GetGCMeta_GCIO(H)))
    {
        return NULL;
    }
    d = vUnknown3D_GCIO;
    while (_get_GCIO(H) != (vsi_l_offset)EOF)
    {
        if ((enum _tIO_MetadataType_GCIO)GetGCWhatIs_GCIO(H) == vComType_GCIO)
        {
            continue;
        }
        /* analyze the line according to schema : */
        /* coverity[mixed_enums] */ /* FIXME ? */
        if ((enum _tIO_MetadataType_GCIO)GetGCWhatIs_GCIO(H) == vPragma_GCIO)
        {
            if (strstr(GetGCCache_GCIO(H), k3DOBJECTMONO_GCIO))
            {
                d = v3DM_GCIO;
            }
            else if (strstr(GetGCCache_GCIO(H), k3DOBJECT_GCIO))
            {
                d = v3D_GCIO;
            }
            else if (strstr(GetGCCache_GCIO(H), k2DOBJECT_GCIO))
            {
                d = v2D_GCIO;
            }
            continue;
        }
        if ((f = _buildOGRFeature_GCIO(H, &theSubType, d, NULL)))
        {
            break;
        }
        d = vUnknown3D_GCIO;
    }

    return f;
} /* ReadNextFeature_GCIO */