Description: ------------ Here is Turkish language support.

<?php /* vim: set expandtab tabstop=4 shiftwidth=4: */ // // +----------------------------------------------------------------------+ // | PHP version 4 | // +----------------------------------------------------------------------+ // | Copyright (c) 1997-2003 The PHP Group | // +----------------------------------------------------------------------+ // | This source file is subject to version 3.0 of the PHP license, | // | that is bundled with this package in the file LICENSE, and is | // | available at through the world-wide-web at | // | http://www.php.net/license/3_0.txt. | // | If you did not receive a copy of the PHP license and are unable to | // | obtain it through the world-wide-web, please send a note to | // | license@php.net so we can mail you a copy immediately. | // +----------------------------------------------------------------------+ // | Authors: Shahriyar Imanov | // +----------------------------------------------------------------------+ // // Numbers_Words class extension to spell numbers in Turkish. // /** * Class for translating numbers into Turkish. * * @author Shahriyar Imanov <shehi@imanov.name> * @package Numbers_Words */ /** * Include needed files */ require_once("Numbers/Words.php"); /** * Class for translating numbers into Italian. * It supports up to quadrilions * * @author Shahriyar Imanov <shehi@imanov.name> * @package Numbers_Words */ class Numbers_Words_tr_TR extends Numbers_Words { // {{{ properties /** * Locale name * @var string * @access public */ var $locale = 'tr_TR'; /** * Language name in English * @var string * @access public */ var $lang = 'Turkish'; /** * Native language name * @var string * @access public */ var $lang_native = 'Türkçe'; /** * The word for the minus sign * @var string * @access private */ var $_minus = 'eksi'; /** * The sufixes for exponents (singular and plural) * @var array * @access private */ var $_exponent = array( 0 => array(''), 3 => array('bin'), 6 => array('milyon'), 12 => array('milyar'), 18 => array('trilyon'), 24 => array('katrilyon'), ); /** * The array containing the digits (indexed by the digits themselves). * @var array * @access private */ var $_digits = array( 0 => 's?f?r', 'bir', 'iki', 'üç', 'dört', 'be?', 'alt?', 'yedi', 'sekiz', 'dokuz' ); /** * The word separator * @var string * @access private */ var $_sep = ' '; /** * The currency names (based on the below links, * informations from central bank websites and on encyclopedias) * * @var array * @link http://30-03-67.dreamstation.com/currency_alfa.htm World Currency Information * @link http://www.jhall.demon.co.uk/currency/by_abbrev.html World currencies * @link http://www.shoestring.co.kr/world/p.visa/change.htm Currency names in English * @access private */ var $_currency_names = array( 'ALL' => array(array('lek'), array('qindarka')), 'AUD' => array(array('Avusturalya dolar?'), array('sent')), 'BAM' => array(array('convertible marka'), array('fenig')), 'BGN' => array(array('Bulgar levas?'), array('stotinka','stotinki')), 'BRL' => array(array('real'), array('centavos')), 'BWP' => array(array('Botswana pulas?'), array('thebe')), 'BYR' => array(array('Belarus rublesi'), array('kopiejka')), 'CAD' => array(array('Kanada dolar?'), array('sent')), 'CHF' => array(array('?sveç frank?'), array('rapp')), 'CHF' => array(array('Çin yuan?'), array('fen')), 'CYP' => array(array('K?br?s pound\'u'), array('sent')), 'CZK' => array(array('Çek kronu'), array('halerz')), 'DKK' => array(array('Danmarka kronu'), array('ore')), 'EEK' => array(array('kroon'), array('senti')), 'EUR' => array(array('Avro'), array('Avro-sent')), 'GBP' => array(array('pound', 'pound'), array('pence', 'pence')), 'HKD' => array(array('Hong Kong dolar?'), array('sent')), 'HRK' => array(array('H?rvatistan kunas?'), array('lipa')), 'HUF' => array(array('Macar forinti'), array('filler')), 'ILS' => array(array('yeni sheqel','yeni sheqels'), array('agora','agorot')), 'ISK' => array(array('Izlanda kronu'), array('aurar')), 'JPY' => array(array('Japon yeni'), array('sen')), 'LTL' => array(array('Litvanya litas?'), array('sent')), 'LVL' => array(array('Letonya lat?'), array('sentim')), 'MKD' => array(array('Makedonya dinar?'), array('deni')), 'MTL' => array(array('Malta liras?'), array('centym')), 'NOK' => array(array('Norveç kronu'), array('oere')), 'PLN' => array(array('zloty', 'zlotys'), array('grosz')), 'ROL' => array(array('Romanya leu'), array('bani')), 'RUB' => array(array('Ruble'), array('kopiejka')), 'SEK' => array(array('?sveç kronu'), array('oere')), 'SIT' => array(array('Tolar'), array('stotinia')), 'SKK' => array(array('Slovakya kronu'), array()), 'TRY' => array(array('Türk Liras?'), array('kuru?')), 'UAH' => array(array('Ukrayna hryvnyas?'), array('kopiyka')), 'USD' => array(array('ABD Dolar?'), array('sent')), 'YUM' => array(array('dinar'), array('para')), 'ZAR' => array(array('Güney Afrika rand?'), array('sent')) ); /** * The default currency name * @var string * @access public */ var $def_currency = 'TRY'; // Türk Liras? // }}} // {{{ toWords() /** * Converts a number to its word representation * in italiano. * * @param integer $num An integer between -infinity and infinity inclusive :) * that should be converted to a words representation * @param integer $power The power of ten for the rest of the number to the right. * For example toWords(12,3) should give "doce mil". * Optional, defaults to 0. * @return string The corresponding word representation * * @access private * @author Filippo Beltramini * @since PHP 4.2.3 */ function toWords($num, $power = 0) { // The return string; $ret = ''; // add a the word for the minus sign if necessary if (substr($num, 0, 1) == '-') { $ret = $this->_sep . $this->_minus; $num = substr($num, 1); } // strip excessive zero signs $num = preg_replace('/^0+/','',$num); if (strlen($num) > 6) { $current_power = 6; // check for highest power if (isset($this->_exponent[$power])) { // convert the number above the first 6 digits // with it's corresponding $power. $snum = substr($num, 0, -6); $snum = preg_replace('/^0+/','',$snum); if ($snum !== '') { $ret .= $this->toWords($snum, $power + 6); } } $num = substr($num, -6); if ($num == 0) { return $ret; } } elseif ($num == 0 || $num == '') { return(' '.$this->_digits[0].' '); $current_power = strlen($num); } else { $current_power = strlen($num); } // See if we need "thousands" $thousands = floor($num / 1000); if ($thousands == 1) { $ret .= $this->_sep . 'bin' . $this->_sep; } elseif ($thousands > 1) { $ret .= $this->toWords($thousands, 3) . $this->_sep;//. 'mil' . $this->_sep; } // values for digits, tens and hundreds $h = floor(($num / 100) % 10); $t = floor(($num / 10) % 10); $d = floor($num % 10); if ($h) { $ret .= $this->_sep . $this->_digits[$h] . $this->_sep . 'yüz'; // in English only - add ' and' for [1-9]01..[1-9]99 // (also for 1001..1099, 10001..10099 but it is harder) // for now it is switched off, maybe some language purists // can force me to enable it, or to remove it completely // if (($t + $d) > 0) // $ret .= $this->_sep . 'and'; } // decine: venti trenta, etc... switch ($t) { case 9: $ret .= $this->_sep . 'doksan'; break; case 8: $ret .= $this->_sep . 'seksen'; break; case 7: $ret .= $this->_sep . 'yetmi?'; break; case 6: $ret .= $this->_sep . 'altm??'; break; case 5: $ret .= $this->_sep . 'elli'; break; case 4: $ret .= $this->_sep . 'k?rk'; break; case 3: $ret .= $this->_sep . 'otuz'; break; case 2: $ret .= $this->_sep . 'yirmi'; break; case 2: $ret .= $this->_sep . 'on'; break; break; } if ($t > 1 && $d > 0) { $ret .= $this->_sep . $this->_digits[$d]; } if ($power > 0) { if (isset($this->_exponent[$power])) { $lev = $this->_exponent[$power]; } if (!isset($lev) || !is_array($lev)) { return null; } // if it's only one use the singular suffix if (($d == 1) and ($t == 0) and ($h == 0)) { $suffix = $lev[0]; } else { $suffix = $lev[1]; } if ($num != 0) { $ret .= $this->_sep . $suffix; } } return $ret; } // }}} // {{{ toCurrencyWords() /** * Converts a currency value to its word representation * (with monetary units) in English language * * @param integer $int_curr An international currency symbol * as defined by the ISO 4217 standard (three characters) * @param integer $decimal A money total amount without fraction part (e.g. amount of dollars) * @param integer $fraction Fractional part of the money amount (e.g. amount of cents) * Optional. Defaults to false. * @param integer $convert_fraction Convert fraction to words (left as numeric if set to false). * Optional. Defaults to true. * * @return string The corresponding word representation for the currency * * @access public * @author Piotr Klaban <makler@man.torun.pl> * @since Numbers_Words 0.4 */ function toCurrencyWords($int_curr, $decimal, $fraction = false, $convert_fraction = true) { $int_curr = strtoupper($int_curr); if (!isset($this->_currency_names[$int_curr])) { $int_curr = $this->def_currency; } $curr_names = $this->_currency_names[$int_curr]; $ret = trim($this->toWords($decimal)); $lev = ($decimal == 1) ? 0 : 1; if ($lev > 0) { if (count($curr_names[0]) > 1) { $ret .= $this->_sep . $curr_names[0][$lev]; } else { $ret .= $this->_sep . $curr_names[0][0]; } } else { $ret .= $this->_sep . $curr_names[0][0]; } if ($fraction !== false) { if ($convert_fraction) { $ret .= $this->_sep . trim($this->toWords($fraction)); } else { $ret .= $this->_sep . $fraction; } $lev = ($fraction == 1) ? 0 : 1; if ($lev > 0) { if (count($curr_names[1]) > 1) { $ret .= $this->_sep . $curr_names[1][$lev]; } else { $ret .= $this->_sep . $curr_names[1][0] . 's'; } } else { $ret .= $this->_sep . $curr_names[1][0]; } } return $ret; } // }}} } ?>

Awesome work Shehi! I don't suppose you could have a crack at unit test coverage too?

This bug has been fixed in SVN. If this was a documentation problem, the fix will appear on pear.php.net by the end of next Sunday (CET). If this was a problem with the pear.php.net website, the change should be live shortly. Otherwise, the fix will appear in the package's next release. Thank you for the report and for helping us make PEAR better. It would be great if you could provide a test suite as well. Best, ~IF.