RACE/main.cpp

//---------------------------------------------------------------------------
//	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 2 of the License, or
//	(at your option) any later version. See also the license.txt file for
//	additional informations.
//---------------------------------------------------------------------------

//
// This is the main program entry point
//

#include "unzip.h"

#include "types.h"
#include "main.h"


#include "flash.h"
#include "race-memory.h"
#include "tlcs900h.h"
#include "input.h"

#include "graphics.h"
#include "tlcs900h.h"

#include "neopopsound.h"

#ifdef DRZ80
#include "DrZ80_support.h"
#else
#if defined(CZ80)
#include "cz80_support.h"
#else
#include "z80.h"
#endif
#endif

extern int finscan;
extern int language;
extern int tipo_consola;

int		m_bIsActive;
EMUINFO		m_emuInfo;
SYSTEMINFO	m_sysInfo[NR_OF_SYSTEMS];

#define ARRAY_SIZE(a)		(sizeof(a)/sizeof(*(a)))

void mainemuinit(void)
{
   // initialize cpu memory
   mem_init();
   graphics_init();

   // initialize the TLCS-900H cpu
   tlcs_init();

#if defined(CZ80)
   Z80_Init();
#endif
#if defined(DRZ80) || defined(CZ80)
   Z80_Reset();
#else
   z80Init();
#endif

   // if neogeo pocket color rom, act if we are a neogeo pocket color
   tlcsMemWriteB(0x6F91,tlcsMemReadB(0x00200023));
   if (tipo_consola==1)
      tlcsMemWriteB(0x6F91,0x00);

   // pretend we're running in English mode

   //NOTA setting_ngp_language 00 Ingles - 01 Jap
   if (setting_ngp_language == 0)
   {
      tlcsMemWriteB(0x00006F87,0x01);
   }
   if (setting_ngp_language == 1)
   {
      tlcsMemWriteB(0x00006F87,0x00);
   }

   // kludges & fixes
   switch (tlcsMemReadW(0x00200020))
   {
      case 0x0059:	// Sonic
      case 0x0061:	// Metal Slug 2nd
         *get_address(0x0020001F) = 0xFF;
         break;
   }
   ngpSoundOff();
}

void	SetActive(BOOL bActive)
{
	m_bIsActive = bActive;
}

void	SetEmu(int machine)
{
	m_emuInfo.machine = machine;
	m_emuInfo.drv = &m_sysInfo[machine];
}

bool initRom(void)
{
   int		i, m;
   char	*licenseInfo   = " BY SNK CORPORATION";
   char	*ggLicenseInfo = "TMR SEGA";
   BOOL	romFound       = TRUE;

   finscan=198;

   if (mainrom[0x000020] == 0x65 || mainrom[0x000020] == 0x93)
      finscan=199;

#if 0
   dbg_print("in openNgp(%s)\n", lpszPathName);
#endif

   // first stop the current emulation
#if 0
   dbg_print("openNgp: SetEmu(NONE)\n");
#endif
   SetEmu(NGPC);
#if 0
   dbg_print("openNgp: SetActive(FALSE)\n");
#endif
   SetActive(FALSE);

   // check NEOGEO POCKET
   // check license info
   for (i=0;i<19;i++)
   {
      if (mainrom[0x000009 + i] != licenseInfo[i])
         romFound = FALSE;
   }
   if (romFound)
   {
      //dbg_print("openNgp: romFound == TRUE\n");
      i = mainrom[0x000023];
      if (i == 0x10 || i == 0x00)
      {
         /* initialize emulation */
         if (i == 0x10)
            m = NGPC;
         else
         {
            // fix for missing Mono/Color setting in Cool Coom Jam SAMPLE rom
            if (mainrom[0x000020] == 0x34 && mainrom[0x000021] == 0x12)
               m = NGPC;
            else
               m = NGP;
         }
         if (tipo_consola==1)
            m = NGP;

         //dbg_print("openNgp: SetEmu(%d)\n", m);
         SetEmu(m);

         //dbg_print("openNgp: Calling mainemuinit(%s)\n", lpszPathName);
         mainemuinit();
         // start running the emulation loop
         //dbg_print("openNgp: SetActive(TRUE)\n");
         SetActive(TRUE);

         // acknowledge opening of the document went fine
         //dbg_print("openNgp: returning success\n");
         return TRUE;
      }

      fprintf(stderr, "Not a valid or unsupported rom file.\n");
      return FALSE;
   }

   fprintf(stderr, "Not a valid or unsupported rom file. romFound==FALSE\n");
   return FALSE;
}

void initSysInfo(void)
{
	m_bIsActive = FALSE;

	m_emuInfo.machine = NGPC;
	m_emuInfo.drv = &m_sysInfo[m_emuInfo.machine];
	m_emuInfo.romSize = 0;

	strcpy(m_emuInfo.RomFileName, "");

	m_sysInfo[NGP].hSize = 160;
	m_sysInfo[NGP].vSize = 152;
	m_sysInfo[NGP].Ticks = 6*1024*1024;

	m_sysInfo[NGPC].hSize = 160;
	m_sysInfo[NGPC].vSize = 152;
	m_sysInfo[NGPC].Ticks = 6*1024*1024;
}

char *getFileNameExtension(char *nom_fichier)
{
   char *ptrPoint = nom_fichier;
   while(*nom_fichier)
   {
      if (*nom_fichier == '.')
         ptrPoint = nom_fichier;
      nom_fichier++;
   }
   return ptrPoint;
}

#ifdef WANT_ZIP
int loadFromZipByName(unsigned char *buffer, char *archive,
      char *filename, int *filesize)
{
   char name[_MAX_PATH];
   int i;
   const char *recognizedExtensions[] = {
      ".ngp",
      ".npc",
      ".ngc"
   };

   int zerror = UNZ_OK;
   unzFile zhandle;
   unz_file_info zinfo;

   zhandle = unzOpen(archive);
   if(!zhandle) return (0);

   /* Seek to first file in archive */
   zerror = unzGoToFirstFile(zhandle);
   if(zerror != UNZ_OK)
   {
      unzClose(zhandle);
      return (0);
   }

   //On scanne tous les fichiers de l'archive et ne prend que ceux qui ont une extension valable, sinon on prend le dernier fichier trouvé...
   while (zerror == UNZ_OK) {
      if (unzGetCurrentFileInfo(zhandle, &zinfo, name, 0xff, NULL, 0, NULL, 0) != UNZ_OK) {
         unzClose(zhandle);
         return 0;
      }

      //Vérifions que c'est la bonne extension
      char *extension = getFileNameExtension(name);

      for (i=0;i < ARRAY_SIZE(recognizedExtensions);i++)
      {
         if (!strcmp(extension, recognizedExtensions[i]))
            break;
      }
      if (i < ARRAY_SIZE(recognizedExtensions))
         break;

      zerror = unzGoToNextFile(zhandle);
   }

   /* Get information about the file */
   //    unzGetCurrentFileInfo(zhandle, &zinfo, &name[0], 0xff, NULL, 0, NULL, 0);
   *filesize = zinfo.uncompressed_size;

   /* Error: file size is zero */
   if(*filesize <= 0 || *filesize > (4*1024*1024))
   {
      unzClose(zhandle);
      return (0);
   }

   /* Open current file */
   zerror = unzOpenCurrentFile(zhandle);
   if(zerror != UNZ_OK)
   {
      unzClose(zhandle);
      return (0);
   }

   /* Allocate buffer and read in file */
   //buffer = malloc(*filesize);
   //if(!buffer) return (NULL);
   zerror = unzReadCurrentFile(zhandle, buffer, *filesize);

   /* Internal error: free buffer and close file */
   if(zerror < 0 || zerror != *filesize)
   {
      //free(buffer);
      //buffer = NULL;
      unzCloseCurrentFile(zhandle);
      unzClose(zhandle);
      return (0);
   }

   /* Close current file and archive file */
   unzCloseCurrentFile(zhandle);
   unzClose(zhandle);

   memcpy(filename, name, _MAX_PATH);
   return 1;
}
#endif // WANT_ZIP

/*
    Verifies if a file is a ZIP archive or not.
    Returns: 1= ZIP archive, 0= not a ZIP archive
*/
int check_zip(char *filename)
{
   unsigned char buf[2];
   FILE *fd = fopen(filename, "rb");
   if(!fd)
      return (0);
   fread(buf, 2, 1, fd);
   fclose(fd);
   if(memcmp(buf, "PK", 2) == 0)
      return (1);
   return (0);
}

int strrchr2(const char *src, int c)
{
  size_t len=strlen(src);

  while(len>0)
  {
    len--;
    if(*(src+len) == c)
      return len;
  }

  return 0;
}

int handleInputFile(char *romName)
{
	FILE *romFile;
	int iDepth = 0;
	int size;

	initSysInfo();  //initialize it all

	//if it's a ZIP file, we need to handle that here.
	iDepth = strrchr2(romName, '.');
	iDepth++;

#ifdef WANT_ZIP
	if( ( strcmp( romName + iDepth, "zip" ) == 0 ) || ( strcmp( romName + iDepth, "ZIP" ) == 0 ))
	{
		//get ROM from ZIP
		if(check_zip(romName))
		{
			char name[_MAX_PATH];
			if(!loadFromZipByName(mainrom, romName, name, &size))
			{
				fprintf(stderr, "Load failed from %s\n", romName);
				return 0;
			}
			m_emuInfo.romSize = size;
			strcpy(m_emuInfo.RomFileName, romName);
		}
		else
		{
			fprintf(stderr, "%s not PKZIP file\n", romName);
			return 0;
		}
	}
	else
#endif // WANT_ZIP
	{
		//get ROM from binary ROM file
		romFile = fopen(romName, "rb");
		if(!romFile)
		{
			fprintf(stderr, "Couldn't open %s file\n", romName);
			return 0;
		}

		m_emuInfo.romSize = fread(mainrom, 1, 4*1024*1024, romFile);
		strcpy(m_emuInfo.RomFileName, romName);
	}

	if(!initRom())
	{
		fprintf(stderr, "initRom couldn't handle %s file\n", romName);
		return 0;
	}

	setFlashSize(m_emuInfo.romSize);
	return 1;
}