libretro/beetle-lynx-libretro
1
0
Fork 0
mirror of https://github.com/libretro/beetle-lynx-libretro.git synced 2024-11-23 00:00:50 +00:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity
master
beetle-lynx-libretro/mednafen/mempatcher.cpp
libretroadmin 9c48124dc1 Cleanup header includes
2022-12-14 18:41:29 +01:00

635 lines
12 KiB
C++
Raw Permalink Blame History

/* Mednafen - Multi-system Emulator
*
* 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
*/
#include "mednafen.h"
#include <stdio.h>
#include <string.h>
#include <ctype.h>
#include <vector>
#ifdef _WIN32
#include "msvc_compat.h"
#endif
#include "general.h"
#include "mempatcher.h"
#include "settings.h"
static uint8 **RAMPtrs = NULL;
static uint32 PageSize;
static uint32 NumPages;
typedef struct
{
bool excluded;
uint8 value;
} CompareStruct;
typedef struct __CHEATF
{
char *name;
char *conditions;
uint32 addr;
uint64 val;
uint64 compare;
unsigned int length;
bool bigendian;
unsigned int icount; // Instance count
char type; /* 'R' for replace, 'S' for substitute(GG), 'C' for substitute with compare */
int status;
} CHEATF;
static std::vector<CHEATF> cheats;
static bool CheatsActive = TRUE;
bool SubCheatsOn = 0;
std::vector<SUBCHEAT> SubCheats[8];
static void RebuildSubCheats(void)
{
std::vector<CHEATF>::iterator chit;
SubCheatsOn = 0;
for(int x = 0; x < 8; x++)
SubCheats[x].clear();
if(!CheatsActive) return;
for(chit = cheats.begin(); chit != cheats.end(); chit++)
{
if(chit->status && chit->type != 'R')
{
for(unsigned int x = 0; x < chit->length; x++)
{
SUBCHEAT tmpsub;
unsigned int shiftie;
if(chit->bigendian)
shiftie = (chit->length - 1 - x) * 8;
else
shiftie = x * 8;
tmpsub.addr = chit->addr + x;
tmpsub.value = (chit->val >> shiftie) & 0xFF;
if(chit->type == 'C')
tmpsub.compare = (chit->compare >> shiftie) & 0xFF;
else
tmpsub.compare = -1;
SubCheats[(chit->addr + x) & 0x7].push_back(tmpsub);
SubCheatsOn = 1;
}
}
}
}
bool MDFNMP_Init(uint32 ps, uint32 numpages)
{
PageSize = ps;
NumPages = numpages;
RAMPtrs = (uint8 **)calloc(numpages, sizeof(uint8 *));
CheatsActive = MDFN_GetSettingB("cheats");
return(1);
}
void MDFNMP_Kill(void)
{
if(RAMPtrs)
{
free(RAMPtrs);
RAMPtrs = NULL;
}
}
void MDFNMP_AddRAM(uint32 size, uint32 A, uint8 *RAM)
{
uint32 AB = A / PageSize;
size /= PageSize;
for(unsigned int x = 0; x < size; x++)
{
RAMPtrs[AB + x] = RAM;
if(RAM) // Don't increment the RAM pointer if we're passed a NULL pointer
RAM += PageSize;
}
}
void MDFNMP_InstallReadPatches(void)
{
if(!CheatsActive) return;
std::vector<SUBCHEAT>::iterator chit;
#if 0
for(unsigned int x = 0; x < 8; x++)
for(chit = SubCheats[x].begin(); chit != SubCheats[x].end(); chit++)
{
if(MDFNGameInfo->InstallReadPatch)
MDFNGameInfo->InstallReadPatch(chit->addr);
}
#endif
}
void MDFNMP_RemoveReadPatches(void)
{
#if 0
if(MDFNGameInfo->RemoveReadPatches)
MDFNGameInfo->RemoveReadPatches();
#endif
}
/* This function doesn't allocate any memory for "name" */
static int AddCheatEntry(char *name, char *conditions, uint32 addr, uint64 val, uint64 compare, int status, char type, unsigned int length, bool bigendian)
{
CHEATF temp;
memset(&temp, 0, sizeof(CHEATF));
temp.name=name;
temp.conditions = conditions;
temp.addr=addr;
temp.val=val;
temp.status=status;
temp.compare=compare;
temp.length = length;
temp.bigendian = bigendian;
temp.type=type;
cheats.push_back(temp);
return(1);
}
void MDFN_LoadGameCheats(void)
{
RebuildSubCheats();
}
void MDFN_FlushGameCheats(void)
{
std::vector<CHEATF>::iterator chit;
for(chit = cheats.begin(); chit != cheats.end(); chit++)
{
free(chit->name);
if(chit->conditions)
free(chit->conditions);
}
cheats.clear();
RebuildSubCheats();
}
int MDFNI_AddCheat(const char *name, uint32 addr, uint64 val, uint64 compare, char type, unsigned int length, bool bigendian)
{
char *t;
if(!(t = strdup(name)))
{
/* Error allocating memory for cheat data. */
return(0);
}
if(!AddCheatEntry(t, NULL, addr,val,compare,1,type, length, bigendian))
{
free(t);
return(0);
}
MDFNMP_RemoveReadPatches();
RebuildSubCheats();
MDFNMP_InstallReadPatches();
return(1);
}
int MDFNI_DelCheat(uint32 which)
{
free(cheats[which].name);
cheats.erase(cheats.begin() + which);
MDFNMP_RemoveReadPatches();
RebuildSubCheats();
MDFNMP_InstallReadPatches();
return(1);
}
/*
Condition format(ws = white space):
<variable size><ws><endian><ws><address><ws><operation><ws><value>
[,second condition...etc.]
Value should be unsigned integer, hex(with a 0x prefix) or
base-10.
Operations:
>=
<=
>
<
==
!=
& // Result of AND between two values is nonzero
!& // Result of AND between two values is zero
^ // same, XOR
!^
| // same, OR
!|
Full example:
2 L 0xADDE == 0xDEAD, 1 L 0xC000 == 0xA0
*/
static bool TestConditions(const char *string)
{
char address[64];
char operation[64];
char value[64];
char endian;
unsigned int bytelen;
bool passed = 1;
while(sscanf(string, "%u %c %63s %63s %63s", &bytelen, &endian, address, operation, value) == 5 && passed)
{
uint64 v_value;
uint64 value_at_address;
#if 0
uint32 v_address;
if(address[0] == '0' && address[1] == 'x')
v_address = strtoul(address + 2, NULL, 16);
else
v_address = strtoul(address, NULL, 10);
#endif
if(value[0] == '0' && value[1] == 'x')
v_value = strtoull(value + 2, NULL, 16);
else
v_value = strtoull(value, NULL, 0);
value_at_address = 0;
if(!strcmp(operation, ">="))
{
if(!(value_at_address >= v_value))
passed = 0;
}
else if(!strcmp(operation, "<="))
{
if(!(value_at_address <= v_value))
passed = 0;
}
else if(!strcmp(operation, ">"))
{
if(!(value_at_address > v_value))
passed = 0;
}
else if(!strcmp(operation, "<"))
{
if(!(value_at_address < v_value))
passed = 0;
}
else if(!strcmp(operation, "=="))
{
if(!(value_at_address == v_value))
passed = 0;
}
else if(!strcmp(operation, "!="))
{
if(!(value_at_address != v_value))
passed = 0;
}
else if(!strcmp(operation, "&"))
{
if(!(value_at_address & v_value))
passed = 0;
}
else if(!strcmp(operation, "!&"))
{
if(value_at_address & v_value)
passed = 0;
}
else if(!strcmp(operation, "^"))
{
if(!(value_at_address ^ v_value))
passed = 0;
}
else if(!strcmp(operation, "!^"))
{
if(value_at_address ^ v_value)
passed = 0;
}
else if(!strcmp(operation, "|"))
{
if(!(value_at_address | v_value))
passed = 0;
}
else if(!strcmp(operation, "!|"))
{
if(value_at_address | v_value)
passed = 0;
}
string = strchr(string, ',');
if(string == NULL)
break;
else
string++;
}
return(passed);
}
void MDFNMP_ApplyPeriodicCheats(void)
{
std::vector<CHEATF>::iterator chit;
if(!CheatsActive)
return;
//TestConditions("2 L 0x1F00F5 == 0xDEAD");
//if(TestConditions("1 L 0x1F0058 > 0")) //, 1 L 0xC000 == 0x01"));
for(chit = cheats.begin(); chit != cheats.end(); chit++)
{
if(chit->status && chit->type == 'R')
{
if(!chit->conditions || TestConditions(chit->conditions))
for(unsigned int x = 0; x < chit->length; x++)
{
uint32 page = ((chit->addr + x) / PageSize) % NumPages;
if(RAMPtrs[page])
{
uint64 tmpval = chit->val;
if(chit->bigendian)
tmpval >>= (chit->length - 1 - x) * 8;
else
tmpval >>= x * 8;
RAMPtrs[page][(chit->addr + x) % PageSize] = tmpval;
}
}
}
}
}
void MDFNI_ListCheats(int (*callb)(char *name, uint32 a, uint64 v, uint64 compare, int s, char type, unsigned int length, bool bigendian, void *data), void *data)
{
std::vector<CHEATF>::iterator chit;
for(chit = cheats.begin(); chit != cheats.end(); chit++)
{
if(!callb(chit->name, chit->addr, chit->val, chit->compare, chit->status, chit->type, chit->length, chit->bigendian, data)) break;
}
}
int MDFNI_GetCheat(uint32 which, char **name, uint32 *a, uint64 *v, uint64 *compare, int *s, char *type, unsigned int *length, bool *bigendian)
{
CHEATF *next = &cheats[which];
if(name)
*name=next->name;
if(a)
*a=next->addr;
if(v)
*v=next->val;
if(s)
*s=next->status;
if(compare)
*compare=next->compare;
if(type)
*type=next->type;
if(length)
*length = next->length;
if(bigendian)
*bigendian = next->bigendian;
return(1);
}
static uint8 CharToNibble(char thechar)
{
const char lut[16] = {'0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'B', 'C', 'D', 'E', 'F' };
thechar = toupper(thechar);
for(int x = 0; x < 16; x++)
if(lut[x] == thechar)
return(x);
return(0xFF);
}
bool MDFNI_DecodeGBGG(const char *instr, uint32 *a, uint8 *v, uint8 *c, char *type)
{
char str[10];
int len;
for(int x = 0; x < 9; x++)
{
while(*instr && CharToNibble(*instr) == 255)
instr++;
if(!(str[x] = *instr)) break;
instr++;
}
str[9] = 0;
len = strlen(str);
if(len != 9 && len != 6)
return(0);
uint32 tmp_address;
uint8 tmp_value;
uint8 tmp_compare = 0;
tmp_address = (CharToNibble(str[5]) << 12) | (CharToNibble(str[2]) << 8) | (CharToNibble(str[3]) << 4) | (CharToNibble(str[4]) << 0);
tmp_address ^= 0xF000;
tmp_value = (CharToNibble(str[0]) << 4) | (CharToNibble(str[1]) << 0);
if(len == 9)
{
tmp_compare = (CharToNibble(str[6]) << 4) | (CharToNibble(str[8]) << 0);
tmp_compare = (tmp_compare >> 2) | ((tmp_compare << 6) & 0xC0);
tmp_compare ^= 0xBA;
}
*a = tmp_address;
*v = tmp_value;
if(len == 9)
{
*c = tmp_compare;
*type = 'C';
}
else
{
*c = 0;
*type = 'S';
}
return(1);
}
static int GGtobin(char c)
{
static char lets[16]={'A','P','Z','L','G','I','T','Y','E','O','X','U','K','S','V','N'};
int x;
for(x=0;x<16;x++)
if(lets[x] == toupper(c)) return(x);
return(0);
}
/* Returns 1 on success, 0 on failure. Sets *a,*v,*c. */
int MDFNI_DecodeGG(const char *str, uint32 *a, uint8 *v, uint8 *c, char *type)
{
uint16 A;
uint8 V,C;
uint8 t;
int s;
A=0x8000;
V=0;
C=0;
s=strlen(str);
if(s!=6 && s!=8) return(0);
t=GGtobin(*str++);
V|=(t&0x07);
V|=(t&0x08)<<4;
t=GGtobin(*str++);
V|=(t&0x07)<<4;
A|=(t&0x08)<<4;
t=GGtobin(*str++);
A|=(t&0x07)<<4;
//if(t&0x08) return(0); /* 8-character code?! */
t=GGtobin(*str++);
A|=(t&0x07)<<12;
A|=(t&0x08);
t=GGtobin(*str++);
A|=(t&0x07);
A|=(t&0x08)<<8;
if(s==6)
{
t=GGtobin(*str++);
A|=(t&0x07)<<8;
V|=(t&0x08);
*a=A;
*v=V;
*type = 'S';
*c = 0;
return(1);
}
else
{
t=GGtobin(*str++);
A|=(t&0x07)<<8;
C|=(t&0x08);
t=GGtobin(*str++);
C|=(t&0x07);
C|=(t&0x08)<<4;
t=GGtobin(*str++);
C|=(t&0x07)<<4;
V|=(t&0x08);
*a=A;
*v=V;
*c=C;
*type = 'C';
return(1);
}
return(0);
}
int MDFNI_DecodePAR(const char *str, uint32 *a, uint8 *v, uint8 *c, char *type)
{
int boo[4];
if(strlen(str)!=8) return(0);
sscanf(str,"%02x%02x%02x%02x",boo,boo+1,boo+2,boo+3);
*c = 0;
if(1)
{
*a=(boo[3]<<8)|(boo[2]+0x7F);
*v=0;
}
else
{
*v=boo[3];
*a=boo[2]|(boo[1]<<8);
}
*type = 'S';
return(1);
}
/* name can be NULL if the name isn't going to be changed. */
int MDFNI_SetCheat(uint32 which, const char *name, uint32 a, uint64 v, uint64 compare, int s, char type, unsigned int length, bool bigendian)
{
CHEATF *next = &cheats[which];
if(name)
{
char *t;
if(!(t=(char *)realloc(next->name,strlen(name)+1)))
return 0;
next->name=t;
strcpy(next->name,name);
}
next->addr=a;
next->val=v;
next->status=s;
next->compare=compare;
next->type=type;
next->length = length;
next->bigendian = bigendian;
RebuildSubCheats();
return(1);
}
/* Convenience function. */
int MDFNI_ToggleCheat(uint32 which)
{
cheats[which].status = !cheats[which].status;
RebuildSubCheats();
return(cheats[which].status);
}
Reference in New Issue View Git Blame Copy Permalink