|
49
|
1 use strict;
|
|
|
2 use warnings;
|
|
|
3
|
|
|
4 package IMPL::Resources::Strings::Storage;
|
|
|
5 package IMPL::Resources::Strings;
|
|
|
6 use File::Spec;
|
|
|
7
|
|
|
8 our $Locale ||= 'default';
|
|
|
9 our $Base ||='locale';
|
|
|
10 our $Encoding ||= 'utf-8';
|
|
|
11 our @Locations;
|
|
|
12
|
|
|
13 @Locations = ('.') unless @Locations;
|
|
|
14
|
|
|
15 sub import {
|
|
|
16 my ($self,$refStrings,%options) = @_;
|
|
|
17
|
|
|
18 my ($class,$pathModule) = caller;
|
|
|
19
|
|
|
20 my ($vol,$dir,$file) = File::Spec->splitpath($pathModule);
|
|
|
21 my $baseDir = File::Spec->catpath($vol,$dir,'');
|
|
|
22
|
|
|
23 my @pathClass = split /::/,$class;
|
|
|
24 my $fileClass = pop @pathClass;
|
|
|
25
|
|
|
26 my @ways = map {
|
|
|
27 my @path = ($_);
|
|
|
28 push @path,$Base;
|
|
|
29 push @path,$Locale;
|
|
|
30
|
|
|
31 File::Spec->catfile(@path,@pathClass,$fileClass);
|
|
|
32 } @Locations;
|
|
|
33
|
|
|
34 push @ways, File::Spec->catfile($baseDir,'locale',$Locale,$fileClass);
|
|
|
35
|
|
|
36
|
|
|
37
|
|
50
|
38 my $stringsStorage = findResource($class,@ways);
|
|
49
|
39
|
|
|
40 }
|
|
|
41
|
|
|
42 sub findResource {
|
|
50
|
43 my ($class,$refWays) = @_;
|
|
49
|
44
|
|
|
45
|
|
|
46 }
|
|
|
47
|
|
|
48
|
|
|
49
|
|
|
50 sub parseResource {
|
|
|
51 my ($fname) = @_;
|
|
|
52
|
|
|
53 open my $hRes, "<:encoding($Encoding)", findFile($fname) or die "Failed to open file $fname: $!";
|
|
|
54
|
|
|
55 my %Map;
|
|
|
56 my $line = 1;
|
|
|
57 while (<$hRes>) {
|
|
|
58 chomp;
|
|
|
59 $line ++ and next if /^\s*$/;
|
|
|
60
|
|
|
61 if (/^(\w+)\s*=\s*(.*)$/) {
|
|
|
62 $Map{$1} = $2;
|
|
|
63 } else {
|
|
|
64 die "Invalid resource format in $fname at $line";
|
|
|
65 }
|
|
|
66 $line ++;
|
|
|
67 }
|
|
|
68
|
|
|
69 return \%Map;
|
|
|
70 }
|
|
|
71
|
|
|
72 package IMPL::Resources::Strings::Storage;
|
|
|
73 use base qw(IMPL::Object);
|
|
|
74
|
|
|
75 sub get {
|
|
|
76 my ($this,$msg_name) = @_;
|
|
|
77 }
|
|
66
|
78
|
|
49
|
79 1;
|
|
|
80
|
|
|
81 __END__
|
|
|
82
|
|
|
83 =pod
|
|
|
84
|
|
66
|
85 =head1 NAME
|
|
|
86
|
|
|
87 C<IMPL::Resources::Strings> - Строковые ресурсы
|
|
|
88
|
|
49
|
89 =head1 SYNOPSIS
|
|
|
90
|
|
66
|
91 =begin code
|
|
|
92
|
|
49
|
93 package Foo;
|
|
|
94
|
|
|
95 use IMPL::Resources::Strings {
|
|
|
96 msg_say_hello => "Hello, %name!",
|
|
|
97 msg_module_name => "Simple Foo class"
|
|
|
98 }, auto => 1, locale => 'en-us';
|
|
|
99
|
|
|
100 sub InviteUser {
|
|
|
101 my ($this,$uname) = @_;
|
|
|
102
|
|
|
103 print msg_say_hello(name => $uname);
|
|
|
104
|
|
|
105 }
|
|
|
106
|
|
66
|
107 =end code
|
|
|
108
|
|
|
109 =head1 DESCRIPTION
|
|
|
110
|
|
|
111 Импортирует в целевой модуль функции, которые возвращают локализованные
|
|
|
112 параметризованные сообщения.
|
|
|
113
|
|
|
114 При импорте ищутся модули по следующему алгоритму:
|
|
|
115
|
|
|
116 В каталогах из массива C<@Locations> ищется файл с относительным путем
|
|
|
117 C<$Base/$Locale/$ModName>, где C<$Base>, C<$Locale> - глобальные переменные
|
|
|
118 модуля C<IMPL::Resourses::Strings>, а переменная C<$ModName> получена
|
|
|
119 путем замены 'C<::>' в имени целевого модуля на 'C</>'.
|
|
|
120
|
|
|
121 Если файл не был найден, то производится поиск в каталоге, где
|
|
|
122 расположен сам модуль, файла с относительным путем C<locale/$Locale/$ShortModName>,
|
|
|
123 где C<$ShortModeName> - последняя часть после 'C<::>' из имени целевого модуля.
|
|
|
124
|
|
|
125 Если файл не найден, то используются строки, указанные при объявлении
|
|
|
126 сообщений в целевом модуле.
|
|
|
127
|
|
|
128 =head1 FORMAT
|
|
|
129
|
|
|
130 =begin code text
|
|
|
131
|
|
|
132 msg_name = any text with named %params%
|
|
|
133 msg_hello = hello, %name%!!!
|
|
|
134 msg_resolve = this is a value of the property: %user.age%
|
|
|
135
|
|
|
136 msg_short_err = %error.Message%
|
|
|
137 msg_full_err = %error%
|
|
|
138
|
|
|
139 =end code text
|
|
|
140
|
|
49
|
141 =cut
|
