This repository has been archived on 2024-04-08. You can view files and clone it, but cannot push or open issues or pull requests.
deb-goldedplus/goldlib/gcfg/gxspace.cpp
2006-01-20 11:55:12 +00:00

348 lines
8.5 KiB
C++

// 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);
}
// ------------------------------------------------------------------