<?php
/**
 * @copyright Copyright (C) 2005 eZ systems as. All rights reserved.
 * @license http://ez.no/licenses/new_bsd New BSD License
 * @version 1.0beta1
 * @filesource
 * @package Translation
 */
/**
 * Implements the Bork translation filter.
 *
 * The bork filter mangles non-finished or non-translated text so that it is
 * obvious which text is translatable, but not yet translated.
 *
 * @package Translation
 */
class ezcTranslationBorkFilter implements ezcTranslationFilter
{
    /**
     * @param ezcTranslationFilterBork Instance
     */
    static private $instance = null;

    /**
     * Private constructor to prevent non-singleton use
     */
    private function __constructor()
    {
    }

    /**
     * Returns an instance of the class ezcTranslationFilterBork
     *
     * @returns ezcTranslationFilterBork Instance of ezcTranslationFilterBork
     */
    public static function getInstance()
    { 
        if ( is_null( self::$instance ) ) 
        { 
            self::$instance = new ezcTranslationBorkFilter(); 
        } 
        return self::$instance; 
    }

    static private function borkify( $text )
    {
        $textBlocks = preg_split( '/(%[^ ]+)/', $text, -1, PREG_SPLIT_DELIM_CAPTURE );
        $newTextBlocks = array();
        foreach ( $textBlocks as $text )
        {
            if ( strlen( $text ) && $text[0] == '%' )
            {
                $newTextBlocks[] = $text;
                continue;
            }

            $orgtext = $text;

            $searchMap = array(
                '/au/', '/\Bu/', '/\Btion/', '/an/', '/a\B/', '/en\b/',
                '/\Bew/', '/\Bf/', '/\Bir/', '/\Bi/', '/\bo/', '/ow/', '/ph/',
                '/th\b/', '/\bU/', '/y\b/', '/v/', '/w/', '/ooo/',
            );
            $replaceMap = array(
                'oo', 'oo', 'shun', 'un', 'e', 'ee',
                'oo', 'ff', 'ur', 'ee', 'oo', 'oo', 'f',
                't', 'Oo', 'ai', 'f', 'v', 'oo',
            );
            $text = preg_replace( $searchMap, $replaceMap, $text );

            if ( $orgtext == $text )
            {
                $text .= '-a';
            }
            $newTextBlocks[] = $text;
        }
        $text = implode( '', $newTextBlocks );
        $text = preg_replace( '/([:.?!])(.*)/', '\\2\\1', $text );
        return "[$text]";
    }

    /**
     * Filters a context
     *
     * Applies the "bork" filter on the given context. The bork filter mangles
     * non-finished or non-translated text so that it is obvious which text is
     * translatable, but not yet translated.
     *
     * @param array[ezcTranslationData] $context
     * @return array The filtered context
     */
    public function runFilter( $context )
    {
        foreach ( $context as $element )
        {
            $element->translation = self::borkify( $element->original );
        }
    }
}
?>