Application: gvSIG desktop

package org.gvsig.fmap.dal.store.jdbc2.spi.operations;

import java.sql.Connection;

import java.sql.DatabaseMetaData;

import java.sql.ResultSet;

import java.sql.ResultSetMetaData;

import java.sql.SQLException;

import java.sql.Statement;

import java.util.ArrayList;

import java.util.List;

import org.apache.commons.collections.CollectionUtils;

import org.apache.commons.lang3.StringUtils;

import org.cresques.cts.IProjection;

import org.gvsig.expressionevaluator.ExpressionBuilder;

import org.gvsig.fmap.dal.DataTypes;

import org.gvsig.fmap.dal.exception.DataException;

import org.gvsig.fmap.dal.feature.EditableFeatureAttributeDescriptor;

import org.gvsig.fmap.dal.feature.EditableFeatureType;

import org.gvsig.fmap.dal.feature.FeatureAttributeDescriptor;

import org.gvsig.fmap.dal.store.jdbc2.spi.JDBCSQLBuilderBase;

import org.gvsig.fmap.dal.store.jdbc2.JDBCHelper;

import org.gvsig.fmap.dal.store.jdbc2.JDBCUtils;

import org.gvsig.fmap.dal.store.jdbc2.OperationsFactory.TableReference;

import org.gvsig.fmap.geom.Geometry;

import org.gvsig.fmap.geom.GeometryLocator;

import org.gvsig.fmap.geom.type.GeometryType;

import static org.gvsig.fmap.dal.store.jdbc2.spi.operations.AbstractConnectionOperation.LOGGER;

import org.gvsig.tools.dataTypes.DataType;

@SuppressWarnings("UseSpecificCatch")

public class FetchFeatureTypeOperation extends AbstractConnectionOperation {

    private final EditableFeatureType featureType;

    protected final TableReference table;

    private final List<String> primaryKeys;

    private final String defaultGeometryColumn;

    private final IProjection crs;

    public FetchFeatureTypeOperation(

            JDBCHelper helper

        ) {

        this(helper, null, null, null, null, null);

    }

    public FetchFeatureTypeOperation(

            JDBCHelper helper,

            EditableFeatureType featureType,

            String defaultGeometryColumn,

            IProjection crs

        ) {

        this(helper, featureType, null, null, defaultGeometryColumn, crs);

    }

    public FetchFeatureTypeOperation(

            JDBCHelper helper,

            EditableFeatureType featureType,

            TableReference table,

            List<String> primaryKeys,

            String defaultGeometryColumn,

            IProjection crs

        ) {

        super(helper);

        this.featureType = featureType;

        this.table = table;

        this.primaryKeys = primaryKeys;

        this.defaultGeometryColumn = defaultGeometryColumn;

        this.crs = crs;

    }

    @Override

    public final Object perform(Connection conn) throws DataException {

        this.fetch(conn);

        return true;

    }

    protected TableReference getTable() {

        return this.table;

    }

    public void fetch(Connection conn) throws DataException {

        List<String> pks = this.primaryKeys;

        Statement st = null;

        ResultSet rs = null;

        try {

            if (CollectionUtils.isEmpty(pks)) {

                if (table.hasSubquery()) {

                    LOGGER.info("Searching pk in a table with a subquery ("+table.toString()+".");

                }

                pks = this.getPrimaryKeysFromMetadata(conn, null, table.getSchema(), table.getTable());

                if (CollectionUtils.isEmpty(pks)) {

                    pks = getPrimaryKeysFromInformationSchema(conn);

                }

            }

            st = conn.createStatement();

            st.setFetchSize(1);

            rs = JDBCUtils.executeQuery(st, this.getSQLToRetrieveFirstRowOfTable());

            ResultSetMetaData rsMetadata = rs.getMetaData();

            fetchFeatureTypeFromMetadata(conn, rsMetadata, pks);

        } catch (SQLException ex) {

            throw new RuntimeException("Can't fecth feature type.",ex);

        } finally {

            JDBCUtils.closeQuietly(rs);

            JDBCUtils.closeQuietly(st);

        }

    }

    public String getSQLToRetrieveFirstRowOfTable() {

      JDBCSQLBuilderBase sqlbuilder = this.createSQLBuilder();

      sqlbuilder.select().column().all();

      sqlbuilder.select().from().table()

          .database(this.table.getDatabase())

          .schema(this.table.getSchema())

          .name(this.table.getTable());

      sqlbuilder.select().from().subquery(this.table.getSubquery());

      sqlbuilder.select().limit(1);

      String sql = sqlbuilder.toString();

      return sql;

    }

    public void fetchFeatureTypeFromMetadata(Connection conn, ResultSetMetaData rsMetadata) throws SQLException {

        this.fetchFeatureTypeFromMetadata(conn, rsMetadata, new ArrayList<String>());

    }

    protected void fetchFeatureTypeFromMetadata(Connection conn, ResultSetMetaData rsMetadata, List<String> pks) throws SQLException {

        int i;

        int geometriesColumns = 0;

        String lastGeometry = null;

        EditableFeatureAttributeDescriptor attr;

        boolean firstGeometryAttrFound = false;

        for (i = 1; i <= rsMetadata.getColumnCount(); i++) {

            attr = getAttributeFromMetadata(featureType, conn, rsMetadata, i);

            if ( isInPrimaryKeys(pks,attr) ) {

                attr.setIsPrimaryKey(true);

            }

            if (attr.getType() == DataTypes.GEOMETRY) {

                geometriesColumns++;

                lastGeometry = attr.getName();

                // Set the default geometry attribute if it is the one

                // given as parameter or it is the first one, just in case.

                if (!firstGeometryAttrFound || StringUtils.equalsIgnoreCase(lastGeometry, defaultGeometryColumn)) {

                    firstGeometryAttrFound = true;

                    featureType.setDefaultGeometryAttributeName(lastGeometry);

                }

            }

        }

        if (StringUtils.isBlank(defaultGeometryColumn)) {

            if (geometriesColumns == 1) {

                featureType.setDefaultGeometryAttributeName(lastGeometry);

            }

        } else if (!StringUtils.equalsIgnoreCase(defaultGeometryColumn, featureType.getDefaultGeometryAttributeName())) {

            EditableFeatureAttributeDescriptor geomattr = featureType.getEditableAttributeDescriptor(defaultGeometryColumn);

            if (geomattr.getDataType().getType() != DataTypes.GEOMETRY) {

                geomattr.setDataType(DataTypes.GEOMETRY);

                geomattr.setGeometryType(Geometry.TYPES.GEOMETRY, Geometry.SUBTYPES.GEOM2D);

            }

        }

        if (crs != null && featureType.getDefaultGeometryAttribute() != null) {

            ((EditableFeatureAttributeDescriptor) featureType.getDefaultGeometryAttribute()).setSRS(crs);

        }

    }

    protected boolean isInPrimaryKeys(List<String> pks, EditableFeatureAttributeDescriptor attr) {

        if( pks == null || attr == null ) {

            return false;

        }

        // En algunos gestores de BBDD, los nombres obtenidos de las pks de los 

        // metadados no coinciden con los nombres de los campos ya que unos estan

        // en mayusculas y otros en minusculas, asi que en lugar de usar un "contains"

        // nos los recorremos y comparamos con IgnoreCase.

        for (String pk : pks) {

            if( StringUtils.equalsIgnoreCase(pk, attr.getName()) ) {

                return true;

            }

        }

        return false;        

    }

    protected List<String> getPrimaryKeysFromMetadata(

            Connection conn,

            String catalog,

            String schema,

            String table) throws SQLException {

        ResultSet rsPrimaryKeys = null;

        ResultSet rs = null;

        try {

            DatabaseMetaData metadata = conn.getMetaData();

            rs = metadata.getTables(catalog, schema, table, null);

            if (!rs.next()) {

                // No tables found with default values, ignoring catalog

                rs.close();

                catalog = null;

                schema = null;

                rs = metadata.getTables(catalog, schema, table, null);

                if (!rs.next()) {

                    // table not found

                    return null;

                } else if (rs.next()) {

                    // More that one, cant identify

                    return null;

                }

            } else if (rs.next()) {

                // More that one, cant identify

                return null;

            }

            rsPrimaryKeys = metadata.getPrimaryKeys(catalog, schema, table);

            List pks = new ArrayList();

            while (rsPrimaryKeys.next()) {

                pks.add(rsPrimaryKeys.getString("COLUMN_NAME"));

            }

            return pks;

        } catch (SQLException e) {

            return null;

        } finally {

            JDBCUtils.closeQuietly(rs);

            JDBCUtils.closeQuietly(rsPrimaryKeys);

        }

    }

    protected List<String> getPrimaryKeysFromInformationSchema(Connection conn) throws SQLException {

        String sql = getSQLToRetrievePrimaryKeysFromInformationSchema();

        Statement st = null;

        ResultSet rs = null;

        List<String> pks = new ArrayList();

        try {

            st = conn.createStatement();

            rs = JDBCUtils.executeQuery(st, sql);

            while (rs.next()) {

                pks.add(rs.getString(1));

            }

            if (pks.isEmpty()) {

                return null;

            }

            return pks;

        } catch (Exception ex) {

            return pks;

        } finally {

            JDBCUtils.closeQuietly(rs);

            JDBCUtils.closeQuietly(st);

        }

    }

    public String getSQLToRetrievePrimaryKeysFromInformationSchema() throws SQLException {

        JDBCSQLBuilderBase sqlbuilder = this.createSQLBuilder();

        ExpressionBuilder expbuilder = sqlbuilder.expression();

        sqlbuilder.select().column().name("COLUMN_NAME");

        sqlbuilder.select().column().name("CONSTRAINT_TYPE");

        sqlbuilder.select().from().custom(

                "INFORMATION_SCHEMA.table_constraints t_cons "

                + "inner join INFORMATION_SCHEMA.key_column_usage c on "

                + "c.constraint_catalog = t_cons.constraint_catalog and "

                + "c.table_schema = t_cons.table_schema and "

                + "c.table_name = t_cons.table_name and "

                + "c.constraint_name = t_cons.constraint_name "

        );

        sqlbuilder.select().where().set(

                expbuilder.like(

                        expbuilder.custom("c.TABLE_NAME"), 

                        expbuilder.constant(table.getTable())

                )

        );

        if( table.hasSchema() ) {

            sqlbuilder.select().where().and(

                    expbuilder.like(

                            expbuilder.custom("c.TABLE_SCHEMA"),

                            expbuilder.constant(table.getSchema())

                    )

            );

        }

//        if (catalog != null) {

//            sqlbuilder.select().where().and(

//                    expbuilder.like(

//                            expbuilder.custom("c.CONSTRAINT_CATALOG"),

//                            expbuilder.constant(catalog)

//                    )

//            );

//        }

        sqlbuilder.select().where().and(

                expbuilder.eq(

                        expbuilder.column("CONSTRAINT_TYPE"),

                        expbuilder.constant("PRIMARY KEY")

                )

        );

        return sqlbuilder.toString();

    }

    protected EditableFeatureAttributeDescriptor getAttributeFromMetadata(

            EditableFeatureType type,

            Connection conn,

            ResultSetMetaData rsMetadata,

            int colIndex

        ) throws SQLException {

        EditableFeatureAttributeDescriptor attr = type.add(

                rsMetadata.getColumnName(colIndex),

                this.getDataTypeFromMetadata(rsMetadata, colIndex)

        );

        attr.setAllowNull(

            rsMetadata.isNullable(colIndex) == ResultSetMetaData.columnNullable

        );

        attr.setIsAutomatic(rsMetadata.isAutoIncrement(colIndex));

        attr.setIsReadOnly(rsMetadata.isReadOnly(colIndex));

        switch(attr.getType()) {

            case DataTypes.STRING:

              attr.setSize(rsMetadata.getPrecision(colIndex));

              attr.setPrecision(DataType.PRECISION_NONE);

              attr.setScale(DataType.SCALE_NONE);

              break;

            case DataTypes.BYTE:

              attr.setDisplaySize(rsMetadata.getColumnDisplaySize(colIndex));

              attr.setPrecision(DataType.BYTE_DEFAULT_PRECISION);

              attr.setScale(DataType.SCALE_NONE);

              break;

            case DataTypes.INT:

              attr.setDisplaySize(rsMetadata.getColumnDisplaySize(colIndex));

              attr.setPrecision(DataType.INT_DEFAULT_PRECISION);

              attr.setScale(DataType.SCALE_NONE);

              break;

            case DataTypes.LONG:

              attr.setDisplaySize(rsMetadata.getColumnDisplaySize(colIndex));

              attr.setPrecision(DataType.LONG_DEFAULT_PRECISION);

              attr.setScale(DataType.SCALE_NONE);

              break;

            case DataTypes.FLOAT:

              attr.setDisplaySize(rsMetadata.getColumnDisplaySize(colIndex));

              attr.setPrecision(DataType.FLOAT_DEFAULT_PRECISION);

              attr.setScale(DataType.SCALE_NONE);

              break;

            case DataTypes.DOUBLE:

              attr.setDisplaySize(rsMetadata.getColumnDisplaySize(colIndex));

              attr.setPrecision(DataType.DOUBLE_DEFAULT_PRECISION);

              attr.setScale(DataType.SCALE_NONE);

              break;

            case DataTypes.DECIMAL:

              attr.setDisplaySize(rsMetadata.getColumnDisplaySize(colIndex));

              attr.setScale(rsMetadata.getScale(colIndex));

              attr.setPrecision(rsMetadata.getPrecision(colIndex));

              break;

            case DataTypes.OBJECT:

                attr.setAdditionalInfo(

                        "SQLType",

                        rsMetadata.getColumnType(colIndex)

                );

                attr.setAdditionalInfo(

                        "SQLTypeName",

                        rsMetadata.getColumnTypeName(colIndex)

                );

                break;

            case DataTypes.GEOMETRY:

                this.fetchGeometryTypeAndSRS(attr, rsMetadata, colIndex);

                break;

        }

        return attr;

    }

    protected int getDataTypeFromMetadata(

            ResultSetMetaData rsMetadata,

            int colIndex

        ) throws SQLException {

        switch (rsMetadata.getColumnType(colIndex)) {

            case java.sql.Types.TINYINT:

                return DataTypes.BYTE;

            case java.sql.Types.SMALLINT:

            case java.sql.Types.INTEGER:

                return DataTypes.INT;

            case java.sql.Types.BIGINT:

                return DataTypes.LONG;

            case java.sql.Types.REAL:

            case java.sql.Types.FLOAT:

                return DataTypes.FLOAT;

            case java.sql.Types.DOUBLE:

                return DataTypes.DOUBLE;

            case java.sql.Types.NUMERIC:

            case java.sql.Types.DECIMAL:

                return DataTypes.DECIMAL;

            case java.sql.Types.CHAR:

            case java.sql.Types.VARCHAR:

            case java.sql.Types.LONGVARCHAR:

                return DataTypes.STRING;

            case java.sql.Types.DATE:

                return DataTypes.DATE;

            case java.sql.Types.TIME:

                return DataTypes.TIME;

            case java.sql.Types.TIMESTAMP:

                return DataTypes.TIMESTAMP;

            case java.sql.Types.BOOLEAN:

            case java.sql.Types.BIT:

                return DataTypes.BOOLEAN;

            case java.sql.Types.BLOB:

            case java.sql.Types.BINARY:

            case java.sql.Types.LONGVARBINARY:

                return DataTypes.BYTEARRAY;

            default:

                String typeName = rsMetadata.getColumnTypeName(colIndex);

                if( "geometry".equalsIgnoreCase(typeName) ) {

                    return DataTypes.GEOMETRY;

                }

                return DataTypes.OBJECT;

        }

    }

    /**

     * Inicializa el tipo, subtipo y SRS del attributo de tipo geometria.

     * 

     * @param attr

     * @param rsMetadata

     * @param colIndex 

     */

    protected void fetchGeometryTypeAndSRS(

            EditableFeatureAttributeDescriptor attr,

            ResultSetMetaData rsMetadata,

            int colIndex

        ) {

        if( attr.getType()!=DataTypes.GEOMETRY ) {

            return;

        }

        try {

            GeometryType geomType = GeometryLocator.getGeometryManager().getGeometryType(

                    Geometry.TYPES.GEOMETRY,

                    Geometry.SUBTYPES.GEOM2D

            );

            attr.setGeometryType(geomType);

            attr.setSRS((IProjection)null);

        } catch (Exception ex) {

            LOGGER.warn("Can't get default geometry type.",ex);

        }

    }

}