/* ascii to atascii */

/*
   This program is copyleft 1989
   by JRD.  See COPYLEFT.JRD for
   a detailed description of your
   rights and responsibilities
   about copying it.

   Give this program and its source
   away!  Help create more free
   software!
*/

#include <stdio.h>
#ifndef M6502
#include <errno.h>
#endif

char buf1[40];
char buf2[40];

main(argc, argv)
int argc;
char ** argv;
{
  char * name;
  char * p;
  FILE * inf;
  FILE * outf;
  int ch;

  if (argc > 1)
    {
    name = argv[1];
    strcpy(buf1, name);
    }
   else
    {
#ifdef M6502
    printf("A2AT>");
    if (getname(buf1) <= 0)
      exit(0);
    name = buf1;
#else
    printf("A2AT what?\n");
    exit(0);
#endif
    }
  fn_default(name, 0, buf1);
  name = buf1;
  inf = fopen(name, "r");
/*  printf("open '%s'->%x\n", name, inf); */
  if ((int)inf <= 0)
    {
    printf("Can't open '%s' error %x\n", name, errno);
#ifdef M6502
    kbdchar();
#endif
    exit(0);
    }
  strcpy(buf2, buf1);
  p = strchr(buf2, '.');
  if (!p)
    p = buf2 + strlen(buf2);
  strcpy(p, ".tmp");
  outf = fopen(buf2, "w");
/*  printf("open '%s'->%x\n", buf2, outf); */
  while ((ch = fgetc(inf)) != EOF)
    {
    switch (ch)
      {
#ifdef M6502
      case 0x0D:
        fgetc(inf);
      case 0x0A:
        ch = '\n';
        break;
      case 0x09:
        ch = '\t';
        break;
#else
      case '\n':
        ch = 0x9B;
        break;
      case '\t':
        ch = 0x7F;
        break;
#endif
      }
    fputc(ch, outf);
    }
  fclose(inf);
  fclose(outf);
  delete(buf1);
  rename(buf2, buf1);
}

#ifdef M6502
int getname(buf)
char * buf;
{
  int i;
  int ch;

  i = 0;    /* str idx */
  for ( ; ((ch = kbdchar()) != '\n') ; )
  {
  if (ch == '\b')
    {
    if (i > 0)
      {
      fputc('\b', stderr);
      i--;
      }
    }
      else
    {
    fputc(ch, stderr);
    buf[i] = ch;
    i++;
    }
  }
  buf[i] = '\0';
  return strlen(buf);
}
#endif