section.c

/******************************************************************************
 **  Program:		Section
 **
 **  Description:	Traveller Sub-Sector map data Formater.  Section
 **                     takes a datafile containing all UWPs for a given
 **                     Imperium sector, and breaks it up into 16 files,
 **                     each file containing a header and 1 subsector of
 **                     UWP data.  This pre-processing is done to general
 **                     input files correctly formated for use with the
 **                     "ssv" utility (an X-Windows program which draws
 **                     sub-sector maps based on the UWP datafiles).
 **
 **                     To use, invoke as follows:
 **                          section [sector_datafile]
 **
 **                     Section will automatically produce 16 output files
 **                     named sec_A through sec_P.  Each file will contain,
 **                     on the first line of it's header, the name of the
 **                     sector (using the name of the file given to section
 **                     as a parameter) and a dummy subsector name (using
 **                     the name of the output file: sec_A - sec_P).  The
 **                     user must manually edit in correct subsector names
 **                     after the 16 subsector files are created.
 **
 **                     This program is designed to be a pre-formatter for
 **                     the ssv (sub-sector viewer) program and expects
 **                     input files to be in the format of GEnie traveller
 **                     archive library Sector UWP files.
 **
 **  File:		Section.c, containing the following routines:
 **                       main()
 **
 **  Copyright 1990 by Mark F. Cook and Hewlett-Packard,
 **				Interface Technology Operation
 **
 **  Permission to use, copy, and modify this software is granted, provided
 **  that this copyright appears in all copies and that both this copyright
 **  and permission notice appear in all supporting documentation, and that
 **  the name of Mark F. Cook and/or Hewlett-Packard not be used in advertising
 **  without specific, writen prior permission.  Neither Mark F. Cook or
 **  Hewlett-Packard make any representations about the suitibility of this
 **  software for any purpose.  It is provided "as is" without express or
 **  implied warranty.
 **
 *****************************************************************************/

#include <stdio.h>
#include <strings.h>

char *header[8] = {
    "#",
    "# Trade routes within the subsector",
    "#src. dst.  X Y dst. offsets",
    "# $1840 1841  0 1",
    "#",
    "#--------1---------2---------3---------4---------5---------6---------7",
    "#PlanetName   Loc. UPP Code   B   Notes         Z  PBG Al. Star(s)",
    "#----------   ---- ---------  - --------------- -  --- -- ---------" };

#define  TRUE   1
#define  FALSE  0

#define  NUM_SSECS  16

static char *ssec_name[NUM_SSECS] = { "sec_A", "sec_B", "sec_C", "sec_D",
				      "sec_E", "sec_F", "sec_G", "sec_H",
				      "sec_I", "sec_J", "sec_K", "sec_L",
				      "sec_M", "sec_N", "sec_O", "sec_P" };

main(argc,argv)
int argc;
char *argv[];
{
  int done, i, j, col, row, target, goodline;
  char hex[10], str[10], ch, line[81], *status;
  FILE *fd;
  FILE *fd_out[NUM_SSECS];

/*--- check invocation for correct parameter count ---*/
  if (argc != 2) {
      fprintf(stderr, "Usage: %s datafile \n", argv[0]);
      exit(1); }

/*--- open the input file ---*/
  fd = fopen(argv[1], "r");
  if (fd == NULL) {
      fprintf(stderr, "%s: Cannot open %s for input\n", argv[0], argv[1]);
      exit(1); }

/*--- open the NUM_SSECS output files ---*/
  for (i=0; i<NUM_SSECS; i++) {
    fd_out[i] = fopen(ssec_name[i], "w");
    if (fd_out[i] == NULL) {
      fprintf(stderr, "%s: Cannot open %s for output\n", argv[0], ssec_name[i]);
      exit(1); }
   }

/*--- print the SUB-SECTOR/SECTOR header for each output file ---*/
  for (i=0; i<NUM_SSECS; i++) {
    fprintf(fd_out[i], "@SUB-SECTOR: %s   SECTOR: %s\n",
	ssec_name[i], argv[1]);
    for (j=0; j<8; j++)
      fprintf(fd_out[i], "%s\n", header[j]);
   }

/*--- Now, read each line in the full sector UWP file, one line at a   ---*/
/*--- time.  Parse the 4-digit hex location code out of the line, and  ---*/
/*--- determine which subsector file it should be written to.  Write   ---*/
/*--- the line to the appropriate file.  Repeat the process until EOF. ---*/
  done = FALSE;
  while (!done) {
    status = fgets(line, 81, fd);
    if (status == NULL) break;

/*--- make sure we're past the header lines ---*/
    goodline = TRUE;
/*--- If the line is shorter than 18 chars, it's a header line ---*/
    if (strlen(line) < 18) goodline == FALSE;
/*--- If the line is doesn't have digits in columns 14-18, ---*/
/*--- it's a header line.                                  ---*/
    for (i=14; i<18; i++)
      if ((line[i] < '0') || (line[i] > '9')) goodline = FALSE;
    if (!goodline) continue;

/*--- get world hex location string ---*/
    strncpy(hex, &line[14], 4);
    hex[4] = NULL;

/*--- convert string to digits ---*/
    strncpy(str, hex, 2);
    str[2] = NULL;
/*--- determine which row and column the hex location is in ---*/
    col = atoi(str);
    strncpy(str, &(hex[2]), 2);
    str[2] = NULL;
    row = atoi(str);
/*--- determine which subsector the row/column intersect in ---*/
    target = (((row-1)/10)*4) + ((col-1)/8);

/*--- write the line to that subsector file ---*/
    fprintf(fd_out[target], "%s", line);
   }
  fclose(fd);
  for (i=0; i<NUM_SSECS; i++)
    fclose(fd_out[i]);
  exit(0);
}