1

#include "stdafx.h"

     2

#include "ttd.h"

     3

#include "table/strings.h"

     4

#include "hal.h"

     5

     6

#include <direct.h>

     7

#include <unistd.h>

     8

#include <sys/stat.h>

     9

#include <time.h>

    10

#include <dos.h>

    11

    12

#include <os2.h>

    13

    14

#if defined(WITH_SDL)

    15

#include <SDL.h>

    16

#endif

    17

    18

static char *_fios_path;

    19

static char *_fios_save_path;

    20

static char *_fios_scn_path;

    21

static FiosItem *_fios_items;

    22

static int _fios_count, _fios_alloc;

    23

    24

static FiosItem *FiosAlloc()

    25

{

    26

	if (_fios_count == _fios_alloc) {

    27

		_fios_alloc += 256;

    28

		_fios_items = realloc(_fios_items, _fios_alloc * sizeof(FiosItem));

    29

	}

    30

	return &_fios_items[_fios_count++];

    31

}

    32

    33

int compare_FiosItems (const void *a, const void *b) {

    34

	const FiosItem *da = (const FiosItem *) a;

    35

	const FiosItem *db = (const FiosItem *) b;

    36

	int r;

    37

    38

	if (_savegame_sort_order < 2) // sort by date

    39

	r = da->mtime < db->mtime ? -1 : 1;

    40

	else

    41

		r = stricmp(da->title[0] ? da->title : da->name, db->title[0] ? db->title : db->name);

    42

    43

	if (_savegame_sort_order & 1) r = -r;

    44

	return r;

    45

}

    46

    47

    48

// Get a list of savegames

    49

FiosItem *FiosGetSavegameList(int *num, int mode)

    50

{

    51

	FiosItem *fios;

    52

	DIR *dir;

    53

	struct dirent *dirent;

    54

	struct stat sb;

    55

	int sort_start;

    56

	char filename[MAX_PATH];

    57

    58

	if (_fios_save_path == NULL) {

    59

		_fios_save_path = malloc(MAX_PATH);

    60

		strcpy(_fios_save_path, _path.save_dir);

    61

	}

    62

    63

	if(_game_mode==GM_EDITOR)

    64

		_fios_path = _fios_scn_path;

    65

	else

    66

		_fios_path = _fios_save_path;

    67

    68

	// Parent directory, only if not in root already.

    69

	if (_fios_path[1] != 0) {

    70

		fios = FiosAlloc();

    71

		fios->type = FIOS_TYPE_PARENT;

    72

		fios->mtime = 0;

    73

		sprintf(fios->title, ".. (Parent directory)");

    74

	}

    75

    76

	// Show subdirectories first

    77

	dir = opendir(_fios_path[0] ? _fios_path : "C:\\");

    78

	if (dir != NULL) {

    79

		while ((dirent = readdir(dir))) {

    80

			sprintf (filename, "%s\\%s", _fios_path, dirent->d_name);

    81

			if (!stat(filename, &sb)) {

    82

				if (S_ISDIR(sb.st_mode)) {

    83

					if (dirent->d_name[0] != '.') {

    84

						fios = FiosAlloc();

    85

						fios->mtime = 0;

    86

						fios->type = FIOS_TYPE_DIR;

    87

						fios->title[0] = 0;

    88

						sprintf(fios->name, "%s\\ (Directory)", dirent->d_name);

    89

					}

    90

				}

    91

			}

    92

		}

    93

		closedir(dir);

    94

	}

    95

    96

	{

    97

		/* XXX ugly global variables ... */

    98

		byte order = _savegame_sort_order;

    99

		_savegame_sort_order = 2; // sort ascending by name

   100

		qsort(_fios_items, _fios_count, sizeof(FiosItem), compare_FiosItems);

   101

		_savegame_sort_order = order;

   102

	}

   103

   104

	// this is where to start sorting

   105

	sort_start = _fios_count;

   106

   107

	/*      Show savegame files

   108

	 *      .SAV    OpenTTD saved game

   109

	 *      .SS1    Transport Tycoon Deluxe preset game

   110

	 *      .SV1    Transport Tycoon Deluxe (Patch) saved game

   111

	 *      .SV2    Transport Tycoon Deluxe (Patch) saved 2-player game

   112

	 */

   113

	dir = opendir(_fios_path[0] ? _fios_path : "C:\\");

   114

	if (dir != NULL) {

   115

		while ((dirent = readdir(dir))) {

   116

			sprintf (filename, "%s\\%s", _fios_path, dirent->d_name);

   117

			if (!stat(filename, &sb)) {

   118

				if (!S_ISDIR(sb.st_mode)) {

   119

					char *t = strrchr(dirent->d_name, '.');

   120

					if (t && !stricmp(t, ".sav")) { // OpenTTD

   121

						*t = 0; // cut extension

   122

						fios = FiosAlloc();

   123

						fios->type = FIOS_TYPE_FILE;

   124

						fios->mtime = sb.st_mtime;

   125

						fios->title[0] = 0;

   126

						ttd_strlcpy(fios->name, dirent->d_name, sizeof(fios->name));

   127

					} else if (mode == SLD_LOAD_GAME || mode == SLD_LOAD_SCENARIO) {

   128

						int ext = 0; // start of savegame extensions in _old_extensions[]

   129

						if (t && ((ext++, !stricmp(t, ".ss1")) || (ext++, !stricmp(t, ".sv1")) || (ext++, !stricmp(t, ".sv2"))) ) { // TTDLX(Patch)

   130

							*t = 0; // cut extension

   131

							fios = FiosAlloc();

   132

							fios->old_extension = ext-1;

   133

							fios->type = FIOS_TYPE_OLDFILE;

   134

							fios->mtime = sb.st_mtime;

   135

							ttd_strlcpy(fios->name, dirent->d_name, sizeof(fios->name));

   136

							GetOldSaveGameName(fios->title, filename);

   137

						}

   138

					}

   139

				}

   140

			}

   141

		}

   142

		closedir(dir);

   143

	}

   144

   145

	qsort(_fios_items + sort_start, _fios_count - sort_start, sizeof(FiosItem), compare_FiosItems);

   146

   147

	// Drives

   148

	{

   149

		unsigned save, disk, disk2, total;

   150

   151

		/* save original drive */

   152

		_dos_getdrive(&save);

   153

   154

		/* get available drive letters */

   155

   156

		for (disk = 1; disk < 27; ++disk)

   157

		{

   158

			_dos_setdrive(disk, &total);

   159

			_dos_getdrive(&disk2);

   160

   161

			if (disk == disk2)

   162

			{

   163

				fios = FiosAlloc();

   164

				fios->type = FIOS_TYPE_DRIVE;

   165

				fios->title[0] = disk + 'A'-1;

   166

				fios->title[1] = ':';

   167

				fios->title[2] = 0;

   168

			}

   169

		}

   170

   171

		_dos_setdrive(save, &total);

   172

	}

   173

   174

	*num = _fios_count;

   175

	return _fios_items;

   176

}

   177

   178

// Get a list of scenarios

   179

FiosItem *FiosGetScenarioList(int *num, int mode)

   180

{

   181

	FiosItem *fios;

   182

	DIR *dir;

   183

	struct dirent *dirent;

   184

	struct stat sb;

   185

	int sort_start;

   186

	char filename[MAX_PATH];

   187

   188

	if (_fios_scn_path == NULL) {

   189

		_fios_scn_path = malloc(MAX_PATH);

   190

		strcpy(_fios_scn_path, _path.scenario_dir);

   191

	}

   192

	_fios_path = _fios_scn_path;

   193

   194

	// Show subdirectories first

   195

	dir = opendir(_fios_path[0] ? _fios_path : "C:\\");

   196

	if (dir != NULL) {

   197

		while ((dirent = readdir(dir))) {

   198

			sprintf (filename, "%s\\%s", _fios_path, dirent->d_name);

   199

			if (!stat(filename, &sb)) {

   200

				if (S_ISDIR(sb.st_mode)) {

   201

					if (dirent->d_name[0] != '.') {

   202

						fios = FiosAlloc();

   203

						fios->mtime = 0;

   204

						fios->type = FIOS_TYPE_DIR;

   205

						fios->title[0] = 0;

   206

						sprintf(fios->name, "%s\\ (Directory)", dirent->d_name);

   207

					}

   208

				}

   209

			}

   210

		}

   211

		closedir(dir);

   212

	}

   213

   214

	// this is where to start sorting

   215

	sort_start = _fios_count;

   216

   217

	/*      Show scenario files

   218

	 *      .SCN    OpenTTD style scenario file

   219

	 *      .SV0    Transport Tycoon Deluxe (Patch) scenario

   220

	 *      .SS0    Transport Tycoon Deluxe preset scenario

   221

	 */

   222

	dir = opendir(_fios_path[0] ? _fios_path : "C:\\");

   223

	if (dir != NULL) {

   224

		while ((dirent = readdir(dir))) {

   225

			sprintf (filename, "%s\\%s", _fios_path, dirent->d_name);

   226

			if (!stat(filename, &sb)) {

   227

				if (!S_ISDIR(sb.st_mode)) {

   228

					char *t = strrchr(dirent->d_name, '.');

   229

					if (t && !stricmp(t, ".scn")) { // OpenTTD

   230

						*t = 0; // cut extension

   231

						fios = FiosAlloc();

   232

						fios->type = FIOS_TYPE_SCENARIO;

   233

						fios->mtime = sb.st_mtime;

   234

						fios->title[0] = 0;

   235

						ttd_strlcpy(fios->name, dirent->d_name, sizeof(fios->name)-3);

   236

					} else if (mode == SLD_LOAD_GAME || mode == SLD_LOAD_SCENARIO || mode == SLD_NEW_GAME) {

   237

						int ext = 3; // start of scenario extensions in _old_extensions[]

   238

						if (t && ((ext++, !stricmp(t, ".sv0")) || (ext++, !stricmp(t, ".ss0"))) ) { // TTDLX(Patch)

   239

							*t = 0; // cut extension

   240

							fios = FiosAlloc();

   241

							fios->old_extension = ext-1;

   242

							fios->type = FIOS_TYPE_OLD_SCENARIO;

   243

							fios->mtime = sb.st_mtime;

   244

							GetOldScenarioGameName(fios->title, filename);

   245

							ttd_strlcpy(fios->name, dirent->d_name, sizeof(fios->name)-3);

   246

						}

   247

					}

   248

				}

   249

			}

   250

		}

   251

		closedir(dir);

   252

	}

   253

   254

	qsort(_fios_items + sort_start, _fios_count - sort_start, sizeof(FiosItem), compare_FiosItems);

   255

   256

	// Drives

   257

	if (mode != SLD_NEW_GAME)

   258

	{

   259

		unsigned save, disk, disk2, total;

   260

   261

		/* save original drive */

   262

		_dos_getdrive(&save);

   263

   264

		/* get available drive letters */

   265

   266

		for (disk = 1; disk < 27; ++disk)

   267

		{

   268

			_dos_setdrive(disk, &total);

   269

			_dos_getdrive(&disk2);

   270

   271

			if (disk == disk2)

   272

			{

   273

				fios = FiosAlloc();

   274

				fios->type = FIOS_TYPE_DRIVE;

   275

				fios->title[0] = disk + 'A'-1;

   276

				fios->title[1] = ':';

   277

				fios->title[2] = 0;

   278

			}

   279

		}

   280

   281

		_dos_setdrive(save, &total);

   282

	}

   283

   284

	*num = _fios_count;

   285

	return _fios_items;

   286

}

   287

   288

   289

// Free the list of savegames

   290

void FiosFreeSavegameList()

   291

{

   292

	free(_fios_items);

   293

	_fios_items = NULL;

   294

	_fios_alloc = _fios_count = 0;

   295

}

   296

   297

// Browse to

   298

char *FiosBrowseTo(const FiosItem *item)

   299

{

   300

	char *path = _fios_path;

   301

	char *s;

   302

   303

	switch(item->type) {

   304

	case FIOS_TYPE_PARENT:

   305

		s = strrchr(path, '\\');

   306

		if (s != NULL) *s = 0;

   307

		break;

   308

   309

	case FIOS_TYPE_DIR:

   310

		s = strchr((char*)item->name, '\\');

   311

		if (s) *s = 0;

   312

		while (*path) path++;

   313

		*path++ = '\\';

   314

		strcpy(path, item->name);

   315

		break;

   316

   317

	case FIOS_TYPE_FILE:

   318

		FiosMakeSavegameName(str_buffr, item->name);

   319

		return str_buffr;

   320

   321

	case FIOS_TYPE_OLDFILE:

   322

		sprintf(str_buffr, "%s\\%s.%s", _fios_path, item->name, _old_extensions[item->old_extension]);

   323

		return str_buffr;

   324

   325

	case FIOS_TYPE_SCENARIO:

   326

		sprintf(str_buffr, "%s\\%s.scn", path, item->name);

   327

		return str_buffr;

   328

   329

	case FIOS_TYPE_OLD_SCENARIO:

   330

		sprintf(str_buffr, "%s\\%s.%s", path, item->name, _old_extensions[item->old_extension]);

   331

		return str_buffr;

   332

	}

   333

   334

	return NULL;

   335

}

   336

   337

// Get descriptive texts.

   338

// Returns a path as well as a

   339

//  string describing the path.

   340

StringID FiosGetDescText(const char **path)

   341

{

   342

	struct diskfree_t free;

   343

	char drive;

   344

   345

	*path = _fios_path[0] ? _fios_path : "C:\\";

   346

	drive = 'B' - *path[0];

   347

   348

	_getdiskfree(drive, &free);

   349

   350

	SetDParam(0, free.avail_clusters * free.sectors_per_cluster * free.bytes_per_sector);

   351

	return STR_4005_BYTES_FREE;

   352

}

   353

   354

void FiosMakeSavegameName(char *buf, const char *name)

   355

{

   356

	if(_game_mode==GM_EDITOR)

   357

		sprintf(buf, "%s\\%s.scn", _fios_path, name);

   358

	else

   359

		sprintf(buf, "%s\\%s.sav", _fios_path, name);

   360

}

   361

   362

void FiosDelete(const char *name)

   363

{

   364

	char *path = str_buffr;

   365

	FiosMakeSavegameName(path, name);

   366

	unlink(path);

   367

}

   368

   369

const DriverDesc _video_driver_descs[] = {

   370

	{"null",	"Null Video Driver",    &_null_video_driver,    0},

   371

#if defined(WITH_SDL)

   372

	{ "sdl",	"SDL Video Driver",	     &_sdl_video_driver,	     1},

   373

#endif

   374

	{ "dedicated", "Dedicated Video Driver", &_dedicated_video_driver, 0},

   375

	{ NULL,	 NULL,								   NULL,								   0}

   376

};

   377

   378

const DriverDesc _sound_driver_descs[] = {

   379

	{"null",	"Null Sound Driver",    &_null_sound_driver,	    0},

   380

#if defined(WITH_SDL)

   381

	{ "sdl",	"SDL Sound Driver",	     &_sdl_sound_driver,		     1},

   382

#endif

   383

	{ NULL,	 NULL,								   NULL,									   0}

   384

};

   385

   386

const DriverDesc _music_driver_descs[] = {

   387

	{   "null",     "Null Music Driver",	    &_null_music_driver,	    0},

   388

	{     NULL,     NULL,									   NULL,									   0}

   389

};

   390

   391

/* GetOSVersion returns the minimal required version of OS to be able to use that driver.

   392

	 Not needed for *nix. */

   393

byte GetOSVersion()

   394

{

   395

	return 2;  // any arbitrary number bigger then 0

   396

				// numbers lower than 2 breaks default music selection on mac

   397

}

   398

   399

bool FileExists(const char *filename)

   400

{

   401

	return access(filename, 0) == 0;

   402

}

   403

   404

static int LanguageCompareFunc(const void *a, const void *b)

   405

{

   406

	return strcmp(*(const char* const *)a, *(const char* const *)b);

   407

}

   408

   409

int GetLanguageList(char **languages, int max)

   410

{

   411

	DIR *dir;

   412

	struct dirent *dirent;

   413

	int num = 0;

   414

   415

	dir = opendir(_path.lang_dir);

   416

	if (dir != NULL) {

   417

		while ((dirent = readdir(dir))) {

   418

			char *t = strrchr(dirent->d_name, '.');

   419

			if (t && !strcmp(t, ".lng")) {

   420

				languages[num++] = strdup(dirent->d_name);

   421

				if (num == max) break;

   422

			}

   423

		}

   424

		closedir(dir);

   425

	}

   426

   427

	qsort(languages, num, sizeof(char*), LanguageCompareFunc);

   428

	return num;

   429

}

   430

   431

static void ChangeWorkingDirectory(char *exe)

   432

{

   433

	char *s = strrchr(exe, '\\');

   434

	if (s != NULL) {

   435

		*s = 0;

   436

		chdir(exe);

   437

		*s = '\\';

   438

	}

   439

}

   440

   441

void ShowInfo(const char *str)

   442

{

   443

	puts(str);

   444

}

   445

   446

void ShowOSErrorBox(const char *buf)

   447

{

   448

	WinMessageBox(HWND_DESKTOP, HWND_DESKTOP, buf, "OpenTTD", 263, MB_OK | MB_APPLMODAL | MB_MOVEABLE | MB_ERROR);

   449

// TODO: FIX, doesn't always appear

   450

}

   451

   452

int CDECL main(int argc, char* argv[])

   453

{

   454

	// change the working directory to enable doubleclicking in UIs

   455

	ChangeWorkingDirectory(argv[0]);

   456

   457

	_random_seeds[0][1] = _random_seeds[0][0] = time(NULL);

   458

   459

   460

	return ttd_main(argc, argv);

   461

}

   462

   463

void DeterminePaths()

   464

{

   465

	char *s;

   466

   467

	_path.game_data_dir = malloc( MAX_PATH );

   468

	ttd_strlcpy(_path.game_data_dir, GAME_DATA_DIR, MAX_PATH);

   469

	#if defined SECOND_DATA_DIR

   470

	_path.second_data_dir = malloc( MAX_PATH );

   471

	ttd_strlcpy( _path.second_data_dir, SECOND_DATA_DIR, MAX_PATH);

   472

	#endif

   473

   474

#if defined(USE_HOMEDIR)

   475

	{

   476

		char *homedir;

   477

		homedir = getenv("HOME");

   478

   479

		if(!homedir) {

   480

			struct passwd *pw = getpwuid(getuid());

   481

			if (pw) homedir = pw->pw_dir;

   482

		}

   483

   484

		_path.personal_dir = str_fmt("%s" PATHSEP "%s", homedir, PERSONAL_DIR);

   485

	}

   486

   487

#else /* not defined(USE_HOMEDIR) */

   488

   489

	_path.personal_dir = malloc( MAX_PATH );

   490

	ttd_strlcpy(_path.personal_dir, PERSONAL_DIR, MAX_PATH);

   491

   492

	// check if absolute or relative path

   493

	s = strchr(_path.personal_dir, '\\');

   494

   495

	// add absolute path

   496

	if (s==NULL || _path.personal_dir != s) {

   497

		getcwd(_path.personal_dir, MAX_PATH);

   498

		s = strchr(_path.personal_dir, 0);

   499

		*s++ = '\\';

   500

		ttd_strlcpy(s, PERSONAL_DIR, MAX_PATH);

   501

	}

   502

   503

#endif /* defined(USE_HOMEDIR) */

   504

   505

	s = strchr(_path.personal_dir, 0);

   506

   507

	// append a / ?

   508

	if (s[-1] != '\\') { s[0] = '\\'; s[1] = 0; }

   509

   510

	_path.save_dir = str_fmt("%ssave", _path.personal_dir);

   511

	_path.autosave_dir = str_fmt("%s\\autosave", _path.save_dir);

   512

	_path.scenario_dir = str_fmt("%sscenario", _path.personal_dir);

   513

	_path.gm_dir = str_fmt("%sgm\\", _path.game_data_dir);

   514

	_path.data_dir = str_fmt("%sdata\\", _path.game_data_dir);

   515

	_config_file = str_fmt("%sopenttd.cfg", _path.personal_dir);

   516

   517

#if defined CUSTOM_LANG_DIR

   518

	// sets the search path for lng files to the custom one

   519

	_path.lang_dir = malloc( MAX_PATH );

   520

	ttd_strlcpy( _path.lang_dir, CUSTOM_LANG_DIR, MAX_PATH);

   521

#else

   522

	_path.lang_dir = str_fmt("%slang\\", _path.game_data_dir);

   523

#endif

   524

   525

	// create necessary folders

   526

	mkdir(_path.personal_dir);

   527

	mkdir(_path.save_dir);

   528

	mkdir(_path.autosave_dir);

   529

	mkdir(_path.scenario_dir);

   530