<?php
// must be run within DokuWiki
if(!defined('DOKU_INC')) die();

if(!defined('DOKU_PLUGIN')) define('DOKU_PLUGIN',DOKU_INC.'lib/plugins/');
require_once DOKU_PLUGIN.'syntax.php';

/**
 * All DokuWiki plugins to extend the parser/rendering mechanism
 * need to inherit from this class
 */
class syntax_plugin_alphalist extends DokuWiki_Syntax_Plugin {

    function getPType(){
       return 'block';
    }

    function getType() { return 'substition'; }
    function getSort() { return 32; }


    function connectTo($mode) {
	$this->Lexer->addSpecialPattern('\[alphalist.*?\]',$mode,'plugin_alphalist');
    }

    function handle($match, $state, $pos, Doku_Handler $handler)
    {
	global $ID;

	dbglog($match, 'alphalist syntax $match');

	$alphalist =& plugin_load('helper', 'alphalist');

	//remove [alphalist 
	$match = substr($match, 10);
	//remove ]
	$match = substr($match, 0, -1);

	$match = trim($match);

	dbglog($match, 'alphalist syntax $match after processing');

	$pages = array();

	// [alphalist] sytax
	if(empty($match))
	{
	    $pages[0][] = '';
	    $pages[1][] = '';
	} else
	{

	    preg_match_all('/([a-zA-Z0-9:_\-]*)(?:\{([^\}]+)\})?/', $match, $matches);


	    //remove empty matches
	    $k=0;
	    for($i=0;$i<count($matches[0]);$i++)
	    {
		if(!empty($matches[0][$i]))
		{
		    for($j=1;$j<count($matches);$j++)
		    {
			$pages[$j-1][$k] = $matches[$j][$i];
		    }
		    $k++;
		}
	    }
	}

	dbglog($pages, 'alphalist syntax $pages');
	

	$list = array();
	for($i=0;$i<count($pages[0]);$i++)
	{
	    if(empty($pages[0][$i]))
		$page = $ID;
	    else
		$page = $pages[0][$i];

	    //Get section
	    $section = $pages[1][$i];

	    $file = wikiFN($page);
	    if(file_exists($file))
	    {
		$content = file($file);
		if($section == false)
		{
		    foreach($content as $row)
		    {
			if(preg_match('/^  (\-|\*)(.*)/', $row, $match))
			{
			    $list[$alphalist->plain($match[2])] = $match[2];
			}
		    }
		} else
		{
		    //0 - waiting for header 1 - in header 
		    $state = 0;
		    foreach($content as $row)
		    {
			if($state == 0)
			{
			    if(strstr($row, $section))
				$state++;
			} else
			{
			    if(preg_match('/==.*?==/', $row))
				break;

			    if(preg_match('/^  (\-|\*)(.*)/', $row, $match))
			    {
				$list[$alphalist->plain($match[2])] = $match[2];
			    }
			}
		    }
		}
	    }
	}
	dbglog($pages, 'alphalist syntax $list');
	return $list;
    }

    function render($mode, Doku_Renderer $renderer, $data) {
	setlocale(LC_COLLATE, $this->getConf('locale'));
        if($mode == 'xhtml') {

	    $alphalist =& plugin_load('helper', 'alphalist');

	    if(count($data) > 0)
	    {
		ksort($data, SORT_LOCALE_STRING);

		$list_cont = '';

		$first_letter = '';
		$letter_change = false;

		foreach($data as $k => $v)
		{
		    $f_letter = mb_substr($k, 0, 1);
		    if($f_letter != $first_letter)
		    {
			$letter_change = true;
			$first_letter = $f_letter;
		    }
		    if($letter_change == true)
		    {
			$list_cont .= '==='.$first_letter."===\n";
			$letter_change = false;
		    }
		    $list_cont .= '  - '.$v."\n";
		}
		$renderer->doc .= $alphalist->parse($list_cont);
	    }

	    return true;
        }
        return false;
    }
}