Can disable Javascript

[banana.git] / banana / text.func.inc.php

<?php\r
/********************************************************************************\r
* banana/text.php : text tools\r
* ---------------\r
*\r
* This file is part of the banana distribution\r
* Copyright: See COPYING files that comes with this distribution\r
********************************************************************************/\r
\r
if (function_exists('dgettext')) {\r
    function _b_($str)\r
    {\r
        return dgettext('banana', $str);\r
    }\r
} else {\r
    function _b_($str)\r
    {\r
        return $str;\r
    }\r
}\r
\r
if (!function_exists('is_utf8')) {\r
    function is_utf8($s)\r
    {\r
        return @iconv('utf-8', 'utf-8', $s) == $s;\r
    }\r
}\r
\r
function banana_entities($source)\r
{\r
    if (is_string($source)) {\r
        return banana_htmlentities($source);\r
    } else {\r
        return $source;\r
    }\r
}\r
\r
function banana_utf8entities($source)\r
{\r
   // array used to figure what number to decrement from character order value \r
   // according to number of characters used to map unicode to ascii by utf-8\r
   $decrement[4] = 240;\r
   $decrement[3] = 224;\r
   $decrement[2] = 192;\r
   $decrement[1] = 0;\r
   \r
   // the number of bits to shift each charNum by\r
   $shift[1][0] = 0;\r
   $shift[2][0] = 6;\r
   $shift[2][1] = 0;\r
   $shift[3][0] = 12;\r
   $shift[3][1] = 6;\r
   $shift[3][2] = 0;\r
   $shift[4][0] = 18;\r
   $shift[4][1] = 12;\r
   $shift[4][2] = 6;\r
   $shift[4][3] = 0;\r
   \r
   $pos = 0;\r
   $len = strlen($source);\r
   $encodedString = '';\r
   while ($pos < $len)\r
   {\r
      $charPos = $source{$pos};\r
      $asciiPos = ord($charPos);\r
      if ($asciiPos < 128)\r
      {\r
         $encodedString .= $charPos;\r
         $pos++;\r
         continue;\r
      }\r
      \r
      $i=1;\r
      if (($asciiPos >= 240) && ($asciiPos <= 255)) // 4 chars representing one unicode character\r
         $i=4;\r
      else if (($asciiPos >= 224) && ($asciiPos <= 239)) // 3 chars representing one unicode character\r
         $i=3;\r
      else if (($asciiPos >= 192) && ($asciiPos <= 223)) // 2 chars representing one unicode character\r
         $i=2;\r
      else // 1 char (lower ascii)\r
         $i=1;\r
      $thisLetter = substr($source, $pos, $i);\r
      $pos += $i;\r
      \r
      // process the string representing the letter to a unicode entity\r
      $thisLen = strlen($thisLetter);\r
      $thisPos = 0;\r
      $decimalCode = 0;\r
      while ($thisPos < $thisLen)\r
      {\r
         $thisCharOrd = ord(substr($thisLetter, $thisPos, 1));\r
         if ($thisPos == 0)\r
         {\r
            $charNum = intval($thisCharOrd - $decrement[$thisLen]);\r
            $decimalCode += ($charNum << $shift[$thisLen][$thisPos]);\r
         }\r
         else\r
         {\r
            $charNum = intval($thisCharOrd - 128);\r
            $decimalCode += ($charNum << $shift[$thisLen][$thisPos]);\r
         }\r
         \r
         $thisPos++;\r
      }\r
      \r
      $encodedLetter = '&#'. str_pad($decimalCode, ($thisLen==1)?3:5, '0', STR_PAD_LEFT).';';\r
      $encodedString .= $encodedLetter;\r
   }\r
   \r
   return $encodedString;\r
}\r
\r
// vim:set et sw=4 sts=4 ts=4 enc=utf-8:\r
?>\r