/*
 * Copyright (c) 2019 TAOS Data, Inc. <jhtao@taosdata.com>
 *
 * This program is free software: you can use, redistribute, and/or modify
 * it under the terms of the GNU Affero General Public License, version 3
 * or later ("AGPL"), as published by the Free Software Foundation.
 *
 * This program is distributed in the hope that it will be useful, but WITHOUT
 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
 * FITNESS FOR A PARTICULAR PURPOSE.
 *
 * You should have received a copy of the GNU Affero General Public License
 * along with this program. If not, see <http://www.gnu.org/licenses/>.
 */

#include "tsdbUtil2.h"

// SDelBlock ----------
void tTombBlockInit(STombBlock *tombBlock) {
  tombBlock->numOfRecords = 0;
  for (int32_t i = 0; i < TOMB_RECORD_ELEM_NUM; ++i) {
    tBufferInit(&tombBlock->buffers[i]);
  }
  return;
}

void tTombBlockDestroy(STombBlock *tombBlock) {
  tombBlock->numOfRecords = 0;
  for (int32_t i = 0; i < TOMB_RECORD_ELEM_NUM; ++i) {
    tBufferDestroy(&tombBlock->buffers[i]);
  }
}

void tTombBlockClear(STombBlock *tombBlock) {
  tombBlock->numOfRecords = 0;
  for (int32_t i = 0; i < TOMB_RECORD_ELEM_NUM; ++i) {
    tBufferClear(&tombBlock->buffers[i]);
  }
}

int32_t tTombBlockPut(STombBlock *tombBlock, const STombRecord *record) {
  for (int32_t i = 0; i < TOMB_RECORD_ELEM_NUM; ++i) {
    TAOS_CHECK_RETURN(tBufferPutI64(&tombBlock->buffers[i], record->data[i]));
  }
  tombBlock->numOfRecords++;
  return 0;
}

int32_t tTombBlockGet(STombBlock *tombBlock, int32_t idx, STombRecord *record) {
  if (idx < 0 || idx >= tombBlock->numOfRecords) {
    return TSDB_CODE_OUT_OF_RANGE;
  }

  for (int32_t i = 0; i < TOMB_RECORD_ELEM_NUM; ++i) {
    SBufferReader br = BUFFER_READER_INITIALIZER(sizeof(int64_t) * idx, &tombBlock->buffers[i]);
    TAOS_CHECK_RETURN(tBufferGetI64(&br, &record->data[i]));
  }
  return 0;
}

int32_t tTombRecordCompare(const STombRecord *r1, const STombRecord *r2) {
  if (r1->suid < r2->suid) return -1;
  if (r1->suid > r2->suid) return 1;
  if (r1->uid < r2->uid) return -1;
  if (r1->uid > r2->uid) return 1;
  if (r1->version < r2->version) return -1;
  if (r1->version > r2->version) return 1;
  return 0;
}

// STbStatisBlock ----------
int32_t tStatisBlockInit(STbStatisBlock *statisBlock) {
  int32_t code = 0;

  statisBlock->numOfPKs = 0;
  statisBlock->numOfRecords = 0;
  for (int32_t i = 0; i < ARRAY_SIZE(statisBlock->buffers); ++i) {
    tBufferInit(&statisBlock->buffers[i]);
  }
  for (int32_t i = 0; i < TD_MAX_PK_COLS; ++i) {
    TAOS_CHECK_GOTO(tValueColumnInit(&statisBlock->firstKeyPKs[i]), NULL, _exit);
    TAOS_CHECK_GOTO(tValueColumnInit(&statisBlock->lastKeyPKs[i]), NULL, _exit);
  }

_exit:
  if (code) {
    tStatisBlockDestroy(statisBlock);
  }
  return code;
}

void tStatisBlockDestroy(STbStatisBlock *statisBlock) {
  statisBlock->numOfPKs = 0;
  statisBlock->numOfRecords = 0;
  for (int32_t i = 0; i < ARRAY_SIZE(statisBlock->buffers); ++i) {
    TAOS_UNUSED(tBufferDestroy(&statisBlock->buffers[i]));
  }
  for (int32_t i = 0; i < TD_MAX_PK_COLS; ++i) {
    TAOS_UNUSED(tValueColumnDestroy(&statisBlock->firstKeyPKs[i]));
    TAOS_UNUSED(tValueColumnDestroy(&statisBlock->lastKeyPKs[i]));
  }
}

int32_t tStatisBlockClear(STbStatisBlock *statisBlock) {
  statisBlock->numOfPKs = 0;
  statisBlock->numOfRecords = 0;
  for (int32_t i = 0; i < ARRAY_SIZE(statisBlock->buffers); ++i) {
    TAOS_UNUSED(tBufferClear(&statisBlock->buffers[i]));
  }
  for (int32_t i = 0; i < TD_MAX_PK_COLS; ++i) {
    TAOS_UNUSED(tValueColumnClear(&statisBlock->firstKeyPKs[i]));
    TAOS_UNUSED(tValueColumnClear(&statisBlock->lastKeyPKs[i]));
  }
  return 0;
}

static int32_t tStatisBlockAppend(STbStatisBlock *block, SRowInfo *row) {
  STsdbRowKey key;

  tsdbRowGetKey(&row->row, &key);
  if (block->numOfRecords == 0) {
    block->numOfPKs = key.key.numOfPKs;
  } else if (block->numOfPKs != key.key.numOfPKs) {
    return TSDB_CODE_INVALID_PARA;
  } else {
    for (int i = 0; i < block->numOfPKs; i++) {
      if (key.key.pks[i].type != block->firstKeyPKs[i].type) {
        return TSDB_CODE_INVALID_PARA;
      }
    }
  }

  TAOS_CHECK_RETURN(tBufferPutI64(&block->suids, row->suid));
  TAOS_CHECK_RETURN(tBufferPutI64(&block->uids, row->uid));
  TAOS_CHECK_RETURN(tBufferPutI64(&block->firstKeyTimestamps, key.key.ts));
  TAOS_CHECK_RETURN(tBufferPutI64(&block->lastKeyTimestamps, key.key.ts));
  TAOS_CHECK_RETURN(tBufferPutI64(&block->counts, 1));
  for (int32_t i = 0; i < block->numOfPKs; ++i) {
    TAOS_CHECK_RETURN(tValueColumnAppend(block->firstKeyPKs + i, key.key.pks + i));
    TAOS_CHECK_RETURN(tValueColumnAppend(block->lastKeyPKs + i, key.key.pks + i));
  }

  block->numOfRecords++;
  return 0;
}

static int32_t tStatisBlockUpdate(STbStatisBlock *block, SRowInfo *row) {
  STbStatisRecord record;
  STsdbRowKey     key;
  int32_t         c;

  TAOS_CHECK_RETURN(tStatisBlockGet(block, block->numOfRecords - 1, &record));
  tsdbRowGetKey(&row->row, &key);

  c = tRowKeyCompare(&record.lastKey, &key.key);
  if (c == 0) {
    return 0;
  } else if (c < 0) {
    // last ts
    TAOS_CHECK_RETURN(tBufferPutAt(&block->lastKeyTimestamps, (block->numOfRecords - 1) * sizeof(record.lastKey.ts),
                                   &key.key.ts, sizeof(key.key.ts)));

    // last primary keys
    for (int i = 0; i < block->numOfPKs; i++) {
      TAOS_CHECK_RETURN(tValueColumnUpdate(&block->lastKeyPKs[i], block->numOfRecords - 1, &key.key.pks[i]));
    }

    // count
    record.count++;
    TAOS_CHECK_RETURN(tBufferPutAt(&block->counts, (block->numOfRecords - 1) * sizeof(record.count), &record.count,
                                   sizeof(record.count)));
  } else {
    return TSDB_CODE_INVALID_PARA;
  }

  return 0;
}

int32_t tStatisBlockPut(STbStatisBlock *block, SRowInfo *row, int32_t maxRecords) {
  if (block->numOfRecords > 0) {
    int64_t       lastUid;
    SBufferReader br = BUFFER_READER_INITIALIZER(sizeof(int64_t) * (block->numOfRecords - 1), &block->uids);
    TAOS_CHECK_RETURN(tBufferGetI64(&br, &lastUid));

    if (lastUid == row->uid) {
      return tStatisBlockUpdate(block, row);
    } else if (block->numOfRecords >= maxRecords) {
      return TSDB_CODE_INVALID_PARA;
    }
  }
  return tStatisBlockAppend(block, row);
}

int32_t tStatisBlockGet(STbStatisBlock *statisBlock, int32_t idx, STbStatisRecord *record) {
  SBufferReader reader;

  if (idx < 0 || idx >= statisBlock->numOfRecords) {
    return TSDB_CODE_OUT_OF_RANGE;
  }

  reader = BUFFER_READER_INITIALIZER(idx * sizeof(record->suid), &statisBlock->suids);
  TAOS_CHECK_RETURN(tBufferGetI64(&reader, &record->suid));

  reader = BUFFER_READER_INITIALIZER(idx * sizeof(record->uid), &statisBlock->uids);
  TAOS_CHECK_RETURN(tBufferGetI64(&reader, &record->uid));

  reader = BUFFER_READER_INITIALIZER(idx * sizeof(record->firstKey.ts), &statisBlock->firstKeyTimestamps);
  TAOS_CHECK_RETURN(tBufferGetI64(&reader, &record->firstKey.ts));

  reader = BUFFER_READER_INITIALIZER(idx * sizeof(record->lastKey.ts), &statisBlock->lastKeyTimestamps);
  TAOS_CHECK_RETURN(tBufferGetI64(&reader, &record->lastKey.ts));

  reader = BUFFER_READER_INITIALIZER(idx * sizeof(record->count), &statisBlock->counts);
  TAOS_CHECK_RETURN(tBufferGetI64(&reader, &record->count));

  // primary keys
  for (record->firstKey.numOfPKs = 0; record->firstKey.numOfPKs < statisBlock->numOfPKs; record->firstKey.numOfPKs++) {
    TAOS_CHECK_RETURN(tValueColumnGet(&statisBlock->firstKeyPKs[record->firstKey.numOfPKs], idx,
                                      &record->firstKey.pks[record->firstKey.numOfPKs]));
  }

  for (record->lastKey.numOfPKs = 0; record->lastKey.numOfPKs < statisBlock->numOfPKs; record->lastKey.numOfPKs++) {
    TAOS_CHECK_RETURN(tValueColumnGet(&statisBlock->lastKeyPKs[record->lastKey.numOfPKs], idx,
                                      &record->lastKey.pks[record->lastKey.numOfPKs]));
  }

  return 0;
}

// SBrinRecord ----------
int32_t tBrinBlockInit(SBrinBlock *brinBlock) {
  int32_t code;

  brinBlock->numOfPKs = 0;
  brinBlock->numOfRecords = 0;
  for (int32_t i = 0; i < ARRAY_SIZE(brinBlock->buffers); ++i) {
    tBufferInit(&brinBlock->buffers[i]);
  }
  for (int32_t i = 0; i < TD_MAX_PK_COLS; ++i) {
    TAOS_CHECK_GOTO(tValueColumnInit(&brinBlock->firstKeyPKs[i]), NULL, _exit);
    TAOS_CHECK_GOTO(tValueColumnInit(&brinBlock->lastKeyPKs[i]), NULL, _exit);
  }

_exit:
  if (code) {
    tBrinBlockDestroy(brinBlock);
  }
  return code;
}

void tBrinBlockDestroy(SBrinBlock *brinBlock) {
  brinBlock->numOfPKs = 0;
  brinBlock->numOfRecords = 0;
  for (int32_t i = 0; i < ARRAY_SIZE(brinBlock->buffers); ++i) {
    TAOS_UNUSED(tBufferDestroy(&brinBlock->buffers[i]));
  }
  for (int32_t i = 0; i < TD_MAX_PK_COLS; ++i) {
    TAOS_UNUSED(tValueColumnDestroy(&brinBlock->firstKeyPKs[i]));
    TAOS_UNUSED(tValueColumnDestroy(&brinBlock->lastKeyPKs[i]));
  }
}

void tBrinBlockClear(SBrinBlock *brinBlock) {
  brinBlock->numOfPKs = 0;
  brinBlock->numOfRecords = 0;
  for (int32_t i = 0; i < ARRAY_SIZE(brinBlock->buffers); ++i) {
    TAOS_UNUSED(tBufferClear(&brinBlock->buffers[i]));
  }
  for (int32_t i = 0; i < TD_MAX_PK_COLS; ++i) {
    TAOS_UNUSED(tValueColumnClear(&brinBlock->firstKeyPKs[i]));
    TAOS_UNUSED(tValueColumnClear(&brinBlock->lastKeyPKs[i]));
  }
}

int32_t tBrinBlockPut(SBrinBlock *brinBlock, const SBrinRecord *record) {
  if (record->firstKey.key.numOfPKs != record->lastKey.key.numOfPKs) {
    return TSDB_CODE_INVALID_PARA;
  }

  if (brinBlock->numOfRecords == 0) {  // the first row
    brinBlock->numOfPKs = record->firstKey.key.numOfPKs;
  } else if (brinBlock->numOfPKs != record->firstKey.key.numOfPKs) {
    // if the number of primary keys are not the same,
    // return an error code and the caller should handle it
    return TSDB_CODE_INVALID_PARA;
  } else {
    for (int i = 0; i < brinBlock->numOfPKs; i++) {
      if (record->firstKey.key.pks[i].type != brinBlock->firstKeyPKs[i].type) {
        return TSDB_CODE_INVALID_PARA;
      }
    }
  }

  TAOS_CHECK_RETURN(tBufferPutI64(&brinBlock->suids, record->suid));
  TAOS_CHECK_RETURN(tBufferPutI64(&brinBlock->uids, record->uid));
  TAOS_CHECK_RETURN(tBufferPutI64(&brinBlock->firstKeyTimestamps, record->firstKey.key.ts));
  TAOS_CHECK_RETURN(tBufferPutI64(&brinBlock->firstKeyVersions, record->firstKey.version));
  TAOS_CHECK_RETURN(tBufferPutI64(&brinBlock->lastKeyTimestamps, record->lastKey.key.ts));
  TAOS_CHECK_RETURN(tBufferPutI64(&brinBlock->lastKeyVersions, record->lastKey.version));
  TAOS_CHECK_RETURN(tBufferPutI64(&brinBlock->minVers, record->minVer));
  TAOS_CHECK_RETURN(tBufferPutI64(&brinBlock->maxVers, record->maxVer));
  TAOS_CHECK_RETURN(tBufferPutI64(&brinBlock->blockOffsets, record->blockOffset));
  TAOS_CHECK_RETURN(tBufferPutI64(&brinBlock->smaOffsets, record->smaOffset));
  TAOS_CHECK_RETURN(tBufferPutI32(&brinBlock->blockSizes, record->blockSize));
  TAOS_CHECK_RETURN(tBufferPutI32(&brinBlock->blockKeySizes, record->blockKeySize));
  TAOS_CHECK_RETURN(tBufferPutI32(&brinBlock->smaSizes, record->smaSize));
  TAOS_CHECK_RETURN(tBufferPutI32(&brinBlock->numRows, record->numRow));
  TAOS_CHECK_RETURN(tBufferPutI32(&brinBlock->counts, record->count));

  if (brinBlock->numOfPKs > 0) {
    for (int32_t i = 0; i < brinBlock->numOfPKs; ++i) {
      TAOS_CHECK_RETURN(tValueColumnAppend(&brinBlock->firstKeyPKs[i], &record->firstKey.key.pks[i]));
    }

    for (int32_t i = 0; i < brinBlock->numOfPKs; ++i) {
      TAOS_CHECK_RETURN(tValueColumnAppend(&brinBlock->lastKeyPKs[i], &record->lastKey.key.pks[i]));
    }
  }

  brinBlock->numOfRecords++;

  return 0;
}

int32_t tBrinBlockGet(SBrinBlock *brinBlock, int32_t idx, SBrinRecord *record) {
  SBufferReader reader;

  if (idx < 0 || idx >= brinBlock->numOfRecords) {
    return TSDB_CODE_OUT_OF_RANGE;
  }

  reader = BUFFER_READER_INITIALIZER(idx * sizeof(int64_t), &brinBlock->suids);
  TAOS_CHECK_RETURN(tBufferGetI64(&reader, &record->suid));

  reader = BUFFER_READER_INITIALIZER(idx * sizeof(int64_t), &brinBlock->uids);
  TAOS_CHECK_RETURN(tBufferGetI64(&reader, &record->uid));

  reader = BUFFER_READER_INITIALIZER(idx * sizeof(int64_t), &brinBlock->firstKeyTimestamps);
  TAOS_CHECK_RETURN(tBufferGetI64(&reader, &record->firstKey.key.ts));

  reader = BUFFER_READER_INITIALIZER(idx * sizeof(int64_t), &brinBlock->firstKeyVersions);
  TAOS_CHECK_RETURN(tBufferGetI64(&reader, &record->firstKey.version));

  reader = BUFFER_READER_INITIALIZER(idx * sizeof(int64_t), &brinBlock->lastKeyTimestamps);
  TAOS_CHECK_RETURN(tBufferGetI64(&reader, &record->lastKey.key.ts));

  reader = BUFFER_READER_INITIALIZER(idx * sizeof(int64_t), &brinBlock->lastKeyVersions);
  TAOS_CHECK_RETURN(tBufferGetI64(&reader, &record->lastKey.version));

  reader = BUFFER_READER_INITIALIZER(idx * sizeof(int64_t), &brinBlock->minVers);
  TAOS_CHECK_RETURN(tBufferGetI64(&reader, &record->minVer));

  reader = BUFFER_READER_INITIALIZER(idx * sizeof(int64_t), &brinBlock->maxVers);
  TAOS_CHECK_RETURN(tBufferGetI64(&reader, &record->maxVer));

  reader = BUFFER_READER_INITIALIZER(idx * sizeof(int64_t), &brinBlock->blockOffsets);
  TAOS_CHECK_RETURN(tBufferGetI64(&reader, &record->blockOffset));

  reader = BUFFER_READER_INITIALIZER(idx * sizeof(int64_t), &brinBlock->smaOffsets);
  TAOS_CHECK_RETURN(tBufferGetI64(&reader, &record->smaOffset));

  reader = BUFFER_READER_INITIALIZER(idx * sizeof(int32_t), &brinBlock->blockSizes);
  TAOS_CHECK_RETURN(tBufferGetI32(&reader, &record->blockSize));

  reader = BUFFER_READER_INITIALIZER(idx * sizeof(int32_t), &brinBlock->blockKeySizes);
  TAOS_CHECK_RETURN(tBufferGetI32(&reader, &record->blockKeySize));

  reader = BUFFER_READER_INITIALIZER(idx * sizeof(int32_t), &brinBlock->smaSizes);
  TAOS_CHECK_RETURN(tBufferGetI32(&reader, &record->smaSize));

  reader = BUFFER_READER_INITIALIZER(idx * sizeof(int32_t), &brinBlock->numRows);
  TAOS_CHECK_RETURN(tBufferGetI32(&reader, &record->numRow));

  reader = BUFFER_READER_INITIALIZER(idx * sizeof(int32_t), &brinBlock->counts);
  TAOS_CHECK_RETURN(tBufferGetI32(&reader, &record->count));

  // primary keys
  for (record->firstKey.key.numOfPKs = 0; record->firstKey.key.numOfPKs < brinBlock->numOfPKs;
       record->firstKey.key.numOfPKs++) {
    TAOS_CHECK_RETURN(tValueColumnGet(&brinBlock->firstKeyPKs[record->firstKey.key.numOfPKs], idx,
                                      &record->firstKey.key.pks[record->firstKey.key.numOfPKs]));
  }

  for (record->lastKey.key.numOfPKs = 0; record->lastKey.key.numOfPKs < brinBlock->numOfPKs;
       record->lastKey.key.numOfPKs++) {
    TAOS_CHECK_RETURN(tValueColumnGet(&brinBlock->lastKeyPKs[record->lastKey.key.numOfPKs], idx,
                                      &record->lastKey.key.pks[record->lastKey.key.numOfPKs]));
  }

  return 0;
}

// other apis ----------
int32_t tsdbUpdateSkmTb(STsdb *pTsdb, const TABLEID *tbid, SSkmInfo *pSkmTb) {
  if (tbid->suid) {
    if (pSkmTb->suid == tbid->suid) {
      pSkmTb->uid = tbid->uid;
      return 0;
    }
  } else if (pSkmTb->uid == tbid->uid) {
    return 0;
  }

  pSkmTb->suid = tbid->suid;
  pSkmTb->uid = tbid->uid;
  tDestroyTSchema(pSkmTb->pTSchema);
  return metaGetTbTSchemaEx(pTsdb->pVnode->pMeta, tbid->suid, tbid->uid, -1, &pSkmTb->pTSchema);
}

int32_t tsdbUpdateSkmRow(STsdb *pTsdb, const TABLEID *tbid, int32_t sver, SSkmInfo *pSkmRow) {
  if (pSkmRow->pTSchema && pSkmRow->suid == tbid->suid) {
    if (pSkmRow->suid) {
      if (sver == pSkmRow->pTSchema->version) return 0;
    } else if (pSkmRow->uid == tbid->uid && pSkmRow->pTSchema->version == sver) {
      return 0;
    }
  }

  pSkmRow->suid = tbid->suid;
  pSkmRow->uid = tbid->uid;
  tDestroyTSchema(pSkmRow->pTSchema);
  return metaGetTbTSchemaEx(pTsdb->pVnode->pMeta, tbid->suid, tbid->uid, sver, &pSkmRow->pTSchema);
}
int32_t tsdbUpdateColCmprObj(STsdb *pTsdb, const TABLEID *tbid, SHashObj **ppColCmpr) { return 0; }