frontend/libretro.c

   1 /*
   2  * (C) notaz, 2012,2014,2015
   3  *
   4  * This work is licensed under the terms of the GNU GPLv2 or later.
   5  * See the COPYING file in the top-level directory.
   6  */
   7
   8 #define _GNU_SOURCE 1 // strcasestr
   9 #include <stdio.h>
  10 #include <stdlib.h>
  11 #include <string.h>
  12 #include <strings.h>
  13
  14 #include "../libpcsxcore/misc.h"
  15 #include "../libpcsxcore/psxcounters.h"
  16 #include "../libpcsxcore/psxmem_map.h"
  17 #include "../libpcsxcore/new_dynarec/new_dynarec.h"
  18 #include "../libpcsxcore/cdrom.h"
  19 #include "../libpcsxcore/cdriso.h"
  20 #include "../libpcsxcore/cheat.h"
  21 #include "../plugins/dfsound/out.h"
  22 #include "../plugins/dfsound/spu_config.h"
  23 #include "../plugins/dfinput/externals.h"
  24 #include "cspace.h"
  25 #include "main.h"
  26 #include "plugin.h"
  27 #include "plugin_lib.h"
  28 #include "arm_features.h"
  29 #include "revision.h"
  30 #include "libretro.h"
  31
  32 #ifdef _3DS
  33 #include "3ds/3ds_utils.h"
  34 #endif
  35
  36 static retro_video_refresh_t video_cb;
  37 static retro_input_poll_t input_poll_cb;
  38 static retro_input_state_t input_state_cb;
  39 static retro_environment_t environ_cb;
  40 static retro_audio_sample_batch_t audio_batch_cb;
  41 static struct retro_rumble_interface rumble;
  42
  43 static void *vout_buf;
  44 static int vout_width, vout_height;
  45 static int vout_doffs_old, vout_fb_dirty;
  46 static bool vout_can_dupe;
  47 static bool duping_enable;
  48
  49 static int plugins_opened;
  50 static int is_pal_mode;
  51
  52 /* memory card data */
  53 extern char Mcd1Data[MCD_SIZE];
  54 extern char McdDisable[2];
  55
  56 /* PCSX ReARMed core calls and stuff */
  57 int in_type[8] =  { PSE_PAD_TYPE_STANDARD, PSE_PAD_TYPE_STANDARD,
  58                   PSE_PAD_TYPE_STANDARD, PSE_PAD_TYPE_STANDARD,
  59                   PSE_PAD_TYPE_STANDARD, PSE_PAD_TYPE_STANDARD,
  60                   PSE_PAD_TYPE_STANDARD, PSE_PAD_TYPE_STANDARD };
  61 int in_analog_left[8][2] = {{ 127, 127 },{ 127, 127 },{ 127, 127 },{ 127, 127 },{ 127, 127 },{ 127, 127 },{ 127, 127 },{ 127, 127 }};
  62 int in_analog_right[8][2] = {{ 127, 127 },{ 127, 127 },{ 127, 127 },{ 127, 127 },{ 127, 127 },{ 127, 127 },{ 127, 127 },{ 127, 127 }};
  63 unsigned short in_keystate[8];
  64 int multitap1 = 0;
  65 int multitap2 = 0;
  66 int in_enable_vibration = 1;
  67
  68 /* PSX max resolution is 640x512, but with enhancement it's 1024x512 */
  69 #define VOUT_MAX_WIDTH 1024
  70 #define VOUT_MAX_HEIGHT 512
  71
  72 static void init_memcard(char *mcd_data)
  73 {
  74         unsigned off = 0;
  75         unsigned i;
  76
  77         memset(mcd_data, 0, MCD_SIZE);
  78
  79         mcd_data[off++] = 'M';
  80         mcd_data[off++] = 'C';
  81         off += 0x7d;
  82         mcd_data[off++] = 0x0e;
  83
  84         for (i = 0; i < 15; i++) {
  85                 mcd_data[off++] = 0xa0;
  86                 off += 0x07;
  87                 mcd_data[off++] = 0xff;
  88                 mcd_data[off++] = 0xff;
  89                 off += 0x75;
  90                 mcd_data[off++] = 0xa0;
  91         }
  92
  93         for (i = 0; i < 20; i++) {
  94                 mcd_data[off++] = 0xff;
  95                 mcd_data[off++] = 0xff;
  96                 mcd_data[off++] = 0xff;
  97                 mcd_data[off++] = 0xff;
  98                 off += 0x04;
  99                 mcd_data[off++] = 0xff;
 100                 mcd_data[off++] = 0xff;
 101                 off += 0x76;
 102         }
 103 }
 104
 105 static int vout_open(void)
 106 {
 107         return 0;
 108 }
 109
 110 static void vout_set_mode(int w, int h, int raw_w, int raw_h, int bpp)
 111 {
 112         vout_width = w;
 113         vout_height = h;
 114 }
 115
 116 #ifndef FRONTEND_SUPPORTS_RGB565
 117 static void convert(void *buf, size_t bytes)
 118 {
 119         unsigned int i, v, *p = buf;
 120
 121         for (i = 0; i < bytes / 4; i++) {
 122                 v = p[i];
 123                 p[i] = (v & 0x001f001f) | ((v >> 1) & 0x7fe07fe0);
 124         }
 125 }
 126 #endif
 127
 128 static void vout_flip(const void *vram, int stride, int bgr24, int w, int h)
 129 {
 130         unsigned short *dest = vout_buf;
 131         const unsigned short *src = vram;
 132         int dstride = vout_width, h1 = h;
 133         int doffs;
 134
 135         if (vram == NULL) {
 136                 // blanking
 137                 memset(vout_buf, 0, dstride * h * 2);
 138                 goto out;
 139         }
 140
 141         doffs = (vout_height - h) * dstride;
 142         doffs += (dstride - w) / 2 & ~1;
 143         if (doffs != vout_doffs_old) {
 144                 // clear borders
 145                 memset(vout_buf, 0, dstride * h * 2);
 146                 vout_doffs_old = doffs;
 147         }
 148         dest += doffs;
 149
 150         if (bgr24)
 151         {
 152                 // XXX: could we switch to RETRO_PIXEL_FORMAT_XRGB8888 here?
 153                 for (; h1-- > 0; dest += dstride, src += stride)
 154                 {
 155                         bgr888_to_rgb565(dest, src, w * 3);
 156                 }
 157         }
 158         else
 159         {
 160                 for (; h1-- > 0; dest += dstride, src += stride)
 161                 {
 162                         bgr555_to_rgb565(dest, src, w * 2);
 163                 }
 164         }
 165
 166 out:
 167 #ifndef FRONTEND_SUPPORTS_RGB565
 168         convert(vout_buf, vout_width * vout_height * 2);
 169 #endif
 170         vout_fb_dirty = 1;
 171         pl_rearmed_cbs.flip_cnt++;
 172 }
 173
 174 static void vout_close(void)
 175 {
 176 }
 177
 178 #ifdef _3DS
 179 typedef struct
 180 {
 181    void* buffer;
 182    uint32_t target_map;
 183    size_t size;
 184    enum psxMapTag tag;
 185 }psx_map_t;
 186
 187 psx_map_t custom_psx_maps[] = {
 188    {NULL, 0x13000000, 0x210000, MAP_TAG_RAM},   // 0x80000000
 189    {NULL, 0x12800000, 0x010000, MAP_TAG_OTHER}, // 0x1f800000
 190    {NULL, 0x12c00000, 0x080000, MAP_TAG_OTHER}, // 0x1fc00000
 191    {NULL, 0x11000000, 0x800000, MAP_TAG_LUTS},  // 0x08000000
 192    {NULL, 0x12000000, 0x200000, MAP_TAG_VRAM},  // 0x00000000
 193 };
 194
 195 void* pl_3ds_mmap(unsigned long addr, size_t size, int is_fixed,
 196         enum psxMapTag tag)
 197 {
 198    (void)is_fixed;
 199    (void)addr;
 200
 201    if (__ctr_svchax)
 202    {
 203       psx_map_t* custom_map = custom_psx_maps;
 204
 205       for (; custom_map->size; custom_map++)
 206       {
 207          if ((custom_map->size == size) && (custom_map->tag == tag))
 208          {
 209             uint32_t ptr_aligned, tmp;
 210
 211             custom_map->buffer = malloc(size + 0x1000);
 212             ptr_aligned = (((u32)custom_map->buffer) + 0xFFF) & ~0xFFF;
 213
 214             if(svcControlMemory(&tmp, (void*)custom_map->target_map, (void*)ptr_aligned, size, MEMOP_MAP, 0x3) < 0)
 215             {
 216                SysPrintf("could not map memory @0x%08X\n", custom_map->target_map);
 217                exit(1);
 218             }
 219
 220             return (void*)custom_map->target_map;
 221          }
 222       }
 223    }
 224
 225    return malloc(size);
 226 }
 227
 228 void pl_3ds_munmap(void *ptr, size_t size, enum psxMapTag tag)
 229 {
 230    (void)tag;
 231
 232    if (__ctr_svchax)
 233    {
 234       psx_map_t* custom_map = custom_psx_maps;
 235
 236       for (; custom_map->size; custom_map++)
 237       {
 238          if ((custom_map->target_map == (uint32_t)ptr))
 239          {
 240             uint32_t ptr_aligned, tmp;
 241
 242             ptr_aligned = (((u32)custom_map->buffer) + 0xFFF) & ~0xFFF;
 243
 244             svcControlMemory(&tmp, (void*)custom_map->target_map, (void*)ptr_aligned, size, MEMOP_UNMAP, 0x3);
 245
 246             free(custom_map->buffer);
 247             custom_map->buffer = NULL;
 248             return;
 249          }
 250       }
 251    }
 252
 253    free(ptr);
 254 }
 255 #endif
 256
 257 static void *pl_mmap(unsigned int size)
 258 {
 259         return psxMap(0, size, 0, MAP_TAG_VRAM);
 260 }
 261
 262 static void pl_munmap(void *ptr, unsigned int size)
 263 {
 264         psxUnmap(ptr, size, MAP_TAG_VRAM);
 265 }
 266
 267 struct rearmed_cbs pl_rearmed_cbs = {
 268         .pl_vout_open = vout_open,
 269         .pl_vout_set_mode = vout_set_mode,
 270         .pl_vout_flip = vout_flip,
 271         .pl_vout_close = vout_close,
 272         .mmap = pl_mmap,
 273         .munmap = pl_munmap,
 274         /* from psxcounters */
 275         .gpu_hcnt = &hSyncCount,
 276         .gpu_frame_count = &frame_counter,
 277 };
 278
 279 void pl_frame_limit(void)
 280 {
 281         /* called once per frame, make psxCpu->Execute() above return */
 282         stop = 1;
 283 }
 284
 285 void pl_timing_prepare(int is_pal)
 286 {
 287         is_pal_mode = is_pal;
 288 }
 289
 290 void plat_trigger_vibrate(int pad, int low, int high)
 291 {
 292     rumble.set_rumble_state(pad, RETRO_RUMBLE_STRONG, high << 8);
 293     rumble.set_rumble_state(pad, RETRO_RUMBLE_WEAK, low ? 0xffff : 0x0);
 294 }
 295
 296 void pl_update_gun(int *xn, int *yn, int *xres, int *yres, int *in)
 297 {
 298 }
 299
 300 /* sound calls */
 301 static int snd_init(void)
 302 {
 303         return 0;
 304 }
 305
 306 static void snd_finish(void)
 307 {
 308 }
 309
 310 static int snd_busy(void)
 311 {
 312         return 0;
 313 }
 314
 315 static void snd_feed(void *buf, int bytes)
 316 {
 317         if (audio_batch_cb != NULL)
 318                 audio_batch_cb(buf, bytes / 4);
 319 }
 320
 321 void out_register_libretro(struct out_driver *drv)
 322 {
 323         drv->name = "libretro";
 324         drv->init = snd_init;
 325         drv->finish = snd_finish;
 326         drv->busy = snd_busy;
 327         drv->feed = snd_feed;
 328 }
 329
 330 /* libretro */
 331 void retro_set_environment(retro_environment_t cb)
 332 {
 333    static const struct retro_variable vars[] = {
 334       { "pcsx_rearmed_frameskip", "Frameskip; 0|1|2|3" },
 335       { "pcsx_rearmed_region", "Region; Auto|NTSC|PAL" },
 336       { "pcsx_rearmed_pad1type", "Pad 1 Type; standard|analog|negcon" },
 337       { "pcsx_rearmed_pad2type", "Pad 2 Type; standard|analog|negcon" },
 338       { "pcsx_rearmed_pad3type", "Pad 3 Type; standard|analog|negcon" },
 339       { "pcsx_rearmed_pad4type", "Pad 4 Type; standard|analog|negcon" },
 340       { "pcsx_rearmed_pad5type", "Pad 5 Type; standard|analog|negcon" },
 341       { "pcsx_rearmed_pad6type", "Pad 6 Type; standard|analog|negcon" },
 342       { "pcsx_rearmed_pad7type", "Pad 7 Type; standard|analog|negcon" },
 343       { "pcsx_rearmed_pad8type", "Pad 8 Type; standard|analog|negcon" },
 344       { "pcsx_rearmed_multitap1", "Multitap 1; disabled|enabled" },
 345       { "pcsx_rearmed_multitap2", "Multitap 2; disabled|enabled" },
 346 #ifndef DRC_DISABLE
 347       { "pcsx_rearmed_drc", "Dynamic recompiler; enabled|disabled" },
 348 #endif
 349 #ifdef __ARM_NEON__
 350       { "pcsx_rearmed_neon_interlace_enable", "Enable interlacing mode(s); disabled|enabled" },
 351       { "pcsx_rearmed_neon_enhancement_enable", "Enhanced resolution (slow); disabled|enabled" },
 352       { "pcsx_rearmed_neon_enhancement_no_main", "Enhanced resolution speed hack; disabled|enabled" },
 353 #endif
 354       { "pcsx_rearmed_duping_enable", "Frame duping; on|off" },
 355       { "pcsx_rearmed_spu_reverb", "Sound: Reverb; on|off" },
 356       { "pcsx_rearmed_spu_interpolation", "Sound: Interpolation; simple|gaussian|cubic|off" },
 357       { "pcsx_rearmed_pe2_fix", "Parasite Eve 2/Vandal Hearts 1/2 Fix; disabled|enabled" },
 358       { "pcsx_rearmed_inuyasha_fix", "InuYasha Sengoku Battle Fix; disabled|enabled" },
 359       { NULL, NULL },
 360    };
 361
 362    environ_cb = cb;
 363
 364    cb(RETRO_ENVIRONMENT_SET_VARIABLES, (void*)vars);
 365 }
 366
 367 void retro_set_video_refresh(retro_video_refresh_t cb) { video_cb = cb; }
 368 void retro_set_audio_sample(retro_audio_sample_t cb) { (void)cb; }
 369 void retro_set_audio_sample_batch(retro_audio_sample_batch_t cb) { audio_batch_cb = cb; }
 370 void retro_set_input_poll(retro_input_poll_t cb) { input_poll_cb = cb; }
 371 void retro_set_input_state(retro_input_state_t cb) { input_state_cb = cb; }
 372
 373 unsigned retro_api_version(void)
 374 {
 375         return RETRO_API_VERSION;
 376 }
 377
 378 void retro_set_controller_port_device(unsigned port, unsigned device)
 379 {
 380         SysPrintf("port %u  device %u",port,device);
 381 }
 382
 383 void retro_get_system_info(struct retro_system_info *info)
 384 {
 385         memset(info, 0, sizeof(*info));
 386         info->library_name = "PCSX-ReARMed";
 387         info->library_version = "r22";
 388         info->valid_extensions = "bin|cue|img|mdf|pbp|toc|cbn|m3u";
 389         info->need_fullpath = true;
 390 }
 391
 392 void retro_get_system_av_info(struct retro_system_av_info *info)
 393 {
 394         memset(info, 0, sizeof(*info));
 395         info->timing.fps            = is_pal_mode ? 50 : 60;
 396         info->timing.sample_rate    = 44100;
 397         info->geometry.base_width   = 320;
 398         info->geometry.base_height  = 240;
 399         info->geometry.max_width    = VOUT_MAX_WIDTH;
 400         info->geometry.max_height   = VOUT_MAX_HEIGHT;
 401         info->geometry.aspect_ratio = 4.0 / 3.0;
 402 }
 403
 404 /* savestates */
 405 size_t retro_serialize_size(void)
 406 {
 407         // it's currently 4380651-4397047 bytes,
 408         // but have some reserved for future
 409         return 0x440000;
 410 }
 411
 412 struct save_fp {
 413         char *buf;
 414         size_t pos;
 415         int is_write;
 416 };
 417
 418 static void *save_open(const char *name, const char *mode)
 419 {
 420         struct save_fp *fp;
 421
 422         if (name == NULL || mode == NULL)
 423                 return NULL;
 424
 425         fp = malloc(sizeof(*fp));
 426         if (fp == NULL)
 427                 return NULL;
 428
 429         fp->buf = (char *)name;
 430         fp->pos = 0;
 431         fp->is_write = (mode[0] == 'w' || mode[1] == 'w');
 432
 433         return fp;
 434 }
 435
 436 static int save_read(void *file, void *buf, u32 len)
 437 {
 438         struct save_fp *fp = file;
 439         if (fp == NULL || buf == NULL)
 440                 return -1;
 441
 442         memcpy(buf, fp->buf + fp->pos, len);
 443         fp->pos += len;
 444         return len;
 445 }
 446
 447 static int save_write(void *file, const void *buf, u32 len)
 448 {
 449         struct save_fp *fp = file;
 450         if (fp == NULL || buf == NULL)
 451                 return -1;
 452
 453         memcpy(fp->buf + fp->pos, buf, len);
 454         fp->pos += len;
 455         return len;
 456 }
 457
 458 static long save_seek(void *file, long offs, int whence)
 459 {
 460         struct save_fp *fp = file;
 461         if (fp == NULL)
 462                 return -1;
 463
 464         switch (whence) {
 465         case SEEK_CUR:
 466                 fp->pos += offs;
 467                 return fp->pos;
 468         case SEEK_SET:
 469                 fp->pos = offs;
 470                 return fp->pos;
 471         default:
 472                 return -1;
 473         }
 474 }
 475
 476 static void save_close(void *file)
 477 {
 478         struct save_fp *fp = file;
 479         size_t r_size = retro_serialize_size();
 480         if (fp == NULL)
 481                 return;
 482
 483         if (fp->pos > r_size)
 484                 SysPrintf("ERROR: save buffer overflow detected\n");
 485         else if (fp->is_write && fp->pos < r_size)
 486                 // make sure we don't save trash in leftover space
 487                 memset(fp->buf + fp->pos, 0, r_size - fp->pos);
 488         free(fp);
 489 }
 490
 491 bool retro_serialize(void *data, size_t size)
 492 {
 493         int ret = SaveState(data);
 494         return ret == 0 ? true : false;
 495 }
 496
 497 bool retro_unserialize(const void *data, size_t size)
 498 {
 499         int ret = LoadState(data);
 500         return ret == 0 ? true : false;
 501 }
 502
 503 /* cheats */
 504 void retro_cheat_reset(void)
 505 {
 506         ClearAllCheats();
 507 }
 508
 509 void retro_cheat_set(unsigned index, bool enabled, const char *code)
 510 {
 511         char buf[256];
 512         int ret;
 513
 514         // cheat funcs are destructive, need a copy..
 515         strncpy(buf, code, sizeof(buf));
 516         buf[sizeof(buf) - 1] = 0;
 517
 518         if (index < NumCheats)
 519                 ret = EditCheat(index, "", buf);
 520         else
 521                 ret = AddCheat("", buf);
 522
 523         if (ret != 0)
 524                 SysPrintf("Failed to set cheat %#u\n", index);
 525         else if (index < NumCheats)
 526                 Cheats[index].Enabled = enabled;
 527 }
 528
 529 /* multidisk support */
 530 static bool disk_ejected;
 531 static unsigned int disk_current_index;
 532 static unsigned int disk_count;
 533 static struct disks_state {
 534         char *fname;
 535         int internal_index; // for multidisk eboots
 536 } disks[8];
 537
 538 static bool disk_set_eject_state(bool ejected)
 539 {
 540         // weird PCSX API..
 541         SetCdOpenCaseTime(ejected ? -1 : (time(NULL) + 2));
 542         LidInterrupt();
 543
 544         disk_ejected = ejected;
 545         return true;
 546 }
 547
 548 static bool disk_get_eject_state(void)
 549 {
 550         /* can't be controlled by emulated software */
 551         return disk_ejected;
 552 }
 553
 554 static unsigned int disk_get_image_index(void)
 555 {
 556         return disk_current_index;
 557 }
 558
 559 static bool disk_set_image_index(unsigned int index)
 560 {
 561         if (index >= sizeof(disks) / sizeof(disks[0]))
 562                 return false;
 563
 564         CdromId[0] = '\0';
 565         CdromLabel[0] = '\0';
 566
 567         if (disks[index].fname == NULL) {
 568                 SysPrintf("missing disk #%u\n", index);
 569                 CDR_shutdown();
 570
 571                 // RetroArch specifies "no disk" with index == count,
 572                 // so don't fail here..
 573                 disk_current_index = index;
 574                 return true;
 575         }
 576
 577         SysPrintf("switching to disk %u: \"%s\" #%d\n", index,
 578                 disks[index].fname, disks[index].internal_index);
 579
 580         cdrIsoMultidiskSelect = disks[index].internal_index;
 581         set_cd_image(disks[index].fname);
 582         if (ReloadCdromPlugin() < 0) {
 583                 SysPrintf("failed to load cdr plugin\n");
 584                 return false;
 585         }
 586         if (CDR_open() < 0) {
 587                 SysPrintf("failed to open cdr plugin\n");
 588                 return false;
 589         }
 590
 591         if (!disk_ejected) {
 592                 SetCdOpenCaseTime(time(NULL) + 2);
 593                 LidInterrupt();
 594         }
 595
 596         disk_current_index = index;
 597         return true;
 598 }
 599
 600 static unsigned int disk_get_num_images(void)
 601 {
 602         return disk_count;
 603 }
 604
 605 static bool disk_replace_image_index(unsigned index,
 606         const struct retro_game_info *info)
 607 {
 608         char *old_fname;
 609         bool ret = true;
 610
 611         if (index >= sizeof(disks) / sizeof(disks[0]))
 612                 return false;
 613
 614         old_fname = disks[index].fname;
 615         disks[index].fname = NULL;
 616         disks[index].internal_index = 0;
 617
 618         if (info != NULL) {
 619                 disks[index].fname = strdup(info->path);
 620                 if (index == disk_current_index)
 621                         ret = disk_set_image_index(index);
 622         }
 623
 624         if (old_fname != NULL)
 625                 free(old_fname);
 626
 627         return ret;
 628 }
 629
 630 static bool disk_add_image_index(void)
 631 {
 632         if (disk_count >= 8)
 633                 return false;
 634
 635         disk_count++;
 636         return true;
 637 }
 638
 639 static struct retro_disk_control_callback disk_control = {
 640         .set_eject_state = disk_set_eject_state,
 641         .get_eject_state = disk_get_eject_state,
 642         .get_image_index = disk_get_image_index,
 643         .set_image_index = disk_set_image_index,
 644         .get_num_images = disk_get_num_images,
 645         .replace_image_index = disk_replace_image_index,
 646         .add_image_index = disk_add_image_index,
 647 };
 648
 649 // just in case, maybe a win-rt port in the future?
 650 #ifdef _WIN32
 651 #define SLASH '\\'
 652 #else
 653 #define SLASH '/'
 654 #endif
 655
 656 static char base_dir[PATH_MAX];
 657
 658 static bool read_m3u(const char *file)
 659 {
 660         char line[PATH_MAX];
 661         char name[PATH_MAX];
 662         FILE *f = fopen(file, "r");
 663         if (!f)
 664                 return false;
 665
 666         while (fgets(line, sizeof(line), f) && disk_count < sizeof(disks) / sizeof(disks[0])) {
 667                 if (line[0] == '#')
 668                         continue;
 669                 char *carrige_return = strchr(line, '\r');
 670                 if (carrige_return)
 671                         *carrige_return = '\0';
 672                 char *newline = strchr(line, '\n');
 673                 if (newline)
 674                         *newline = '\0';
 675
 676                 if (line[0] != '\0')
 677                 {
 678                         snprintf(name, sizeof(name), "%s%c%s", base_dir, SLASH, line);
 679                         disks[disk_count++].fname = strdup(name);
 680                 }
 681         }
 682
 683         fclose(f);
 684         return (disk_count != 0);
 685 }
 686
 687 static void extract_directory(char *buf, const char *path, size_t size)
 688 {
 689    char *base;
 690    strncpy(buf, path, size - 1);
 691    buf[size - 1] = '\0';
 692
 693    base = strrchr(buf, '/');
 694    if (!base)
 695       base = strrchr(buf, '\\');
 696
 697    if (base)
 698       *base = '\0';
 699    else
 700    {
 701       buf[0] = '.';
 702       buf[1] = '\0';
 703    }
 704 }
 705
 706 #if defined(__QNX__) || defined(_WIN32)
 707 /* Blackberry QNX doesn't have strcasestr */
 708
 709 /*
 710  * Find the first occurrence of find in s, ignore case.
 711  */
 712 char *
 713 strcasestr(const char *s, const char*find)
 714 {
 715         char c, sc;
 716         size_t len;
 717
 718         if ((c = *find++) != 0) {
 719                 c = tolower((unsigned char)c);
 720                 len = strlen(find);
 721                 do {
 722                         do {
 723                                 if ((sc = *s++) == 0)
 724                                         return (NULL);
 725                         } while ((char)tolower((unsigned char)sc) != c);
 726                 } while (strncasecmp(s, find, len) != 0);
 727                 s--;
 728         }
 729         return ((char *)s);
 730 }
 731 #endif
 732
 733 bool retro_load_game(const struct retro_game_info *info)
 734 {
 735         size_t i;
 736         bool is_m3u = (strcasestr(info->path, ".m3u") != NULL);
 737
 738    struct retro_input_descriptor desc[] = {
 739       { 0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_LEFT,  "D-Pad Left" },
 740       { 0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_UP,    "D-Pad Up" },
 741       { 0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_DOWN,  "D-Pad Down" },
 742       { 0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_RIGHT, "D-Pad Right" },
 743       { 0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_B,     "Cross" },
 744       { 0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_A,     "Circle" },
 745       { 0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_X,     "Triangle" },
 746       { 0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_Y,     "Square" },
 747       { 0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_L,     "L1" },
 748       { 0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_L2,    "L2" },
 749       { 0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_L3,    "L3" },
 750       { 0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_R,     "R1" },
 751       { 0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_R2,    "R2" },
 752       { 0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_R3,    "R3" },
 753       { 0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_SELECT,    "Select" },
 754       { 0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_START,    "Start" },
 755       { 0, RETRO_DEVICE_ANALOG, RETRO_DEVICE_INDEX_ANALOG_LEFT, RETRO_DEVICE_ID_ANALOG_X, "Left Analog X" },
 756       { 0, RETRO_DEVICE_ANALOG, RETRO_DEVICE_INDEX_ANALOG_LEFT, RETRO_DEVICE_ID_ANALOG_Y, "Left Analog Y" },
 757       { 0, RETRO_DEVICE_ANALOG, RETRO_DEVICE_INDEX_ANALOG_RIGHT, RETRO_DEVICE_ID_ANALOG_X, "Right Analog X" },
 758       { 0, RETRO_DEVICE_ANALOG, RETRO_DEVICE_INDEX_ANALOG_RIGHT, RETRO_DEVICE_ID_ANALOG_Y, "Right Analog Y" },
 759
 760
 761       { 1, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_LEFT,  "D-Pad Left" },
 762       { 1, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_UP,    "D-Pad Up" },
 763       { 1, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_DOWN,  "D-Pad Down" },
 764       { 1, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_RIGHT, "D-Pad Right" },
 765       { 1, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_B,     "Cross" },
 766       { 1, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_A,     "Circle" },
 767       { 1, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_X,     "Triangle" },
 768       { 1, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_Y,     "Square" },
 769       { 1, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_L,     "L1" },
 770       { 1, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_L2,    "L2" },
 771       { 1, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_L3,    "L3" },
 772       { 1, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_R,     "R1" },
 773       { 1, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_R2,    "R2" },
 774       { 1, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_R3,    "R3" },
 775       { 1, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_SELECT,    "Select" },
 776       { 1, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_START,    "Start" },
 777       { 1, RETRO_DEVICE_ANALOG, RETRO_DEVICE_INDEX_ANALOG_LEFT, RETRO_DEVICE_ID_ANALOG_X, "Left Analog X" },
 778       { 1, RETRO_DEVICE_ANALOG, RETRO_DEVICE_INDEX_ANALOG_LEFT, RETRO_DEVICE_ID_ANALOG_Y, "Left Analog Y" },
 779       { 1, RETRO_DEVICE_ANALOG, RETRO_DEVICE_INDEX_ANALOG_RIGHT, RETRO_DEVICE_ID_ANALOG_X, "Right Analog X" },
 780       { 1, RETRO_DEVICE_ANALOG, RETRO_DEVICE_INDEX_ANALOG_RIGHT, RETRO_DEVICE_ID_ANALOG_Y, "Right Analog Y" },
 781
 782       { 2, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_LEFT,  "D-Pad Left" },
 783       { 2, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_UP,    "D-Pad Up" },
 784       { 2, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_DOWN,  "D-Pad Down" },
 785       { 2, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_RIGHT, "D-Pad Right" },
 786       { 2, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_B,     "Cross" },
 787       { 2, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_A,     "Circle" },
 788       { 2, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_X,     "Triangle" },
 789       { 2, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_Y,     "Square" },
 790       { 2, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_L,     "L1" },
 791       { 2, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_L2,    "L2" },
 792       { 2, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_L3,    "L3" },
 793       { 2, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_R,     "R1" },
 794       { 2, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_R2,    "R2" },
 795       { 2, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_R3,    "R3" },
 796       { 2, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_SELECT,    "Select" },
 797       { 2, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_START,    "Start" },
 798       { 2, RETRO_DEVICE_ANALOG, RETRO_DEVICE_INDEX_ANALOG_LEFT, RETRO_DEVICE_ID_ANALOG_X, "Left Analog X" },
 799       { 2, RETRO_DEVICE_ANALOG, RETRO_DEVICE_INDEX_ANALOG_LEFT, RETRO_DEVICE_ID_ANALOG_Y, "Left Analog Y" },
 800       { 2, RETRO_DEVICE_ANALOG, RETRO_DEVICE_INDEX_ANALOG_RIGHT, RETRO_DEVICE_ID_ANALOG_X, "Right Analog X" },
 801       { 2, RETRO_DEVICE_ANALOG, RETRO_DEVICE_INDEX_ANALOG_RIGHT, RETRO_DEVICE_ID_ANALOG_Y, "Right Analog Y" },
 802
 803       { 3, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_LEFT,  "D-Pad Left" },
 804       { 3, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_UP,    "D-Pad Up" },
 805       { 3, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_DOWN,  "D-Pad Down" },
 806       { 3, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_RIGHT, "D-Pad Right" },
 807       { 3, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_B,     "Cross" },
 808       { 3, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_A,     "Circle" },
 809       { 3, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_X,     "Triangle" },
 810       { 3, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_Y,     "Square" },
 811       { 3, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_L,     "L1" },
 812       { 3, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_L2,    "L2" },
 813       { 3, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_L3,    "L3" },
 814       { 3, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_R,     "R1" },
 815       { 3, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_R2,    "R2" },
 816       { 3, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_R3,    "R3" },
 817       { 3, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_SELECT,    "Select" },
 818       { 3, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_START,    "Start" },
 819       { 3, RETRO_DEVICE_ANALOG, RETRO_DEVICE_INDEX_ANALOG_LEFT, RETRO_DEVICE_ID_ANALOG_X, "Left Analog X" },
 820       { 3, RETRO_DEVICE_ANALOG, RETRO_DEVICE_INDEX_ANALOG_LEFT, RETRO_DEVICE_ID_ANALOG_Y, "Left Analog Y" },
 821       { 3, RETRO_DEVICE_ANALOG, RETRO_DEVICE_INDEX_ANALOG_RIGHT, RETRO_DEVICE_ID_ANALOG_X, "Right Analog X" },
 822       { 3, RETRO_DEVICE_ANALOG, RETRO_DEVICE_INDEX_ANALOG_RIGHT, RETRO_DEVICE_ID_ANALOG_Y, "Right Analog Y" },
 823
 824       { 4, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_LEFT,  "D-Pad Left" },
 825       { 4, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_UP,    "D-Pad Up" },
 826       { 4, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_DOWN,  "D-Pad Down" },
 827       { 4, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_RIGHT, "D-Pad Right" },
 828       { 4, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_B,     "Cross" },
 829       { 4, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_A,     "Circle" },
 830       { 4, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_X,     "Triangle" },
 831       { 4, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_Y,     "Square" },
 832       { 4, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_L,     "L1" },
 833       { 4, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_L2,    "L2" },
 834       { 4, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_L3,    "L3" },
 835       { 4, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_R,     "R1" },
 836       { 4, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_R2,    "R2" },
 837       { 4, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_R3,    "R3" },
 838       { 4, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_SELECT,    "Select" },
 839       { 4, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_START,    "Start" },
 840       { 4, RETRO_DEVICE_ANALOG, RETRO_DEVICE_INDEX_ANALOG_LEFT, RETRO_DEVICE_ID_ANALOG_X, "Left Analog X" },
 841       { 4, RETRO_DEVICE_ANALOG, RETRO_DEVICE_INDEX_ANALOG_LEFT, RETRO_DEVICE_ID_ANALOG_Y, "Left Analog Y" },
 842       { 4, RETRO_DEVICE_ANALOG, RETRO_DEVICE_INDEX_ANALOG_RIGHT, RETRO_DEVICE_ID_ANALOG_X, "Right Analog X" },
 843       { 4, RETRO_DEVICE_ANALOG, RETRO_DEVICE_INDEX_ANALOG_RIGHT, RETRO_DEVICE_ID_ANALOG_Y, "Right Analog Y" },
 844
 845       { 5, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_LEFT,  "D-Pad Left" },
 846       { 5, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_UP,    "D-Pad Up" },
 847       { 5, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_DOWN,  "D-Pad Down" },
 848       { 5, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_RIGHT, "D-Pad Right" },
 849       { 5, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_B,     "Cross" },
 850       { 5, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_A,     "Circle" },
 851       { 5, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_X,     "Triangle" },
 852       { 5, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_Y,     "Square" },
 853       { 5, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_L,     "L1" },
 854       { 5, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_L2,    "L2" },
 855       { 5, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_L3,    "L3" },
 856       { 5, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_R,     "R1" },
 857       { 5, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_R2,    "R2" },
 858       { 5, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_R3,    "R3" },
 859       { 5, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_SELECT,    "Select" },
 860       { 5, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_START,    "Start" },
 861       { 5, RETRO_DEVICE_ANALOG, RETRO_DEVICE_INDEX_ANALOG_LEFT, RETRO_DEVICE_ID_ANALOG_X, "Left Analog X" },
 862       { 5, RETRO_DEVICE_ANALOG, RETRO_DEVICE_INDEX_ANALOG_LEFT, RETRO_DEVICE_ID_ANALOG_Y, "Left Analog Y" },
 863       { 5, RETRO_DEVICE_ANALOG, RETRO_DEVICE_INDEX_ANALOG_RIGHT, RETRO_DEVICE_ID_ANALOG_X, "Right Analog X" },
 864       { 5, RETRO_DEVICE_ANALOG, RETRO_DEVICE_INDEX_ANALOG_RIGHT, RETRO_DEVICE_ID_ANALOG_Y, "Right Analog Y" },
 865
 866       { 6, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_LEFT,  "D-Pad Left" },
 867       { 6, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_UP,    "D-Pad Up" },
 868       { 6, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_DOWN,  "D-Pad Down" },
 869       { 6, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_RIGHT, "D-Pad Right" },
 870       { 6, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_B,     "Cross" },
 871       { 6, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_A,     "Circle" },
 872       { 6, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_X,     "Triangle" },
 873       { 6, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_Y,     "Square" },
 874       { 6, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_L,     "L1" },
 875       { 6, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_L2,    "L2" },
 876       { 6, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_L3,    "L3" },
 877       { 6, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_R,     "R1" },
 878       { 6, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_R2,    "R2" },
 879       { 6, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_R3,    "R3" },
 880       { 6, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_SELECT,    "Select" },
 881       { 6, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_START,    "Start" },
 882       { 6, RETRO_DEVICE_ANALOG, RETRO_DEVICE_INDEX_ANALOG_LEFT, RETRO_DEVICE_ID_ANALOG_X, "Left Analog X" },
 883       { 6, RETRO_DEVICE_ANALOG, RETRO_DEVICE_INDEX_ANALOG_LEFT, RETRO_DEVICE_ID_ANALOG_Y, "Left Analog Y" },
 884       { 6, RETRO_DEVICE_ANALOG, RETRO_DEVICE_INDEX_ANALOG_RIGHT, RETRO_DEVICE_ID_ANALOG_X, "Right Analog X" },
 885       { 6, RETRO_DEVICE_ANALOG, RETRO_DEVICE_INDEX_ANALOG_RIGHT, RETRO_DEVICE_ID_ANALOG_Y, "Right Analog Y" },
 886
 887       { 7, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_LEFT,  "D-Pad Left" },
 888       { 7, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_UP,    "D-Pad Up" },
 889       { 7, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_DOWN,  "D-Pad Down" },
 890       { 7, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_RIGHT, "D-Pad Right" },
 891       { 7, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_B,     "Cross" },
 892       { 7, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_A,     "Circle" },
 893       { 7, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_X,     "Triangle" },
 894       { 7, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_Y,     "Square" },
 895       { 7, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_L,     "L1" },
 896       { 7, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_L2,    "L2" },
 897       { 7, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_L3,    "L3" },
 898       { 7, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_R,     "R1" },
 899       { 7, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_R2,    "R2" },
 900       { 7, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_R3,    "R3" },
 901       { 7, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_SELECT,    "Select" },
 902       { 7, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_START,    "Start" },
 903       { 7, RETRO_DEVICE_ANALOG, RETRO_DEVICE_INDEX_ANALOG_LEFT, RETRO_DEVICE_ID_ANALOG_X, "Left Analog X" },
 904       { 7, RETRO_DEVICE_ANALOG, RETRO_DEVICE_INDEX_ANALOG_LEFT, RETRO_DEVICE_ID_ANALOG_Y, "Left Analog Y" },
 905       { 7, RETRO_DEVICE_ANALOG, RETRO_DEVICE_INDEX_ANALOG_RIGHT, RETRO_DEVICE_ID_ANALOG_X, "Right Analog X" },
 906       { 7, RETRO_DEVICE_ANALOG, RETRO_DEVICE_INDEX_ANALOG_RIGHT, RETRO_DEVICE_ID_ANALOG_Y, "Right Analog Y" },
 907
 908       { 0 },
 909    };
 910
 911    environ_cb(RETRO_ENVIRONMENT_SET_INPUT_DESCRIPTORS, desc);
 912
 913 #ifdef FRONTEND_SUPPORTS_RGB565
 914         enum retro_pixel_format fmt = RETRO_PIXEL_FORMAT_RGB565;
 915         if (environ_cb(RETRO_ENVIRONMENT_SET_PIXEL_FORMAT, &fmt)) {
 916                 SysPrintf("RGB565 supported, using it\n");
 917         }
 918 #endif
 919
 920         if (info == NULL || info->path == NULL) {
 921                 SysPrintf("info->path required\n");
 922                 return false;
 923         }
 924
 925         if (plugins_opened) {
 926                 ClosePlugins();
 927                 plugins_opened = 0;
 928         }
 929
 930         for (i = 0; i < sizeof(disks) / sizeof(disks[0]); i++) {
 931                 if (disks[i].fname != NULL) {
 932                         free(disks[i].fname);
 933                         disks[i].fname = NULL;
 934                 }
 935                 disks[i].internal_index = 0;
 936         }
 937
 938         disk_current_index = 0;
 939         extract_directory(base_dir, info->path, sizeof(base_dir));
 940
 941         if (is_m3u) {
 942                 if (!read_m3u(info->path)) {
 943                         SysPrintf("failed to read m3u file\n");
 944                         return false;
 945                 }
 946         } else {
 947                 disk_count = 1;
 948                 disks[0].fname = strdup(info->path);
 949         }
 950
 951         set_cd_image(disks[0].fname);
 952
 953         /* have to reload after set_cd_image for correct cdr plugin */
 954         if (LoadPlugins() == -1) {
 955                 SysPrintf("failed to load plugins\n");
 956                 return false;
 957         }
 958
 959         plugins_opened = 1;
 960         NetOpened = 0;
 961
 962         if (OpenPlugins() == -1) {
 963                 SysPrintf("failed to open plugins\n");
 964                 return false;
 965         }
 966
 967         plugin_call_rearmed_cbs();
 968         dfinput_activate();
 969
 970         Config.PsxAuto = 1;
 971         if (CheckCdrom() == -1) {
 972                 SysPrintf("unsupported/invalid CD image: %s\n", info->path);
 973                 return false;
 974         }
 975
 976         SysReset();
 977
 978         if (LoadCdrom() == -1) {
 979                 SysPrintf("could not load CD-ROM!\n");
 980                 return false;
 981         }
 982         emu_on_new_cd(0);
 983
 984         // multidisk images
 985         if (!is_m3u) {
 986                 disk_count = cdrIsoMultidiskCount < 8 ? cdrIsoMultidiskCount : 8;
 987                 for (i = 1; i < sizeof(disks) / sizeof(disks[0]) && i < cdrIsoMultidiskCount; i++) {
 988                         disks[i].fname = strdup(info->path);
 989                         disks[i].internal_index = i;
 990                 }
 991         }
 992
 993         return true;
 994 }
 995
 996 bool retro_load_game_special(unsigned game_type, const struct retro_game_info *info, size_t num_info)
 997 {
 998         return false;
 999 }
1000
1001 void retro_unload_game(void)
1002 {
1003 }
1004
1005 unsigned retro_get_region(void)
1006 {
1007         return is_pal_mode ? RETRO_REGION_PAL : RETRO_REGION_NTSC;
1008 }
1009
1010 void *retro_get_memory_data(unsigned id)
1011 {
1012         if (id == RETRO_MEMORY_SAVE_RAM)
1013                 return Mcd1Data;
1014         else
1015                 return NULL;
1016 }
1017
1018 size_t retro_get_memory_size(unsigned id)
1019 {
1020         if (id == RETRO_MEMORY_SAVE_RAM)
1021                 return MCD_SIZE;
1022         else
1023                 return 0;
1024 }
1025
1026 void retro_reset(void)
1027 {
1028         SysReset();
1029 }
1030
1031 static const unsigned short retro_psx_map[] = {
1032         [RETRO_DEVICE_ID_JOYPAD_B]      = 1 << DKEY_CROSS,
1033         [RETRO_DEVICE_ID_JOYPAD_Y]      = 1 << DKEY_SQUARE,
1034         [RETRO_DEVICE_ID_JOYPAD_SELECT] = 1 << DKEY_SELECT,
1035         [RETRO_DEVICE_ID_JOYPAD_START]  = 1 << DKEY_START,
1036         [RETRO_DEVICE_ID_JOYPAD_UP]     = 1 << DKEY_UP,
1037         [RETRO_DEVICE_ID_JOYPAD_DOWN]   = 1 << DKEY_DOWN,
1038         [RETRO_DEVICE_ID_JOYPAD_LEFT]   = 1 << DKEY_LEFT,
1039         [RETRO_DEVICE_ID_JOYPAD_RIGHT]  = 1 << DKEY_RIGHT,
1040         [RETRO_DEVICE_ID_JOYPAD_A]      = 1 << DKEY_CIRCLE,
1041         [RETRO_DEVICE_ID_JOYPAD_X]      = 1 << DKEY_TRIANGLE,
1042         [RETRO_DEVICE_ID_JOYPAD_L]      = 1 << DKEY_L1,
1043         [RETRO_DEVICE_ID_JOYPAD_R]      = 1 << DKEY_R1,
1044         [RETRO_DEVICE_ID_JOYPAD_L2]     = 1 << DKEY_L2,
1045         [RETRO_DEVICE_ID_JOYPAD_R2]     = 1 << DKEY_R2,
1046         [RETRO_DEVICE_ID_JOYPAD_L3]     = 1 << DKEY_L3,
1047         [RETRO_DEVICE_ID_JOYPAD_R3]     = 1 << DKEY_R3,
1048 };
1049 #define RETRO_PSX_MAP_LEN (sizeof(retro_psx_map) / sizeof(retro_psx_map[0]))
1050
1051 static void update_variables(bool in_flight)
1052 {
1053    struct retro_variable var;
1054
1055    var.value = NULL;
1056    var.key = "pcsx_rearmed_frameskip";
1057    if (environ_cb(RETRO_ENVIRONMENT_GET_VARIABLE, &var) || var.value)
1058       pl_rearmed_cbs.frameskip = atoi(var.value);
1059
1060    var.value = NULL;
1061    var.key = "pcsx_rearmed_region";
1062    if (environ_cb(RETRO_ENVIRONMENT_GET_VARIABLE, &var) || var.value)
1063    {
1064       Config.PsxAuto = 0;
1065       if (strcmp(var.value, "Automatic") == 0)
1066          Config.PsxAuto = 1;
1067       else if (strcmp(var.value, "NTSC") == 0)
1068          Config.PsxType = 0;
1069       else if (strcmp(var.value, "PAL") == 0)
1070          Config.PsxType = 1;
1071    }
1072
1073    var.value = NULL;
1074    var.key = "pcsx_rearmed_pad1type";
1075    if (environ_cb(RETRO_ENVIRONMENT_GET_VARIABLE, &var) || var.value)
1076    {
1077       in_type[0] = PSE_PAD_TYPE_STANDARD;
1078       if (strcmp(var.value, "analog") == 0)
1079          in_type[0] = PSE_PAD_TYPE_ANALOGPAD;
1080       else if (strcmp(var.value, "negcon") == 0)
1081          in_type[0] = PSE_PAD_TYPE_NEGCON;
1082    }
1083
1084    var.value = NULL;
1085    var.key = "pcsx_rearmed_pad2type";
1086    if (environ_cb(RETRO_ENVIRONMENT_GET_VARIABLE, &var) || var.value)
1087    {
1088       in_type[1] = PSE_PAD_TYPE_STANDARD;
1089       if (strcmp(var.value, "analog") == 0)
1090          in_type[1] = PSE_PAD_TYPE_ANALOGPAD;
1091       else if (strcmp(var.value, "negcon") == 0)
1092          in_type[1] = PSE_PAD_TYPE_NEGCON;
1093    }
1094
1095    var.value = NULL;
1096    var.key = "pcsx_rearmed_pad3type";
1097    if (environ_cb(RETRO_ENVIRONMENT_GET_VARIABLE, &var) || var.value)
1098    {
1099       in_type[2] = PSE_PAD_TYPE_STANDARD;
1100       if (strcmp(var.value, "analog") == 0)
1101          in_type[2] = PSE_PAD_TYPE_ANALOGPAD;
1102       else if (strcmp(var.value, "negcon") == 0)
1103          in_type[2] = PSE_PAD_TYPE_NEGCON;
1104    }
1105
1106    var.value = NULL;
1107    var.key = "pcsx_rearmed_pad4type";
1108    if (environ_cb(RETRO_ENVIRONMENT_GET_VARIABLE, &var) || var.value)
1109    {
1110       in_type[3] = PSE_PAD_TYPE_STANDARD;
1111       if (strcmp(var.value, "analog") == 0)
1112          in_type[3] = PSE_PAD_TYPE_ANALOGPAD;
1113       else if (strcmp(var.value, "negcon") == 0)
1114          in_type[3] = PSE_PAD_TYPE_NEGCON;
1115    }
1116
1117    var.value = NULL;
1118    var.key = "pcsx_rearmed_pad5type";
1119    if (environ_cb(RETRO_ENVIRONMENT_GET_VARIABLE, &var) || var.value)
1120    {
1121       in_type[4] = PSE_PAD_TYPE_STANDARD;
1122       if (strcmp(var.value, "analog") == 0)
1123          in_type[4] = PSE_PAD_TYPE_ANALOGPAD;
1124       else if (strcmp(var.value, "negcon") == 0)
1125          in_type[4] = PSE_PAD_TYPE_NEGCON;
1126    }
1127
1128    var.value = NULL;
1129    var.key = "pcsx_rearmed_pad6type";
1130    if (environ_cb(RETRO_ENVIRONMENT_GET_VARIABLE, &var) || var.value)
1131    {
1132       in_type[5] = PSE_PAD_TYPE_STANDARD;
1133       if (strcmp(var.value, "analog") == 0)
1134          in_type[5] = PSE_PAD_TYPE_ANALOGPAD;
1135       else if (strcmp(var.value, "negcon") == 0)
1136          in_type[5] = PSE_PAD_TYPE_NEGCON;
1137    }
1138
1139    var.value = NULL;
1140    var.key = "pcsx_rearmed_pad7type";
1141    if (environ_cb(RETRO_ENVIRONMENT_GET_VARIABLE, &var) || var.value)
1142    {
1143       in_type[6] = PSE_PAD_TYPE_STANDARD;
1144       if (strcmp(var.value, "analog") == 0)
1145          in_type[6] = PSE_PAD_TYPE_ANALOGPAD;
1146       else if (strcmp(var.value, "negcon") == 0)
1147          in_type[6] = PSE_PAD_TYPE_NEGCON;
1148    }
1149
1150    var.value = NULL;
1151    var.key = "pcsx_rearmed_pad8type";
1152    if (environ_cb(RETRO_ENVIRONMENT_GET_VARIABLE, &var) || var.value)
1153    {
1154       in_type[7] = PSE_PAD_TYPE_STANDARD;
1155       if (strcmp(var.value, "analog") == 0)
1156          in_type[7] = PSE_PAD_TYPE_ANALOGPAD;
1157       else if (strcmp(var.value, "negcon") == 0)
1158          in_type[7] = PSE_PAD_TYPE_NEGCON;
1159    }
1160
1161    var.value = NULL;
1162    var.key = "pcsx_rearmed_multitap1";
1163    if (environ_cb(RETRO_ENVIRONMENT_GET_VARIABLE, &var) || var.value)
1164    {
1165       if (strcmp(var.value, "enabled") == 0)
1166          multitap1 = 1;
1167       else multitap1 = 0;
1168    }
1169
1170    var.value = NULL;
1171    var.key = "pcsx_rearmed_multitap2";
1172    if (environ_cb(RETRO_ENVIRONMENT_GET_VARIABLE, &var) || var.value)
1173    {
1174       if (strcmp(var.value, "enabled") == 0)
1175          multitap2 = 1;
1176       else multitap2 = 0;
1177    }
1178
1179 #ifdef __ARM_NEON__
1180    var.value = "NULL";
1181    var.key = "pcsx_rearmed_neon_interlace_enable";
1182
1183    if (environ_cb(RETRO_ENVIRONMENT_GET_VARIABLE, &var) || var.value)
1184    {
1185       if (strcmp(var.value, "disabled") == 0)
1186          pl_rearmed_cbs.gpu_neon.allow_interlace = 0;
1187       else if (strcmp(var.value, "enabled") == 0)
1188          pl_rearmed_cbs.gpu_neon.allow_interlace = 1;
1189    }
1190
1191    var.value = NULL;
1192    var.key = "pcsx_rearmed_neon_enhancement_enable";
1193
1194    if (environ_cb(RETRO_ENVIRONMENT_GET_VARIABLE, &var) || var.value)
1195    {
1196       if (strcmp(var.value, "disabled") == 0)
1197          pl_rearmed_cbs.gpu_neon.enhancement_enable = 0;
1198       else if (strcmp(var.value, "enabled") == 0)
1199          pl_rearmed_cbs.gpu_neon.enhancement_enable = 1;
1200    }
1201
1202    var.value = NULL;
1203    var.key = "pcsx_rearmed_neon_enhancement_no_main";
1204
1205    if (environ_cb(RETRO_ENVIRONMENT_GET_VARIABLE, &var) || var.value)
1206    {
1207       if (strcmp(var.value, "disabled") == 0)
1208          pl_rearmed_cbs.gpu_neon.enhancement_no_main = 0;
1209       else if (strcmp(var.value, "enabled") == 0)
1210          pl_rearmed_cbs.gpu_neon.enhancement_no_main = 1;
1211    }
1212 #endif
1213
1214    var.value = "NULL";
1215    var.key = "pcsx_rearmed_duping_enable";
1216
1217    if (environ_cb(RETRO_ENVIRONMENT_GET_VARIABLE, &var) || var.value)
1218    {
1219       if (strcmp(var.value, "off") == 0)
1220          duping_enable = false;
1221       else if (strcmp(var.value, "on") == 0)
1222          duping_enable = true;
1223    }
1224
1225 #ifndef DRC_DISABLE
1226    var.value = NULL;
1227    var.key = "pcsx_rearmed_drc";
1228
1229    if (environ_cb(RETRO_ENVIRONMENT_GET_VARIABLE, &var) || var.value)
1230    {
1231       R3000Acpu *prev_cpu = psxCpu;
1232
1233 #ifdef _3DS
1234       if(!__ctr_svchax)
1235          Config.Cpu = CPU_INTERPRETER;
1236       else
1237 #endif
1238       if (strcmp(var.value, "disabled") == 0)
1239          Config.Cpu = CPU_INTERPRETER;
1240       else if (strcmp(var.value, "enabled") == 0)
1241          Config.Cpu = CPU_DYNAREC;
1242
1243       psxCpu = (Config.Cpu == CPU_INTERPRETER) ? &psxInt : &psxRec;
1244       if (psxCpu != prev_cpu) {
1245          prev_cpu->Shutdown();
1246          psxCpu->Init();
1247          psxCpu->Reset(); // not really a reset..
1248       }
1249    }
1250 #endif
1251
1252    var.value = "NULL";
1253    var.key = "pcsx_rearmed_spu_reverb";
1254
1255    if (environ_cb(RETRO_ENVIRONMENT_GET_VARIABLE, &var) || var.value)
1256    {
1257       if (strcmp(var.value, "off") == 0)
1258          spu_config.iUseReverb = false;
1259       else if (strcmp(var.value, "on") == 0)
1260          spu_config.iUseReverb = true;
1261    }
1262
1263    var.value = "NULL";
1264    var.key = "pcsx_rearmed_spu_interpolation";
1265
1266    if (environ_cb(RETRO_ENVIRONMENT_GET_VARIABLE, &var) || var.value)
1267    {
1268       if (strcmp(var.value, "simple") == 0)
1269          spu_config.iUseInterpolation = 1;
1270       else if (strcmp(var.value, "gaussian") == 0)
1271          spu_config.iUseInterpolation = 2;
1272       else if (strcmp(var.value, "cubic") == 0)
1273          spu_config.iUseInterpolation = 3;
1274       else if (strcmp(var.value, "off") == 0)
1275          spu_config.iUseInterpolation = 0;
1276    }
1277
1278    var.value = "NULL";
1279    var.key = "pcsx_rearmed_pe2_fix";
1280
1281    if (environ_cb(RETRO_ENVIRONMENT_GET_VARIABLE, &var) || var.value)
1282    {
1283       if (strcmp(var.value, "disabled") == 0)
1284          Config.RCntFix = 0;
1285       else if (strcmp(var.value, "enabled") == 0)
1286          Config.RCntFix = 1;
1287    }
1288
1289    var.value = "NULL";
1290    var.key = "pcsx_rearmed_inuyasha_fix";
1291
1292    if (environ_cb(RETRO_ENVIRONMENT_GET_VARIABLE, &var) || var.value)
1293    {
1294       if (strcmp(var.value, "disabled") == 0)
1295          Config.VSyncWA = 0;
1296       else if (strcmp(var.value, "enabled") == 0)
1297          Config.VSyncWA = 1;
1298    }
1299
1300    if (in_flight) {
1301       // inform core things about possible config changes
1302       plugin_call_rearmed_cbs();
1303
1304       if (GPU_open != NULL && GPU_close != NULL) {
1305          GPU_close();
1306          GPU_open(&gpuDisp, "PCSX", NULL);
1307       }
1308
1309       dfinput_activate();
1310    }
1311 }
1312
1313 void retro_run(void)
1314 {
1315
1316    int i;
1317
1318         input_poll_cb();
1319
1320         bool updated = false;
1321         if (environ_cb(RETRO_ENVIRONMENT_GET_VARIABLE_UPDATE, &updated) && updated)
1322                 update_variables(true);
1323
1324         // reset all keystate, query from libretro for keystate
1325         int j;
1326         for(i=0;i<8;i++){
1327                 in_keystate[i] = 0;
1328                 // query from libretro for keystate
1329                 for (j = 0; j < RETRO_PSX_MAP_LEN; j++){
1330                         if (input_state_cb(i, RETRO_DEVICE_JOYPAD, 0, j))
1331                                 in_keystate[i] |= retro_psx_map[j];
1332                 }
1333
1334                 //printf("%i : %i\n",i , input_state_cb(i, RETRO_ENVIRONMENT_GET_INPUT_DEVICE_CAPABILITIES, RETRO_DEVICE_INDEX_ANALOG_LEFT, RETRO_DEVICE_ID_ANALOG_X));
1335
1336                 if (in_type[i] == PSE_PAD_TYPE_ANALOGPAD)
1337                 {
1338                         in_analog_left[i][0] = (input_state_cb(i, RETRO_DEVICE_ANALOG, RETRO_DEVICE_INDEX_ANALOG_LEFT, RETRO_DEVICE_ID_ANALOG_X) / 256) + 128;
1339                         in_analog_left[i][1] = (input_state_cb(i, RETRO_DEVICE_ANALOG, RETRO_DEVICE_INDEX_ANALOG_LEFT, RETRO_DEVICE_ID_ANALOG_Y) / 256) + 128;
1340                         in_analog_right[i][0] = (input_state_cb(i, RETRO_DEVICE_ANALOG, RETRO_DEVICE_INDEX_ANALOG_RIGHT, RETRO_DEVICE_ID_ANALOG_X) / 256) + 128;
1341                         in_analog_right[i][1] = (input_state_cb(i, RETRO_DEVICE_ANALOG, RETRO_DEVICE_INDEX_ANALOG_RIGHT, RETRO_DEVICE_ID_ANALOG_Y) / 256) + 128;
1342                 }
1343         }
1344
1345         stop = 0;
1346         psxCpu->Execute();
1347
1348         video_cb((vout_fb_dirty || !vout_can_dupe || !duping_enable) ? vout_buf : NULL,
1349                 vout_width, vout_height, vout_width * 2);
1350         vout_fb_dirty = 0;
1351 }
1352
1353 static bool try_use_bios(const char *path)
1354 {
1355         FILE *f;
1356         long size;
1357         const char *name;
1358
1359         f = fopen(path, "rb");
1360         if (f == NULL)
1361                 return false;
1362
1363         fseek(f, 0, SEEK_END);
1364         size = ftell(f);
1365         fclose(f);
1366
1367         if (size != 512 * 1024)
1368                 return false;
1369
1370         name = strrchr(path, SLASH);
1371         if (name++ == NULL)
1372                 name = path;
1373         snprintf(Config.Bios, sizeof(Config.Bios), "%s", name);
1374         return true;
1375 }
1376
1377 #ifndef VITA
1378 #include <sys/types.h>
1379 #include <dirent.h>
1380
1381 static bool find_any_bios(const char *dirpath, char *path, size_t path_size)
1382 {
1383         DIR *dir;
1384         struct dirent *ent;
1385         bool ret = false;
1386
1387         dir = opendir(dirpath);
1388         if (dir == NULL)
1389                 return false;
1390
1391         while ((ent = readdir(dir))) {
1392                 if (strncasecmp(ent->d_name, "scph", 4) != 0)
1393                         continue;
1394
1395                 snprintf(path, path_size, "%s/%s", dirpath, ent->d_name);
1396                 ret = try_use_bios(path);
1397                 if (ret)
1398                         break;
1399         }
1400         closedir(dir);
1401         return ret;
1402 }
1403 #else
1404 #define find_any_bios(...) false
1405 #endif
1406
1407 static void check_system_specs(void)
1408 {
1409    unsigned level = 6;
1410    environ_cb(RETRO_ENVIRONMENT_SET_PERFORMANCE_LEVEL, &level);
1411 }
1412
1413 void retro_init(void)
1414 {
1415         const char *bios[] = { "scph1001", "scph5501", "scph7001" };
1416         const char *dir;
1417         char path[256];
1418         int i, ret;
1419         bool found_bios = false;
1420
1421 #ifdef _3DS
1422    psxMapHook = pl_3ds_mmap;
1423    psxUnmapHook = pl_3ds_munmap;
1424 #endif
1425         ret = emu_core_preinit();
1426 #ifdef _3DS
1427    /* emu_core_preinit sets the cpu to dynarec */
1428    if(!__ctr_svchax)
1429       Config.Cpu = CPU_INTERPRETER;
1430 #endif
1431         ret |= emu_core_init();
1432         if (ret != 0) {
1433                 SysPrintf("PCSX init failed.\n");
1434                 exit(1);
1435         }
1436
1437 #ifdef _3DS
1438    vout_buf = linearMemAlign(VOUT_MAX_WIDTH * VOUT_MAX_HEIGHT * 2, 0x80);
1439 #elif defined(_POSIX_C_SOURCE) && (_POSIX_C_SOURCE >= 200112L) && !defined(VITA)
1440         posix_memalign(&vout_buf, 16, VOUT_MAX_WIDTH * VOUT_MAX_HEIGHT * 2);
1441 #else
1442         vout_buf = malloc(VOUT_MAX_WIDTH * VOUT_MAX_HEIGHT * 2);
1443 #endif
1444
1445         if (environ_cb(RETRO_ENVIRONMENT_GET_SYSTEM_DIRECTORY, &dir) && dir)
1446         {
1447                 snprintf(Config.BiosDir, sizeof(Config.BiosDir), "%s", dir);
1448
1449                 for (i = 0; i < sizeof(bios) / sizeof(bios[0]); i++) {
1450                         snprintf(path, sizeof(path), "%s/%s.bin", dir, bios[i]);
1451                         found_bios = try_use_bios(path);
1452                         if (found_bios)
1453                                 break;
1454                 }
1455
1456                 if (!found_bios)
1457                         found_bios = find_any_bios(dir, path, sizeof(path));
1458         }
1459         if (found_bios) {
1460                 SysPrintf("found BIOS file: %s\n", Config.Bios);
1461         }
1462         else
1463         {
1464                 SysPrintf("no BIOS files found.\n");
1465                 struct retro_message msg =
1466                 {
1467                         "no BIOS found, expect bugs!",
1468                         180
1469                 };
1470                 environ_cb(RETRO_ENVIRONMENT_SET_MESSAGE, (void*)&msg);
1471         }
1472
1473         environ_cb(RETRO_ENVIRONMENT_GET_CAN_DUPE, &vout_can_dupe);
1474         environ_cb(RETRO_ENVIRONMENT_SET_DISK_CONTROL_INTERFACE, &disk_control);
1475         environ_cb(RETRO_ENVIRONMENT_GET_RUMBLE_INTERFACE, &rumble);
1476
1477         /* Set how much slower PSX CPU runs * 100 (so that 200 is 2 times)
1478          * we have to do this because cache misses and some IO penalties
1479          * are not emulated. Warning: changing this may break compatibility. */
1480         cycle_multiplier = 175;
1481 #ifdef HAVE_PRE_ARMV7
1482         cycle_multiplier = 200;
1483 #endif
1484         pl_rearmed_cbs.gpu_peops.iUseDither = 1;
1485         spu_config.iUseFixedUpdates = 1;
1486
1487         McdDisable[0] = 0;
1488         McdDisable[1] = 1;
1489         init_memcard(Mcd1Data);
1490
1491         SaveFuncs.open = save_open;
1492         SaveFuncs.read = save_read;
1493         SaveFuncs.write = save_write;
1494         SaveFuncs.seek = save_seek;
1495         SaveFuncs.close = save_close;
1496
1497         update_variables(false);
1498         check_system_specs();
1499 }
1500
1501 void retro_deinit(void)
1502 {
1503         SysClose();
1504 #ifdef _3DS
1505    linearFree(vout_buf);
1506 #else
1507         free(vout_buf);
1508 #endif
1509         vout_buf = NULL;
1510 }
1511
1512 #ifdef VITA
1513 #include <psp2/kernel/threadmgr.h>
1514 int usleep (unsigned long us)
1515 {
1516    sceKernelDelayThread(us);
1517 }
1518 #endif