hedgewars/uLocale.pas
author sheepluva
Tue, 21 Jan 2014 01:38:06 +0100
changeset 10031 9353632dc661
parent 10009 88929358d2e1
child 10015 4feced261c68
permissions -rw-r--r--
let log know when a test finished properly, so that an unexpected termination (segfault, divbyzero, etc) is easier to tell apart from test fail
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
184
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
     1
(*
1066
1f1b3686a2b0 Update copyright headers a bit
unc0rr
parents: 1063
diff changeset
     2
 * Hedgewars, a free turn based strategy game
9998
736015b847e3 update copyright to 2014
sheepluva
parents: 9080
diff changeset
     3
 * Copyright (c) 2004-2014 Andrey Korotaev <unC0Rr@gmail.com>
184
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
     4
 *
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
     5
 * This program is free software; you can redistribute it and/or modify
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
     6
 * it under the terms of the GNU General Public License as published by
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
     7
 * the Free Software Foundation; version 2 of the License
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
     8
 *
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
     9
 * This program is distributed in the hope that it will be useful,
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    10
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    11
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    12
 * GNU General Public License for more details.
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    13
 *
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    14
 * You should have received a copy of the GNU General Public License
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    15
 * along with this program; if not, write to the Free Software
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    16
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    17
 *)
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    18
2630
079ef82eac75 revamped file access and debug display
koda
parents: 2457
diff changeset
    19
{$INCLUDE "options.inc"}
079ef82eac75 revamped file access and debug display
koda
parents: 2457
diff changeset
    20
184
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    21
unit uLocale;
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    22
interface
4361
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4246
diff changeset
    23
uses uTypes;
2863
9eb53b1f1842 Engine:
smxx
parents: 2747
diff changeset
    24
2142
48ed98cfd119 Make code suck less
unc0rr
parents: 2140
diff changeset
    25
const MAX_EVENT_STRINGS = 100;
184
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    26
2905
f3c79f7193a9 Engine:
smxx
parents: 2904
diff changeset
    27
procedure LoadLocale(FileName: shortstring);
3926
668b71f31e51 use dynamic data from engine instead of using hardcoded values
koda
parents: 3774
diff changeset
    28
function  Format(fmt: shortstring; var arg: shortstring): shortstring;
10009
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
    29
function  FormatA(fmt: PChar; arg: ansistring): ansistring;
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
    30
function  GetEventString(e: TEventId): PChar;
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
    31
procedure initModule;
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
    32
procedure freeModule;
2140
75e5c4fcae2a Death messages thanks to Smaxx
nemo
parents: 2039
diff changeset
    33
7048
0a4c88935902 the ios port runs again, although with a few things to sort out
koda
parents: 6700
diff changeset
    34
{$IFDEF HWLIBRARY}
0a4c88935902 the ios port runs again, although with a few things to sort out
koda
parents: 6700
diff changeset
    35
procedure LoadLocaleWrapper(str: pchar); cdecl; export;
0a4c88935902 the ios port runs again, although with a few things to sort out
koda
parents: 6700
diff changeset
    36
{$ENDIF}
0a4c88935902 the ios port runs again, although with a few things to sort out
koda
parents: 6700
diff changeset
    37
184
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    38
implementation
10009
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
    39
uses uRandom, uUtils, uVariables, uDebug, uPhysFSLayer, sysutils;
2142
48ed98cfd119 Make code suck less
unc0rr
parents: 2140
diff changeset
    40
10009
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
    41
var trevt: array[TEventId] of array [0..Pred(MAX_EVENT_STRINGS)] of PChar;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2908
diff changeset
    42
    trevt_n: array[TEventId] of integer;
184
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    43
2905
f3c79f7193a9 Engine:
smxx
parents: 2904
diff changeset
    44
procedure LoadLocale(FileName: shortstring);
10009
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
    45
var s, sc: PChar;
8028
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 7069
diff changeset
    46
    f: pfsFile;
371
731ad6d27bd1 integer -> LongInt
unc0rr
parents: 351
diff changeset
    47
    a, b, c: LongInt;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2908
diff changeset
    48
    first: array[TEventId] of boolean;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2908
diff changeset
    49
    e: TEventId;
184
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    50
begin
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6528
diff changeset
    51
for e:= Low(TEventId) to High(TEventId) do
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6528
diff changeset
    52
    first[e]:= true;
2140
75e5c4fcae2a Death messages thanks to Smaxx
nemo
parents: 2039
diff changeset
    53
8028
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 7069
diff changeset
    54
f:= pfsOpenRead(FileName);
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 7069
diff changeset
    55
TryDo(f <> nil, 'Cannot load locale "' + FileName + '"', false);
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 7069
diff changeset
    56
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 7069
diff changeset
    57
if f <> nil then
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6528
diff changeset
    58
    begin
8028
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 7069
diff changeset
    59
    while not pfsEof(f) do
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6528
diff changeset
    60
        begin
8107
ee21b816394f Bring ansistrings back
unc0rr
parents: 8028
diff changeset
    61
        pfsReadLnA(f, s);
10009
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
    62
        if (Length(s) > 0) and (s[0] >= '0') and (s[0] <= '9') then
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
    63
            begin
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
    64
            TryDo(Length(s) > 6, 'Load locale: empty string', true);
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
    65
            val(s[0]+s[1], a, c);
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
    66
            TryDo(c = 0, 'Load locale: numbers should be two-digit: ' + s, true);
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
    67
            TryDo(s[2] = ':', 'Load locale: ":" expected', true);
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
    68
            val(s[3]+s[4], b, c);
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
    69
            TryDo(c = 0, 'Load locale: numbers should be two-digit' + s, true);
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
    70
            TryDo(s[5] = '=', 'Load locale: "=" expected', true);
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
    71
            sc:= StrAlloc(length(s) - 5);
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
    72
            StrCopy(sc, @s[6]);
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
    73
            case a of
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
    74
                0: if (b >=0) and (b <= ord(High(TAmmoStrId))) then
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
    75
                    trammo[TAmmoStrId(b)]:= sc;
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
    76
                1: if (b >=0) and (b <= ord(High(TMsgStrId))) then
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
    77
                    trmsg[TMsgStrId(b)]:= sc;
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
    78
                2: if (b >=0) and (b <= ord(High(TEventId))) then
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6528
diff changeset
    79
                    begin
10009
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
    80
                    TryDo(trevt_n[TEventId(b)] < MAX_EVENT_STRINGS, 'Too many event strings in ' + IntToStr(a) + ':' + IntToStr(b), false);
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
    81
                    if first[TEventId(b)] then
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
    82
                        begin
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
    83
                        trevt_n[TEventId(b)]:= 0;
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
    84
                        first[TEventId(b)]:= false;
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
    85
                        end;
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
    86
                    trevt[TEventId(b)][trevt_n[TEventId(b)]]:= sc;
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
    87
                    inc(trevt_n[TEventId(b)]);
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6528
diff changeset
    88
                    end;
10009
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
    89
                3: if (b >=0) and (b <= ord(High(TAmmoStrId))) then
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
    90
                    trammoc[TAmmoStrId(b)]:= sc;
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
    91
                4: if (b >=0) and (b <= ord(High(TAmmoStrId))) then
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
    92
                    trammod[TAmmoStrId(b)]:= sc;
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
    93
                5: if (b >=0) and (b <= ord(High(TGoalStrId))) then
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
    94
                    trgoal[TGoalStrId(b)]:= sc;
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
    95
            end;
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
    96
            end;
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
    97
        StrDispose(s);
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
    98
        end;
8028
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 7069
diff changeset
    99
   pfsClose(f);
2722
d891285e500f IOResult is a special variable
nemo
parents: 2721
diff changeset
   100
   end;
184
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
   101
end;
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
   102
10009
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
   103
function GetEventString(e: TEventId): PChar;
2140
75e5c4fcae2a Death messages thanks to Smaxx
nemo
parents: 2039
diff changeset
   104
begin
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2908
diff changeset
   105
    if trevt_n[e] = 0 then // no messages for this event type?
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2908
diff changeset
   106
        GetEventString:= '*missing translation*'
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2908
diff changeset
   107
    else
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2908
diff changeset
   108
        GetEventString:= trevt[e][GetRandom(trevt_n[e])]; // Pick a random message and return it
2140
75e5c4fcae2a Death messages thanks to Smaxx
nemo
parents: 2039
diff changeset
   109
end;
75e5c4fcae2a Death messages thanks to Smaxx
nemo
parents: 2039
diff changeset
   110
184
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
   111
function Format(fmt: shortstring; var arg: shortstring): shortstring;
371
731ad6d27bd1 integer -> LongInt
unc0rr
parents: 351
diff changeset
   112
var i: LongInt;
184
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
   113
begin
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
   114
i:= Pos('%1', fmt);
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6528
diff changeset
   115
if i = 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6528
diff changeset
   116
    Format:= fmt
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6528
diff changeset
   117
else
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6528
diff changeset
   118
    Format:= copy(fmt, 1, i - 1) + arg + Format(copy(fmt, i + 2, Length(fmt) - i - 1), arg)
184
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
   119
end;
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
   120
10009
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
   121
function FormatA(fmt: PChar; arg: ansistring): ansistring;
2905
f3c79f7193a9 Engine:
smxx
parents: 2904
diff changeset
   122
var i: LongInt;
10009
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
   123
    s: ansistring;
2905
f3c79f7193a9 Engine:
smxx
parents: 2904
diff changeset
   124
begin
10009
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
   125
s:= fmt;
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
   126
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
   127
i:= Pos('%1', s);
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6528
diff changeset
   128
if i = 0 then
10009
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
   129
    FormatA:= s
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6528
diff changeset
   130
else
10009
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
   131
    FormatA:= copy(s, 1, i - 1) + arg + FormatA(PChar(copy(s, i + 2, Length(s) - i - 1)), arg)
2905
f3c79f7193a9 Engine:
smxx
parents: 2904
diff changeset
   132
end;
f3c79f7193a9 Engine:
smxx
parents: 2904
diff changeset
   133
7048
0a4c88935902 the ios port runs again, although with a few things to sort out
koda
parents: 6700
diff changeset
   134
{$IFDEF HWLIBRARY}
3926
668b71f31e51 use dynamic data from engine instead of using hardcoded values
koda
parents: 3774
diff changeset
   135
procedure LoadLocaleWrapper(str: pchar); cdecl; export;
668b71f31e51 use dynamic data from engine instead of using hardcoded values
koda
parents: 3774
diff changeset
   136
begin
668b71f31e51 use dynamic data from engine instead of using hardcoded values
koda
parents: 3774
diff changeset
   137
    LoadLocale(Strpas(str));
668b71f31e51 use dynamic data from engine instead of using hardcoded values
koda
parents: 3774
diff changeset
   138
end;
7048
0a4c88935902 the ios port runs again, although with a few things to sort out
koda
parents: 6700
diff changeset
   139
{$ENDIF}
3926
668b71f31e51 use dynamic data from engine instead of using hardcoded values
koda
parents: 3774
diff changeset
   140
10009
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
   141
procedure initModule;
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
   142
var e: TEventId;
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
   143
    i: LongInt;
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
   144
begin
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
   145
    for e:= Low(TEventId) to High(TEventId) do
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
   146
        for i:= 0 to Pred(MAX_EVENT_STRINGS) do
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
   147
            trevt[e][i]:= nil;
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
   148
end;
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
   149
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
   150
procedure freeModule;
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
   151
var e: TEventId;
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
   152
    i: LongInt;
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
   153
begin
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
   154
    for e:= Low(TEventId) to High(TEventId) do
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
   155
        for i:= 0 to Pred(trevt_n[e]) do
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
   156
            StrDispose(trevt[e][i]);
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
   157
end;
88929358d2e1 Convert some ansistrings to pchars
unc0rr
parents: 9998
diff changeset
   158
184
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
   159
end.