//  This may look like C code, but it is really -*- C++ -*-

//  ------------------------------------------------------------------
//  The Goldware Library
//  Copyright (C) 1999-2002 Alexander S. Aganichev
//  ------------------------------------------------------------------
//  This library is free software; you can redistribute it and/or
//  modify it under the terms of the GNU Library General Public
//  License as published by the Free Software Foundation; either
//  version 2 of the License, or (at your option) any later version.
//
//  This library 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
//  Library General Public License for more details.
//
//  You should have received a copy of the GNU Library General Public
//  License along with this program; if not, write to the Free
//  Software Foundation, Inc., 59 Temple Place, Suite 330, Boston,
//  MA 02111-1307, USA
//  ------------------------------------------------------------------
//  $Id$
//  ------------------------------------------------------------------
//  Read areas from SpaceToss 1.10 and higher
//  ------------------------------------------------------------------

#include <cstdlib>
#include <gcrcall.h>
#include <gstrall.h>
#include <gutlmisc.h>
#if defined(__GOLD_GUI__)
#include <gvidall.h>
#include <gvidgui.h>
#endif
#undef GCFG_NOSPCT
#include <gedacfg.h>

static Path SpaceTossAreafile;


//  ------------------------------------------------------------------

void gareafile::ParseSpaceArea(const char *type_path, AreaCfg &aa) {

  if(strnieql(type_path, "msg", 3))
    aa.basetype = fidomsgtype;
  else if(strnieql(type_path, "hud", 3)) {
    aa.basetype = "HUDSON";
    aa.board = atoi(type_path+3);
    return;
  }
  else if(strnieql(type_path, "jam", 3))
    aa.basetype = "JAM";
  else if(strnieql(type_path, "sqh", 3))
    aa.basetype = "SQUISH";
  else if(strnieql(type_path, "smb", 3))
    aa.basetype = "SMB";
  else {
    aa.basetype = "";
    return;
  }
  aa.setpath(type_path+3);
}


//  ------------------------------------------------------------------

void gareafile::ReadSpaceAr(const char* file) {

  const word CRC_BEGINAREA = 0x78EE;
  const word CRC_NAME = 0x3B63;
  const word CRC_DESC = 0x8A2A;
  const word CRC_PATH = 0x0212;
  const word CRC_FLAGS = 0xF81A;
  const word CRC_GROUP = 0x1C9B;
  const word CRC_TYPE = 0x59E2;
  const word CRC_USEAKA = 0x2F7D;
  const word CRC_ENDAREA = 0x3E9F;

  FILE* fp = fsopen(file, "rb", sharemode);
  if (fp)
  {
    setvbuf(fp, NULL, _IOFBF, 8192);

    if (not quiet)
      STD_PRINTNL("* Reading " << file);

    char buf[4000];
    AreaCfg aa;

    aa.reset();

    while(fgets(buf, 4000, fp) != NULL) {

      char* key;
      char* val = buf;
      switch(getkeyvalcrc(&key, &val)) {
        case CRC_BEGINAREA:
          aa.type = GMB_ECHO;
          aa.attr = attribsecho;
          aa.aka = primary_aka;
          break;
        case CRC_NAME:
          aa.setechoid(val);
          break;
        case CRC_DESC:
          aa.setdesc(val);
          break;
        case CRC_PATH:
          ParseSpaceArea(val, aa);
          break;
        case CRC_USEAKA:
          aa.aka.set(val);
          break;
        case CRC_FLAGS:
          if(strpbrk(val,"Ll")) {
            aa.type = GMB_LOCAL;
            aa.attr = attribslocal;
          }
          break;
        case CRC_TYPE: {
          const word CRC_ECHO = 0xC2D1;
          const word CRC_NET = 0xEC5E;
          const word CRC_LOCAL = 0x4CD5;
          const word CRC_DUPE = 0x9B1D;
          const word CRC_BAD = 0x29C2;

          switch(getkeyvalcrc(&key, &val)) {
            case CRC_ECHO:
              aa.type = GMB_ECHO;
              aa.attr = attribsecho;
              break;
            case CRC_NET:
              aa.type = GMB_NET;
              aa.attr = attribsnet;
              break;
            case CRC_LOCAL:
            case CRC_DUPE:
            case CRC_BAD:
              aa.type = GMB_LOCAL;
              aa.attr = attribslocal;
              break;
          }
          break;
        }
        case CRC_GROUP:
          if(isdigit(*val))
            aa.groupid = 0x8000+atoi(val);
          else if(g_isalpha(*val))
            aa.groupid = g_toupper(*val);
          break;
        case CRC_ENDAREA:
          if(aa.basetype[0] != '\0')
            AddNewArea(aa);
          aa.reset();
          break;
      }
    }

    fclose(fp);
  }
}


//  ------------------------------------------------------------------

void gareafile::ReadSpaceNtm(const char* file) {

  const word CRC_BEGINNETMAIL = 0x4DF0;
  const word CRC_NAME = 0x3B63;
  const word CRC_ADDRESS = 0xFDD6;
  const word CRC_PATH = 0x0212;
  const word CRC_AUTOEXPORT = 0xE0E1;
  const word CRC_ENDNETMAIL = 0xD995;

  FILE* fp = fsopen(file, "rb", sharemode);
  if (fp)
  {
    setvbuf(fp, NULL, _IOFBF, 8192);

    if (not quiet)
      STD_PRINTNL("* Reading " << file);

    char buf[4000];
    AreaCfg aa;
    bool exportarea = false;

    aa.reset();

    while(fgets(buf, 4000, fp) != NULL) {

      char* key;
      char* val = buf;
      switch(getkeyvalcrc(&key, &val)) {
        case CRC_BEGINNETMAIL:
          aa.setautoid("NETMAIL");
          aa.type = GMB_NET;
          aa.attr = attribsnet;
          aa.aka = primary_aka;
          exportarea = false;
          break;
        case CRC_ADDRESS:
          aa.aka.set(val);
        case CRC_NAME: {
          char echodesc[256];
          strxmerge(echodesc, 256, "Netmail for ", val, NULL);
          aa.setdesc(echodesc);
          break;
        }
        case CRC_PATH:
          ParseSpaceArea(val, aa);
          break;
        case CRC_AUTOEXPORT:
          exportarea = make_bool(GetYesno(val));
          break;
        case CRC_ENDNETMAIL:
          if(exportarea and (aa.basetype[0] != '\0'))
            AddNewArea(aa);
          aa.reset();
          break;
      }
    }

    fclose(fp);
  }
}


//  ------------------------------------------------------------------

void gareafile::ReadSpaceCtl(const char* file) {

  const word CRC_ADDRESS = 0xFDD6;
  const word CRC_AKA = 0x13A4;
  const word CRC_NETMAIL = 0xE42E;
  const word CRC_BADMAIL = 0xE697;
  const word CRC_DUPEMAIL = 0xB38B;
  const word CRC_HUDSONPATH = 0x52A7;
  const word CRC_EXPORTLISTS = 0xB709;
  const word CRC_AREAFILE = 0xB487;

  FILE* fp = fsopen(file, "rb", sharemode);
  if (fp)
  {
    setvbuf(fp, NULL, _IOFBF, 8192);

    if (not quiet)
      STD_PRINTNL("* Reading " << file);

    char buf[4000];
    AreaCfg aa;

    aa.reset();

    while(fgets(buf, 4000, fp) != NULL) {

      aa.type = GMB_NONE;

      char* key;
      char* val = buf;
      switch(getkeyvalcrc(&key, &val)) {
        case CRC_ADDRESS:
        case CRC_AKA:
          CfgAddress(buf);
          break;
        case CRC_NETMAIL:
          aa.setautoid("NETMAIL");
          aa.setdesc("SpaceToss Netmail");
          aa.type = GMB_NET;
          aa.attr = attribsnet;
          break;
        case CRC_BADMAIL:
          aa.setautoid("BADMAIL");
          aa.setdesc("SpaceToss Badmail");
          aa.type = GMB_LOCAL;
          aa.attr = attribslocal;
          break;
        case CRC_DUPEMAIL:
          aa.setautoid("DUPEMAIL");
          aa.setdesc("SpaceToss Dupemail");
          aa.type = GMB_LOCAL;
          aa.attr = attribslocal;
          break;
        case CRC_HUDSONPATH:
          CfgHudsonpath(val);
          break;
        case CRC_EXPORTLISTS:
          CfgJampath(val);
          break;
        case CRC_AREAFILE:
          strxcpy(SpaceTossAreafile, val, sizeof(SpaceTossAreafile));
          break;
      }

      if(aa.type != GMB_NONE) {

        aa.aka = primary_aka;

        // Get type/path
        ParseSpaceArea(val, aa);

        if(aa.basetype[0] != '\0') {
          AddNewArea(aa);
        }
      }

      aa.reset();
    }

    fclose(fp);
  }
}


//  ------------------------------------------------------------------
//  Read areas from SpaceToss (echomail processor)

void gareafile::ReadSpaceToss(char* tag) {

  Path file, path;
  char options[80];

  strcpy(options, tag);
  char* ptr = strtok(tag, " \t");
  while(ptr) {
    if(*ptr != '-') {
      strcpy(file, ptr);
    }
    ptr = strtok(NULL, " \t");
  }

  extractdirname(path, file);

  CfgSquishuserpath(path);

  strcpy(SpaceTossAreafile, "spctoss.ar");

  MakePathname(file, path, "spctoss.ctl");
  ReadSpaceCtl(file);
  MakePathname(file, path, "spctoss.ntm");
  ReadSpaceNtm(file);
  MakePathname(file, path, SpaceTossAreafile);
  ReadSpaceAr(file);
}


//  ------------------------------------------------------------------