1

/* $Id$ */

     2

     3

#include "../stdafx.h"

     4

#include "../macros.h"

     5

#include "../string.h"

     6

#include "../table/control_codes.h"

     7

#include <stdio.h>

     8

#include <string.h>

     9

#include <stdlib.h>

    10

#include <stdarg.h>

    11

    12

#if (!defined(WIN32) && !defined(WIN64)) || defined(__CYGWIN__)

    13

#include <unistd.h>

    14

#endif

    15

    16

#if defined WIN32 || defined __WATCOMC__

    17

#include <direct.h>

    18

#endif /* WIN32 || __WATCOMC__ */

    19

    20

#ifdef __MORPHOS__

    21

#ifdef stderr

    22

#undef stderr

    23

#endif

    24

#define stderr stdout

    25

#endif /* __MORPHOS__ */

    26

    27

#ifdef __WATCOMC__

    28

	uint _map_log_x;     // an unpleasant hack required because Watcom is insisting on

    29

	uint _map_size_x;    // these variables being valid references in map.h

    30

	uint _map_size_y;

    31

	uint _map_tile_mask;

    32

	uint _map_size;

    33

#endif /* __WATCOMC__ */

    34

    35

/* Compiles a list of strings into a compiled string list */

    36

    37

typedef void (*ParseCmdProc)(char *buf, int value);

    38

    39

typedef struct LanguagePackHeader {

    40

	uint32 ident;

    41

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

    42

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

    43

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

    44

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

    45

	uint16 offsets[32]; // the offsets

    46

	byte plural_form;   // plural form index

    47

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

    48

} LanguagePackHeader;

    49

    50

typedef struct CmdStruct {

    51

	const char *cmd;

    52

	ParseCmdProc proc;

    53

	long value;

    54

	int8 consumes;

    55

	byte flags;

    56

} CmdStruct;

    57

    58

enum {

    59

	C_DONTCOUNT = 1,

    60

	C_CASE      = 2,

    61

};

    62

    63

    64

typedef struct Case {

    65

	int caseidx;

    66

	char *string;

    67

	struct Case *next;

    68

} Case;

    69

    70

static bool _masterlang;

    71

static bool _translated;

    72

static const char* _file = "(unknown file)";

    73

static int _cur_line;

    74

static int _errors, _warnings;

    75

    76

typedef struct LangString {

    77

	char *name;            // Name of the string

    78

	char *english;         // English text

    79

	char *translated;      // Translated text

    80

	uint16 hash_next;      // next hash entry

    81

	uint16 index;

    82

	int line;              // line of string in source-file

    83

	Case *english_case;    // cases for english

    84

	Case *translated_case; // cases for foreign

    85

} LangString;

    86

    87

static LangString *_strings[65536];

    88

    89

    90

#define HASH_SIZE 32767

    91

static uint16 _hash_head[HASH_SIZE];

    92

    93

static byte _put_buf[4096];

    94

static int _put_pos;

    95

static int _next_string_id;

    96

    97

static uint32 _hash;

    98

static char _lang_name[32], _lang_ownname[32], _lang_isocode[16];

    99

static byte _lang_pluralform;

   100

#define MAX_NUM_GENDER 8

   101

static char _genders[MAX_NUM_GENDER][8];

   102

static int _numgenders;

   103

   104

// contains the name of all cases.

   105

#define MAX_NUM_CASES 50

   106

static char _cases[MAX_NUM_CASES][16];

   107

static int _numcases;

   108

   109

// for each plural value, this is the number of plural forms.

   110

static const byte _plural_form_counts[] = { 2, 1, 2, 3, 3, 3, 3, 3, 4 };

   111

   112

static const char *_cur_ident;

   113

   114

typedef struct CmdPair {

   115

	const CmdStruct *a;

   116

	char *v;

   117

} CmdPair;

   118

   119

typedef struct ParsedCommandStruct {

   120

	int np;

   121

	CmdPair pairs[32];

   122

	const CmdStruct *cmd[32]; // ordered by param #

   123

} ParsedCommandStruct;

   124

   125

// Used when generating some advanced commands.

   126

static ParsedCommandStruct _cur_pcs;

   127

static int _cur_argidx;

   128

   129

static uint HashStr(const char *s)

   130

{

   131

	uint hash = 0;

   132

	for (; *s != '\0'; s++) hash = ROL(hash, 3) ^ *s;

   133

	return hash % HASH_SIZE;

   134

}

   135

   136

static void HashAdd(const char *s, LangString *ls)

   137

{

   138

	uint hash = HashStr(s);

   139

	ls->hash_next = _hash_head[hash];

   140

	_hash_head[hash] = ls->index + 1;

   141

}

   142

   143

static LangString *HashFind(const char *s)

   144

{

   145

	int idx = _hash_head[HashStr(s)];

   146

   147

	while (--idx >= 0) {

   148

		LangString* ls = _strings[idx];

   149

   150

		if (strcmp(ls->name, s) == 0) return ls;

   151

		idx = ls->hash_next;

   152

	}

   153

	return NULL;

   154

}

   155

   156

#ifdef _MSC_VER

   157

# define LINE_NUM_FMT "(%d)"

   158

#else

   159

# define LINE_NUM_FMT ":%d"

   160

#endif

   161

   162

static void CDECL warning(const char *s, ...)

   163

{

   164

	char buf[1024];

   165

	va_list va;

   166

	va_start(va, s);

   167

	vsnprintf(buf, lengthof(buf), s, va);

   168

	va_end(va);

   169

	fprintf(stderr, "%s" LINE_NUM_FMT ": warning: %s\n", _file, _cur_line, buf);

   170

	_warnings++;

   171

}

   172

   173

void CDECL error(const char *s, ...)

   174

{

   175

	char buf[1024];

   176

	va_list va;

   177

	va_start(va, s);

   178

	vsnprintf(buf, lengthof(buf), s, va);

   179

	va_end(va);

   180

	fprintf(stderr, "%s" LINE_NUM_FMT ": error: %s\n", _file, _cur_line, buf);

   181

	_errors++;

   182

}

   183

   184

   185

static void NORETURN CDECL fatal(const char *s, ...)

   186

{

   187

	char buf[1024];

   188

	va_list va;

   189

	va_start(va, s);

   190

	vsnprintf(buf, lengthof(buf), s, va);

   191

	va_end(va);

   192

	fprintf(stderr, "%s" LINE_NUM_FMT ": FATAL: %s\n", _file, _cur_line, buf);

   193

	exit(1);

   194

}

   195

   196

static void PutByte(byte c)

   197

{

   198

	if (_put_pos == lengthof(_put_buf)) fatal("Put buffer too small");

   199

	_put_buf[_put_pos++] = c;

   200

}

   201

   202

   203

static void PutUtf8(uint32 value)

   204

{

   205

	if (value < 0x80) {

   206

		PutByte(value);

   207

	} else if (value < 0x800) {

   208

		PutByte(0xC0 + GB(value,  6, 5));

   209

		PutByte(0x80 + GB(value,  0, 6));

   210

	} else if (value < 0x10000) {

   211

		PutByte(0xE0 + GB(value, 12, 4));

   212

		PutByte(0x80 + GB(value,  6, 6));

   213

		PutByte(0x80 + GB(value,  0, 6));

   214

	} else if (value < 0x110000) {

   215

		PutByte(0xF0 + GB(value, 18, 3));

   216

		PutByte(0x80 + GB(value, 12, 6));

   217

		PutByte(0x80 + GB(value,  6, 6));

   218

		PutByte(0x80 + GB(value,  0, 6));

   219

	} else {

   220

		warning("Invalid unicode value U+0x%X", value);

   221

	}

   222

}

   223

   224

   225

size_t Utf8Validate(const char *s)

   226

{

   227

	uint32 c;

   228

   229

	if (!HASBIT(s[0], 7)) {

   230

		/* 1 byte */

   231

		return 1;

   232

	} else if (GB(s[0], 5, 3) == 6 && IsUtf8Part(s[1])) {

   233

		/* 2 bytes */

   234

		c = GB(s[0], 0, 5) << 6 | GB(s[1], 0, 6);

   235

		if (c >= 0x80) return 2;

   236

	} else if (GB(s[0], 4, 4) == 14 && IsUtf8Part(s[1]) && IsUtf8Part(s[2])) {

   237

		/* 3 bytes */

   238

		c = GB(s[0], 0, 4) << 12 | GB(s[1], 0, 6) << 6 | GB(s[2], 0, 6);

   239

		if (c >= 0x800) return 3;

   240

	} else if (GB(s[0], 3, 5) == 30 && IsUtf8Part(s[1]) && IsUtf8Part(s[2]) && IsUtf8Part(s[3])) {

   241

		/* 4 bytes */

   242

		c = GB(s[0], 0, 3) << 18 | GB(s[1], 0, 6) << 12 | GB(s[2], 0, 6) << 6 | GB(s[3], 0, 6);

   243

		if (c >= 0x10000 && c <= 0x10FFFF) return 4;

   244

	}

   245

   246

	return 0;

   247

}

   248

   249

   250

static void EmitSingleChar(char *buf, int value)

   251

{

   252

	if (*buf != '\0') warning("Ignoring trailing letters in command");

   253

	PutUtf8(value);

   254

}

   255

   256

   257

static void EmitSetX(char *buf, int value)

   258

{

   259

	char *err;

   260

	int x = strtol(buf, &err, 0);

   261

	if (*err != 0) fatal("SetX param invalid");

   262

	PutUtf8(SCC_SETX);

   263

	PutByte((byte)x);

   264

}

   265

   266

   267

static void EmitSetXY(char *buf, int value)

   268

{

   269

	char *err;

   270

	int x;

   271

	int y;

   272

   273

	x = strtol(buf, &err, 0);

   274

	if (*err != ' ') fatal("SetXY param invalid");

   275

	y = strtol(err + 1, &err, 0);

   276

	if (*err != 0) fatal("SetXY param invalid");

   277

   278

	PutUtf8(SCC_SETXY);

   279

	PutByte((byte)x);

   280

	PutByte((byte)y);

   281

}

   282

   283

// The plural specifier looks like

   284

// {NUM} {PLURAL -1 passenger passengers} then it picks either passenger/passengers depending on the count in NUM

   285

   286

// This is encoded like

   287

//  CommandByte <ARG#> <NUM> {Length of each string} {each string}

   288

   289

bool ParseRelNum(char **buf, int *value)

   290

{

   291

	const char* s = *buf;

   292

	char* end;

   293

	bool rel = false;

   294

	int v;

   295

   296

	while (*s == ' ' || *s == '\t') s++;

   297

	if (*s == '+') {

   298

		rel = true;

   299

		s++;

   300

	}

   301

	v = strtol(s, &end, 0);

   302

	if (end == s) return false;

   303

	if (rel || v < 0) {

   304

		*value += v;

   305

	} else {

   306

		*value = v;

   307

	}

   308

	*buf = end;

   309

	return true;

   310

}

   311

   312

// Parse out the next word, or NULL

   313

char *ParseWord(char **buf)

   314

{

   315

	char *s = *buf, *r;

   316

   317

	while (*s == ' ' || *s == '\t') s++;

   318

	if (*s == '\0') return NULL;

   319

   320

	if (*s == '"') {

   321

		r = ++s;

   322

		// parse until next " or NUL

   323

		for (;;) {

   324

			if (*s == '\0') break;

   325

			if (*s == '"') {

   326

				*s++ = '\0';

   327

				break;

   328

			}

   329

			s++;

   330

		}

   331

	} else {

   332

		// proceed until whitespace or NUL

   333

		r = s;

   334

		for (;;) {

   335

			if (*s == '\0') break;

   336

			if (*s == ' ' || *s == '\t') {

   337

				*s++ = '\0';

   338

				break;

   339

			}

   340

			s++;

   341

		}

   342

	}

   343

	*buf = s;

   344

	return r;

   345

}

   346

   347

// Forward declaration

   348

static int TranslateArgumentIdx(int arg);

   349

   350

static void EmitWordList(const char* const* words, uint nw)

   351

{

   352

	uint i;

   353

	uint j;

   354

   355

	PutByte(nw);

   356

	for (i = 0; i < nw; i++) PutByte(strlen(words[i]));

   357

	for (i = 0; i < nw; i++) {

   358

		for (j = 0; words[i][j] != '\0'; j++) PutByte(words[i][j]);

   359

	}

   360

}

   361

   362

static void EmitPlural(char *buf, int value)

   363

{

   364

	int argidx = _cur_argidx;

   365

	const char* words[5];

   366

	int nw = 0;

   367

   368

	// Parse out the number, if one exists. Otherwise default to prev arg.

   369

	if (!ParseRelNum(&buf, &argidx)) argidx--;

   370

   371

	// Parse each string

   372

	for (nw = 0; nw < 5; nw++) {

   373

		words[nw] = ParseWord(&buf);

   374

		if (words[nw] == NULL) break;

   375

	}

   376

   377

	if (nw == 0)

   378

		fatal("%s: No plural words", _cur_ident);

   379

   380

	if (_plural_form_counts[_lang_pluralform] != nw) {

   381

		if (_translated) {

   382

			fatal("%s: Invalid number of plural forms. Expecting %d, found %d.", _cur_ident,

   383

				_plural_form_counts[_lang_pluralform], nw);

   384

		} else {

   385

			warning("'%s' is untranslated. Tweaking english string to allow compilation for plural forms", _cur_ident);

   386

			if (nw > _plural_form_counts[_lang_pluralform]) {

   387

				nw = _plural_form_counts[_lang_pluralform];

   388

			} else {

   389

				for (; nw < _plural_form_counts[_lang_pluralform]; nw++) {

   390

					words[nw] = words[nw - 1];

   391

				}

   392

			}

   393

		}

   394

	}

   395

   396

	PutUtf8(SCC_PLURAL_LIST);

   397

	PutByte(TranslateArgumentIdx(argidx));

   398

	EmitWordList(words, nw);

   399

}

   400

   401

   402

static void EmitGender(char *buf, int value)

   403

{

   404

	int argidx = _cur_argidx;

   405

	uint nw;

   406

   407

	if (buf[0] == '=') {

   408

		buf++;

   409

   410

		// This is a {G=DER} command

   411

		for (nw = 0; ; nw++) {

   412

			if (nw >= 8) fatal("G argument '%s' invalid", buf);

   413

			if (strcmp(buf, _genders[nw]) == 0) break;

   414

		}

   415

		// now nw contains the gender index

   416

		PutUtf8(SCC_GENDER_INDEX);

   417

		PutByte(nw);

   418

	} else {

   419

		const char* words[8];

   420

   421

		// This is a {G 0 foo bar two} command.

   422

		// If no relative number exists, default to +0

   423

		if (!ParseRelNum(&buf, &argidx)) {}

   424

   425

		for (nw = 0; nw < 8; nw++) {

   426

			words[nw] = ParseWord(&buf);

   427

			if (words[nw] == NULL) break;

   428

		}

   429

		if (nw != _numgenders) fatal("Bad # of arguments for gender command");

   430

		PutUtf8(SCC_GENDER_LIST);

   431

		PutByte(TranslateArgumentIdx(argidx));

   432

		EmitWordList(words, nw);

   433

	}

   434

}

   435

   436

   437

static const CmdStruct _cmd_structs[] = {

   438

	// Update position

   439

	{"SETX",  EmitSetX,  SCC_SETX,  0, 0},

   440

	{"SETXY", EmitSetXY, SCC_SETXY, 0, 0},

   441

   442

	// Font size

   443

	{"TINYFONT", EmitSingleChar, SCC_TINYFONT, 0, 0},

   444

	{"BIGFONT",  EmitSingleChar, SCC_BIGFONT,  0, 0},

   445

   446

	// Colors

   447

	{"BLUE",    EmitSingleChar, SCC_BLUE,    0, 0},

   448

	{"SILVER",  EmitSingleChar, SCC_SILVER,  0, 0},

   449

	{"GOLD",    EmitSingleChar, SCC_GOLD,    0, 0},

   450

	{"RED",     EmitSingleChar, SCC_RED,     0, 0},

   451

	{"PURPLE",  EmitSingleChar, SCC_PURPLE,  0, 0},

   452

	{"LTBROWN", EmitSingleChar, SCC_LTBROWN, 0, 0},

   453

	{"ORANGE",  EmitSingleChar, SCC_ORANGE,  0, 0},

   454

	{"GREEN",   EmitSingleChar, SCC_GREEN,   0, 0},

   455

	{"YELLOW",  EmitSingleChar, SCC_YELLOW,  0, 0},

   456

	{"DKGREEN", EmitSingleChar, SCC_DKGREEN, 0, 0},

   457

	{"CREAM",   EmitSingleChar, SCC_CREAM,   0, 0},

   458

	{"BROWN",   EmitSingleChar, SCC_BROWN,   0, 0},

   459

	{"WHITE",   EmitSingleChar, SCC_WHITE,   0, 0},

   460

	{"LTBLUE",  EmitSingleChar, SCC_LTBLUE,  0, 0},

   461

	{"GRAY",    EmitSingleChar, SCC_GRAY,    0, 0},

   462

	{"DKBLUE",  EmitSingleChar, SCC_DKBLUE,  0, 0},

   463

	{"BLACK",   EmitSingleChar, SCC_BLACK,   0, 0},

   464

   465

	{"CURRCOMPACT",   EmitSingleChar, SCC_CURRENCY_COMPACT,    1, 0}, // compact currency (32 bits)

   466

	{"REV",           EmitSingleChar, SCC_REVISION,            0, 0}, // openttd revision string

   467

	{"SHORTCARGO",    EmitSingleChar, SCC_CARGO_SHORT,         2, 0}, // short cargo description, only ### tons, or ### litres

   468

	{"CURRCOMPACT64", EmitSingleChar, SCC_CURRENCY_COMPACT_64, 2, 0}, // compact currency 64 bits

   469

   470

	// These are special versions of {STRING1}

   471

	// The first string includes the second string.

   472

	{"COMPANY",    EmitSingleChar, SCC_STRING1, 1, 0},

   473

	{"PLAYERNAME", EmitSingleChar, SCC_STRING1, 1, 0},

   474

	{"VEHICLE",    EmitSingleChar, SCC_STRING1, 1, 0},

   475

   476

	{"STRING1", EmitSingleChar, SCC_STRING1, 1, C_CASE}, // included string that consumes ONE argument

   477

	{"STRING2", EmitSingleChar, SCC_STRING2, 2, C_CASE}, // included string that consumes TWO arguments

   478

	{"STRING3", EmitSingleChar, SCC_STRING3, 3, C_CASE}, // included string that consumes THREE arguments

   479

	{"STRING4", EmitSingleChar, SCC_STRING4, 4, C_CASE}, // included string that consumes FOUR arguments

   480

	{"STRING5", EmitSingleChar, SCC_STRING5, 5, C_CASE}, // included string that consumes FIVE arguments

   481

   482

	{"STATIONFEATURES", EmitSingleChar, SCC_STATION_FEATURES, 1, 0}, // station features string, icons of the features

   483

	{"INDUSTRY",        EmitSingleChar, SCC_INDUSTRY_NAME,    1, 0}, // industry, takes an industry #

   484

	{"CARGO",           EmitSingleChar, SCC_CARGO,            2, 0},

   485

	{"POWER",           EmitSingleChar, SCC_POWER,            1, 0},

   486

	{"VOLUME",          EmitSingleChar, SCC_VOLUME,           1, 0},