hedgewars/uLocale.pas
author nemo
Mon, 08 Dec 2014 10:14:47 -0500
changeset 10635 8e8b320eefad
parent 10249 b47ac2c19de3
child 11046 47a8c19ecb60
child 11141 01e8e5a6a8c1
permissions -rw-r--r--
nil out CurrentHedgehog in FreeModule, add a test for nil'd CurrentHedgehog in DelCI since I'd still like to use DeleteGear for the other stuff it does. Move some variable initialiasations in AI Misc to hopefully avoid some uninit val errors.
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
10108
c68cf030eded update FSF address. note: two sdl include files (by Sam Lantinga) still have the old FSF address in their copyright - but I ain't gonna touch their copyright headers
sheepluva
parents: 10105
diff changeset
    16
 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
184
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;
10122
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents: 10116
diff changeset
    29
function  FormatA(fmt: ansistring; var arg: ansistring): ansistring;
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents: 10116
diff changeset
    30
function  GetEventString(e: TEventId): ansistring;
2140
75e5c4fcae2a Death messages thanks to Smaxx
nemo
parents: 2039
diff changeset
    31
7048
0a4c88935902 the ios port runs again, although with a few things to sort out
koda
parents: 6700
diff changeset
    32
{$IFDEF HWLIBRARY}
0a4c88935902 the ios port runs again, although with a few things to sort out
koda
parents: 6700
diff changeset
    33
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
    34
{$ENDIF}
0a4c88935902 the ios port runs again, although with a few things to sort out
koda
parents: 6700
diff changeset
    35
184
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    36
implementation
10122
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents: 10116
diff changeset
    37
uses uRandom, uUtils, uVariables, uDebug, uPhysFSLayer;
2142
48ed98cfd119 Make code suck less
unc0rr
parents: 2140
diff changeset
    38
10122
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents: 10116
diff changeset
    39
var trevt: array[TEventId] of array [0..Pred(MAX_EVENT_STRINGS)] of ansistring;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2908
diff changeset
    40
    trevt_n: array[TEventId] of integer;
184
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    41
2905
f3c79f7193a9 Engine:
smxx
parents: 2904
diff changeset
    42
procedure LoadLocale(FileName: shortstring);
10127
7f29a65aa1e4 It compiles \o/
unc0rr
parents: 10123
diff changeset
    43
var s: ansistring;
8028
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 7069
diff changeset
    44
    f: pfsFile;
371
731ad6d27bd1 integer -> LongInt
unc0rr
parents: 351
diff changeset
    45
    a, b, c: LongInt;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2908
diff changeset
    46
    first: array[TEventId] of boolean;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2908
diff changeset
    47
    e: TEventId;
184
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    48
begin
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6528
diff changeset
    49
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
    50
    first[e]:= true;
2140
75e5c4fcae2a Death messages thanks to Smaxx
nemo
parents: 2039
diff changeset
    51
8028
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 7069
diff changeset
    52
f:= pfsOpenRead(FileName);
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 7069
diff changeset
    53
TryDo(f <> nil, 'Cannot load locale "' + FileName + '"', false);
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 7069
diff changeset
    54
10249
b47ac2c19de3 get rid of fpc warnings/hints
sheepluva
parents: 10127
diff changeset
    55
s:= '';
b47ac2c19de3 get rid of fpc warnings/hints
sheepluva
parents: 10127
diff changeset
    56
8028
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);
10122
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents: 10116
diff changeset
    62
        if Length(s) = 0 then
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents: 10116
diff changeset
    63
            continue;
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents: 10116
diff changeset
    64
        if (s[1] < '0') or (s[1] > '9') then
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents: 10116
diff changeset
    65
            continue;
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents: 10116
diff changeset
    66
        TryDo(Length(s) > 6, 'Load locale: empty string', true);
10127
7f29a65aa1e4 It compiles \o/
unc0rr
parents: 10123
diff changeset
    67
        {$IFNDEF PAS2C}
10122
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents: 10116
diff changeset
    68
        val(s[1]+s[2], a, c);
10123
64e72781d344 Implicit type casts to help pas2c
unc0rr
parents: 10122
diff changeset
    69
        TryDo(c = 0, ansistring('Load locale: numbers should be two-digit: ') + s, true);
10122
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents: 10116
diff changeset
    70
        val(s[4]+s[5], b, c);
10123
64e72781d344 Implicit type casts to help pas2c
unc0rr
parents: 10122
diff changeset
    71
        TryDo(c = 0, ansistring('Load locale: numbers should be two-digit: ') + s, true);
10127
7f29a65aa1e4 It compiles \o/
unc0rr
parents: 10123
diff changeset
    72
        {$ELSE}
7f29a65aa1e4 It compiles \o/
unc0rr
parents: 10123
diff changeset
    73
        val(s[1]+s[2], a);
7f29a65aa1e4 It compiles \o/
unc0rr
parents: 10123
diff changeset
    74
        val(s[4]+s[5], b);
7f29a65aa1e4 It compiles \o/
unc0rr
parents: 10123
diff changeset
    75
        {$ENDIF}
7f29a65aa1e4 It compiles \o/
unc0rr
parents: 10123
diff changeset
    76
        TryDo(s[3] = ':', 'Load locale: ":" expected', true);
10122
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents: 10116
diff changeset
    77
        TryDo(s[6] = '=', 'Load locale: "=" expected', true);
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents: 10116
diff changeset
    78
        Delete(s, 1, 6);
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents: 10116
diff changeset
    79
        case a of
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents: 10116
diff changeset
    80
            0: if (b >=0) and (b <= ord(High(TAmmoStrId))) then
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents: 10116
diff changeset
    81
                trammo[TAmmoStrId(b)]:= s;
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents: 10116
diff changeset
    82
            1: if (b >=0) and (b <= ord(High(TMsgStrId))) then
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents: 10116
diff changeset
    83
                trmsg[TMsgStrId(b)]:= s;
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents: 10116
diff changeset
    84
            2: if (b >=0) and (b <= ord(High(TEventId))) then
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents: 10116
diff changeset
    85
                begin
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents: 10116
diff changeset
    86
                TryDo(trevt_n[TEventId(b)] < MAX_EVENT_STRINGS, 'Too many event strings in ' + IntToStr(a) + ':' + IntToStr(b), false);
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents: 10116
diff changeset
    87
                if first[TEventId(b)] then
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6528
diff changeset
    88
                    begin
10122
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents: 10116
diff changeset
    89
                    trevt_n[TEventId(b)]:= 0;
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents: 10116
diff changeset
    90
                    first[TEventId(b)]:= false;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6528
diff changeset
    91
                    end;
10122
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents: 10116
diff changeset
    92
                trevt[TEventId(b)][trevt_n[TEventId(b)]]:= s;
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents: 10116
diff changeset
    93
                inc(trevt_n[TEventId(b)]);
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents: 10116
diff changeset
    94
                end;
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents: 10116
diff changeset
    95
            3: if (b >=0) and (b <= ord(High(TAmmoStrId))) then
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents: 10116
diff changeset
    96
                trammoc[TAmmoStrId(b)]:= s;
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents: 10116
diff changeset
    97
            4: if (b >=0) and (b <= ord(High(TAmmoStrId))) then
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents: 10116
diff changeset
    98
                trammod[TAmmoStrId(b)]:= s;
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents: 10116
diff changeset
    99
            5: if (b >=0) and (b <= ord(High(TGoalStrId))) then
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents: 10116
diff changeset
   100
                trgoal[TGoalStrId(b)]:= s;
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents: 10116
diff changeset
   101
           end;
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents: 10116
diff changeset
   102
       end;
8028
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 7069
diff changeset
   103
   pfsClose(f);
2722
d891285e500f IOResult is a special variable
nemo
parents: 2721
diff changeset
   104
   end;
184
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
   105
end;
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
   106
10122
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents: 10116
diff changeset
   107
function GetEventString(e: TEventId): ansistring;
2140
75e5c4fcae2a Death messages thanks to Smaxx
nemo
parents: 2039
diff changeset
   108
begin
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2908
diff changeset
   109
    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
   110
        GetEventString:= '*missing translation*'
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2908
diff changeset
   111
    else
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2908
diff changeset
   112
        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
   113
end;
75e5c4fcae2a Death messages thanks to Smaxx
nemo
parents: 2039
diff changeset
   114
184
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
   115
function Format(fmt: shortstring; var arg: shortstring): shortstring;
371
731ad6d27bd1 integer -> LongInt
unc0rr
parents: 351
diff changeset
   116
var i: LongInt;
184
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
   117
begin
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
   118
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
   119
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
   120
    Format:= fmt
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6528
diff changeset
   121
else
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6528
diff changeset
   122
    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
   123
end;
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
   124
10122
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents: 10116
diff changeset
   125
function FormatA(fmt: ansistring; var arg: ansistring): ansistring;
2905
f3c79f7193a9 Engine:
smxx
parents: 2904
diff changeset
   126
var i: LongInt;
f3c79f7193a9 Engine:
smxx
parents: 2904
diff changeset
   127
begin
10122
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents: 10116
diff changeset
   128
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
   129
if i = 0 then
10122
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents: 10116
diff changeset
   130
    FormatA:= fmt
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6528
diff changeset
   131
else
10122
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents: 10116
diff changeset
   132
    FormatA:= copy(fmt, 1, i - 1) + arg + FormatA(copy(fmt, i + 2, Length(fmt) - i - 1), arg)
2905
f3c79f7193a9 Engine:
smxx
parents: 2904
diff changeset
   133
end;
f3c79f7193a9 Engine:
smxx
parents: 2904
diff changeset
   134
7048
0a4c88935902 the ios port runs again, although with a few things to sort out
koda
parents: 6700
diff changeset
   135
{$IFDEF HWLIBRARY}
3926
668b71f31e51 use dynamic data from engine instead of using hardcoded values
koda
parents: 3774
diff changeset
   136
procedure LoadLocaleWrapper(str: pchar); cdecl; export;
668b71f31e51 use dynamic data from engine instead of using hardcoded values
koda
parents: 3774
diff changeset
   137
begin
668b71f31e51 use dynamic data from engine instead of using hardcoded values
koda
parents: 3774
diff changeset
   138
    LoadLocale(Strpas(str));
668b71f31e51 use dynamic data from engine instead of using hardcoded values
koda
parents: 3774
diff changeset
   139
end;
7048
0a4c88935902 the ios port runs again, although with a few things to sort out
koda
parents: 6700
diff changeset
   140
{$ENDIF}
3926
668b71f31e51 use dynamic data from engine instead of using hardcoded values
koda
parents: 3774
diff changeset
   141
184
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
   142
end.