/*
*                               libnet.c
*
* Library net functions.
*/
/*
*                               history
*
* 85Nov15 HAW  Created.
*/
#include "ctdl.h"
NetBuffer        netBuf;
NetBuffer        netTemp;
extern NetTable  *netTab;
extern CONFIG    cfg;
int              thisNet = -1;
FILE             *netfl;
/*
*                               contents
*
*       getNet()                gets a node from CTDLNET.SYS
*       putNet()                puts a node to CTDLNET.SYS
*       normId()                normalizes the ID
*       searchNet()             search net on ID
*       searchNameNet()         search net on Name
*/
extern FILE *netLog;
/*
* getNet()
*
* This function gets a net node from the file.
*/
void getNet(int n, NetBuffer *buf)
  {
  long int r, s;
  char error[50];
  if (buf == &netBuf)
  thisNet = n;
  r = NB_TOTAL_SIZE;
  s = n * r;
  fseek(netfl, s, 0);
  if (fread(buf, NB_SIZE, 1, netfl) != 1)
    {
    sPrintf(error, "?getNet-read fail(1) for slot %d.", n);
    crashout(error);

    }
  crypte(buf, NB_SIZE, n);
  if (SR_BULK != 0)
    {
    if (fread(buf->netRooms, SR_BULK, 1, netfl) != 1)
      {
      sPrintf(error, "?getNet-read fail(2) for slot %d.", n);
      crashout(error);

      }

    }

  }
/*
* putNet()
*
* This will put a node to file.  It also updates the net index.
*/
void putNet(int n, NetBuffer *buf)
  {
  long int r, s;
  label temp;
  char error[50];
  if (buf == &netBuf) thisNet = n;
  copy_struct(buf->nbflags, netTab[n].ntflags);
  memcpy(netTab[n].netTRooms, buf->netRooms, (long)SR_BULK);
  netTab[n].ntnmhash = hash(buf->netName);
  normId(buf->netId, temp);
  netTab[n].ntidhash = hash(temp);
  netTab[n].ntMemberNets = buf->MemberNets;
  strCpy(netTab[n].ntShort, buf->nbShort);
  netTab[n].ntGen = buf->nbGen;
  r = NB_TOTAL_SIZE;
  s = n * r;
  crypte(buf, NB_SIZE, n);
  fseek(netfl, s, 0);
  if (fwrite(buf, NB_SIZE, 1, netfl) != 1)
    {
    sPrintf(error, "?putNet-write fail(1), slot %d!!", n);
    crashout(error);

    }
  if (SR_BULK != 0)
  if (fwrite(buf->netRooms, SR_BULK, 1, netfl) != 1)
    {
    sPrintf(error, "?putNet-write fail(2), slot %d!!", n);
    crashout(error);

    }
  crypte(buf, NB_SIZE, n);

  }
/*
* normId()
*
* This normalizes a node id, i.e., kills all the punctuation and uppercases
* the country designation.
*/
char normId(label source, label dest)
  {
  int digitcount = 0;
  while ( !isalpha( *source ) && *source )  source++;
  if ( !*source ) return FALSE;
  *dest++   =   toUpper(*source++);
  while ( !isalpha( *source ) && *source )  source++;
  if ( !*source ) return FALSE;
  *dest++   =   toUpper(*source++);
  while (*source)
    {
    if (isdigit(*source))
      {
      *dest++ = *source;
      digitcount++;

      }
    source++;

    }
  *dest = '\0';
  return ( char )(digitcount > 8);

  }
/*
* searchNet()
*
* This function Searches the net for the given Id.
*/
int searchNet(char *forId, NetBuffer *buf)
  {
  int   rover;
  label temp, temp2;
  normId(forId, temp2);
  for (rover = 0; rover < cfg.netSize; rover++)
    {
    if (netTab[rover].ntflags.in_use &&
    hash(temp2) == netTab[rover].ntidhash)
      {
      getNet(rover, buf);
      normId(buf->netId, temp);
      if (strCmpU(temp, temp2) == SAMESTRING)
      return rover;

      }

    }
  return ERROR;

  }
/*
* searchNameNet()
*
* This function will search the  net for given node name.  This includes checks
* for both full and shorthand names.
*/
int searchNameNet(label name, NetBuffer *buf)
  {
  int rover;
  if (strlen(name) == 0) return ERROR;
  /* First check for full name */
  for (rover = 0; rover < cfg.netSize; rover++)
    {
    if (netTab[rover].ntflags.in_use &&
    hash(name) == netTab[rover].ntnmhash)
      {
      getNet(rover, buf);
      if (strCmpU(buf->netName, name) == SAMESTRING)
      return rover;

      }

    }
  /* Now check for shorthand name */
  for (rover = 0; rover < cfg.netSize; rover++)
  if (netTab[rover].ntflags.in_use &&
  strCmpU(netTab[rover].ntShort, name) == SAMESTRING)
    {
    getNet(rover, buf);
    return rover;

    }
  return ERROR;

  }