1

/* $Id$ */

     2

     3

/** @file strings.cpp */

     4

     5

#include "stdafx.h"

     6

#include "openttd.h"

     7

#include "currency.h"

     8

#include "functions.h"

     9

#include "string.h"

    10

#include "strings.h"

    11

#include "table/strings.h"

    12

#include "namegen.h"

    13

#include "station.h"

    14

#include "town.h"

    15

#include "vehicle.h"

    16

#include "news.h"

    17

#include "screenshot.h"

    18

#include "waypoint.h"

    19

#include "industry.h"

    20

#include "variables.h"

    21

#include "newgrf_text.h"

    22

#include "table/control_codes.h"

    23

#include "music.h"

    24

#include "date.h"

    25

#include "industry.h"

    26

#include "fileio.h"

    27

#include "helpers.hpp"

    28

#include "cargotype.h"

    29

#include "group.h"

    30

#include "debug.h"

    31

#include "newgrf_townname.h"

    32

#include "signs.h"

    33

#include "vehicle.h"

    34

#include "newgrf_engine.h"

    35

    36

/* for opendir/readdir/closedir */

    37

# include "fios.h"

    38

    39

DynamicLanguages _dynlang;

    40

char _userstring[128];

    41

    42

static char *StationGetSpecialString(char *buff, int x, const char* last);

    43

static char *GetSpecialTownNameString(char *buff, int ind, uint32 seed, const char* last);

    44

static char *GetSpecialPlayerNameString(char *buff, int ind, const int64 *argv, const char* last);

    45

    46

static char *FormatString(char *buff, const char *str, const int64 *argv, uint casei, const char* last);

    47

    48

struct LanguagePack {

    49

	uint32 ident;       // 32-bits identifier

    50

	uint32 version;     // 32-bits of auto generated version info which is basically a hash of strings.h

    51

	char name[32];      // the international name of this language

    52

	char own_name[32];  // the localized name of this language

    53

	char isocode[16];   // the ISO code for the language (not country code)

    54

	uint16 offsets[32]; // the offsets

    55

	byte plural_form;   // how to compute plural forms

    56

	byte pad[3];        // pad header to be a multiple of 4

    57

	char data[VARARRAY_SIZE]; // list of strings

    58

};

    59

    60

static char **_langpack_offs;

    61

static LanguagePack *_langpack;

    62

static uint _langtab_num[32];   // Offset into langpack offs

    63

static uint _langtab_start[32]; // Offset into langpack offs

    64

    65

    66

/** Read an int64 from the argv array. */

    67

static inline int64 GetInt64(const int64 **argv)

    68

{

    69

	assert(argv);

    70

	return *(*argv)++;

    71

}

    72

    73

/** Read an int32 from the argv array. */

    74

static inline int32 GetInt32(const int64 **argv)

    75

{

    76

	return (int32)GetInt64(argv);

    77

}

    78

    79

/** Read an array from the argv array. */

    80

static inline const int64 *GetArgvPtr(const int64 **argv, int n)

    81

{

    82

	const int64 *result;

    83

	assert(*argv);

    84

	result = *argv;

    85

	(*argv) += n;

    86

	return result;

    87

}

    88

    89

    90

#define NUM_BOUND_STRINGS 8

    91

    92

/* Array to hold the bound strings. */

    93

static const char *_bound_strings[NUM_BOUND_STRINGS];

    94

    95

/* This index is used to implement a "round-robin" allocating of

    96

 * slots for BindCString. NUM_BOUND_STRINGS slots are reserved.

    97

 * Which means that after NUM_BOUND_STRINGS calls to BindCString,

    98

 * the indices will be reused. */

    99

static int _bind_index;

   100

   101

static const char *GetStringPtr(StringID string)

   102

{

   103

	return _langpack_offs[_langtab_start[string >> 11] + (string & 0x7FF)];

   104

}

   105

   106

/** The highest 8 bits of string contain the "case index".

   107

 * These 8 bits will only be set when FormatString wants to print

   108

 * the string in a different case. No one else except FormatString

   109

 * should set those bits, therefore string CANNOT be StringID, but uint32.

   110

 * @param buffr

   111

 * @param string

   112

 * @param argv

   113

 * @param last

   114

 * @return a formatted string of char

   115

 */

   116

static char *GetStringWithArgs(char *buffr, uint string, const int64 *argv, const char* last)

   117

{

   118

	uint index = GB(string,  0, 11);

   119

	uint tab   = GB(string, 11,  5);

   120

	char buff[512];

   121

   122

	if (GB(string, 0, 16) == 0) error("!invalid string id 0 in GetString");

   123

   124

	switch (tab) {

   125

		case 4:

   126

			if (index >= 0xC0)

   127

				return GetSpecialTownNameString(buffr, index - 0xC0, GetInt32(&argv), last);

   128

			break;

   129

   130

		case 14:

   131

			if (index >= 0xE4)

   132

				return GetSpecialPlayerNameString(buffr, index - 0xE4, argv, last);

   133

			break;

   134

   135

		case 15:

   136

			/* User defined name */

   137

			return GetName(buffr, index, last);

   138

   139

		case 26:

   140

			/* Include string within newgrf text (format code 81) */

   141

			if (HASBIT(index, 10)) {

   142

				StringID string = GetGRFStringID(0, 0xD000 + GB(index, 0, 10));

   143

				return GetStringWithArgs(buffr, string, argv, last);

   144

			}

   145

			break;

   146

   147

		case 28:

   148

			GetGRFString(buff, index, lastof(buff));

   149

			return FormatString(buffr, buff, argv, 0, last);

   150

   151

		case 29:

   152

			GetGRFString(buff, index + 0x800, lastof(buff));

   153

			return FormatString(buffr, buff, argv, 0, last);

   154

   155

		case 30:

   156

			GetGRFString(buff, index + 0x1000, lastof(buff));

   157

			return FormatString(buffr, buff, argv, 0, last);

   158

   159

		case 31:

   160

			/* dynamic strings. These are NOT to be passed through the formatter,

   161

			 * but passed through verbatim. */

   162

			if (index < (STR_SPEC_USERSTRING & 0x7FF)) {

   163

				return strecpy(buffr, _bound_strings[index], last);

   164

			}

   165

   166

			return FormatString(buffr, _userstring, NULL, 0, last);

   167

	}

   168

   169

	if (index >= _langtab_num[tab]) {

   170

		error(

   171

			"!String 0x%X is invalid. "

   172

			"Probably because an old version of the .lng file.\n", string

   173

		);

   174

	}

   175

   176

	return FormatString(buffr, GetStringPtr(GB(string, 0, 16)), argv, GB(string, 24, 8), last);

   177

}

   178

   179

char *GetString(char *buffr, StringID string, const char* last)

   180

{

   181

	return GetStringWithArgs(buffr, string, (int64*)_decode_parameters, last);

   182

}

   183

   184

   185

char *InlineString(char *buf, StringID string)

   186

{

   187

	buf += Utf8Encode(buf, SCC_STRING_ID);

   188

	buf += Utf8Encode(buf, string);

   189

	return buf;

   190

}

   191

   192

   193

/**

   194

 * This function takes a C-string and allocates a temporary string ID.

   195

 * The StringID of the bound string is valid until BindCString is called

   196

 * another NUM_BOUND_STRINGS times. So be careful when using it.

   197

 * @param str temp string to add

   198

 * @return the id of that temp string

   199

 * @note formatting a DATE_TINY calls BindCString twice, thus reduces the

   200

 *       amount of 'user' bound strings by 2.

   201

 * @todo rewrite the BindCString system to make the limit flexible and

   202

 *       non-round-robin. For example by using smart pointers that free

   203

 *       the allocated StringID when they go out-of-scope/are freed.

   204

 */

   205

StringID BindCString(const char *str)

   206

{

   207

	int idx = (++_bind_index) & (NUM_BOUND_STRINGS - 1);

   208

	_bound_strings[idx] = str;

   209

	return idx + STR_SPEC_DYNSTRING;

   210

}

   211

   212

/** This function is used to "bind" a C string to a OpenTTD dparam slot.

   213

 * @param n slot of the string

   214

 * @param str string to bind

   215

 */

   216

void SetDParamStr(uint n, const char *str)

   217

{

   218

	SetDParam(n, BindCString(str));

   219

}

   220

   221

void InjectDParam(int amount)

   222

{

   223

	memmove(_decode_parameters + amount, _decode_parameters, sizeof(_decode_parameters) - amount * sizeof(uint64));

   224

}

   225

   226

static const uint32 _divisor_table[] = {

   227

	1000000000,

   228

	100000000,

   229

	10000000,

   230

	1000000,

   231

   232

	100000,

   233

	10000,

   234

	1000,

   235

	100,

   236

	10,

   237

	1

   238

};

   239

   240

// TODO

   241

static char *FormatCommaNumber(char *buff, int32 number, const char* last)

   242

{

   243

	uint32 quot,divisor;

   244

	int i;

   245

	uint32 tot;

   246

	uint32 num;

   247

   248

	if (number < 0) {

   249

		*buff++ = '-';

   250

		number = -number;

   251

	}

   252

   253

	num = number;

   254

   255

	tot = 0;

   256

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

   257

		divisor = _divisor_table[i];

   258

		quot = 0;

   259

		if (num >= divisor) {

   260

			quot = num / _divisor_table[i];

   261

			num = num % _divisor_table[i];

   262

		}

   263

		if (tot |= quot || i == 9) {

   264

			*buff++ = '0' + quot;

   265

			if (i == 0 || i == 3 || i == 6) *buff++ = ',';

   266

		}

   267

	}

   268

   269

	*buff = '\0';

   270

   271

	return buff;

   272

}

   273

   274

// TODO

   275

static char *FormatNoCommaNumber(char *buff, int32 number, const char* last)

   276

{

   277

	uint32 quot,divisor;

   278

	int i;

   279

	uint32 tot;

   280

	uint32 num;

   281

   282

	if (number < 0) {

   283

		buff = strecpy(buff, "-", last);

   284

		number = -number;

   285

	}

   286

   287

	num = number;

   288

   289

	tot = 0;

   290

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

   291

		divisor = _divisor_table[i];

   292

		quot = 0;

   293

		if (num >= divisor) {

   294

			quot = num / _divisor_table[i];

   295

			num = num % _divisor_table[i];

   296

		}

   297

		if (tot |= quot || i == 9) {

   298

			*buff++ = '0' + quot;

   299

		}

   300

	}

   301

   302

	*buff = '\0';

   303

   304

	return buff;

   305

}

   306

   307

   308

static char *FormatYmdString(char *buff, Date date, const char* last)

   309

{

   310

	YearMonthDay ymd;

   311

	ConvertDateToYMD(date, &ymd);

   312

   313

	int64 args[3] = { ymd.day + STR_01AC_1ST - 1, STR_0162_JAN + ymd.month, ymd.year };

   314

	return FormatString(buff, GetStringPtr(STR_DATE_LONG), args, 0, last);

   315

}

   316

   317

static char *FormatMonthAndYear(char *buff, Date date, const char* last)

   318

{

   319

	YearMonthDay ymd;

   320

	ConvertDateToYMD(date, &ymd);

   321

   322

	int64 args[2] = { STR_MONTH_JAN + ymd.month, ymd.year };

   323

	return FormatString(buff, GetStringPtr(STR_DATE_SHORT), args, 0, last);

   324

}

   325

   326

static char *FormatTinyDate(char *buff, Date date, const char* last)

   327

{

   328

	YearMonthDay ymd;

   329

	ConvertDateToYMD(date, &ymd);

   330

   331

	char day[3];

   332

	char month[3];

   333

	/* We want to zero-pad the days and months */

   334

	snprintf(day,   lengthof(day),   "%02i", ymd.day);

   335

	snprintf(month, lengthof(month), "%02i", ymd.month + 1);

   336

   337

	int64 args[3] = { BindCString(day), BindCString(month), ymd.year };

   338

	return FormatString(buff, GetStringPtr(STR_DATE_TINY), args, 0, last);

   339

}

   340

   341

static char *FormatGenericCurrency(char *buff, const CurrencySpec *spec, Money number, bool compact, const char* last)

   342

{

   343

	const char* multiplier = "";

   344

	char buf[40];

   345

	char* p;

   346

	int j;

   347

   348

	/* Multiply by exchange rate, but do it safely. */

   349

	CommandCost cs(number);

   350

	cs.MultiplyCost(spec->rate);

   351

	number = cs.GetCost();

   352

   353

	/* convert from negative */

   354

	if (number < 0) {

   355

		buff = strecpy(buff, "-", last);

   356

		number = -number;

   357

	}

   358

   359

	/* Add prefix part, folowing symbol_pos specification.

   360

	 * Here, it can can be either 0 (prefix) or 2 (both prefix anf suffix).

   361

	 * The only remaining value is 1 (suffix), so everything that is not 1 */

   362

	if (spec->symbol_pos != 1) buff = strecpy(buff, spec->prefix, last);

   363

   364

	/* for huge numbers, compact the number into k or M */

   365

	if (compact) {

   366

		if (number >= 1000000000) {

   367

			number = (number + 500000) / 1000000;

   368

			multiplier = "M";

   369

		} else if (number >= 1000000) {

   370

			number = (number + 500) / 1000;

   371

			multiplier = "k";

   372

		}

   373

	}

   374

   375

	/* convert to ascii number and add commas */

   376

	p = endof(buf);

   377

	*--p = '\0';

   378

	j = 4;

   379

	do {

   380

		if (--j == 0) {

   381

			*--p = spec->separator;

   382

			j = 3;

   383

		}

   384

		*--p = '0' + number % 10;

   385

	} while ((number /= 10) != 0);

   386

	buff = strecpy(buff, p, last);

   387

   388

	buff = strecpy(buff, multiplier, last);

   389

   390

	/* Add suffix part, folowing symbol_pos specification.

   391

	 * Here, it can can be either 1 (suffix) or 2 (both prefix anf suffix).

   392

	 * The only remaining value is 1 (prefix), so everything that is not 0 */

   393

	if (spec->symbol_pos != 0) buff = strecpy(buff, spec->suffix, last);

   394

   395

	return buff;

   396

}

   397

   398

static int DeterminePluralForm(int32 n)

   399

{

   400

	/* The absolute value determines plurality */

   401

	if (n < 0) n = -n;

   402

   403

	switch (_langpack->plural_form) {

   404

	/* Two forms, singular used for one only

   405

	 * Used in:

   406

	 *   Danish, Dutch, English, German, Norwegian, Swedish, Estonian, Finnish,

   407

	 *   Greek, Hebrew, Italian, Portuguese, Spanish, Esperanto */

   408

	case 0:

   409

	default:

   410

		return n != 1;

   411

   412

	/* Only one form

   413

	 * Used in:

   414

	 *   Hungarian, Japanese, Korean, Turkish */

   415

	case 1:

   416

		return 0;

   417

   418

	/* Two forms, singular used for zero and one

   419

	 * Used in:

   420

	 *   French, Brazilian Portuguese */

   421

	case 2:

   422

		return n > 1;

   423

   424

	/* Three forms, special case for zero

   425

	 * Used in:

   426

	 *   Latvian */

   427

	case 3:

   428

		return n % 10 == 1 && n % 100 != 11 ? 0 : n != 0 ? 1 : 2;

   429

   430

	/* Three forms, special case for one and two

   431

	 * Used in:

   432

	 *   Gaelige (Irish) */

   433

	case 4:

   434

		return n == 1 ? 0 : n == 2 ? 1 : 2;

   435

   436

	/* Three forms, special case for numbers ending in 1[2-9]

   437

	 * Used in:

   438

	 *   Lithuanian */

   439

	case 5:

   440

		return n % 10 == 1 && n % 100 != 11 ? 0 : n % 10 >= 2 && (n % 100 < 10 || n % 100 >= 20) ? 1 : 2;

   441

   442

	/* Three forms, special cases for numbers ending in 1 and 2, 3, 4, except those ending in 1[1-4]

   443

	 * Used in:

   444

	 *   Croatian, Czech, Russian, Slovak, Ukrainian */

   445

	case 6:

   446

		return n % 10 == 1 && n % 100 != 11 ? 0 : n % 10 >= 2 && n % 10 <= 4 && (n % 100 < 10 || n % 100 >= 20) ? 1 : 2;

   447

   448

	/* Three forms, special case for one and some numbers ending in 2, 3, or 4

   449

	 * Used in:

   450

	 *   Polish */

   451

	case 7:

   452

		return n == 1 ? 0 : n % 10 >= 2 && n % 10 <= 4 && (n % 100 < 10 || n % 100 >= 20) ? 1 : 2;

   453

   454

	/* Four forms, special case for one and all numbers ending in 02, 03, or 04

   455

	 * Used in:

   456

	 *   Slovenian */

   457

	case 8:

   458

		return n % 100 == 1 ? 0 : n % 100 == 2 ? 1 : n % 100 == 3 || n % 100 == 4 ? 2 : 3;

   459

	}

   460

}

   461

   462

static const char *ParseStringChoice(const char *b, uint form, char *dst, int *dstlen)

   463

{

   464

	//<NUM> {Length of each string} {each string}

   465

	uint n = (byte)*b++;

   466

	uint pos, i, mylen = 0, mypos = 0;

   467

   468

	for (i = pos = 0; i != n; i++) {

   469

		uint len = (byte)*b++;

   470

		if (i == form) {

   471

			mypos = pos;

   472

			mylen = len;

   473

		}

   474

		pos += len;

   475

	}

   476

	*dstlen = mylen;

   477

	memcpy(dst, b + mypos, mylen);

   478

	return b + pos;

   479

}

   480

   481

struct Units {

   482

	int s_m;           ///< Multiplier for velocity

   483

	int s_s;           ///< Shift for velocity

   484

	StringID velocity; ///< String for velocity

   485

	int p_m;           ///< Multiplier for power

   486

	int p_s;           ///< Shift for power

   487

	StringID power;    ///< String for velocity

   488

	int w_m;           ///< Multiplier for weight

   489

	int w_s;           ///< Shift for weight