tron@2186: /* $Id$ */
tron@2186: 
darkvater@801: #include "stdafx.h"
Darkvater@1892: #include "openttd.h"
tron@2210: #include "hal.h"
orudge@2167: #include "variables.h"
tron@1317: #include "string.h"
darkvater@801: #include "table/strings.h"
orudge@1888: #include "gfx.h"
orudge@1888: #include "gui.h"
orudge@2167: #include "functions.h"
orudge@2167: #include "macros.h"
darkvater@801: 
darkvater@801: #include <direct.h>
darkvater@801: #include <unistd.h>
darkvater@801: #include <sys/stat.h>
orudge@1887: #include <stdlib.h>
darkvater@801: #include <time.h>
darkvater@801: #include <dos.h>
darkvater@801: 
truelight@818: #define INCL_WIN
celestar@1524: #define INCL_WINCLIPBOARD
truelight@810: 
darkvater@801: #include <os2.h>
darkvater@801: 
orudge@2167: #include <i86.h>
orudge@2167: 
orudge@1890: static inline int strcasecmp(const char* s1, const char* s2)
orudge@1890: {
orudge@1890: 	return stricmp(s1, s2);
orudge@1890: }
orudge@1890: 
darkvater@801: static char *_fios_path;
darkvater@801: static char *_fios_save_path;
darkvater@801: static char *_fios_scn_path;
darkvater@801: static FiosItem *_fios_items;
darkvater@801: static int _fios_count, _fios_alloc;
darkvater@801: 
tron@1486: static FiosItem *FiosAlloc(void)
darkvater@801: {
darkvater@801: 	if (_fios_count == _fios_alloc) {
darkvater@801: 		_fios_alloc += 256;
darkvater@801: 		_fios_items = realloc(_fios_items, _fios_alloc * sizeof(FiosItem));
darkvater@801: 	}
darkvater@801: 	return &_fios_items[_fios_count++];
darkvater@801: }
darkvater@801: 
tron@1486: int compare_FiosItems(const void *a, const void *b)
tron@1486: {
tron@1486: 	const FiosItem *da = (const FiosItem *)a;
tron@1486: 	const FiosItem *db = (const FiosItem *)b;
darkvater@801: 	int r;
darkvater@801: 
darkvater@801: 	if (_savegame_sort_order < 2) // sort by date
tron@1486: 		r = da->mtime < db->mtime ? -1 : 1;
darkvater@801: 	else
Darkvater@2099: 		r = strcasecmp(da->title, db->title);
darkvater@801: 
darkvater@801: 	if (_savegame_sort_order & 1) r = -r;
darkvater@801: 	return r;
darkvater@801: }
darkvater@801: 
darkvater@801: 
tron@1486: static void append_path(char *out, const char *path, const char *file)
truelight@810: {
tron@1486: 	if (path[2] == '\\' && path[3] == '\0')
truelight@810: 		sprintf(out, "%s%s", path, file);
truelight@810: 	else
truelight@810: 		sprintf(out, "%s\\%s", path, file);
truelight@810: }
truelight@810: 
darkvater@801: // Get a list of savegames
darkvater@801: FiosItem *FiosGetSavegameList(int *num, int mode)
darkvater@801: {
darkvater@801: 	FiosItem *fios;
darkvater@801: 	DIR *dir;
darkvater@801: 	struct dirent *dirent;
darkvater@801: 	struct stat sb;
darkvater@801: 	int sort_start;
darkvater@801: 	char filename[MAX_PATH];
darkvater@801: 
darkvater@801: 	if (_fios_save_path == NULL) {
darkvater@801: 		_fios_save_path = malloc(MAX_PATH);
darkvater@801: 		strcpy(_fios_save_path, _path.save_dir);
darkvater@801: 	}
darkvater@801: 
tron@2334: 	_fios_path = _fios_save_path;
darkvater@801: 
truelight@810: 	// Parent directory, only if not of the type C:\.
tron@1486: 	if (_fios_path[3] != '\0') {
darkvater@801: 		fios = FiosAlloc();
darkvater@801: 		fios->type = FIOS_TYPE_PARENT;
tron@1486: 		fios->mtime = 0;
tron@1572: 		strcpy(fios->name, "..");
truelight@810: 		strcpy(fios->title, ".. (Parent directory)");
darkvater@801: 	}
darkvater@801: 
darkvater@801: 	// Show subdirectories first
tron@2334: 	dir = opendir(_fios_path);
darkvater@801: 	if (dir != NULL) {
tron@1486: 		while ((dirent = readdir(dir)) != NULL) {
truelight@810: 			append_path(filename, _fios_path, dirent->d_name);
tron@1486: 			if (!stat(filename, &sb) && S_ISDIR(sb.st_mode) &&
matthijs@1817: 					strcmp(dirent->d_name, ".") != 0 &&
matthijs@1817: 					strcmp(dirent->d_name, "..") != 0) {
tron@1486: 				fios = FiosAlloc();
tron@1486: 				fios->type = FIOS_TYPE_DIR;
tron@1486: 				fios->mtime = 0;
tron@1486: 				ttd_strlcpy(fios->name, dirent->d_name, lengthof(fios->name));
Darkvater@2099: 				snprintf(fios->title, lengthof(fios->title), "%s\\ (Directory)", dirent->d_name);
darkvater@801: 			}
darkvater@801: 		}
darkvater@801: 		closedir(dir);
darkvater@801: 	}
darkvater@801: 
darkvater@801: 	{
darkvater@801: 		/* XXX ugly global variables ... */
darkvater@801: 		byte order = _savegame_sort_order;
darkvater@801: 		_savegame_sort_order = 2; // sort ascending by name
darkvater@801: 		qsort(_fios_items, _fios_count, sizeof(FiosItem), compare_FiosItems);
darkvater@801: 		_savegame_sort_order = order;
darkvater@801: 	}
darkvater@801: 
darkvater@801: 	// this is where to start sorting
darkvater@801: 	sort_start = _fios_count;
darkvater@801: 
tron@1486: 	/* Show savegame files
tron@1486: 	 * .SAV OpenTTD saved game
tron@1486: 	 * .SS1 Transport Tycoon Deluxe preset game
tron@1486: 	 * .SV1 Transport Tycoon Deluxe (Patch) saved game
tron@1486: 	 * .SV2 Transport Tycoon Deluxe (Patch) saved 2-player game
darkvater@801: 	 */
tron@2334: 	dir = opendir(_fios_path);
darkvater@801: 	if (dir != NULL) {
tron@1486: 		while ((dirent = readdir(dir)) != NULL) {
tron@1486: 			char *t;
tron@1486: 
truelight@810: 			append_path(filename, _fios_path, dirent->d_name);
tron@1486: 			if (stat(filename, &sb) || S_ISDIR(sb.st_mode)) continue;
tron@1486: 
tron@1486: 			t = strrchr(dirent->d_name, '.');
orudge@1890: 			if (t != NULL && strcasecmp(t, ".sav") == 0) { // OpenTTD
tron@1486: 				fios = FiosAlloc();
tron@1486: 				fios->type = FIOS_TYPE_FILE;
tron@1486: 				fios->mtime = sb.st_mtime;
tron@1486: 				ttd_strlcpy(fios->name, dirent->d_name, lengthof(fios->name));
Darkvater@2099: 
Darkvater@2099: 				*t = '\0'; // strip extension
Darkvater@2099: 				ttd_strlcpy(fios->title, dirent->d_name, lengthof(fios->title));
tron@1486: 			} else if (mode == SLD_LOAD_GAME || mode == SLD_LOAD_SCENARIO) {
tron@1486: 				if (t != NULL && (
orudge@1890: 							strcasecmp(t, ".ss1") == 0 ||
orudge@1890: 							strcasecmp(t, ".sv1") == 0 ||
orudge@1890: 							strcasecmp(t, ".sv2") == 0
tron@1486: 						)) { // TTDLX(Patch)
tron@1486: 					fios = FiosAlloc();
tron@1486: 					fios->type = FIOS_TYPE_OLDFILE;
tron@1486: 					fios->mtime = sb.st_mtime;
tron@1486: 					ttd_strlcpy(fios->name, dirent->d_name, lengthof(fios->name));
tron@1486: 					GetOldSaveGameName(fios->title, filename);
darkvater@801: 				}
darkvater@801: 			}
darkvater@801: 		}
darkvater@801: 		closedir(dir);
darkvater@801: 	}
darkvater@801: 
darkvater@801: 	qsort(_fios_items + sort_start, _fios_count - sort_start, sizeof(FiosItem), compare_FiosItems);
darkvater@801: 
darkvater@801: 	// Drives
darkvater@801: 	{
tron@1486: 		uint save;
tron@1486: 		uint disk;
tron@1486: 		uint total;
darkvater@801: 
darkvater@801: 		/* save original drive */
darkvater@801: 		_dos_getdrive(&save);
darkvater@801: 
darkvater@801: 		/* get available drive letters */
tron@2334: 		for (disk = 1; disk < 27; ++disk) {
tron@1486: 			uint disk2;
tron@1486: 
darkvater@801: 			_dos_setdrive(disk, &total);
darkvater@801: 			_dos_getdrive(&disk2);
tron@915: 
tron@2334: 			if (disk == disk2) {
darkvater@801: 				fios = FiosAlloc();
darkvater@801: 				fios->type = FIOS_TYPE_DRIVE;
tron@1580: 				sprintf(fios->name, "%c:", 'A' + disk - 1);
tron@1486: 				sprintf(fios->title, "%c:", 'A' + disk - 1);
darkvater@801: 			}
darkvater@801: 		}
darkvater@801: 
darkvater@801: 		_dos_setdrive(save, &total);
darkvater@801: 	}
darkvater@801: 
darkvater@801: 	*num = _fios_count;
darkvater@801: 	return _fios_items;
darkvater@801: }
darkvater@801: 
darkvater@801: // Get a list of scenarios
darkvater@801: FiosItem *FiosGetScenarioList(int *num, int mode)
darkvater@801: {
darkvater@801: 	FiosItem *fios;
darkvater@801: 	DIR *dir;
darkvater@801: 	struct dirent *dirent;
darkvater@801: 	struct stat sb;
darkvater@801: 	int sort_start;
darkvater@801: 	char filename[MAX_PATH];
darkvater@801: 
Darkvater@2099: 	if (_fios_scn_path == NULL) {
Darkvater@2099: 		_fios_scn_path = malloc(MAX_PATH);
darkvater@801: 		strcpy(_fios_scn_path, _path.scenario_dir);
darkvater@801: 	}
truelight@810: 
darkvater@801: 	_fios_path = _fios_scn_path;
darkvater@801: 
truelight@810: 	// Parent directory, only if not of the type C:\.
tron@1486: 	if (_fios_path[3] != '\0' && mode != SLD_NEW_GAME) {
truelight@810: 		fios = FiosAlloc();
truelight@810: 		fios->type = FIOS_TYPE_PARENT;
tron@1486: 		fios->mtime = 0;
truelight@810: 		strcpy(fios->title, ".. (Parent directory)");
truelight@810: 	}
truelight@810: 
darkvater@801: 	// Show subdirectories first
tron@2334: 	dir = opendir(_fios_path);
darkvater@801: 	if (dir != NULL) {
tron@1486: 		while ((dirent = readdir(dir)) != NULL) {
truelight@810: 			append_path(filename, _fios_path, dirent->d_name);
darkvater@1506: 			if (!stat(filename, &sb) && S_ISDIR(sb.st_mode) &&
matthijs@1817: 					strcmp(dirent->d_name, ".") != 0 &&
matthijs@1817: 					strcmp(dirent->d_name, "..") != 0) {
tron@1486: 				fios = FiosAlloc();
tron@1486: 				fios->type = FIOS_TYPE_DIR;
tron@1486: 				fios->mtime = 0;
tron@1486: 				ttd_strlcpy(fios->name, dirent->d_name, lengthof(fios->name));
Darkvater@2099: 				snprintf(fios->title, lengthof(fios->title), "%s\\ (Directory)", dirent->d_name);
darkvater@801: 			}
darkvater@801: 		}
darkvater@801: 		closedir(dir);
darkvater@801: 	}
darkvater@801: 
tron@2334: 	{
tron@2334: 		/* XXX ugly global variables ... */
tron@2334: 		byte order = _savegame_sort_order;
tron@2334: 		_savegame_sort_order = 2; // sort ascending by name
tron@2334: 		qsort(_fios_items, _fios_count, sizeof(FiosItem), compare_FiosItems);
tron@2334: 		_savegame_sort_order = order;
tron@2334: 	}
tron@2334: 
darkvater@801: 	// this is where to start sorting
darkvater@801: 	sort_start = _fios_count;
darkvater@801: 
tron@1486: 	/* Show scenario files
tron@1486: 	 * .SCN OpenTTD style scenario file
tron@1486: 	 * .SV0 Transport Tycoon Deluxe (Patch) scenario
tron@1486: 	 * .SS0 Transport Tycoon Deluxe preset scenario
darkvater@801: 	 */
tron@2334: 	dir = opendir(_fios_path);
darkvater@801: 	if (dir != NULL) {
tron@1486: 		while ((dirent = readdir(dir)) != NULL) {
tron@1486: 			char *t;
tron@1486: 
truelight@810: 			append_path(filename, _fios_path, dirent->d_name);
tron@1486: 			if (stat(filename, &sb) || S_ISDIR(sb.st_mode)) continue;
tron@1486: 
tron@1486: 			t = strrchr(dirent->d_name, '.');
orudge@1890: 			if (t != NULL && strcasecmp(t, ".scn") == 0) { // OpenTTD
tron@1486: 				fios = FiosAlloc();
tron@1486: 				fios->type = FIOS_TYPE_SCENARIO;
tron@1486: 				fios->mtime = sb.st_mtime;
tron@1486: 				ttd_strlcpy(fios->name, dirent->d_name, lengthof(fios->name));
Darkvater@2099: 
Darkvater@2099: 				*t = '\0'; // strip extension
Darkvater@2099: 				ttd_strlcpy(fios->title, dirent->d_name, lengthof(fios->title));
tron@1486: 			} else if (mode == SLD_LOAD_GAME || mode == SLD_LOAD_SCENARIO ||
tron@1486: 					mode == SLD_NEW_GAME) {
tron@1486: 				if (t != NULL && (
orudge@1890: 							strcasecmp(t, ".sv0") == 0 ||
orudge@1890: 							strcasecmp(t, ".ss0") == 0
tron@1486: 						)) { // TTDLX(Patch)
tron@1486: 					fios = FiosAlloc();
tron@1486: 					fios->type = FIOS_TYPE_OLD_SCENARIO;
tron@1486: 					fios->mtime = sb.st_mtime;
tron@1486: 					GetOldScenarioGameName(fios->title, filename);
tron@1486: 					ttd_strlcpy(fios->name, dirent->d_name, lengthof(fios->name));
darkvater@801: 				}
darkvater@801: 			}
darkvater@801: 		}
darkvater@801: 		closedir(dir);
darkvater@801: 	}
darkvater@801: 
darkvater@801: 	qsort(_fios_items + sort_start, _fios_count - sort_start, sizeof(FiosItem), compare_FiosItems);
darkvater@801: 
darkvater@801: 	// Drives
tron@2334: 	if (mode != SLD_NEW_GAME) {
darkvater@801: 		unsigned save, disk, disk2, total;
darkvater@801: 
darkvater@801: 		/* save original drive */
darkvater@801: 		_dos_getdrive(&save);
darkvater@801: 
darkvater@801: 		/* get available drive letters */
darkvater@801: 
tron@2334: 		for (disk = 1; disk < 27; ++disk) {
darkvater@801: 			_dos_setdrive(disk, &total);
darkvater@801: 			_dos_getdrive(&disk2);
tron@915: 
tron@2334: 			if (disk == disk2) {
darkvater@801: 				fios = FiosAlloc();
darkvater@801: 				fios->type = FIOS_TYPE_DRIVE;
tron@1580: 				sprintf(fios->name, "%c:", 'A' + disk - 1);
tron@1580: 				sprintf(fios->title, "%c:", 'A' + disk - 1);
darkvater@801: 			}
darkvater@801: 		}
darkvater@801: 
darkvater@801: 		_dos_setdrive(save, &total);
darkvater@801: 	}
darkvater@801: 
darkvater@801: 	*num = _fios_count;
darkvater@801: 	return _fios_items;
darkvater@801: }
darkvater@801: 
darkvater@801: 
darkvater@801: // Free the list of savegames
tron@1486: void FiosFreeSavegameList(void)
darkvater@801: {
darkvater@801: 	free(_fios_items);
darkvater@801: 	_fios_items = NULL;
darkvater@801: 	_fios_alloc = _fios_count = 0;
darkvater@801: }
darkvater@801: 
darkvater@801: // Browse to
darkvater@801: char *FiosBrowseTo(const FiosItem *item)
darkvater@801: {
darkvater@801: 	char *path = _fios_path;
darkvater@801: 	char *s;
darkvater@801: 
tron@1486: 	switch (item->type) {
tron@1486: 		case FIOS_TYPE_DRIVE:
tron@1486: 			sprintf(path, "%c:\\", item->title[0]);
tron@1486: 			break;
darkvater@801: 
tron@1486: 		case FIOS_TYPE_PARENT:
tron@1486: 			s = strrchr(path, '\\');
tron@2334: 			if (s != path + 2)
tron@2334: 				s[0] = '\0';
tron@2334: 			else
tron@2334: 				s[1] = '\0';
tron@1486: 			break;
darkvater@801: 
tron@1486: 		case FIOS_TYPE_DIR:
tron@2334: 			if (path[3] != '\0') strcat(path, "\\");
tron@1486: 			strcat(path, item->name);
tron@1486: 			break;
darkvater@801: 
tron@1486: 		case FIOS_TYPE_FILE:
tron@1486: 		case FIOS_TYPE_OLDFILE:
tron@1486: 		case FIOS_TYPE_SCENARIO:
tron@1486: 		case FIOS_TYPE_OLD_SCENARIO: {
tron@1486: 			static char str_buffr[512];
darkvater@801: 
tron@1486: 			sprintf(str_buffr, "%s\\%s", path, item->name);
tron@1486: 			return str_buffr;
tron@1486: 		}
darkvater@801: 	}
darkvater@801: 
darkvater@801: 	return NULL;
darkvater@801: }
darkvater@801: 
darkvater@1596: /**
darkvater@1596:  * Get descriptive texts. Returns the path and free space
darkvater@1596:  * left on the device
darkvater@1596:  * @param path string describing the path
darkvater@1596:  * @param tfs total free space in megabytes, optional (can be NULL)
darkvater@1596:  * @return StringID describing the path (free space or failure)
darkvater@1596:  */
darkvater@1596: StringID FiosGetDescText(const char **path, uint32 *tot)
darkvater@801: {
darkvater@801: 	struct diskfree_t free;
darkvater@801: 	char drive;
tron@915: 
truelight@810: 	*path = _fios_path;
tron@1486: 	drive = *path[0] - 'A' + 1;
darkvater@801: 
darkvater@1596: 	if (tot != NULL && _getdiskfree(drive, &free) == 0) {
darkvater@1596: 		*tot = free.avail_clusters * free.sectors_per_cluster * free.bytes_per_sector;
darkvater@1596: 		return STR_4005_BYTES_FREE;
darkvater@1596: 	}
truelight@810: 
darkvater@1596: 	return STR_4006_UNABLE_TO_READ_DRIVE;
darkvater@801: }
darkvater@801: 
darkvater@801: void FiosMakeSavegameName(char *buf, const char *name)
darkvater@801: {
tron@1508: 	const char* extension;
tron@1508: 	const char* period;
tron@1508: 
tron@1486: 	if (_game_mode == GM_EDITOR)
tron@1508: 		extension = ".scn";
darkvater@801: 	else
tron@1508: 		extension = ".sav";
tron@1508: 
tron@1508: 	// Don't append the extension, if it is already there
tron@1508: 	period = strrchr(name, '.');
orudge@1890: 	if (period != NULL && strcasecmp(period, extension) == 0) extension = "";
tron@1508: 
tron@1508: 	sprintf(buf, "%s\\%s%s", _fios_path, name, extension);
darkvater@801: }
darkvater@801: 
tron@2255: bool FiosDelete(const char *name)
darkvater@801: {
tron@1336: 	char path[512];
tron@1336: 
tron@1495: 	snprintf(path, lengthof(path), "%s\\%s", _fios_path, name);
tron@2255: 	return unlink(path) == 0;
darkvater@801: }
darkvater@801: 
darkvater@801: bool FileExists(const char *filename)
darkvater@801: {
darkvater@801: 	return access(filename, 0) == 0;
darkvater@801: }
darkvater@801: 
darkvater@801: static int LanguageCompareFunc(const void *a, const void *b)
darkvater@801: {
darkvater@801: 	return strcmp(*(const char* const *)a, *(const char* const *)b);
darkvater@801: }
darkvater@801: 
darkvater@801: int GetLanguageList(char **languages, int max)
darkvater@801: {
darkvater@801: 	DIR *dir;
darkvater@801: 	struct dirent *dirent;
darkvater@801: 	int num = 0;
darkvater@801: 
darkvater@801: 	dir = opendir(_path.lang_dir);
darkvater@801: 	if (dir != NULL) {
tron@2334: 		while ((dirent = readdir(dir)) != NULL) {
darkvater@801: 			char *t = strrchr(dirent->d_name, '.');
tron@2334: 
tron@2334: 			if (t != NULL && strcmp(t, ".lng") == 0) {
darkvater@801: 				languages[num++] = strdup(dirent->d_name);
darkvater@801: 				if (num == max) break;
darkvater@801: 			}
darkvater@801: 		}
darkvater@801: 		closedir(dir);
darkvater@801: 	}
darkvater@801: 
darkvater@801: 	qsort(languages, num, sizeof(char*), LanguageCompareFunc);
darkvater@801: 	return num;
darkvater@801: }
darkvater@801: 
darkvater@801: static void ChangeWorkingDirectory(char *exe)
darkvater@801: {
darkvater@801: 	char *s = strrchr(exe, '\\');
darkvater@801: 	if (s != NULL) {
tron@1486: 		*s = '\0';
darkvater@801: 		chdir(exe);
darkvater@801: 		*s = '\\';
darkvater@801: 	}
darkvater@801: }
darkvater@801: 
darkvater@801: void ShowInfo(const char *str)
darkvater@801: {
truelight@818: 	HAB hab;
truelight@818: 	HMQ hmq;
truelight@818: 	ULONG rc;
tron@915: 
truelight@818: 	// init PM env.
truelight@818: 	hmq = WinCreateMsgQueue((hab = WinInitialize(0)), 0);
truelight@818: 
truelight@818: 	// display the box
truelight@818: 	rc = WinMessageBox(HWND_DESKTOP, HWND_DESKTOP, str, "OpenTTD", 0, MB_OK | MB_MOVEABLE | MB_INFORMATION);
truelight@818: 
truelight@818: 	// terminate PM env.
truelight@818: 	WinDestroyMsgQueue(hmq);
truelight@818: 	WinTerminate(hab);
darkvater@801: }
darkvater@801: 
darkvater@801: void ShowOSErrorBox(const char *buf)
darkvater@801: {
truelight@818: 	HAB hab;
truelight@818: 	HMQ hmq;
truelight@818: 	ULONG rc;
tron@915: 
truelight@818: 	// init PM env.
truelight@818: 	hmq = WinCreateMsgQueue((hab = WinInitialize(0)), 0);
truelight@818: 
truelight@818: 	// display the box
truelight@818: 	rc = WinMessageBox(HWND_DESKTOP, HWND_DESKTOP, buf, "OpenTTD", 0, MB_OK | MB_MOVEABLE | MB_ERROR);
truelight@818: 
truelight@818: 	// terminate PM env.
truelight@818: 	WinDestroyMsgQueue(hmq);
truelight@818: 	WinTerminate(hab);
darkvater@801: }
darkvater@801: 
darkvater@801: int CDECL main(int argc, char* argv[])
darkvater@801: {
darkvater@801: 	// change the working directory to enable doubleclicking in UIs
darkvater@801: 	ChangeWorkingDirectory(argv[0]);
darkvater@801: 
darkvater@801: 	_random_seeds[0][1] = _random_seeds[0][0] = time(NULL);
darkvater@801: 
darkvater@801: 
darkvater@801: 	return ttd_main(argc, argv);
darkvater@801: }
darkvater@801: 
Darkvater@1390: void DeterminePaths(void)
darkvater@801: {
darkvater@801: 	char *s;
darkvater@801: 
tron@1486: 	_path.game_data_dir = malloc(MAX_PATH);
darkvater@801: 	ttd_strlcpy(_path.game_data_dir, GAME_DATA_DIR, MAX_PATH);
darkvater@801: 	#if defined SECOND_DATA_DIR
tron@1486: 	_path.second_data_dir = malloc(MAX_PATH);
tron@1486: 	ttd_strlcpy(_path.second_data_dir, SECOND_DATA_DIR, MAX_PATH);
darkvater@801: 	#endif
darkvater@801: 
darkvater@801: #if defined(USE_HOMEDIR)
darkvater@801: 	{
tron@1486: 		const char *homedir = getenv("HOME");
darkvater@801: 
tron@1486: 		if (homedir == NULL) {
tron@1486: 			const struct passwd *pw = getpwuid(getuid());
tron@1486: 			if (pw != NULL) homedir = pw->pw_dir;
darkvater@801: 		}
darkvater@801: 
darkvater@801: 		_path.personal_dir = str_fmt("%s" PATHSEP "%s", homedir, PERSONAL_DIR);
darkvater@801: 	}
darkvater@801: 
darkvater@801: #else /* not defined(USE_HOMEDIR) */
darkvater@801: 
tron@1486: 	_path.personal_dir = malloc(MAX_PATH);
darkvater@801: 	ttd_strlcpy(_path.personal_dir, PERSONAL_DIR, MAX_PATH);
darkvater@801: 
darkvater@801: 	// check if absolute or relative path
darkvater@801: 	s = strchr(_path.personal_dir, '\\');
darkvater@801: 
darkvater@801: 	// add absolute path
tron@1486: 	if (s == NULL || _path.personal_dir != s) {
darkvater@801: 		getcwd(_path.personal_dir, MAX_PATH);
darkvater@801: 		s = strchr(_path.personal_dir, 0);
darkvater@801: 		*s++ = '\\';
darkvater@801: 		ttd_strlcpy(s, PERSONAL_DIR, MAX_PATH);
darkvater@801: 	}
darkvater@801: 
darkvater@801: #endif /* defined(USE_HOMEDIR) */
darkvater@801: 
darkvater@801: 	s = strchr(_path.personal_dir, 0);
darkvater@801: 
darkvater@801: 	// append a / ?
tron@1486: 	if (s[-1] != '\\') strcpy(s, "\\");
darkvater@801: 
darkvater@801: 	_path.save_dir = str_fmt("%ssave", _path.personal_dir);
darkvater@801: 	_path.autosave_dir = str_fmt("%s\\autosave", _path.save_dir);
darkvater@801: 	_path.scenario_dir = str_fmt("%sscenario", _path.personal_dir);
darkvater@801: 	_path.gm_dir = str_fmt("%sgm\\", _path.game_data_dir);
darkvater@801: 	_path.data_dir = str_fmt("%sdata\\", _path.game_data_dir);
Darkvater@1482: 
Darkvater@1482: 	if (_config_file == NULL)
Darkvater@1482: 		_config_file = str_fmt("%sopenttd.cfg", _path.personal_dir);
tron@915: 
tron@1486: 	_highscore_file = str_fmt("%shs.dat", _path.personal_dir);
tron@1486: 	_log_file = str_fmt("%sopenttd.log", _path.personal_dir);
tron@1486: 
darkvater@801: #if defined CUSTOM_LANG_DIR
darkvater@801: 	// sets the search path for lng files to the custom one
darkvater@801: 	_path.lang_dir = malloc( MAX_PATH );
darkvater@801: 	ttd_strlcpy( _path.lang_dir, CUSTOM_LANG_DIR, MAX_PATH);
darkvater@801: #else
darkvater@801: 	_path.lang_dir = str_fmt("%slang\\", _path.game_data_dir);
darkvater@801: #endif
darkvater@801: 
darkvater@801: 	// create necessary folders
darkvater@801: 	mkdir(_path.personal_dir);
darkvater@801: 	mkdir(_path.save_dir);
darkvater@801: 	mkdir(_path.autosave_dir);
darkvater@801: 	mkdir(_path.scenario_dir);
darkvater@801: }
darkvater@801: 
orudge@1888: /**
orudge@1888:  * Insert a chunk of text from the clipboard onto the textbuffer. Get TEXT clipboard
orudge@1888:  * and append this up to the maximum length (either absolute or screenlength). If maxlength
orudge@1888:  * is zero, we don't care about the screenlength but only about the physical length of the string
orudge@1888:  * @param tb @Textbuf type to be changed
orudge@1888:  * @return Return true on successfull change of Textbuf, or false otherwise
orudge@1888:  */
tron@1486: bool InsertTextBufferClipboard(Textbuf *tb)
tron@1486: {
orudge@1893: 	HAB hab = 0;
celestar@1524: 
celestar@1524: 	if (WinOpenClipbrd(hab))
celestar@1524: 	{
orudge@1893: 		const char* text = (const char*)WinQueryClipbrdData(hab, CF_TEXT);
orudge@1893: 
orudge@1893: 		if (text != NULL)
orudge@1893: 		{
orudge@1893: 			uint length = 0;
orudge@1893: 			uint width = 0;
orudge@1893: 			const char* i;
orudge@1893: 
orudge@1893: 			for (i = text; IsValidAsciiChar(*i); i++)
orudge@1893: 			{
orudge@1893: 				uint w;
orudge@1893: 
orudge@1893: 				if (tb->length + length >= tb->maxlength - 1) break;
orudge@1893: 
orudge@1893: 				w = GetCharacterWidth((byte)*i);
orudge@1893: 				if (tb->maxwidth != 0 && width + tb->width + w > tb->maxwidth) break;
orudge@1893: 
orudge@1893: 				width += w;
orudge@1893: 				length++;
orudge@1893: 			}
orudge@1893: 
orudge@1893: 			memmove(tb->buf + tb->caretpos + length, tb->buf + tb->caretpos, tb->length - tb->caretpos + 1);
orudge@1893: 			memcpy(tb->buf + tb->caretpos, text, length);
orudge@1893: 			tb->width += width;
orudge@1893: 			tb->caretxoffs += width;
orudge@1893: 			tb->length += length;
orudge@1893: 			tb->caretpos += length;
orudge@1893: 
orudge@1893: 			WinCloseClipbrd(hab);
orudge@1893: 			return true;
orudge@1893: 		}
orudge@1888: 
celestar@1524: 		WinCloseClipbrd(hab);
celestar@1524: 	}
celestar@1524: 
orudge@1893: 	return false;
tron@1486: }
orudge@1887: 
orudge@2167: 
orudge@2167: void CSleep(int milliseconds)
orudge@2167: {
orudge@2167: 	delay(milliseconds);
orudge@2167: }
orudge@2167: