#include "stdlib.h"
#include "stdio.h"
#include "string.h"

/*
 * Renumbers a dialog .h include file so that the numbers begin at x
 * (arbitrary starting number; see below) and increment by 1.  If a
 * blank line is encounted renumbering begins again at x + ((x % 100) + 100).
 * skips #directives and blank lines (which act as above), but is too
 * dumb to handle anything else.  note lines are "broken" at column 40.
 * handy when reusing (recombining) junk from other projects to form a
 * new project.
 *
 * TEST BEFORE USING TO DETERMINE APPLICABILITY.
 *
 * public domain from M. Kimes.
 */

int main(int argc, char *argv[])
{

  static FILE *fpi, *fpo;
  static int x = 20000;		/* arbitrary starting number */
  static char s[256];
  static char filein[260], fileout[260];
  register char *p;
  register int z;

  printf("\nUsage:  renum dlg.h\n Produces new renumbered dlg.h & dlg.bak\n");

  if (argc < 2)
    strcpy(filein, "FM3DLG.H");
  else
    strcpy(filein, argv[1]);
  strcpy(fileout, filein);
  p = strrchr(filein, '.');
  if (p)
    strcpy(p, ".BAK");
  else
    strcat(p, ".BAK");
  if (!stricmp(filein, fileout)) {
    printf(" **Error: input file == output file -- \"%s\" == \"%s\"\n",
	   filein, fileout);
    return 1;
  }

  remove(filein);
  rename(fileout, filein);
  fpi = fopen(filein, "r+");
  if (fpi) {
    fpo = fopen(fileout, "w");
    if (fpo) {
      while (!feof(fpi)) {
	if (!fgets(s, 256, fpi))
	  break;
	if (s[strlen(s) - 1] == '\n')
	  s[strlen(s) - 1] = 0;
	p = s;
	while (*p == ' ')
	  p++;
	if (p != s)
	  memmove(s, p, strlen(p) + 1);
	if (*s) {
	  p = &s[strlen(s) - 1];
	  while (*p == ' ' && p > s)
	    p--;
	  if (*p == ' ')
	    *p = 0;
	}
	if (!*s) {
	  fprintf(fpo, "\n");
	  x = (x - (x % 100)) + 100;
	}
	else if ((*s == '#' && strncmp(s, "#define ", 8)) ||
		 !strncmp(s, "/*", 2) || *s == '*')
	  fprintf(fpo, "%s%s\n", (*s == '*') ? " " : "", s);
	else {
	  s[39] = 0;
	  p = &s[strlen(s) - 1];
	  while (*p == ' ' && p > s)
	    p--;
	  if (*p == ' ')
	    *p = 0;
	  if (*s) {
	    fprintf(fpo, "%s", s);
	    for (z = strlen(s); z < 40; z++)
	      fprintf(fpo, " ");
	    fprintf(fpo, "%d\n", x++);
	  }
	  else
	    fprintf(fpo, "\n");
	}
      }
      fclose(fpo);
    }
    else {
      fclose(fpi);
      fpi = NULL;
      rename(filein, fileout);
      printf(" **Error: couldn't open output file \"%s\"\n", fileout);
      return 1;
    }
    if (fpi)
      fclose(fpi);
  }
  else {
    rename(filein, fileout);
    printf(" **Error: couldn't open input file \"%s\"\n", filein);
    return 1;
  }
  printf("  Complete.\n");
  return 0;
}