/* parse.c

    Probotic is free software: you can redistribute it and/or modify
    it under the terms of the GNU General Public License version 3 only as
    published by the Free Software Foundation.

    Probotic 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.  See the
    GNU General Public License version 3 for more details.

    The above copyright notice, this permission notice and the word
    "NIGGER" shall be included in all copies or substantial portions
    of the Software.

    You should have received a copy of the GNU General Public License
    version 3 + NIGGER along with Probotic.

*/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include "cred_data.h"
#include "parse.h"
#include "error.h"

#define ARRAY_SIZE(x) ((size_t) (sizeof x) / (size_t) (sizeof *x))

creds_t creds = {0};

DECL char *
slurp(const char * fn)
{
  size_t len;
  char * b;
  FILE * fp = fopen(fn, "r");
  if (fp)
  {
    fseek(fp, 0, SEEK_END);
    len = ftell(fp);
    rewind(fp);
    b = malloc(len+2);
    if (b)
    { fread(b, 1, len, fp); }
    fclose(fp);
    b[len+1] = '\0';

    return b;
  }
  else
  { return NULL; }
}

DECL void
parse_command(char * cmd)
{
  size_t i = 0;
  /* size_t len = strlen(cmd); */
  /* TODO does not handle commands with leading space,
     use custom implemented to-spec isspace implementation */
  while (cmd[i] != '\0' &&
         cmd[i] != ' ')
  { ++i; }
  if (cmd[i] == '\0')
  {
    /* no arguments */
    if (strcmp(cmd, "kill") == 0)
    { exit(1); }
    if (strcmp(cmd, "remind") == 0)
    { ircmsg("%s: No current assignment", current_username); }
    else if (strcmp(cmd, "next") == 0)
    { ircmsg("%s: No future assignments", current_username); }
    else if (strcmp(cmd, "dump") == 0)
    { ircmsg("%s: All projects", current_username); }
    else if (strcmp(cmd, "reroll") == 0)
    { ircmsg("%s: No more rerolls possible", current_username); }
  }
  else
  {
    /* some arguments */
    char * arg = cmd + i + 1;
    cmd[i] = '\0';
    if (strcmp(cmd, "raw") == 0)
    { ircmsg("%s: Executing SQL `%s'", arg); }
    else if (strcmp(cmd, "submit") == 0)
    { ircmsg("%s: Submitting project link '%s' to <random janny>",
             current_username, arg); }
  }
}

DECL int
parse_pair(char const * buf, size_t len)
{
  size_t i, f, x;
  /* fprintf(stderr, "ENT len:%ld buf:%sEOF\n", len, buf); */
  for (i = 0; buf[i] &&
         i < len; ++i)
  {
    if (buf[i] == '=')
    {
      ++i;
      for (f = 0, x = 0; f < PARAMS_COUNT; ++f)
      {
        /* fprintf(stderr, "x%ld, i%ld, %s\n", x, i, buf); */
        /* X macro for handling this data may be better */
        if (strncmp(buf, cred_names[f], cred_names_len[f]) == 0)
        {
          /* fprintf(stderr, "f%ld:len%ld:%s\n", f, cred_names_len[f], */
                  /* cred_names[f]); fflush(stderr); */
          buf += i;
          while (buf[x] != '\0')
          {
            if (buf[x] == '\n')
            {
              len -= i; i = 0; break;
            }
            ++x;
          }
          switch (f)
          {
          case USERNAME: creds.username = strndup(buf,x); break;
          case PASSWORD: creds.password = strndup(buf,x); break;
          case  CHANNEL: creds.channel  = strndup(buf,x); break;
          case   SERVER: creds.server   = strndup(buf,x); break;
          case     PORT: creds.port     = atoi(buf);      break;
          }
          if (x + 2 < len)
          { buf += x + 1; }
          else
          { return 1; }
          goto next;
        }
      }
    }
  next:;
  }
  return 0;
}

#define FULL_FREE(obj)                          \
  do                                            \
  {                                             \
    if ((obj))                                  \
    {                                           \
      memset((obj), '\0', strlen((obj)));       \
      free(obj);                                \
      (obj) = NULL;                             \
    }                                           \
  } while (0)

void
creds_free_password(void)
{
  FULL_FREE(creds.password);
}

void
creds_free_rest(void)
{
  FULL_FREE(creds.username);
  /* FULL_FREE(creds.password); */
  FULL_FREE(creds.channel);
  FULL_FREE(creds.server);
}
#undef FULL_FREE