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,  800},

   247

	{1280,  960},

   248

	{1280, 1024},

   249

	{1400, 1050},

   250

	{1600, 1200},

   251

	{1680, 1050},

   252

	{1920, 1200}

   253

};

   254

   255

static void GetVideoModes(void)

   256

{

   257

	int i;

   258

	SDL_Rect **modes;

   259

   260

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

   261

   262

	if (modes == NULL)

   263

		error("sdl: no modes available");

   264

   265

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

   266

   267

	if (_all_modes) {

   268

		// all modes available, put some default ones here

   269

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

   270

		_num_resolutions = lengthof(default_resolutions);

   271

	} else {

   272

		int n = 0;

   273

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

   274

			int w = modes[i]->w;

   275

			int h = modes[i]->h;

   276

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

   277

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

   278

				int j;

   279

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

   280

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

   281

						break;

   282

				if (j == n) {

   283

					_resolutions[n][0] = w;

   284

					_resolutions[n][1] = h;

   285

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

   286

				}

   287

			}

   288

		}

   289

		_num_resolutions = n;

   290

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

   291

	}

   292

}

   293

   294

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

   295

{

   296

	int i;

   297

	int best;

   298

	uint delta;

   299

   300

	// all modes available?

   301

	if (_all_modes)

   302

		return 1;

   303

   304

	// is the wanted mode among the available modes?

   305

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

   306

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

   307

			return 1;

   308

	}

   309

   310

	// use the closest possible resolution

   311

	best = 0;

   312

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

   313

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

   314

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

   315

		if (newdelta < delta) {

   316

			best = i;

   317

			delta = newdelta;

   318

		}

   319

	}

   320

	*w = _resolutions[best][0];

   321

	*h = _resolutions[best][1];

   322

	return 2;

   323

}

   324

   325

extern const char _openttd_revision[];

   326

   327

static bool CreateMainSurface(int w, int h)

   328

{

   329

	SDL_Surface *newscreen;

   330

	char *caption;

   331

   332

	GetAvailableVideoMode(&w, &h);

   333

   334

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

   335

   336

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

   337

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

   338

	if (newscreen == NULL)

   339

		return false;

   340

   341

	_screen.width = newscreen->w;

   342

	_screen.height = newscreen->h;

   343

	_screen.pitch = newscreen->pitch;

   344

   345

	_sdl_screen = newscreen;

   346

	InitPalette();

   347

   348

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

   349

	SDL_CALL SDL_WM_SetCaption(caption, caption);

   350

	SDL_CALL SDL_ShowCursor(0);

   351

   352

	GameSizeChanged();

   353

   354

	return true;

   355

}

   356

   357

typedef struct VkMapping {

   358

	uint16 vk_from;

   359

	byte vk_count;

   360

	byte map_to;

   361

} VkMapping;

   362

   363

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

   364

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

   365

   366

static const VkMapping _vk_mapping[] = {

   367

	// Pageup stuff + up/down

   368

	AM(SDLK_PAGEUP, SDLK_PAGEDOWN, WKC_PAGEUP, WKC_PAGEDOWN),

   369

	AS(SDLK_UP,			WKC_UP),

   370

	AS(SDLK_DOWN,		WKC_DOWN),

   371

	AS(SDLK_LEFT,		WKC_LEFT),

   372

	AS(SDLK_RIGHT,	WKC_RIGHT),

   373

   374

	AS(SDLK_HOME,		WKC_HOME),

   375

	AS(SDLK_END,		WKC_END),

   376

   377

	AS(SDLK_INSERT,	WKC_INSERT),

   378

	AS(SDLK_DELETE,	WKC_DELETE),

   379

   380

	// Map letters & digits

   381

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

   382

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

   383

   384

	AS(SDLK_ESCAPE,	WKC_ESC),

   385

	AS(SDLK_PAUSE,  WKC_PAUSE),

   386

	AS(SDLK_BACKSPACE,	WKC_BACKSPACE),

   387

   388

	AS(SDLK_SPACE,		WKC_SPACE),

   389

	AS(SDLK_RETURN,		WKC_RETURN),

   390

	AS(SDLK_TAB,			WKC_TAB),

   391

   392

	// Function keys

   393

	AM(SDLK_F1, SDLK_F12, WKC_F1, WKC_F12),

   394

   395

	// Numeric part.

   396

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

   397

	AM(SDLK_KP0, SDLK_KP9, WKC_NUM_0, WKC_NUM_9),

   398

	AS(SDLK_KP_DIVIDE,		WKC_NUM_DIV),

   399

	AS(SDLK_KP_MULTIPLY,	WKC_NUM_MUL),

   400

	AS(SDLK_KP_MINUS,			WKC_NUM_MINUS),

   401

	AS(SDLK_KP_PLUS,			WKC_NUM_PLUS),

   402

	AS(SDLK_KP_ENTER,			WKC_NUM_ENTER),

   403

	AS(SDLK_KP_PERIOD,		WKC_NUM_DECIMAL)

   404

};

   405

   406

static uint32 ConvertSdlKeyIntoMy(SDL_keysym *sym)

   407

{

   408

	const VkMapping	*map;

   409

	uint key = 0;

   410

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

   411

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

   412

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

   413

			break;

   414

		}

   415

	}

   416

   417

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

   418

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

   419

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

   420

#elif defined(__APPLE__)

   421

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

   422

#elif defined(__MORPHOS__)

   423

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

   424

#elif defined(__BEOS__)

   425

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

   426

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

   427

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

   428

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

   429

#else

   430

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

   431

#endif

   432

   433

	// META are the command keys on mac

   434

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

   435

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

   436

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

   437

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

   438

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

   439

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

   440

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

   441

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

   442

}

   443

   444

void DoExitSave(void);

   445

   446

static int PollEvent(void)

   447

{

   448

	SDL_Event ev;

   449

   450

	if (!SDL_CALL SDL_PollEvent(&ev))

   451

		return -2;

   452

   453

	switch (ev.type) {

   454

	case SDL_MOUSEMOTION:

   455

		if (_cursor.fix_at) {

   456

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

   457

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

   458

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

   459

				_cursor.delta.x += dx;

   460

				_cursor.delta.y += dy;

   461

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

   462

			}

   463

		} else {

   464

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

   465

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

   466

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

   467

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

   468

			_cursor.dirty = true;

   469

		}

   470

		break;

   471

   472

	case SDL_MOUSEBUTTONDOWN:

   473

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

   474

			ev.button.button = SDL_BUTTON_RIGHT;

   475

   476

		switch (ev.button.button) {

   477

			case SDL_BUTTON_LEFT:

   478

				_left_button_down = true;

   479

				break;

   480

			case SDL_BUTTON_RIGHT:

   481

				_right_button_down = true;

   482

				_right_button_clicked = true;

   483

				break;

   484

			case SDL_BUTTON_WHEELUP:

   485

				_cursor.wheel--;

   486

				break;

   487

			case SDL_BUTTON_WHEELDOWN:

   488

				_cursor.wheel++;

   489

				break;

   490

			default:

   491

				break;

   492

		}

   493

		break;

   494

   495

	case SDL_MOUSEBUTTONUP:

   496

		if (_rightclick_emulate) {

   497

			_right_button_down = false;

   498

			_left_button_down = false;

   499

			_left_button_clicked = false;

   500

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

   501

			_left_button_down = false;

   502

			_left_button_clicked = false;

   503

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

   504

			_right_button_down = false;

   505

		}

   506

		break;

   507

   508

	case SDL_QUIT: