[libpicofe.git] / pandora / plat.c

// (c) Copyright 2006-2009 notaz, All rights reserved.\r
// Free for non-commercial use.\r
\r
// For commercial use, separate licencing terms must be obtained.\r
\r
#include <stdio.h>\r
#include <unistd.h>\r
#include <stdarg.h>\r
#include <sys/types.h>\r
#include <sys/stat.h>\r
#include <fcntl.h>\r
#include <sys/ioctl.h>\r
#include <unistd.h>\r
#include <linux/fb.h>\r
#include <linux/omapfb.h>\r
\r
#include "../common/emu.h"\r
#include "../common/menu.h"\r
#include "../common/plat.h"\r
#include "../common/arm_utils.h"\r
#include "../linux/sndout_oss.h"\r
#include "../linux/fbdev.h"\r
#include "plat.h"\r
#include "asm_utils.h"\r
#include "version.h"\r
\r
#include <pico/pico_int.h>\r
\r
\r
static struct vout_fbdev *main_fb, *layer_fb;\r
static int g_layer_x, g_layer_y;\r
static int g_layer_w = 320, g_layer_h = 240;\r
static int g_osd_fps_x, g_osd_y;\r
\r
static const char pnd_script_base[] = "sudo -n /usr/pandora/scripts";\r
static short __attribute__((aligned(4))) sndBuffer[2*44100/50];\r
static unsigned char __attribute__((aligned(4))) temp_frame[g_menuscreen_w * g_menuscreen_h * 2];\r
static unsigned char __attribute__((aligned(4))) fb_copy[g_screen_width * g_screen_height * 2];\r
unsigned char *PicoDraw2FB = temp_frame;\r
const char *renderer_names[] = { NULL };\r
const char *renderer_names32x[] = { NULL };\r
char cpu_clk_name[] = "Max CPU clock";\r
\r
static int get_cpu_clock(void)\r
{\r
	FILE *f;\r
	int ret = 0;\r
	f = fopen("/proc/pandora/cpu_mhz_max", "r");\r
	if (f) {\r
		fscanf(f, "%d", &ret);\r
		fclose(f);\r
	}\r
	return ret;\r
}\r
\r
void pemu_prep_defconfig(void)\r
{\r
	defaultConfig.EmuOpt |= EOPT_VSYNC|EOPT_16BPP;\r
	defaultConfig.s_PicoOpt |= POPT_EN_MCD_GFX|POPT_EN_MCD_PSYNC;\r
	defaultConfig.scaling = SCALE_2x2_3x2;\r
}\r
\r
void pemu_validate_config(void)\r
{\r
	currentConfig.CPUclock = get_cpu_clock();\r
}\r
\r
static void osd_text(int x, int y, const char *text)\r
{\r
	int len = strlen(text)*8;\r
	int i, h;\r
\r
	len++;\r
	for (h = 0; h < 8; h++) {\r
		unsigned short *p;\r
		p = (unsigned short *)g_screen_ptr + x + g_screen_width*(y + h);\r
		for (i = len; i; i--, p++)\r
			*p = (*p>>2) & 0x39e7;\r
	}\r
	emu_text_out16(x, y, text);\r
}\r
\r
static void draw_cd_leds(void)\r
{\r
	int old_reg;\r
	old_reg = Pico_mcd->s68k_regs[0];\r
\r
	if (0) {\r
		// 8-bit modes\r
		unsigned int col_g = (old_reg & 2) ? 0xc0c0c0c0 : 0xe0e0e0e0;\r
		unsigned int col_r = (old_reg & 1) ? 0xd0d0d0d0 : 0xe0e0e0e0;\r
		*(unsigned int *)((char *)g_screen_ptr + g_screen_width*2+ 4) =\r
		*(unsigned int *)((char *)g_screen_ptr + g_screen_width*3+ 4) =\r
		*(unsigned int *)((char *)g_screen_ptr + g_screen_width*4+ 4) = col_g;\r
		*(unsigned int *)((char *)g_screen_ptr + g_screen_width*2+12) =\r
		*(unsigned int *)((char *)g_screen_ptr + g_screen_width*3+12) =\r
		*(unsigned int *)((char *)g_screen_ptr + g_screen_width*4+12) = col_r;\r
	} else {\r
		// 16-bit modes\r
		unsigned int *p = (unsigned int *)((short *)g_screen_ptr + g_screen_width*2+4);\r
		unsigned int col_g = (old_reg & 2) ? 0x06000600 : 0;\r
		unsigned int col_r = (old_reg & 1) ? 0xc000c000 : 0;\r
		*p++ = col_g; *p++ = col_g; p+=2; *p++ = col_r; *p++ = col_r; p += g_screen_width/2 - 12/2;\r
		*p++ = col_g; *p++ = col_g; p+=2; *p++ = col_r; *p++ = col_r; p += g_screen_width/2 - 12/2;\r
		*p++ = col_g; *p++ = col_g; p+=2; *p++ = col_r; *p++ = col_r;\r
	}\r
}\r
\r
static int emuscan(unsigned int num)\r
{\r
	DrawLineDest = (unsigned short *)g_screen_ptr + num * g_screen_width;\r
\r
	return 0;\r
}\r
\r
void pemu_finalize_frame(const char *fps, const char *notice)\r
{\r
	if (notice || (currentConfig.EmuOpt & EOPT_SHOW_FPS)) {\r
		if (notice)\r
			osd_text(2, g_osd_y, notice);\r
		if (currentConfig.EmuOpt & EOPT_SHOW_FPS)\r
			osd_text(g_osd_fps_x, g_osd_y, fps);\r
	}\r
	if ((PicoAHW & PAHW_MCD) && (currentConfig.EmuOpt & EOPT_EN_CD_LEDS))\r
		draw_cd_leds();\r
}\r
\r
void plat_video_flip(void)\r
{\r
	g_screen_ptr = vout_fbdev_flip(layer_fb);\r
}\r
\r
void plat_video_toggle_renderer(int change, int is_menu)\r
{\r
}\r
\r
void plat_video_menu_enter(int is_rom_loaded)\r
{\r
}\r
\r
void plat_video_menu_begin(void)\r
{\r
	memcpy32(g_menuscreen_ptr, g_menubg_ptr, g_menuscreen_w * g_menuscreen_h * 2 / 4);\r
}\r
\r
void plat_video_menu_end(void)\r
{\r
	g_menuscreen_ptr = vout_fbdev_flip(main_fb);\r
}\r
\r
void plat_video_wait_vsync(void)\r
{\r
	vout_fbdev_wait_vsync(main_fb);\r
}\r
\r
void plat_status_msg_clear(void)\r
{\r
	vout_fbdev_clear_lines(layer_fb, g_osd_y, 8);\r
}\r
\r
void plat_status_msg_busy_next(const char *msg)\r
{\r
	plat_status_msg_clear();\r
	pemu_finalize_frame("", msg);\r
	plat_video_flip();\r
	emu_status_msg("");\r
	reset_timing = 1;\r
}\r
\r
void plat_status_msg_busy_first(const char *msg)\r
{\r
	plat_status_msg_busy_next(msg);\r
}\r
\r
void plat_update_volume(int has_changed, int is_up)\r
{\r
	static int prev_frame = 0, wait_frames = 0;\r
	int vol = currentConfig.volume;\r
\r
	if (has_changed)\r
	{\r
		if (is_up) {\r
			if (vol < 99) vol++;\r
		} else {\r
			if (vol >  0) vol--;\r
		}\r
		wait_frames = 0;\r
		sndout_oss_setvol(vol, vol);\r
		currentConfig.volume = vol;\r
		emu_status_msg("VOL: %02i", vol);\r
		prev_frame = Pico.m.frame_count;\r
	}\r
}\r
\r
void pemu_forced_frame(int opts, int no_scale)\r
{\r
	int oldscale = currentConfig.scaling;\r
	int po_old = PicoOpt;\r
\r
	if (no_scale) {\r
		currentConfig.scaling = SCALE_1x1;\r
		emu_video_mode_change(8, 224, 0);\r
	}\r
\r
	PicoOpt |= opts|POPT_ACC_SPRITES;\r
\r
	Pico.m.dirtyPal = 1;\r
	PicoFrameDrawOnly();\r
\r
	PicoOpt = po_old;\r
	currentConfig.scaling = oldscale;\r
}\r
\r
static void updateSound(int len)\r
{\r
	unsigned int t;\r
\r
	len <<= 1;\r
	if (PicoOpt & POPT_EN_STEREO)\r
		len <<= 1;\r
\r
	// sndout_oss_can_write() not reliable..\r
	if ((currentConfig.EmuOpt & EOPT_NO_FRMLIMIT) && !sndout_oss_can_write(len))\r
		return;\r
\r
	/* avoid writing audio when lagging behind to prevent audio lag */\r
	if (PicoSkipFrame == 2)\r
		return;\r
\r
	t = plat_get_ticks_ms();\r
	sndout_oss_write(PsndOut, len);\r
	t = plat_get_ticks_ms() - t;\r
	if (t > 1)\r
		printf("audio lag %u\n", t);\r
}\r
\r
void pemu_sound_start(void)\r
{\r
	int target_fps = Pico.m.pal ? 50 : 60;\r
\r
	PsndOut = NULL;\r
\r
	if (currentConfig.EmuOpt & EOPT_EN_SOUND)\r
	{\r
		int snd_excess_add, frame_samples;\r
		int is_stereo = (PicoOpt & POPT_EN_STEREO) ? 1 : 0;\r
\r
		PsndRerate(Pico.m.frame_count ? 1 : 0);\r
\r
		frame_samples = PsndLen;\r
		snd_excess_add = ((PsndRate - PsndLen * target_fps)<<16) / target_fps;\r
		if (snd_excess_add != 0)\r
			frame_samples++;\r
\r
		/*\r
		 * for 44k stereo, we do 1470 samples/frame\r
		 * OMAP driver does power of 2 buffers, so we need at least 4K buffer.\r
		 * The most we can lag is 1K samples, size of OMAP's McBSP FIFO,\r
		 * with 2K sample buffer we might sometimes lag more than that,\r
		 * thus causing underflows.\r
		 */\r
		printf("starting audio: %i len: %i (ex: %04x) stereo: %i, pal: %i\n",\r
			PsndRate, PsndLen, snd_excess_add, is_stereo, Pico.m.pal);\r
		sndout_oss_start(PsndRate, frame_samples * 2, is_stereo);\r
		//sndout_oss_setvol(currentConfig.volume, currentConfig.volume);\r
		PicoWriteSound = updateSound;\r
		plat_update_volume(0, 0);\r
		memset(sndBuffer, 0, sizeof(sndBuffer));\r
		PsndOut = sndBuffer;\r
	}\r
}\r
\r
void pemu_sound_stop(void)\r
{\r
	sndout_oss_stop();\r
}\r
\r
void pemu_sound_wait(void)\r
{\r
	// don't need to do anything, writes will block by themselves\r
}\r
\r
void plat_debug_cat(char *str)\r
{\r
}\r
\r
static int pnd_setup_layer_(int fd, int enabled, int x, int y, int w, int h)\r
{\r
	struct omapfb_plane_info pi;\r
	struct omapfb_mem_info mi;\r
	int ret;\r
\r
	ret = ioctl(fd, OMAPFB_QUERY_PLANE, &pi);\r
	if (ret != 0) {\r
		perror("QUERY_PLANE");\r
		return -1;\r
	}\r
\r
	ret = ioctl(fd, OMAPFB_QUERY_MEM, &mi);\r
	if (ret != 0) {\r
		perror("QUERY_MEM");\r
		return -1;\r
	}\r
\r
	/* must disable when changing stuff */\r
	if (pi.enabled) {\r
		pi.enabled = 0;\r
		ret = ioctl(fd, OMAPFB_SETUP_PLANE, &pi);\r
		if (ret != 0)\r
			perror("SETUP_PLANE");\r
	}\r
\r
	mi.size = 320*240*2*4;\r
	ret = ioctl(fd, OMAPFB_SETUP_MEM, &mi);\r
	if (ret != 0) {\r
		perror("SETUP_MEM");\r
		return -1;\r
	}\r
\r
	pi.pos_x = x;\r
	pi.pos_y = y;\r
	pi.out_width = w;\r
	pi.out_height = h;\r
	pi.enabled = enabled;\r
\r
	ret = ioctl(fd, OMAPFB_SETUP_PLANE, &pi);\r
	if (ret != 0) {\r
		perror("SETUP_PLANE");\r
		return -1;\r
	}\r
\r
	return 0;\r
}\r
\r
int pnd_setup_layer(int enabled, int x, int y, int w, int h)\r
{\r
	return pnd_setup_layer_(vout_fbdev_get_fd(layer_fb), enabled, x, y, w, h);\r
}\r
\r
void pnd_restore_layer_data(void)\r
{\r
	short *t = (short *)fb_copy + 320*240 / 2 + 160;\r
\r
	// right now this is used by menu, which wants to preview something\r
	// so try to get something on the layer.\r
	if ((t[0] | t[5] | t[13]) == 0)\r
		memset32((void *)fb_copy, 0x07000700, sizeof(fb_copy) / 4);\r
\r
	memcpy32(g_screen_ptr, (void *)fb_copy, 320*240*2 / 4);\r
	plat_video_flip();\r
}\r
\r
static void apply_filter(int which)\r
{\r
	char buf[128];\r
	int i;\r
\r
	if (pnd_filter_list == NULL)\r
		return;\r
\r
	for (i = 0; i < which; i++)\r
		if (pnd_filter_list[i] == NULL)\r
			return;\r
\r
	if (pnd_filter_list[i] == NULL)\r
		return;\r
\r
	snprintf(buf, sizeof(buf), "%s/op_videofir.sh %s", pnd_script_base, pnd_filter_list[i]);\r
	system(buf);\r
}\r
\r
void emu_video_mode_change(int start_line, int line_count, int is_32cols)\r
{\r
	int fb_w = 320, fb_h = 240, fb_left = 0, fb_right = 0, fb_top = 0, fb_bottom = 0;\r
\r
	PicoScanBegin = emuscan;\r
	PicoScanEnd = NULL;\r
	PicoDrawSetOutFormat(PDF_RGB555, 1);\r
\r
	if (is_32cols) {\r
		fb_w = 256;\r
		fb_left = fb_right = 32;\r
	}\r
\r
	switch (currentConfig.scaling) {\r
	case SCALE_1x1:\r
		g_layer_w = fb_w;\r
		g_layer_h = fb_h;\r
		break;\r
	case SCALE_2x2_3x2:\r
		g_layer_w = fb_w * (is_32cols ? 3 : 2);\r
		g_layer_h = fb_h * 2;\r
		break;\r
	case SCALE_2x2_2x2:\r
		g_layer_w = fb_w * 2;\r
		g_layer_h = fb_h * 2;\r
		break;\r
	case SCALE_FULLSCREEN:\r
		g_layer_w = 800;\r
		g_layer_h = 480;\r
		break;\r
	case SCALE_CUSTOM:\r
		g_layer_x = g_layer_cx;\r
		g_layer_y = g_layer_cy;\r
		g_layer_w = g_layer_cw;\r
		g_layer_h = g_layer_ch;\r
		break;\r
	}\r
\r
	if (currentConfig.scaling != SCALE_CUSTOM) {\r
		// center the layer\r
		g_layer_x = 800 / 2 - g_layer_w / 2;\r
		g_layer_y = 480 / 2 - g_layer_h / 2;\r
	}\r
\r
	switch (currentConfig.scaling) {\r
	case SCALE_FULLSCREEN:\r
	case SCALE_CUSTOM:\r
		fb_top = start_line;\r
		fb_h = line_count;\r
		break;\r
	}\r
	g_osd_fps_x = is_32cols ? 232 : 264;\r
	g_osd_y = fb_top + fb_h - 8;\r
\r
	pnd_setup_layer(1, g_layer_x, g_layer_y, g_layer_w, g_layer_h);\r
	vout_fbdev_resize(layer_fb, fb_w, fb_h, fb_left, fb_right, fb_top, fb_bottom, 0);\r
	vout_fbdev_clear(layer_fb);\r
}\r
\r
static void make_bg(void)\r
{\r
	unsigned short *s = (void *)fb_copy;\r
	unsigned int t, *d = (unsigned int *)g_menubg_src_ptr + 80 / 2;\r
	int x, y;\r
\r
	memset32(g_menubg_src_ptr, 0, 800 * 480 * 2 / 4);\r
\r
	for (y = 0; y < 240; y++, s += 320, d += 800*2/2) {\r
		for (x = 0; x < 320; x++) {\r
			t = s[x];\r
			t |= t << 16;\r
			d[x] = d[x + 800 / 2] = t;\r
		}\r
	}\r
}\r
\r
void pemu_loop_prep(void)\r
{\r
	static int pal_old = -1;\r
	static int filter_old = -1;\r
	char buf[128];\r
\r
	if (currentConfig.CPUclock != get_cpu_clock()) {\r
		snprintf(buf, sizeof(buf), "unset DISPLAY; echo y | %s/op_cpuspeed.sh %d",\r
			 pnd_script_base, currentConfig.CPUclock);\r
		system(buf);\r
	}\r
\r
	if (Pico.m.pal != pal_old) {\r
		snprintf(buf, sizeof(buf), "%s/op_lcdrate.sh %d",\r
			 pnd_script_base, Pico.m.pal ? 50 : 60);\r
		system(buf);\r
		pal_old = Pico.m.pal;\r
	}\r
\r
	if (currentConfig.filter != filter_old) {\r
		apply_filter(currentConfig.filter);\r
		filter_old = currentConfig.filter;\r
	}\r
\r
	// make sure there is no junk left behind the layer\r
	memset32(g_menuscreen_ptr, 0, 800 * 480 * 2 / 4);\r
	g_menuscreen_ptr = vout_fbdev_flip(main_fb);\r
\r
	// emu_video_mode_change will call pnd_setup_layer()\r
\r
	// dirty buffers better go now than during gameplay\r
	sync();\r
	sleep(0);\r
\r
	pemu_sound_start();\r
}\r
\r
void pemu_loop_end(void)\r
{\r
	int po_old = PicoOpt;\r
	int eo_old = currentConfig.EmuOpt;\r
\r
	pemu_sound_stop();\r
	memset32(g_screen_ptr, 0, g_screen_width * g_screen_height * 2 / 4);\r
\r
	/* do one more frame for menu bg */\r
	PicoOpt |= POPT_EN_SOFTSCALE|POPT_ACC_SPRITES;\r
	currentConfig.EmuOpt |= EOPT_16BPP;\r
\r
	PicoDrawSetOutFormat(PDF_RGB555, 1);\r
	Pico.m.dirtyPal = 1;\r
	PicoFrame();\r
\r
	// making a copy because enabling the layer clears it's mem\r
	memcpy32((void *)fb_copy, g_screen_ptr, sizeof(fb_copy) / 4);\r
	make_bg();\r
\r
	pnd_setup_layer(0, g_layer_x, g_layer_y, g_layer_w, g_layer_h);\r
\r
	PicoOpt = po_old;\r
	currentConfig.EmuOpt = eo_old;\r
}\r
\r
void plat_wait_till_us(unsigned int us_to)\r
{\r
	unsigned int now;\r
	signed int diff;\r
\r
	now = plat_get_ticks_us();\r
\r
	// XXX: need to check NOHZ\r
	diff = (signed int)(us_to - now);\r
	if (diff > 10000) {\r
		//printf("sleep %d\n", us_to - now);\r
		usleep(diff * 15 / 16);\r
		now = plat_get_ticks_us();\r
		//printf(" wake %d\n", (signed)(us_to - now));\r
	}\r
/*\r
	while ((signed int)(us_to - now) > 512) {\r
		spend_cycles(1024);\r
		now = plat_get_ticks_us();\r
	}\r
*/\r
}\r
\r
const char *plat_get_credits(void)\r
{\r
	return "PicoDrive v" VERSION " (c) notaz, 2006-2010\n\n\n"\r
		"Credits:\n"\r
		"fDave: Cyclone 68000 core,\n"\r
		"      base code of PicoDrive\n"\r
		"Reesy & FluBBa: DrZ80 core\n"\r
		"MAME devs: YM2612 and SN76496 cores\n"\r
		"Pandora team: Pandora\n"\r
		"Inder, ketchupgun: graphics\n"\r
		"\n"\r
		"special thanks (for docs, ideas):\n"\r
		" Charles MacDonald, Haze,\n"\r
		" Stephane Dallongeville,\n"\r
		" Lordus, Exophase, Rokas,\n"\r
		" Nemesis, Tasco Deluxe";\r
}\r
\r
#include "../linux/oshide.h"\r
\r
void plat_early_init(void)\r
{\r
}\r
\r
void plat_init(void)\r
{\r
	const char *main_fb_name, *layer_fb_name;\r
	int fd, ret, w, h;\r
\r
	main_fb_name = getenv("FBDEV_MAIN");\r
	if (main_fb_name == NULL)\r
		main_fb_name = "/dev/fb0";\r
\r
	layer_fb_name = getenv("FBDEV_LAYER");\r
	if (layer_fb_name == NULL)\r
		layer_fb_name = "/dev/fb1";\r
\r
	// must set the layer up first to be able to use it\r
	fd = open(layer_fb_name, O_RDWR);\r
	if (fd == -1) {\r
		fprintf(stderr, "%s: ", layer_fb_name);\r
		perror("open");\r
		exit(1);\r
	}\r
\r
	ret = pnd_setup_layer_(fd, 0, g_layer_x, g_layer_y, g_layer_w, g_layer_h);\r
	close(fd);\r
	if (ret != 0) {\r
		fprintf(stderr, "failed to set up layer, exiting.\n");\r
		exit(1);\r
	}\r
\r
	oshide_init();\r
\r
	w = h = 0;\r
	main_fb = vout_fbdev_init(main_fb_name, &w, &h, 0);\r
	if (main_fb == NULL) {\r
		fprintf(stderr, "couldn't init fb: %s\n", main_fb_name);\r
		exit(1);\r
	}\r
\r
	if (w != g_menuscreen_w || h != g_menuscreen_h) {\r
		fprintf(stderr, "%dx%d not supported on %s\n", w, h, main_fb_name);\r
		goto fail0;\r
	}\r
	g_menuscreen_ptr = vout_fbdev_flip(main_fb);\r
\r
	w = 320; h = 240;\r
	layer_fb = vout_fbdev_init(layer_fb_name, &w, &h, 0);\r
	if (layer_fb == NULL) {\r
		fprintf(stderr, "couldn't init fb: %s\n", layer_fb_name);\r
		goto fail0;\r
	}\r
\r
	if (w != g_screen_width || h != g_screen_height) {\r
		fprintf(stderr, "%dx%d not supported on %s\n", w, h, layer_fb_name);\r
		goto fail1;\r
	}\r
	g_screen_ptr = vout_fbdev_flip(layer_fb);\r
\r
	g_menubg_ptr = temp_frame;\r
	g_menubg_src_ptr = temp_frame;\r
\r
	sndout_oss_init();\r
	pnd_menu_init();\r
	return;\r
\r
fail1:\r
	vout_fbdev_finish(layer_fb);\r
fail0:\r
	vout_fbdev_finish(main_fb);\r
	exit(1);\r
}\r
\r
void plat_finish(void)\r
{\r
	sndout_oss_exit();\r
	vout_fbdev_finish(main_fb);\r
	oshide_finish();\r
\r
	printf("all done\n");\r
}\r
\r
/* lprintf */\r
void lprintf(const char *fmt, ...)\r
{\r
	va_list vl;\r
\r
	va_start(vl, fmt);\r
	vprintf(fmt, vl);\r
	va_end(vl);\r
}\r
\r
Commit	Line	Data
c66f49e6	1	// (c) Copyright 2006-2009 notaz, All rights reserved.\r
	2	// Free for non-commercial use.\r
	3	\r
	4	// For commercial use, separate licencing terms must be obtained.\r
	5	\r
	6	#include <stdio.h>\r
	7	#include <unistd.h>\r
	8	#include <stdarg.h>\r
	9	#include <sys/types.h>\r
	10	#include <sys/stat.h>\r
	11	#include <fcntl.h>\r
	12	#include <sys/ioctl.h>\r
	13	#include <unistd.h>\r
	14	#include <linux/fb.h>\r
	15	#include <linux/omapfb.h>\r
	16	\r
	17	#include "../common/emu.h"\r
	18	#include "../common/menu.h"\r
	19	#include "../common/plat.h"\r
	20	#include "../common/arm_utils.h"\r
	21	#include "../linux/sndout_oss.h"\r
	22	#include "../linux/fbdev.h"\r
	23	#include "plat.h"\r
	24	#include "asm_utils.h"\r
	25	#include "version.h"\r
	26	\r
	27	#include <pico/pico_int.h>\r
	28	\r
	29	\r
	30	static struct vout_fbdev main_fb, layer_fb;\r
	31	static int g_layer_x, g_layer_y;\r
	32	static int g_layer_w = 320, g_layer_h = 240;\r
	33	static int g_osd_fps_x, g_osd_y;\r
	34	\r
	35	static const char pnd_script_base[] = "sudo -n /usr/pandora/scripts";\r
	36	static short __attribute__((aligned(4))) sndBuffer[2*44100/50];\r
	37	static unsigned char __attribute__((aligned(4))) temp_frame[g_menuscreen_w * g_menuscreen_h * 2];\r
	38	static unsigned char __attribute__((aligned(4))) fb_copy[g_screen_width * g_screen_height * 2];\r
	39	unsigned char *PicoDraw2FB = temp_frame;\r
	40	const char *renderer_names[] = { NULL };\r
	41	const char *renderer_names32x[] = { NULL };\r
	42	char cpu_clk_name[] = "Max CPU clock";\r
	43	\r
	44	static int get_cpu_clock(void)\r
	45	{\r
	46	FILE *f;\r
	47	int ret = 0;\r
	48	f = fopen("/proc/pandora/cpu_mhz_max", "r");\r
	49	if (f) {\r
	50	fscanf(f, "%d", &ret);\r
	51	fclose(f);\r
	52	}\r
	53	return ret;\r
	54	}\r
	55	\r
	56	void pemu_prep_defconfig(void)\r
	57	{\r
	58	defaultConfig.EmuOpt \|= EOPT_VSYNC\|EOPT_16BPP;\r
	59	defaultConfig.s_PicoOpt \|= POPT_EN_MCD_GFX\|POPT_EN_MCD_PSYNC;\r
	60	defaultConfig.scaling = SCALE_2x2_3x2;\r
	61	}\r
	62	\r
	63	void pemu_validate_config(void)\r
	64	{\r
65	currentConfig.CPUclock = get_cpu_clock();\r
66	}\r
67	\r
68	static void osd_text(int x, int y, const char *text)\r
69	{\r
70	int len = strlen(text)*8;\r
71	int i, h;\r
72	\r
73	len++;\r
74	for (h = 0; h < 8; h++) {\r
75	unsigned short *p;\r
76	p = (unsigned short )g_screen_ptr + x + g_screen_width(y + h);\r
77	for (i = len; i; i--, p++)\r
78	p = (p>>2) & 0x39e7;\r
79	}\r
80	emu_text_out16(x, y, text);\r
81	}\r
82	\r
83	static void draw_cd_leds(void)\r
84	{\r
85	int old_reg;\r
86	old_reg = Pico_mcd->s68k_regs[0];\r
87	\r
88	if (0) {\r
89	// 8-bit modes\r
90	unsigned int col_g = (old_reg & 2) ? 0xc0c0c0c0 : 0xe0e0e0e0;\r
91	unsigned int col_r = (old_reg & 1) ? 0xd0d0d0d0 : 0xe0e0e0e0;\r
92	(unsigned int )((char )g_screen_ptr + g_screen_width2+ 4) =\r
93	(unsigned int )((char )g_screen_ptr + g_screen_width3+ 4) =\r
94	(unsigned int )((char )g_screen_ptr + g_screen_width4+ 4) = col_g;\r
95	(unsigned int )((char )g_screen_ptr + g_screen_width2+12) =\r
96	(unsigned int )((char )g_screen_ptr + g_screen_width3+12) =\r
97	(unsigned int )((char )g_screen_ptr + g_screen_width4+12) = col_r;\r
98	} else {\r
99	// 16-bit modes\r
100	unsigned int p = (unsigned int )((short )g_screen_ptr + g_screen_width2+4);\r
101	unsigned int col_g = (old_reg & 2) ? 0x06000600 : 0;\r
102	unsigned int col_r = (old_reg & 1) ? 0xc000c000 : 0;\r
103	p++ = col_g; p++ = col_g; p+=2; p++ = col_r; p++ = col_r; p += g_screen_width/2 - 12/2;\r
104	p++ = col_g; p++ = col_g; p+=2; p++ = col_r; p++ = col_r; p += g_screen_width/2 - 12/2;\r
105	p++ = col_g; p++ = col_g; p+=2; p++ = col_r; p++ = col_r;\r
106	}\r
107	}\r
108	\r
109	static int emuscan(unsigned int num)\r
110	{\r
111	DrawLineDest = (unsigned short )g_screen_ptr + num g_screen_width;\r
112	\r
113	return 0;\r
114	}\r
115	\r
116	void pemu_finalize_frame(const char fps, const char notice)\r
117	{\r
118	if (notice \|\| (currentConfig.EmuOpt & EOPT_SHOW_FPS)) {\r
119	if (notice)\r
120	osd_text(2, g_osd_y, notice);\r
121	if (currentConfig.EmuOpt & EOPT_SHOW_FPS)\r
122	osd_text(g_osd_fps_x, g_osd_y, fps);\r
123	}\r
124	if ((PicoAHW & PAHW_MCD) && (currentConfig.EmuOpt & EOPT_EN_CD_LEDS))\r
125	draw_cd_leds();\r
126	}\r
127	\r
128	void plat_video_flip(void)\r
129	{\r
130	g_screen_ptr = vout_fbdev_flip(layer_fb);\r
131	}\r
132	\r
133	void plat_video_toggle_renderer(int change, int is_menu)\r
134	{\r
135	}\r
136	\r
137	void plat_video_menu_enter(int is_rom_loaded)\r
138	{\r
139	}\r
140	\r
141	void plat_video_menu_begin(void)\r
142	{\r
143	memcpy32(g_menuscreen_ptr, g_menubg_ptr, g_menuscreen_w * g_menuscreen_h * 2 / 4);\r
144	}\r
145	\r
146	void plat_video_menu_end(void)\r
147	{\r
148	g_menuscreen_ptr = vout_fbdev_flip(main_fb);\r
149	}\r
150	\r
151	void plat_video_wait_vsync(void)\r
152	{\r
153	vout_fbdev_wait_vsync(main_fb);\r
154	}\r
155	\r
156	void plat_status_msg_clear(void)\r
157	{\r
69dfeea1	158	vout_fbdev_clear_lines(layer_fb, g_osd_y, 8);\r
c66f49e6	159	}\r
	160	\r
	161	void plat_status_msg_busy_next(const char *msg)\r
	162	{\r
	163	plat_status_msg_clear();\r
	164	pemu_finalize_frame("", msg);\r
	165	plat_video_flip();\r
	166	emu_status_msg("");\r
	167	reset_timing = 1;\r
	168	}\r
	169	\r
	170	void plat_status_msg_busy_first(const char *msg)\r
	171	{\r
	172	plat_status_msg_busy_next(msg);\r
	173	}\r
	174	\r
	175	void plat_update_volume(int has_changed, int is_up)\r
	176	{\r
	177	static int prev_frame = 0, wait_frames = 0;\r
	178	int vol = currentConfig.volume;\r
	179	\r
	180	if (has_changed)\r
	181	{\r
	182	if (is_up) {\r
	183	if (vol < 99) vol++;\r
	184	} else {\r
	185	if (vol > 0) vol--;\r
	186	}\r
	187	wait_frames = 0;\r
	188	sndout_oss_setvol(vol, vol);\r
	189	currentConfig.volume = vol;\r
	190	emu_status_msg("VOL: %02i", vol);\r
	191	prev_frame = Pico.m.frame_count;\r
	192	}\r
	193	}\r
	194	\r
	195	void pemu_forced_frame(int opts, int no_scale)\r
	196	{\r
	197	int oldscale = currentConfig.scaling;\r
	198	int po_old = PicoOpt;\r
	199	\r
	200	if (no_scale) {\r
	201	currentConfig.scaling = SCALE_1x1;\r
	202	emu_video_mode_change(8, 224, 0);\r
	203	}\r
	204	\r
	205	PicoOpt \|= opts\|POPT_ACC_SPRITES;\r
	206	\r
	207	Pico.m.dirtyPal = 1;\r
	208	PicoFrameDrawOnly();\r
	209	\r
	210	PicoOpt = po_old;\r
	211	currentConfig.scaling = oldscale;\r
	212	}\r
	213	\r
	214	static void updateSound(int len)\r
	215	{\r
	216	unsigned int t;\r
	217	\r
	218	len <<= 1;\r
	219	if (PicoOpt & POPT_EN_STEREO)\r
	220	len <<= 1;\r
	221	\r
	222	// sndout_oss_can_write() not reliable..\r
223	if ((currentConfig.EmuOpt & EOPT_NO_FRMLIMIT) && !sndout_oss_can_write(len))\r
224	return;\r
225	\r
226	/* avoid writing audio when lagging behind to prevent audio lag */\r
227	if (PicoSkipFrame == 2)\r
228	return;\r
229	\r
230	t = plat_get_ticks_ms();\r
231	sndout_oss_write(PsndOut, len);\r
232	t = plat_get_ticks_ms() - t;\r
233	if (t > 1)\r
234	printf("audio lag %u\n", t);\r
235	}\r
236	\r
237	void pemu_sound_start(void)\r
238	{\r
239	int target_fps = Pico.m.pal ? 50 : 60;\r
240	\r
241	PsndOut = NULL;\r
242	\r
243	if (currentConfig.EmuOpt & EOPT_EN_SOUND)\r
244	{\r
245	int snd_excess_add, frame_samples;\r
246	int is_stereo = (PicoOpt & POPT_EN_STEREO) ? 1 : 0;\r
247	\r
248	PsndRerate(Pico.m.frame_count ? 1 : 0);\r
249	\r
250	frame_samples = PsndLen;\r
251	snd_excess_add = ((PsndRate - PsndLen * target_fps)<<16) / target_fps;\r
252	if (snd_excess_add != 0)\r
253	frame_samples++;\r
254	\r
255	/*\r
256	* for 44k stereo, we do 1470 samples/frame\r
257	* OMAP driver does power of 2 buffers, so we need at least 4K buffer.\r
258	* The most we can lag is 1K samples, size of OMAP's McBSP FIFO,\r
259	* with 2K sample buffer we might sometimes lag more than that,\r
260	* thus causing underflows.\r
261	*/\r
262	printf("starting audio: %i len: %i (ex: %04x) stereo: %i, pal: %i\n",\r
263	PsndRate, PsndLen, snd_excess_add, is_stereo, Pico.m.pal);\r
264	sndout_oss_start(PsndRate, frame_samples * 2, is_stereo);\r
265	//sndout_oss_setvol(currentConfig.volume, currentConfig.volume);\r
266	PicoWriteSound = updateSound;\r
267	plat_update_volume(0, 0);\r
268	memset(sndBuffer, 0, sizeof(sndBuffer));\r
269	PsndOut = sndBuffer;\r
270	}\r
271	}\r
272	\r
273	void pemu_sound_stop(void)\r
274	{\r
275	sndout_oss_stop();\r
276	}\r
277	\r
278	void pemu_sound_wait(void)\r
279	{\r
280	// don't need to do anything, writes will block by themselves\r
281	}\r
282	\r
283	void plat_debug_cat(char *str)\r
284	{\r
285	}\r
286	\r
287	static int pnd_setup_layer_(int fd, int enabled, int x, int y, int w, int h)\r
288	{\r
289	struct omapfb_plane_info pi;\r
290	struct omapfb_mem_info mi;\r
291	int ret;\r
292	\r
293	ret = ioctl(fd, OMAPFB_QUERY_PLANE, &pi);\r
294	if (ret != 0) {\r
295	perror("QUERY_PLANE");\r
296	return -1;\r
297	}\r
298	\r
299	ret = ioctl(fd, OMAPFB_QUERY_MEM, &mi);\r
300	if (ret != 0) {\r
301	perror("QUERY_MEM");\r
302	return -1;\r
303	}\r
304	\r
305	/* must disable when changing stuff */\r
306	if (pi.enabled) {\r
307	pi.enabled = 0;\r
308	ret = ioctl(fd, OMAPFB_SETUP_PLANE, &pi);\r
309	if (ret != 0)\r
310	perror("SETUP_PLANE");\r
311	}\r
312	\r
313	mi.size = 3202402*4;\r
314	ret = ioctl(fd, OMAPFB_SETUP_MEM, &mi);\r
315	if (ret != 0) {\r
316	perror("SETUP_MEM");\r
317	return -1;\r
318	}\r
319	\r
320	pi.pos_x = x;\r
321	pi.pos_y = y;\r
322	pi.out_width = w;\r
323	pi.out_height = h;\r
324	pi.enabled = enabled;\r
325	\r
326	ret = ioctl(fd, OMAPFB_SETUP_PLANE, &pi);\r
327	if (ret != 0) {\r
328	perror("SETUP_PLANE");\r
329	return -1;\r
330	}\r
331	\r
332	return 0;\r
333	}\r
334	\r
335	int pnd_setup_layer(int enabled, int x, int y, int w, int h)\r
336	{\r
337	return pnd_setup_layer_(vout_fbdev_get_fd(layer_fb), enabled, x, y, w, h);\r
338	}\r
339	\r
340	void pnd_restore_layer_data(void)\r
341	{\r
24cf9d99	342	short t = (short )fb_copy + 320*240 / 2 + 160;\r
c66f49e6	343	\r
	344	// right now this is used by menu, which wants to preview something\r
	345	// so try to get something on the layer.\r
	346	if ((t[0] \| t[5] \| t[13]) == 0)\r
	347	memset32((void *)fb_copy, 0x07000700, sizeof(fb_copy) / 4);\r
	348	\r
	349	memcpy32(g_screen_ptr, (void )fb_copy, 320240*2 / 4);\r
	350	plat_video_flip();\r
	351	}\r
	352	\r
	353	static void apply_filter(int which)\r
	354	{\r
	355	char buf[128];\r
	356	int i;\r
	357	\r
	358	if (pnd_filter_list == NULL)\r
	359	return;\r
	360	\r
	361	for (i = 0; i < which; i++)\r
	362	if (pnd_filter_list[i] == NULL)\r
	363	return;\r
	364	\r
	365	if (pnd_filter_list[i] == NULL)\r
	366	return;\r
	367	\r
	368	snprintf(buf, sizeof(buf), "%s/op_videofir.sh %s", pnd_script_base, pnd_filter_list[i]);\r
	369	system(buf);\r
	370	}\r
	371	\r
	372	void emu_video_mode_change(int start_line, int line_count, int is_32cols)\r
	373	{\r
	374	int fb_w = 320, fb_h = 240, fb_left = 0, fb_right = 0, fb_top = 0, fb_bottom = 0;\r
	375	\r
	376	PicoScanBegin = emuscan;\r
	377	PicoScanEnd = NULL;\r
	378	PicoDrawSetOutFormat(PDF_RGB555, 1);\r
	379	\r
	380	if (is_32cols) {\r
	381	fb_w = 256;\r
	382	fb_left = fb_right = 32;\r
	383	}\r
	384	\r
	385	switch (currentConfig.scaling) {\r
	386	case SCALE_1x1:\r
	387	g_layer_w = fb_w;\r
	388	g_layer_h = fb_h;\r
	389	break;\r
	390	case SCALE_2x2_3x2:\r
	391	g_layer_w = fb_w * (is_32cols ? 3 : 2);\r
	392	g_layer_h = fb_h * 2;\r
	393	break;\r
	394	case SCALE_2x2_2x2:\r
	395	g_layer_w = fb_w * 2;\r
	396	g_layer_h = fb_h * 2;\r
	397	break;\r
	398	case SCALE_FULLSCREEN:\r
	399	g_layer_w = 800;\r
	400	g_layer_h = 480;\r
	401	break;\r
	402	case SCALE_CUSTOM:\r
	403	g_layer_x = g_layer_cx;\r
	404	g_layer_y = g_layer_cy;\r
	405	g_layer_w = g_layer_cw;\r
	406	g_layer_h = g_layer_ch;\r
407	break;\r
408	}\r
409	\r
410	if (currentConfig.scaling != SCALE_CUSTOM) {\r
411	// center the layer\r
412	g_layer_x = 800 / 2 - g_layer_w / 2;\r
413	g_layer_y = 480 / 2 - g_layer_h / 2;\r
414	}\r
415	\r
416	switch (currentConfig.scaling) {\r
417	case SCALE_FULLSCREEN:\r
418	case SCALE_CUSTOM:\r
419	fb_top = start_line;\r
420	fb_h = line_count;\r
421	break;\r
422	}\r
423	g_osd_fps_x = is_32cols ? 232 : 264;\r
424	g_osd_y = fb_top + fb_h - 8;\r
425	\r
426	pnd_setup_layer(1, g_layer_x, g_layer_y, g_layer_w, g_layer_h);\r
427	vout_fbdev_resize(layer_fb, fb_w, fb_h, fb_left, fb_right, fb_top, fb_bottom, 0);\r
428	vout_fbdev_clear(layer_fb);\r
429	}\r
430	\r
431	static void make_bg(void)\r
432	{\r
433	unsigned short s = (void )fb_copy;\r
434	unsigned int t, d = (unsigned int )g_menubg_src_ptr + 80 / 2;\r
435	int x, y;\r
436	\r
437	memset32(g_menubg_src_ptr, 0, 800 * 480 * 2 / 4);\r
438	\r
439	for (y = 0; y < 240; y++, s += 320, d += 800*2/2) {\r
440	for (x = 0; x < 320; x++) {\r
441	t = s[x];\r
442	t \|= t << 16;\r
443	d[x] = d[x + 800 / 2] = t;\r
444	}\r
445	}\r
446	}\r
447	\r
448	void pemu_loop_prep(void)\r
449	{\r
450	static int pal_old = -1;\r
451	static int filter_old = -1;\r
452	char buf[128];\r
453	\r
454	if (currentConfig.CPUclock != get_cpu_clock()) {\r
455	snprintf(buf, sizeof(buf), "unset DISPLAY; echo y \| %s/op_cpuspeed.sh %d",\r
456	pnd_script_base, currentConfig.CPUclock);\r
457	system(buf);\r
458	}\r
459	\r
460	if (Pico.m.pal != pal_old) {\r
461	snprintf(buf, sizeof(buf), "%s/op_lcdrate.sh %d",\r
462	pnd_script_base, Pico.m.pal ? 50 : 60);\r
463	system(buf);\r
464	pal_old = Pico.m.pal;\r
465	}\r
466	\r
467	if (currentConfig.filter != filter_old) {\r
468	apply_filter(currentConfig.filter);\r
469	filter_old = currentConfig.filter;\r
470	}\r
471	\r
472	// make sure there is no junk left behind the layer\r
473	memset32(g_menuscreen_ptr, 0, 800 * 480 * 2 / 4);\r
474	g_menuscreen_ptr = vout_fbdev_flip(main_fb);\r
475	\r
476	// emu_video_mode_change will call pnd_setup_layer()\r
477	\r
478	// dirty buffers better go now than during gameplay\r
479	sync();\r
480	sleep(0);\r
481	\r
482	pemu_sound_start();\r
483	}\r
484	\r
485	void pemu_loop_end(void)\r
486	{\r
487	int po_old = PicoOpt;\r
488	int eo_old = currentConfig.EmuOpt;\r
489	\r
490	pemu_sound_stop();\r
491	memset32(g_screen_ptr, 0, g_screen_width * g_screen_height * 2 / 4);\r
492	\r
493	/* do one more frame for menu bg */\r
494	PicoOpt \|= POPT_EN_SOFTSCALE\|POPT_ACC_SPRITES;\r
495	currentConfig.EmuOpt \|= EOPT_16BPP;\r
496	\r
497	PicoDrawSetOutFormat(PDF_RGB555, 1);\r
498	Pico.m.dirtyPal = 1;\r
499	PicoFrame();\r
500	\r
501	// making a copy because enabling the layer clears it's mem\r
502	memcpy32((void *)fb_copy, g_screen_ptr, sizeof(fb_copy) / 4);\r
503	make_bg();\r
504	\r
505	pnd_setup_layer(0, g_layer_x, g_layer_y, g_layer_w, g_layer_h);\r
506	\r
507	PicoOpt = po_old;\r
508	currentConfig.EmuOpt = eo_old;\r
509	}\r
510	\r
511	void plat_wait_till_us(unsigned int us_to)\r
512	{\r
513	unsigned int now;\r
514	signed int diff;\r
515	\r
516	now = plat_get_ticks_us();\r
517	\r
518	// XXX: need to check NOHZ\r
519	diff = (signed int)(us_to - now);\r
520	if (diff > 10000) {\r
521	//printf("sleep %d\n", us_to - now);\r
522	usleep(diff * 15 / 16);\r
523	now = plat_get_ticks_us();\r
524	//printf(" wake %d\n", (signed)(us_to - now));\r
525	}\r
526	/*\r
527	while ((signed int)(us_to - now) > 512) {\r
528	spend_cycles(1024);\r
529	now = plat_get_ticks_us();\r
530	}\r
531	*/\r
532	}\r
533	\r
534	const char *plat_get_credits(void)\r
535	{\r
536	return "PicoDrive v" VERSION " (c) notaz, 2006-2010\n\n\n"\r
537	"Credits:\n"\r
538	"fDave: Cyclone 68000 core,\n"\r
539	" base code of PicoDrive\n"\r
540	"Reesy & FluBBa: DrZ80 core\n"\r
541	"MAME devs: YM2612 and SN76496 cores\n"\r
542	"Pandora team: Pandora\n"\r
543	"Inder, ketchupgun: graphics\n"\r
544	"\n"\r
545	"special thanks (for docs, ideas):\n"\r
546	" Charles MacDonald, Haze,\n"\r
547	" Stephane Dallongeville,\n"\r
548	" Lordus, Exophase, Rokas,\n"\r
549	" Nemesis, Tasco Deluxe";\r
550	}\r
551	\r
552	#include "../linux/oshide.h"\r
553	\r
554	void plat_early_init(void)\r
555	{\r
556	}\r
557	\r
558	void plat_init(void)\r
559	{\r
560	const char main_fb_name, layer_fb_name;\r
561	int fd, ret, w, h;\r
562	\r
563	main_fb_name = getenv("FBDEV_MAIN");\r
564	if (main_fb_name == NULL)\r
565	main_fb_name = "/dev/fb0";\r
566	\r
567	layer_fb_name = getenv("FBDEV_LAYER");\r
568	if (layer_fb_name == NULL)\r
569	layer_fb_name = "/dev/fb1";\r
570	\r
571	// must set the layer up first to be able to use it\r
572	fd = open(layer_fb_name, O_RDWR);\r
573	if (fd == -1) {\r
574	fprintf(stderr, "%s: ", layer_fb_name);\r
575	perror("open");\r
576	exit(1);\r
577	}\r
578	\r
579	ret = pnd_setup_layer_(fd, 0, g_layer_x, g_layer_y, g_layer_w, g_layer_h);\r
580	close(fd);\r
581	if (ret != 0) {\r
582	fprintf(stderr, "failed to set up layer, exiting.\n");\r
583	exit(1);\r
584	}\r
585	\r
586	oshide_init();\r
587	\r
588	w = h = 0;\r
589	main_fb = vout_fbdev_init(main_fb_name, &w, &h, 0);\r
590	if (main_fb == NULL) {\r
591	fprintf(stderr, "couldn't init fb: %s\n", main_fb_name);\r
592	exit(1);\r
593	}\r
594	\r
595	if (w != g_menuscreen_w \|\| h != g_menuscreen_h) {\r
596	fprintf(stderr, "%dx%d not supported on %s\n", w, h, main_fb_name);\r
597	goto fail0;\r
598	}\r
599	g_menuscreen_ptr = vout_fbdev_flip(main_fb);\r
600	\r
601	w = 320; h = 240;\r
602	layer_fb = vout_fbdev_init(layer_fb_name, &w, &h, 0);\r
603	if (layer_fb == NULL) {\r
604	fprintf(stderr, "couldn't init fb: %s\n", layer_fb_name);\r
605	goto fail0;\r
606	}\r
607	\r
608	if (w != g_screen_width \|\| h != g_screen_height) {\r
609	fprintf(stderr, "%dx%d not supported on %s\n", w, h, layer_fb_name);\r
610	goto fail1;\r
611	}\r
612	g_screen_ptr = vout_fbdev_flip(layer_fb);\r
613	\r
614	g_menubg_ptr = temp_frame;\r
615	g_menubg_src_ptr = temp_frame;\r
616	\r
617	sndout_oss_init();\r
618	pnd_menu_init();\r
619	return;\r
620	\r
621	fail1:\r
622	vout_fbdev_finish(layer_fb);\r
623	fail0:\r
624	vout_fbdev_finish(main_fb);\r
625	exit(1);\r
626	}\r
627	\r
628	void plat_finish(void)\r
629	{\r
630	sndout_oss_exit();\r
631	vout_fbdev_finish(main_fb);\r
632	oshide_finish();\r
633	\r
634	printf("all done\n");\r
635	}\r
636	\r
637	/* lprintf */\r
638	void lprintf(const char *fmt, ...)\r
639	{\r
640	va_list vl;\r
641	\r
642	va_start(vl, fmt);\r
643	vprintf(fmt, vl);\r
644	va_end(vl);\r
645	}\r
646	\r