/* sdas.c

   Copyright (C) 2009-2010 Borut Razem

This program is free software; you can redistribute it and/or modify it
under the terms of the GNU General Public License as published by the
Free Software Foundation; either version 3, or (at your option) any
later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program.  If not, see <http://www.gnu.org/licenses/>. */

#ifndef _WIN32
#include <libgen.h>
#endif
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <ctype.h>

#include "sdas.h"

#define NELEM(x)  (sizeof (x) / sizeof (x)[0])


static int sdas = -1;
static enum sdas_target_e target = TARGET_ID_UNKNOWN;


static char
*program_name (char *path)
{
#ifdef _WIN32
  static char fname[_MAX_FNAME];

  _splitpath (path, NULL, NULL, fname, NULL);
  return fname;
#else
  return basename (path);
#endif
}


static void
check_init(void)
{
  if (sdas == -1)
    {
      fprintf(stderr, "sdas_init not called!\n");
      exit (1);
    }
}


void
sdas_init (char *path)
{
  struct tgt_s {
    char *str;
    enum sdas_target_e target;
  } tgt[] = {
    { "gb", TARGET_ID_GB },
    { "z80", TARGET_ID_Z80 },
    { "8051", TARGET_ID_8051 },
    { "390", TARGET_ID_DS390 },
    { "6808", TARGET_ID_6808 },
    { "stm8", TARGET_ID_STM8 },
    { "pdk13", TARGET_ID_PDK13 },
    { "pdk14", TARGET_ID_PDK14 },
    { "pdk15", TARGET_ID_PDK15 },
    { "pdk16", TARGET_ID_PDK16 },
  };
  int i = NELEM (tgt);

  char *progname = program_name (path);
#if _WIN32
  /* convert it to lower case:
     on DOS and Windows 9x the file name in argv[0] is uppercase */
  char *p;

  for (p = progname; '\0' != *p; ++p)
    *p = tolower (*p);
#endif
  if ((sdas = (strncmp(progname, "sdas", 4) == 0)) != 0)
    {
      for (i = 0; i < NELEM (tgt); ++i)
        {
          if (strstr(progname, tgt[i].str))
            {
              target = tgt[i].target;
              break;
            }
        }
    }
  /* diagnostic message */
  if (getenv ("SDAS_DIAG"))
    {
      printf ("sdas path: %s\n", path);
      printf ("is sdas: %d\n", sdas);
      if (sdas)
        printf ("sdas target: %s\n", (i >= NELEM (tgt)) ? "unknown" : tgt[i].str);
    }
}


int
is_sdas(void)
{
  check_init();
  return sdas;
}


enum sdas_target_e
get_sdas_target(void)
{
  check_init();
  return target;
}

void
set_sdas_target(enum sdas_target_e newtarget)
{
  target = newtarget;
}

int
is_sdas_target_z80_like(void)
{
  check_init();
  return target == TARGET_ID_Z80 || target == TARGET_ID_GB;
}


int
is_sdas_target_8051_like(void)
{
  check_init();
  return target == TARGET_ID_8051 || target == TARGET_ID_DS390;
}

int
is_sdas_target_stm8(void)
{
  check_init();
  return target == TARGET_ID_STM8;
}

int
is_sdas_target_pdk(void)
{
  check_init();
  return target == TARGET_ID_PDK13 ||
         target == TARGET_ID_PDK14 ||
         target == TARGET_ID_PDK15;
}