/*
   Copyright (c) 2016 James Ahlborn
   
   Licensed under the Apache License, Version 2.0 (the "License");
   you may not use this file except in compliance with the License.
   You may obtain a copy of the License at
   
       http://www.apache.org/licenses/LICENSE-2.0
   
  Unless required by applicable law or agreed to in writing, software
  distributed under the License is distributed on an "AS IS" BASIS,
  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
  See the License for the specific language governing permissions and
  limitations under the License.
  */
  
  package com.healthmarketscience.jackcess.impl;
  
  import java.io.IOException;
  import java.util.ArrayList;
  import java.util.Collection;
  import java.util.HashSet;
  import java.util.List;
  import java.util.Set;
  
  import com.healthmarketscience.jackcess.ConstraintViolationException;
  import com.healthmarketscience.jackcess.IndexBuilder;
  import com.healthmarketscience.jackcess.IndexCursor;
  import com.healthmarketscience.jackcess.RelationshipBuilder;
  import com.healthmarketscience.jackcess.Row;
  
  /**
   * Helper class used to maintain state during relationship creation.
   *
   * @author James Ahlborn
   */
  public class RelationshipCreator extends DBMutator
  {
    private final static int CASCADE_FLAGS =
      RelationshipImpl.CASCADE_DELETES_FLAG |
      RelationshipImpl.CASCADE_UPDATES_FLAG |
      RelationshipImpl.CASCADE_NULL_FLAG;
  
    // for the purposes of choosing a backing index for a foreign key, there are
    // certain index flags that can be ignored (we don't care how they are set)
    private final static byte IGNORED_PRIMARY_INDEX_FLAGS =
      IndexData.IGNORE_NULLS_INDEX_FLAG | IndexData.REQUIRED_INDEX_FLAG;
    private final static byte IGNORED_SECONDARY_INDEX_FLAGS =
      IGNORED_PRIMARY_INDEX_FLAGS | IndexData.UNIQUE_INDEX_FLAG;
  
    private TableImpl _primaryTable;
    private TableImpl _secondaryTable;
    private RelationshipBuilder _relationship;
    private List<ColumnImpl> _primaryCols;
    private List<ColumnImpl> _secondaryCols;
    private int _flags;
    private String _name;
  
    public RelationshipCreator(DatabaseImpl database)
    {
      super(database);
    }
  
    public String getName() {
      return _name;
    }
  
    public TableImpl getPrimaryTable() {
      return _primaryTable;
    }
  
    public TableImpl getSecondaryTable() {
      return _secondaryTable;
    }
  
    public boolean hasReferentialIntegrity() {
      return _relationship.hasReferentialIntegrity();
    }
  
    public RelationshipImpl createRelationshipImpl(String name) {
      _name = name;
      return new RelationshipImpl(
          name, _primaryTable, _secondaryTable, _flags,
          _primaryCols, _secondaryCols);
    }
  
    /**
     * Creates the relationship in the database.
     * @usage _advanced_method_
     */
    public RelationshipImpl createRelationship(RelationshipBuilder relationship)
      throws IOException
    {
      _relationship = relationship;
      _name = relationship.getName();
  
      validate();
  
      _flags = _relationship.getFlags();
     // need to determine the one-to-one flag on our own
     if(isOneToOne()) {
       _flags |= RelationshipImpl.ONE_TO_ONE_FLAG;
     }
 
     getPageChannel().startExclusiveWrite();
     try {
 
       RelationshipImpl newRel = getDatabase().writeRelationship(this);
 
       if(hasReferentialIntegrity()) {
         // each index carries the number of the other one, so both numbers
         // are worked out before either index is added.  a table related to
         // itself takes both of them, one slot apart, and ms access writes
         // the secondary one first
         int secondaryIdxNum = _secondaryTable.getLogicalIndexCount();
         int primaryIdxNum = _primaryTable.getLogicalIndexCount() +
           (isSameTable() ? 1 : 0);
         addSecondaryIndex(primaryIdxNum);
         addPrimaryIndex(secondaryIdxNum);
       }
 
       return newRel;
 
     } finally {
       getPageChannel().finishWrite();
     }
   }
 
   private boolean isSameTable() {
     return (_primaryTable.getTableDefPageNumber() ==
             _secondaryTable.getTableDefPageNumber());
   }
 
   private void addPrimaryIndex(int secondaryIdxNum) throws IOException {
     TableUpdaterpl/TableUpdater.html#TableUpdater">TableUpdater updater = new TableUpdater(_primaryTable);
     updater.setForeignKey(createFKReference(true, secondaryIdxNum));
     updater.addIndex(createPrimaryIndex(), true,
                      IGNORED_PRIMARY_INDEX_FLAGS, (byte)0);
   }
 
   private void addSecondaryIndex(int primaryIdxNum) throws IOException {
     TableUpdaterpl/TableUpdater.html#TableUpdater">TableUpdater updater = new TableUpdater(_secondaryTable);
     updater.setForeignKey(createFKReference(false, primaryIdxNum));
     updater.addIndex(createSecondaryIndex(), true,
                      IGNORED_SECONDARY_INDEX_FLAGS, (byte)0);
   }
 
   private IndexImpl.ForeignKeyReference createFKReference(
       boolean isPrimary, int otherIdxNum) {
     byte tableType = 0;
     int otherTableNum = 0;
     if(isPrimary) {
       tableType = IndexImpl.FK_PRIMARY_TABLE_TYPE;
       otherTableNum = _secondaryTable.getTableDefPageNumber();
     } else {
       tableType = IndexImpl.FK_SECONDARY_TABLE_TYPE;
       otherTableNum = _primaryTable.getTableDefPageNumber();
     }
     boolean cascadeUpdates = ((_flags & RelationshipImpl.CASCADE_UPDATES_FLAG) != 0);
     boolean cascadeDeletes = ((_flags & RelationshipImpl.CASCADE_DELETES_FLAG) != 0);
     boolean cascadeNull = ((_flags & RelationshipImpl.CASCADE_NULL_FLAG) != 0);
 
     return new IndexImpl.ForeignKeyReference(
         tableType, otherIdxNum, otherTableNum, cascadeUpdates, cascadeDeletes,
         cascadeNull);
   }
 
   private void validate() throws IOException {
 
     _primaryTable = getDatabase().getTable(_relationship.getFromTable());
     _secondaryTable = getDatabase().getTable(_relationship.getToTable());
 
     if((_primaryTable == null) || (_secondaryTable == null)) {
       throw new IllegalArgumentException(withErrorContext(
           "Two valid tables are required in relationship"));
     }
 
     if(_name != null) {
       DatabaseImpl.validateIdentifierName(
           _name, _primaryTable.getFormat().MAX_INDEX_NAME_LENGTH, "relationship");
     }
 
     _primaryCols = getColumns(_primaryTable, _relationship.getFromColumns());
     _secondaryCols = getColumns(_secondaryTable, _relationship.getToColumns());
 
     if((_primaryCols == null) || (_primaryCols.isEmpty()) ||
        (_secondaryCols == null) || (_secondaryCols.isEmpty())) {
       throw new IllegalArgumentException(withErrorContext(
           "Missing columns in relationship"));
     }
 
     if(_primaryCols.size() != _secondaryCols.size()) {
       throw new IllegalArgumentException(withErrorContext(
           "Must have same number of columns on each side of relationship"));
     }
 
     for(int i = 0; i < _primaryCols.size(); ++i) {
       ColumnImpl pcol = _primaryCols.get(i);
       ColumnImpl scol = _secondaryCols.get(i);
 
       if(pcol.getType() != scol.getType()) {
         throw new IllegalArgumentException(withErrorContext(
             "Matched columns must have the same data type"));
       }
     }
 
     if(!hasReferentialIntegrity()) {
 
       if((_relationship.getFlags() & CASCADE_FLAGS) != 0) {
         throw new IllegalArgumentException(withErrorContext(
             "Cascade flags cannot be enabled if referential integrity is not enforced"));
       }
 
       return;
     }
 
     // for now, we will require the unique index on the primary table (just
     // like access does).  we could just create it auto-magically...
     IndexImpl primaryIdx = getUniqueIndex(_primaryTable, _primaryCols);
     if(primaryIdx == null) {
       throw new IllegalArgumentException(withErrorContext(
           "Missing unique index on primary table required to enforce integrity"));
     }
 
     // while relationships can have "dupe" columns, indexes (and therefore
     // integrity enforced relationships) cannot
     if((new HashSet<String>(getColumnNames(_primaryCols)).size() !=
         _primaryCols.size()) ||
        (new HashSet<String>(getColumnNames(_secondaryCols)).size() !=
         _secondaryCols.size())) {
       throw new IllegalArgumentException(withErrorContext(
           "Cannot have duplicate columns in an integrity enforced relationship"));
     }
 
     // a table can be related to itself, but access refuses to enforce
     // integrity where a column is matched against itself, which every row
     // satisfies by supplying its own match
     if(isSameTable()) {
       for(int i = 0; i < _primaryCols.size(); ++i) {
         if(_primaryCols.get(i).getName().equalsIgnoreCase(
                _secondaryCols.get(i).getName())) {
           throw new IllegalArgumentException(withErrorContext(
               "Cannot enforce integrity on column " +
               _primaryCols.get(i).getName() + " matched against itself"));
         }
       }
     }
 
     // TODO: future, check for enforce cycles?
 
     // check referential integrity
     IndexCursor primaryCursor = primaryIdx.newCursor().toIndexCursor();
     Object[] entryValues = new Object[_secondaryCols.size()];
     for(Row row : _secondaryTable.newCursor().toCursor()
           .newIterable().addColumns(_secondaryCols)) {
       // grab the secondary table values
       boolean hasValues = false;
       for(int i = 0; i < _secondaryCols.size(); ++i) {
         entryValues[i] = _secondaryCols.get(i).getRowValue(row);
         hasValues = hasValues || (entryValues[i] != null);
       }
 
       if(!hasValues) {
         // we can ignore null entries
         continue;
       }
 
       // check that they exist in the primary table
       if(!primaryCursor.findFirstRowByEntry(entryValues)) {
         throw new ConstraintViolationException(withErrorContext(
             "Integrity constraint violation found for relationship"));
       }
     }
 
   }
 
   private IndexBuilder createPrimaryIndex() {
     String name = createPrimaryIndexName();
     return createIndex(name, _primaryCols)
       .setUnique()
       .setType(IndexImpl.FOREIGN_KEY_INDEX_TYPE);
   }
 
   private IndexBuilder createSecondaryIndex() {
     // secondary index uses relationship name
     return createIndex(_name, _secondaryCols)
       .setType(IndexImpl.FOREIGN_KEY_INDEX_TYPE);
   }
 
   private static IndexBuilder createIndex(String name, List<ColumnImpl> cols) {
     IndexBuilders/IndexBuilder.html#IndexBuilder">IndexBuilder idx = new IndexBuilder(name);
     for(ColumnImpl col : cols) {
       idx.addColumns(col.getName());
     }
     return idx;
   }
 
   private String createPrimaryIndexName() {
     Set<String> idxNames = TableUpdater.getIndexNames(_primaryTable, null);
 
     // primary naming scheme: ".rB", .rC", ".rD", "rE" ...
     String baseName = ".r";
     String suffix = "B";
 
     while(true) {
       String idxName = baseName + suffix;
       if(!idxNames.contains(DatabaseImpl.toLookupName(idxName))) {
         return idxName;
       }
 
       char c = (char)(suffix.charAt(0) + 1);
       if(c == '[') {
         c = 'a';
       }
       suffix = "" + c;
     }
   }
 
   private static List<ColumnImpl> getColumns(TableImpl table,
                                              List<String> colNames) {
     List<ColumnImpl> cols = new ArrayList<>();
     for(String colName : colNames) {
       cols.add(table.getColumn(colName));
     }
     return cols;
   }
 
   private static List<String> getColumnNames(List<ColumnImpl> cols) {
     List<String> colNames = new ArrayList<>();
     for(ColumnImpl col : cols) {
       colNames.add(col.getName());
     }
     return colNames;
   }
 
   private boolean isOneToOne() {
     // a relationship is one to one if the two sides of the relationship have
     // unique indexes on the relevant columns
     if(getUniqueIndex(_primaryTable, _primaryCols) == null) {
       return false;
     }
     IndexImpl idx = getUniqueIndex(_secondaryTable, _secondaryCols);
     return (idx != null);
   }
 
   private static IndexImpl getUniqueIndex(
       TableImpl table, List<ColumnImpl> cols) {
     return table.findIndexForColumns(getColumnNames(cols),
                                      TableImpl.IndexFeature.EXACT_UNIQUE_ONLY);
   }
 
   private static String getTableErrorContext(
       TableImpl table, List<ColumnImpl> cols,
       String tableName, Collection<String> colNames) {
     if(table != null) {
       tableName = table.getName();
     }
     if(cols != null) {
       colNames = getColumnNames(cols);
     }
 
     return ToStringBuilder.valueBuilder(tableName)
       .append(null, colNames)
       .toString();
   }
 
   private String withErrorContext(String msg) {
     return msg + "(Rel=" +
       getTableErrorContext(_primaryTable, _primaryCols,
                            _relationship.getFromTable(),
                            _relationship.getFromColumns()) + " -> " +
       getTableErrorContext(_secondaryTable, _secondaryCols,
                            _relationship.getToTable(),
                            _relationship.getToColumns()) + ")";
   }
 }