1

#include "stdafx.h"

     2

     3

#if defined(WITH_SDL)

     4

#include "ttd.h"

     5

#include "debug.h"

     6

#include "gfx.h"

     7

#include "sound.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

   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

   142

{

   143

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

   144

	{

   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 int CDECL compare_res(const void *pa, const void *pb)

   236

{

   237

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

   238

	if (x != 0) return x;

   239

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

   240

}

   241

   242

static const uint16 default_resolutions[][2] = {

   243

	{ 640,  480},

   244

	{ 800,  600},

   245

	{1024,  768},

   246

	{1152,  864},

   247

	{1280,  800},

   248

	{1280,  960},

   249

	{1280, 1024},

   250

	{1400, 1050},

   251

	{1600, 1200},

   252

	{1680, 1050},

   253

	{1920, 1200}

   254

};

   255

   256

static void GetVideoModes(void)

   257

{

   258

	int i;

   259

	SDL_Rect **modes;

   260

   261

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

   262

   263

	if (modes == NULL)

   264

		error("sdl: no modes available");

   265

   266

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

   267

   268

	if (_all_modes) {

   269

		// all modes available, put some default ones here

   270

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

   271

		_num_resolutions = lengthof(default_resolutions);

   272

	} else {

   273

		int n = 0;

   274

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

   275

			int w = modes[i]->w;

   276

			int h = modes[i]->h;

   277

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

   278

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

   279

				int j;

   280

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

   281

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

   282

						break;

   283

				if (j == n) {

   284

					_resolutions[n][0] = w;

   285

					_resolutions[n][1] = h;

   286

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

   287

				}

   288

			}

   289

		}

   290

		_num_resolutions = n;

   291

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

   292

	}

   293

}

   294

   295

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

   296

{

   297

	int i;

   298

	int best;

   299

	uint delta;

   300

   301

	// all modes available?

   302

	if (_all_modes)

   303

		return 1;

   304

   305

	// is the wanted mode among the available modes?

   306

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

   307

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

   308

			return 1;

   309

	}

   310

   311

	// use the closest possible resolution

   312

	best = 0;

   313

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

   314

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

   315

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

   316

		if (newdelta < delta) {

   317

			best = i;

   318

			delta = newdelta;

   319

		}

   320

	}

   321

	*w = _resolutions[best][0];

   322

	*h = _resolutions[best][1];

   323

	return 2;

   324

}

   325

   326

extern const char _openttd_revision[];

   327

   328

static bool CreateMainSurface(int w, int h)

   329

{

   330

	SDL_Surface *newscreen;

   331

	char *caption;

   332

   333

	GetAvailableVideoMode(&w, &h);

   334

   335

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

   336

   337

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

   338

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

   339

	if (newscreen == NULL)

   340

		return false;

   341

   342

	_screen.width = newscreen->w;

   343

	_screen.height = newscreen->h;

   344

	_screen.pitch = newscreen->pitch;

   345

   346

	_sdl_screen = newscreen;

   347

	InitPalette();

   348

   349

	caption = str_fmt("OpenTTD %s", _openttd_revision);

   350

	SDL_CALL SDL_WM_SetCaption(caption, caption);

   351

	SDL_CALL SDL_ShowCursor(0);

   352

   353

	GameSizeChanged();

   354

   355

	return true;

   356

}

   357

   358

typedef struct VkMapping {

   359

	uint16 vk_from;

   360

	byte vk_count;

   361

	byte map_to;

   362

} VkMapping;

   363

   364

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

   365

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

   366

   367

static const VkMapping _vk_mapping[] = {

   368

	// Pageup stuff + up/down

   369

	AM(SDLK_PAGEUP, SDLK_PAGEDOWN, WKC_PAGEUP, WKC_PAGEDOWN),

   370

	AS(SDLK_UP,			WKC_UP),

   371

	AS(SDLK_DOWN,		WKC_DOWN),

   372

	AS(SDLK_LEFT,		WKC_LEFT),

   373

	AS(SDLK_RIGHT,	WKC_RIGHT),

   374

   375

	AS(SDLK_HOME,		WKC_HOME),

   376

	AS(SDLK_END,		WKC_END),

   377

   378

	AS(SDLK_INSERT,	WKC_INSERT),

   379

	AS(SDLK_DELETE,	WKC_DELETE),

   380

   381

	// Map letters & digits

   382

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

   383

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

   384

   385

	AS(SDLK_ESCAPE,	WKC_ESC),

   386

	AS(SDLK_PAUSE,  WKC_PAUSE),

   387

	AS(SDLK_BACKSPACE,	WKC_BACKSPACE),

   388

   389

	AS(SDLK_SPACE,		WKC_SPACE),

   390

	AS(SDLK_RETURN,		WKC_RETURN),

   391

	AS(SDLK_TAB,			WKC_TAB),

   392

   393

	// Function keys

   394

	AM(SDLK_F1, SDLK_F12, WKC_F1, WKC_F12),

   395

   396

	// Numeric part.

   397

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

   398

	AM(SDLK_KP0, SDLK_KP9, WKC_NUM_0, WKC_NUM_9),

   399

	AS(SDLK_KP_DIVIDE,		WKC_NUM_DIV),

   400

	AS(SDLK_KP_MULTIPLY,	WKC_NUM_MUL),

   401

	AS(SDLK_KP_MINUS,			WKC_NUM_MINUS),

   402

	AS(SDLK_KP_PLUS,			WKC_NUM_PLUS),

   403

	AS(SDLK_KP_ENTER,			WKC_NUM_ENTER),

   404

	AS(SDLK_KP_PERIOD,		WKC_NUM_DECIMAL)

   405

};

   406

   407

static uint32 ConvertSdlKeyIntoMy(SDL_keysym *sym)

   408

{

   409

	const VkMapping	*map;

   410

	uint key = 0;

   411

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

   412

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

   413

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

   414

			break;

   415

		}

   416

	}

   417

   418

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

   419

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

   420

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

   421

#elif defined(__APPLE__)

   422

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

   423

#elif defined(__MORPHOS__)

   424

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

   425

#elif defined(__BEOS__)

   426

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

   427

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

   428

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

   429

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

   430

#else

   431

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

   432

#endif

   433

   434

	// META are the command keys on mac

   435

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

   436

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

   437

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

   438

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

   439

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

   440

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

   441

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

   442

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

   443

}

   444

   445

void DoExitSave(void);

   446

   447

static int PollEvent(void)

   448

{

   449

	SDL_Event ev;

   450

   451

	if (!SDL_CALL SDL_PollEvent(&ev))

   452

		return -2;

   453

   454

	switch (ev.type) {

   455

	case SDL_MOUSEMOTION:

   456

		if (_cursor.fix_at) {

   457

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

   458

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

   459

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

   460

				_cursor.delta.x += dx;

   461

				_cursor.delta.y += dy;

   462

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

   463

			}

   464

		} else {

   465

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

   466

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

   467

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

   468

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

   469

			_cursor.dirty = true;

   470

		}

   471

		break;

   472

   473

	case SDL_MOUSEBUTTONDOWN:

   474

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

   475

			ev.button.button = SDL_BUTTON_RIGHT;

   476

   477

		switch (ev.button.button) {

   478

			case SDL_BUTTON_LEFT:

   479

				_left_button_down = true;

   480

				break;

   481

			case SDL_BUTTON_RIGHT:

   482

				_right_button_down = true;

   483

				_right_button_clicked = true;

   484

				break;

   485

			case SDL_BUTTON_WHEELUP:

   486

				_cursor.wheel--;

   487

				break;

   488

			case SDL_BUTTON_WHEELDOWN:

   489

				_cursor.wheel++;

   490

				break;

   491

			default:

   492

				break;

   493

		}

   494

		break;

   495

   496

	case SDL_MOUSEBUTTONUP:

   497

		if (_rightclick_emulate) {

   498

			_right_button_down = false;

   499

			_left_button_down = false;

   500

			_left_button_clicked = false;

   501

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

   502

			_left_button_down = false;

   503

			_left_button_clicked = false;

   504

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

   505

			_right_button_down = false;

   506

		}

   507

		break;

   508