1

#include "stdafx.h"

     2

     3

#if defined(WITH_SDL)

     4

#include "ttd.h"

     5

#include "gfx.h"

     6

#include "sound.h"

     7

#include "window.h"

     8

#include <SDL.h>

     9

#include "player.h"

    10

#include "hal.h"

    11

    12

#ifdef UNIX

    13

#include <signal.h>

    14

    15

#ifdef __MORPHOS__

    18

	#define SIG_DFL (void (*)(int))0

    19

#endif

    20

#endif

    21

    22

#define DYNAMICALLY_LOADED_SDL

    23

    24

static SDL_Surface *_sdl_screen;

    25

static int _sdl_usage;

    26

static bool _all_modes;

    27

    28

#define MAX_DIRTY_RECTS 100

    29

static SDL_Rect _dirty_rects[MAX_DIRTY_RECTS];

    30

static int _num_dirty_rects;

    31

    32

#define SDL_CALL

    33

    34

#if defined(DYNAMICALLY_LOADED_SDL) && defined(WIN32)

    35

    36

bool LoadLibraryList(void **proc, const char *dll);

    37

    38

typedef struct {

    39

	int (SDLCALL *SDL_Init)(Uint32);

    40

	int (SDLCALL *SDL_InitSubSystem)(Uint32);

    41

	char *(SDLCALL *SDL_GetError)();

    42

	void (SDLCALL *SDL_QuitSubSystem)(Uint32);

    43

	void (SDLCALL *SDL_UpdateRect)(SDL_Surface *, Sint32, Sint32, Uint32, Uint32);

    44

	void (SDLCALL *SDL_UpdateRects)(SDL_Surface *, int, SDL_Rect *);

    45

	int (SDLCALL *SDL_SetColors)(SDL_Surface *, SDL_Color *, int, int);

    46

	void (SDLCALL *SDL_WM_SetCaption)(const char *, const char *);

    47

	int (SDLCALL *SDL_ShowCursor)(int);

    48

	void (SDLCALL *SDL_FreeSurface)(SDL_Surface *);

    49

	int (SDLCALL *SDL_PollEvent)(SDL_Event *);

    50

	void (SDLCALL *SDL_WarpMouse)(Uint16, Uint16);

    51

	uint32 (SDLCALL *SDL_GetTicks)();

    52

	int (SDLCALL *SDL_OpenAudio)(SDL_AudioSpec *, SDL_AudioSpec*);

    53

	void (SDLCALL *SDL_PauseAudio)(int);

    54

	void (SDLCALL *SDL_CloseAudio)();

    55

	int (SDLCALL *SDL_LockSurface)(SDL_Surface*);

    56

	void (SDLCALL *SDL_UnlockSurface)(SDL_Surface*);

    57

	SDLMod (SDLCALL *SDL_GetModState)();

    58

	void (SDLCALL *SDL_Delay)(Uint32);

    59

	void (SDLCALL *SDL_Quit)();

    60

	SDL_Surface *(SDLCALL *SDL_SetVideoMode)(int, int, int, Uint32);

    61

	int (SDLCALL *SDL_EnableKeyRepeat)(int, int);

    62

	void (SDLCALL *SDL_EnableUNICODE)(int);

    63

	void (SDLCALL *SDL_VideoDriverName)(char *, int);

    64

	SDL_Rect **(SDLCALL *SDL_ListModes)(void *, int);

    65

	Uint8 *(SDLCALL *SDL_GetKeyState)(int *);

    66

} SDLProcs;

    67

    68

#define M(x) x "\0"

    69

static const char sdl_files[] =

    70

	M("sdl.dll")

    71

	M("SDL_Init")

    72

	M("SDL_InitSubSystem")

    73

	M("SDL_GetError")

    74

	M("SDL_QuitSubSystem")

    75

	M("SDL_UpdateRect")

    76

	M("SDL_UpdateRects")

    77

	M("SDL_SetColors")

    78

	M("SDL_WM_SetCaption")

    79

	M("SDL_ShowCursor")

    80

	M("SDL_FreeSurface")

    81

	M("SDL_PollEvent")

    82

	M("SDL_WarpMouse")

    83

	M("SDL_GetTicks")

    84

	M("SDL_OpenAudio")

    85

	M("SDL_PauseAudio")

    86

	M("SDL_CloseAudio")

    87

	M("SDL_LockSurface")

    88

	M("SDL_UnlockSurface")

    89

	M("SDL_GetModState")

    90

	M("SDL_Delay")

    91

	M("SDL_Quit")

    92

	M("SDL_SetVideoMode")

    93

	M("SDL_EnableKeyRepeat")

    94

	M("SDL_EnableUNICODE")

    95

	M("SDL_VideoDriverName")

    96

	M("SDL_ListModes")

    97

	M("SDL_GetKeyState")

    98

	M("")

    99

;

   100

#undef M

   101

   102

static SDLProcs _proc;

   103

   104

static char *LoadSdlDLL(void)

   105

{

   106

	if (_proc.SDL_Init != NULL)

   107

		return NULL;

   108

	if (!LoadLibraryList((void**)&_proc, sdl_files))

   109

		return "Unable to load sdl.dll";

   110

	return NULL;

   111

}

   112

   113

#undef SDL_CALL

   114

#define SDL_CALL _proc.

   115

   116

#endif

   117

   118

   119

#ifdef UNIX

   120

static void SdlAbort(int sig)

   121

{

   122

	/* Own hand-made parachute for the cases of failed assertions. */

   123

	SDL_CALL SDL_Quit();

   124

   125

	switch (sig) {

   126

		case SIGSEGV:

   127

		case SIGFPE:

   128

			signal(sig, SIG_DFL);

   129

			raise(sig);

   130

			break;

   131

   132

		default:

   133

			break;

   134

	}

   135

}

   136

#endif

   137

   138

   139

static char *SdlOpen(uint32 x)

   140

{

   141

#if defined(DYNAMICALLY_LOADED_SDL) && defined(WIN32)

   142

	{

   143

		char *s = LoadSdlDLL();

   144

		if (s != NULL) return s;

   145

	}

   146

#endif

   147

	if (_sdl_usage++ == 0) {

   148

		if (SDL_CALL SDL_Init(x) == -1)

   149

			return SDL_CALL SDL_GetError();

   150

	} else if (x != 0) {

   151

		if (SDL_CALL SDL_InitSubSystem(x) == -1)

   152

			return SDL_CALL SDL_GetError();

   153

	}

   154

   155

#ifdef UNIX

   156

	signal(SIGABRT, SdlAbort);

   157

	signal(SIGSEGV, SdlAbort);

   158

	signal(SIGFPE, SdlAbort);

   159

#endif

   160

   161

	return NULL;

   162

}

   163

   164

static void SdlClose(uint32 x)

   165

{

   166

	if (x != 0)

   167

		SDL_CALL SDL_QuitSubSystem(x);

   168

	if (--_sdl_usage == 0) {

   169

		SDL_CALL SDL_Quit();

   170

		#ifdef UNIX

   171

		signal(SIGABRT, SIG_DFL);

   172

		signal(SIGSEGV, SIG_DFL);

   173

		signal(SIGFPE, SIG_DFL);

   174

		#endif

   175

	}

   176

}

   177

   178

static void SdlVideoMakeDirty(int left, int top, int width, int height)

   179

{

   180

//	printf("(%d,%d)-(%d,%d)\n", left, top, width, height);

   181

//	_pixels_redrawn += width*height;

   182

	if (_num_dirty_rects < MAX_DIRTY_RECTS) {

   183

		_dirty_rects[_num_dirty_rects].x = left;

   184

		_dirty_rects[_num_dirty_rects].y = top;

   185

		_dirty_rects[_num_dirty_rects].w = width;

   186

		_dirty_rects[_num_dirty_rects].h = height;

   187

	}

   188

	_num_dirty_rects++;

   189

}

   190

   191

static SDL_Color pal[256];

   192

   193

static void UpdatePalette(uint start, uint end)

   194

{

   195

	uint i;

   196

	byte *b;

   197

   198

	for (i = start, b = _cur_palette + start * 3; i != end; i++, b += 3) {

   199

		pal[i].r = b[0];

   200

		pal[i].g = b[1];

   201

		pal[i].b = b[2];

   202

		pal[i].unused = b[3];

   203

	}

   204

   205

	SDL_CALL SDL_SetColors(_sdl_screen, pal, start, end);

   206

}

   207

   208

static void InitPalette(void)

   209

{

   210

	UpdatePalette(0, 256);

   211

}

   212

   213

static void CheckPaletteAnim(void)

   214

{

   215

	if(_pal_last_dirty != -1) {

   216

		UpdatePalette(_pal_first_dirty, _pal_last_dirty + 1);

   217

		_pal_last_dirty = -1;

   218

	}

   219

}

   220

   221

static void DrawSurfaceToScreen(void)

   222

{

   223

	int n = _num_dirty_rects;

   224

	if (n != 0) {

   225

		_num_dirty_rects = 0;

   226

		if (n > MAX_DIRTY_RECTS)

   227

			SDL_CALL SDL_UpdateRect(_sdl_screen, 0, 0, 0, 0);

   228

		else

   229

			SDL_CALL SDL_UpdateRects(_sdl_screen, n, _dirty_rects);

   230

	}

   231

}

   232

   233

static int CDECL compare_res(const void *pa, const void *pb)

   234

{

   235

	int x = ((const uint16*)pa)[0] - ((const uint16*)pb)[0];

   236

	if (x != 0) return x;

   237

	return ((const uint16*)pa)[1] - ((const uint16*)pb)[1];

   238

}

   239

   240

static const uint16 default_resolutions[][2] = {

   241

	{ 640,  480},

   242

	{ 800,  600},

   243

	{1024,  768},

   244

	{1152,  864},

   245

	{1280,  960},

   246

	{1280, 1024},

   247

	{1400, 1050},

   248

	{1600, 1200}

   249

};

   250

   251

static void GetVideoModes(void)

   252

{

   253

	int i;

   254

	SDL_Rect **modes;

   255

   256

	modes = SDL_CALL SDL_ListModes(NULL, SDL_SWSURFACE + (_fullscreen ? SDL_FULLSCREEN : 0));

   257

   258

	if (modes == NULL)

   259

		error("sdl: no modes available");

   260

   261

	_all_modes = (modes == (void*)-1);

   262

   263

	if (_all_modes) {

   264

		// all modes available, put some default ones here

   265

		memcpy(_resolutions, default_resolutions, sizeof(default_resolutions));

   266

		_num_resolutions = lengthof(default_resolutions);

   267

	} else {

   268

		int n = 0;

   269

		for (i = 0; modes[i]; i++) {

   270

			int w = modes[i]->w;

   271

			int h = modes[i]->h;

   272

			if (IS_INT_INSIDE(w, 640, MAX_SCREEN_WIDTH + 1) &&

   273

					IS_INT_INSIDE(h, 480, MAX_SCREEN_HEIGHT + 1)) {

   274

				int j;

   275

				for (j = 0; j < n; ++j)

   276

					if (_resolutions[j][0] == w && _resolutions[j][1] == h)

   277

						break;

   278

				if (j == n) {

   279

					_resolutions[n][0] = w;

   280

					_resolutions[n][1] = h;

   281

					if (++n == lengthof(_resolutions)) break;

   282

				}

   283

			}

   284

		}

   285

		_num_resolutions = n;

   286

		qsort(_resolutions, n, sizeof(_resolutions[0]), compare_res);

   287

	}

   288

}

   289

   290

static int GetAvailableVideoMode(int *w, int *h)

   291

{

   292

	int i;

   293

	int best;

   294

	uint delta;

   295

   296

	// all modes available?

   297

	if (_all_modes)

   298

		return 1;

   299

   300

	// is the wanted mode among the available modes?

   301

	for (i = 0; i != _num_resolutions; i++) {

   302

		if(*w == _resolutions[i][0] && *h == _resolutions[i][1])

   303

			return 1;

   304

	}

   305

   306

	// use the closest possible resolution

   307

	best = 0;

   308

	delta = abs((_resolutions[0][0] - *w) * (_resolutions[0][1] - *h));

   309

	for (i = 1; i != _num_resolutions; ++i) {

   310

		uint newdelta = abs((_resolutions[i][0] - *w) * (_resolutions[i][1] - *h));

   311

		if (newdelta < delta) {

   312

			best = i;

   313

			delta = newdelta;

   314

		}

   315

	}

   316

	*w = _resolutions[best][0];

   317

	*h = _resolutions[best][1];

   318

	return 2;

   319

}

   320

   321

static bool CreateMainSurface(int w, int h)

   322

{

   323

	SDL_Surface *newscreen;

   324

   325

	GetAvailableVideoMode(&w, &h);

   326

   327

	DEBUG(misc, 0) ("sdl: using mode %dx%d", w, h);

   328

   329

	// DO NOT CHANGE TO HWSURFACE, IT DOES NOT WORK

   330

	newscreen = SDL_CALL SDL_SetVideoMode(w, h, 8, SDL_SWSURFACE | SDL_HWPALETTE | (_fullscreen ? SDL_FULLSCREEN : SDL_RESIZABLE));

   331

	if (newscreen == NULL)

   332

		return false;

   333

   334

	_screen.width = newscreen->w;

   335

	_screen.height = newscreen->h;

   336

	_screen.pitch = newscreen->pitch;

   337

   338

	_sdl_screen = newscreen;

   339

	InitPalette();

   340

   341

	SDL_CALL SDL_WM_SetCaption("OpenTTD", "OpenTTD");

   342

	SDL_CALL SDL_ShowCursor(0);

   343

   344

	GameSizeChanged();

   345

   346

	return true;

   347

}

   348

   349

typedef struct VkMapping {

   350

	uint16 vk_from;

   351

	byte vk_count;

   352

	byte map_to;

   353

} VkMapping;

   354

   355

#define AS(x, z) {x, 0, z}

   356

#define AM(x, y, z, w) {x, y - x, z}

   357

   358

static const VkMapping _vk_mapping[] = {

   359

	// Pageup stuff + up/down

   360

	AM(SDLK_PAGEUP, SDLK_PAGEDOWN, WKC_PAGEUP, WKC_PAGEDOWN),

   361

	AS(SDLK_UP,			WKC_UP),

   362

	AS(SDLK_DOWN,		WKC_DOWN),

   363

	AS(SDLK_LEFT,		WKC_LEFT),

   364

	AS(SDLK_RIGHT,	WKC_RIGHT),

   365

   366

	AS(SDLK_HOME,		WKC_HOME),

   367

	AS(SDLK_END,		WKC_END),

   368

   369

	AS(SDLK_INSERT,	WKC_INSERT),

   370

	AS(SDLK_DELETE,	WKC_DELETE),

   371

   372

	// Map letters & digits

   373

	AM(SDLK_a, SDLK_z, 'A', 'Z'),

   374

	AM(SDLK_0, SDLK_9, '0', '9'),

   375

   376

	AS(SDLK_ESCAPE,	WKC_ESC),

   377

	AS(SDLK_PAUSE,  WKC_PAUSE),

   378

	AS(SDLK_BACKSPACE,	WKC_BACKSPACE),

   379

   380

	AS(SDLK_SPACE,		WKC_SPACE),

   381

	AS(SDLK_RETURN,		WKC_RETURN),

   382

	AS(SDLK_TAB,			WKC_TAB),

   383

   384

	// Function keys

   385

	AM(SDLK_F1, SDLK_F12, WKC_F1, WKC_F12),

   386

   387

	// Numeric part.

   388

	// What is the virtual keycode for numeric enter??

   389

	AM(SDLK_KP0, SDLK_KP9, WKC_NUM_0, WKC_NUM_9),

   390

	AS(SDLK_KP_DIVIDE,		WKC_NUM_DIV),

   391

	AS(SDLK_KP_MULTIPLY,	WKC_NUM_MUL),

   392

	AS(SDLK_KP_MINUS,			WKC_NUM_MINUS),

   393

	AS(SDLK_KP_PLUS,			WKC_NUM_PLUS),

   394

	AS(SDLK_KP_ENTER,			WKC_NUM_ENTER),

   395

	AS(SDLK_KP_PERIOD,		WKC_NUM_DECIMAL)

   396

};

   397

   398

static uint32 ConvertSdlKeyIntoMy(SDL_keysym *sym)

   399

{

   400

	const VkMapping	*map;

   401

	uint key = 0;

   402

	for (map = _vk_mapping; map != endof(_vk_mapping); ++map) {

   403

		if ((uint)(sym->sym - map->vk_from) <= map->vk_count) {

   404

			key = sym->sym - map->vk_from + map->map_to;

   405

			break;

   406

		}

   407

	}

   408

   409

	// check scancode for BACKQUOTE key, because we want the key left of "1", not anything else (on non-US keyboards)

   410

#if defined(WIN32)

   411

	if (sym->scancode == 41) key |= WKC_BACKQUOTE;

   412

#elif defined(__APPLE__)

   413

	if (sym->scancode == 10) key |= WKC_BACKQUOTE;

   414

#elif defined(__MORPHOS__)

   415

	if (sym->scancode == 0)  key |= WKC_BACKQUOTE;  // yes, that key is code '0' under MorphOS :)

   416

#elif defined(__BEOS__)

   417

	if (sym->scancode == 17)  key |= WKC_BACKQUOTE;

   418

#else

   419

	if (sym->scancode == 49) key |= WKC_BACKQUOTE;

   420

#endif

   421

	// META are the command keys on mac

   422

	if (sym->mod & KMOD_META) key |= WKC_META;

   423

	if (sym->mod & KMOD_SHIFT) key |= WKC_SHIFT;

   424

	if (sym->mod & KMOD_CTRL) key |= WKC_CTRL;

   425

	if (sym->mod & KMOD_ALT) key |= WKC_ALT;

   426

	// these two lines really help porting hotkey combos. Uncomment to use -- Bjarni

   427

	//printf("scancode character pressed %d\n", sym->scancode);

   428

	//printf("unicode character pressed %d\n", sym->unicode);

   429

	return (key << 16) + sym->unicode;

   430

}

   431

   432

static int PollEvent(void)

   433

{

   434

	SDL_Event ev;

   435

   436

	if (!SDL_CALL SDL_PollEvent(&ev))

   437

		return -2;

   438

   439

	switch (ev.type) {

   440

	case SDL_MOUSEMOTION:

   441

		if (_cursor.fix_at) {

   442

			int dx = ev.motion.x - _cursor.pos.x;

   443

			int dy = ev.motion.y - _cursor.pos.y;

   444

			if (dx != 0 || dy != 0) {

   445

				_cursor.delta.x += dx;

   446

				_cursor.delta.y += dy;

   447

				SDL_CALL SDL_WarpMouse(_cursor.pos.x, _cursor.pos.y);

   448

			}

   449

		} else {

   450

			_cursor.delta.x = ev.motion.x - _cursor.pos.x;

   451

			_cursor.delta.y = ev.motion.y - _cursor.pos.y;

   452

			_cursor.pos.x = ev.motion.x;

   453

			_cursor.pos.y = ev.motion.y;

   454

			_cursor.dirty = true;

   455

		}

   456

		break;

   457

   458

	case SDL_MOUSEBUTTONDOWN:

   459

		if (_rightclick_emulate && (SDL_CALL SDL_GetModState() & (KMOD_LCTRL | KMOD_RCTRL)))

   460

			ev.button.button = SDL_BUTTON_RIGHT;

   461

   462

		switch (ev.button.button) {

   463

			case SDL_BUTTON_LEFT:

   464

				_left_button_down = true;

   465

				break;

   466

			case SDL_BUTTON_RIGHT:

   467

				_right_button_down = true;

   468

				_right_button_clicked = true;

   469

				break;

   470

#if !defined(WIN32)

   471

			case SDL_BUTTON_WHEELUP:

   472

				_cursor.wheel--;

   473

				break;

   474

			case SDL_BUTTON_WHEELDOWN:

   475

				_cursor.wheel++;

   476

				break;

   477

#endif

   478

			default:

   479

				break;

   480

		}

   481

		break;

   482

   483

	case SDL_MOUSEBUTTONUP:

   484

		if (_rightclick_emulate) {

   485

			_right_button_down = false;

   486

			_left_button_down = false;

   487

			_left_button_clicked = false;

   488

		} else if (ev.button.button == SDL_BUTTON_LEFT) {

   489

			_left_button_down = false;

   490

			_left_button_clicked = false;

   491

		} else if (ev.button.button == SDL_BUTTON_RIGHT) {

   492

			_right_button_down = false;

   493

		}

   494

		break;

   495

   496

	case SDL_QUIT:

   497

		// do not ask to quit on the main screen

   498

		if (_game_mode != GM_MENU)

   499

			AskExitGame();

   500

		else

   501

			return ML_QUIT;

   502

		break;

   503

   504

	case SDL_KEYDOWN:

   505

		if ((ev.key.keysym.mod & (KMOD_ALT | KMOD_META)) &&

   506

				(ev.key.keysym.sym == SDLK_RETURN || ev.key.keysym.sym == SDLK_f)) {

   507

			_fullscreen ^= true;

   508

			GetVideoModes();

   509

			CreateMainSurface(_screen.width, _screen.height);

   510

			MarkWholeScreenDirty();