1

#include "stdafx.h"

     2

     3

#if defined(WITH_SDL)

     4

#include "ttd.h"

     5

#include "debug.h"

     6

#include "gfx.h"

     7

#include "mixer.h"

     8

#include "window.h"

     9

#include <SDL.h>

    10

#include "player.h"

    11

#include "hal.h"

    12

#include "network.h"

    13

    14

#ifdef UNIX

    15

#include <signal.h>

    16

    17

#ifdef __MORPHOS__

    18

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

    19

	#undef SIG_DFL

    20

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

    21

#endif

    22

#endif

    23

    24

#define DYNAMICALLY_LOADED_SDL

    25

    26

static SDL_Surface *_sdl_screen;

    27

static int _sdl_usage;

    28

static bool _all_modes;

    29

    30

#define MAX_DIRTY_RECTS 100

    31

static SDL_Rect _dirty_rects[MAX_DIRTY_RECTS];

    32

static int _num_dirty_rects;

    33

    34

#define SDL_CALL

    35

    36

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

    37

    38

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

    39

    40

typedef struct {

    41

	int (SDLCALL *SDL_Init)(Uint32);

    42

	int (SDLCALL *SDL_InitSubSystem)(Uint32);

    43

	char *(SDLCALL *SDL_GetError)();

    44

	void (SDLCALL *SDL_QuitSubSystem)(Uint32);

    45

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

    46

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

    47

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

    48

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

    49

	int (SDLCALL *SDL_ShowCursor)(int);

    50

	void (SDLCALL *SDL_FreeSurface)(SDL_Surface *);

    51

	int (SDLCALL *SDL_PollEvent)(SDL_Event *);

    52

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

    53

	uint32 (SDLCALL *SDL_GetTicks)();

    54

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

    55

	void (SDLCALL *SDL_PauseAudio)(int);

    56

	void (SDLCALL *SDL_CloseAudio)();

    57

	int (SDLCALL *SDL_LockSurface)(SDL_Surface*);

    58

	void (SDLCALL *SDL_UnlockSurface)(SDL_Surface*);

    59

	SDLMod (SDLCALL *SDL_GetModState)();

    60

	void (SDLCALL *SDL_Delay)(Uint32);

    61

	void (SDLCALL *SDL_Quit)();

    62

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

    63

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

    64

	void (SDLCALL *SDL_EnableUNICODE)(int);

    65

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

    66

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

    67

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

    68

} SDLProcs;

    69

    70

#define M(x) x "\0"

    71

static const char sdl_files[] =

    72

	M("sdl.dll")

    73

	M("SDL_Init")

    74

	M("SDL_InitSubSystem")

    75

	M("SDL_GetError")

    76

	M("SDL_QuitSubSystem")

    77

	M("SDL_UpdateRect")

    78

	M("SDL_UpdateRects")

    79

	M("SDL_SetColors")

    80

	M("SDL_WM_SetCaption")

    81

	M("SDL_ShowCursor")

    82

	M("SDL_FreeSurface")

    83

	M("SDL_PollEvent")

    84

	M("SDL_WarpMouse")

    85

	M("SDL_GetTicks")

    86

	M("SDL_OpenAudio")

    87

	M("SDL_PauseAudio")

    88

	M("SDL_CloseAudio")

    89

	M("SDL_LockSurface")

    90

	M("SDL_UnlockSurface")

    91

	M("SDL_GetModState")

    92

	M("SDL_Delay")

    93

	M("SDL_Quit")

    94

	M("SDL_SetVideoMode")

    95

	M("SDL_EnableKeyRepeat")

    96

	M("SDL_EnableUNICODE")

    97

	M("SDL_VideoDriverName")

    98

	M("SDL_ListModes")

    99

	M("SDL_GetKeyState")

   100

	M("")

   101

;

   102

#undef M

   103

   104

static SDLProcs _proc;

   105

   106

static const char *LoadSdlDLL(void)

   107

{

   108

	if (_proc.SDL_Init != NULL)

   109

		return NULL;

   110

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

   111

		return "Unable to load sdl.dll";

   112

	return NULL;

   113

}

   114

   115

#undef SDL_CALL

   116

#define SDL_CALL _proc.

   117

   118

#endif

   119

   120

   121

#ifdef UNIX

   122

static void SdlAbort(int sig)

   123

{

   124

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

   125

	SDL_CALL SDL_Quit();

   126

   127

	switch (sig) {

   128

		case SIGSEGV:

   129

		case SIGFPE:

   130

			signal(sig, SIG_DFL);

   131

			raise(sig);

   132

			break;

   133

   134

		default:

   135

			break;

   136

	}

   137

}

   138

#endif

   139

   140

   141

static const char *SdlOpen(uint32 x)

   142

{

   143

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

   144

	{

   145

		const char *s = LoadSdlDLL();

   146

		if (s != NULL) return s;

   147

	}

   148

#endif

   149

	if (_sdl_usage++ == 0) {

   150

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

   151

			return SDL_CALL SDL_GetError();

   152

	} else if (x != 0) {

   153

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

   154

			return SDL_CALL SDL_GetError();

   155

	}

   156

   157

#ifdef UNIX

   158

	signal(SIGABRT, SdlAbort);

   159

	signal(SIGSEGV, SdlAbort);

   160

	signal(SIGFPE, SdlAbort);

   161

#endif

   162

   163

	return NULL;

   164

}

   165

   166

static void SdlClose(uint32 x)

   167

{

   168

	if (x != 0)

   169

		SDL_CALL SDL_QuitSubSystem(x);

   170

	if (--_sdl_usage == 0) {

   171

		SDL_CALL SDL_Quit();

   172

		#ifdef UNIX

   173

		signal(SIGABRT, SIG_DFL);

   174

		signal(SIGSEGV, SIG_DFL);

   175

		signal(SIGFPE, SIG_DFL);

   176

		#endif

   177

	}

   178

}

   179

   180

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

   181

{

   182

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

   183

//	_pixels_redrawn += width*height;

   184

	if (_num_dirty_rects < MAX_DIRTY_RECTS) {

   185

		_dirty_rects[_num_dirty_rects].x = left;

   186

		_dirty_rects[_num_dirty_rects].y = top;

   187

		_dirty_rects[_num_dirty_rects].w = width;

   188

		_dirty_rects[_num_dirty_rects].h = height;

   189

	}

   190

	_num_dirty_rects++;

   191

}

   192

   193

static SDL_Color pal[256];

   194

   195

static void UpdatePalette(uint start, uint end)

   196

{

   197

	uint i;

   198

	byte *b;

   199

   200

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

   201

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

   202

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

   203

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

   204

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

   205

	}

   206

   207

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

   208

}

   209

   210

static void InitPalette(void)

   211

{

   212

	UpdatePalette(0, 256);

   213

}

   214

   215

static void CheckPaletteAnim(void)

   216

{

   217

	if(_pal_last_dirty != -1) {

   218

		UpdatePalette(_pal_first_dirty, _pal_last_dirty + 1);

   219

		_pal_last_dirty = -1;

   220

	}

   221

}

   222

   223

static void DrawSurfaceToScreen(void)

   224

{

   225

	int n = _num_dirty_rects;

   226

	if (n != 0) {

   227

		_num_dirty_rects = 0;

   228

		if (n > MAX_DIRTY_RECTS)

   229

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

   230

		else

   231

			SDL_CALL SDL_UpdateRects(_sdl_screen, n, _dirty_rects);

   232

	}

   233

}

   234

   235

static const uint16 default_resolutions[][2] = {

   236

	{ 640,  480},

   237

	{ 800,  600},

   238

	{1024,  768},

   239

	{1152,  864},

   240

	{1280,  800},

   241

	{1280,  960},

   242

	{1280, 1024},

   243

	{1400, 1050},

   244

	{1600, 1200},

   245

	{1680, 1050},

   246

	{1920, 1200}

   247

};

   248

   249

static void GetVideoModes(void)

   250

{

   251

	int i;

   252

	SDL_Rect **modes;

   253

   254

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

   255

   256

	if (modes == NULL)

   257

		error("sdl: no modes available");

   258

   259

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

   260

   261

	if (_all_modes) {

   262

		// all modes available, put some default ones here

   263

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

   264

		_num_resolutions = lengthof(default_resolutions);

   265

	} else {

   266

		int n = 0;

   267

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

   268

			int w = modes[i]->w;

   269

			int h = modes[i]->h;

   270

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

   271

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

   272

				int j;

   273

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

   274

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

   275

				}

   276

   277

				if (j == n) {

   278

					_resolutions[j][0] = w;

   279

					_resolutions[j][1] = h;

   280

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

   281

				}

   282

			}

   283

		}

   284

		_num_resolutions = n;

   285

		SortResolutions(_num_resolutions);

   286

	}

   287

}

   288

   289

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

   290

{

   291

	int i;

   292

	int best;

   293

	uint delta;

   294

   295

	// all modes available?

   296

	if (_all_modes)

   297

		return 1;

   298

   299

	// is the wanted mode among the available modes?

   300

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

   301

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

   302

			return 1;

   303

	}

   304

   305

	// use the closest possible resolution

   306

	best = 0;

   307

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

   308

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

   309

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

   310

		if (newdelta < delta) {

   311

			best = i;

   312

			delta = newdelta;

   313

		}

   314

	}

   315

	*w = _resolutions[best][0];

   316

	*h = _resolutions[best][1];

   317

	return 2;

   318

}

   319

   320

extern const char _openttd_revision[];

   321

   322

static bool CreateMainSurface(int w, int h)

   323

{

   324

	SDL_Surface *newscreen;

   325

	char caption[50];

   326

   327

	GetAvailableVideoMode(&w, &h);

   328

   329

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

   330

   331

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

   332

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

   333

	if (newscreen == NULL)

   334

		return false;

   335

   336

	_screen.width = newscreen->w;

   337

	_screen.height = newscreen->h;

   338

	_screen.pitch = newscreen->pitch;

   339

   340

	_sdl_screen = newscreen;

   341

	InitPalette();

   342

   343

	snprintf(caption, sizeof(caption), "OpenTTD %s", _openttd_revision);

   344

	SDL_CALL SDL_WM_SetCaption(caption, caption);

   345

	SDL_CALL SDL_ShowCursor(0);

   346

   347

	GameSizeChanged();

   348

   349

	return true;

   350

}

   351

   352

typedef struct VkMapping {

   353

	uint16 vk_from;

   354

	byte vk_count;

   355

	byte map_to;

   356

} VkMapping;

   357

   358

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

   359

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

   360

   361

static const VkMapping _vk_mapping[] = {

   362

	// Pageup stuff + up/down

   363

	AM(SDLK_PAGEUP, SDLK_PAGEDOWN, WKC_PAGEUP, WKC_PAGEDOWN),

   364

	AS(SDLK_UP,			WKC_UP),

   365

	AS(SDLK_DOWN,		WKC_DOWN),

   366

	AS(SDLK_LEFT,		WKC_LEFT),

   367

	AS(SDLK_RIGHT,	WKC_RIGHT),

   368

   369

	AS(SDLK_HOME,		WKC_HOME),

   370

	AS(SDLK_END,		WKC_END),

   371

   372

	AS(SDLK_INSERT,	WKC_INSERT),

   373

	AS(SDLK_DELETE,	WKC_DELETE),

   374

   375

	// Map letters & digits

   376

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

   377

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

   378

   379

	AS(SDLK_ESCAPE,	WKC_ESC),

   380

	AS(SDLK_PAUSE,  WKC_PAUSE),

   381

	AS(SDLK_BACKSPACE,	WKC_BACKSPACE),

   382

   383

	AS(SDLK_SPACE,		WKC_SPACE),

   384

	AS(SDLK_RETURN,		WKC_RETURN),

   385

	AS(SDLK_TAB,			WKC_TAB),

   386

   387

	// Function keys

   388

	AM(SDLK_F1, SDLK_F12, WKC_F1, WKC_F12),

   389

   390

	// Numeric part.

   391

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

   392

	AM(SDLK_KP0, SDLK_KP9, WKC_NUM_0, WKC_NUM_9),

   393

	AS(SDLK_KP_DIVIDE,		WKC_NUM_DIV),

   394

	AS(SDLK_KP_MULTIPLY,	WKC_NUM_MUL),

   395

	AS(SDLK_KP_MINUS,			WKC_NUM_MINUS),

   396

	AS(SDLK_KP_PLUS,			WKC_NUM_PLUS),

   397

	AS(SDLK_KP_ENTER,			WKC_NUM_ENTER),

   398

	AS(SDLK_KP_PERIOD,		WKC_NUM_DECIMAL)

   399

};

   400

   401

static uint32 ConvertSdlKeyIntoMy(SDL_keysym *sym)

   402

{

   403

	const VkMapping	*map;

   404

	uint key = 0;

   405

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

   406

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

   407

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

   408

			break;

   409

		}

   410

	}

   411

   412

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

   413

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

   414

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

   415

#elif defined(__APPLE__)

   416

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

   417

#elif defined(__MORPHOS__)

   418

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

   419

#elif defined(__BEOS__)

   420

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

   421

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

   422

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

   423

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

   424

#elif defined(__sgi__)

   425

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

   426

#else

   427

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

   428

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

   429

#endif

   430

   431

	// META are the command keys on mac

   432

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

   433

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

   434

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

   435

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

   436

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

   437

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

   438

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

   439

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

   440

}

   441

   443

   444

static int PollEvent(void)

   445

{

   446

	SDL_Event ev;

   447

   448

	if (!SDL_CALL SDL_PollEvent(&ev))

   449

		return -2;

   450

   451

	switch (ev.type) {

   452

	case SDL_MOUSEMOTION:

   453

		if (_cursor.fix_at) {

   454

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

   455

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

   456

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

   457

				_cursor.delta.x += dx;

   458

				_cursor.delta.y += dy;

   459

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

   460

			}

   461

		} else {

   462

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

   463

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

   464

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

   465

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

   466

			_cursor.dirty = true;

   467

		}

   468

		break;

   469

   470

	case SDL_MOUSEBUTTONDOWN:

   471

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

   472

			ev.button.button = SDL_BUTTON_RIGHT;

   473

   474

		switch (ev.button.button) {

   475

			case SDL_BUTTON_LEFT:

   476

				_left_button_down = true;

   477

				break;

   478

			case SDL_BUTTON_RIGHT:

   479

				_right_button_down = true;

   480

				_right_button_clicked = true;

   481

				break;

   482

			case SDL_BUTTON_WHEELUP:

   483

				_cursor.wheel--;

   484

				break;

   485

			case SDL_BUTTON_WHEELDOWN:

   486

				_cursor.wheel++;

   487

				break;

   488

			default:

   489

				break;

   490

		}

   491

		break;

   492

   493

	case SDL_MOUSEBUTTONUP:

   494

		if (_rightclick_emulate) {

   495

			_right_button_down = false;

   496

			_left_button_down = false;

   497

			_left_button_clicked = false;

   498

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

   499

			_left_button_down = false;

   500

			_left_button_clicked = false;

   501

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

   502

			_right_button_down = false;

   503

		}

   504

		break;

   505

   506

	case SDL_QUIT:

   507

		// do not ask to quit on the main screen

   508