Lietuviškų vardų linksniai.

lietuviskiVardai.php

<?php

/**
* Lietuviškų vardų linksniai.
*
* @author Dainius Kaupaitis <dainius at kaupaitis dot lt>
* @copyright Copyleft (ↄ) 2011, Dainius Kaupaitis
* @version 1.0
* @package Vardai
*/
class Linksniai {

	function __construct ( $encoding = 'UTF-8' ) {
	
		mb_internal_encoding($encoding) ;
		
		// kilmininkas (ko?)
		$this->kil = array(
			'a' => 'os',
			'as' => 'o',
			'ė' => 'ės',
			'tis' => 'čio',
			'dis' => 'džio',
			'is' => 'io',
			'us' => 'aus',
			'tys' => 'čio',
			'dys' => 'džio',
			'ys' => 'io'
		) ;
		
		// naudininkas (kam?)
		$this->nau = array(
			'a' => 'ai',
			'as' => 'ui',
			'ė' => 'ei',
			'tis' => 'čiui',
			'dis' => 'džiui',
			'is' => 'iui',
			'us' => 'ui',
			'tys' => 'čiui',
			'dys' => 'džiui',
			'ys' => 'iui'
		) ;
		
		// galininkas (ką?)
		$this->gal = array(
			'a' => 'ą',
			'as' => 'ą',
			'ė' => 'ę',
			'is' => 'į',
			'us' => 'ų',
			'ys' => 'į'
		) ;
		
		// įnagininkas (kuo?)
		$this->ina = array(
			'a' => 'a',
			'as' => 'u',
			'ė' => 'e',
			'tis' => 'čiu',
			'dis' => 'džiu',
			'is' => 'iu',
			'us' => 'u',
			'tys' => 'čiu',
			'dys' => 'džiu',
			'ys' => 'iu'
		) ;
		
		// vietininkas (kur? kame?)
		$this->vie = array(
			'a' => 'oje',
			'as' => 'e',
			'ė' => 'ėje',
			'is' => 'yje',
			'us' => 'uje',
			'ys' => 'yje'
		) ;
		
		// šauksmininkas
		$this->sau = array(
			'a' => 'a',
			'as' => 'ai',
			'ė' => 'e',
			'is' => 'i',
			'us' => 'au',
			'ys' => 'y'
		) ;
	
	}
	
	/**
	* Vardų transformacija
	*
	* @param string $vardas lietuviškas vardas arba pavardė
	* @param string $linksnis sutrumpintas linksnio pavadinimas: kil, nau, gal, ina, vie, sau
	* @return string
	*/
	function getName ( $vardas, $linksnis = 'sau' ) {
	
		$vardai = explode( ' ', $this->sanitizeName($vardas) ) ;
		$vardaiL = array() ;
		foreach ( $vardai as $v ) {
			$vardaiL[] = $this->getLinksnis( $v, $linksnis ) ;
		}
		
		return count($vardaiL) ? implode(' ', $vardaiL) : $vardas ;
	
	}
	
	/**
	* Vardų sanitarija
	*
	* @param string $vardas lietuviškas vardas arba pavardė
	* @return string
	*/
	function sanitizeName ( $vardas ) {
	
		$vardas = mb_eregi_replace('[^a-ž]', ' ', $vardas) ;
		$vardas = mb_eregi_replace('\s+', ' ', $vardas) ;
		$vardas = trim($vardas) ;
		$vardas = mb_convert_case($vardas, MB_CASE_TITLE) ;
		
		return $vardas ;
	
	}
	

	/**
	* Vardas linksnyje
	*
	* @param string $vardas lietuviškas vardas arba pavardė
	* @param string $linksnis sutrumpintas linksnio pavadinimas: kil, nau, gal, ina, vie, sau
	* @return string
	*/
	function getLinksnis ( $vardas, $linksnis = 'sau' ) {
	
		$return = $vardas ;

		foreach ( $this->$linksnis as $from=>$to ) {
			if ( mb_substr( $return, -mb_strlen($from) ) == $from ) {
				$return = mb_substr( $return, 0, -mb_strlen($from) ) ;
				$return .= $to ;
				break ;
			}
		}
		
		return $return ;
		
	}
	
}

// testuojam
$l = new Linksniai ;
echo 'Laba diena, '.$l->getName('  antANAS bArAnAuskAS ---___') .'!' ;

?>