author | rubidium |
Wed, 03 Jan 2007 13:55:25 +0000 | |
changeset 5503 | 036e83e9083a |
parent 5475 | 2e6990a8c7c4 |
permissions | -rw-r--r-- |
2186 | 1 |
/* $Id$ */ |
2 |
||
0 | 3 |
#include "../stdafx.h" |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
4 |
#include "../macros.h" |
4370
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
5 |
#include "../string.h" |
5108
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
6 |
#include "../table/control_codes.h" |
0 | 7 |
#include <stdio.h> |
8 |
#include <string.h> |
|
9 |
#include <stdlib.h> |
|
10 |
#include <stdarg.h> |
|
11 |
||
2482
374f6395847d
(svn r3008) [ 1247535 ] Native Support for Win64 (compile&run only) (michi_cc)
Darkvater
parents:
2459
diff
changeset
|
12 |
#if (!defined(WIN32) && !defined(WIN64)) || defined(__CYGWIN__) |
0 | 13 |
#include <unistd.h> |
14 |
#endif |
|
15 |
||
4370
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
16 |
#if defined WIN32 || defined __WATCOMC__ |
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
17 |
#include <direct.h> |
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
18 |
#endif /* WIN32 || __WATCOMC__ */ |
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
19 |
|
181
0b95567f2d0f
(svn r182) -Fix: [1024380] strgen diff (Warning fix + MorphOS fix). Removes the longest standing warning on compilation of strgen (tokai)
darkvater
parents:
0
diff
changeset
|
20 |
#ifdef __MORPHOS__ |
0b95567f2d0f
(svn r182) -Fix: [1024380] strgen diff (Warning fix + MorphOS fix). Removes the longest standing warning on compilation of strgen (tokai)
darkvater
parents:
0
diff
changeset
|
21 |
#ifdef stderr |
0b95567f2d0f
(svn r182) -Fix: [1024380] strgen diff (Warning fix + MorphOS fix). Removes the longest standing warning on compilation of strgen (tokai)
darkvater
parents:
0
diff
changeset
|
22 |
#undef stderr |
0b95567f2d0f
(svn r182) -Fix: [1024380] strgen diff (Warning fix + MorphOS fix). Removes the longest standing warning on compilation of strgen (tokai)
darkvater
parents:
0
diff
changeset
|
23 |
#endif |
0b95567f2d0f
(svn r182) -Fix: [1024380] strgen diff (Warning fix + MorphOS fix). Removes the longest standing warning on compilation of strgen (tokai)
darkvater
parents:
0
diff
changeset
|
24 |
#define stderr stdout |
4370
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
25 |
#endif /* __MORPHOS__ */ |
181
0b95567f2d0f
(svn r182) -Fix: [1024380] strgen diff (Warning fix + MorphOS fix). Removes the longest standing warning on compilation of strgen (tokai)
darkvater
parents:
0
diff
changeset
|
26 |
|
3395 | 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; |
|
4370
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
33 |
#endif /* __WATCOMC__ */ |
3395 | 34 |
|
0 | 35 |
/* Compiles a list of strings into a compiled string list */ |
36 |
||
37 |
typedef void (*ParseCmdProc)(char *buf, int value); |
|
38 |
||
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
39 |
typedef struct LanguagePackHeader { |
0 | 40 |
uint32 ident; |
4344
7e123fec5b0b
(svn r6045) -Cleanup: align all table-like structures using spaces, i.e. whitespace fixes only except for a few comments to make them uniform for the whole enum/struct.
rubidium
parents:
4077
diff
changeset
|
41 |
uint32 version; // 32-bits of auto generated version info which is basically a hash of strings.h |
7e123fec5b0b
(svn r6045) -Cleanup: align all table-like structures using spaces, i.e. whitespace fixes only except for a few comments to make them uniform for the whole enum/struct.
rubidium
parents:
4077
diff
changeset
|
42 |
char name[32]; // the international name of this language |
4434
a08cb4b5c179
(svn r6204) -Cleanup: replace non-indentation with spaces; like '}<TAB>else {' -> '} else {', tabs between code and comment, etc.
rubidium
parents:
4379
diff
changeset
|
43 |
char own_name[32]; // the localized name of this language |
4344
7e123fec5b0b
(svn r6045) -Cleanup: align all table-like structures using spaces, i.e. whitespace fixes only except for a few comments to make them uniform for the whole enum/struct.
rubidium
parents:
4077
diff
changeset
|
44 |
char isocode[16]; // the ISO code for the language (not country code) |
7e123fec5b0b
(svn r6045) -Cleanup: align all table-like structures using spaces, i.e. whitespace fixes only except for a few comments to make them uniform for the whole enum/struct.
rubidium
parents:
4077
diff
changeset
|
45 |
uint16 offsets[32]; // the offsets |
7e123fec5b0b
(svn r6045) -Cleanup: align all table-like structures using spaces, i.e. whitespace fixes only except for a few comments to make them uniform for the whole enum/struct.
rubidium
parents:
4077
diff
changeset
|
46 |
byte plural_form; // plural form index |
7e123fec5b0b
(svn r6045) -Cleanup: align all table-like structures using spaces, i.e. whitespace fixes only except for a few comments to make them uniform for the whole enum/struct.
rubidium
parents:
4077
diff
changeset
|
47 |
byte pad[3]; // pad header to be a multiple of 4 |
0 | 48 |
} LanguagePackHeader; |
49 |
||
50 |
typedef struct CmdStruct { |
|
51 |
const char *cmd; |
|
52 |
ParseCmdProc proc; |
|
53 |
long value; |
|
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
54 |
int8 consumes; |
2087 | 55 |
byte flags; |
0 | 56 |
} CmdStruct; |
57 |
||
2087 | 58 |
enum { |
59 |
C_DONTCOUNT = 1, |
|
4344
7e123fec5b0b
(svn r6045) -Cleanup: align all table-like structures using spaces, i.e. whitespace fixes only except for a few comments to make them uniform for the whole enum/struct.
rubidium
parents:
4077
diff
changeset
|
60 |
C_CASE = 2, |
2087 | 61 |
}; |
62 |
||
63 |
||
64 |
typedef struct Case { |
|
65 |
int caseidx; |
|
66 |
char *string; |
|
67 |
struct Case *next; |
|
68 |
} Case; |
|
69 |
||
2586
1c0f0b67a70d
(svn r3123) eh, don't press enter after typing text, previous patch wasn't finished. Now strgen really behaves correctly. Thanks again glx
Darkvater
parents:
2585
diff
changeset
|
70 |
static bool _masterlang; |
2585
fa2f94aa9de2
(svn r3122) - Fix (regression): recent change to strgen which 'fixed' all strings with wrong plural forms. Thanks for glx for pointing this out (after I changed his original patch which was correct..whohoo braindeadness; here I come)
Darkvater
parents:
2566
diff
changeset
|
71 |
static bool _translated; |
2459
a2f63b331830
(svn r2985) Print warnings and errors in the canonical file:line: form to make life for IDEs easier (ln-)
tron
parents:
2418
diff
changeset
|
72 |
static const char* _file = "(unknown file)"; |
2059
6446d0b23ddc
(svn r2568) Small cleanup in strgen: static, bracing, ...
tron
parents:
2057
diff
changeset
|
73 |
static int _cur_line; |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
74 |
static int _errors, _warnings; |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
75 |
|
2087 | 76 |
typedef struct LangString { |
4344
7e123fec5b0b
(svn r6045) -Cleanup: align all table-like structures using spaces, i.e. whitespace fixes only except for a few comments to make them uniform for the whole enum/struct.
rubidium
parents:
4077
diff
changeset
|
77 |
char *name; // Name of the string |
7e123fec5b0b
(svn r6045) -Cleanup: align all table-like structures using spaces, i.e. whitespace fixes only except for a few comments to make them uniform for the whole enum/struct.
rubidium
parents:
4077
diff
changeset
|
78 |
char *english; // English text |
7e123fec5b0b
(svn r6045) -Cleanup: align all table-like structures using spaces, i.e. whitespace fixes only except for a few comments to make them uniform for the whole enum/struct.
rubidium
parents:
4077
diff
changeset
|
79 |
char *translated; // Translated text |
7e123fec5b0b
(svn r6045) -Cleanup: align all table-like structures using spaces, i.e. whitespace fixes only except for a few comments to make them uniform for the whole enum/struct.
rubidium
parents:
4077
diff
changeset
|
80 |
uint16 hash_next; // next hash entry |
2087 | 81 |
uint16 index; |
4344
7e123fec5b0b
(svn r6045) -Cleanup: align all table-like structures using spaces, i.e. whitespace fixes only except for a few comments to make them uniform for the whole enum/struct.
rubidium
parents:
4077
diff
changeset
|
82 |
int line; // line of string in source-file |
7e123fec5b0b
(svn r6045) -Cleanup: align all table-like structures using spaces, i.e. whitespace fixes only except for a few comments to make them uniform for the whole enum/struct.
rubidium
parents:
4077
diff
changeset
|
83 |
Case *english_case; // cases for english |
7e123fec5b0b
(svn r6045) -Cleanup: align all table-like structures using spaces, i.e. whitespace fixes only except for a few comments to make them uniform for the whole enum/struct.
rubidium
parents:
4077
diff
changeset
|
84 |
Case *translated_case; // cases for foreign |
2087 | 85 |
} LangString; |
86 |
||
87 |
static LangString *_strings[65536]; |
|
88 |
||
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
89 |
|
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
90 |
#define HASH_SIZE 32767 |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
91 |
static uint16 _hash_head[HASH_SIZE]; |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
92 |
|
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
93 |
static byte _put_buf[4096]; |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
94 |
static int _put_pos; |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
95 |
static int _next_string_id; |
0 | 96 |
|
2059
6446d0b23ddc
(svn r2568) Small cleanup in strgen: static, bracing, ...
tron
parents:
2057
diff
changeset
|
97 |
static uint32 _hash; |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
98 |
static char _lang_name[32], _lang_ownname[32], _lang_isocode[16]; |
2082
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
99 |
static byte _lang_pluralform; |
2087 | 100 |
#define MAX_NUM_GENDER 8 |
101 |
static char _genders[MAX_NUM_GENDER][8]; |
|
102 |
static int _numgenders; |
|
0 | 103 |
|
2087 | 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; |
|
2084
65639f898a50
(svn r2594) Fix: [strgen] Misc updates to the string system.
ludde
parents:
2082
diff
changeset
|
108 |
|
2082
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
109 |
// for each plural value, this is the number of plural forms. |
4344
7e123fec5b0b
(svn r6045) -Cleanup: align all table-like structures using spaces, i.e. whitespace fixes only except for a few comments to make them uniform for the whole enum/struct.
rubidium
parents:
4077
diff
changeset
|
110 |
static const byte _plural_form_counts[] = { 2, 1, 2, 3, 3, 3, 3, 3, 4 }; |
2082
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
111 |
|
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
112 |
static const char *_cur_ident; |
2059
6446d0b23ddc
(svn r2568) Small cleanup in strgen: static, bracing, ...
tron
parents:
2057
diff
changeset
|
113 |
|
2087 | 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 |
||
2059
6446d0b23ddc
(svn r2568) Small cleanup in strgen: static, bracing, ...
tron
parents:
2057
diff
changeset
|
129 |
static uint HashStr(const char *s) |
6446d0b23ddc
(svn r2568) Small cleanup in strgen: static, bracing, ...
tron
parents:
2057
diff
changeset
|
130 |
{ |
6446d0b23ddc
(svn r2568) Small cleanup in strgen: static, bracing, ...
tron
parents:
2057
diff
changeset
|
131 |
uint hash = 0; |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
132 |
for (; *s != '\0'; s++) hash = ROL(hash, 3) ^ *s; |
0 | 133 |
return hash % HASH_SIZE; |
134 |
} |
|
2059
6446d0b23ddc
(svn r2568) Small cleanup in strgen: static, bracing, ...
tron
parents:
2057
diff
changeset
|
135 |
|
2087 | 136 |
static void HashAdd(const char *s, LangString *ls) |
2059
6446d0b23ddc
(svn r2568) Small cleanup in strgen: static, bracing, ...
tron
parents:
2057
diff
changeset
|
137 |
{ |
6446d0b23ddc
(svn r2568) Small cleanup in strgen: static, bracing, ...
tron
parents:
2057
diff
changeset
|
138 |
uint hash = HashStr(s); |
2087 | 139 |
ls->hash_next = _hash_head[hash]; |
140 |
_hash_head[hash] = ls->index + 1; |
|
0 | 141 |
} |
142 |
||
2087 | 143 |
static LangString *HashFind(const char *s) |
2059
6446d0b23ddc
(svn r2568) Small cleanup in strgen: static, bracing, ...
tron
parents:
2057
diff
changeset
|
144 |
{ |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
145 |
int idx = _hash_head[HashStr(s)]; |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
146 |
|
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
147 |
while (--idx >= 0) { |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
148 |
LangString* ls = _strings[idx]; |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
149 |
|
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
150 |
if (strcmp(ls->name, s) == 0) return ls; |
2087 | 151 |
idx = ls->hash_next; |
0 | 152 |
} |
2087 | 153 |
return NULL; |
0 | 154 |
} |
155 |
||
3900
2c84ed52709d
(svn r4987) Feature: Merged YAPF into trunk. Thanks to devs for continuous support and users for testing.
KUDr
parents:
3718
diff
changeset
|
156 |
#ifdef _MSC_VER |
2c84ed52709d
(svn r4987) Feature: Merged YAPF into trunk. Thanks to devs for continuous support and users for testing.
KUDr
parents:
3718
diff
changeset
|
157 |
# define LINE_NUM_FMT "(%d)" |
2c84ed52709d
(svn r4987) Feature: Merged YAPF into trunk. Thanks to devs for continuous support and users for testing.
KUDr
parents:
3718
diff
changeset
|
158 |
#else |
2c84ed52709d
(svn r4987) Feature: Merged YAPF into trunk. Thanks to devs for continuous support and users for testing.
KUDr
parents:
3718
diff
changeset
|
159 |
# define LINE_NUM_FMT ":%d" |
2c84ed52709d
(svn r4987) Feature: Merged YAPF into trunk. Thanks to devs for continuous support and users for testing.
KUDr
parents:
3718
diff
changeset
|
160 |
#endif |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
161 |
|
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
162 |
static void CDECL warning(const char *s, ...) |
2059
6446d0b23ddc
(svn r2568) Small cleanup in strgen: static, bracing, ...
tron
parents:
2057
diff
changeset
|
163 |
{ |
0 | 164 |
char buf[1024]; |
165 |
va_list va; |
|
166 |
va_start(va, s); |
|
4370
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
167 |
vsnprintf(buf, lengthof(buf), s, va); |
0 | 168 |
va_end(va); |
4447
486395ec1e06
(svn r6225) -Codechange: change the warning/error format of strgen to show up
Darkvater
parents:
4434
diff
changeset
|
169 |
fprintf(stderr, "%s" LINE_NUM_FMT ": warning: %s\n", _file, _cur_line, buf); |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
170 |
_warnings++; |
0 | 171 |
} |
172 |
||
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
173 |
void CDECL error(const char *s, ...) |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
174 |
{ |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
175 |
char buf[1024]; |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
176 |
va_list va; |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
177 |
va_start(va, s); |
4370
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
178 |
vsnprintf(buf, lengthof(buf), s, va); |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
179 |
va_end(va); |
4447
486395ec1e06
(svn r6225) -Codechange: change the warning/error format of strgen to show up
Darkvater
parents:
4434
diff
changeset
|
180 |
fprintf(stderr, "%s" LINE_NUM_FMT ": error: %s\n", _file, _cur_line, buf); |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
181 |
_errors++; |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
182 |
} |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
183 |
|
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
184 |
|
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
185 |
static void NORETURN CDECL fatal(const char *s, ...) |
2059
6446d0b23ddc
(svn r2568) Small cleanup in strgen: static, bracing, ...
tron
parents:
2057
diff
changeset
|
186 |
{ |
0 | 187 |
char buf[1024]; |
188 |
va_list va; |
|
189 |
va_start(va, s); |
|
4370
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
190 |
vsnprintf(buf, lengthof(buf), s, va); |
0 | 191 |
va_end(va); |
3900
2c84ed52709d
(svn r4987) Feature: Merged YAPF into trunk. Thanks to devs for continuous support and users for testing.
KUDr
parents:
3718
diff
changeset
|
192 |
fprintf(stderr, "%s" LINE_NUM_FMT ": FATAL: %s\n", _file, _cur_line, buf); |
0 | 193 |
exit(1); |
194 |
} |
|
195 |
||
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
196 |
static void PutByte(byte c) |
2059
6446d0b23ddc
(svn r2568) Small cleanup in strgen: static, bracing, ...
tron
parents:
2057
diff
changeset
|
197 |
{ |
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
198 |
if (_put_pos == lengthof(_put_buf)) fatal("Put buffer too small"); |
0 | 199 |
_put_buf[_put_pos++] = c; |
200 |
} |
|
201 |
||
202 |
||
5108
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
203 |
static void PutUtf8(uint32 value) |
2059
6446d0b23ddc
(svn r2568) Small cleanup in strgen: static, bracing, ...
tron
parents:
2057
diff
changeset
|
204 |
{ |
5108
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
205 |
if (value < 0x80) { |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
206 |
PutByte(value); |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
207 |
} else if (value < 0x800) { |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
208 |
PutByte(0xC0 + GB(value, 6, 5)); |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
209 |
PutByte(0x80 + GB(value, 0, 6)); |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
210 |
} else if (value < 0x10000) { |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
211 |
PutByte(0xE0 + GB(value, 12, 4)); |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
212 |
PutByte(0x80 + GB(value, 6, 6)); |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
213 |
PutByte(0x80 + GB(value, 0, 6)); |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
214 |
} else if (value < 0x110000) { |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
215 |
PutByte(0xF0 + GB(value, 18, 3)); |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
216 |
PutByte(0x80 + GB(value, 12, 6)); |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
217 |
PutByte(0x80 + GB(value, 6, 6)); |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
218 |
PutByte(0x80 + GB(value, 0, 6)); |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
219 |
} else { |
5360
d87dfdb62e5a
(svn r7540) -Codechange: Print a summary of the number of errors/warnings of a language when strgen is run with the -w flag.
Darkvater
parents:
5111
diff
changeset
|
220 |
warning("Invalid unicode value U+0x%X", value); |
5108
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
221 |
} |
0 | 222 |
} |
223 |
||
224 |
||
5111
ee7472776a4d
(svn r7185) -Codechange: Make strgen validate strings for UTF-8 well-formed-ness-ness
peter1138
parents:
5108
diff
changeset
|
225 |
size_t Utf8Validate(const char *s) |
ee7472776a4d
(svn r7185) -Codechange: Make strgen validate strings for UTF-8 well-formed-ness-ness
peter1138
parents:
5108
diff
changeset
|
226 |
{ |
ee7472776a4d
(svn r7185) -Codechange: Make strgen validate strings for UTF-8 well-formed-ness-ness
peter1138
parents:
5108
diff
changeset
|
227 |
uint32 c; |
ee7472776a4d
(svn r7185) -Codechange: Make strgen validate strings for UTF-8 well-formed-ness-ness
peter1138
parents:
5108
diff
changeset
|
228 |
|
ee7472776a4d
(svn r7185) -Codechange: Make strgen validate strings for UTF-8 well-formed-ness-ness
peter1138
parents:
5108
diff
changeset
|
229 |
if (!HASBIT(s[0], 7)) { |
ee7472776a4d
(svn r7185) -Codechange: Make strgen validate strings for UTF-8 well-formed-ness-ness
peter1138
parents:
5108
diff
changeset
|
230 |
/* 1 byte */ |
ee7472776a4d
(svn r7185) -Codechange: Make strgen validate strings for UTF-8 well-formed-ness-ness
peter1138
parents:
5108
diff
changeset
|
231 |
return 1; |
ee7472776a4d
(svn r7185) -Codechange: Make strgen validate strings for UTF-8 well-formed-ness-ness
peter1138
parents:
5108
diff
changeset
|
232 |
} else if (GB(s[0], 5, 3) == 6 && IsUtf8Part(s[1])) { |
ee7472776a4d
(svn r7185) -Codechange: Make strgen validate strings for UTF-8 well-formed-ness-ness
peter1138
parents:
5108
diff
changeset
|
233 |
/* 2 bytes */ |
ee7472776a4d
(svn r7185) -Codechange: Make strgen validate strings for UTF-8 well-formed-ness-ness
peter1138
parents:
5108
diff
changeset
|
234 |
c = GB(s[0], 0, 5) << 6 | GB(s[1], 0, 6); |
ee7472776a4d
(svn r7185) -Codechange: Make strgen validate strings for UTF-8 well-formed-ness-ness
peter1138
parents:
5108
diff
changeset
|
235 |
if (c >= 0x80) return 2; |
ee7472776a4d
(svn r7185) -Codechange: Make strgen validate strings for UTF-8 well-formed-ness-ness
peter1138
parents:
5108
diff
changeset
|
236 |
} else if (GB(s[0], 4, 4) == 14 && IsUtf8Part(s[1]) && IsUtf8Part(s[2])) { |
ee7472776a4d
(svn r7185) -Codechange: Make strgen validate strings for UTF-8 well-formed-ness-ness
peter1138
parents:
5108
diff
changeset
|
237 |
/* 3 bytes */ |
ee7472776a4d
(svn r7185) -Codechange: Make strgen validate strings for UTF-8 well-formed-ness-ness
peter1138
parents:
5108
diff
changeset
|
238 |
c = GB(s[0], 0, 4) << 12 | GB(s[1], 0, 6) << 6 | GB(s[2], 0, 6); |
ee7472776a4d
(svn r7185) -Codechange: Make strgen validate strings for UTF-8 well-formed-ness-ness
peter1138
parents:
5108
diff
changeset
|
239 |
if (c >= 0x800) return 3; |
ee7472776a4d
(svn r7185) -Codechange: Make strgen validate strings for UTF-8 well-formed-ness-ness
peter1138
parents:
5108
diff
changeset
|
240 |
} else if (GB(s[0], 3, 5) == 30 && IsUtf8Part(s[1]) && IsUtf8Part(s[2]) && IsUtf8Part(s[3])) { |
ee7472776a4d
(svn r7185) -Codechange: Make strgen validate strings for UTF-8 well-formed-ness-ness
peter1138
parents:
5108
diff
changeset
|
241 |
/* 4 bytes */ |
ee7472776a4d
(svn r7185) -Codechange: Make strgen validate strings for UTF-8 well-formed-ness-ness
peter1138
parents:
5108
diff
changeset
|
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); |
ee7472776a4d
(svn r7185) -Codechange: Make strgen validate strings for UTF-8 well-formed-ness-ness
peter1138
parents:
5108
diff
changeset
|
243 |
if (c >= 0x10000 && c <= 0x10FFFF) return 4; |
ee7472776a4d
(svn r7185) -Codechange: Make strgen validate strings for UTF-8 well-formed-ness-ness
peter1138
parents:
5108
diff
changeset
|
244 |
} |
ee7472776a4d
(svn r7185) -Codechange: Make strgen validate strings for UTF-8 well-formed-ness-ness
peter1138
parents:
5108
diff
changeset
|
245 |
|
ee7472776a4d
(svn r7185) -Codechange: Make strgen validate strings for UTF-8 well-formed-ness-ness
peter1138
parents:
5108
diff
changeset
|
246 |
return 0; |
ee7472776a4d
(svn r7185) -Codechange: Make strgen validate strings for UTF-8 well-formed-ness-ness
peter1138
parents:
5108
diff
changeset
|
247 |
} |
ee7472776a4d
(svn r7185) -Codechange: Make strgen validate strings for UTF-8 well-formed-ness-ness
peter1138
parents:
5108
diff
changeset
|
248 |
|
ee7472776a4d
(svn r7185) -Codechange: Make strgen validate strings for UTF-8 well-formed-ness-ness
peter1138
parents:
5108
diff
changeset
|
249 |
|
5108
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
250 |
static void EmitSingleChar(char *buf, int value) |
2059
6446d0b23ddc
(svn r2568) Small cleanup in strgen: static, bracing, ...
tron
parents:
2057
diff
changeset
|
251 |
{ |
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
252 |
if (*buf != '\0') warning("Ignoring trailing letters in command"); |
5108
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
253 |
PutUtf8(value); |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
254 |
} |
0 | 255 |
|
5108
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
256 |
|
2059
6446d0b23ddc
(svn r2568) Small cleanup in strgen: static, bracing, ...
tron
parents:
2057
diff
changeset
|
257 |
static void EmitSetX(char *buf, int value) |
6446d0b23ddc
(svn r2568) Small cleanup in strgen: static, bracing, ...
tron
parents:
2057
diff
changeset
|
258 |
{ |
0 | 259 |
char *err; |
260 |
int x = strtol(buf, &err, 0); |
|
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
261 |
if (*err != 0) fatal("SetX param invalid"); |
5108
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
262 |
PutUtf8(SCC_SETX); |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
263 |
PutByte((byte)x); |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
264 |
} |
2059
6446d0b23ddc
(svn r2568) Small cleanup in strgen: static, bracing, ...
tron
parents:
2057
diff
changeset
|
265 |
|
0 | 266 |
|
2059
6446d0b23ddc
(svn r2568) Small cleanup in strgen: static, bracing, ...
tron
parents:
2057
diff
changeset
|
267 |
static void EmitSetXY(char *buf, int value) |
6446d0b23ddc
(svn r2568) Small cleanup in strgen: static, bracing, ...
tron
parents:
2057
diff
changeset
|
268 |
{ |
0 | 269 |
char *err; |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
270 |
int x; |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
271 |
int y; |
2059
6446d0b23ddc
(svn r2568) Small cleanup in strgen: static, bracing, ...
tron
parents:
2057
diff
changeset
|
272 |
|
6446d0b23ddc
(svn r2568) Small cleanup in strgen: static, bracing, ...
tron
parents:
2057
diff
changeset
|
273 |
x = strtol(buf, &err, 0); |
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
274 |
if (*err != ' ') fatal("SetXY param invalid"); |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
275 |
y = strtol(err + 1, &err, 0); |
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
276 |
if (*err != 0) fatal("SetXY param invalid"); |
0 | 277 |
|
5108
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
278 |
PutUtf8(SCC_SETXY); |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
279 |
PutByte((byte)x); |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
280 |
PutByte((byte)y); |
0 | 281 |
} |
282 |
||
2082
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
283 |
// The plural specifier looks like |
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
284 |
// {NUM} {PLURAL -1 passenger passengers} then it picks either passenger/passengers depending on the count in NUM |
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
285 |
|
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
286 |
// This is encoded like |
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
287 |
// CommandByte <ARG#> <NUM> {Length of each string} {each string} |
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
288 |
|
2087 | 289 |
bool ParseRelNum(char **buf, int *value) |
2082
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
290 |
{ |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
291 |
const char* s = *buf; |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
292 |
char* end; |
2082
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
293 |
bool rel = false; |
2087 | 294 |
int v; |
295 |
||
2082
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
296 |
while (*s == ' ' || *s == '\t') s++; |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
297 |
if (*s == '+') { |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
298 |
rel = true; |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
299 |
s++; |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
300 |
} |
2087 | 301 |
v = strtol(s, &end, 0); |
2082
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
302 |
if (end == s) return false; |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
303 |
if (rel || v < 0) { |
2087 | 304 |
*value += v; |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
305 |
} else { |
2087 | 306 |
*value = v; |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
307 |
} |
2082
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
308 |
*buf = end; |
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
309 |
return true; |
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
310 |
} |
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
311 |
|
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
312 |
// Parse out the next word, or NULL |
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
313 |
char *ParseWord(char **buf) |
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
314 |
{ |
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
315 |
char *s = *buf, *r; |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
316 |
|
2082
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
317 |
while (*s == ' ' || *s == '\t') s++; |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
318 |
if (*s == '\0') return NULL; |
2082
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
319 |
|
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
320 |
if (*s == '"') { |
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
321 |
r = ++s; |
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
322 |
// parse until next " or NUL |
2952 | 323 |
for (;;) { |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
324 |
if (*s == '\0') break; |
2082
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
325 |
if (*s == '"') { |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
326 |
*s++ = '\0'; |
2082
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
327 |
break; |
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
328 |
} |
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
329 |
s++; |
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
330 |
} |
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
331 |
} else { |
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
332 |
// proceed until whitespace or NUL |
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
333 |
r = s; |
2952 | 334 |
for (;;) { |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
335 |
if (*s == '\0') break; |
2082
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
336 |
if (*s == ' ' || *s == '\t') { |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
337 |
*s++ = '\0'; |
2082
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
338 |
break; |
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
339 |
} |
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
340 |
s++; |
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
341 |
} |
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
342 |
} |
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
343 |
*buf = s; |
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
344 |
return r; |
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
345 |
} |
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
346 |
|
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
347 |
// Forward declaration |
2087 | 348 |
static int TranslateArgumentIdx(int arg); |
2082
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
349 |
|
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
350 |
static void EmitWordList(const char* const* words, uint nw) |
2084
65639f898a50
(svn r2594) Fix: [strgen] Misc updates to the string system.
ludde
parents:
2082
diff
changeset
|
351 |
{ |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
352 |
uint i; |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
353 |
uint j; |
2084
65639f898a50
(svn r2594) Fix: [strgen] Misc updates to the string system.
ludde
parents:
2082
diff
changeset
|
354 |
|
65639f898a50
(svn r2594) Fix: [strgen] Misc updates to the string system.
ludde
parents:
2082
diff
changeset
|
355 |
PutByte(nw); |
2952 | 356 |
for (i = 0; i < nw; i++) PutByte(strlen(words[i])); |
357 |
for (i = 0; i < nw; i++) { |
|
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
358 |
for (j = 0; words[i][j] != '\0'; j++) PutByte(words[i][j]); |
2084
65639f898a50
(svn r2594) Fix: [strgen] Misc updates to the string system.
ludde
parents:
2082
diff
changeset
|
359 |
} |
65639f898a50
(svn r2594) Fix: [strgen] Misc updates to the string system.
ludde
parents:
2082
diff
changeset
|
360 |
} |
65639f898a50
(svn r2594) Fix: [strgen] Misc updates to the string system.
ludde
parents:
2082
diff
changeset
|
361 |
|
2082
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
362 |
static void EmitPlural(char *buf, int value) |
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
363 |
{ |
2087 | 364 |
int argidx = _cur_argidx; |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
365 |
const char* words[5]; |
2082
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
366 |
int nw = 0; |
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
367 |
|
2087 | 368 |
// Parse out the number, if one exists. Otherwise default to prev arg. |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
369 |
if (!ParseRelNum(&buf, &argidx)) argidx--; |
2082
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
370 |
|
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
371 |
// Parse each string |
2566
75ae28a03460
(svn r3103) - Fix: [ 1339000 ] Fix: strgen and plural forms fatal error for untranslated strings. (glx). Also output the correct lines for these warnings, for missing strings the lines correspond with the ones in english.txt
Darkvater
parents:
2482
diff
changeset
|
372 |
for (nw = 0; nw < 5; nw++) { |
2082
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
373 |
words[nw] = ParseWord(&buf); |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
374 |
if (words[nw] == NULL) break; |
2082
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
375 |
} |
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
376 |
|
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
377 |
if (nw == 0) |
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
378 |
fatal("%s: No plural words", _cur_ident); |
2082
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
379 |
|
2765
8fa792b6e525
(svn r3310) Fix a couple of warnings: Initialise all struct members, disambiguate cascaded if/else, remove an unused variable, use (void) for empty parameter lists
tron
parents:
2586
diff
changeset
|
380 |
if (_plural_form_counts[_lang_pluralform] != nw) { |
2585
fa2f94aa9de2
(svn r3122) - Fix (regression): recent change to strgen which 'fixed' all strings with wrong plural forms. Thanks for glx for pointing this out (after I changed his original patch which was correct..whohoo braindeadness; here I come)
Darkvater
parents:
2566
diff
changeset
|
381 |
if (_translated) { |
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
382 |
fatal("%s: Invalid number of plural forms. Expecting %d, found %d.", _cur_ident, |
2566
75ae28a03460
(svn r3103) - Fix: [ 1339000 ] Fix: strgen and plural forms fatal error for untranslated strings. (glx). Also output the correct lines for these warnings, for missing strings the lines correspond with the ones in english.txt
Darkvater
parents:
2482
diff
changeset
|
383 |
_plural_form_counts[_lang_pluralform], nw); |
75ae28a03460
(svn r3103) - Fix: [ 1339000 ] Fix: strgen and plural forms fatal error for untranslated strings. (glx). Also output the correct lines for these warnings, for missing strings the lines correspond with the ones in english.txt
Darkvater
parents:
2482
diff
changeset
|
384 |
} else { |
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
385 |
warning("'%s' is untranslated. Tweaking english string to allow compilation for plural forms", _cur_ident); |
2566
75ae28a03460
(svn r3103) - Fix: [ 1339000 ] Fix: strgen and plural forms fatal error for untranslated strings. (glx). Also output the correct lines for these warnings, for missing strings the lines correspond with the ones in english.txt
Darkvater
parents:
2482
diff
changeset
|
386 |
if (nw > _plural_form_counts[_lang_pluralform]) { |
75ae28a03460
(svn r3103) - Fix: [ 1339000 ] Fix: strgen and plural forms fatal error for untranslated strings. (glx). Also output the correct lines for these warnings, for missing strings the lines correspond with the ones in english.txt
Darkvater
parents:
2482
diff
changeset
|
387 |
nw = _plural_form_counts[_lang_pluralform]; |
75ae28a03460
(svn r3103) - Fix: [ 1339000 ] Fix: strgen and plural forms fatal error for untranslated strings. (glx). Also output the correct lines for these warnings, for missing strings the lines correspond with the ones in english.txt
Darkvater
parents:
2482
diff
changeset
|
388 |
} else { |
2952 | 389 |
for (; nw < _plural_form_counts[_lang_pluralform]; nw++) { |
2566
75ae28a03460
(svn r3103) - Fix: [ 1339000 ] Fix: strgen and plural forms fatal error for untranslated strings. (glx). Also output the correct lines for these warnings, for missing strings the lines correspond with the ones in english.txt
Darkvater
parents:
2482
diff
changeset
|
390 |
words[nw] = words[nw - 1]; |
75ae28a03460
(svn r3103) - Fix: [ 1339000 ] Fix: strgen and plural forms fatal error for untranslated strings. (glx). Also output the correct lines for these warnings, for missing strings the lines correspond with the ones in english.txt
Darkvater
parents:
2482
diff
changeset
|
391 |
} |
75ae28a03460
(svn r3103) - Fix: [ 1339000 ] Fix: strgen and plural forms fatal error for untranslated strings. (glx). Also output the correct lines for these warnings, for missing strings the lines correspond with the ones in english.txt
Darkvater
parents:
2482
diff
changeset
|
392 |
} |
75ae28a03460
(svn r3103) - Fix: [ 1339000 ] Fix: strgen and plural forms fatal error for untranslated strings. (glx). Also output the correct lines for these warnings, for missing strings the lines correspond with the ones in english.txt
Darkvater
parents:
2482
diff
changeset
|
393 |
} |
2765
8fa792b6e525
(svn r3310) Fix a couple of warnings: Initialise all struct members, disambiguate cascaded if/else, remove an unused variable, use (void) for empty parameter lists
tron
parents:
2586
diff
changeset
|
394 |
} |
2082
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
395 |
|
5108
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
396 |
PutUtf8(SCC_PLURAL_LIST); |
2087 | 397 |
PutByte(TranslateArgumentIdx(argidx)); |
2084
65639f898a50
(svn r2594) Fix: [strgen] Misc updates to the string system.
ludde
parents:
2082
diff
changeset
|
398 |
EmitWordList(words, nw); |
65639f898a50
(svn r2594) Fix: [strgen] Misc updates to the string system.
ludde
parents:
2082
diff
changeset
|
399 |
} |
65639f898a50
(svn r2594) Fix: [strgen] Misc updates to the string system.
ludde
parents:
2082
diff
changeset
|
400 |
|
65639f898a50
(svn r2594) Fix: [strgen] Misc updates to the string system.
ludde
parents:
2082
diff
changeset
|
401 |
|
65639f898a50
(svn r2594) Fix: [strgen] Misc updates to the string system.
ludde
parents:
2082
diff
changeset
|
402 |
static void EmitGender(char *buf, int value) |
65639f898a50
(svn r2594) Fix: [strgen] Misc updates to the string system.
ludde
parents:
2082
diff
changeset
|
403 |
{ |
2087 | 404 |
int argidx = _cur_argidx; |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
405 |
uint nw; |
2084
65639f898a50
(svn r2594) Fix: [strgen] Misc updates to the string system.
ludde
parents:
2082
diff
changeset
|
406 |
|
65639f898a50
(svn r2594) Fix: [strgen] Misc updates to the string system.
ludde
parents:
2082
diff
changeset
|
407 |
if (buf[0] == '=') { |
65639f898a50
(svn r2594) Fix: [strgen] Misc updates to the string system.
ludde
parents:
2082
diff
changeset
|
408 |
buf++; |
65639f898a50
(svn r2594) Fix: [strgen] Misc updates to the string system.
ludde
parents:
2082
diff
changeset
|
409 |
|
65639f898a50
(svn r2594) Fix: [strgen] Misc updates to the string system.
ludde
parents:
2082
diff
changeset
|
410 |
// This is a {G=DER} command |
2952 | 411 |
for (nw = 0; ; nw++) { |
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
412 |
if (nw >= 8) fatal("G argument '%s' invalid", buf); |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
413 |
if (strcmp(buf, _genders[nw]) == 0) break; |
2084
65639f898a50
(svn r2594) Fix: [strgen] Misc updates to the string system.
ludde
parents:
2082
diff
changeset
|
414 |
} |
65639f898a50
(svn r2594) Fix: [strgen] Misc updates to the string system.
ludde
parents:
2082
diff
changeset
|
415 |
// now nw contains the gender index |
5108
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
416 |
PutUtf8(SCC_GENDER_INDEX); |
2084
65639f898a50
(svn r2594) Fix: [strgen] Misc updates to the string system.
ludde
parents:
2082
diff
changeset
|
417 |
PutByte(nw); |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
418 |
} else { |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
419 |
const char* words[8]; |
2084
65639f898a50
(svn r2594) Fix: [strgen] Misc updates to the string system.
ludde
parents:
2082
diff
changeset
|
420 |
|
65639f898a50
(svn r2594) Fix: [strgen] Misc updates to the string system.
ludde
parents:
2082
diff
changeset
|
421 |
// This is a {G 0 foo bar two} command. |
2087 | 422 |
// If no relative number exists, default to +0 |
423 |
if (!ParseRelNum(&buf, &argidx)) {} |
|
2084
65639f898a50
(svn r2594) Fix: [strgen] Misc updates to the string system.
ludde
parents:
2082
diff
changeset
|
424 |
|
2952 | 425 |
for (nw = 0; nw < 8; nw++) { |
2084
65639f898a50
(svn r2594) Fix: [strgen] Misc updates to the string system.
ludde
parents:
2082
diff
changeset
|
426 |
words[nw] = ParseWord(&buf); |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
427 |
if (words[nw] == NULL) break; |
2084
65639f898a50
(svn r2594) Fix: [strgen] Misc updates to the string system.
ludde
parents:
2082
diff
changeset
|
428 |
} |
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
429 |
if (nw != _numgenders) fatal("Bad # of arguments for gender command"); |
5108
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
430 |
PutUtf8(SCC_GENDER_LIST); |
2087 | 431 |
PutByte(TranslateArgumentIdx(argidx)); |
2084
65639f898a50
(svn r2594) Fix: [strgen] Misc updates to the string system.
ludde
parents:
2082
diff
changeset
|
432 |
EmitWordList(words, nw); |
2082
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
433 |
} |
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
434 |
} |
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
435 |
|
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
436 |
|
0 | 437 |
static const CmdStruct _cmd_structs[] = { |
438 |
// Update position |
|
5108
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
439 |
{"SETX", EmitSetX, SCC_SETX, 0, 0}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
440 |
{"SETXY", EmitSetXY, SCC_SETXY, 0, 0}, |
0 | 441 |
|
442 |
// Font size |
|
5108
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
443 |
{"TINYFONT", EmitSingleChar, SCC_TINYFONT, 0, 0}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
444 |
{"BIGFONT", EmitSingleChar, SCC_BIGFONT, 0, 0}, |
0 | 445 |
|
446 |
// Colors |
|
5108
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
447 |
{"BLUE", EmitSingleChar, SCC_BLUE, 0, 0}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
448 |
{"SILVER", EmitSingleChar, SCC_SILVER, 0, 0}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
449 |
{"GOLD", EmitSingleChar, SCC_GOLD, 0, 0}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
450 |
{"RED", EmitSingleChar, SCC_RED, 0, 0}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
451 |
{"PURPLE", EmitSingleChar, SCC_PURPLE, 0, 0}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
452 |
{"LTBROWN", EmitSingleChar, SCC_LTBROWN, 0, 0}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
453 |
{"ORANGE", EmitSingleChar, SCC_ORANGE, 0, 0}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
454 |
{"GREEN", EmitSingleChar, SCC_GREEN, 0, 0}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
455 |
{"YELLOW", EmitSingleChar, SCC_YELLOW, 0, 0}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
456 |
{"DKGREEN", EmitSingleChar, SCC_DKGREEN, 0, 0}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
457 |
{"CREAM", EmitSingleChar, SCC_CREAM, 0, 0}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
458 |
{"BROWN", EmitSingleChar, SCC_BROWN, 0, 0}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
459 |
{"WHITE", EmitSingleChar, SCC_WHITE, 0, 0}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
460 |
{"LTBLUE", EmitSingleChar, SCC_LTBLUE, 0, 0}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
461 |
{"GRAY", EmitSingleChar, SCC_GRAY, 0, 0}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
462 |
{"DKBLUE", EmitSingleChar, SCC_DKBLUE, 0, 0}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
463 |
{"BLACK", EmitSingleChar, SCC_BLACK, 0, 0}, |
222
b88456001397
(svn r223) -Fix: Const correctness and miscellaneous fixes. Thank you Tron for your diligent fixing of warnings (and some possibly bugs) (Tron)
darkvater
parents:
181
diff
changeset
|
464 |
|
5108
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
465 |
{"CURRCOMPACT", EmitSingleChar, SCC_CURRENCY_COMPACT, 1, 0}, // compact currency (32 bits) |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
466 |
{"REV", EmitSingleChar, SCC_REVISION, 0, 0}, // openttd revision string |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
467 |
{"SHORTCARGO", EmitSingleChar, SCC_CARGO_SHORT, 2, 0}, // short cargo description, only ### tons, or ### litres |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
468 |
{"CURRCOMPACT64", EmitSingleChar, SCC_CURRENCY_COMPACT_64, 2, 0}, // compact currency 64 bits |
0 | 469 |
|
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
470 |
// These are special versions of {STRING1} |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
471 |
// The first string includes the second string. |
5108
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
472 |
{"COMPANY", EmitSingleChar, SCC_STRING1, 1, 0}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
473 |
{"PLAYERNAME", EmitSingleChar, SCC_STRING1, 1, 0}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
474 |
{"VEHICLE", EmitSingleChar, SCC_STRING1, 1, 0}, |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
475 |
|
5108
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
476 |
{"STRING1", EmitSingleChar, SCC_STRING1, 1, C_CASE}, // included string that consumes ONE argument |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
477 |
{"STRING2", EmitSingleChar, SCC_STRING2, 2, C_CASE}, // included string that consumes TWO arguments |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
478 |
{"STRING3", EmitSingleChar, SCC_STRING3, 3, C_CASE}, // included string that consumes THREE arguments |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
479 |
{"STRING4", EmitSingleChar, SCC_STRING4, 4, C_CASE}, // included string that consumes FOUR arguments |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
480 |
{"STRING5", EmitSingleChar, SCC_STRING5, 5, C_CASE}, // included string that consumes FIVE arguments |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
481 |
|
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
482 |
{"STATIONFEATURES", EmitSingleChar, SCC_STATION_FEATURES, 1, 0}, // station features string, icons of the features |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
483 |
{"INDUSTRY", EmitSingleChar, SCC_INDUSTRY_NAME, 1, 0}, // industry, takes an industry # |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
484 |
{"CARGO", EmitSingleChar, SCC_CARGO, 2, 0}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
485 |
{"POWER", EmitSingleChar, SCC_POWER, 1, 0}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
486 |
{"VOLUME", EmitSingleChar, SCC_VOLUME, 1, 0}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
487 |
{"VOLUME_S", EmitSingleChar, SCC_VOLUME_SHORT, 1, 0}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
488 |
{"WEIGHT", EmitSingleChar, SCC_WEIGHT, 1, 0}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
489 |
{"WEIGHT_S", EmitSingleChar, SCC_WEIGHT_SHORT, 1, 0}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
490 |
{"FORCE", EmitSingleChar, SCC_FORCE, 1, 0}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
491 |
{"VELOCITY", EmitSingleChar, SCC_VELOCITY, 1, 0}, |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
492 |
|
4434
a08cb4b5c179
(svn r6204) -Cleanup: replace non-indentation with spaces; like '}<TAB>else {' -> '} else {', tabs between code and comment, etc.
rubidium
parents:
4379
diff
changeset
|
493 |
{"P", EmitPlural, 0, 0, C_DONTCOUNT}, // plural specifier |
a08cb4b5c179
(svn r6204) -Cleanup: replace non-indentation with spaces; like '}<TAB>else {' -> '} else {', tabs between code and comment, etc.
rubidium
parents:
4379
diff
changeset
|
494 |
{"G", EmitGender, 0, 0, C_DONTCOUNT}, // gender specifier |
2082
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
495 |
|
5108
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
496 |
{"DATE_TINY", EmitSingleChar, SCC_DATE_TINY, 1, 0}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
497 |
{"DATE_SHORT", EmitSingleChar, SCC_DATE_SHORT, 1, 0}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
498 |
{"DATE_LONG", EmitSingleChar, SCC_DATE_LONG, 1, 0}, |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
499 |
|
5108
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
500 |
{"SKIP", EmitSingleChar, SCC_SKIP, 1, 0}, |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
501 |
|
5108
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
502 |
{"STRING", EmitSingleChar, SCC_STRING, 1, C_CASE}, |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
503 |
|
2410
795225af3c72
(svn r2936) Move string commands to a non-printable range and remove stale comments
tron
parents:
2407
diff
changeset
|
504 |
// Numbers |
5108
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
505 |
{"COMMA", EmitSingleChar, SCC_COMMA, 1, 0}, // Number with comma |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
506 |
{"NUM", EmitSingleChar, SCC_NUM, 1, 0}, // Signed number |
2410
795225af3c72
(svn r2936) Move string commands to a non-printable range and remove stale comments
tron
parents:
2407
diff
changeset
|
507 |
|
5108
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
508 |
{"CURRENCY", EmitSingleChar, SCC_CURRENCY, 1, 0}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
509 |
{"CURRENCY64", EmitSingleChar, SCC_CURRENCY_64, 2, 0}, |
2410
795225af3c72
(svn r2936) Move string commands to a non-printable range and remove stale comments
tron
parents:
2407
diff
changeset
|
510 |
|
5108
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
511 |
{"WAYPOINT", EmitSingleChar, SCC_WAYPOINT_NAME, 1, 0}, // waypoint name |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
512 |
{"STATION", EmitSingleChar, SCC_STATION_NAME, 1, 0}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
513 |
{"TOWN", EmitSingleChar, SCC_TOWN_NAME, 1, 0}, |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
514 |
|
2087 | 515 |
// 0x9D is used for the pseudo command SETCASE |
516 |
// 0x9E is used for case switching |
|
517 |
||
5108
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
518 |
{"", EmitSingleChar, '\n', 0, C_DONTCOUNT}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
519 |
{"{", EmitSingleChar, '{', 0, C_DONTCOUNT}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
520 |
{"UPARROW", EmitSingleChar, SCC_UPARROW, 0, 0}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
521 |
{"SMALLUPARROW", EmitSingleChar, SCC_SMALLUPARROW, 0, 0}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
522 |
{"SMALLDOWNARROW", EmitSingleChar, SCC_SMALLDOWNARROW, 0, 0}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
523 |
{"TRAIN", EmitSingleChar, SCC_TRAIN, 0, 0}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
524 |
{"LORRY", EmitSingleChar, SCC_LORRY, 0, 0}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
525 |
{"BUS", EmitSingleChar, SCC_BUS, 0, 0}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
526 |
{"PLANE", EmitSingleChar, SCC_PLANE, 0, 0}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
527 |
{"SHIP", EmitSingleChar, SCC_SHIP, 0, 0}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
528 |
{"NBSP", EmitSingleChar, 0xA0, 0, C_DONTCOUNT}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
529 |
{"CENT", EmitSingleChar, 0xA2, 0, C_DONTCOUNT}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
530 |
{"POUNDSIGN", EmitSingleChar, 0xA3, 0, C_DONTCOUNT}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
531 |
{"EURO", EmitSingleChar, 0x20AC, 0, C_DONTCOUNT}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
532 |
{"YENSIGN", EmitSingleChar, 0xA5, 0, C_DONTCOUNT}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
533 |
{"COPYRIGHT", EmitSingleChar, 0xA9, 0, C_DONTCOUNT}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
534 |
{"DOWNARROW", EmitSingleChar, SCC_DOWNARROW, 0, C_DONTCOUNT}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
535 |
{"CHECKMARK", EmitSingleChar, SCC_CHECKMARK, 0, C_DONTCOUNT}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
536 |
{"CROSS", EmitSingleChar, SCC_CROSS, 0, C_DONTCOUNT}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
537 |
{"REGISTERED", EmitSingleChar, 0xAE, 0, C_DONTCOUNT}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
538 |
{"RIGHTARROW", EmitSingleChar, SCC_RIGHTARROW, 0, C_DONTCOUNT}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
539 |
{"SMALLLEFTARROW", EmitSingleChar, SCC_LESSTHAN, 0, C_DONTCOUNT}, |
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
540 |
{"SMALLRIGHTARROW",EmitSingleChar, SCC_GREATERTHAN, 0, C_DONTCOUNT}, |
0 | 541 |
}; |
542 |
||
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
543 |
|
2059
6446d0b23ddc
(svn r2568) Small cleanup in strgen: static, bracing, ...
tron
parents:
2057
diff
changeset
|
544 |
static const CmdStruct *FindCmd(const char *s, int len) |
6446d0b23ddc
(svn r2568) Small cleanup in strgen: static, bracing, ...
tron
parents:
2057
diff
changeset
|
545 |
{ |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
546 |
const CmdStruct* cs; |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
547 |
|
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
548 |
for (cs = _cmd_structs; cs != endof(_cmd_structs); cs++) { |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
549 |
if (strncmp(cs->cmd, s, len) == 0 && cs->cmd[len] == '\0') return cs; |
0 | 550 |
} |
551 |
return NULL; |
|
552 |
} |
|
553 |
||
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
554 |
static uint ResolveCaseName(const char *str, uint len) |
2087 | 555 |
{ |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
556 |
uint i; |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
557 |
|
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
558 |
for (i = 0; i < MAX_NUM_CASES; i++) { |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
559 |
if (memcmp(_cases[i], str, len) == 0 && _cases[i][len] == 0) return i + 1; |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
560 |
} |
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
561 |
fatal("Invalid case-name '%s'", str); |
2087 | 562 |
} |
563 |
||
0 | 564 |
|
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
565 |
// returns NULL on eof |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
566 |
// else returns command struct |
2087 | 567 |
static const CmdStruct *ParseCommandString(const char **str, char *param, int *argno, int *casei) |
0 | 568 |
{ |
2087 | 569 |
const char *s = *str, *start; |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
570 |
const CmdStruct *cmd; |
2060
9f3855e81f4b
(svn r2569) Get rid of some dubious casts and thus warnings on 64bit machines
tron
parents:
2059
diff
changeset
|
571 |
byte c; |
0 | 572 |
|
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
573 |
*argno = -1; |
2087 | 574 |
*casei = -1; |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
575 |
|
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
576 |
// Scan to the next command, exit if there's no next command. |
2952 | 577 |
for (; *s != '{'; s++) { |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
578 |
if (*s == '\0') return NULL; |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
579 |
} |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
580 |
s++; // Skip past the { |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
581 |
|
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
582 |
if (*s >= '0' && *s <= '9') { |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
583 |
char *end; |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
584 |
|
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
585 |
*argno = strtoul(s, &end, 0); |
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
586 |
if (*end != ':') fatal("missing arg #"); |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
587 |
s = end + 1; |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
588 |
} |
0 | 589 |
|
590 |
// parse command name |
|
591 |
start = s; |
|
2087 | 592 |
do { |
0 | 593 |
c = *s++; |
2087 | 594 |
} while (c != '}' && c != ' ' && c != '=' && c != '.' && c != 0); |
0 | 595 |
|
2059
6446d0b23ddc
(svn r2568) Small cleanup in strgen: static, bracing, ...
tron
parents:
2057
diff
changeset
|
596 |
cmd = FindCmd(start, s - start - 1); |
0 | 597 |
if (cmd == NULL) { |
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
598 |
error("Undefined command '%.*s'", s - start - 1, start); |
0 | 599 |
return NULL; |
600 |
} |
|
601 |
||
2087 | 602 |
if (c == '.') { |
603 |
const char *casep = s; |
|
604 |
||
605 |
if (!(cmd->flags & C_CASE)) |
|
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
606 |
fatal("Command '%s' can't have a case", cmd->cmd); |
2087 | 607 |
|
608 |
do c = *s++; while (c != '}' && c != ' ' && c != '\0'); |
|
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
609 |
*casei = ResolveCaseName(casep, s - casep - 1); |
2087 | 610 |
} |
611 |
||
612 |
if (c == '\0') { |
|
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
613 |
error("Missing } from command '%s'", start); |
2087 | 614 |
return NULL; |
615 |
} |
|
616 |
||
617 |
||
2084
65639f898a50
(svn r2594) Fix: [strgen] Misc updates to the string system.
ludde
parents:
2082
diff
changeset
|
618 |
if (c != '}') { |
65639f898a50
(svn r2594) Fix: [strgen] Misc updates to the string system.
ludde
parents:
2082
diff
changeset
|
619 |
if (c == '=') s--; |
0 | 620 |
// copy params |
621 |
start = s; |
|
2952 | 622 |
for (;;) { |
0 | 623 |
c = *s++; |
624 |
if (c == '}') break; |
|
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
625 |
if (c == '\0') { |
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
626 |
error("Missing } from command '%s'", start); |
0 | 627 |
return NULL; |
628 |
} |
|
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
629 |
if (s - start == 250) fatal("param command too long"); |
0 | 630 |
*param++ = c; |
631 |
} |
|
632 |
} |
|
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
633 |
*param = '\0'; |
0 | 634 |
|
635 |
*str = s; |
|
636 |
||
637 |
return cmd; |
|
638 |
} |
|
639 |
||
640 |
||
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
641 |
static void HandlePragma(char *str) |
0 | 642 |
{ |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
643 |
if (!memcmp(str, "id ", 3)) { |
0 | 644 |
_next_string_id = strtoul(str + 3, NULL, 0); |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
645 |
} else if (!memcmp(str, "name ", 5)) { |
0 | 646 |
ttd_strlcpy(_lang_name, str + 5, sizeof(_lang_name)); |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
647 |
} else if (!memcmp(str, "ownname ", 8)) { |
0 | 648 |
ttd_strlcpy(_lang_ownname, str + 8, sizeof(_lang_ownname)); |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
649 |
} else if (!memcmp(str, "isocode ", 8)) { |
1376
d4e1dd8eb7e5
(svn r1880) [Codechange] Added isocodes to langfiles and support code to strgen (Lauri Nurmi)
miham
parents:
1097
diff
changeset
|
650 |
ttd_strlcpy(_lang_isocode, str + 8, sizeof(_lang_isocode)); |
2082
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
651 |
} else if (!memcmp(str, "plural ", 7)) { |
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
652 |
_lang_pluralform = atoi(str + 7); |
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
653 |
if (_lang_pluralform >= lengthof(_plural_form_counts)) |
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
654 |
fatal("Invalid pluralform %d", _lang_pluralform); |
2084
65639f898a50
(svn r2594) Fix: [strgen] Misc updates to the string system.
ludde
parents:
2082
diff
changeset
|
655 |
} else if (!memcmp(str, "gender ", 7)) { |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
656 |
char* buf = str + 7; |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
657 |
|
2952 | 658 |
for (;;) { |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
659 |
const char* s = ParseWord(&buf); |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
660 |
|
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
661 |
if (s == NULL) break; |
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
662 |
if (_numgenders >= MAX_NUM_GENDER) fatal("Too many genders, max %d", MAX_NUM_GENDER); |
2087 | 663 |
ttd_strlcpy(_genders[_numgenders], s, sizeof(_genders[_numgenders])); |
2084
65639f898a50
(svn r2594) Fix: [strgen] Misc updates to the string system.
ludde
parents:
2082
diff
changeset
|
664 |
_numgenders++; |
65639f898a50
(svn r2594) Fix: [strgen] Misc updates to the string system.
ludde
parents:
2082
diff
changeset
|
665 |
} |
2087 | 666 |
} else if (!memcmp(str, "case ", 5)) { |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
667 |
char* buf = str + 5; |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
668 |
|
2952 | 669 |
for (;;) { |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
670 |
const char* s = ParseWord(&buf); |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
671 |
|
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
672 |
if (s == NULL) break; |
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
673 |
if (_numcases >= MAX_NUM_CASES) fatal("Too many cases, max %d", MAX_NUM_CASES); |
2087 | 674 |
ttd_strlcpy(_cases[_numcases], s, sizeof(_cases[_numcases])); |
675 |
_numcases++; |
|
676 |
} |
|
0 | 677 |
} else { |
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
678 |
fatal("unknown pragma '%s'", str); |
0 | 679 |
} |
680 |
} |
|
681 |
||
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
682 |
static void ExtractCommandString(ParsedCommandStruct* p, const char* s, bool warnings) |
0 | 683 |
{ |
684 |
char param[100]; |
|
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
685 |
int argno; |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
686 |
int argidx = 0; |
2087 | 687 |
int casei; |
0 | 688 |
|
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
689 |
memset(p, 0, sizeof(*p)); |
0 | 690 |
|
2952 | 691 |
for (;;) { |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
692 |
// read until next command from a. |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
693 |
const CmdStruct* ar = ParseCommandString(&s, param, &argno, &casei); |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
694 |
|
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
695 |
if (ar == NULL) break; |
0 | 696 |
|
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
697 |
// Sanity checking |
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
698 |
if (argno != -1 && ar->consumes == 0) fatal("Non consumer param can't have a paramindex"); |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
699 |
|
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
700 |
if (ar->consumes) { |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
701 |
if (argno != -1) argidx = argno; |
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
702 |
if (argidx < 0 || argidx >= lengthof(p->cmd)) fatal("invalid param idx %d", argidx); |
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
703 |
if (p->cmd[argidx] != NULL && p->cmd[argidx] != ar) fatal("duplicate param idx %d", argidx); |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
704 |
|
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
705 |
p->cmd[argidx++] = ar; |
2087 | 706 |
} else if (!(ar->flags & C_DONTCOUNT)) { // Ignore some of them |
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
707 |
if (p->np >= lengthof(p->pairs)) fatal("too many commands in string, max %d", lengthof(p->pairs)); |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
708 |
p->pairs[p->np].a = ar; |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
709 |
p->pairs[p->np].v = param[0] != '\0' ? strdup(param) : ""; |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
710 |
p->np++; |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
711 |
} |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
712 |
} |
0 | 713 |
} |
714 |
||
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
715 |
|
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
716 |
static const CmdStruct *TranslateCmdForCompare(const CmdStruct *a) |
2059
6446d0b23ddc
(svn r2568) Small cleanup in strgen: static, bracing, ...
tron
parents:
2057
diff
changeset
|
717 |
{ |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
718 |
if (a == NULL) return NULL; |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
719 |
|
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
720 |
if (strcmp(a->cmd, "STRING1") == 0 || |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
721 |
strcmp(a->cmd, "STRING2") == 0 || |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
722 |
strcmp(a->cmd, "STRING3") == 0 || |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
723 |
strcmp(a->cmd, "STRING4") == 0 || |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
724 |
strcmp(a->cmd, "STRING5") == 0) { |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
725 |
return FindCmd("STRING", 6); |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
726 |
} |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
727 |
|
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
728 |
if (strcmp(a->cmd, "SKIP") == 0) return NULL; |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
729 |
|
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
730 |
return a; |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
731 |
} |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
732 |
|
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
733 |
|
2069
30294fb11fc1
(svn r2579) Change some strgen errors into warnings to prevent build from stopping.
ludde
parents:
2063
diff
changeset
|
734 |
static bool CheckCommandsMatch(char *a, char *b, const char *name) |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
735 |
{ |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
736 |
ParsedCommandStruct templ; |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
737 |
ParsedCommandStruct lang; |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
738 |
int i,j; |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
739 |
bool result = true; |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
740 |
|
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
741 |
ExtractCommandString(&templ, b, true); |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
742 |
ExtractCommandString(&lang, a, true); |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
743 |
|
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
744 |
// For each string in templ, see if we find it in lang |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
745 |
if (templ.np != lang.np) { |
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
746 |
warning("%s: template string and language string have a different # of commands", name); |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
747 |
result = false; |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
748 |
} |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
749 |
|
2952 | 750 |
for (i = 0; i < templ.np; i++) { |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
751 |
// see if we find it in lang, and zero it out |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
752 |
bool found = false; |
2952 | 753 |
for (j = 0; j < lang.np; j++) { |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
754 |
if (templ.pairs[i].a == lang.pairs[j].a && |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
755 |
strcmp(templ.pairs[i].v, lang.pairs[j].v) == 0) { |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
756 |
// it was found in both. zero it out from lang so we don't find it again |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
757 |
lang.pairs[j].a = NULL; |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
758 |
found = true; |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
759 |
break; |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
760 |
} |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
761 |
} |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
762 |
|
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
763 |
if (!found) { |
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
764 |
warning("%s: command '%s' exists in template file but not in language file", name, templ.pairs[i].a->cmd); |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
765 |
result = false; |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
766 |
} |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
767 |
} |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
768 |
|
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
769 |
// if we reach here, all non consumer commands match up. |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
770 |
// Check if the non consumer commands match up also. |
2952 | 771 |
for (i = 0; i < lengthof(templ.cmd); i++) { |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
772 |
if (TranslateCmdForCompare(templ.cmd[i]) != TranslateCmdForCompare(lang.cmd[i])) { |
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
773 |
warning("%s: Param idx #%d '%s' doesn't match with template command '%s'", name, i, |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
774 |
lang.cmd[i] == NULL ? "<empty>" : lang.cmd[i]->cmd, |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
775 |
templ.cmd[i] == NULL ? "<empty>" : templ.cmd[i]->cmd); |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
776 |
result = false; |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
777 |
} |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
778 |
} |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
779 |
|
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
780 |
return result; |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
781 |
} |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
782 |
|
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
783 |
static void HandleString(char *str, bool master) |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
784 |
{ |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
785 |
char *s,*t; |
2087 | 786 |
LangString *ent; |
787 |
char *casep; |
|
222
b88456001397
(svn r223) -Fix: Const correctness and miscellaneous fixes. Thank you Tron for your diligent fixing of warnings (and some possibly bugs) (Tron)
darkvater
parents:
181
diff
changeset
|
788 |
|
0 | 789 |
if (*str == '#') { |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
790 |
if (str[1] == '#' && str[2] != '#') HandlePragma(str + 2); |
0 | 791 |
return; |
792 |
} |
|
793 |
||
794 |
// Ignore comments & blank lines |
|
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
795 |
if (*str == ';' || *str == ' ' || *str == '\0') return; |
0 | 796 |
|
797 |
s = strchr(str, ':'); |
|
798 |
if (s == NULL) { |
|
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
799 |
error("Line has no ':' delimiter"); |
0 | 800 |
return; |
801 |
} |
|
802 |
||
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
803 |
// Trim spaces. |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
804 |
// After this str points to the command name, and s points to the command contents |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
805 |
for (t = s; t > str && (t[-1] == ' ' || t[-1] == '\t'); t--); |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
806 |
*t = 0; |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
807 |
s++; |
0 | 808 |
|
5111
ee7472776a4d
(svn r7185) -Codechange: Make strgen validate strings for UTF-8 well-formed-ness-ness
peter1138
parents:
5108
diff
changeset
|
809 |
/* Check string is valid UTF-8 */ |
ee7472776a4d
(svn r7185) -Codechange: Make strgen validate strings for UTF-8 well-formed-ness-ness
peter1138
parents:
5108
diff
changeset
|
810 |
{ |
ee7472776a4d
(svn r7185) -Codechange: Make strgen validate strings for UTF-8 well-formed-ness-ness
peter1138
parents:
5108
diff
changeset
|
811 |
const char *tmp; |
ee7472776a4d
(svn r7185) -Codechange: Make strgen validate strings for UTF-8 well-formed-ness-ness
peter1138
parents:
5108
diff
changeset
|
812 |
for (tmp = s; *tmp != '\0';) { |
ee7472776a4d
(svn r7185) -Codechange: Make strgen validate strings for UTF-8 well-formed-ness-ness
peter1138
parents:
5108
diff
changeset
|
813 |
size_t len = Utf8Validate(tmp); |
ee7472776a4d
(svn r7185) -Codechange: Make strgen validate strings for UTF-8 well-formed-ness-ness
peter1138
parents:
5108
diff
changeset
|
814 |
if (len == 0) fatal("Invalid UTF-8 sequence in '%s'", s); |
ee7472776a4d
(svn r7185) -Codechange: Make strgen validate strings for UTF-8 well-formed-ness-ness
peter1138
parents:
5108
diff
changeset
|
815 |
tmp += len; |
ee7472776a4d
(svn r7185) -Codechange: Make strgen validate strings for UTF-8 well-formed-ness-ness
peter1138
parents:
5108
diff
changeset
|
816 |
} |
ee7472776a4d
(svn r7185) -Codechange: Make strgen validate strings for UTF-8 well-formed-ness-ness
peter1138
parents:
5108
diff
changeset
|
817 |
} |
ee7472776a4d
(svn r7185) -Codechange: Make strgen validate strings for UTF-8 well-formed-ness-ness
peter1138
parents:
5108
diff
changeset
|
818 |
|
2087 | 819 |
// Check if the string has a case.. |
820 |
// The syntax for cases is IDENTNAME.case |
|
821 |
casep = strchr(str, '.'); |
|
822 |
if (casep) *casep++ = 0; |
|
823 |
||
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
824 |
// Check if this string already exists.. |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
825 |
ent = HashFind(str); |
0 | 826 |
|
827 |
if (master) { |
|
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
828 |
if (ent != NULL && casep == NULL) { |
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
829 |
error("String name '%s' is used multiple times", str); |
0 | 830 |
return; |
831 |
} |
|
832 |
||
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
833 |
if (ent == NULL && casep != NULL) { |
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
834 |
error("Base string name '%s' doesn't exist yet. Define it before defining a case.", str); |
0 | 835 |
return; |
836 |
} |
|
837 |
||
2087 | 838 |
if (ent == NULL) { |
839 |
if (_strings[_next_string_id]) { |
|
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
840 |
error("String ID 0x%X for '%s' already in use by '%s'", ent, str, _strings[_next_string_id]->name); |
2087 | 841 |
return; |
842 |
} |
|
843 |
||
844 |
// Allocate a new LangString |
|
3718
7e99107bbe2f
(svn r4689) - Codechange: correct parameter order or calloc, and use the sizeof the variable rather than a struct
peter1138
parents:
3489
diff
changeset
|
845 |
ent = calloc(1, sizeof(*ent)); |
2087 | 846 |
_strings[_next_string_id] = ent; |
847 |
ent->index = _next_string_id++; |
|
848 |
ent->name = strdup(str); |
|
2566
75ae28a03460
(svn r3103) - Fix: [ 1339000 ] Fix: strgen and plural forms fatal error for untranslated strings. (glx). Also output the correct lines for these warnings, for missing strings the lines correspond with the ones in english.txt
Darkvater
parents:
2482
diff
changeset
|
849 |
ent->line = _cur_line; |
2087 | 850 |
|
851 |
HashAdd(str, ent); |
|
852 |
} |
|
853 |
||
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
854 |
if (casep != NULL) { |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
855 |
Case* c = malloc(sizeof(*c)); |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
856 |
|
2087 | 857 |
c->caseidx = ResolveCaseName(casep, strlen(casep)); |
858 |
c->string = strdup(s); |
|
859 |
c->next = ent->english_case; |
|
860 |
ent->english_case = c; |
|
861 |
} else { |
|
862 |
ent->english = strdup(s); |
|
863 |
} |
|
864 |
||
0 | 865 |
} else { |
2087 | 866 |
if (ent == NULL) { |
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
867 |
warning("String name '%s' does not exist in master file", str); |
0 | 868 |
return; |
869 |
} |
|
870 |
||
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
871 |
if (ent->translated && casep == NULL) { |
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
872 |
error("String name '%s' is used multiple times", str); |
0 | 873 |
return; |
874 |
} |
|
875 |
||
2087 | 876 |
if (s[0] == ':' && s[1] == '\0' && casep == NULL) { |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
877 |
// Special syntax :: means we should just inherit the master string |
2087 | 878 |
ent->translated = strdup(ent->english); |
0 | 879 |
} else { |
2087 | 880 |
// make sure that the commands match |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
881 |
if (!CheckCommandsMatch(s, ent->english, str)) return; |
2087 | 882 |
|
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
883 |
if (casep != NULL) { |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
884 |
Case* c = malloc(sizeof(*c)); |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
885 |
|
2087 | 886 |
c->caseidx = ResolveCaseName(casep, strlen(casep)); |
887 |
c->string = strdup(s); |
|
888 |
c->next = ent->translated_case; |
|
889 |
ent->translated_case = c; |
|
890 |
} else { |
|
891 |
ent->translated = strdup(s); |
|
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
892 |
} |
0 | 893 |
} |
894 |
} |
|
895 |
} |
|
896 |
||
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
897 |
|
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
898 |
static void rstrip(char *buf) |
0 | 899 |
{ |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
900 |
int i = strlen(buf); |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
901 |
while (i > 0 && (buf[i - 1] == '\r' || buf[i - 1] == '\n' || buf[i - 1] == ' ')) i--; |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
902 |
buf[i] = '\0'; |
0 | 903 |
} |
904 |
||
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
905 |
|
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
906 |
static void ParseFile(const char *file, bool english) |
2059
6446d0b23ddc
(svn r2568) Small cleanup in strgen: static, bracing, ...
tron
parents:
2057
diff
changeset
|
907 |
{ |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
908 |
FILE *in; |
0 | 909 |
char buf[2048]; |
910 |
||
2459
a2f63b331830
(svn r2985) Print warnings and errors in the canonical file:line: form to make life for IDEs easier (ln-)
tron
parents:
2418
diff
changeset
|
911 |
_file = file; |
a2f63b331830
(svn r2985) Print warnings and errors in the canonical file:line: form to make life for IDEs easier (ln-)
tron
parents:
2418
diff
changeset
|
912 |
|
2087 | 913 |
// For each new file we parse, reset the genders. |
914 |
_numgenders = 0; |
|
915 |
// TODO:!! We can't reset the cases. In case the translated strings |
|
916 |
// derive some strings from english.... |
|
917 |
||
918 |
||
0 | 919 |
in = fopen(file, "r"); |
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
920 |
if (in == NULL) fatal("Cannot open file"); |
0 | 921 |
_cur_line = 1; |
922 |
while (fgets(buf, sizeof(buf),in) != NULL) { |
|
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
923 |
rstrip(buf); |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
924 |
HandleString(buf, english); |
0 | 925 |
_cur_line++; |
926 |
} |
|
927 |
fclose(in); |
|
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
928 |
} |
2059
6446d0b23ddc
(svn r2568) Small cleanup in strgen: static, bracing, ...
tron
parents:
2057
diff
changeset
|
929 |
|
6446d0b23ddc
(svn r2568) Small cleanup in strgen: static, bracing, ...
tron
parents:
2057
diff
changeset
|
930 |
|
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
931 |
static uint32 MyHashStr(uint32 hash, const char *s) |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
932 |
{ |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
933 |
for (; *s != '\0'; s++) { |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
934 |
hash = ROL(hash, 3) ^ *s; |
4077
d4d440dd8925
(svn r5391) Miscellaneous, mostly bracing and whitespace, nothing spectacular
tron
parents:
3900
diff
changeset
|
935 |
hash = (hash & 1 ? hash >> 1 ^ 0xDEADBEEF : hash >> 1); |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
936 |
} |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
937 |
return hash; |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
938 |
} |
0 | 939 |
|
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
940 |
|
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
941 |
// make a hash of the file to get a unique "version number" |
2765
8fa792b6e525
(svn r3310) Fix a couple of warnings: Initialise all struct members, disambiguate cascaded if/else, remove an unused variable, use (void) for empty parameter lists
tron
parents:
2586
diff
changeset
|
942 |
static void MakeHashOfStrings(void) |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
943 |
{ |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
944 |
uint32 hash = 0; |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
945 |
uint i; |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
946 |
|
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
947 |
for (i = 0; i != lengthof(_strings); i++) { |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
948 |
const LangString* ls = _strings[i]; |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
949 |
|
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
950 |
if (ls != NULL) { |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
951 |
const CmdStruct* cs; |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
952 |
const char* s; |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
953 |
char buf[256]; |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
954 |
int argno; |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
955 |
int casei; |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
956 |
|
2087 | 957 |
s = ls->name; |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
958 |
hash ^= i * 0x717239; |
4077
d4d440dd8925
(svn r5391) Miscellaneous, mostly bracing and whitespace, nothing spectacular
tron
parents:
3900
diff
changeset
|
959 |
hash = (hash & 1 ? hash >> 1 ^ 0xDEADBEEF : hash >> 1); |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
960 |
hash = MyHashStr(hash, s + 1); |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
961 |
|
2087 | 962 |
s = ls->english; |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
963 |
while ((cs = ParseCommandString(&s, buf, &argno, &casei)) != NULL) { |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
964 |
if (cs->flags & C_DONTCOUNT) continue; |
2087 | 965 |
|
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
966 |
hash ^= (cs - _cmd_structs) * 0x1234567; |
4077
d4d440dd8925
(svn r5391) Miscellaneous, mostly bracing and whitespace, nothing spectacular
tron
parents:
3900
diff
changeset
|
967 |
hash = (hash & 1 ? hash >> 1 ^ 0xF00BAA4 : hash >> 1); |
222
b88456001397
(svn r223) -Fix: Const correctness and miscellaneous fixes. Thank you Tron for your diligent fixing of warnings (and some possibly bugs) (Tron)
darkvater
parents:
181
diff
changeset
|
968 |
} |
0 | 969 |
} |
970 |
} |
|
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
971 |
_hash = hash; |
0 | 972 |
} |
973 |
||
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
974 |
|
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
975 |
static uint CountInUse(uint grp) |
2059
6446d0b23ddc
(svn r2568) Small cleanup in strgen: static, bracing, ...
tron
parents:
2057
diff
changeset
|
976 |
{ |
0 | 977 |
int i; |
978 |
||
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
979 |
for (i = 0x800; --i >= 0;) if (_strings[(grp << 11) + i] != NULL) break; |
0 | 980 |
return i + 1; |
981 |
} |
|
982 |
||
983 |
||
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
984 |
bool CompareFiles(const char *n1, const char *n2) |
0 | 985 |
{ |
986 |
FILE *f1, *f2; |
|
987 |
char b1[4096]; |
|
988 |
char b2[4096]; |
|
989 |
size_t l1, l2; |
|
990 |
||
991 |
f2 = fopen(n2, "rb"); |
|
992 |
if (f2 == NULL) return false; |
|
993 |
||
994 |
f1 = fopen(n1, "rb"); |
|
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
995 |
if (f1 == NULL) fatal("can't open %s", n1); |
0 | 996 |
|
997 |
do { |
|
998 |
l1 = fread(b1, 1, sizeof(b1), f1); |
|
999 |
l2 = fread(b2, 1, sizeof(b2), f2); |
|
1000 |
||
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
1001 |
if (l1 != l2 || memcmp(b1, b2, l1)) { |
0 | 1002 |
fclose(f2); |
1003 |
fclose(f1); |
|
1004 |
return false; |
|
1005 |
} |
|
1006 |
} while (l1); |
|
1007 |
||
1008 |
fclose(f2); |
|
1009 |
fclose(f1); |
|
1010 |
return true; |
|
1011 |
} |
|
1012 |
||
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
1013 |
|
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
1014 |
static void WriteStringsH(const char *filename) |
0 | 1015 |
{ |
1016 |
FILE *out; |
|
1017 |
int i; |
|
1018 |
int next = -1; |
|
1019 |
int lastgrp; |
|
1020 |
||
1021 |
out = fopen("tmp.xxx", "w"); |
|
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
1022 |
if (out == NULL) fatal("can't open tmp.xxx"); |
0 | 1023 |
|
1024 |
fprintf(out, "enum {"); |
|
1025 |
||
1026 |
lastgrp = 0; |
|
1027 |
||
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
1028 |
for (i = 0; i != lengthof(_strings); i++) { |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
1029 |
if (_strings[i] != NULL) { |
0 | 1030 |
if (lastgrp != (i >> 11)) { |
1031 |
lastgrp = (i >> 11); |
|
1032 |
fprintf(out, "};\n\nenum {"); |
|
1033 |
} |
|
222
b88456001397
(svn r223) -Fix: Const correctness and miscellaneous fixes. Thank you Tron for your diligent fixing of warnings (and some possibly bugs) (Tron)
darkvater
parents:
181
diff
changeset
|
1034 |
|
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
1035 |
fprintf(out, next == i ? "\t%s,\n" : "\n\t%s = 0x%X,\n", _strings[i]->name, i); |
0 | 1036 |
next = i + 1; |
1037 |
} |
|
1038 |
} |
|
1039 |
||
1040 |
fprintf(out, "};\n"); |
|
1041 |
||
222
b88456001397
(svn r223) -Fix: Const correctness and miscellaneous fixes. Thank you Tron for your diligent fixing of warnings (and some possibly bugs) (Tron)
darkvater
parents:
181
diff
changeset
|
1042 |
fprintf(out, |
0 | 1043 |
"\nenum {\n" |
181
0b95567f2d0f
(svn r182) -Fix: [1024380] strgen diff (Warning fix + MorphOS fix). Removes the longest standing warning on compilation of strgen (tokai)
darkvater
parents:
0
diff
changeset
|
1044 |
"\tLANGUAGE_PACK_IDENT = 0x474E414C, // Big Endian value for 'LANG' (LE is 0x 4C 41 4E 47)\n" |
0 | 1045 |
"\tLANGUAGE_PACK_VERSION = 0x%X,\n" |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
1046 |
"};\n", (uint)_hash |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
1047 |
); |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
1048 |
|
0 | 1049 |
fclose(out); |
1050 |
||
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
1051 |
if (CompareFiles("tmp.xxx", filename)) { |
0 | 1052 |
// files are equal. tmp.xxx is not needed |
1053 |
unlink("tmp.xxx"); |
|
1054 |
} else { |
|
1055 |
// else rename tmp.xxx into filename |
|
2482
374f6395847d
(svn r3008) [ 1247535 ] Native Support for Win64 (compile&run only) (michi_cc)
Darkvater
parents:
2459
diff
changeset
|
1056 |
#if defined(WIN32) || defined(WIN64) |
0 | 1057 |
unlink(filename); |
1058 |
#endif |
|
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
1059 |
if (rename("tmp.xxx", filename) == -1) fatal("rename() failed"); |
0 | 1060 |
} |
1061 |
} |
|
1062 |
||
2087 | 1063 |
static int TranslateArgumentIdx(int argidx) |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
1064 |
{ |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
1065 |
int i, sum; |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
1066 |
|
2082
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
1067 |
if (argidx < 0 || argidx >= lengthof(_cur_pcs.cmd)) |
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
1068 |
fatal("invalid argidx %d", argidx); |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
1069 |
|
2952 | 1070 |
for (i = sum = 0; i < argidx; i++) { |
2374
e4443eab6293
(svn r2900) Fix a bug, which incremented the counter of a loop twice and therefore calculated wrong argument indices
tron
parents:
2353
diff
changeset
|
1071 |
const CmdStruct *cs = _cur_pcs.cmd[i]; |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
1072 |
sum += (cs != NULL) ? cs->consumes : 1; |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
1073 |
} |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
1074 |
|
2082
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
1075 |
return sum; |
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
1076 |
} |
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
1077 |
|
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
1078 |
static void PutArgidxCommand(void) |
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
1079 |
{ |
5108
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
1080 |
PutUtf8(SCC_ARG_INDEX); |
2087 | 1081 |
PutByte(TranslateArgumentIdx(_cur_argidx)); |
1082 |
} |
|
1083 |
||
1084 |
||
1085 |
static void PutCommandString(const char *str) |
|
1086 |
{ |
|
1087 |
const CmdStruct *cs; |
|
1088 |
char param[256]; |
|
1089 |
int argno; |
|
1090 |
int casei; |
|
1091 |
||
1092 |
_cur_argidx = 0; |
|
1093 |
||
1094 |
while (*str != '\0') { |
|
1095 |
// Process characters as they are until we encounter a { |
|
1096 |
if (*str != '{') { |
|
1097 |
PutByte(*str++); |
|
1098 |
continue; |
|
1099 |
} |
|
1100 |
cs = ParseCommandString(&str, param, &argno, &casei); |
|
1101 |
if (cs == NULL) break; |
|
1102 |
||
1103 |
if (casei != -1) { |
|
5108
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
1104 |
PutUtf8(SCC_SETCASE); // {SETCASE} |
2087 | 1105 |
PutByte(casei); |
1106 |
} |
|
1107 |
||
1108 |
// For params that consume values, we need to handle the argindex properly |
|
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
1109 |
if (cs->consumes > 0) { |
2087 | 1110 |
// Check if we need to output a move-param command |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
1111 |
if (argno != -1 && argno != _cur_argidx) { |
2087 | 1112 |
_cur_argidx = argno; |
1113 |
PutArgidxCommand(); |
|
1114 |
} |
|
1115 |
||
1116 |
// Output the one from the master string... it's always accurate. |
|
1117 |
cs = _cur_pcs.cmd[_cur_argidx++]; |
|
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
1118 |
if (cs == NULL) { |
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
1119 |
fatal("%s: No argument exists at position %d", _cur_ident, _cur_argidx - 1); |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
1120 |
} |
2087 | 1121 |
} |
1122 |
||
1123 |
cs->proc(param, cs->value); |
|
1124 |
} |
|
1125 |
} |
|
1126 |
||
1127 |
static void WriteLength(FILE *f, uint length) |
|
1128 |
{ |
|
1129 |
if (length < 0xC0) { |
|
1130 |
fputc(length, f); |
|
1131 |
} else if (length < 0x4000) { |
|
1132 |
fputc((length >> 8) | 0xC0, f); |
|
1133 |
fputc(length & 0xFF, f); |
|
1134 |
} else { |
|
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
1135 |
fatal("string too long"); |
2087 | 1136 |
} |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
1137 |
} |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
1138 |
|
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
1139 |
|
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
1140 |
static void WriteLangfile(const char *filename, int show_todo) |
0 | 1141 |
{ |
1142 |
FILE *f; |
|
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
1143 |
uint in_use[32]; |
0 | 1144 |
LanguagePackHeader hdr; |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
1145 |
uint i; |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
1146 |
uint j; |
0 | 1147 |
|
1148 |
f = fopen(filename, "wb"); |
|
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
1149 |
if (f == NULL) fatal("can't open %s", filename); |
0 | 1150 |
|
1151 |
memset(&hdr, 0, sizeof(hdr)); |
|
2952 | 1152 |
for (i = 0; i != 32; i++) { |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
1153 |
uint n = CountInUse(i); |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
1154 |
|
0 | 1155 |
in_use[i] = n; |
1156 |
hdr.offsets[i] = TO_LE16(n); |
|
1157 |
} |
|
1158 |
||
222
b88456001397
(svn r223) -Fix: Const correctness and miscellaneous fixes. Thank you Tron for your diligent fixing of warnings (and some possibly bugs) (Tron)
darkvater
parents:
181
diff
changeset
|
1159 |
// see line 655: fprintf(..."\tLANGUAGE_PACK_IDENT = 0x474E414C,...) |
181
0b95567f2d0f
(svn r182) -Fix: [1024380] strgen diff (Warning fix + MorphOS fix). Removes the longest standing warning on compilation of strgen (tokai)
darkvater
parents:
0
diff
changeset
|
1160 |
hdr.ident = TO_LE32(0x474E414C); // Big Endian value for 'LANG' |
0 | 1161 |
hdr.version = TO_LE32(_hash); |
2082
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
1162 |
hdr.plural_form = _lang_pluralform; |
0 | 1163 |
strcpy(hdr.name, _lang_name); |
1164 |
strcpy(hdr.own_name, _lang_ownname); |
|
1376
d4e1dd8eb7e5
(svn r1880) [Codechange] Added isocodes to langfiles and support code to strgen (Lauri Nurmi)
miham
parents:
1097
diff
changeset
|
1165 |
strcpy(hdr.isocode, _lang_isocode); |
0 | 1166 |
|
1167 |
fwrite(&hdr, sizeof(hdr), 1, f); |
|
1168 |
||
2952 | 1169 |
for (i = 0; i != 32; i++) { |
1170 |
for (j = 0; j != in_use[i]; j++) { |
|
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
1171 |
const LangString* ls = _strings[(i << 11) + j]; |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
1172 |
const Case* casep; |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
1173 |
const char* cmdp; |
0 | 1174 |
|
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
1175 |
// For undefined strings, just set that it's an empty string |
2087 | 1176 |
if (ls == NULL) { |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
1177 |
WriteLength(f, 0); |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
1178 |
continue; |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
1179 |
} |
0 | 1180 |
|
2087 | 1181 |
_cur_ident = ls->name; |
2566
75ae28a03460
(svn r3103) - Fix: [ 1339000 ] Fix: strgen and plural forms fatal error for untranslated strings. (glx). Also output the correct lines for these warnings, for missing strings the lines correspond with the ones in english.txt
Darkvater
parents:
2482
diff
changeset
|
1182 |
_cur_line = ls->line; |
2082
1e289843fe0b
(svn r2592) Feature: [strgen] New way to specify plural forms.
ludde
parents:
2069
diff
changeset
|
1183 |
|
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
1184 |
// Produce a message if a string doesn't have a translation. |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
1185 |
if (show_todo > 0 && ls->translated == NULL) { |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
1186 |
if (show_todo == 2) { |
4922
dec2c076d5a7
(svn r6898) -Fix: lowercase Error/Warning/Fatal for strgen and remove static on error() so strgen
Darkvater
parents:
4464
diff
changeset
|
1187 |
warning("'%s' is untranslated", ls->name); |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
1188 |
} else { |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
1189 |
const char *s = "<TODO> "; |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
1190 |
while (*s != '\0') PutByte(*s++); |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
1191 |
} |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
1192 |
} |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
1193 |
|
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
1194 |
// Extract the strings and stuff from the english command string |
2087 | 1195 |
ExtractCommandString(&_cur_pcs, ls->english, false); |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
1196 |
|
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
1197 |
if (ls->translated_case != NULL || ls->translated != NULL) { |
2087 | 1198 |
casep = ls->translated_case; |
1199 |
cmdp = ls->translated; |
|
1200 |
} else { |
|
1201 |
casep = ls->english_case; |
|
1202 |
cmdp = ls->english; |
|
1203 |
} |
|
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
1204 |
|
2586
1c0f0b67a70d
(svn r3123) eh, don't press enter after typing text, previous patch wasn't finished. Now strgen really behaves correctly. Thanks again glx
Darkvater
parents:
2585
diff
changeset
|
1205 |
_translated = _masterlang || (cmdp != ls->english); |
2585
fa2f94aa9de2
(svn r3122) - Fix (regression): recent change to strgen which 'fixed' all strings with wrong plural forms. Thanks for glx for pointing this out (after I changed his original patch which was correct..whohoo braindeadness; here I come)
Darkvater
parents:
2566
diff
changeset
|
1206 |
|
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
1207 |
if (casep != NULL) { |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
1208 |
const Case* c; |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
1209 |
uint num; |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
1210 |
|
2087 | 1211 |
// Need to output a case-switch. |
1212 |
// It has this format |
|
1213 |
// <0x9E> <NUM CASES> <CASE1> <LEN1> <STRING1> <CASE2> <LEN2> <STRING2> <CASE3> <LEN3> <STRING3> <STRINGDEFAULT> |
|
1214 |
// Each LEN is printed using 2 bytes in big endian order. |
|
5108
aeaef6fe53b7
(svn r7182) -Feature: Merge utf8 branch. This brings us support for Unicode/UTF-8 and the option for fonts rendered by FreeType. Language changes to come.
peter1138
parents:
4922
diff
changeset
|
1215 |
PutUtf8(SCC_SWITCH_CASE); |
2087 | 1216 |
// Count the number of cases |
2952 | 1217 |
for (num = 0, c = casep; c; c = c->next) num++; |
2087 | 1218 |
PutByte(num); |
1219 |
||
1220 |
// Write each case |
|
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
1221 |
for (c = casep; c != NULL; c = c->next) { |
2087 | 1222 |
int pos; |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
1223 |
|
2087 | 1224 |
PutByte(c->caseidx); |
1225 |
// Make some space for the 16-bit length |
|
1226 |
pos = _put_pos; |
|
1227 |
PutByte(0); |
|
1228 |
PutByte(0); |
|
1229 |
// Write string |
|
1230 |
PutCommandString(c->string); |
|
1231 |
PutByte(0); // terminate with a zero |
|
1232 |
// Fill in the length |
|
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
1233 |
_put_buf[pos + 0] = GB(_put_pos - (pos + 2), 8, 8); |
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
1234 |
_put_buf[pos + 1] = GB(_put_pos - (pos + 2), 0, 8); |
0 | 1235 |
} |
2087 | 1236 |
} |
0 | 1237 |
|
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
1238 |
if (cmdp != NULL) PutCommandString(cmdp); |
0 | 1239 |
|
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
1240 |
WriteLength(f, _put_pos); |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
1241 |
fwrite(_put_buf, 1, _put_pos, f); |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
1242 |
_put_pos = 0; |
0 | 1243 |
} |
1244 |
} |
|
1245 |
||
1246 |
fputc(0, f); |
|
1247 |
fclose(f); |
|
1248 |
} |
|
1249 |
||
4370
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1250 |
/** Multi-OS mkdirectory function */ |
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1251 |
static inline void ottd_mkdir(const char *directory) |
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1252 |
{ |
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1253 |
#if defined(WIN32) || defined(__WATCOMC__) |
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1254 |
mkdir(directory); |
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1255 |
#else |
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1256 |
mkdir(directory, 0755); |
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1257 |
#endif |
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1258 |
} |
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1259 |
|
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1260 |
/** Create a path consisting of an already existing path, a possible |
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1261 |
* path seperator and the filename. The seperator is only appended if the path |
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1262 |
* does not already end with a seperator */ |
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1263 |
static inline char *mkpath(char *buf, size_t buflen, const char *path, const char *file) |
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1264 |
{ |
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1265 |
char *p; |
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1266 |
ttd_strlcpy(buf, path, buflen); // copy directory into buffer |
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1267 |
|
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1268 |
p = strchr(buf, '\0'); // add path seperator if necessary |
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1269 |
if (p[-1] != PATHSEPCHAR && (size_t)(p - buf) + 1 < buflen) *p++ = PATHSEPCHAR; |
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1270 |
ttd_strlcpy(p, file, buflen - (size_t)(p - buf)); // catenate filename at end of buffer |
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1271 |
return buf; |
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1272 |
} |
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1273 |
|
5503
036e83e9083a
(svn r7796) -Fix (r7759): cygwin does not need to rewrite the paths for strgen.
rubidium
parents:
5475
diff
changeset
|
1274 |
#if defined(__MINGW32__) |
4379
96eb926dcc1d
(svn r6117) -Fix r6097: on mingw it is normal that both / as \ are accepted as input
truelight
parents:
4373
diff
changeset
|
1275 |
/** |
96eb926dcc1d
(svn r6117) -Fix r6097: on mingw it is normal that both / as \ are accepted as input
truelight
parents:
4373
diff
changeset
|
1276 |
* On MingW, it is common that both / as \ are accepted in the |
96eb926dcc1d
(svn r6117) -Fix r6097: on mingw it is normal that both / as \ are accepted as input
truelight
parents:
4373
diff
changeset
|
1277 |
* params. To go with those flow, we rewrite all incoming / |
96eb926dcc1d
(svn r6117) -Fix r6097: on mingw it is normal that both / as \ are accepted as input
truelight
parents:
4373
diff
changeset
|
1278 |
* simply to \, so internally we can safely assume \. |
96eb926dcc1d
(svn r6117) -Fix r6097: on mingw it is normal that both / as \ are accepted as input
truelight
parents:
4373
diff
changeset
|
1279 |
*/ |
96eb926dcc1d
(svn r6117) -Fix r6097: on mingw it is normal that both / as \ are accepted as input
truelight
parents:
4373
diff
changeset
|
1280 |
static inline char *replace_pathsep(char *s) |
96eb926dcc1d
(svn r6117) -Fix r6097: on mingw it is normal that both / as \ are accepted as input
truelight
parents:
4373
diff
changeset
|
1281 |
{ |
96eb926dcc1d
(svn r6117) -Fix r6097: on mingw it is normal that both / as \ are accepted as input
truelight
parents:
4373
diff
changeset
|
1282 |
char *c; |
96eb926dcc1d
(svn r6117) -Fix r6097: on mingw it is normal that both / as \ are accepted as input
truelight
parents:
4373
diff
changeset
|
1283 |
|
96eb926dcc1d
(svn r6117) -Fix r6097: on mingw it is normal that both / as \ are accepted as input
truelight
parents:
4373
diff
changeset
|
1284 |
for (c = s; *c != '\0'; c++) if (*c == '/') *c = '\\'; |
96eb926dcc1d
(svn r6117) -Fix r6097: on mingw it is normal that both / as \ are accepted as input
truelight
parents:
4373
diff
changeset
|
1285 |
return s; |
96eb926dcc1d
(svn r6117) -Fix r6097: on mingw it is normal that both / as \ are accepted as input
truelight
parents:
4373
diff
changeset
|
1286 |
} |
96eb926dcc1d
(svn r6117) -Fix r6097: on mingw it is normal that both / as \ are accepted as input
truelight
parents:
4373
diff
changeset
|
1287 |
#else |
96eb926dcc1d
(svn r6117) -Fix r6097: on mingw it is normal that both / as \ are accepted as input
truelight
parents:
4373
diff
changeset
|
1288 |
static inline char *replace_pathsep(char *s) { return s; } |
96eb926dcc1d
(svn r6117) -Fix r6097: on mingw it is normal that both / as \ are accepted as input
truelight
parents:
4373
diff
changeset
|
1289 |
#endif |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
1290 |
|
250
733e18ca6e93
(svn r251) -Project ready for 0.3.4 release. Updated installer, readme and fileinformation
darkvater
parents:
236
diff
changeset
|
1291 |
int CDECL main(int argc, char* argv[]) |
0 | 1292 |
{ |
4370
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1293 |
char pathbuf[256]; |
4461
905cb9ca6fe5
(svn r6244) -Fix: allow any order for strgen parameters
glx
parents:
4447
diff
changeset
|
1294 |
const char *src_dir = "."; |
905cb9ca6fe5
(svn r6244) -Fix: allow any order for strgen parameters
glx
parents:
4447
diff
changeset
|
1295 |
const char *dest_dir = NULL; |
4370
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1296 |
|
0 | 1297 |
int show_todo = 0; |
1298 |
||
4461
905cb9ca6fe5
(svn r6244) -Fix: allow any order for strgen parameters
glx
parents:
4447
diff
changeset
|
1299 |
while (argc > 1 && *argv[1] == '-') { |
905cb9ca6fe5
(svn r6244) -Fix: allow any order for strgen parameters
glx
parents:
4447
diff
changeset
|
1300 |
if (strcmp(argv[1], "-v") == 0 || strcmp(argv[1], "--version") == 0) { |
905cb9ca6fe5
(svn r6244) -Fix: allow any order for strgen parameters
glx
parents:
4447
diff
changeset
|
1301 |
puts("$Revision$"); |
905cb9ca6fe5
(svn r6244) -Fix: allow any order for strgen parameters
glx
parents:
4447
diff
changeset
|
1302 |
return 0; |
905cb9ca6fe5
(svn r6244) -Fix: allow any order for strgen parameters
glx
parents:
4447
diff
changeset
|
1303 |
} |
0 | 1304 |
|
4461
905cb9ca6fe5
(svn r6244) -Fix: allow any order for strgen parameters
glx
parents:
4447
diff
changeset
|
1305 |
if (strcmp(argv[1], "-t") == 0 || strcmp(argv[1], "--todo") == 0) { |
905cb9ca6fe5
(svn r6244) -Fix: allow any order for strgen parameters
glx
parents:
4447
diff
changeset
|
1306 |
show_todo = 1; |
905cb9ca6fe5
(svn r6244) -Fix: allow any order for strgen parameters
glx
parents:
4447
diff
changeset
|
1307 |
argc--, argv++; |
905cb9ca6fe5
(svn r6244) -Fix: allow any order for strgen parameters
glx
parents:
4447
diff
changeset
|
1308 |
continue; |
905cb9ca6fe5
(svn r6244) -Fix: allow any order for strgen parameters
glx
parents:
4447
diff
changeset
|
1309 |
} |
0 | 1310 |
|
4461
905cb9ca6fe5
(svn r6244) -Fix: allow any order for strgen parameters
glx
parents:
4447
diff
changeset
|
1311 |
if (strcmp(argv[1], "-w") == 0 || strcmp(argv[1], "--warning") == 0) { |
905cb9ca6fe5
(svn r6244) -Fix: allow any order for strgen parameters
glx
parents:
4447
diff
changeset
|
1312 |
show_todo = 2; |
905cb9ca6fe5
(svn r6244) -Fix: allow any order for strgen parameters
glx
parents:
4447
diff
changeset
|
1313 |
argc--, argv++; |
905cb9ca6fe5
(svn r6244) -Fix: allow any order for strgen parameters
glx
parents:
4447
diff
changeset
|
1314 |
continue; |
905cb9ca6fe5
(svn r6244) -Fix: allow any order for strgen parameters
glx
parents:
4447
diff
changeset
|
1315 |
} |
905cb9ca6fe5
(svn r6244) -Fix: allow any order for strgen parameters
glx
parents:
4447
diff
changeset
|
1316 |
|
905cb9ca6fe5
(svn r6244) -Fix: allow any order for strgen parameters
glx
parents:
4447
diff
changeset
|
1317 |
if (strcmp(argv[1], "-h") == 0 || strcmp(argv[1], "--help") == 0 || strcmp(argv[1], "-?") == 0) { |
905cb9ca6fe5
(svn r6244) -Fix: allow any order for strgen parameters
glx
parents:
4447
diff
changeset
|
1318 |
puts( |
905cb9ca6fe5
(svn r6244) -Fix: allow any order for strgen parameters
glx
parents:
4447
diff
changeset
|
1319 |
"strgen - $Revision$\n" |
905cb9ca6fe5
(svn r6244) -Fix: allow any order for strgen parameters
glx
parents:
4447
diff
changeset
|
1320 |
" -v | --version print version information and exit\n" |
905cb9ca6fe5
(svn r6244) -Fix: allow any order for strgen parameters
glx
parents:
4447
diff
changeset
|
1321 |
" -t | --todo replace any untranslated strings with '<TODO>'\n" |
905cb9ca6fe5
(svn r6244) -Fix: allow any order for strgen parameters
glx
parents:
4447
diff
changeset
|
1322 |
" -w | --warning print a warning for any untranslated strings\n" |
905cb9ca6fe5
(svn r6244) -Fix: allow any order for strgen parameters
glx
parents:
4447
diff
changeset
|
1323 |
" -h | -? | --help print this help message and exit\n" |
905cb9ca6fe5
(svn r6244) -Fix: allow any order for strgen parameters
glx
parents:
4447
diff
changeset
|
1324 |
" -s | --source_dir search for english.txt in the specified directory\n" |
905cb9ca6fe5
(svn r6244) -Fix: allow any order for strgen parameters
glx
parents:
4447
diff
changeset
|
1325 |
" -d | --dest_dir put output file in the specified directory, create if needed\n" |
905cb9ca6fe5
(svn r6244) -Fix: allow any order for strgen parameters
glx
parents:
4447
diff
changeset
|
1326 |
" Run without parameters and strgen will search for english.txt and parse it,\n" |
905cb9ca6fe5
(svn r6244) -Fix: allow any order for strgen parameters
glx
parents:
4447
diff
changeset
|
1327 |
" creating strings.h. Passing an argument, strgen will translate that language\n" |
905cb9ca6fe5
(svn r6244) -Fix: allow any order for strgen parameters
glx
parents:
4447
diff
changeset
|
1328 |
" file using english.txt as a reference and output <language>.lng." |
905cb9ca6fe5
(svn r6244) -Fix: allow any order for strgen parameters
glx
parents:
4447
diff
changeset
|
1329 |
); |
905cb9ca6fe5
(svn r6244) -Fix: allow any order for strgen parameters
glx
parents:
4447
diff
changeset
|
1330 |
return 0; |
905cb9ca6fe5
(svn r6244) -Fix: allow any order for strgen parameters
glx
parents:
4447
diff
changeset
|
1331 |
} |
905cb9ca6fe5
(svn r6244) -Fix: allow any order for strgen parameters
glx
parents:
4447
diff
changeset
|
1332 |
|
905cb9ca6fe5
(svn r6244) -Fix: allow any order for strgen parameters
glx
parents:
4447
diff
changeset
|
1333 |
if (argc > 2 && (strcmp(argv[1], "-s") == 0 || strcmp(argv[1], "--source_dir") == 0)) { |
905cb9ca6fe5
(svn r6244) -Fix: allow any order for strgen parameters
glx
parents:
4447
diff
changeset
|
1334 |
src_dir = replace_pathsep(argv[2]); |
905cb9ca6fe5
(svn r6244) -Fix: allow any order for strgen parameters
glx
parents:
4447
diff
changeset
|
1335 |
argc -= 2, argv += 2; |
4464
08e89a8faa09
(svn r6247) -Fix(r6244): invalid arguments caused infinite loop
glx
parents:
4461
diff
changeset
|
1336 |
continue; |
4461
905cb9ca6fe5
(svn r6244) -Fix: allow any order for strgen parameters
glx
parents:
4447
diff
changeset
|
1337 |
} |
905cb9ca6fe5
(svn r6244) -Fix: allow any order for strgen parameters
glx
parents:
4447
diff
changeset
|
1338 |
|
905cb9ca6fe5
(svn r6244) -Fix: allow any order for strgen parameters
glx
parents:
4447
diff
changeset
|
1339 |
if (argc > 2 && (strcmp(argv[1], "-d") == 0 || strcmp(argv[1], "--dest_dir") == 0)) { |
905cb9ca6fe5
(svn r6244) -Fix: allow any order for strgen parameters
glx
parents:
4447
diff
changeset
|
1340 |
dest_dir = replace_pathsep(argv[2]); |
905cb9ca6fe5
(svn r6244) -Fix: allow any order for strgen parameters
glx
parents:
4447
diff
changeset
|
1341 |
argc -= 2, argv += 2; |
4464
08e89a8faa09
(svn r6247) -Fix(r6244): invalid arguments caused infinite loop
glx
parents:
4461
diff
changeset
|
1342 |
continue; |
4461
905cb9ca6fe5
(svn r6244) -Fix: allow any order for strgen parameters
glx
parents:
4447
diff
changeset
|
1343 |
} |
4464
08e89a8faa09
(svn r6247) -Fix(r6244): invalid arguments caused infinite loop
glx
parents:
4461
diff
changeset
|
1344 |
|
08e89a8faa09
(svn r6247) -Fix(r6244): invalid arguments caused infinite loop
glx
parents:
4461
diff
changeset
|
1345 |
fprintf(stderr, "Invalid arguments\n"); |
08e89a8faa09
(svn r6247) -Fix(r6244): invalid arguments caused infinite loop
glx
parents:
4461
diff
changeset
|
1346 |
return 0; |
0 | 1347 |
} |
1348 |
||
4461
905cb9ca6fe5
(svn r6244) -Fix: allow any order for strgen parameters
glx
parents:
4447
diff
changeset
|
1349 |
if (dest_dir == NULL) dest_dir = src_dir; // if dest_dir is not specified, it equals src_dir |
4370
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1350 |
|
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1351 |
/* strgen has two modes of operation. If no (free) arguments are passed |
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1352 |
* strgen generates strings.h to the destination directory. If it is supplied |
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1353 |
* with a (free) parameter the program will translate that language to destination |
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1354 |
* directory. As input english.txt is parsed from the source directory */ |
0 | 1355 |
if (argc == 1) { |
4370
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1356 |
mkpath(pathbuf, lengthof(pathbuf), src_dir, "english.txt"); |
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1357 |
|
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1358 |
/* parse master file */ |
2586
1c0f0b67a70d
(svn r3123) eh, don't press enter after typing text, previous patch wasn't finished. Now strgen really behaves correctly. Thanks again glx
Darkvater
parents:
2585
diff
changeset
|
1359 |
_masterlang = true; |
4370
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1360 |
ParseFile(pathbuf, true); |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
1361 |
MakeHashOfStrings(); |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
1362 |
if (_errors) return 1; |
0 | 1363 |
|
4370
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1364 |
/* write strings.h */ |
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1365 |
ottd_mkdir(dest_dir); |
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1366 |
mkpath(pathbuf, lengthof(pathbuf), dest_dir, "strings.h"); |
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1367 |
WriteStringsH(pathbuf); |
3015
f91a1b8fba79
(svn r3595) Several small cleanups, the only notable are some additional symbolic names for a few ISO8859 characters
tron
parents:
2952
diff
changeset
|
1368 |
} else if (argc == 2) { |
4370
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1369 |
char *r; |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
1370 |
|
4370
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1371 |
mkpath(pathbuf, lengthof(pathbuf), src_dir, "english.txt"); |
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1372 |
|
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1373 |
/* parse master file and check if target file is correct */ |
2586
1c0f0b67a70d
(svn r3123) eh, don't press enter after typing text, previous patch wasn't finished. Now strgen really behaves correctly. Thanks again glx
Darkvater
parents:
2585
diff
changeset
|
1374 |
_masterlang = false; |
4370
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1375 |
ParseFile(pathbuf, true); |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
1376 |
MakeHashOfStrings(); |
4379
96eb926dcc1d
(svn r6117) -Fix r6097: on mingw it is normal that both / as \ are accepted as input
truelight
parents:
4373
diff
changeset
|
1377 |
ParseFile(replace_pathsep(argv[1]), false); // target file |
2063
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
1378 |
if (_errors) return 1; |
ae866a12f2df
(svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents:
2060
diff
changeset
|
1379 |
|
4370
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1380 |
/* get the targetfile, strip any directories and append to destination path */ |
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1381 |
r = strrchr(argv[1], PATHSEPCHAR); |
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1382 |
mkpath(pathbuf, lengthof(pathbuf), dest_dir, (r != NULL) ? &r[1] : argv[1]); |
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1383 |
|
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1384 |
/* rename the .txt (input-extension) to .lng */ |
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1385 |
r = strrchr(pathbuf, '.'); |
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1386 |
if (r == NULL || strcmp(r, ".txt") != 0) r = strchr(pathbuf, '\0'); |
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1387 |
ttd_strlcpy(r, ".lng", (size_t)(r - pathbuf)); |
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1388 |
WriteLangfile(pathbuf, show_todo); |
5360
d87dfdb62e5a
(svn r7540) -Codechange: Print a summary of the number of errors/warnings of a language when strgen is run with the -w flag.
Darkvater
parents:
5111
diff
changeset
|
1389 |
|
d87dfdb62e5a
(svn r7540) -Codechange: Print a summary of the number of errors/warnings of a language when strgen is run with the -w flag.
Darkvater
parents:
5111
diff
changeset
|
1390 |
/* if showing warnings, print a summary of the language */ |
d87dfdb62e5a
(svn r7540) -Codechange: Print a summary of the number of errors/warnings of a language when strgen is run with the -w flag.
Darkvater
parents:
5111
diff
changeset
|
1391 |
if (show_todo == 2) { |
5442
577bf6b7da95
(svn r7693) -Codechange (r7540): print a newline after the summary (strgen).
Darkvater
parents:
5360
diff
changeset
|
1392 |
fprintf(stdout, "%d warnings and %d errors for %s\n", _warnings, _errors, pathbuf); |
5360
d87dfdb62e5a
(svn r7540) -Codechange: Print a summary of the number of errors/warnings of a language when strgen is run with the -w flag.
Darkvater
parents:
5111
diff
changeset
|
1393 |
} |
0 | 1394 |
} else { |
4370
5beb8896ae3d
(svn r6089) -Backport r6088: added -s (source) and -d (destination) to strgen (Darkvater)
truelight
parents:
4344
diff
changeset
|
1395 |
fprintf(stderr, "Invalid arguments\n"); |
0 | 1396 |
} |
1397 |
||
1398 |
return 0; |
|
1399 |
} |