/* Send debug messages back to uade frontend, which either prints
the message for user or not. "-v" option can be used in uade123 to see all
these messages. */
void uade_send_debug(const char *fmt, ...)
{
char dmsg[256];
va_list ap;
va_start (ap, fmt);
vsnprintf(dmsg, sizeof(dmsg), fmt, ap);
if (uade_send_string(UADE_REPLY_MSG, dmsg, &uadeipc)) {
fprintf(stderr, "uadecore %s:%d: Could not send debug message.\n", __FILE__, __LINE__);
}
}
int init()
{
char temp[256];
//uadeconf_loaded = uade_load_initial_config(uadeconfname,
// sizeof uadeconfname,
// &state.config, NULL);
if(eaglestore == 0) {
memset(&state, 0, sizeof state);
__android_log_print(ANDROID_LOG_VERBOSE, "UADEPlugin", "baseDir os '%s'", baseDir);
uadeconf_loaded = uade_load_initial_config(&state, uadeconfname, sizeof(uadeconfname), baseDir);
strcpy(state.permconfig.basedir.name, baseDir);
state.config = state.permconfig;
// state.config.no_filter = 1;
uade_set_peer(&uadeipc, 1, "client", "server");
state.ipc = uadeipc;
eaglestore = 1;
}
if(thread == 0) {
__android_log_print(ANDROID_LOG_VERBOSE, "UADEPlugin", "Creating thread");
pthread_create(&thread, NULL, threadProc, NULL);
sprintf(temp, "%s/uaerc", baseDir);
if(uade_send_string(UADE_COMMAND_CONFIG, temp, &uadeipc)) {
__android_log_print(ANDROID_LOG_VERBOSE, "UADE", "Can not send config name\n");
}
}
if(!soundBuffer)
soundBuffer = (short*)malloc(44100 * 8);
return 0;
}
void uade_get_amiga_message(void)
{
uae_u8 *ptr;
uae_u8 *nameptr;
FILE *file;
int x;
unsigned int mins, maxs, curs;
int status;
int src, dst, off, len;
char tmpstr[256];
char *srcstr, *dststr;
uint32_t *u32ptr;
uint8_t space[256];
struct uade_msg *um = (struct uade_msg *) space;
x = uade_get_u32(SCORE_INPUT_MSG); /* message type from amiga */
switch (x) {
case AMIGAMSG_SONG_END:
uade_song_end("player", 0);
break;
case AMIGAMSG_SUBSINFO:
mins = uade_get_u32(SCORE_MIN_SUBSONG);
maxs = uade_get_u32(SCORE_MAX_SUBSONG);
curs = uade_get_u32(SCORE_CUR_SUBSONG);
/* Brain damage in TFMX BC Kid Despair */
if (maxs < mins) {
uade_send_debug("Odd subsongs. Eagleplayer reported (min, cur, max) == (%u, %u, %u)", mins, curs, maxs);
maxs = mins;
}
/* Brain damage in Bubble bobble custom */
if (curs > maxs) {
uade_send_debug("Odd subsongs. Eagleplayer reported (min, cur, max) == (%u, %u, %u)", mins, curs, maxs);
maxs = curs;
}
um->msgtype = UADE_REPLY_SUBSONG_INFO;
um->size = 12;
u32ptr = (uint32_t *) um->data;
u32ptr[0] = htonl(mins);
u32ptr[1] = htonl(maxs);
u32ptr[2] = htonl(curs);
if (uade_send_message(um, &uadeipc)) {
fprintf(stderr, "uadecore: Could not send subsong info message.\n");
exit(-1);
}
break;
case AMIGAMSG_PLAYERNAME:
strlcpy(tmpstr, (char *) get_real_address(0x204), sizeof tmpstr);
uade_send_string(UADE_REPLY_PLAYERNAME, tmpstr, &uadeipc);
break;
case AMIGAMSG_MODULENAME:
strlcpy(tmpstr, (char *) get_real_address(0x204), sizeof tmpstr);
uade_send_string(UADE_REPLY_MODULENAME, tmpstr, &uadeipc);
break;
case AMIGAMSG_FORMATNAME:
strlcpy(tmpstr, (char *) get_real_address(0x204), sizeof tmpstr);
uade_send_string(UADE_REPLY_FORMATNAME, tmpstr, &uadeipc);
break;
case AMIGAMSG_GENERALMSG:
uade_send_debug((char *) get_real_address(0x204));
break;
case AMIGAMSG_CHECKERROR:
uade_song_end("module check failed", 1);
break;
case AMIGAMSG_SCORECRASH:
if (uade_debug) {
fprintf(stderr, "uadecore: Score crashed.\n");
activate_debugger();
break;
}
uade_song_end("score crashed", 1);
break;
case AMIGAMSG_SCOREDEAD:
if (uade_debug) {
fprintf(stderr, "uadecore: Score is dead.\n");
activate_debugger();
break;
}
uade_song_end("score died", 1);
break;
case AMIGAMSG_LOADFILE:
/* load a file named at 0x204 (name pointer) to address pointed by
0x208 and insert the length to 0x20C */
src = uade_get_u32(0x204);
if (!uade_valid_string(src)) {
fprintf(stderr, "uadecore: Load name in invalid address range.\n");
break;
}
nameptr = get_real_address(src);
if ((file = uade_open_amiga_file((char *) nameptr, uade_player_dir))) {
dst = uade_get_u32(0x208);
len = uade_safe_load(dst, file, uade_highmem - dst);
fclose(file); file = NULL;
uade_put_long(0x20C, len);
uade_send_debug("load success: %s ptr 0x%x size 0x%x", nameptr, dst, len);
} else {
uade_send_debug("load: file not found: %s", nameptr);
}
break;
case AMIGAMSG_READ:
src = uade_get_u32(0x204);
if (!uade_valid_string(src)) {
fprintf(stderr, "uadecore: Read name in invalid address range.\n");
break;
}
nameptr = get_real_address(src);
dst = uade_get_u32(0x208);
off = uade_get_u32(0x20C);
len = uade_get_u32(0x210);
if ((file = uade_open_amiga_file((char *) nameptr, uade_player_dir))) {
if (fseek(file, off, SEEK_SET)) {
perror("can not fseek to position");
x = 0;
} else {
x = uade_safe_load(dst, file, len);
if (x > len)
x = len;
}
fclose(file);
uade_send_debug("read %s dst 0x%x off 0x%x len 0x%x res 0x%x", nameptr, dst, off, len, x);
uade_put_long(0x214, x);
} else {
uade_send_debug("read: file not found: %s", nameptr);
uade_put_long(0x214, 0);
}
break;
case AMIGAMSG_FILESIZE:
src = uade_get_u32(0x204);
if (!uade_valid_string(src)) {
fprintf(stderr, "uadecore: Filesize name in invalid address range.\n");
break;
}
nameptr = get_real_address(src);
if ((file = uade_open_amiga_file((char *) nameptr, uade_player_dir))) {
fseek(file, 0, SEEK_END);
len = ftell(file);
fclose(file);
uade_put_long(0x208, len);
uade_put_long(0x20C, -1);
uade_send_debug("filesize: file %s res 0x%x", nameptr, len);
} else {
uade_put_long(0x208, 0);
uade_put_long(0x20C, 0);
uade_send_debug("filesize: file not found: %s", nameptr);
}
break;
case AMIGAMSG_TIME_CRITICAL:
uade_time_critical = uade_get_u32(0x204) ? 1 : 0;
if (uade_speed_hack < 0) {
/* a negative value forbids use of speed hack */
uade_time_critical = 0;
}
break;
case AMIGAMSG_GET_INFO:
src = uade_get_u32(0x204);
dst = uade_get_u32(0x208);
len = uade_get_u32(0x20C);
if (!uade_valid_string(src)) {
fprintf(stderr, "uadecore: get info: Invalid src: 0x%x\n", src);
break;
}
if (len <= 0) {
fprintf(stderr, "uadecore: get info: len = %d\n", len);
break;
}
if (!valid_address(dst, len)) {
fprintf(stderr, "uadecore: get info: Invalid dst: 0x%x\n", dst);
break;
}
srcstr = (char *) get_real_address(src);
dststr = (char *) get_real_address(dst);
uade_send_debug("score issued an info request: %s (maxlen %d)\n", srcstr, len);
len = get_info_for_ep(dststr, srcstr, len);
/* Send printable debug */
do {
size_t i;
size_t maxspace = sizeof space;
if (len <= 0) {
maxspace = 1;
} else {
if (len < maxspace)
maxspace = len;
}
for (i = 0; i < maxspace; i++) {
space[i] = dststr[i];
if (space[i] == 0)
space[i] = ' ';
}
if (i < maxspace) {
space[i] = 0;
} else {
space[maxspace - 1] = 0;
}
uade_send_debug("reply to score: %s (total len %d)\n", space, len);
} while (0);
uade_put_long(0x20C, len);
break;
case AMIGAMSG_START_OUTPUT:
uade_audio_output = 1;
uade_send_debug("Starting audio output at %d", uade_audio_skip);
break;
default:
fprintf(stderr,"uadecore: Unknown message from score (%d)\n", x);
break;
}
}
void uadecore_get_amiga_message(void)
{
uae_u8 *ptr;
uae_u8 *nameptr;
int x;
unsigned int mins, maxs, curs;
int status;
int src, dst, len;
size_t off;
char tmpstr[256];
char *srcstr, *dststr;
struct uade_file *f;
uint32_t *u32ptr;
uint8_t space[256];
struct uade_msg *um = (struct uade_msg *) space;
x = amiga_get_u32(SCORE_INPUT_MSG); /* message type from amiga */
switch (x) {
case AMIGAMSG_SONG_END:
uadecore_song_end("player", 0);
break;
case AMIGAMSG_SUBSINFO:
mins = amiga_get_u32(SCORE_MIN_SUBSONG);
maxs = amiga_get_u32(SCORE_MAX_SUBSONG);
curs = amiga_get_u32(SCORE_CUR_SUBSONG);
/* Brain damage in TFMX BC Kid Despair */
if (maxs < mins) {
uadecore_send_debug("Odd subsongs. Eagleplayer reported (min, cur, max) == (%u, %u, %u)", mins, curs, maxs);
maxs = mins;
}
/* Brain damage in Bubble bobble custom */
if (curs > maxs) {
uadecore_send_debug("Odd subsongs. Eagleplayer reported (min, cur, max) == (%u, %u, %u)", mins, curs, maxs);
maxs = curs;
}
um->msgtype = UADE_REPLY_SUBSONG_INFO;
um->size = 12;
u32ptr = (uint32_t *) um->data;
u32ptr[0] = htonl(mins);
u32ptr[1] = htonl(maxs);
u32ptr[2] = htonl(curs);
if (uade_send_message(um, &uadecore_ipc)) {
fprintf(stderr, "uadecore: Could not send subsong info message.\n");
exit(1);
}
break;
case AMIGAMSG_PLAYERNAME:
strlcpy(tmpstr, (char *) get_real_address(0x204), sizeof tmpstr);
uade_send_string(UADE_REPLY_PLAYERNAME, tmpstr, &uadecore_ipc);
break;
case AMIGAMSG_MODULENAME:
strlcpy(tmpstr, (char *) get_real_address(0x204), sizeof tmpstr);
uade_send_string(UADE_REPLY_MODULENAME, tmpstr, &uadecore_ipc);
break;
case AMIGAMSG_FORMATNAME:
strlcpy(tmpstr, (char *) get_real_address(0x204), sizeof tmpstr);
uade_send_string(UADE_REPLY_FORMATNAME, tmpstr, &uadecore_ipc);
break;
case AMIGAMSG_GENERALMSG:
uadecore_send_debug((char *) get_real_address(0x204));
break;
case AMIGAMSG_CHECKERROR:
uadecore_song_end("module check failed", 1);
break;
case AMIGAMSG_SCORECRASH:
if (uadecore_debug) {
fprintf(stderr, "uadecore: Score crashed.\n");
activate_debugger();
break;
}
uadecore_song_end("score crashed", 1);
break;
case AMIGAMSG_SCOREDEAD:
if (uadecore_debug) {
fprintf(stderr, "uadecore: Score is dead.\n");
activate_debugger();
break;
}
uadecore_song_end("score died", 1);
break;
case AMIGAMSG_LOADFILE:
/*
* Load a file named at 0x204 (name pointer) to address pointed by
* 0x208 and insert the length to 0x20C.
* For example, R-Type (TFMX format) uses this.
*/
src = amiga_get_u32(0x204);
if (!uade_valid_string(src)) {
fprintf(stderr, "uadecore: Load name in invalid address range.\n");
break;
}
nameptr = get_real_address(src);
f = lookup_amiga_file_cache((const char *) nameptr);
if (f == NULL) {
uadecore_send_debug("load: request error: %s", nameptr);
exit(1);
}
if (f->data == NULL) {
/* File not found */
uadecore_send_debug("load: file not found: %s", nameptr);
break;
}
dst = amiga_get_u32(0x208);
len = uade_safe_copy(dst, f->data, f->size);
if (len == 0 && f->size > 0)
uadecore_send_debug("load: too long a file to copy");
uade_put_long(0x20C, len);
uadecore_send_debug("load: %s ptr 0x%x size 0x%x", nameptr, dst, len);
break;
case AMIGAMSG_READ:
/* Used by "mdat.Crystal_Palace-1", for example */
src = amiga_get_u32(0x204);
if (!uade_valid_string(src)) {
fprintf(stderr, "uadecore: Read name in invalid address range.\n");
break;
}
nameptr = get_real_address(src);
f = lookup_amiga_file_cache((const char *) nameptr);
if (f == NULL) {
uadecore_send_debug("read: request error: %s", nameptr);
exit(1);
}
x = 0;
if (f->data != NULL) {
dst = amiga_get_u32(0x208);
off = amiga_get_u32(0x20C);
len = amiga_get_u32(0x210);
if (off >= f->size) {
uadecore_send_debug("read: file offset over the file end");
} else {
size_t endpos = off + ((size_t) len);
size_t tocopy = len;
if (endpos > f->size)
tocopy = f->size - off;
x = uade_safe_copy(dst, f->data + off, tocopy);
}
uadecore_send_debug("read: %s dst 0x%x off 0x%x len 0x%x bytesread 0x%x", nameptr, dst, off, len, x);
} else {
uadecore_send_debug("read: file not found: %s", nameptr);
}
uade_put_long(0x214, x);
break;
case AMIGAMSG_FILESIZE:
/* Used by "mdat.Crystal_Palace-1", for example */
src = amiga_get_u32(0x204);
if (!uade_valid_string(src)) {
fprintf(stderr, "uadecore: Filesize name in invalid address range.\n");
break;
}
nameptr = get_real_address(src);
f = lookup_amiga_file_cache((const char *) nameptr);
if (f == NULL) {
uadecore_send_debug("filesize: request error: %s", nameptr);
exit(1);
}
len = 0;
x = 0;
if (f->data != NULL) {
len = f->size;
x = -1;
uadecore_send_debug("filesize: file %s res 0x%x", nameptr, len);
} else {
/* Note, f->size == -1 if file does not exist */
uadecore_send_debug("filesize: file not found: %s", nameptr);
}
uade_put_long(0x208, len);
uade_put_long(0x20C, x);
break;
case AMIGAMSG_TIME_CRITICAL:
uadecore_time_critical = amiga_get_u32(0x204) ? 1 : 0;
if (speed_hack < 0) {
/* a negative value forbids use of speed hack */
uadecore_time_critical = 0;
}
break;
case AMIGAMSG_GET_INFO:
src = amiga_get_u32(0x204);
dst = amiga_get_u32(0x208);
len = amiga_get_u32(0x20C);
if (!uade_valid_string(src)) {
fprintf(stderr, "uadecore: get info: Invalid src: 0x%x\n", src);
break;
}
if (len <= 0) {
fprintf(stderr, "uadecore: get info: len = %d\n", len);
break;
}
if (!valid_address(dst, len)) {
fprintf(stderr, "uadecore: get info: Invalid dst: 0x%x\n", dst);
break;
}
srcstr = (char *) get_real_address(src);
dststr = (char *) get_real_address(dst);
uadecore_send_debug("score issued an info request: %s (maxlen %d)", srcstr, len);
len = get_info_for_ep(dststr, srcstr, len);
/* Send printable debug */
do {
size_t i;
size_t maxspace = sizeof space;
if (len <= 0) {
maxspace = 1;
} else {
if (len < maxspace)
maxspace = len;
}
for (i = 0; i < maxspace; i++) {
space[i] = dststr[i];
if (space[i] == 0)
space[i] = ' ';
}
if (i < maxspace) {
space[i] = 0;
} else {
space[maxspace - 1] = 0;
}
uadecore_send_debug("reply to score: %s (total len %d)", space, len);
} while (0);
uade_put_long(0x20C, len);
break;
case AMIGAMSG_START_OUTPUT:
uadecore_audio_output = 1;
break;
default:
fprintf(stderr,"uadecore: Unknown message from score (%d)\n", x);
break;
}
}
