<?php
/*
* Enano - an open-source CMS capable of wiki functions, Drupal-like sidebar blocks, and everything in between
* Copyright (C) 2006-2009 Dan Fuhry
*
* This program is Free Software; you can redistribute and/or modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2 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 details.
*/
class Carpenter_Parse_MediaWiki
{
public $rules = array(
'bold' => "/'''(.+?)'''/",
'italic' => "/''(.+?)''/",
'underline' => '/__(.+?)__/',
'externalwithtext' => '#\[((?:https?|irc|ftp)://[^ ]+?) (.+?)\]#',
'externalnotext' => '#\[((?:https?|irc|ftp)://[^ ]+?)\]#',
'mailtonotext' => '#\[mailto:([^ \]]+?)\]#',
'mailtowithtext' => '#\[mailto:([^ \]]+?) (.+?)\]#',
'hr' => '/^[-]{4,} *$/m',
'code' => '/^(?:<code>(?:\r?\n)?|<pre>)(.+?)(?:<\/pre>|(?:\r?\n)?<\/code>)$/mis'
);
private $blockquote_rand_id;
public function lang(&$text)
{
global $lang;
preg_match_all('/<lang (?:code|id)="([a-z0-9_-]+)">([\w\W]+?)<\/lang>/', $text, $langmatch);
foreach ( $langmatch[0] as $i => $match )
{
if ( $langmatch[1][$i] == $lang->lang_code )
{
$text = str_replace_once($match, $langmatch[2][$i], $text);
}
else
{
$text = str_replace_once($match, '', $text);
}
}
return array();
}
public function templates(&$text)
{
$template_regex = "/\{\{(.+)((\n|\|[ ]*([A-z0-9]+)[ ]*=[ ]*(.+))*)\}\}/isU";
$i = 0;
while ( preg_match($template_regex, $text, $match) )
{
$i++;
if ( $i == 5 )
break;
$text = RenderMan::include_templates($text);
}
return array();
}
public function heading(&$text)
{
if ( !preg_match_all('/^(={1,6}) *(.+?) *\\1 *$/m', $text, $results) )
return array();
$headings = array();
foreach ( $results[0] as $i => $match )
{
$headings[] = array(
'level' => strlen($results[1][$i]),
'text' => $results[2][$i]
);
}
$text = Carpenter::tokenize($text, $results[0]);
return $headings;
}
public function multilist(&$text)
{
// Match entire lists
$regex = '/^
([:#\*])+ # Initial list delimiter
[ ]*
.+?
(?:
\r?\n
(?:\\1|[ ]{2,})
[ ]*
.+?)*
$/mx';
if ( !preg_match_all($regex, $text, $lists) )
return array();
$types = array(
'*' => 'unordered',
'#' => 'ordered',
':' => 'indent'
);
$pieces = array();
foreach ( $lists[0] as $i => $list )
{
$token = $lists[1][$i];
$piece = array(
'type' => $types[$token],
'items' => array()
);
// convert windows newlines to unix
$list = str_replace("\r\n", "\n", $list);
$items_pre = explode("\n", $list);
$items = array();
// first pass, go through and combine items that are newlined
foreach ( $items_pre as $item )
{
if ( substr($item, 0, 1) == $token )
{
$items[] = $item;
}
else
{
// it's a continuation of the previous LI. Don't need to worry about
// undefined indices here since the regex should filter out all invalid
// markup. Just append this line to the previous.
$items[ count($items) - 1 ] .= "\n" . trim($item);
}
}
// second pass, separate items and tokens
unset($items_pre);
foreach ( $items as $item )
{
// get the depth
$itemtoken = preg_replace('/^([#:\*]+).*$/s', '$1', $item);
// get the text
$itemtext = trim(substr($item, strlen($itemtoken)));
$piece['items'][] = array(
// depth starts at 1
'depth' => strlen($itemtoken),
'text' => $itemtext
);
}
$pieces[] = $piece;
}
$text = Carpenter::tokenize($text, $lists[0]);
return $pieces;
}
public function blockquote(&$text)
{
$rand_id = hexencode(AESCrypt::randkey(16), '', '');
while ( preg_match_all('/^(?:(>+) *.+(?:\r?\n|$))+/m', $text, $quotes) )
{
foreach ( $quotes[0] as $quote )
{
$piece = trim(preg_replace('/^> */m', '', $quote));
$text = str_replace_once($quote, "{blockquote:$rand_id}\n$piece\n{/blockquote:$rand_id}\n", $text);
}
}
//die('<pre>' . htmlspecialchars($text) . '</pre>');
$this->blockquote_rand_id = $rand_id;
}
public function blockquotepost(&$text)
{
return $this->blockquote_rand_id;
}
public function paragraph(&$text)
{
// The trick with paragraphs is to not turn things into them when a block level element already wraps the block of text.
// First we need a list of block level elements (http://htmlhelp.com/reference/html40/block.html + some Enano extensions)
$blocklevel = 'address|blockquote|center|code|div|dl|fieldset|form|h1|h2|h3|h4|h5|h6|hr|li|ol|p|pre|table|ul|tr|td|th|tbody|thead|tfoot';
// Wrap all block level tags
RenderMan::tag_strip('_paragraph_bypass', $text, $_nw);
// Find all opening and closing tags
$regex = ";(
<
(?:
# closing tag
/(?:$blocklevel)
|
# opening or self-closing tag
(?:$blocklevel)
(?:[ ][^>]*?)?
/?
)
>
)
;xs";
// oh. and we're using this tokens thing because for identical matches, the first match will
// get wrapped X number of times instead of all matches getting wrapped once; replacing each
// with a unique token id remedies this
$tokens = array();
$rand_id = sha1(microtime() . mt_rand());
$tag_stack = array();
if ( $text_split = preg_split($regex, $text, -1, PREG_SPLIT_DELIM_CAPTURE) )
{
$text = '';
// go through the text, extract tag names, and push them to a stack.
foreach ( $text_split as $splitpart )
{
if ( preg_match(";^<(/)?($blocklevel)( ([^>]*?(/)?>)|(/)?>);i", $splitpart, $match) )
{
$tagname = $match[2];
if ( $match[1] == '/' )
{
// closing tag
if ( $tagname != ($top = array_pop($tag_stack)) )
{
// invalid - push back
array_push($tag_stack, $top);
}
else
{
// valid - if stack's at zero, add a </_paragraph_bypass>
if ( count($tag_stack) == 0 )
$splitpart .= '</_paragraph_bypass>';
}
}
else
{
// is it a self-closed tag?
// FIXME: This parser is VERY STRICT right now as far as XHTML compliance. <hr> will
// pretty much totally break it, because it will be treated as an opening tag.
// Yes, self closing tags work.
if ( (isset($match[5]) && $match[5] === '/') || (isset($match[6]) && $match[6] === '/') )
{
// yes
if ( count($tag_stack) == 0 )
$splitpart = "<_paragraph_bypass>$splitpart</_paragraph_bypass>";
}
else
{
// opening tag - push
array_push($tag_stack, $tagname);
if ( count($tag_stack) == 1 )
$splitpart = '<_paragraph_bypass>' . $splitpart;
}
}
}
$text .= $splitpart;
}
// echo '<pre>' . htmlspecialchars(print_r($text, true)) . '</pre>';
}
// All things that should be para-bypassed now are surrounded by _paragraph_bypass tags.
RenderMan::tag_unstrip('_paragraph_bypass', $text, $_nw, true);
// This is potentially a hack. It allows the parser to stick in <_paragraph_bypass> tags
// to prevent the paragraph parser from interfering with pretty HTML generated elsewhere.
RenderMan::tag_strip('_paragraph_bypass', $text, $_nw);
$startcond = "(?!(?:[\\r\\n]|\{_paragraph_bypass:[a-f0-9]{32}:[0-9]+\}|[ ]*<\/?(?:$blocklevel)(?: .+>|>)))";
$regex = "/^
$startcond # line start condition - do not match if the line starts with the condition above
.+? # body text
(?:
\\n # additional lines
$startcond # make sure of only one newline in a row, and end the paragraph if a new line fails the start condition
.*?
)* # keep going until it fails
$
/mx";
if ( !preg_match_all($regex, $text, $matches) )
{
RenderMan::tag_unstrip('_paragraph_bypass', $text, $_nw);
return array();
}
// Debugging :)
// die('<pre>' . htmlspecialchars($text) . "\n-----------------------------------------------------------\n" . htmlspecialchars(print_r($matches, true)) . '</pre>');
// restore stripped
RenderMan::tag_unstrip('_paragraph_bypass', $text, $_nw);
// tokenize
$text = Carpenter::tokenize($text, $matches[0]);
return $matches[0];
}
}
function parser_mediawiki_xhtml_image($text)
{
$text = RenderMan::process_image_tags($text, $taglist);
$text = RenderMan::process_imgtags_stage2($text, $taglist);
return $text;
}
function parser_mediawiki_xhtml_tables($text)
{
return process_tables($text);
}