/***********************************************************************

  $Id$

  Misc support functions

  Copyright (c) 1993-98 M. Kimes
  Copyright (c) 2005 Steven H. Levine

  24 Jul 05 SHL Comments

***********************************************************************/

#define INCL_DOS
#define INCL_WIN
#include <os2.h>

#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <ctype.h>

#include "..\version.h"
#include "..\fm3str.h"

/*
 * Creates indexed FM3RES.STR file from text file FM3DLL.STR.
 * FM3DLL.STR contains text strings, one per line, for use by
 * FM3DLL.DLL.
 */

int index(const char *s, const char c)
{

  char *p;

  p = strchr(s, c);
  if (p == NULL || !*p)
    return -1;
  return (int)(p - s);
}

/*
 * literal.c
 * Translate a string with tokens in it according to several conventions:
 * 1.  \x1b translates to char(0x1b)
 * 2.  \27  translates to char(27)
 * 3.  \"   translates to "
 * 4.  \'   translates to '
 * 5.  \\   translates to \
 * 6.  \r   translates to carriage return
 * 7.  \n   translates to linefeed
 * 8.  \b   translates to backspace
 * 9.  \t   translates to tab
 * 10. \a   translates to bell
 * 11. \f   translates to formfeed
 *
 * Synopsis
 *    *s = "this\x20is\32a test of \\MSC\\CSM\7"
 *    literal(s);
 *
 *    ( s now equals "this is a test of \MSC\CSM")
 */

#define HEX "0123456789ABCDEF"
#define DEC "0123456789"

int literal(char *fsource)
{

  register int wpos, w;
  int len, oldw;
  char *fdestin, *freeme, wchar;

  if (!fsource || !*fsource)
    return 0;
  len = strlen(fsource) + 1;
  freeme = fdestin = malloc(len + 1);
  memset(fdestin, 0, len);		/* start out with zero'd string */

  w = 0;				/* set index to first character */
  while (fsource[w]) {			/* until end of string */
    switch (fsource[w]) {
    case '\\':
      switch (fsource[w + 1]) {
      case 'x':			/* hexadecimal */
	wchar = 0;
	w += 2;				/* get past "\x" */
	if (index(HEX, (char)toupper(fsource[w])) != -1) {
	  oldw = w;
	  while (((wpos = index(HEX, (char)toupper(fsource[w]))) != -1) &&
		 w < oldw + 2) {
	    wchar = (char)(wchar << 4) + (char)wpos;
	    w++;
	  }
	}
	else
	  wchar = 'x';			/* just an x */
	w--;
	*fdestin++ = wchar;
	break;

      case '\\':			/* we want a "\" */
	w++;
	*fdestin++ = '\\';
	break;

      case 't':			/* tab char */
	w++;
	*fdestin++ = '\t';
	break;

      case 'n':			/* new line */
	w++;
	*fdestin++ = '\n';
	break;

      case 'r':			/* carr return */
	w++;
	*fdestin++ = '\r';
	break;

      case 'b':			/* back space */
	w++;
	*fdestin++ = '\b';
	break;

      case 'f':			/* formfeed */
	w++;
	*fdestin++ = '\x0c';
	break;

      case 'a':			/* bell */
	w++;
	*fdestin++ = '\07';
	break;

      case '\'':			/* single quote */
	w++;
	*fdestin++ = '\'';
	break;

      case '\"':			/* double quote */
	w++;
	*fdestin++ = '\"';
	break;

      default:				/* decimal */
	w++;				/* get past "\" */
	wchar = 0;
	if (index(DEC, fsource[w]) != -1) {
	  oldw = w;
	  do {				/* cvt to binary */
	    wchar = (char)(wchar * 10 + (fsource[w++] - 48));
	  } while (index(DEC, fsource[w]) != -1 && w < oldw + 3);
	  w--;
	}
	else
	  wchar = fsource[w];
	*fdestin++ = wchar;
	break;
      }
      break;

    default:
      *fdestin++ = fsource[w];
      break;
    }
    w++;
  }
  *fdestin = 0;				/* terminate the string */

  len = fdestin - freeme;
  memcpy(fsource, freeme, len + 1);	/* swap 'em */
  free(freeme);

  return len;				/* return length of string */
}

int main(void)
{

  FILE *fpin, *fpout;
  ULONG len, x = 0, totallen = 0, thislen;
  USHORT vermajor = 0, verminor = 0;
  static char str[8192];
  char *outfile = "FM3RES.STR", *infile = "FM3DLL.STR";

  vermajor = VERMAJOR;
  verminor = VERMINOR;
  printf("\nFM/2 resource string compiler copyright (c) 1998 by M. Kimes"
	 "\n Compiles FM3DLL.STR into FM3RES.STR.  For FM/2 version %d.%d.\n",
	 vermajor, verminor);
  /* open input file */
  fpin = fopen(infile, "r");
  if (fpin) {
    /* open (create) output file */
    fpout = fopen(outfile, "wb");
    if (fpout) {
      /* skip space for numstrs and textlen parameter in outfile */
      if (fseek(fpout, (sizeof(ULONG) * 2) + (sizeof(USHORT) * 2), SEEK_SET)) {
	printf("\n **Seek error on %s!\n", outfile);
	fclose(fpin);
	fclose(fpout);
	remove(outfile);
	return 1;
      }
      /* step through strings, reading from input, writing to output */
      while (!feof(fpin)) {
	if (!fgets(str, sizeof(str), fpin))
	  break;
	str[8191] = 0;
	if (*str && str[strlen(str) - 1] == '\n')
	  str[strlen(str) - 1] = 0;
	len = (*str) ? literal(str) : 0;
	/* write string to output file, including terminating NULL */
	thislen = fwrite(str, 1, len + 1, fpout);
	if (thislen != len + 1) {
	  printf("\n **Write error on %s!\n", outfile);
	  fclose(fpin);
	  fclose(fpout);
	  remove(outfile);
	  return 1;
	}
	totallen += thislen;
	x++;
      }
      if (x > IDS_NUMSTRS)
	printf("\n **Warning:  There are more strings in file "
	       "than there should be -- should be %lu, are %lu.\n",
	       IDS_NUMSTRS, x);
      else if (x < IDS_NUMSTRS) {
	printf("\n **Error -- insufficient strings in file -- "
	       "should be %lu, are %lu.\n", IDS_NUMSTRS, x);
	fclose(fpin);
	fclose(fpout);
	remove(outfile);
	return 1;
      }
      /* start output file with number of strings (long),
       * size of text (long), and version (2 shorts) */
      if (fseek(fpout, 0, SEEK_SET) ||
	  fwrite(&x, sizeof(x), 1, fpout) != 1 ||
	  fwrite(&totallen, sizeof(totallen), 1, fpout) != 1 ||
	  fwrite(&vermajor, sizeof(vermajor), 1, fpout) != 1 ||
	  fwrite(&verminor, sizeof(verminor), 1, fpout) != 1) {
	printf("\n **Error -- bad seek or write to %s!\n", outfile);
	fclose(fpin);
	fclose(fpout);
	remove(outfile);
	return 1;
      }
      fclose(fpout);
      printf("\n%s successfully written from %s (%lu strings).\n",
	     outfile, infile, x);
    }
    else
      printf("\n **Can't create %s!\n", outfile);
    fclose(fpin);
  }
  else
    printf("\n **Can't open %s!\n", infile);
  return 0;
}