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