module FFI
  module GDAL

    #------------------------------------------------------------------------
    # Defines
    #------------------------------------------------------------------------
    CSLT_HONOURSTRINGS    = 0x0001
    CSLT_ALLOWEMPTYTOKENS = 0x0002
    CSLT_PRESERVEQUOTES   = 0x0004
    CSLT_PRESERVEESCAPES  = 0x0008
    CSLT_STRIPLEADSPACES  = 0x0010
    CSLT_STRIPENDSPACES   = 0x0020

    CPLES_BackslashQuotable = 0
    CPLES_XML               = 1
    CPLES_URL               = 2
    CPLES_SQL               = 3
    CPLES_CSV               = 4
    CPLES_XML_BUT_QUOTES    = 5

    CPL_ENC_LOCALE = ''
    CPL_ENC_UTF8 = 'UTF-8'
    CPL_ENC_UTF16 = 'UTF-16'
    CPL_ENC_UCS2 = 'UCS-2'
    CPL_ENC_UCS4 = 'UCS-4'
    CPL_ENC_ASCII = 'ASCII'
    CPL_ENC_ISO8859_1 = 'ISO-8859-1'

    typedef :string, :CPLString

    #------------------------------------------------------------------------
    # Enums
    #------------------------------------------------------------------------
    CPLValueType = enum :CPL_VALUE_STRING,
      :CPL_VALUE_REAL,
      :CPL_VALUE_INTEGER

    #------------------------------------------------------------------------
    # Functions
    #------------------------------------------------------------------------
    attach_function :CSLAddString, %i[pointer string], :pointer
    attach_function :CSLCount, %i[pointer], :int
    attach_function :CSLGetField, %i[pointer int], :string
    attach_function :CSLDestroy, %i[pointer], :void
    attach_function :CSLDuplicate, %i[pointer], :pointer
    attach_function :CSLMerge, %i[pointer pointer], :pointer
    attach_function :CSLTokenizeString, %i[string], :pointer
    attach_function :CSLTokenizeStringComplex,
      %i[string string int int],
      :pointer
    attach_function :CSLTokenizeString2, %i[string string int], :pointer
    attach_function :CSLPrint, %i[pointer pointer], :int
    attach_function :CSLLoad, %i[string], :pointer
    attach_function :CSLLoad2, %i[string int int pointer], :pointer
    attach_function :CSLSave, %i[pointer string], :int
    attach_function :CSLInsertStrings, %i[pointer int pointer], :pointer
    attach_function :CSLInsertString, %i[pointer int string], :pointer
    attach_function :CSLRemoveStrings, %i[pointer int int pointer], :pointer
    attach_function :CSLFindString, %i[pointer string], :int
    #attach_function :CSLFindStringCaseSensitive, %i[pointer string], :int
    attach_function :CSLPartialFindString, %i[pointer string], :int
    attach_function :CSLFindName, %i[pointer string], :int

    attach_function :CSLTestBoolean, %i[string], :int
    attach_function :CSLFetchBoolean, %i[pointer string int], :int

    attach_function :CPLSPrintf, %i[string varargs], :string
    attach_function :CSLAppendPrintf, %i[pointer string varargs], :pointer
    attach_function :CPLVASPrintf, %i[pointer string varargs], :pointer
    attach_function :CPLParseNameValue, %i[string pointer], :string

    attach_function :CSLFetchNameValue, %i[pointer string], :string
    attach_function :CSLFetchNameValueDef, %i[pointer string string], :string
    attach_function :CSLFetchNameValueMultiple, %i[pointer string], :pointer
    attach_function :CSLAddNameValue, %i[pointer string string], :pointer
    attach_function :CSLSetNameValue, %i[pointer string string], :pointer
    attach_function :CSLSetNameValueSeparator, %i[pointer string], :void

    attach_function :CPLEscapeString, %i[string int int], :string
    attach_function :CPLUnescapeString, %i[string pointer int], :string
    attach_function :CPLBinaryToHex, %i[int pointer], :string
    attach_function :CPLHexToBinary, %i[string pointer], :pointer
    #attach_function :CPLBase64Encode, %i[int pointer], :string
    #attach_function :CPLBase64DecodeInPlace, %i[pointer], :int

    attach_function :CPLGetValueType, %i[string], CPLValueType
    attach_function :CPLStrlcpy, %i[string string size_t], :size_t
    attach_function :CPLStrlcat, %i[string string size_t], :size_t
    attach_function :CPLStrnlen, %i[string size_t], :size_t
    #attach_function :CPLEncodingCharSize, %i[string], :int

    #attach_function :CPLClearRecodeWarningFlags, [], :void
    attach_function :CPLRecode, %i[string string string], :string
    attach_function :CPLRecodeFromWChar, %i[string string string], :string
    attach_function :CPLRecodeToWChar, %i[string string string], :string

    attach_function :CPLIsUTF8, %i[string int], :int
    attach_function :CPLForceToASCII, %i[string int char], :string
    #attach_function :CPLStrlenUTF8, %i[string], :int

    #attach_function :CPLOPrintf, %i[string varargs], :CPLString
    #attach_function :CPLOvPrintf, %i[string varargs], :CPLString
    #attach_function :CPLURLGetValue, %i[string string], :CPLString
    #attach_function :CPLURLAddKVP, %i[string string string], :CPLString
  end
end