1

/* $Id$ */

     2

#include "stdafx.h"

     3

#include "openttd.h"

     4

#include "variables.h"

     5

#include "string.h"

     6

#include "table/strings.h"

     7

#include "gfx.h"

     8

#include "gui.h"

     9

#include "functions.h"

    10

#include "macros.h"

    11

#include "fios.h"

    12

    13

#include <dirent.h>

    14

#include <unistd.h>

    15

#include <sys/stat.h>

    16

#include <stdlib.h>

    17

#include <time.h>

    18

#ifndef __INNOTEK_LIBC__

    19

	#include <dos.h>

    20

#endif

    21

    22

#define INCL_WIN

    23

#define INCL_WINCLIPBOARD

    24

    25

#include <os2.h>

    26

#ifndef __INNOTEK_LIBC__

    27

	#include <i86.h>

    28

#endif

    29

    30

bool FiosIsRoot(const char *file)

    31

{

    32

	return file[3] == '\0';

    33

}

    34

    35

void FiosGetDrives(void)

    36

{

    37

	unsigned disk, disk2, save, total;

    38

    39

#ifndef __INNOTEK_LIBC__

    40

	_dos_getdrive(&save); // save original drive

    41

#else

    42

	save = _getdrive(); // save original drive

    43

	char wd[MAX_PATH];

    44

	getcwd(wd, MAX_PATH);

    45

	total = 'z';

    46

#endif

    47

    48

	/* get an available drive letter */

    49

#ifndef __INNOTEK_LIBC__

    50

	for (disk = 1;; disk++) {

    51

		_dos_setdrive(disk, &total);

    52

#else

    53

	for (disk = 'A';; disk++) {

    54

		_chdrive(disk);

    55

#endif

    56

		if (disk >= total)  break;

    57

    58

#ifndef __INNOTEK_LIBC__

    59

		_dos_getdrive(&disk2);

    60

#else

    61

		disk2 = _getdrive();

    62

#endif

    63

    64

		if (disk == disk2) {

    65

			FiosItem *fios = FiosAlloc();

    66

			fios->type = FIOS_TYPE_DRIVE;

    67

			fios->mtime = 0;

    68

#ifndef __INNOTEK_LIBC__

    69

			snprintf(fios->name, lengthof(fios->name),  "%c:", 'A' + disk - 1);

    70

#else

    71

			snprintf(fios->name, lengthof(fios->name),  "%c:", disk);

    72

#endif

    73

			ttd_strlcpy(fios->title, fios->name, lengthof(fios->title));

    74

		}

    75

	}

    76

    77

	/* Restore the original drive */

    78

#ifndef __INNOTEK_LIBC__

    79

	_dos_setdrive(save, &total);

    80

#else

    81

	chdir(wd);

    82

#endif

    83

    84

}

    85

    86

bool FiosGetDiskFreeSpace(const char *path, uint32 *tot)

    87

{

    88

#ifndef __INNOTEK_LIBC__

    89

	struct diskfree_t free;

    90

	char drive = path[0] - 'A' + 1;

    91

    92

	if (tot != NULL && _getdiskfree(drive, &free) == 0) {

    93

		*tot = free.avail_clusters * free.sectors_per_cluster * free.bytes_per_sector;

    94

		return true;

    95

	}

    96

    97

	return false;

    98

#else

    99

	uint32 free = 0;

   100

   101

#ifdef HAS_STATVFS

   102

	{

   103

		struct statvfs s;

   104

   105

		if (statvfs(path, &s) != 0) return false;

   106

		free = (uint64)s.f_frsize * s.f_bavail >> 20;

   107

	}

   108

#endif

   109

	if (tot != NULL) *tot = free;

   110

	return true;

   111

#endif

   112

}

   113

   114

bool FiosIsValidFile(const char *path, const struct dirent *ent, struct stat *sb)

   115

{

   116

	char filename[MAX_PATH];

   117

   118

	snprintf(filename, lengthof(filename), "%s" PATHSEP "%s", path, ent->d_name);

   119

   120

	return stat(filename, sb) == 0;

   121

}

   122

   123

bool FiosIsHiddenFile(const struct dirent *ent)

   124

{

   125

	return ent->d_name[0] == '.';

   126

}

   127

   128

   129

static void ChangeWorkingDirectory(char *exe)

   130

{

   131

	char *s = strrchr(exe, PATHSEPCHAR);

   132

   133

	if (s != NULL) {

   134

		*s = '\0';

   135

		chdir(exe);

   136

		*s = PATHSEPCHAR;

   137

	}

   138

}

   139

   140

void ShowInfo(const char *str)

   141

{

   142

	HAB hab;

   143

	HMQ hmq;

   144

	ULONG rc;

   145

   146

	// init PM env.

   147

	hmq = WinCreateMsgQueue((hab = WinInitialize(0)), 0);

   148

   149

	// display the box

   150

	rc = WinMessageBox(HWND_DESKTOP, HWND_DESKTOP, str, (const unsigned char *)"OpenTTD", 0, MB_OK | MB_MOVEABLE | MB_INFORMATION);

   151

   152

	// terminate PM env.

   153

	WinDestroyMsgQueue(hmq);

   154

	WinTerminate(hab);

   155

}

   156

   157

void ShowOSErrorBox(const unsigned char *buf)

   158

{

   159

	HAB hab;

   160

	HMQ hmq;

   161

	ULONG rc;

   162

   163

	// init PM env.

   164

	hmq = WinCreateMsgQueue((hab = WinInitialize(0)), 0);

   165

   166

	// display the box

   167

	rc = WinMessageBox(HWND_DESKTOP, HWND_DESKTOP, buf, (const unsigned char *)"OpenTTD", 0, MB_OK | MB_MOVEABLE | MB_ERROR);

   168

   169

	// terminate PM env.

   170

	WinDestroyMsgQueue(hmq);

   171

	WinTerminate(hab);

   172

}

   173

   174

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

   175

{

   176

	// change the working directory to enable doubleclicking in UIs

   177

	ChangeWorkingDirectory(argv[0]);

   178

   179

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

   180

   181

	return ttd_main(argc, argv);

   182

}

   183

   184

void DeterminePaths(void)

   185

{

   186

	char *s;

   187

   188

	_paths.game_data_dir = (char *)malloc(MAX_PATH);

   189

	ttd_strlcpy(_paths.game_data_dir, GAME_DATA_DIR, MAX_PATH);

   190

#if defined SECOND_DATA_DIR

   191

	_paths.second_data_dir = malloc(MAX_PATH);

   192

	ttd_strlcpy(_paths.second_data_dir, SECOND_DATA_DIR, MAX_PATH);

   193

#endif

   194

   195

#if defined(USE_HOMEDIR)

   196

	{

   197

		const char *homedir = getenv("HOME");

   198

   199

#ifndef __KLIBC__

   200

		if (homedir == NULL) {

   201

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

   202

			if (pw != NULL) homedir = pw->pw_dir;

   203

		}

   204

#endif

   205

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

   206

	}

   207

   208

#else /* not defined(USE_HOMEDIR) */

   209

   210

	_paths.personal_dir = (char *)malloc(MAX_PATH);

   211

	ttd_strlcpy(_paths.personal_dir, PERSONAL_DIR, MAX_PATH);

   212

   213

	// check if absolute or relative path

   214

	s = strchr(_paths.personal_dir, PATHSEPCHAR);

   215

   216

#ifndef __KLIBC__

   217

	// add absolute path

   218

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

   219

		getcwd(_paths.personal_dir, MAX_PATH);

   220

		s = strchr(_paths.personal_dir, 0);

   221

		*s++ = PATHSEPCHAR;

   222

		ttd_strlcpy(s, PERSONAL_DIR, MAX_PATH);

   223

	}

   224

#endif

   225

#endif /* defined(USE_HOMEDIR) */

   226

   227

	s = strchr(_paths.personal_dir, 0);

   228

   229

#ifndef __KLIBC__

   230

	// append a / ?

   231

	if (s[-1] != PATHSEPCHAR) strcpy(s, PATHSEP);

   232

#endif

   233

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

   234

	_paths.autosave_dir = str_fmt("%s" PATHSEP "autosave", _paths.save_dir);

   235

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

   236

	_paths.heightmap_dir = str_fmt("%sscenario" PATHSEP "heightmap", _paths.personal_dir);

   237

	_paths.gm_dir = str_fmt("%sgm" PATHSEP, _paths.game_data_dir);

   238

	_paths.data_dir = str_fmt("%sdata" PATHSEP, _paths.game_data_dir);

   239

   240

	if (_config_file == NULL)

   241

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

   242

   243

	_highscore_file = str_fmt("%shs.dat", _paths.personal_dir);

   244

	_log_file = str_fmt("%sopenttd.log", _paths.personal_dir);

   245

   246

#if defined CUSTOM_LANG_DIR

   247

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

   248

	_paths.lang_dir = malloc( MAX_PATH );

   249

	ttd_strlcpy( _paths.lang_dir, CUSTOM_LANG_DIR, MAX_PATH);

   250

#else

   251

	_paths.lang_dir = str_fmt("%slang" PATHSEP, _paths.game_data_dir);

   252

#endif

   253

   254

	// create necessary folders

   255

#ifndef __INNOTEK_LIBC__

   256

	mkdir(_paths.personal_dir);

   257

	mkdir(_paths.save_dir);

   258

	mkdir(_paths.autosave_dir);

   259

	mkdir(_paths.scenario_dir);

   260

	mkdir(_paths.heightmap_dir);

   261

#else

   262

	mkdir(_paths.personal_dir, 0755);

   263

	mkdir(_paths.save_dir, 0755);

   264

	mkdir(_paths.autosave_dir, 0755);

   265

	mkdir(_paths.scenario_dir, 0755);

   266

	mkdir(_paths.heightmap_dir, 0755);

   267

#endif

   268

}

   269

   270

/**

   271

 * Insert a chunk of text from the clipboard onto the textbuffer. Get TEXT clipboard

   272

 * and append this up to the maximum length (either absolute or screenlength). If maxlength

   273

 * is zero, we don't care about the screenlength but only about the physical length of the string

   274

 * @param tb @Textbuf type to be changed

   275

 * @return Return true on successfull change of Textbuf, or false otherwise

   276

 */

   277

bool InsertTextBufferClipboard(Textbuf *tb)

   278

{

   279

/* XXX -- Currently no clipboard support implemented with GCC */

   280

#ifndef __INNOTEK_LIBC__

   281

	HAB hab = 0;

   282

   283

	if (WinOpenClipbrd(hab))

   284

	{

   285

		const char* text = (const char*)WinQueryClipbrdData(hab, CF_TEXT);

   286

   287

		if (text != NULL)

   288

		{

   289

			uint length = 0;

   290

			uint width = 0;

   291

			const char* i;

   292

   293

			for (i = text; IsValidAsciiChar(*i); i++)

   294

			{

   295

				uint w;

   296

   297

				if (tb->length + length >= tb->maxlength - 1) break;

   298

   299

				w = GetCharacterWidth(FS_NORMAL, (byte)*i);

   300

				if (tb->maxwidth != 0 && width + tb->width + w > tb->maxwidth) break;

   301

   302

				width += w;

   303

				length++;

   304

			}

   305

   306

			memmove(tb->buf + tb->caretpos + length, tb->buf + tb->caretpos, tb->length - tb->caretpos + 1);

   307

			memcpy(tb->buf + tb->caretpos, text, length);

   308

			tb->width += width;

   309

			tb->caretxoffs += width;

   310

			tb->length += length;

   311

			tb->caretpos += length;

   312

   313

			WinCloseClipbrd(hab);

   314

			return true;

   315

		}

   316

   317

		WinCloseClipbrd(hab);

   318

	}

   319

#endif

   320

	return false;

   321

}

   322

   323

   324

void CSleep(int milliseconds)

   325

{

   326

#ifndef __INNOTEK_LIBC__

   327

 	delay(milliseconds);

   328

#else

   329

	usleep(milliseconds * 1000);

   330

#endif

   331

}

   332

   333

const char *FS2OTTD(const char *name) {return name;}

   334

const char *OTTD2FS(const char *name) {return name;}