<?php
/**
 * Simple file format handler for testing import and export.
 *
 * @author Niklas Laxström
 * @copyright Copyright © 2008-2010, Niklas Laxström
 * @license http://www.gnu.org/copyleft/gpl.html GNU General Public License 2.0 or later
 * @file
 */

/**
 * Example implementation of old-style file format reader.
 * @see FFS
 */
class SimpleFormatReader {
	const SEPARATOR = '----';
	const AUTHORPREFIX = 'Author: ';

	// One reader per file
	protected $filename = false;

	public function __construct( $filename ) {
		if ( is_readable( $filename ) ) {
			$this->filename = $filename;
		}
	}

	protected $authors = null;
	protected $staticHeader = '';

	public function parseAuthors() {
		if ( $this->authors === null ) {
			$this->parseHeader();
		}
		return $this->authors;
	}

	public function parseStaticHeader() {
		if ( $this->staticHeader === '' ) {
			$this->parseHeader();
		}
		return $this->staticHeader;
	}

	protected function parseHeader() {
		$authors = array();
		$staticHeader = '';

		if ( $this->filename !== false ) {
			$handle = fopen( $this->filename, "rt" );
			$state = 0;

			while ( !feof( $handle ) ) {
				$line = fgets( $handle );

				if ( $state === 0 ) {
					if ( $line === "\n" ) {
						$state = 1;
						continue;
					}

					$prefixLength = strlen( self::AUTHORPREFIX );
					$prefix = substr( $line, 0, $prefixLength );
					if ( strcasecmp( $prefix, self::AUTHORPREFIX ) === 0 ) {
						$authors[] = substr( $line, $prefixLength );
					}
				} elseif ( $state === 1 ) {
					if ( $line === self::SEPARATOR ) {
						break; // End of static header, if any
					}

					$staticHeader .= $line;
				}
			}
			fclose( $handle );
		}

		$this->authors = $authors;
		$this->staticHeader = $staticHeader;

	}

	protected $messagePattern = '/([^\0]+)\0([^\0]+)\0\n/U';
	public function parseMessages( StringMangler $mangler ) {

		$data = file_get_contents( $this->filename );
		$messages = array();
		$matches = array();

		preg_match_all( $this->messagePattern, $data, $matches, PREG_SET_ORDER );
		foreach ( $matches as $match ) {
			list( , $key, $value ) = $match;
			$messages[$key] = $value;
		}

		return $messages;
	}
}

/**
 * Example implementation of old-style file format writer.
 * @see FFS
 */
class SimpleFormatWriter {
	const SEPARATOR = '----';
	const AUTHORPREFIX = 'Author: ';

	// Stored objects
	protected $group;

	// Stored data
	protected $authors, $staticHeader;

	public function __construct( MessageGroup $group ) {
		$this->group = $group;
	}

	public function addAuthors( array $authors, $code ) {
		if ( $this->authors === null ) {
			$this->authors = array();
		}

		if ( !isset( $this->authors[$code] ) ) {
			$this->authors[$code] = array();
		}

		/* Assuming there is only numerical keys, array_merge does the right thing
		 * here, and wfMergeArray() not, because it overwrites instead of appends */
		$this->authors[$code] = array_merge( $this->authors[$code], $authors );
		$this->authors[$code] = array_unique( $this->authors[$code] );
	}

	public function load( $code ) {
		$reader = $this->group->getReader( $code );
		if ( $reader ) {
			$this->addAuthors( $reader->parseAuthors(), $code );
			$this->staticHeader = $reader->parseStaticHeader();
		}
	}

	public function fileExport( array $languages, $targetDirectory ) {
		foreach ( $languages as $code ) {
			$messages = $this->getMessagesForExport( $this->group, $code );

			if ( !count( $messages ) ) {
				continue;
			}

			$filename = $this->group->getMessageFile( $code );
			if ( !$filename ) {
				continue;
			}
			$target = $targetDirectory . '/' . $filename;

			wfMkdirParents( dirname( $target ), null, __METHOD__ );
			$handle = fopen( $target, 'wt' );

			if ( $handle === false ) {
				throw new MWException( "Unable to open target for writing" );
			}

			$this->exportLanguage( $handle, $messages );

			fclose( $handle );
		}
	}

	public function webExport( MessageCollection $collection ) {
		$code = $collection->code; // shorthand

		// Open temporary stream
		$handle = fopen( 'php://temp', 'wt' );

		$this->addAuthors( $collection->getAuthors(), $code );
		$this->exportLanguage( $handle, $collection );

		// Fetch data
		rewind( $handle );
		$data = stream_get_contents( $handle );
		fclose( $handle );

		return $data;
	}

	protected function getMessagesForExport( MessageGroup $group, $code ) {
		$collection = $this->group->initCollection( $code );
		$collection->setInfile( $this->group->load( $code ) );
		$collection->filter( 'ignored' );
		$collection->filter( 'hastranslation', false );
		$collection->loadTranslations();
		$this->addAuthors( $collection->getAuthors(), $code );

		return $collection;
	}

	protected function exportLanguage( $target, MessageCollection $collection ) {
		$this->load( $collection->code );
		$this->makeHeader( $target, $collection->code );
		$this->exportStaticHeader( $target );
		$this->exportMessages( $target, $collection );
	}

	// Writing three
	protected function makeHeader( $handle, $code ) {
		fwrite( $handle, $this->formatAuthors( self::AUTHORPREFIX, $code ) );
		fwrite( $handle, self::SEPARATOR . "\n" );
	}


	public function filterAuthors( array $authors, $code, $groupId ) {
		global $wgTranslateAuthorBlacklist;

		foreach ( $authors as $i => $v ) {
			$hash = "$groupId;$code;$v";

			$blacklisted = false;
			foreach ( $wgTranslateAuthorBlacklist as $rule ) {
				list( $type, $regex ) = $rule;
				if ( preg_match( $regex, $hash ) ) {
					if ( $type === 'white' ) {
						$blacklisted = false;
						break;
					} else {
						$blacklisted = true;
					}
				}
			}

			if ( $blacklisted ) {
				unset( $authors[$i] );
			}

		}

		return $authors;
	}

	protected function formatAuthors( $prefix, $code ) {
		// Check if there is any authors at all
		if ( empty( $this->authors[$code] ) ) {
			return '';
		}

		$groupId = $this->group->getId();
		$authors = $this->authors[$code];
		$authors = $this->filterAuthors( $authors, $code, $groupId );

		if ( empty( $authors ) ) {
			return '';
		}

		sort( $authors );

		$s = array();
		foreach ( $authors as $a ) {
			$s[] = $prefix . $a;
		}

		return implode( "\n", $s ) . "\n";
	}

	protected function exportStaticHeader( $target ) {
		if ( $this->staticHeader ) {
			fwrite( $target, $this->staticHeader . "\n" );
		}
	}

	protected function exportMessages( $handle, MessageCollection $collection ) {
		$mangler = $this->group->getMangler();

		foreach ( $collection as $item ) {
			$key = $mangler->unMangle( $item->key() );
			$value = str_replace( TRANSLATE_FUZZY, '', $item->translation() );
			fwrite( $handle, "$key\000$value\000\n" );
		}
	}

	protected function getLanguageNames( $code ) {
		$name = TranslateUtils::getLanguageName( $code );
		$native = TranslateUtils::getLanguageName( $code, true );

		return array( $name, $native );
	}
}