\n";
$line = array();
$line_s = array();
$block = array();
break;
case 'p':
case 'end':
list($_html, $block) = _wiki_reduce_line($block, $line, $line_s);
$html .= $_html . "\n" . _wiki_reduce_block($block);
$line = array();
$line_s = array();
$block = array();
break;
case 'newline':
list($_html, $block) = _wiki_reduce_line($block, $line, $line_s);
$html .= $_html;
$line = array();
$line_s = array();
break;
case 'toc':
$html .= '';
$line = array();
$line_s = array();
$toc = true;
break;
case 'comment':
if ($i == 0)
{
// Comment at the start of a line or in a block
$html .= '';
}
else
{
// Comment in a line
list($line, $line_s) = _wiki_shift_reduce($line, $line_s, $tok, $tk_s[$i]);
}
break;
case 'word':
case ' ':
default:
list($line, $line_s) = _wiki_shift_reduce($line, $line_s, $tok, $tk_s[$i]);
break;
}
$i++;
}
while ($tok != 'end');
// Merge
's over more than one line
$html = preg_replace("|
\n
|", " \n", $html);
//PH: \-newline to "skip" newlining.
$html = preg_replace("|\\\\ |", "", $html);
if (!empty($options['target']) && $options['target'] == 'line')
{
// Strip the
tags... the user wants a single line.
$html = trim(preg_replace('||', ' ', $html));
}
else if ($toc)
{
$html = _wiki_toc($html);
}
return trim($html);
}
// Function: wiki_allow_html
// Access: EXTERNAL
// Parameters: -
// Returns: false no html allowed
// true html allowed
// Description: Check if the ACL allows html entry
//
function wiki_allow_html ( )
{
$allow = false;
if (isset($GLOBALS['any_acl']))
{
$allow = $GLOBALS['any_acl']->allowHtml();
}
return $allow;
}
// Function: wiki_filter_uri
// Access: EXTERNAL
// Parameters: $uri uri to be checked
// Returns: false when uri not allowed
// uri when allowed
// Description: Check if the ACL allows the given uri
//
function wiki_filter_uri ( $uri )
{
if (isset($GLOBALS['any_acl']))
{
$uri = $GLOBALS['any_acl']->filterUri($uri);
}
return $uri;
}
// Function: wiki_filter_attrs
// Access: EXTERNAL
// Parameters: $uri uri to be checked
// Returns: false when uri not allowed
// uri when allowed
// Description: Check if the ACL allows the given attrs.
// This function has a short whitelist of allowed attributes.
//
function wiki_filter_attrs ( $attr )
{
$as = array();
foreach ($attr as $a => $v)
{
switch ($a)
{
case 'id':
case 'name':
case 'align':
case 'valign':
case 'title':
case 'width':
case 'height':
case 'rel':
case 'alt':
case 'class':
case 'link':
case 'caption':
$as[$a] = $v;
break;
default:
if ( isset($GLOBALS['any_acl'])
&& $GLOBALS['any_acl']->allowHtml())
{
$as[$a] = $v;
}
break;
}
}
return $as;
}
// Function: _wiki_reduce_block
// Access: INTERNAL
// Parameters: $block the tokens in the block
// Returns: html fragment
// Description: Force the complete reduction of a block to html
//
function _wiki_reduce_block ( $block )
{
if (count($block) > 0)
{
list($html, $block) = _wiki_shift_reduce_block($block, array('end'), array(''));
}
else
{
$html = '';
}
return $html;
}
// Function: _wiki_shift_reduce_block
// Access: INTERNAL
// Parameters: $block the tokens in the block
// $line line tokens
// $line_s line strings
// Returns: array(html-fragment, block)
// Description: (Partially) reduces the block after encountering the given line
//
// Checks for:
// - enumerated lists
// - tables
// - blockquote
//
//
// Each block entry is as follows:
//
// ( class, depth, class-parms, line_tokens, line_strings )
//
// Where class is one of:
//
// table, ul, ol, blockquote, dl
//
// Depth is valid for:
//
// ul, ol, blockqoute
//
function _wiki_shift_reduce_block ( $block, $line, $line_s )
{
if (!empty($line))
{
if ($line[0] == '=' && @$line[1] == ' ')
{
$html = _wiki_reduce_block($block);
list($line, $line_s) = _wiki_merge($line, $line_s, 2, false, true);
$html .= "\n
\n";
}
}
$block = array();
}
else
{
$block[] = $block_line;
$html = '';
}
return array($html, $block);
}
// Function: _wiki_reduce_block_lines
// Access: INTERNAL
// Parameters: $block a complete block
// Returns: html
// Description: recursively reduces a block to html
// all line level reductions have been done
// what we get is a block of lines, each preparsed.
//
function _wiki_reduce_block_lines ( &$block )
{
if (empty($block))
{
return '';
}
$len = count($block);
$class = $block[0][0];
$depth = $block[0][1];
// Collect all lines with the same class and depth
$sub_block = array();
$sub_block[] = array_shift($block);
if ($class == 'ol')
{
$alt_class = 'ul';
}
else if ($class == 'ul')
{
$alt_class = 'ol';
}
else
{
$alt_class = false;
}
while ( !empty($block)
&& $block[0][1] >= $depth
&& ( $block[0][0] == $class
|| $block[0][0] == $alt_class))
{
if ($block[0][1] > $depth || $block[0][0] != $class)
{
// this is a nested block of the same kind
// reduce this one separately and remember the html in the previous block line
$html = _wiki_reduce_block_lines($block);
if (!empty($html))
{
$sub_block[count($sub_block)-1][5] = $html;
}
}
else
{
$sub_block[] = array_shift($block);
}
}
// special handling for a table
$td = 0;
if ($class == 'table')
{
foreach ($sub_block as $sub)
{
$td = max($td, $sub[2]);
}
}
// generate the html for the captured block
$html = "<$class>\n";
$nr = 0;
foreach ($sub_block as $sub)
{
$pars = $sub[2];
$line = $sub[3];
$line_s = $sub[4];
$nested = isset($sub[5]) ? $sub[5] : '';
$nr++;
switch ($class)
{
case 'ol':
case 'ul':
list($line, $line_s) = _wiki_merge($line, $line_s, 2, false, true);
$html .= '
' . trim($line_s[2]) . $nested . "
\n";
break;
case 'table':
// Generate a row
$html .= _wiki_table_row($td, $line, $line_s, $pars);
break;
case 'blockquote':
if ($nr == 1)
{
$html .= '
\n";
}
break;
case 'dl':
// $pars is the offset of the first ' ' of the ' : ' separating the dt from the dd
list($line, $line_s) = _wiki_merge($line, $line_s, $pars+3, false, true);
// the reduced html of the dd
$dd = array_pop($line_s);
array_pop($line);
// op the ' ' ':' ' ';
array_pop($line_s);
array_pop($line);
array_pop($line_s);
array_pop($line);
array_pop($line_s);
array_pop($line);
// Reduce the dt part
list($line, $line_s) = _wiki_merge($line, $line_s, 2, false, true);
$dt = array_pop($line_s);
$html .= "
$dt
\n
$dd
\n";
break;
}
}
$html .= "\n\n";
return $html;
}
// Function: _wiki_table_row
// Access: INTERNAL
// Parameters: $table_cols nr of tds
// $line tokens in line
// $line_s text of tokens
// Returns: html for row
// Description: generates the html for a row
//
function _wiki_table_row ( $table_cols, $line, $line_s )
{
$html = "";
$len = count($line);
$td = array();
$start = 1;
$colspan= 1;
// Split the line in tds
for ($i=1;$i<$len;$i++)
{
if ($line[$i] == '||')
{
if ($line[$i-1] == '||' && $i+1 < $len)
{
$colspan++;
$start++;
}
else
{
// A td from $start to $i-1
if ($i - $start > 0)
{
$td[] = array( array_slice($line, $start, $i - $start),
array_slice($line_s, $start, $i - $start),
$colspan);
}
else
{
$td[] = array(false, false, $colspan);
}
$start = $i+1;
$colspan = 1;
}
}
}
// Generate the html per td
foreach ($td as $t)
{
$line = $t[0];
$line_s = $t[1];
if ($t[2] > 1)
{
$colspan = ' colspan="' . $t[2] . '" ';
}
else
{
$colspan = '';
}
if (!empty($line))
{
$end = "";
switch ($line[0])
{
case '>':
$html .= "\n ";
$start = 1;
break;
case '<':
$html .= "\n ";
$start = 1;
break;
case '=':
$html .= "\n ";
$start = 1;
break;
case '~':
$html .= "\n ";
$end = "";
$start = 1;
break;
default:
$html .= "\n ";
$start = 0;
break;
}
list($line, $line_s) = _wiki_merge($line, $line_s, $start, false, true);
$html .= trim($line_s[$start]) . $end;
}
else
{
$html .= "\n ";
}
}
$html .= "\n\n";
return $html;
}
// Function: _wiki_block_line
// Access: INTERNAL
// Parameters: $line line tokens
// $line_s line strings
// Returns: a block line entry
// Description: checks the line to see what kind of block line the line is
//
function _wiki_block_line ( $line, $line_s )
{
$len = count($line);
if ($len >= 2)
{
// : term : definition
if ( $line[0] == ':'
&& $line[1] == ' ')
{
// Try to find (' ', ':' , ' ');
$i = 2;
$offs = false;
while ($i < $len - 2 && $offs === false)
{
if ($line[$i] == ':' && $line[$i-1] == ' ' && $line[$i+1] == ' ')
{
$offs = $i-1;
}
$i++;
}
if ($offs !== false)
{
return array('dl', 0, $offs, $line, $line_s);
}
}
// || td || .. ||
if ($line[0] == '||' && $line[$len-1] == '||')
{
// count the number of cols
$cols = 0;
for ($i = 0; $i<$len; $i++)
{
if ($line[$i] == '||')
{
$cols++;
}
}
return array('table', 0, $cols-1, $line, $line_s);
}
// > block quoted text
if ($line[0] == '>' && $line[1] == ' ')
{
return array('blockquote', strlen($line_s[0]), 0, $line, $line_s);
}
// * unordered list
if ($line[0] == '*' && $line[1] == ' ')
{
return array('ul', 0, 0, $line, $line_s);
}
if ($line[0] == ' ' && $line[1] == '*' && $line[2] == ' ')
{
return array('ul', strlen($line_s[0]), 0, $line, $line_s);
}
// # ordered list
if ($line[0] == '#' && $line[1] == ' ')
{
return array('ol', 0, 0, $line, $line_s);
}
if ($line[0] == ' ' && $line[1] == '#' && $len > 2 && $line[2] == ' ')
{
return array('ol', strlen($line_s[0]), 0, $line, $line_s);
}
}
// Just another part of a paragraph
if ($len > 0 && $line[0] == 'end')
{
return array('end', 0, 0, $line, $line_s);
}
else
{
return array('p', 0, 0, $line, $line_s);
}
}
// Function: _wiki_reduce_line
// Access: INTERNAL
// Parameters: $block the tokens in the block
// $line the line stack
// $line_s line texts
// Returns: html fragment
// modified block
// Description: Reduce the current line and append it to the current block.
// The reduction of a single line checks for:
// - non reduced :// or mailto: urls
// - non reduced wiki words
// - headers
// - blockquote levels
// - enumerated lists
// - table rows
//
function _wiki_reduce_line ( $block, $line, $line_s )
{
// wiki words
list($line, $line_s) = _wiki_replace_wikiwords($line, $line_s);
if (count($line) == 1 && $line[0] == '-' && (strlen($line_s[0]) == 4 || strlen($line_s[0]) == 3))
{
// horiz \n----\n
$html = _wiki_reduce_block($block);
return array($html . "\n\n", array());
}
if (count($line) > 2 && $line[0] == '+' && $line[1] == ' ' && strlen($line_s[0]) <= 6)
{
// \n+++++ headline 1..6
list($line, $line_s) = _wiki_merge($line, $line_s, 2, false, true);
$html = _wiki_reduce_block($block);
$level = strlen($line_s[0]);
$html .= "\n".trim($line_s[2])."\n";
return array($html, array());
}
return _wiki_shift_reduce_block($block, $line, $line_s);
}
// Function: _wiki_shift_reduce
// Access: INTERNAL
// Parameters: $line
// $line_s
// $tok
// $tok_s
// Returns: the new line state
// Description: Shifts the given token on the stack and reduces the stack
// returning a new line state.
//
function _wiki_shift_reduce ( $line, $line_s, $tok, $tok_s )
{
switch ($tok)
{
case "u":
// "__"
$offs = _wiki_offset($line, _wiki_inline_start($tok));
if ($offs !== false)
{
list($line, $line_s) = _wiki_merge($line, $line_s, $offs+1, false, true);
array_pop($line);
$text = array_pop($line_s);
array_pop($line);
array_pop($line_s);
$line[] = 'html';
$line_s[] = _wiki_inline_html($tok, $text);
}
else
{
$line[] = $tok;
$line_s[] = $tok_s;
}
break;
case "em":
case "strong":
case "sup":
case '}}':
// "//" or "**" or "^^" or {{ }}
$offs = _wiki_offset($line, _wiki_inline_start($tok));
if ($offs !== false)
{
list($line, $line_s) = _wiki_merge($line, $line_s, $offs+1, false, true);
array_pop($line);
$text = array_pop($line_s);
array_pop($line);
array_pop($line_s);
$line[] = 'html';
$line_s[] = _wiki_inline_html($tok, $text);
}
else
{
$line[] = $tok;
$line_s[] = $tok_s;
}
break;
case '@@':
// @@---minus+++revision@@
$offs = _wiki_offset($line, '@@');
if ($offs !== false)
{
list($line, $line_s) = _wiki_reduce_revise($line, $line_s, $offs);
}
else
{
$line[] = $tok;
$line_s[] = $tok_s;
}
break;
case '##':
// ##color|text##
$offs = _wiki_offset($line, '##');
if ($offs !== false)
{
list($line, $line_s) = _wiki_reduce_colortext($line, $line_s, $offs);
}
else
{
$line[] = $tok;
$line_s[] = $tok_s;
}
break;
case ']':
// [uri descr]
$offs = _wiki_offset($line, '[');
if ($offs !== false)
{
list($line, $line_s) = _wiki_reduce_link($line, $line_s, $offs);
}
else
{
$line[] = $tok;
$line_s[] = $tok_s;
}
break;
case ']]':
// [[# anchor-name]]
// [[image image-pars]]
// [[image:image-pars]]
$offs = _wiki_offset($line, '[[');
if ($offs !== false && $line[$offs+1] == '#')
{
list($line, $line_s) = _wiki_reduce_anchor($line, $line_s, $offs);
}
else if ($offs !== false && $line[$offs+1] == 'word' && $line_s[$offs+1] == 'image')
{
list($line, $line_s) = _wiki_reduce_image($line, $line_s, $offs);
}
else #MediaWiki-style link
{
list($line, $line_s) = _wiki_reduce_freelink($line, $line_s, $offs);
}
# else
# {
# $line[] = $tok;
# $line_s[] = $tok_s;
# }
break;
case '))':
// ((name|descr))
$offs = _wiki_offset($line, '((');
if ($offs !== false)
{
list($line, $line_s) = _wiki_reduce_freelink($line, $line_s, $offs);
}
else
{
$line[] = $tok;
$line_s[] = $tok_s;
}
break;
case 'comment':
$line[] = 'html';
$line_s[] = '';
break;
default:
$line[] = $tok;
$line_s[] = $tok_s;
break;
}
return array($line, $line_s);
}
// helper for @@--- +++ @@ revision patterns
function _wiki_reduce_revise ( $line, $line_s, $offs )
{
// @@---minus+++revision@@
$len = count($line_s);
$offs = _wiki_offset($line, '@@');
if ( $offs !== false
&& $offs < $len-1
&& ($line_s[$offs+1] == '---' || $line_s[$offs+1] == '+++'))
{
if ($line_s[$offs+1] === '---')
{
$offs_del = $offs+1;
$offs_ins = $offs+2;
// Try to find the '+++'
while ($offs_ins < $len && $line_s[$offs_ins] != '+++')
{
$offs_ins++;
}
}
else
{
$offs_del = false;
$offs_ins = $offs+1;
}
if ($offs_ins < $len)
{
list($line, $line_s) = _wiki_merge($line, $line_s, $offs_ins+1, false, true);
array_pop($line);
$ins = array_pop($line_s);
// Remove the '+++'
array_pop($line);
array_pop($line_s);
}
else
{
$ins = false;
}
if ($offs_del !== false)
{
list($line, $line_s) = _wiki_merge($line, $line_s, $offs_del+1, false, true);
array_pop($line);
$del = array_pop($line_s);
// Remove the '---'
array_pop($line);
array_pop($line_s);
}
else
{
$del = false;
}
// Remove the '@@';
array_pop($line);
array_pop($line_s);
if (!empty($del))
{
$line[] = 'html';
$line_s[] = _wiki_inline_html('del', $del);
}
if (!empty($ins))
{
$line[] = 'html';
$line_s[] = _wiki_inline_html('ins', $ins);
}
}
return array($line, $line_s);
}
// helper for [[# anchor-name]]
function _wiki_reduce_anchor ( $line, $line_s, $offs )
{
// fetch the anchor name
list($line, $line_s) = _wiki_merge($line, $line_s, $offs+2, -1, false, false);
// pop the name
array_pop($line);
$name = array_pop($line_s);
// pop the #
array_pop($line);
array_pop($line_s);
$line[$offs] = 'html';
$line_s[$offs] = '';
return array($line, $line_s);
}
// helper for [[image path/to/image image-pars]]
function _wiki_reduce_image ( $line, $line_s, $offs )
{
// fetch the complete text
list($line, $line_s) = _wiki_merge($line, $line_s, $offs+2, -1, false, false);
// pop the image path and parameters
array_pop($line);
$text = trim(array_pop($line_s));
// pop 'image'
array_pop($line);
array_pop($line_s);
//PH: "image:..." syntax
if ($text[0] == ':') {
$text = substr($text,1);
}
// Extract the interesting parts from the image description
$pos = strpos($text, ' ');
if ($pos === false)
{
$src = $text;
$attr = array();
}
else
{
$src = substr($text, 0, $pos);
$attr = _wiki_get_attrs(substr($text, $pos+1));
}
// Remove double quotes around the uri, some people do type them...
if (strlen($src) >= 2 && $src{0} == '"' && $src{strlen($src)-1} == '"')
{
$src = substr($src, 1, -1);
}
// We have to postpone the image generation till 'showtime' because an image
// typically refers to data that is dynamic. So we just pack the image data
// in a special tag and do an expand in smarty.
if ( ( strpos($src, '://') !== false
|| strpos($src, '/') !== false
|| preg_match('/^[a-zA-Z0-9_]+\.[a-z]{3}$/', $src))
&& ( empty($attr['link'])
|| ( strpos($attr['link'], '://') !== false
&& strncasecmp($attr['link'], 'popup:', 6) != 0)))
{
if (!empty($attr['link']))
{
// Remove double quotes around the uri, some people do type them...
$link = $attr['link'];
if (strlen($link) >= 2 && $link{0} == '"' && $link{strlen($link)-1} == '"')
{
$link = substr($link, 1, -1);
}
$pre = '';
$post = '';
unset($attr['link']);
}
else
{
$pre = '';
$post = '';
}
$html = $pre . '$value)
{
$html .= htmlspecialchars($label) . '="' . htmlspecialchars($value) .'" ';
}
$html .= '/>' . $post;
}
else
{
// Pack the attributes so that we can easily expand them again.
$html = '';
}
$line[$offs] = 'html';
$line_s[$offs] = $html;
return array($line, $line_s);
}
// helper for ##color| ## colored text
function _wiki_reduce_colortext ( $line, $line_s, $offs )
{
// Check for the optional description
$space = _wiki_after($line, '|', $offs);
if ($space != false)
{
// Fetch description of link
list($line, $line_s) = _wiki_merge($line, $line_s, $space+1, -1, true);
array_pop($line);
$text = trim(array_pop($line_s));
array_pop($line);
array_pop($line_s);
}
else
{
$text = false;
}
// Merge all tokens for the color
list($line, $line_s) = _wiki_merge($line, $line_s, $offs+1, -1, false);
array_pop($line);
$color = trim(array_pop($line_s));
if ( (strlen($color) == 3 || strlen($color) === 6)
&& preg_match('/^[0-9a-fA-F]+$/', $color))
{
$color = '#' . $color;
}
// pop the opening '##'
array_pop($line);
array_pop($line_s);
// Create the span
if (!empty($text))
{
$line[] = 'html';
$line_s[] = "$text";
}
return array($line, $line_s);
}
// helper for [uri descr]
function _wiki_reduce_link ( $line, $line_s, $offs )
{
// Keep a copy of line/line_s in case we don't find an uri
$line0 = $line;
$line_s0 = $line_s;
// Check for the optional description
$space = _wiki_after($line, ' ', $offs);
if ($space != false)
{
// Fetch description of link
list($line, $line_s) = _wiki_merge($line, $line_s, $space, -1, false);
array_pop($line);
$descr = trim(array_pop($line_s));
// Try to fetch any optional attributes
list($descr, $attrs) = _wiki_split_descr_attrs($descr);
}
else
{
$descr = false;
$attrs = false;
}
// Merge all tokens for the uri
list($line, $line_s) = _wiki_merge($line, $line_s, $offs+1, -1, false, false);
array_pop($line);
$uri = array_pop($line_s);
// only accept this construct when the uri looks like an uri
$colon = strpos($uri, ':');
$dot = strpos($uri, '.');
$last = strlen($uri) - 1;
if ( strpos($uri, '/') !== false
|| strpos($uri, '#') !== false
|| ($dot !== false && $dot < $last)
|| ($colon > 0 && $colon < $last))
{
// pop the opening '['
array_pop($line);
array_pop($line_s);
// Create the link
if (empty($descr))
{
// Footnote
$html = '' . _wiki_make_link($uri, '*', '', $attrs) .'';
}
else
{
// Described link
$html = _wiki_make_link($uri, $descr, '', $attrs);
}
$line[] = 'html';
$line_s[] = $html;
}
else
{
// No uri found, do not reduce the found [uri descr] construct
$line = $line0;
$line_s = $line_s0;
$line[] = ']';
$line_s[] = ']';
}
return array($line, $line_s);
}
// helper for ((uri|descr))
function _wiki_reduce_freelink ( $line, $line_s, $offs )
{
// Check for the optional description
$anchor = false;
$pipe = _wiki_after($line, '|', $offs);
if ($pipe != false)
{
$hash = _wiki_after($line, '#', $pipe, true);
if ($hash !== false)
{
list($line, $line_s) = _wiki_merge($line, $line_s, $hash+1, -1, false, false);
array_pop($line);
$anchor = '#' . trim(array_pop($line_s));
array_pop($line);
array_pop($line_s);
}
// Fetch description of link
list($line, $line_s) = _wiki_merge($line, $line_s, $pipe+1, -1, false);
array_pop($line);
$descr = trim(array_pop($line_s));
list($descr, $attrs) = _wiki_split_descr_attrs($descr);
array_pop($line);
array_pop($line_s);
}
else
{
$descr = false;
$attrs = false;
}
// Merge all tokens for the uri (we will need unescaped text for this one)
list($line, $line_s) = _wiki_merge($line, $line_s, $offs+1, -1, false, false);
array_pop($line);
$uri = array_pop($line_s);
// pop the opening '['
array_pop($line);
array_pop($line_s);
// Create the link
$line[] = 'html';
$line_s[] = _wiki_make_link($uri, $descr, $anchor, $attrs);
return array($line, $line_s);
}
// Function: _wiki_offset
// Access: INTERNAL
// Parameters: $stack stack with tokens
// $tok try to find this token
// $start (optional) look below this offset
// Returns: offset in stack
// false when not found
// Description: try to locate the token the stack in the stack,
// starting to search on top
//
function _wiki_offset ( $stack, $tok, $start = false )
{
if ($start === false)
{
$start = count($stack) - 1;
}
else
{
$start--;
}
// Don't scan through tds...
while ( $start >= 0
&& $stack[$start] != $tok
&& ($tok == '||' || $stack[$start] != '||'))
{
$start--;
}
if ($start < 0 || $stack[$start] != $tok)
{
$start = false;
}
return $start;
}
// Function: _wiki_after
// Access: INTERNAL
// Parameters: $line list of tokens
// $tok token to find
// $offs offset to start above
// $space (optional) set to false to disallow whitespace
// Returns: false when not found
// offset otherwise
// Description: find the given token _after_ the given offset
//
function _wiki_after ( $line, $tok, $offset, $space = true )
{
$ct = count($line);
while ( $offset < $ct && $line[$offset] != $tok
&& ($space || $line[$offset] != ' '))
{
$offset ++;
}
if ($offset == $ct || $line[$offset] != $tok)
{
return false;
}
else
{
return $offset;
}
}
// Function: _wiki_merge
// Access: INTERNAL
// Parameters: $stack the token stack
// $stack_s the texts of the stack
// $depth the offset to start the merge
// $count number of tokens to merge (-1 for all)
// $replace do some wikiword on uri replacements
// $escape (optional) set to false to not escape html specialchars
// Returns: modified token stack
// Description: merges the given entries into one textual entry
// literal and word entries will be escaped with htmlspecialchars.
//
function _wiki_merge ( $stack, $stack_s, $offset, $count, $replace, $escape = true )
{
if ($count <= 0)
{
$len = count($stack);
}
else
{
$len = min(count($stack), $offset+$count);
}
$text = '';
for ($i=$offset; $i<$len; $i++)
{
if ($replace && $stack[$i] == 'wiki-word')
{
$text .= _wiki_make_link($stack_s[$i],'');
}
else if ($stack[$i] == 'html')
{
$text .= $stack_s[$i];
}
else if ($stack[$i] == 'literal')
{
$text .= '' . htmlspecialchars($stack_s[$i]) . '';
}
else if ($replace && $stack[$i] == 'url')
{
@list($protocol, $address) = explode('://', $stack_s[$i]);
$text .= '' . htmlspecialchars($address) . "";
}
else if ($replace && $stack[$i] == 'mailto')
{
// Add a marker to the mailto so that we can rebuild the wiki text
$text .= ''
. substr(htmlspecialchars($stack_s[$i]), 7)
. '';
}
else if ($escape)
{
$text .= htmlspecialchars($stack_s[$i]);
}
else
{
$text .= $stack_s[$i];
}
}
if ($len == count($stack))
{
array_splice($stack, $offset);
array_splice($stack_s, $offset);
}
else
{
array_splice($stack, $offset, $count);
array_splice($stack_s, $offset, $count);
}
if ($escape)
{
$stack[] = 'html';
}
else
{
$stack[] = 'text';
}
$stack_s[] = $text;
return array($stack, $stack_s);
}
// Function: _wiki_make_link
// Access: INTERNAL
// Parameters: $uri url, not escaped
// $descr description, escaped
// $anchor optional anchor ('#anchor')
// $attrs attributes ( attr="value" )
// Returns: complete anchor tag
// Description: creates the anchor tag for the given uri and descr.
// when descr is empty then the anchor tag is generated from the uri.
//
function _wiki_make_link ( $uri, $descr, $anchor = '', $attrs = array() )
{
$uri = trim($uri);
if (!empty($descr))
{
$descr = trim($descr);
}
// Remove double quotes around the uri, some people do type them...
if (strlen($uri) >= 2 && $uri{0} == '"' && $uri{strlen($uri)-1} == '"')
{
$uri = substr($uri, 1, -1);
}
$pre = '';
$post = '';
if (!empty($attrs))
{
$attrs = ' ' . implode(' ', $attrs);
}
else
{
$attrs = '';
}
// 1. Check if the uri is a complete one
if (strncasecmp($uri, 'mailto:', 7) == 0)
{
// Add a marker to the mailto so that we can rebuild the wiki text
$descr = trim($descr);
if (!empty($descr))
{
$descr = ' '.$descr;
}
$text = ''
. htmlspecialchars(substr($uri, 7)) . htmlspecialchars($descr)
. '';
// Bail out!
return $text;
}
else if ( strpos($uri, '/') === false
&& !preg_match('/^[a-zA-Z0-9_\-]+\.[a-zA-Z]{2,4}/', $uri)
&& strncasecmp($uri, 'javascript:', 11) != 0)
{
// assume symbolic name
if (empty($descr))
{
// Bail Out: Make special runtime tag, we will need the title of the thing we are linking to...
$pre = '';
$post = '';
$descr = htmlspecialchars($uri);
}
if (!empty($uri))
{
$uri = "id.php/" . str_replace(' ', '%20', $uri);
}
else if (empty($anchor))
{
$anchor = '#';
}
}
else if ( !empty($uri)
&& strpos($uri, '://') === false
&& strncasecmp($uri, 'javascript:', 11) != 0
&& preg_match('/^[a-z]+(\.[a-z]+)(\.[a-z]+)+(\/.*)?$/', $uri))
{
// Make sure we have a protocol for our link, better for tags
$uri = 'http://' . $uri;
}
// 2. Extract a description when we don't have one
if (empty($descr) && strpos($uri, '://') !== false)
{
list($protocol, $col, $descr) = explode('://', $uri);
}
if (empty($descr))
{
$descr = $uri;
}
if (isset($GLOBALS['any_acl']))
{
$uri = $GLOBALS['any_acl']->filterUri($uri);
}
return $pre . '' . $descr . '' . $post;
}
// Function: _wiki_inline_start
// Access: INTERNAL
// Parameters: $descr
// Returns: list($descr, $attrs)
// Description: splits any attr="value" attributes from the given description
// returns the descr and the list of attributes
//
function _wiki_split_descr_attrs ( $descr )
{
global $_attrs;
$_attrs = array();
$descr = preg_replace_callback('/\s([a-zA-Z]+)=("|")(.*?)("|")/', '_wiki_collect_attr', ' ' . $descr);
return array(trim($descr), $_attrs);
}
// Helper function to collect all attributes from the descr
function _wiki_collect_attr ( $match )
{
global $_attrs;
global $any_acl;
if ( $match[1] == 'target'
|| $match[1] == 'class'
|| $any_acl->allowHtml())
{
$_attrs[] = $match[1] . '="' . $match[3] . '"';
return '';
}
else
{
return $match[0];
}
}
// Function: _wiki_inline_start
// Access: INTERNAL
// Parameters: $tok
// Returns: start token for $tok
// Description: returns the start token belonging to the inline token $tok
//
function _wiki_inline_start ( $tok )
{
switch ($tok)
{
case '}}':
return '{{';
default:
break;
}
return $tok;
}
// Function: _wiki_inline_html
// Access: INTERNAL
// Parameters: $tok
// $text
// Returns: html for text
// Description: surrounds text with the correct html tags for $tok
//
function _wiki_inline_html ( $tok, $text )
{
switch ($tok)
{
case '}}':
$tag = 'tt';
break;
default:
$tag = $tok;
break;
}
return "<$tag>$text";
}
// Function: _wiki_replace_wikiwords
// Access: INTERNAL
// Parameters: $line
// $line_s
// $offset (optional) start scanning at offset
// $end (optional) stop at offset
// Returns: (line, line_s)
// Description: scans the line for WikiWords, when found then replaces them
// with HTML fragments for freelinks.
//
function _wiki_replace_wikiwords( $line, $line_s, $offset = 0, $end = false )
{
if ($end === false)
{
$end = count($line);
}
for ($i = $offset; $i< $end; $i++)
{
if ($line[$i] == 'wiki-word')
{
$line[$i] = 'html';
$line_s[$i] = _wiki_make_link($line_s[$i], '');
}
}
return array($line, $line_s);
}
// Function: _wiki_get_attrs
// Access: INTERNAL
// Parameters: $text the text containing 'attr="value"' pairs
// Returns: array with attr=>value pairs
// Description: parses the attributes of a tag
//
function _wiki_get_attrs ( $text )
{
$parts = explode('="', trim($text));
$last = count($parts) - 1;
$attrs = array();
$key = false;
foreach ($parts as $i => $val)
{
if ($i == 0)
{
$key = trim($val);
}
else
{
$pos = strrpos($val, '"');
$attrs[$key] = stripslashes(substr($val, 0, $pos));
$key = trim(substr($val, $pos+1));
}
}
return $attrs;
}
// Function: _wiki_toc
// Access: INTERNAL
// Parameters: $html html with a toc marker
// Returns: html with a table of contents
// Description: Inserts a table of contents into the html
//
function _wiki_toc ( $html )
{
global $toc_nr;
global $toc_base;
global $toc;
$pos = strpos($html, '');
if ($pos !== false)
{
$toc_base = abs(crc32(microtime(true).'-'.rand(0,100)));
$toc_nr = 0;
// 1. Find all tags for insertion in the table of contents, no h1 tags are inserted
$html = preg_replace_callback('|()(.*)()|U', '_wiki_toc_accum', $html);
// 2. Create the table of contents at the place of the toc tag
$s = "\n