1

/* $Id$ */

     2

     3

#include "stdafx.h"

     4

#include "openttd.h"

     5

#include "currency.h"

     6

#include "functions.h"

     7

#include "string.h"

     8

#include "strings.h"

     9

#include "table/strings.h"

    10

#include "namegen.h"

    11

#include "station.h"

    12

#include "town.h"

    13

#include "vehicle.h"

    14

#include "news.h"

    15

#include "screenshot.h"

    16

#include "waypoint.h"

    17

#include "industry.h"

    18

#include "variables.h"

    19

    20

char _userstring[128];

    21

    22

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

    23

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

    24

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

    25

    26

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

    27

    28

extern const char _openttd_revision[];

    29

    30

typedef struct LanguagePack {

    31

	uint32 ident;

    32

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

    33

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

    34

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

    35

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

    36

	uint16 offsets[32];	// the offsets

    37

	byte plural_form;		// how to compute plural forms

    38

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

    39

	char data[VARARRAY_SIZE];

    40

} LanguagePack;

    41

    42

static char **_langpack_offs;

    43

static LanguagePack *_langpack;

    44

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

    45

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

    46

    47

static const StringID _cargo_string_list[NUM_LANDSCAPE][NUM_CARGO] = {

    48

	{ /* LT_NORMAL */

    49

		STR_PASSENGERS,

    50

		STR_TONS,

    51

		STR_BAGS,

    52

		STR_LITERS,

    53

		STR_ITEMS,

    54

		STR_CRATES,

    55

		STR_TONS,

    56

		STR_TONS,

    57

		STR_TONS,

    58

		STR_TONS,

    59

		STR_BAGS,

    60

		STR_RES_OTHER

    61

	},

    62

    63

	{ /* LT_HILLY */

    64

		STR_PASSENGERS,

    65

		STR_TONS,

    66

		STR_BAGS,

    67

		STR_LITERS,

    68

		STR_ITEMS,

    69

		STR_CRATES,

    70

		STR_TONS,

    71

		STR_TONS,

    72

		STR_RES_OTHER,

    73

		STR_TONS,

    74

		STR_BAGS,

    75

		STR_TONS

    76

	},

    77

    78

	{ /* LT_DESERT */

    79

		STR_PASSENGERS,

    80

		STR_LITERS,

    81

		STR_BAGS,

    82

		STR_LITERS,

    83

		STR_TONS,

    84

		STR_CRATES,

    85

		STR_TONS,

    86

		STR_TONS,

    87

		STR_TONS,

    88

		STR_LITERS,

    89

		STR_BAGS,

    90

		STR_TONS

    91

	},

    92

    93

	{ /* LT_CANDY */

    94

		STR_PASSENGERS,

    95

		STR_TONS,

    96

		STR_BAGS,

    97

		STR_NOTHING,

    98

		STR_NOTHING,

    99

		STR_TONS,

   100

		STR_TONS,

   101

		STR_LITERS,

   102

		STR_TONS,

   103

		STR_NOTHING,

   104

		STR_LITERS,

   105

		STR_NOTHING

   106

	}

   107

};

   108

   109

   110

// Read an int64 from the argv array.

   111

static inline int64 GetInt64(const int32 **argv)

   112

{

   113

	int64 result;

   114

   115

	assert(argv);

   116

	result = (uint32)(*argv)[0] + ((uint64)(uint32)(*argv)[1] << 32);

   117

	(*argv)+=2;

   118

	return result;

   119

}

   120

   121

// Read an int32 from the argv array.

   122

static inline int32 GetInt32(const int32 **argv)

   123

{

   124

	assert(argv);

   125

	return *(*argv)++;

   126

}

   127

   128

// Read an array from the argv array.

   129

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

   130

{

   131

	const int32 *result;

   132

	assert(*argv);

   133

	result = *argv;

   134

	(*argv) += n;

   135

	return result;

   136

}

   137

   138

   139

#define NUM_BOUND_STRINGS 8

   140

   141

// Array to hold the bound strings.

   142

static const char *_bound_strings[NUM_BOUND_STRINGS];

   143

   144

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

   145

// slots for BindCString. NUM_BOUND_STRINGS slots are reserved.

   146

// Which means that after NUM_BOUND_STRINGS calls to BindCString,

   147

// the indices will be reused.

   148

static int _bind_index;

   149

   150

static const char *GetStringPtr(StringID string)

   151

{

   152

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

   153

}

   154

   155

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

   156

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

   157

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

   158

// should set those bits.

   159

char *GetStringWithArgs(char *buffr, uint string, const int32 *argv)

   160

{

   161

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

   162

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

   163

   164

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

   165

   166

	switch (tab) {

   167

		case 4:

   168

			if (index >= 0xC0)

   169

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

   170

			break;

   171

   172

		case 14:

   173

			if (index >= 0xE4)

   174

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

   175

			break;

   176

   177

		// User defined name

   178

		case 15:

   179

			return GetName(index, buffr);

   180

   181

		case 31:

   182

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

   183

			// but passed through verbatim.

   184

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

   185

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

   186

			}

   187

   188

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

   189

	}

   190

   191

	if (index >= _langtab_num[tab]) {

   192

		error(

   193

			"!String 0x%X is invalid. "

   194

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

   195

		);

   196

	}

   197

   198

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

   199

}

   200

   201

char *GetString(char *buffr, StringID string)

   202

{

   203

	return GetStringWithArgs(buffr, string, (int32*)_decode_parameters);

   204

}

   205

   206

   207

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

   208

// The duration of the bound string is valid only until the next GetString,

   209

// so be careful.

   210

StringID BindCString(const char *str)

   211

{

   212

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

   213

	_bound_strings[idx] = str;

   214

	return idx + STR_SPEC_DYNSTRING;

   215

}

   216

   217

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

   218

void SetDParamStr(uint n, const char *str)

   219

{

   220

	SetDParam(n, BindCString(str));

   221

}

   222

   223

void InjectDParam(int amount)

   224

{

   225

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

   226

}

   227

   228

static const uint32 _divisor_table[] = {

   229

	1000000000,

   230

	100000000,

   231

	10000000,

   232

	1000000,

   233

   234

	100000,

   235

	10000,

   236

	1000,

   237

	100,

   238

	10,

   239

	1

   240

};

   241

   242

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

   243

{

   244

	uint32 quot,divisor;

   245

	int i;

   246

	uint32 tot;

   247

	uint32 num;

   248

   249

	if (number < 0) {

   250

		*buff++ = '-';

   251

		number = -number;

   252

	}

   253

   254

	num = number;

   255

   256

	tot = 0;

   257

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

   258

		divisor = _divisor_table[i];

   259

		quot = 0;

   260

		if (num >= divisor) {

   261

			quot = num / _divisor_table[i];

   262

			num = num % _divisor_table[i];

   263

		}

   264

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

   265

			*buff++ = '0' + quot;

   266

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

   267

		}

   268

	}

   269

   270

	*buff = '\0';

   271

   272

	return buff;

   273

}

   274

   275

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

   276

{

   277

	uint32 quot,divisor;

   278

	int i;

   279

	uint32 tot;

   280

	uint32 num;

   281

   282

	if (number < 0) {

   283

		*buff++ = '-';

   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, uint16 number)

   309

{

   310

	const char *src;

   311

	YearMonthDay ymd;

   312

   313

	ConvertDayToYMD(&ymd, number);

   314

   315

	for (src = GetStringPtr(ymd.day + STR_01AC_1ST - 1); (*buff++ = *src++) != '\0';) {}

   316

   317

	buff[-1] = ' ';

   318

	memcpy(buff, GetStringPtr(STR_0162_JAN + ymd.month), 4);

   319

	buff[3] = ' ';

   320

   321

	return FormatNoCommaNumber(buff + 4, ymd.year + MAX_YEAR_BEGIN_REAL);

   322

}

   323

   324

static char *FormatMonthAndYear(char *buff, uint16 number)

   325

{

   326

	const char *src;

   327

	YearMonthDay ymd;

   328

   329

	ConvertDayToYMD(&ymd, number);

   330

   331

	for (src = GetStringPtr(STR_MONTH_JAN + ymd.month); (*buff++ = *src++) != '\0';) {}

   332

	buff[-1] = ' ';

   333

   334

	return FormatNoCommaNumber(buff, ymd.year + MAX_YEAR_BEGIN_REAL);

   335

}

   336

   337

static char *FormatTinyDate(char *buff, uint16 number)

   338

{

   339

	YearMonthDay ymd;

   340

   341

	ConvertDayToYMD(&ymd, number);

   342

	buff += sprintf(buff, " %02i-%02i-%04i", ymd.day, ymd.month + 1, ymd.year + MAX_YEAR_BEGIN_REAL);

   343

   344

	return buff;

   345

}

   346

   347

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

   348

{

   349

	const char *s;

   350

	char c;

   351

	char buf[40], *p;

   352

	int j;

   353

   354

	// multiply by exchange rate

   355

	number *= spec->rate;

   356

   357

	// convert from negative

   358

	if (number < 0) {

   359

		*buff++ = '-';

   360

		number = -number;

   361

	}

   362

   363

	// add prefix part

   364

	s = spec->prefix;

   365

	while (s != spec->prefix + lengthof(spec->prefix) && (c = *s++) != '\0') *buff++ = c;

   366

   367

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

   368

	if (compact) {

   369

		compact = 0;

   370

		if (number >= 1000000000) {

   371

			number = (number + 500000) / 1000000;

   372

			compact = 'M';

   373

		} else if (number >= 1000000) {

   374

			number = (number + 500) / 1000;

   375

			compact = 'k';

   376

		}

   377

	}

   378

   379

	// convert to ascii number and add commas

   380

	p = buf;

   381

	j = 4;

   382

	do {

   383

		if (--j == 0) {

   384

			*p++ = spec->separator;

   385

			j = 3;

   386

		}

   387

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

   388

	} while (number /= 10);

   389

	do *buff++ = *--p; while (p != buf);

   390

   391

	if (compact) *buff++ = compact;

   392

   393

	// add suffix part

   394

	s = spec->suffix;

   395

	while (s != spec->suffix + lengthof(spec->suffix) && (c = *s++) != '\0') *buff++ = c;

   396

   397

	return buff;

   398

}

   399

   400

static int DeterminePluralForm(int32 n)

   401

{

   402

	// The absolute value determines plurality

   403

	if (n < 0) n = -n;

   404

   405

	switch (_langpack->plural_form) {

   406

	// Two forms, singular used for one only

   407

	// Used in:

   408

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

   409

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

   410

	case 0:

   411

	default:

   412

		return n != 1;

   413

   414

	// Only one form

   415

	// Used in:

   416

	//   Hungarian, Japanese, Korean, Turkish

   417

	case 1:

   418

		return 0;

   419

   420

	// Two forms, singular used for zero and one

   421

	// Used in:

   422

	//   French, Brazilian Portuguese

   423

	case 2:

   424

		return n > 1;

   425

   426

	// Three forms, special case for zero

   427

	// Used in:

   428

	//   Latvian

   429

	case 3:

   430

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

   431

   432

	// Three forms, special case for one and two

   433

	// Used in:

   434

	//   Gaelige (Irish)

   435

	case 4:

   436

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

   437

   438

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

   439

	// Used in:

   440

	//   Lithuanian

   441

	case 5:

   442

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

   443

   444

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

   445

	// Used in:

   446

	//   Croatian, Czech, Russian, Slovak, Ukrainian

   447

	case 6:

   448

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

   449

   450

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

   451

	// Used in:

   452

	//   Polish

   453

	case 7:

   454

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

   455

   456

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

   457

	// Used in:

   458

	//   Slovenian

   459

	case 8:

   460

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

   461

	}

   462

}

   463

   464

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

   465

{

   466

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

   467

	uint n = (byte)*b++;

   468

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

   469

   470

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

   471

		uint len = (byte)*b++;

   472

		if (i == form) {

   473

			mypos = pos;

   474

			mylen = len;

   475

		}

   476

		pos += len;

   477

	}

   478

	*dstlen = mylen;

   479

	memcpy(dst, b + mypos, mylen);

   480

	return b + pos;

   481

}

   482

   483

   484

static char *FormatString(char *buff, const char *str, const int32 *argv, uint casei)

   485

{

   486

	byte b;

   487

	const int32 *argv_orig = argv;

   488

	uint modifier = 0;

   489

   490

	while ((b = *str++) != '\0') {

   491

		switch (b) {

   492

		case 0x1: // {SETX}

   493

			*buff++ = b;

   494

			*buff++ = *str++;

   495

			break;

   496

		case 0x2: // {SETXY}

   497

			*buff++ = b;

   498

			*buff++ = *str++;