functions/gettext.php

   1 <?php
   2
   3 /**
   4  * gettext.php
   5  *
   6  * Copyright (c) 1999-2003 The SquirrelMail Project Team
   7  * Licensed under the GNU GPL. For full terms see the file COPYING.
   8  *
   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
  14  *
  15  * $Id$
  16  */
  17
  18 require_once(SM_PATH . 'functions/global.php');
  19
  20 global $gettext_php_domain, $gettext_php_dir, $gettext_php_loaded,
  21  $gettext_php_translateStrings, $gettext_php_loaded_language,
  22  $gettext_php_short_circuit;
  23
  24 if (! isset($gettext_php_loaded)) {
  25     $gettext_php_loaded = false;
  26     sqsession_register($gettext_php_loaded, 'gettext_php_loaded');
  27 }
  28 if (! isset($gettext_php_domain)) {
  29     $gettext_php_domain = '';
  30     sqsession_register($gettext_php_domain, 'gettext_php_domain');
  31 }
  32 if (! isset($gettext_php_dir)) {
  33     $gettext_php_dir = '';
  34     sqsession_register($gettext_php_dir, 'gettext_php_dir');
  35 }
  36 if (! isset($gettext_php_translateStrings)) {
  37     $gettext_php_translateStrings = array();
  38     sqsession_register($gettext_php_translateStrings, 'gettext_php_translateStrings');
  39 }
  40 if (! isset($gettext_php_loaded_language)) {
  41     $gettext_php_loaded_language = '';
  42     sqsession_register($gettext_php_loaded_language, 'gettext_php_loaded_language');
  43 }
  44 if (! isset($gettext_php_short_circuit)) {
  45     $gettext_php_short_circuit = false;
  46     sqsession_register($gettext_php_short_circuit, 'gettext_php_short_circuit');
  47 }
  48
  49 function gettext_php_load_strings() {
  50     global $squirrelmail_language, $gettext_php_translateStrings,
  51         $gettext_php_domain, $gettext_php_dir, $gettext_php_loaded,
  52         $gettext_php_loaded_language, $gettext_php_short_circuit;
  53
  54     /*
  55      * $squirrelmail_language gives 'en' for English, 'de' for German,
  56      * etc.  I didn't wanna use getenv or similar, but you easily could
  57      * change my code to do that.
  58      */
  59
  60     $gettext_php_translateStrings = array();
  61
  62     $gettext_php_short_circuit = false;  /* initialization */
  63
  64     $filename = $gettext_php_dir;
  65     if (substr($filename, -1) != '/')
  66         $filename .= '/';
  67     $filename .= $squirrelmail_language . '/LC_MESSAGES/' .
  68         $gettext_php_domain . '.po';
  69
  70     $file = @fopen($filename, 'r');
  71     if ($file == false) {
  72         /* Uh-ho -- we can't load the file.  Just fake it.  :-)
  73            This is also for English, which doesn't use translations */
  74         $gettext_php_loaded = true;
  75         $gettext_php_loaded_language = $squirrelmail_language;
  76         /* Avoid fuzzy matching when we didn't load strings */
  77         $gettext_php_short_circuit = true;
  78         return;
  79     }
  80
  81     $key = '';
  82     $SkipRead = false;
  83     while (! feof($file)) {
  84         if (! $SkipRead) {
  85             $line = trim(fgets($file, 4096));
  86         } else {
  87             $SkipRead = false;
  88         }
  89
  90         if (ereg('^msgid "(.*)"$', $line, $match)) {
  91             if ($match[1] == '') {
  92                 /*
  93                  * Potential multi-line
  94                  * msgid ""
  95                  * "string string "
  96                  * "string string"
  97                  */
  98                 $key = '';
  99                 $line = trim(fgets($file, 4096));
 100                 while (ereg('^[ ]*"(.*)"[ ]*$', $line, $match)) {
 101                     $key .= $match[1];
 102                     $line = trim(fgets($file, 4096));
 103                 }
 104                 $SkipRead = true;
 105             } else {
 106                 /* msgid "string string" */
 107                 $key = $match[1];
 108             }
 109         } elseif (ereg('^msgstr "(.*)"$', $line, $match)) {
 110             if ($match[1] == '') {
 111                 /*
 112                  * Potential multi-line
 113                  * msgstr ""
 114                  * "string string "
 115                  * "string string"
 116                  */
 117                 $gettext_php_translateStrings[$key] = '';
 118                 $line = trim(fgets($file, 4096));
 119                 while (ereg('^[ ]*"(.*)"[ ]*$', $line, $match)) {
 120                     $gettext_php_translateStrings[$key] .= $match[1];
 121                     $line = trim(fgets($file, 4096));
 122                 }
 123                 $SkipRead = true;
 124             } else {
 125                 /* msgstr "string string" */
 126                 $gettext_php_translateStrings[$key] = $match[1];
 127             }
 128             $gettext_php_translateStrings[$key] =
 129                 stripslashes($gettext_php_translateStrings[$key]);
 130             /* If there is no translation, just use the untranslated string */
 131             if ($gettext_php_translateStrings[$key] == '') {
 132                 $gettext_php_translateStrings[$key] = $key;
 133             }
 134             $key = '';
 135         }
 136     }
 137     fclose($file);
 138
 139     $gettext_php_loaded = true;
 140     $gettext_php_loaded_language = $squirrelmail_language;
 141 }
 142
 143 function _($str) {
 144     global $gettext_php_loaded, $gettext_php_translateStrings,
 145         $squirrelmail_language, $gettext_php_loaded_language,
 146         $gettext_php_short_circuit;
 147
 148     if (! $gettext_php_loaded ||
 149         $gettext_php_loaded_language != $squirrelmail_language) {
 150         gettext_php_load_strings();
 151     }
 152
 153     /* Try finding the exact string */
 154     if (isset($gettext_php_translateStrings[$str])) {
 155         return $gettext_php_translateStrings[$str];
 156     }
 157
 158     /* See if we should short-circuit */
 159     if ($gettext_php_short_circuit) {
 160         $gettext_php_translateStrings[$str] = $str;
 161         return $str;
 162     }
 163
 164     /* Look for a string that is very close to the one we want
 165        Very computationally expensive */
 166     $oldPercent = 0;
 167     $oldStr = '';
 168     $newPercent = 0;
 169     foreach ($gettext_php_translateStrings as $k => $v) {
 170         similar_text($str, $k, $newPercent);
 171         if ($newPercent > $oldPercent) {
 172             $oldStr = $v;
 173             $oldPercent = $newPercent;
 174         }
 175     }
 176     /* Require 80% match or better
 177        Adjust to suit your needs */
 178     if ($oldPercent > 80) {
 179         /* Remember this so we don't need to search again */
 180         $gettext_php_translateStrings[$str] = $oldStr;
 181         return $oldStr;
 182     }
 183
 184     /* Remember this so we don't need to search again */
 185     $gettext_php_translateStrings[$str] = $str;
 186     return $str;
 187 }
 188
 189 function bindtextdomain($name, $dir) {
 190     global $gettext_php_domain, $gettext_php_dir, $gettext_php_loaded;
 191
 192     if ($gettext_php_domain != $name) {
 193         $gettext_php_domain = $name;
 194         $gettext_php_loaded = false;
 195     }
 196     if ($gettext_php_dir != $dir) {
 197         $gettext_php_dir = $dir;
 198         $gettext_php_loaded = false;
 199     }
 200
 201     return $dir;
 202 }
 203
 204 function textdomain($name = false) {
 205     global $gettext_php_domain, $gettext_php_loaded;
 206
 207     if ($name != false && $gettext_php_domain != $name) {
 208         $gettext_php_domain = $name;
 209         $gettext_php_loaded = false;
 210     }
 211     return $gettext_php_domain;
 212 }
 213
 214 ?>