#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <errno.h>
#include <time.h>
#include <regex.h>

#include "gribscan.h"

static unsigned cfgsize = 0;
static unsigned cfgcount = 0;
static struct cfgout_t *cfg = NULL;

static regex_t re_wholeplane;

/* 設定配列 cfg を siz 個要素確保する。 */
  enum gribscan_err_t
new_cfgout(unsigned siz)
{
  int r;
  cfgsize = siz;
  /* 念のため calloc でゼロクリアする。 */
  cfg = calloc(cfgsize, sizeof(struct cfgout_t));
  if (cfg == NULL) {
    return ERR_NOMEM;
  }
  /* ついでに正規表現をコンパイルしておく */
  /*                            1        2        3        4        5 */
  r = regcomp(&re_wholeplane, "C([0-9]+)G([0-9]+)P([0-9]+)F([0-9]+)L([0-9]+)"
  /*  6          7           8             9 */
    "R([0-9]{4})-([01][0-9])-([0123][0-9])T([012][0-9])Z\\.png",
    REG_EXTENDED | REG_ICASE);
  if (r != 0) return ERR_REGEX;
  return GSE_OKAY;
}

  void
regexmsg(int e, const regex_t *re)
{
  char buf[256];
  regerror(e, re, buf, sizeof buf);
  fputs(buf, stderr);
}

  time_t
timegm6(unsigned y, unsigned m, unsigned d, unsigned h, unsigned n, unsigned s)
{
#if HAS_TIMEGM
  time_t result;
  struct tm tmbuf;
  tmbuf.tm_year = y - 1900;
  tmbuf.tm_mon = m - 1;
  tmbuf.tm_mday = d;
  tmbuf.tm_hour = h;
  tmbuf.tm_min = n;
  tmbuf.tm_sec = s;
  tmbuf.tm_isdst = 0;
  result = timegm(&tmbuf);
  return result;
#else
  char *tz;
  time_t result;
  struct tm tmbuf;
  tz = getenv("TZ");
  setenv("TZ", "", 1);
  tzset();
  tmbuf.tm_year = y - 1900;
  tmbuf.tm_mon = m - 1;
  tmbuf.tm_mday = d;
  tmbuf.tm_hour = h;
  tmbuf.tm_min = n;
  tmbuf.tm_sec = s;
  tmbuf.tm_isdst = 0;
  result = mktime(&tmbuf);
  if (tz) {
    setenv("TZ", tz, 1);
  } else {
    unsetenv("TZ");
  }
  tzset();
  return result;
#endif
}

/* 文字列 arg を解読し ent に保存する。 */
  enum gribscan_err_t
parse_cfg(struct cfgout_t *ent, const char *arg)
{
  int r;
  unsigned ry, rm, rd, rh;
  const int NMATCH = 10;
  regmatch_t md[NMATCH];
  r = regexec(&re_wholeplane, arg, NMATCH, md, 0);
  if (r == REG_NOMATCH) {
    fprintf(stderr, "bad filename '%s'\n", arg);
    return ERR_OUTPAT;
  } else if (r) {
    regexmsg(r, &re_wholeplane);
    return ERR_REGEX;
  }
  ent->ctr = strtoul(arg + md[1].rm_so, NULL, 10);
  ent->gen = strtoul(arg + md[2].rm_so, NULL, 10);
  ent->par = strtoul(arg + md[3].rm_so, NULL, 10);
  ent->ft = strtoul(arg + md[4].rm_so, NULL, 10);
  ent->lev = strtoul(arg + md[5].rm_so, NULL, 10);
  ry = strtoul(arg + md[6].rm_so, NULL, 10);
  rm = strtoul(arg + md[7].rm_so, NULL, 10);
  rd = strtoul(arg + md[8].rm_so, NULL, 10);
  rh = strtoul(arg + md[9].rm_so, NULL, 10);
  ent->rt = timegm6(ry, rm, rd, rh, 0u, 0u);
  ent->acc = calloc(NXOUT * NYOUT * 2, sizeof(float));
  ent->wgt = ent->acc + NXOUT * NYOUT;
  return GSE_OKAY;
}

/* 設定文字列 arg を解読し、内部配列 cfg の末尾に保存する。 */
  enum gribscan_err_t
store_cfgout(const char *arg)
{
  enum gribscan_err_t r;
  if (cfgcount >= cfgsize) {
    return ERR_TOOMANYCFG;
  }
  r = parse_cfg(cfg + cfgcount, arg);
  if (r == GSE_OKAY) {
    cfgcount++;
  }
  return r;
}

/* GRIB報諸元（発信中枢 ctr, 作成処理 gen, パラメタ par, 予報時間 ft, 高度 lev, 参照日時 rt）について
   設定配列  cfg に対応するエントリがあればそれを返す
   */
  struct cfgout_t *
check_msg(unsigned ctr, unsigned gen, unsigned par, unsigned ft,
  unsigned lev, struct tm *reftime, unsigned igrid)
{
  time_t rt;
  int i;
  if (cfgcount == 0) {
    char rts[64];
    showtime(rts, sizeof rts, reftime);
    printf("C%uG%uP%uF%uL%uR%.13sZ g%u\n", ctr, gen, par, ft, lev, rts,
      igrid);
    return NULL;
  }
  rt = timegm(reftime);
  for (i = 0; i < cfgsize; i++) {
    if (cfg[i].ctr != ctr) continue;
    if (cfg[i].gen != gen) continue;
    if (cfg[i].par != par) continue;
    if (cfg[i].ft != ft) continue;
    if (cfg[i].lev != lev) continue;
    if (cfg[i].rt != rt) continue;
    return cfg + i;
  }
  return NULL;
}