[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);
                   if(stat(ret,&tmpstat)==-1)
                   {
                    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"%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
	1	/* FCE Ultra - NES/Famicom Emulator
	2	*
	3	* Copyright notice for this file:
	4	* Copyright (C) 2002 Xodnizel
	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
	21	#ifndef _GNU_SOURCE
	22	#define _GNU_SOURCE // for asprintf
	23	#endif
	24
	25	#include <stdio.h>
	26	#include <stdlib.h>
	27	#include <string.h>
	28	#include <stdarg.h>
	29
	30	#include <sys/types.h>
	31	#include <sys/stat.h>
	32	#include <unistd.h>
	33
	34	#include "types.h"
	35	#include "fce.h"
	36
	37	#include "general.h"
	38	#include "state.h"
	39	#include "movie.h"
	40
	41	#include "driver.h"
	42
	43	#include "md5.h"
	44	#include "svga.h"
	45
	46	static char BaseDirectory[2048];
	47	char FileBase[2048];
	48	static char FileExt[2048]; /* Includes the . character, as in ".nes" */
	49
	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	{
	62	// FCEU_PrintError("odirs[%d]=%s->%s", which, odirs[which], n);
	63	if(which < FCEUIOD__COUNT)
	64	odirs[which]=n;
	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);
	124	}
	125
	126	char FCEU_MakeFName(int type, int id1, char cd1)
	127	{
	128	char *ret=0;
	129	struct stat tmpstat;
	130
	131	switch(type)
	132	{
	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;
	156	case FCEUMKF_STATE:if(odirs[FCEUIOD_STATE])
	157	{
	158	asprintf(&ret,"%s"PSS"%s.fc%d",odirs[FCEUIOD_STATE],FileBase,id1);
	159	// FCEU_PrintError("A");
	160	}
	161	else
	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	}
	179	break;
	180	case FCEUMKF_SNAP:
	181	if(FSettings.SnapName)
	182	{
	183	if(odirs[FCEUIOD_SNAPS])
	184	asprintf(&ret,"%s"PSS"%s-%d.%s",odirs[FCEUIOD_SNAPS],FileBase,id1,cd1);
	185	else
	186	asprintf(&ret,"%s"PSS"snaps"PSS"%s-%d.%s",BaseDirectory,FileBase,id1,cd1);
	187	}
	188	else
	189	{
	190	if(odirs[FCEUIOD_SNAPS])
	191	asprintf(&ret,"%s"PSS"%d.%s",odirs[FCEUIOD_SNAPS],id1,cd1);
	192	else
	193	asprintf(&ret,"%s"PSS"snaps"PSS"%d.%s",BaseDirectory,id1,cd1);
	194	}
	195	break;
	196	case FCEUMKF_FDS:if(odirs[FCEUIOD_NV])
	197	asprintf(&ret,"%s"PSS"%s.fds",odirs[FCEUIOD_NV],FileBase);
	198	else
	199	asprintf(&ret,"%s"PSS"sav"PSS"%s.fds",BaseDirectory,FileBase);
	200	break;
	201	case FCEUMKF_SAV:if(odirs[FCEUIOD_NV])
	202	asprintf(&ret,"%s"PSS"%s.%s",odirs[FCEUIOD_NV],FileBase,cd1);
	203	else
	204	asprintf(&ret,"%s"PSS"sav"PSS"%s.%s",BaseDirectory,FileBase,cd1);
	205	if(stat(ret,&tmpstat)==-1)
	206	{
	207	if(odirs[FCEUIOD_NV])
	208	asprintf(&ret,"%s"PSS"%s.%s",odirs[FCEUIOD_NV],FileBase,cd1);
	209	else
	210	asprintf(&ret,"%s"PSS"sav"PSS"%s.%s",BaseDirectory,FileBase,cd1);
	211	}
	212	break;
	213	case FCEUMKF_CHEAT:
	214	if(odirs[FCEUIOD_CHEATS])
	215	asprintf(&ret,"%s"PSS"%s.cht",odirs[FCEUIOD_CHEATS],FileBase);
	216	else
	217	asprintf(&ret,"%s"PSS"cheats"PSS"%s.cht",BaseDirectory,FileBase);
	218	break;
	219	case FCEUMKF_IPS: asprintf(&ret,"%s"PSS"%s%s.ips",FileBaseDirectory,FileBase,FileExt);
	220	break;
	221	case FCEUMKF_GGROM:asprintf(&ret,"%s"PSS"gg.rom",BaseDirectory);break;
	222	case FCEUMKF_FDSROM:asprintf(&ret,"%s"PSS"disksys.rom",BaseDirectory);break;
	223	case FCEUMKF_PALETTE:
	224	if(odirs[FCEUIOD_MISC])
	225	asprintf(&ret,"%s"PSS"%s.pal",odirs[FCEUIOD_MISC],FileBase);
	226	else
	227	asprintf(&ret,"%s"PSS"%s.pal",BaseDirectory,FileBase);
	228	break;
	229	case FCEUMKF_MOVIEGLOB:
	230	if(odirs[FCEUIOD_MISC])
	231	// asprintf(&ret,"%s"PSS"%s*.fcm",odirs[FCEUIOD_MISC],FileBase);
	232	asprintf(&ret,"%s"PSS"*.???",odirs[FCEUIOD_MISC]);
	233	else
	234	// asprintf(&ret,"%s"PSS"fcs"PSS"%s*.fcm",BaseDirectory,FileBase);
	235	asprintf(&ret,"%s"PSS"movie"PSS"*.???",BaseDirectory);
	236	break;
	237	case FCEUMKF_MOVIEGLOB2:
	238	asprintf(&ret,"%s"PSS"*.???",BaseDirectory);
	239	break;
	240	case FCEUMKF_STATEGLOB:
	241	if(odirs[FCEUIOD_STATE])
	242	asprintf(&ret,"%s"PSS"%s*.fc?",odirs[FCEUIOD_STATE],FileBase);
	243	else
	244	asprintf(&ret,"%s"PSS"fcs"PSS"%s*.fc?",BaseDirectory,FileBase);
	245	break;
	246	}
	247	return(ret);
	248	}
	249
	250	void GetFileBase(const char *f)
	251	{
	252	const char tp1,tp3;
	253
	254	#if PSS_STYLE==4
	255	tp1=((char *)strrchr(f,':'));
	256	#elif PSS_STYLE==1
	257	tp1=((char *)strrchr(f,'/'));
	258	#else
	259	tp1=((char *)strrchr(f,'\\'));
	260	#if PSS_STYLE!=3
	261	tp3=((char *)strrchr(f,'/'));
	262	if(tp1<tp3) tp1=tp3;
	263	#endif
	264	#endif
	265	if(!tp1)
	266	{
	267	tp1=f;
	268	strcpy(FileBaseDirectory,".");
	269	}
	270	else
	271	{
	272	memcpy(FileBaseDirectory,f,tp1-f);
	273	FileBaseDirectory[tp1-f]=0;
	274	tp1++;
	275	}
	276
	277	if(((tp3=strrchr(f,'.'))!=NULL) && (tp3>tp1))
	278	{
	279	memcpy(FileBase,tp1,tp3-tp1);
	280	FileBase[tp3-tp1]=0;
	281	strcpy(FileExt,tp3);
	282	}
	283	else
	284	{
	285	strcpy(FileBase,tp1);
	286	FileExt[0]=0;
	287	}
	288	}
	289
	290	uint32 uppow2(uint32 n)
	291	{
	292	int x;
	293
	294	for(x=31;x>=0;x--)
	295	if(n&(1<<x))
	296	{
	297	if((1<<x)!=n)
	298	return(1<<(x+1));
	299	break;
	300	}
	301	return n;
	302	}
	303