6 * Copyright (c) 1999-2001 The SquirrelMail Development Team
7 * Licensed under the GNU GPL. For full terms see the file COPYING.
9 * Alternate to the system's built-in gettext.
10 * relies on .po files (can't read .mo easily).
11 * Uses the session for caching (speed increase)
12 * Possible use in other PHP scripts? The only SM-specific thing is
13 * $sm_language, I think
18 /*****************************************************************/
19 /*** THIS FILE NEEDS TO HAVE ITS FORMATTING FIXED!!! ***/
20 /*** PLEASE DO SO AND REMOVE THIS COMMENT SECTION. ***/
21 /*** + Base level indent should begin at left margin, as ***/
22 /*** the global definition below. ***/
23 /*** + All identation should consist of four space blocks ***/
24 /*** + Tab characters are evil. ***/
25 /*** + all comments should use "slash-star ... star-slash" ***/
26 /*** style -- no pound characters, no slash-slash style ***/
27 /*** + FLOW CONTROL STATEMENTS (if, while, etc) SHOULD ***/
28 /*** ALWAYS USE { AND } CHARACTERS!!! ***/
29 /*** + Please use ' instead of ", when possible. Note " ***/
30 /*** should always be used in _( ) function calls. ***/
31 /*** Thank you for your help making the SM code more readable. ***/
32 /*****************************************************************/
34 global $gettext_php_domain, $gettext_php_dir, $gettext_php_loaded,
35 $gettext_php_translateStrings, $gettext_php_loaded_language,
36 $gettext_php_short_circuit;
38 if (! isset($gettext_php_loaded)) {
39 $gettext_php_loaded = false;
40 session_register('gettext_php_loaded');
42 if (! isset($gettext_php_domain)) {
43 $gettext_php_domain = '';
44 session_register('gettext_php_domain');
46 if (! isset($gettext_php_dir)) {
47 $gettext_php_dir = '';
48 session_register('gettext_php_dir');
50 if (! isset($gettext_php_translateStrings)) {
51 $gettext_php_translateStrings = array();
52 session_register('gettext_php_translateStrings');
54 if (! isset($gettext_php_loaded_language)) {
55 $gettext_php_loaded_language = '';
56 session_register('gettext_php_loaded_language');
58 if (! isset($gettext_php_short_circuit)) {
59 $gettext_php_short_circuit = false;
60 session_register('gettext_php_short_circuit');
63 function gettext_php_load_strings() {
64 global $squirrelmail_language, $gettext_php_translateStrings,
65 $gettext_php_domain, $gettext_php_dir, $gettext_php_loaded,
66 $gettext_php_loaded_language, $gettext_php_short_circuit;
68 // $squirrelmail_language gives 'en' for English, 'de' for German,
69 // etc. I didn't wanna use getenv or similar, but you easily could
70 // change my code to do that.
72 $gettext_php_translateStrings = array();
74 $gettext_php_short_circuit = false; // initialization
76 $filename = $gettext_php_dir;
77 if (substr($filename, -1) != '/')
79 $filename .= $squirrelmail_language . '/LC_MESSAGES/' .
80 $gettext_php_domain . '.po';
82 $file = @fopen
($filename, 'r');
84 // Uh-ho -- we can't load the file. Just fake it. :-)
85 // This is also for English, which doesn't use translations
86 $gettext_php_loaded = true;
87 $gettext_php_loaded_language = $squirrelmail_language;
88 $gettext_php_short_circuit = true; // Avoid fuzzy matching when we
89 // didn't load strings
95 while (! feof($file)) {
97 $line = trim(fgets($file, 4096));
101 if (ereg('^msgid "(.*)"$', $line, $match)) {
102 if ($match[1] == '') {
103 // Potential multi-line
108 $line = trim(fgets($file, 4096));
109 while (ereg('^[ ]*"(.*)"[ ]*$', $line, $match)) {
111 $line = trim(fgets($file, 4096));
115 // msgid "string string"
118 } elseif (ereg('^msgstr "(.*)"$', $line, $match)) {
119 if ($match[1] == '') {
120 // Potential multi-line
124 $gettext_php_translateStrings[$key] = '';
125 $line = trim(fgets($file, 4096));
126 while (ereg('^[ ]*"(.*)"[ ]*$', $line, $match)) {
127 $gettext_php_translateStrings[$key] .= $match[1];
128 $line = trim(fgets($file, 4096));
132 // msgstr "string string"
133 $gettext_php_translateStrings[$key] = $match[1];
135 $gettext_php_translateStrings[$key] =
136 stripslashes($gettext_php_translateStrings[$key]);
142 $gettext_php_loaded = true;
143 $gettext_php_loaded_language = $squirrelmail_language;
147 global $gettext_php_loaded, $gettext_php_translateStrings,
148 $squirrelmail_language, $gettext_php_loaded_language,
149 $gettext_php_short_circuit;
151 if (! $gettext_php_loaded ||
152 $gettext_php_loaded_language != $squirrelmail_language)
153 gettext_php_load_strings();
155 // Try finding the exact string
156 if (isset($gettext_php_translateStrings[$str]))
157 return $gettext_php_translateStrings[$str];
159 // See if we should short-circuit
160 if ($gettext_php_short_circuit) {
161 $gettext_php_translateStrings[$str] = $str;
165 // Look for a string that is very close to the one we want
166 // Very computationally expensive
170 foreach ($gettext_php_translateStrings as $k => $v) {
171 similar_text($str, $k, $newPercent);
172 if ($newPercent > $oldPercent) {
174 $oldPercent = $newPercent;
177 // Require 80% match or better
178 // Adjust to suit your needs
179 if ($oldPercent > 80) {
180 // Remember this so we don't need to search again
181 $gettext_php_translateStrings[$str] = $oldStr;
185 // Remember this so we don't need to search again
186 $gettext_php_translateStrings[$str] = $str;
190 function bindtextdomain($name, $dir) {
191 global $gettext_php_domain, $gettext_php_dir, $gettext_php_loaded;
193 if ($gettext_php_domain != $name) {
194 $gettext_php_domain = $name;
195 $gettext_php_loaded = false;
197 if ($gettext_php_dir != $dir) {
198 $gettext_php_dir = $dir;
199 $gettext_php_loaded = false;
205 function textdomain($name = false) {
206 global $gettext_php_domain, $gettext_php_loaded;
208 if ($name != false && $gettext_php_domain != $name) {
209 $gettext_php_domain = $name;
210 $gettext_php_loaded = false;
212 return $gettext_php_domain;