export SDL2/SDL.h
#export SDL_mixer.h
export gl

int audio_rate = 44100
Uint16 audio_format = AUDIO_S16
int audio_channels = 2
int audio_buffers = 4096

bit mix_open
#Mix_Music *music

SDL_Surface *sdl_surface

t2_int sdl_init(int vw, int vh, bit fullscreen, cstr title):
	t2_int size
	if vw == 0:
		# TODO use SDL instead of X11 for this?
		size = get_display_size()
		set_t(vw, vh, get_display_size())
	 else:
		# TODO get actual window size and return it?
		t_set(size, vw, vh)

	if SDL_Init(SDL_INIT_VIDEO|SDL_INIT_AUDIO) < 0:
		error("Unable to init SDL: %s\n", SDL_GetError())
	atexit(sdl_pre_exit)

#	if Mix_OpenAudio(audio_rate, audio_format, audio_channels, audio_buffers):
#		failed("Mix_OpenAudio")
	mix_open = 1

#	# TODO: remove these?  they are not necessary / already the default?
	SDL_GL_SetAttribute(SDL_GL_SWAP_CONTROL, 1)
	SDL_GL_SetAttribute(SDL_GL_DOUBLEBUFFER, 1)
#	SDL_GL_SetAttribute(SDL_GL_MULTISAMPLEBUFFERS, 1)
#	SDL_GL_SetAttribute(SDL_GL_MULTISAMPLESAMPLES, 4)

	# TODO can't specify desired refresh rate with SDL?  use xrandr?  does not restore nicely in that case.
	sdl_surface = SDL_SetVideoMode(vw, vh, 32, sdl_gl_mode|(fullscreen?SDL_FULLSCREEN:0))
	if !sdl_surface:
		error("Unable to set %dx%d video: %s\n", vw, vh, SDL_GetError())
#	Systemf("xrandr -r %.0f", fps)
	gl_init()
#	glEnable(GL_MULTISAMPLE)
#	glEnable(GL_POINT_SMOOTH)
#	glEnable(GL_LINE_SMOOTH)

	SDL_WM_SetCaption(title, title)
	SDL_ShowCursor(SDL_DISABLE)

	which sdl_surface->format->BytesPerPixel:
	4	.
	else	error("Need 32bpp video, but not available")

	return size

struct sdl_key
	cstr name
	SDLKey code

sdl_key sdl_keys_table[] =
	{ "UNKNOWN", SDLK_UNKNOWN },
	{ "FIRST", SDLK_FIRST },
	{ "BACKSPACE", SDLK_BACKSPACE },
	{ "TAB", SDLK_TAB },
	{ "CLEAR", SDLK_CLEAR },
	{ "RETURN", SDLK_RETURN },
	{ "PAUSE", SDLK_PAUSE },
	{ "ESCAPE", SDLK_ESCAPE },
	{ "SPACE", SDLK_SPACE },
	{ "EXCLAIM", SDLK_EXCLAIM },
	{ "QUOTEDBL", SDLK_QUOTEDBL },
	{ "HASH", SDLK_HASH },
	{ "DOLLAR", SDLK_DOLLAR },
	{ "AMPERSAND", SDLK_AMPERSAND },
	{ "QUOTE", SDLK_QUOTE },
	{ "LEFTPAREN", SDLK_LEFTPAREN },
	{ "RIGHTPAREN", SDLK_RIGHTPAREN },
	{ "ASTERISK", SDLK_ASTERISK },
	{ "PLUS", SDLK_PLUS },
	{ "COMMA", SDLK_COMMA },
	{ "MINUS", SDLK_MINUS },
	{ "PERIOD", SDLK_PERIOD },
	{ "SLASH", SDLK_SLASH },
	{ "0", SDLK_0 },
	{ "1", SDLK_1 },
	{ "2", SDLK_2 },
	{ "3", SDLK_3 },
	{ "4", SDLK_4 },
	{ "5", SDLK_5 },
	{ "6", SDLK_6 },
	{ "7", SDLK_7 },
	{ "8", SDLK_8 },
	{ "9", SDLK_9 },
	{ "COLON", SDLK_COLON },
	{ "SEMICOLON", SDLK_SEMICOLON },
	{ "LESS", SDLK_LESS },
	{ "EQUALS", SDLK_EQUALS },
	{ "GREATER", SDLK_GREATER },
	{ "QUESTION", SDLK_QUESTION },
	{ "AT", SDLK_AT },
	{ "LEFTBRACKET", SDLK_LEFTBRACKET },
	{ "BACKSLASH", SDLK_BACKSLASH },
	{ "RIGHTBRACKET", SDLK_RIGHTBRACKET },
	{ "CARET", SDLK_CARET },
	{ "UNDERSCORE", SDLK_UNDERSCORE },
	{ "BACKQUOTE", SDLK_BACKQUOTE },
	{ "a", SDLK_a },
	{ "b", SDLK_b },
	{ "c", SDLK_c },
	{ "d", SDLK_d },
	{ "e", SDLK_e },
	{ "f", SDLK_f },
	{ "g", SDLK_g },
	{ "h", SDLK_h },
	{ "i", SDLK_i },
	{ "j", SDLK_j },
	{ "k", SDLK_k },
	{ "l", SDLK_l },
	{ "m", SDLK_m },
	{ "n", SDLK_n },
	{ "o", SDLK_o },
	{ "p", SDLK_p },
	{ "q", SDLK_q },
	{ "r", SDLK_r },
	{ "s", SDLK_s },
	{ "t", SDLK_t },
	{ "u", SDLK_u },
	{ "v", SDLK_v },
	{ "w", SDLK_w },
	{ "x", SDLK_x },
	{ "y", SDLK_y },
	{ "z", SDLK_z },
	{ "DELETE", SDLK_DELETE },
	{ "WORLD_0", SDLK_WORLD_0 },
	{ "WORLD_1", SDLK_WORLD_1 },
	{ "WORLD_2", SDLK_WORLD_2 },
	{ "WORLD_3", SDLK_WORLD_3 },
	{ "WORLD_4", SDLK_WORLD_4 },
	{ "WORLD_5", SDLK_WORLD_5 },
	{ "WORLD_6", SDLK_WORLD_6 },
	{ "WORLD_7", SDLK_WORLD_7 },
	{ "WORLD_8", SDLK_WORLD_8 },
	{ "WORLD_9", SDLK_WORLD_9 },
	{ "WORLD_10", SDLK_WORLD_10 },
	{ "WORLD_11", SDLK_WORLD_11 },
	{ "WORLD_12", SDLK_WORLD_12 },
	{ "WORLD_13", SDLK_WORLD_13 },
	{ "WORLD_14", SDLK_WORLD_14 },
	{ "WORLD_15", SDLK_WORLD_15 },
	{ "WORLD_16", SDLK_WORLD_16 },
	{ "WORLD_17", SDLK_WORLD_17 },
	{ "WORLD_18", SDLK_WORLD_18 },
	{ "WORLD_19", SDLK_WORLD_19 },
	{ "WORLD_20", SDLK_WORLD_20 },
	{ "WORLD_21", SDLK_WORLD_21 },
	{ "WORLD_22", SDLK_WORLD_22 },
	{ "WORLD_23", SDLK_WORLD_23 },
	{ "WORLD_24", SDLK_WORLD_24 },
	{ "WORLD_25", SDLK_WORLD_25 },
	{ "WORLD_26", SDLK_WORLD_26 },
	{ "WORLD_27", SDLK_WORLD_27 },
	{ "WORLD_28", SDLK_WORLD_28 },
	{ "WORLD_29", SDLK_WORLD_29 },
	{ "WORLD_30", SDLK_WORLD_30 },
	{ "WORLD_31", SDLK_WORLD_31 },
	{ "WORLD_32", SDLK_WORLD_32 },
	{ "WORLD_33", SDLK_WORLD_33 },
	{ "WORLD_34", SDLK_WORLD_34 },
	{ "WORLD_35", SDLK_WORLD_35 },
	{ "WORLD_36", SDLK_WORLD_36 },
	{ "WORLD_37", SDLK_WORLD_37 },
	{ "WORLD_38", SDLK_WORLD_38 },
	{ "WORLD_39", SDLK_WORLD_39 },
	{ "WORLD_40", SDLK_WORLD_40 },
	{ "WORLD_41", SDLK_WORLD_41 },
	{ "WORLD_42", SDLK_WORLD_42 },
	{ "WORLD_43", SDLK_WORLD_43 },
	{ "WORLD_44", SDLK_WORLD_44 },
	{ "WORLD_45", SDLK_WORLD_45 },
	{ "WORLD_46", SDLK_WORLD_46 },
	{ "WORLD_47", SDLK_WORLD_47 },
	{ "WORLD_48", SDLK_WORLD_48 },
	{ "WORLD_49", SDLK_WORLD_49 },
	{ "WORLD_50", SDLK_WORLD_50 },
	{ "WORLD_51", SDLK_WORLD_51 },
	{ "WORLD_52", SDLK_WORLD_52 },
	{ "WORLD_53", SDLK_WORLD_53 },
	{ "WORLD_54", SDLK_WORLD_54 },
	{ "WORLD_55", SDLK_WORLD_55 },
	{ "WORLD_56", SDLK_WORLD_56 },
	{ "WORLD_57", SDLK_WORLD_57 },
	{ "WORLD_58", SDLK_WORLD_58 },
	{ "WORLD_59", SDLK_WORLD_59 },
	{ "WORLD_60", SDLK_WORLD_60 },
	{ "WORLD_61", SDLK_WORLD_61 },
	{ "WORLD_62", SDLK_WORLD_62 },
	{ "WORLD_63", SDLK_WORLD_63 },
	{ "WORLD_64", SDLK_WORLD_64 },
	{ "WORLD_65", SDLK_WORLD_65 },
	{ "WORLD_66", SDLK_WORLD_66 },
	{ "WORLD_67", SDLK_WORLD_67 },
	{ "WORLD_68", SDLK_WORLD_68 },
	{ "WORLD_69", SDLK_WORLD_69 },
	{ "WORLD_70", SDLK_WORLD_70 },
	{ "WORLD_71", SDLK_WORLD_71 },
	{ "WORLD_72", SDLK_WORLD_72 },
	{ "WORLD_73", SDLK_WORLD_73 },
	{ "WORLD_74", SDLK_WORLD_74 },
	{ "WORLD_75", SDLK_WORLD_75 },
	{ "WORLD_76", SDLK_WORLD_76 },
	{ "WORLD_77", SDLK_WORLD_77 },
	{ "WORLD_78", SDLK_WORLD_78 },
	{ "WORLD_79", SDLK_WORLD_79 },
	{ "WORLD_80", SDLK_WORLD_80 },
	{ "WORLD_81", SDLK_WORLD_81 },
	{ "WORLD_82", SDLK_WORLD_82 },
	{ "WORLD_83", SDLK_WORLD_83 },
	{ "WORLD_84", SDLK_WORLD_84 },
	{ "WORLD_85", SDLK_WORLD_85 },
	{ "WORLD_86", SDLK_WORLD_86 },
	{ "WORLD_87", SDLK_WORLD_87 },
	{ "WORLD_88", SDLK_WORLD_88 },
	{ "WORLD_89", SDLK_WORLD_89 },
	{ "WORLD_90", SDLK_WORLD_90 },
	{ "WORLD_91", SDLK_WORLD_91 },
	{ "WORLD_92", SDLK_WORLD_92 },
	{ "WORLD_93", SDLK_WORLD_93 },
	{ "WORLD_94", SDLK_WORLD_94 },
	{ "WORLD_95", SDLK_WORLD_95 },
	{ "KP0", SDLK_KP0 },
	{ "KP1", SDLK_KP1 },
	{ "KP2", SDLK_KP2 },
	{ "KP3", SDLK_KP3 },
	{ "KP4", SDLK_KP4 },
	{ "KP5", SDLK_KP5 },
	{ "KP6", SDLK_KP6 },
	{ "KP7", SDLK_KP7 },
	{ "KP8", SDLK_KP8 },
	{ "KP9", SDLK_KP9 },
	{ "KP_PERIOD", SDLK_KP_PERIOD },
	{ "KP_DIVIDE", SDLK_KP_DIVIDE },
	{ "KP_MULTIPLY", SDLK_KP_MULTIPLY },
	{ "KP_MINUS", SDLK_KP_MINUS },
	{ "KP_PLUS", SDLK_KP_PLUS },
	{ "KP_ENTER", SDLK_KP_ENTER },
	{ "KP_EQUALS", SDLK_KP_EQUALS },
	{ "UP", SDLK_UP },
	{ "DOWN", SDLK_DOWN },
	{ "RIGHT", SDLK_RIGHT },
	{ "LEFT", SDLK_LEFT },
	{ "INSERT", SDLK_INSERT },
	{ "HOME", SDLK_HOME },
	{ "END", SDLK_END },
	{ "PAGEUP", SDLK_PAGEUP },
	{ "PAGEDOWN", SDLK_PAGEDOWN },
	{ "F1", SDLK_F1 },
	{ "F2", SDLK_F2 },
	{ "F3", SDLK_F3 },
	{ "F4", SDLK_F4 },
	{ "F5", SDLK_F5 },
	{ "F6", SDLK_F6 },
	{ "F7", SDLK_F7 },
	{ "F8", SDLK_F8 },
	{ "F9", SDLK_F9 },
	{ "F10", SDLK_F10 },
	{ "F11", SDLK_F11 },
	{ "F12", SDLK_F12 },
	{ "F13", SDLK_F13 },
	{ "F14", SDLK_F14 },
	{ "F15", SDLK_F15 },
	{ "NUMLOCK", SDLK_NUMLOCK },
	{ "CAPSLOCK", SDLK_CAPSLOCK },
	{ "SCROLLOCK", SDLK_SCROLLOCK },
	{ "RSHIFT", SDLK_RSHIFT },
	{ "LSHIFT", SDLK_LSHIFT },
	{ "RCTRL", SDLK_RCTRL },
	{ "LCTRL", SDLK_LCTRL },
	{ "RALT", SDLK_RALT },
	{ "LALT", SDLK_LALT },
	{ "RMETA", SDLK_RMETA },
	{ "LMETA", SDLK_LMETA },
	{ "LSUPER", SDLK_LSUPER },
	{ "RSUPER", SDLK_RSUPER },
	{ "MODE", SDLK_MODE },
	{ "COMPOSE", SDLK_COMPOSE },
	{ "HELP", SDLK_HELP },
	{ "PRINT", SDLK_PRINT },
	{ "SYSREQ", SDLK_SYSREQ },
	{ "BREAK", SDLK_BREAK },
	{ "MENU", SDLK_MENU },
	{ "POWER", SDLK_POWER },
	{ "EURO", SDLK_EURO },
	{ "UNDO", SDLK_UNDO },

hashtable struct__sdl_keys_by_name
hashtable *sdl_keys_by_name = &struct__sdl_keys_by_name
sdl_key *sdl_keys_by_code[SDLK_LAST]

sdl_keys_init()
	hashtable_init(sdl_keys_by_name)
	sdl_key *p
	sdl_key *sdl_keys_table_end = array_end(sdl_keys_table)
	for p = sdl_keys_table; p!=sdl_keys_table_end; ++p
		put(sdl_keys_by_name, p->name, p)
		sdl_keys_by_code[p->code] = p

SDLKey sdl_key_code_by_name(cstr name)
	sdl_key *k = get(sdl_keys_by_name, name)
	return k ? k->code : SDLK_UNKNOWN

cstr sdl_key_name_by_code(SDLKey code)
	if code < SDLK_LAST
		sdl_key *k = sdl_keys_by_code[code]
		if k
			return k->name
	return NULL

sdl_pre_exit:
#	if mix_open:
#		stop_music()
#		Mix_CloseAudio()
	gl_final()
	SDL_Quit()

#stop_music:
#	if Mix_PlayingMusic():
#		Mix_HaltMusic()
#	if music:
#		Mix_FreeMusic(music)

#play_music(cstr music_file):
#	music = Mix_LoadMUS(music_file)
#	Mix_PlayMusic(music, -1)
#	Mix_HookMusicFinished(music_done)

#music_done:
#	Mix_HaltMusic()
#	Mix_FreeMusic(music)
#	music = NULL