Introduce geo support (#154)

* minor comment note

* add identification for geo types

- geo_shape and _point are now recognized.

Author: bpintea

driver/connect.c

@@ -52,6 +52,9 @@
 #define TYPE_KEYWORD		"KEYWORD"
 /* 8 */
 #define TYPE_DATETIME		"DATETIME"
+/* 9 */
+#define TYPE_GEOSHAPE		"GEO_SHAPE"
+#define TYPE_GEOPOINT		"GEO_POINT"
 /* 10 */
 #define TYPE_HALF_FLOAT		"HALF_FLOAT"
 /* 11 */
@@ -1906,6 +1909,28 @@ static BOOL elastic_name2types(wstr_st *type_name,
 			}
 			break;
 
+		/* 9: GEO_POINT, GEO_SHAPE */
+		case sizeof(TYPE_GEOSHAPE) - 1:
+			switch (tolower(type_name->str[/*'GEO_x'*/4])) {
+				case (SQLWCHAR)'s':
+					if (! wmemncasecmp(type_name->str, MK_WPTR(TYPE_GEOSHAPE),
+							type_name->cnt)) {
+						*c_sql = ES_GEO_TO_CSQL;
+						*sql = ES_GEO_TO_SQL;
+						return TRUE;
+					}
+					break;
+				case (SQLWCHAR)'p':
+					if (! wmemncasecmp(type_name->str, MK_WPTR(TYPE_GEOPOINT),
+							type_name->cnt)) {
+						*c_sql = ES_GEO_TO_CSQL;
+						*sql = ES_GEO_TO_SQL;
+						return TRUE;
+					}
+					break;
+			}
+			break;
+
 		/* 10: HALF_FLOAT */
 		case sizeof(TYPE_HALF_FLOAT) - 1:
 			if (! wmemncasecmp(type_name->str, MK_WPTR(TYPE_HALF_FLOAT),
@@ -2195,7 +2220,8 @@ static void *copy_types_rows(esodbc_dbc_st *dbc, estype_row_st *type_row,
 		 * apply any needed fixes
 		 */
 
-		/* notify if scales extremes are different */
+		/* notify if scales extremes are different, since ES/SQL makes use of
+		 * fixed types only. */
 		if (types[i].maximum_scale != types[i].minimum_scale) {
 			INFOH(dbc, "type `" LWPDL "` returned with non-equal max/min "
 				"scale: %d/%d -- using the max.", LWSTR(&types[i].type_name),
@@ -2220,6 +2246,10 @@ static void *copy_types_rows(esodbc_dbc_st *dbc, estype_row_st *type_row,
 		if (types[i].data_type == ESODBC_SQL_BOOLEAN) {
 			types[i].data_type = ES_BOOLEAN_TO_SQL;
 		}
+		/* GEO (SHAPE, POINT) types are WKT encodings */
+		if (types[i].data_type == ESODBC_SQL_GEO) {
+			types[i].data_type = ES_GEO_TO_SQL;
+		}
 
 		/* .data_type is used in data conversions -> make sure the SQL type
 		 * derived from type's name is the same with type reported value */
@@ -2962,6 +2992,9 @@ SQLRETURN EsSQLSetConnectAttrW(
 			RET_HDIAGS(dbc, SQL_STATE_HYC00);
 
 #ifndef NDEBUG
+		/* MicroStrategy Desktop invoked */
+		case 1041:
+		case 1042:
 		/* MS Access/Jet proprietary info type */
 		case 30002:
 			ERRH(dbc, "unsupported info type.");

driver/connect.h

@@ -71,6 +71,10 @@
 /*
  * ES-non mappable
  */
+/* 114: ??? -> SQL_C_WCHAR */
+#define ES_GEO_TO_CSQL			SQL_C_WCHAR /* XXX: CBOR needs _CHAR */
+#define ES_GEO_TO_SQL			SQL_VARCHAR
+
 /* 1111: ??? -> SQL_C_BINARY */
 #define ES_UNSUPPORTED_TO_CSQL	SQL_C_BINARY
 #define ES_UNSUPPORTED_TO_SQL	ESODBC_SQL_UNSUPPORTED

driver/defs.h

@@ -391,6 +391,7 @@
  * ES specific data types
  */
 #define ESODBC_SQL_BOOLEAN			16
+#define ESODBC_SQL_GEO				114
 #define ESODBC_SQL_NULL				0
 #define ESODBC_SQL_UNSUPPORTED		1111
 #define ESODBC_SQL_OBJECT			2002

driver/queries.c

@@ -1610,7 +1610,8 @@ static esodbc_estype_st *match_es_type(esodbc_rec_st *arec,
 		}
 	}
 
-	/* app specified an SQL type with no direct mapping to an ES/SQL type */
+	/* app specified an SQL type with no direct mapping to an ES/SQL type
+	 * TODO: IP, GEO? */
 	switch (irec->meta_type) {
 		case METATYPE_EXACT_NUMERIC:
 			assert(irec->concise_type == SQL_DECIMAL ||