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

#include "network.h"

    12

    13

#ifdef UNIX

    14

#include <signal.h>

    15

    16

#ifdef __MORPHOS__

    17

	// The system supplied definition of SIG_DFL is wrong on MorphOS

    18

	#undef SIG_DFL

    19

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

    20

#endif

    21

#endif

    22

    23

#define DYNAMICALLY_LOADED_SDL

    24

    25

static SDL_Surface *_sdl_screen;

    26

static int _sdl_usage;

    27

static bool _all_modes;

    28

    29

#define MAX_DIRTY_RECTS 100

    30

static SDL_Rect _dirty_rects[MAX_DIRTY_RECTS];

    31

static int _num_dirty_rects;

    32

    33

#define SDL_CALL

    34

    35

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

    36

    37

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

    38

    39

typedef struct {

    40

	int (SDLCALL *SDL_Init)(Uint32);

    41

	int (SDLCALL *SDL_InitSubSystem)(Uint32);

    42

	char *(SDLCALL *SDL_GetError)();

    43

	void (SDLCALL *SDL_QuitSubSystem)(Uint32);

    44

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

    45

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

    46

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

    47

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

    48

	int (SDLCALL *SDL_ShowCursor)(int);

    49

	void (SDLCALL *SDL_FreeSurface)(SDL_Surface *);

    50

	int (SDLCALL *SDL_PollEvent)(SDL_Event *);

    51

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

    52

	uint32 (SDLCALL *SDL_GetTicks)();

    53

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

    54

	void (SDLCALL *SDL_PauseAudio)(int);

    55

	void (SDLCALL *SDL_CloseAudio)();

    56

	int (SDLCALL *SDL_LockSurface)(SDL_Surface*);

    57

	void (SDLCALL *SDL_UnlockSurface)(SDL_Surface*);

    58

	SDLMod (SDLCALL *SDL_GetModState)();

    59

	void (SDLCALL *SDL_Delay)(Uint32);

    60

	void (SDLCALL *SDL_Quit)();

    61

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

    62

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

    63

	void (SDLCALL *SDL_EnableUNICODE)(int);

    64

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

    65

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

    66

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

    67

} SDLProcs;

    68

    69

#define M(x) x "\0"

    70

static const char sdl_files[] =

    71

	M("sdl.dll")

    72

	M("SDL_Init")

    73

	M("SDL_InitSubSystem")

    74

	M("SDL_GetError")

    75

	M("SDL_QuitSubSystem")

    76

	M("SDL_UpdateRect")

    77

	M("SDL_UpdateRects")

    78

	M("SDL_SetColors")

    79

	M("SDL_WM_SetCaption")

    80

	M("SDL_ShowCursor")

    81

	M("SDL_FreeSurface")

    82

	M("SDL_PollEvent")

    83

	M("SDL_WarpMouse")

    84

	M("SDL_GetTicks")

    85

	M("SDL_OpenAudio")

    86

	M("SDL_PauseAudio")

    87

	M("SDL_CloseAudio")

    88

	M("SDL_LockSurface")

    89

	M("SDL_UnlockSurface")

    90

	M("SDL_GetModState")

    91

	M("SDL_Delay")

    92

	M("SDL_Quit")

    93

	M("SDL_SetVideoMode")

    94

	M("SDL_EnableKeyRepeat")

    95

	M("SDL_EnableUNICODE")

    96

	M("SDL_VideoDriverName")

    97

	M("SDL_ListModes")

    98

	M("SDL_GetKeyState")

    99

	M("")

   100

;

   101

#undef M

   102

   103

static SDLProcs _proc;

   104

   105

static char *LoadSdlDLL(void)

   106

{

   107

	if (_proc.SDL_Init != NULL)

   108

		return NULL;

   109

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

   110

		return "Unable to load sdl.dll";

   111

	return NULL;

   112

}

   113

   114

#undef SDL_CALL

   115

#define SDL_CALL _proc.

   116

   117

#endif

   118

   119

   120

#ifdef UNIX

   121

static void SdlAbort(int sig)

   122

{

   123

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

   124

	SDL_CALL SDL_Quit();

   125

   126

	switch (sig) {

   127

		case SIGSEGV:

   128

		case SIGFPE:

   129

			signal(sig, SIG_DFL);

   130

			raise(sig);

   131

			break;

   132

   133

		default:

   134

			break;

   135

	}

   136

}

   137

#endif

   138

   139

   140

static char *SdlOpen(uint32 x)

   141

{

   142

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

   143

	{

   144

		char *s = LoadSdlDLL();

   145

		if (s != NULL) return s;

   146

	}

   147

#endif

   148

	if (_sdl_usage++ == 0) {

   149

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

   150

			return SDL_CALL SDL_GetError();

   151

	} else if (x != 0) {

   152

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

   153

			return SDL_CALL SDL_GetError();

   154

	}

   155

   156

#ifdef UNIX

   157

	signal(SIGABRT, SdlAbort);

   158

	signal(SIGSEGV, SdlAbort);

   159

	signal(SIGFPE, SdlAbort);

   160

#endif

   161

   162

	return NULL;

   163

}

   164

   165

static void SdlClose(uint32 x)

   166

{

   167

	if (x != 0)

   168

		SDL_CALL SDL_QuitSubSystem(x);

   169

	if (--_sdl_usage == 0) {

   170

		SDL_CALL SDL_Quit();

   171

		#ifdef UNIX

   172

		signal(SIGABRT, SIG_DFL);

   173

		signal(SIGSEGV, SIG_DFL);

   174

		signal(SIGFPE, SIG_DFL);

   175

		#endif

   176

	}

   177

}

   178

   179

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

   180

{

   181

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

   182

//	_pixels_redrawn += width*height;

   183

	if (_num_dirty_rects < MAX_DIRTY_RECTS) {

   184

		_dirty_rects[_num_dirty_rects].x = left;

   185

		_dirty_rects[_num_dirty_rects].y = top;

   186

		_dirty_rects[_num_dirty_rects].w = width;

   187

		_dirty_rects[_num_dirty_rects].h = height;

   188

	}

   189

	_num_dirty_rects++;

   190

}

   191

   192

static SDL_Color pal[256];

   193

   194

static void UpdatePalette(uint start, uint end)

   195

{

   196

	uint i;

   197

	byte *b;

   198

   199

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

   200

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

   201

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

   202

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

   203

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

   204

	}

   205

   206

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

   207

}

   208

   209

static void InitPalette(void)

   210

{

   211

	UpdatePalette(0, 256);

   212

}

   213

   214

static void CheckPaletteAnim(void)

   215

{

   216

	if(_pal_last_dirty != -1) {

   217

		UpdatePalette(_pal_first_dirty, _pal_last_dirty + 1);

   218

		_pal_last_dirty = -1;

   219

	}

   220

}

   221

   222

static void DrawSurfaceToScreen(void)

   223

{

   224

	int n = _num_dirty_rects;

   225

	if (n != 0) {

   226

		_num_dirty_rects = 0;

   227

		if (n > MAX_DIRTY_RECTS)

   228

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

   229

		else

   230

			SDL_CALL SDL_UpdateRects(_sdl_screen, n, _dirty_rects);

   231

	}

   232

}

   233

   234

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

   235

{

   236

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

   237

	if (x != 0) return x;

   238

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

   239

}

   240

   241

static const uint16 default_resolutions[][2] = {

   242

	{ 640,  480},

   243

	{ 800,  600},

   244

	{1024,  768},

   245

	{1152,  864},

   246

	{1280,  960},

   247

	{1280, 1024},

   248

	{1400, 1050},

   249

	{1600, 1200}

   250

};

   251

   252

static void GetVideoModes(void)

   253

{

   254

	int i;

   255

	SDL_Rect **modes;

   256

   257

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

   258

   259

	if (modes == NULL)

   260

		error("sdl: no modes available");

   261

   262

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

   263

   264

	if (_all_modes) {

   265

		// all modes available, put some default ones here

   266

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

   267

		_num_resolutions = lengthof(default_resolutions);

   268

	} else {

   269

		int n = 0;

   270

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

   271

			int w = modes[i]->w;

   272

			int h = modes[i]->h;

   273

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

   274

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

   275

				int j;

   276

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

   277

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

   278

						break;

   279

				if (j == n) {

   280

					_resolutions[n][0] = w;

   281

					_resolutions[n][1] = h;

   282

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

   283

				}

   284

			}

   285

		}

   286

		_num_resolutions = n;

   287

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

   288

	}

   289

}

   290

   291

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

   292

{

   293

	int i;

   294

	int best;

   295

	uint delta;

   296

   297

	// all modes available?

   298

	if (_all_modes)

   299

		return 1;

   300

   301

	// is the wanted mode among the available modes?

   302

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

   303

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

   304

			return 1;

   305

	}

   306

   307

	// use the closest possible resolution

   308

	best = 0;

   309

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

   310

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

   311

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

   312

		if (newdelta < delta) {

   313

			best = i;

   314

			delta = newdelta;

   315

		}

   316

	}

   317

	*w = _resolutions[best][0];

   318

	*h = _resolutions[best][1];

   319

	return 2;

   320

}

   321

   322

static bool CreateMainSurface(int w, int h)

   323

{

   324

	SDL_Surface *newscreen;

   325

   326

	GetAvailableVideoMode(&w, &h);

   327

   328

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

   329

   330

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

   331

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

   332

	if (newscreen == NULL)

   333

		return false;

   334

   335

	_screen.width = newscreen->w;

   336

	_screen.height = newscreen->h;

   337

	_screen.pitch = newscreen->pitch;

   338

   339

	_sdl_screen = newscreen;

   340

	InitPalette();

   341

   342

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

   343

	SDL_CALL SDL_ShowCursor(0);

   344

   345

	GameSizeChanged();

   346

   347

	return true;

   348

}

   349

   350

typedef struct VkMapping {

   351

	uint16 vk_from;

   352

	byte vk_count;

   353

	byte map_to;

   354

} VkMapping;

   355

   356

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

   357

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

   358

   359

static const VkMapping _vk_mapping[] = {

   360

	// Pageup stuff + up/down

   361

	AM(SDLK_PAGEUP, SDLK_PAGEDOWN, WKC_PAGEUP, WKC_PAGEDOWN),

   362

	AS(SDLK_UP,			WKC_UP),

   363

	AS(SDLK_DOWN,		WKC_DOWN),

   364

	AS(SDLK_LEFT,		WKC_LEFT),

   365

	AS(SDLK_RIGHT,	WKC_RIGHT),

   366

   367

	AS(SDLK_HOME,		WKC_HOME),

   368

	AS(SDLK_END,		WKC_END),

   369

   370

	AS(SDLK_INSERT,	WKC_INSERT),

   371

	AS(SDLK_DELETE,	WKC_DELETE),

   372

   373

	// Map letters & digits

   374

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

   375

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

   376

   377

	AS(SDLK_ESCAPE,	WKC_ESC),

   378

	AS(SDLK_PAUSE,  WKC_PAUSE),

   379

	AS(SDLK_BACKSPACE,	WKC_BACKSPACE),

   380

   381

	AS(SDLK_SPACE,		WKC_SPACE),

   382

	AS(SDLK_RETURN,		WKC_RETURN),

   383

	AS(SDLK_TAB,			WKC_TAB),

   384

   385

	// Function keys

   386

	AM(SDLK_F1, SDLK_F12, WKC_F1, WKC_F12),

   387

   388

	// Numeric part.

   389

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

   390

	AM(SDLK_KP0, SDLK_KP9, WKC_NUM_0, WKC_NUM_9),

   391

	AS(SDLK_KP_DIVIDE,		WKC_NUM_DIV),

   392

	AS(SDLK_KP_MULTIPLY,	WKC_NUM_MUL),

   393

	AS(SDLK_KP_MINUS,			WKC_NUM_MINUS),

   394

	AS(SDLK_KP_PLUS,			WKC_NUM_PLUS),

   395

	AS(SDLK_KP_ENTER,			WKC_NUM_ENTER),

   396

	AS(SDLK_KP_PERIOD,		WKC_NUM_DECIMAL)

   397

};

   398

   399

static uint32 ConvertSdlKeyIntoMy(SDL_keysym *sym)

   400

{

   401

	const VkMapping	*map;

   402

	uint key = 0;

   403

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

   404

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

   405

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

   406

			break;

   407

		}

   408

	}

   409

   410

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

   411

#if defined(WIN32) || defined(__OS2__)

   412

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

   413

#elif defined(__APPLE__)

   414

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

   415

#elif defined(__MORPHOS__)

   416

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

   417

#elif defined(__BEOS__)

   418

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

   419

#elif defined(__SVR4) && defined(__sun)

   420

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

   421

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

   422

#else

   423

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

   424

#endif

   425

   426

	// META are the command keys on mac

   427

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

   428

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

   429

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

   430

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

   431

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

   432

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

   433

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

   434

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

   435

}

   436

   437

void DoExitSave();

   438

   439

static int PollEvent(void)

   440

{

   441

	SDL_Event ev;

   442

   443

	if (!SDL_CALL SDL_PollEvent(&ev))

   444

		return -2;

   445

   446

	switch (ev.type) {

   447

	case SDL_MOUSEMOTION:

   448

		if (_cursor.fix_at) {

   449

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

   450

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

   451

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

   452

				_cursor.delta.x += dx;

   453

				_cursor.delta.y += dy;

   454

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

   455

			}

   456

		} else {

   457

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

   458

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

   459

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

   460

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

   461

			_cursor.dirty = true;

   462

		}

   463

		break;

   464

   465

	case SDL_MOUSEBUTTONDOWN:

   466

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

   467

			ev.button.button = SDL_BUTTON_RIGHT;

   468

   469

		switch (ev.button.button) {

   470

			case SDL_BUTTON_LEFT:

   471

				_left_button_down = true;

   472

				break;

   473

			case SDL_BUTTON_RIGHT:

   474

				_right_button_down = true;

   475

				_right_button_clicked = true;

   476

				break;

   477

#if !defined(WIN32)

   478

			case SDL_BUTTON_WHEELUP:

   479

				_cursor.wheel--;

   480

				break;

   481

			case SDL_BUTTON_WHEELDOWN:

   482

				_cursor.wheel++;

   483

				break;

   484

#endif

   485

			default:

   486

				break;

   487

		}

   488

		break;

   489

   490

	case SDL_MOUSEBUTTONUP:

   491

		if (_rightclick_emulate) {

   492

			_right_button_down = false;

   493

			_left_button_down = false;

   494

			_left_button_clicked = false;

   495

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

   496

			_left_button_down = false;

   497

			_left_button_clicked = false;

   498

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

   499

			_right_button_down = false;

   500

		}

   501

		break;

   502

   503

	case SDL_QUIT:

   504

		// do not ask to quit on the main screen

   505

		if (_game_mode != GM_MENU) {

   506

			if(_patches.autosave_on_exit) {

   507

				DoExitSave();

   508

				return ML_QUIT;

   509

			} else