<?php
/**
 * DirectionDetector plugin, detects notices with RTL content & sets RTL
 * style for them.
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.	See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program.	If not, see <http://www.gnu.org/licenses/>.
 *
 * @category     Plugin
 * @package      StatusNet
 * @author       Behrooz shabani (everplays) - <behrooz@rock.com>
 * @copyright    2009-2010 Behrooz shabani
 * @license      http://www.fsf.org/licensing/licenses/agpl-3.0.html AGPL 3.0
 *
 */

if (!defined('STATUSNET')) {
		exit(1);
}

define('DIRECTIONDETECTORPLUGIN_VERSION', '0.1.2');

class DirectionDetectorPlugin extends Plugin {
	/**
	 * SN plugin API, here we will make changes on rendered column
	 *
	 * @param object $notice notice is going to be saved
	 */
	public function onStartNoticeSave(&$notice){
		if(!preg_match('/<span class="rtl">/', $notice->rendered) && self::isRTL($notice->content))
			$notice->rendered = '<span class="rtl">'.$notice->rendered.'</span>';
		return true;
	}

	/**
	 * SN plugin API, here we will add css needed for modifiyed rendered
	 *
	 * @param
	 */
	public function onEndShowStatusNetStyles($xml){
		$xml->element('style', array('type' => 'text/css'), 'span.rtl {display:block;direction:rtl;text-align:right;float:right;width:490px;} .notice .author {float:left}');
	}
	/**
	 * checks that passed string is a RTL language or not
	 *
	 * @param string $str String to be checked
	 */
	public static function isRTL($str){
		self::getClearText($str);
		if( is_array($cc = self::utf8ToUnicode(mb_substr($str, 0, 1, 'utf-8'))) )
			$cc = $cc[0];
		else
			return false;
		if($cc>=1536 && $cc<=1791) // Arabic, Persian, Urdu, Kurdish, ...
			return true;
		if($cc>=65136 && $cc<=65279) // Arabic peresent 2
			return true;
		if($cc>=64336 && $cc<=65023) // Arabic peresent 1
			return true;
		if($cc>=1424 && $cc<=1535) // Hebrew
			return true;
		if($cc>=64256 && $cc<=64335) // Hebrew peresent
			return true;
		if($cc>=1792 && $cc<=1871) // Syriac
			return true;
		if($cc>=1920 && $cc<=1983) // Thaana
			return true;
		if($cc>=1984 && $cc<=2047) // NKo
			return true;
		if($cc>=11568 && $cc<=11647) // Tifinagh
			return true;
		return false;
	}

	/**
	 * clears text from replies, tags, groups, repeats & whitespaces
	 *
	 * @param string &$str string to be cleared
	 */
	private static function getClearText(&$str){
		$str = preg_replace('/@[^ ]+|![^ ]+|#[^ ]+/u', '', $str); // reply, tag, group
		$str = preg_replace('/^RT[: ]{1}| RT | RT: |^RD[: ]{1}| RD | RD: |[♺♻:]/u', '', $str); // redent, retweet
		$str = preg_replace("/[ \r\t\n]+/", ' ', trim($str)); // remove spaces
	}

	/**
	 * Takes a UTF-8 string and returns an array of ints representing the
	 * Unicode characters. Astral planes are supported i.e. the ints in the
	 * output can be > 0xFFFF. Occurrances of the BOM are ignored. Surrogates
	 * are not allowed. ### modified ### returns first character code
	 *
	 * Returns false if the input string isn't a valid UTF-8 octet sequence.
	 */
	private static function utf8ToUnicode($str){
		$mState = 0;	   // cached expected number of octets after the current octet
				   // until the beginning of the next UTF8 character sequence
		$mUcs4	= 0;     // cached Unicode character
		$mBytes = 1;	   // cached expected number of octets in the current sequence
		$out = array();
		$len = strlen($str);

		for($i = 0; $i < $len; $i++) {
			$in = ord($str{$i});
			if (0 == $mState) {
				// When mState is zero we expect either a US-ASCII character or a
				// multi-octet sequence.
				if (0 == (0x80 & ($in))) {
				  	// US-ASCII, pass straight through.
			  		$out[] = $in;
			  		$mBytes = 1;
				} elseif (0xC0 == (0xE0 & ($in))) {
					// First octet of 2 octet sequence
					$mUcs4 = ($in);
					$mUcs4 = ($mUcs4 & 0x1F) << 6;
					$mState = 1;
					$mBytes = 2;
				} elseif (0xE0 == (0xF0 & ($in))) {
					// First octet of 3 octet sequence
					$mUcs4 = ($in);
					$mUcs4 = ($mUcs4 & 0x0F) << 12;
					$mState = 2;
					$mBytes = 3;
				} elseif (0xF0 == (0xF8 & ($in))) {
					// First octet of 4 octet sequence
					$mUcs4 = ($in);
					$mUcs4 = ($mUcs4 & 0x07) << 18;
					$mState = 3;
					$mBytes = 4;
				} elseif (0xF8 == (0xFC & ($in))) {
					/* First octet of 5 octet sequence.
					 *
					 * This is illegal because the encoded codepoint must be either
					 * (a) not the shortest form or
					 * (b) outside the Unicode range of 0-0x10FFFF.
					 * Rather than trying to resynchronize, we will carry on until the end
					 * of the sequence and let the later error handling code catch it.
					 */
					$mUcs4 = ($in);
					$mUcs4 = ($mUcs4 & 0x03) << 24;
					$mState = 4;
					$mBytes = 5;
				} elseif (0xFC == (0xFE & ($in))) {
					// First octet of 6 octet sequence, see comments for 5 octet sequence.
					$mUcs4 = ($in);
					$mUcs4 = ($mUcs4 & 1) << 30;
					$mState = 5;
					$mBytes = 6;
				} else {
					/* Current octet is neither in the US-ASCII range nor a legal first
					 * octet of a multi-octet sequence.
					 */
					return false;
				}
			} else {
				// When mState is non-zero, we expect a continuation of the multi-octet
				// sequence
				if (0x80 == (0xC0 & ($in))) {
					// Legal continuation.
					$shift = ($mState - 1) * 6;
					$tmp = $in;
					$tmp = ($tmp & 0x0000003F) << $shift;
					$mUcs4 |= $tmp;
					if (0 == --$mState) {
						/* End of the multi-octet sequence. mUcs4 now contains the final
						 * Unicode codepoint to be output
						 *
						 * Check for illegal sequences and codepoints.
						 */
						// From Unicode 3.1, non-shortest form is illegal
						if	(
								((2 == $mBytes) && ($mUcs4 < 0x0080)) ||
								((3 == $mBytes) && ($mUcs4 < 0x0800)) ||
								((4 == $mBytes) && ($mUcs4 < 0x10000)) ||
								(4 < $mBytes) ||
								// From Unicode 3.2, surrogate characters are illegal
								(($mUcs4 & 0xFFFFF800) == 0xD800) ||
								// Codepoints outside the Unicode range are illegal
								($mUcs4 > 0x10FFFF)
							){
							return false;
						}
						if (0xFEFF != $mUcs4) {
							$out[] = $mUcs4;
						}
						//initialize UTF8 cache
						$mState = 0;
						$mUcs4  = 0;
						$mBytes = 1;
					}
				} else {
					/* ((0xC0 & (*in) != 0x80) && (mState != 0))
					 *
					 * Incomplete multi-octet sequence.
					 */
					return false;
				}
			}
		}
		return $out;
	}

	/**
	 * plugin details
	 */
	function onPluginVersion(&$versions){
		$versions[] = array(
			'name' => 'Direction detector',
			'version' => DIRECTIONDETECTORPLUGIN_VERSION,
			'author' => 'Behrooz Shabani',
                        // TRANS: Direction detector plugin description.
			'rawdescription' => _m('Shows notices with right-to-left content in correct direction.')
		);
		return true;
	}
}

/*
// Example:
var_dump(DirectionDetectorPlugin::isRTL('RT @everplays ♺: دادگاه به دليل عدم حضور وکلای متهمان بنا بر اصل ١٣٥ قانون اساسی غير قانونی است')); // true
*/