/* actions.c - ck actions ----------------------------------------------*- C -*-
 *
 * This file is part of ck, the config keeper
 *
 * -----------------------------------------------------------------------------
 *
 * Copyright (C) 2018  Anastasis Grammenos
 * GPLv3 (see LICENCE for the full notice)
 *
 * -------------------------------------------------------------------------- */
#include "actions.h"
#include "actionhelper.h"
#include "dblayer.h"
#include "ckutil.h"
#include "engine.h"

int run_INIT(UserOpt * opt, Conf *conf) {
  UNUSED(conf);
  if (db_exists(opt)) {
    printf("Current configuration file location: %s\n", opt->confDir);
    PRINT_ERR("ck is already initialized.");
    return 0;
  }
  if (init_create_config_file(opt)) {
    return 0;
  }
  DB db = init_make_DB(opt);
  if (db.error == SQL_NO_ERR) {
    init_make_tables(&db);
  }
  sqlite3_close(db.ptr);
  return 1;
}

AddOpt make_add_options(const int argc, char **argv) {
  /* since we are here, the first two argumens must exist */
  AddOpt addOpt = {
    .progName = argv[0],
    .confPath = NULL,
    .secret = 0,
    .prime = 0,
    .err = ADD_NO_ERR
  };
  
  if (!util_is_file_rw(argv[1])) {
    addOpt.err = ADD_ERR_WRONG_CONFIG;
    return addOpt;
  }
  addOpt.confPath = argv[1];

  if (argc == 3) {
    if (strcmp(argv[2], "-s") == 0) {
      addOpt.secret = 1;
    } else if (strcmp(argv[2], "-p") == 0) {
      addOpt.prime = 1;
    } else {
      addOpt.err = ADD_ERR_WRONG_FLAGS;
      return addOpt;
    }
  } else if (argc == 4) {
    int i;
    for (i = 2; i < 4; i++) {
      if (strcmp(argv[i], "-s") == 0) {
        addOpt.secret = 1;
      } else if (strcmp(argv[i], "-p") == 0) {
        addOpt.prime = 1;
      } else {
        addOpt.err = ADD_ERR_WRONG_FLAGS;
        return addOpt;
      }
    }
  }
  return addOpt;
}

void add_print_opts(AddOpt *opt) {
  printf("Program:\t%s\nConfig:\t\t%s\n", opt->progName, opt->confPath);
  if (opt->prime && opt->secret) {
    printf("Options:\tsecret, primary\n");
  } else if (opt->prime) {
    printf("Options:\tprimary\n");
  } else if (opt->secret) {
    printf("Options:\tsecret\n");
  }
}

int run_ADD(UserOpt * opt, Conf *conf) {
  DB db = open_DB(opt);
  if (db.ptr == NULL) {
    if (db.error == SQL_ERR_NO_TABLES) {
      PRINT_ERR("The database file is currupted. Run ck init anew.");
    }
    return 0;
  }
  AddOpt addOpt = make_add_options(opt->argc, opt->argv);
  switch (addOpt.err) {
  case ADD_NO_ERR:
    break;
  case ADD_ERR_WRONG_CONFIG:
    PRINT_ERR("The config file specified doesn't exist.");
    close_DB(&db);
    return 0;
  case ADD_ERR_WRONG_FLAGS:
    PRINT_ERR("Flags are: -s for secret and -p for primary.");
    close_DB(&db);
    return 0;
  }
  add_print_opts(&addOpt);
  if (add_transaction_begin(&db, &addOpt) == 0) {
    close_DB(&db);
    return 0;
  }
  close_DB(&db);
  engine_add_make_link(&addOpt, conf);
  char err[STR_M];
  if (engine_err_message(err)) {
    PRINT_ERR(err);
    return 0;
  }
  return 1;
}

int run_DEL(UserOpt * opt, Conf *conf) {
  printf("Running %s\n", "del");
  return 0;
}

int run_EDIT(UserOpt *opt, Conf *conf) {
  printf("Running %s\n", "edit");
  DB db = open_DB(opt);
  if (db.ptr == NULL) {
    if (db.error == SQL_ERR_NO_TABLES) {
      PRINT_ERR("The database file is currupted. Run ck init anew.");
    }
    return 0;
  }

  char confPath[STR_M];
  if (opt->argc == 1) {
    char confName[STR_M];
    int secret = 0;
    if (edit_get_prime_config_from_program(&db, opt->argv[0], confName, &secret) == 1) {
      str_join_dirname_with_basename(confPath, secret ? conf->SCRT_dir : conf->VC_dir, confName);
      printf("%s\n", confPath);
    } else {
      PRINT_ERR("No primary config");
      close_DB(&db);
      return 0;
    }
  } else {
    close_DB(&db);
    char confName[STR_L];
    switch (edit_get_config_or_suggestions(opt->argc,
                                           opt->argv,
                                           confName)) {
    case ERC_OK:
      return 0;
    case ERC_ERR:
      return 1;
    }
    return 1;
  }
  close_DB(&db);
    
  char *editor = getenv("EDITOR");
  char command[STR_L];
  strcpy(command, str_is_empty(editor) ? "nano" : editor);
  strcat(command, " ");
  strcat(command, confPath);
  system(command);
  return 1;
}

int run_LIST(UserOpt *opt, Conf *conf) {
  printf("Running %s\n", "list");
  DB db = open_DB(opt);
  if (db.ptr == NULL) {
    if (db.error == SQL_ERR_NO_TABLES) {
      printf("no tables\n");
    }
    return 0;
  }
  for (int i = 0; i < opt->argc; i++) {
    printf("[%d]: %s\n", i, opt->argv[i]);
  }
  close_DB(&db);
  return 0;
}

int run_SEARCH(UserOpt *opt, Conf *conf) {
  printf("Running %s\n", "search");
  return 0;
}

int run_HELP(UserOpt *opt, Conf *conf) {
  printf("Running %s\n", "help");
  return 0;
}

void print_INIT_result(int ok) {
  if (ok) {
    printf("Initialized empty ckdb.\n");
  }
}

void print_ADD_result(int ok) {
  if (ok) {
    printf("ckdb updated succesfully.\n");
    return;
  }
  printf("Could not complete add transaction.\n");
}

void print_DEL_result(int ok) {
  if (ok) {
    printf("succes\n");
    return;
  }
  printf("failure\n");
}

void print_EDIT_result(int ok) {
  if (ok) {
    printf("succes\n");
    return;
  }
  printf("failure\n");
}

void print_LIST_result(int ok) {
  if (ok) {
    printf("succes\n");
    return;
  }
  printf("failure\n");
}

void print_SEARCH_result(int ok) {
  if (ok) {
    printf("succes\n");
    return;
  }
  printf("failure\n");
}

void print_HELP_result(int ok) {
  if (ok) {
    printf("succes\n");
    return;
  }
  printf("failure\n");
}