[fceu.git] / general.c

/* FCE Ultra - NES/Famicom Emulator
 *
 * Copyright notice for this file:
 *  Copyright (C) 2002 Xodnizel
 *
 * 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.
 *
 * 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, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 */

#ifndef _GNU_SOURCE
#define _GNU_SOURCE // for asprintf
#endif

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

#include <sys/types.h>
#include <sys/stat.h>
#include <unistd.h>

#include "types.h"
#include "fce.h"

#include "general.h"
#include "state.h"
#include "movie.h"

#include "driver.h"

#include "md5.h"
#include "svga.h"

static char BaseDirectory[2048];
char FileBase[2048];
static char FileExt[2048];	/* Includes the . character, as in ".nes" */

static char FileBaseDirectory[2048];

void FCEUI_SetBaseDirectory(char *dir)
{
 strncpy(BaseDirectory,dir,2047);
 BaseDirectory[2047]=0;
}

static char *odirs[FCEUIOD__COUNT]={0,0,0,0,0};     // odirs, odors. ^_^

void FCEUI_SetDirOverride(int which, char *n)
{
//	FCEU_PrintError("odirs[%d]=%s->%s", which, odirs[which], n);
if(which < FCEUIOD__COUNT)
 odirs[which]=n;

#if 0
 if(FCEUGameInfo)  /* Rebuild cache of present states/movies. */
 {
  if(which==FCEUIOD_STATE)
   FCEUSS_CheckStates();
  else if(which == FCEUIOD_MISC)
   FCEUMOV_CheckMovies();
 }
#endif
}

#ifndef HAVE_ASPRINTF
static int asprintf(char **strp, const char *fmt, ...)
{
 va_list ap;
 int ret;

 va_start(ap,fmt);
 if(!(*strp=malloc(2048)))
  return(0);
 ret=vsnprintf(*strp,2048,fmt,ap);
 va_end(ap);
 return(ret);
}
#endif

char* FCEU_GetPath(int type)
{
 char *ret=0;
 switch(type)
 {
  case FCEUMKF_STATE:if(odirs[FCEUIOD_STATE])
                      ret=strdup(odirs[FCEUIOD_STATE]);
                     else
                      asprintf(&ret,"%s"PSS"movie",BaseDirectory);
		     break;
  case FCEUMKF_MOVIE:if(odirs[FCEUIOD_MISC])
                      ret=strdup(odirs[FCEUIOD_MISC]);
                     else
                      asprintf(&ret,"%s"PSS"movie",BaseDirectory);
		     break;
 }
 return(ret);
}

char *FCEU_MakePath(int type, const char* filebase)
{
 char *ret=0;

 switch(type)
 {
  case FCEUMKF_MOVIE:if(odirs[FCEUIOD_MISC])
                      asprintf(&ret,"%s"PSS"%s",odirs[FCEUIOD_MISC],filebase);
                     else
                      asprintf(&ret,"%s"PSS"movie"PSS"%s",BaseDirectory,filebase);
		     break;
 }
 return(ret);
}

char *FCEU_MakeFName(int type, int id1, char *cd1)
{
 char *ret=0;
 struct stat tmpstat;

 switch(type)
 {
  case FCEUMKF_NPTEMP: asprintf(&ret,"%s"PSS"m590plqd94fo.tmp",BaseDirectory);break;
  case FCEUMKF_MOVIE:if(id1>=0)
					 {
	                  if(odirs[FCEUIOD_MISC])
                       asprintf(&ret,"%s"PSS"%s.%d.fcm",odirs[FCEUIOD_MISC],FileBase,id1);
                      else
                       asprintf(&ret,"%s"PSS"movie"PSS"%s.%d.fcm",BaseDirectory,FileBase,id1);
                      if(stat(ret,&tmpstat)==-1)
                      {
                       if(odirs[FCEUIOD_MISC])
                        asprintf(&ret,"%s"PSS"%s.%d.fcm",odirs[FCEUIOD_MISC],FileBase,id1);
                       else
                        asprintf(&ret,"%s"PSS"movie"PSS"%s.%d.fcm",BaseDirectory,FileBase,id1);
                      }
					 }
					 else
					 {
					  if(odirs[FCEUIOD_MISC])
					   asprintf(&ret,"%s"PSS"%s.fcm",odirs[FCEUIOD_MISC],FileBase);
					  else
					   asprintf(&ret,"%s"PSS"movie"PSS"%s.fcm",BaseDirectory,FileBase);
					 }
		     break;
  case FCEUMKF_STATE:if(odirs[FCEUIOD_STATE])
					 {
                      asprintf(&ret,"%s"PSS"%s.fc%d",odirs[FCEUIOD_STATE],FileBase,id1);
//					  FCEU_PrintError("A");
					 }
                     else
					 {
                      asprintf(&ret,"%s"PSS"fcs"PSS"%s.fc%d",BaseDirectory,FileBase,id1);
//					  FCEU_PrintError("B");
					 }
		     if(stat(ret,&tmpstat)==-1)
		     {
		      if(odirs[FCEUIOD_STATE])
			  {
                       asprintf(&ret,"%s"PSS"%s.fc%d",odirs[FCEUIOD_STATE],FileBase,id1);
//					  FCEU_PrintError("C");
			  }
                      else
					  {
                       asprintf(&ret,"%s"PSS"fcs"PSS"%s.fc%d",BaseDirectory,FileBase,id1);
//					  FCEU_PrintError("D");
					  }
		     }
                     break;
  case FCEUMKF_SNAP:
		    if(FSettings.SnapName)
		    {
                     if(odirs[FCEUIOD_SNAPS])
                      asprintf(&ret,"%s"PSS"%s-%d.%s",odirs[FCEUIOD_SNAPS],FileBase,id1,cd1);
                     else
                      asprintf(&ret,"%s"PSS"snaps"PSS"%s-%d.%s",BaseDirectory,FileBase,id1,cd1);
		    }
		    else
		    {
		     if(odirs[FCEUIOD_SNAPS])
                      asprintf(&ret,"%s"PSS"%d.%s",odirs[FCEUIOD_SNAPS],id1,cd1);
                     else
                      asprintf(&ret,"%s"PSS"snaps"PSS"%d.%s",BaseDirectory,id1,cd1);
		    }
                    break;
  case FCEUMKF_FDS:if(odirs[FCEUIOD_NV])
		    asprintf(&ret,"%s"PSS"%s.fds",odirs[FCEUIOD_NV],FileBase);
		   else
	 	    asprintf(&ret,"%s"PSS"sav"PSS"%s.fds",BaseDirectory,FileBase);
		   break;
  case FCEUMKF_SAV:if(odirs[FCEUIOD_NV])
                    asprintf(&ret,"%s"PSS"%s.%s",odirs[FCEUIOD_NV],FileBase,cd1);
	           else
                    asprintf(&ret,"%s"PSS"sav"PSS"%s.%s",BaseDirectory,FileBase,cd1);
                   break;
  case FCEUMKF_CHEAT:
                     if(odirs[FCEUIOD_CHEATS])
                      asprintf(&ret,"%s"PSS"%s.cht",odirs[FCEUIOD_CHEATS],FileBase);
                     else
                      asprintf(&ret,"%s"PSS"cheats"PSS"%s.cht",BaseDirectory,FileBase);
                     break;
  case FCEUMKF_IPS:  asprintf(&ret,"%s"PSS"%s%s.ips",FileBaseDirectory,FileBase,FileExt);
                     break;
  case FCEUMKF_GGROM:asprintf(&ret,"%s"PSS"gg.rom",BaseDirectory);break;
  case FCEUMKF_FDSROM:asprintf(&ret,"%s"PSS"disksys.rom",BaseDirectory);break;
  case FCEUMKF_PALETTE:
                       if(odirs[FCEUIOD_MISC])
                        asprintf(&ret,"%s"PSS"%s.pal",odirs[FCEUIOD_MISC],FileBase);
                       else
                        asprintf(&ret,"%s"PSS"pal"PSS"%s.pal",BaseDirectory,FileBase);
                       break;
  case FCEUMKF_MOVIEGLOB:
                     if(odirs[FCEUIOD_MISC])
//                      asprintf(&ret,"%s"PSS"%s*.fcm",odirs[FCEUIOD_MISC],FileBase);
                      asprintf(&ret,"%s"PSS"*.???",odirs[FCEUIOD_MISC]);
                     else
//                      asprintf(&ret,"%s"PSS"fcs"PSS"%s*.fcm",BaseDirectory,FileBase);
                      asprintf(&ret,"%s"PSS"movie"PSS"*.???",BaseDirectory);
                     break;
  case FCEUMKF_MOVIEGLOB2:
                      asprintf(&ret,"%s"PSS"*.???",BaseDirectory);
                     break;
  case FCEUMKF_STATEGLOB:
                     if(odirs[FCEUIOD_STATE])
                      asprintf(&ret,"%s"PSS"%s*.fc?",odirs[FCEUIOD_STATE],FileBase);
                     else
                      asprintf(&ret,"%s"PSS"fcs"PSS"%s*.fc?",BaseDirectory,FileBase);
                     break;
 }
 return(ret);
}

void GetFileBase(const char *f)
{
        const char *tp1,*tp3;

 #if PSS_STYLE==4
     tp1=((char *)strrchr(f,':'));
 #elif PSS_STYLE==1
     tp1=((char *)strrchr(f,'/'));
 #else
     tp1=((char *)strrchr(f,'\\'));
  #if PSS_STYLE!=3
     tp3=((char *)strrchr(f,'/'));
     if(tp1<tp3) tp1=tp3;
  #endif
 #endif
     if(!tp1)
     {
      tp1=f;
      strcpy(FileBaseDirectory,".");
     }
     else
     {
      memcpy(FileBaseDirectory,f,tp1-f);
      FileBaseDirectory[tp1-f]=0;
      tp1++;
     }

     if(((tp3=strrchr(f,'.'))!=NULL) && (tp3>tp1))
     {
      memcpy(FileBase,tp1,tp3-tp1);
      FileBase[tp3-tp1]=0;
      strcpy(FileExt,tp3);
     }
     else
     {
      strcpy(FileBase,tp1);
      FileExt[0]=0;
     }
}

uint32 uppow2(uint32 n)
{
 int x;

 for(x=31;x>=0;x--)
  if(n&(1<<x))
  {
   if((1<<x)!=n)
    return(1<<(x+1));
   break;
  }
 return n;
}
Commit	Line	Data
c62d2810	1	/* FCE Ultra - NES/Famicom Emulator
	2	*
	3	* Copyright notice for this file:
92764e62	4	* Copyright (C) 2002 Xodnizel
c62d2810	5	*
	6	* This program is free software; you can redistribute it and/or modify
	7	* it under the terms of the GNU General Public License as published by
	8	* the Free Software Foundation; either version 2 of the License, or
	9	* (at your option) any later version.
	10	*
	11	* This program is distributed in the hope that it will be useful,
	12	* but WITHOUT ANY WARRANTY; without even the implied warranty of
	13	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	14	* GNU General Public License for more details.
	15	*
	16	* You should have received a copy of the GNU General Public License
	17	* along with this program; if not, write to the Free Software
	18	* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
	19	*/
	20
e6ee7529	21	#ifndef _GNU_SOURCE
13624c8f	22	#define _GNU_SOURCE // for asprintf
e6ee7529	23	#endif
e6ee7529	24
92764e62	25	#include <stdio.h>
c62d2810	26	#include <stdlib.h>
c62d2810	27	#include <string.h>
92764e62	28	#include <stdarg.h>
	29
	30	#include <sys/types.h>
	31	#include <sys/stat.h>
	32	#include <unistd.h>
c62d2810	33
c62d2810	34	#include "types.h"
92764e62	35	#include "fce.h"
c62d2810	36
	37	#include "general.h"
	38	#include "state.h"
92764e62	39	#include "movie.h"
92764e62	40
c62d2810	41	#include "driver.h"
c62d2810	42
92764e62	43	#include "md5.h"
92764e62	44	#include "svga.h"
c62d2810	45
c62d2810	46	static char BaseDirectory[2048];
92764e62	47	char FileBase[2048];
	48	static char FileExt[2048]; /* Includes the . character, as in ".nes" */
	49
c62d2810	50	static char FileBaseDirectory[2048];
	51
	52	void FCEUI_SetBaseDirectory(char *dir)
	53	{
	54	strncpy(BaseDirectory,dir,2047);
	55	BaseDirectory[2047]=0;
	56	}
	57
	58	static char *odirs[FCEUIOD__COUNT]={0,0,0,0,0}; // odirs, odors. ^_^
	59
	60	void FCEUI_SetDirOverride(int which, char *n)
	61	{
92764e62	62	// FCEU_PrintError("odirs[%d]=%s->%s", which, odirs[which], n);
92764e62	63	if(which < FCEUIOD__COUNT)
c62d2810	64	odirs[which]=n;
92764e62	65
	66	#if 0
	67	if(FCEUGameInfo) /* Rebuild cache of present states/movies. */
	68	{
	69	if(which==FCEUIOD_STATE)
	70	FCEUSS_CheckStates();
	71	else if(which == FCEUIOD_MISC)
	72	FCEUMOV_CheckMovies();
	73	}
	74	#endif
	75	}
	76
	77	#ifndef HAVE_ASPRINTF
	78	static int asprintf(char *strp, const char fmt, ...)
	79	{
	80	va_list ap;
	81	int ret;
	82
	83	va_start(ap,fmt);
	84	if(!(*strp=malloc(2048)))
	85	return(0);
	86	ret=vsnprintf(*strp,2048,fmt,ap);
	87	va_end(ap);
	88	return(ret);
	89	}
	90	#endif
	91
	92	char* FCEU_GetPath(int type)
	93	{
	94	char *ret=0;
	95	switch(type)
	96	{
	97	case FCEUMKF_STATE:if(odirs[FCEUIOD_STATE])
	98	ret=strdup(odirs[FCEUIOD_STATE]);
	99	else
	100	asprintf(&ret,"%s"PSS"movie",BaseDirectory);
	101	break;
	102	case FCEUMKF_MOVIE:if(odirs[FCEUIOD_MISC])
	103	ret=strdup(odirs[FCEUIOD_MISC]);
	104	else
	105	asprintf(&ret,"%s"PSS"movie",BaseDirectory);
	106	break;
	107	}
	108	return(ret);
	109	}
	110
	111	char FCEU_MakePath(int type, const char filebase)
	112	{
	113	char *ret=0;
	114
	115	switch(type)
	116	{
	117	case FCEUMKF_MOVIE:if(odirs[FCEUIOD_MISC])
	118	asprintf(&ret,"%s"PSS"%s",odirs[FCEUIOD_MISC],filebase);
	119	else
	120	asprintf(&ret,"%s"PSS"movie"PSS"%s",BaseDirectory,filebase);
	121	break;
	122	}
	123	return(ret);
c62d2810	124	}
c62d2810	125
c62d2810	126	char FCEU_MakeFName(int type, int id1, char cd1)
c62d2810	127	{
92764e62	128	char *ret=0;
92764e62	129	struct stat tmpstat;
c62d2810	130
c62d2810	131	switch(type)
c62d2810	132	{
92764e62	133	case FCEUMKF_NPTEMP: asprintf(&ret,"%s"PSS"m590plqd94fo.tmp",BaseDirectory);break;
	134	case FCEUMKF_MOVIE:if(id1>=0)
	135	{
	136	if(odirs[FCEUIOD_MISC])
	137	asprintf(&ret,"%s"PSS"%s.%d.fcm",odirs[FCEUIOD_MISC],FileBase,id1);
	138	else
	139	asprintf(&ret,"%s"PSS"movie"PSS"%s.%d.fcm",BaseDirectory,FileBase,id1);
	140	if(stat(ret,&tmpstat)==-1)
	141	{
	142	if(odirs[FCEUIOD_MISC])
	143	asprintf(&ret,"%s"PSS"%s.%d.fcm",odirs[FCEUIOD_MISC],FileBase,id1);
	144	else
	145	asprintf(&ret,"%s"PSS"movie"PSS"%s.%d.fcm",BaseDirectory,FileBase,id1);
	146	}
	147	}
	148	else
	149	{
	150	if(odirs[FCEUIOD_MISC])
	151	asprintf(&ret,"%s"PSS"%s.fcm",odirs[FCEUIOD_MISC],FileBase);
	152	else
	153	asprintf(&ret,"%s"PSS"movie"PSS"%s.fcm",BaseDirectory,FileBase);
	154	}
	155	break;
c62d2810	156	case FCEUMKF_STATE:if(odirs[FCEUIOD_STATE])
92764e62	157	{
	158	asprintf(&ret,"%s"PSS"%s.fc%d",odirs[FCEUIOD_STATE],FileBase,id1);
	159	// FCEU_PrintError("A");
	160	}
c62d2810	161	else
92764e62	162	{
	163	asprintf(&ret,"%s"PSS"fcs"PSS"%s.fc%d",BaseDirectory,FileBase,id1);
	164	// FCEU_PrintError("B");
	165	}
	166	if(stat(ret,&tmpstat)==-1)
	167	{
	168	if(odirs[FCEUIOD_STATE])
	169	{
	170	asprintf(&ret,"%s"PSS"%s.fc%d",odirs[FCEUIOD_STATE],FileBase,id1);
	171	// FCEU_PrintError("C");
	172	}
	173	else
	174	{
	175	asprintf(&ret,"%s"PSS"fcs"PSS"%s.fc%d",BaseDirectory,FileBase,id1);
	176	// FCEU_PrintError("D");
	177	}
	178	}
c62d2810	179	break;
	180	case FCEUMKF_SNAP:
	181	if(FSettings.SnapName)
	182	{
	183	if(odirs[FCEUIOD_SNAPS])
92764e62	184	asprintf(&ret,"%s"PSS"%s-%d.%s",odirs[FCEUIOD_SNAPS],FileBase,id1,cd1);
c62d2810	185	else
92764e62	186	asprintf(&ret,"%s"PSS"snaps"PSS"%s-%d.%s",BaseDirectory,FileBase,id1,cd1);
c62d2810	187	}
	188	else
	189	{
	190	if(odirs[FCEUIOD_SNAPS])
92764e62	191	asprintf(&ret,"%s"PSS"%d.%s",odirs[FCEUIOD_SNAPS],id1,cd1);
c62d2810	192	else
92764e62	193	asprintf(&ret,"%s"PSS"snaps"PSS"%d.%s",BaseDirectory,id1,cd1);
c62d2810	194	}
c62d2810	195	break;
d97315ac	196	case FCEUMKF_FDS:if(odirs[FCEUIOD_NV])
92764e62	197	asprintf(&ret,"%s"PSS"%s.fds",odirs[FCEUIOD_NV],FileBase);
d97315ac	198	else
92764e62	199	asprintf(&ret,"%s"PSS"sav"PSS"%s.fds",BaseDirectory,FileBase);
d97315ac	200	break;
c62d2810	201	case FCEUMKF_SAV:if(odirs[FCEUIOD_NV])
92764e62	202	asprintf(&ret,"%s"PSS"%s.%s",odirs[FCEUIOD_NV],FileBase,cd1);
c62d2810	203	else
92764e62	204	asprintf(&ret,"%s"PSS"sav"PSS"%s.%s",BaseDirectory,FileBase,cd1);
c62d2810	205	break;
	206	case FCEUMKF_CHEAT:
	207	if(odirs[FCEUIOD_CHEATS])
92764e62	208	asprintf(&ret,"%s"PSS"%s.cht",odirs[FCEUIOD_CHEATS],FileBase);
c62d2810	209	else
92764e62	210	asprintf(&ret,"%s"PSS"cheats"PSS"%s.cht",BaseDirectory,FileBase);
	211	break;
	212	case FCEUMKF_IPS: asprintf(&ret,"%s"PSS"%s%s.ips",FileBaseDirectory,FileBase,FileExt);
c62d2810	213	break;
92764e62	214	case FCEUMKF_GGROM:asprintf(&ret,"%s"PSS"gg.rom",BaseDirectory);break;
92764e62	215	case FCEUMKF_FDSROM:asprintf(&ret,"%s"PSS"disksys.rom",BaseDirectory);break;
c62d2810	216	case FCEUMKF_PALETTE:
c62d2810	217	if(odirs[FCEUIOD_MISC])
92764e62	218	asprintf(&ret,"%s"PSS"%s.pal",odirs[FCEUIOD_MISC],FileBase);
c62d2810	219	else
6f6bc6fa	220	asprintf(&ret,"%s"PSS"pal"PSS"%s.pal",BaseDirectory,FileBase);
c62d2810	221	break;
92764e62	222	case FCEUMKF_MOVIEGLOB:
	223	if(odirs[FCEUIOD_MISC])
	224	// asprintf(&ret,"%s"PSS"%s*.fcm",odirs[FCEUIOD_MISC],FileBase);
	225	asprintf(&ret,"%s"PSS"*.???",odirs[FCEUIOD_MISC]);
	226	else
	227	// asprintf(&ret,"%s"PSS"fcs"PSS"%s*.fcm",BaseDirectory,FileBase);
	228	asprintf(&ret,"%s"PSS"movie"PSS"*.???",BaseDirectory);
	229	break;
	230	case FCEUMKF_MOVIEGLOB2:
	231	asprintf(&ret,"%s"PSS"*.???",BaseDirectory);
	232	break;
	233	case FCEUMKF_STATEGLOB:
	234	if(odirs[FCEUIOD_STATE])
	235	asprintf(&ret,"%s"PSS"%s*.fc?",odirs[FCEUIOD_STATE],FileBase);
	236	else
	237	asprintf(&ret,"%s"PSS"fcs"PSS"%s*.fc?",BaseDirectory,FileBase);
	238	break;
c62d2810	239	}
92764e62	240	return(ret);
c62d2810	241	}
c62d2810	242
92764e62	243	void GetFileBase(const char *f)
c62d2810	244	{
92764e62	245	const char tp1,tp3;
c62d2810	246
	247	#if PSS_STYLE==4
	248	tp1=((char *)strrchr(f,':'));
	249	#elif PSS_STYLE==1
	250	tp1=((char *)strrchr(f,'/'));
	251	#else
	252	tp1=((char *)strrchr(f,'\\'));
	253	#if PSS_STYLE!=3
	254	tp3=((char *)strrchr(f,'/'));
	255	if(tp1<tp3) tp1=tp3;
	256	#endif
	257	#endif
	258	if(!tp1)
	259	{
	260	tp1=f;
	261	strcpy(FileBaseDirectory,".");
	262	}
	263	else
	264	{
	265	memcpy(FileBaseDirectory,f,tp1-f);
	266	FileBaseDirectory[tp1-f]=0;
	267	tp1++;
	268	}
	269
92764e62	270	if(((tp3=strrchr(f,'.'))!=NULL) && (tp3>tp1))
c62d2810	271	{
	272	memcpy(FileBase,tp1,tp3-tp1);
	273	FileBase[tp3-tp1]=0;
92764e62	274	strcpy(FileExt,tp3);
c62d2810	275	}
	276	else
	277	{
	278	strcpy(FileBase,tp1);
	279	FileExt[0]=0;
	280	}
	281	}
	282
	283	uint32 uppow2(uint32 n)
	284	{
	285	int x;
	286
	287	for(x=31;x>=0;x--)
	288	if(n&(1<<x))
	289	{
	290	if((1<<x)!=n)
	291	return(1<<(x+1));
	292	break;
	293	}
	294	return n;
	295	}
	296