tags.
$tags_to_skip = "!<(/?)(?:pre|code|kbd|script)[\s>]!";
foreach ($tokens as $cur_token) {
if ($cur_token[0] == 'tag') {
$cur_token[1] = str_replace(array('*', '_'),
array($g_escape_table['*'], $g_escape_table['_']),
$cur_token[1]);
$text .= $cur_token[1];
} else {
$t = $cur_token[1];
if (! $in_pre) {
$t = _EncodeBackslashEscapes($t);
# $t =~ s{([a-z])/([a-z])}{$1 / $2}ig;
}
$text .= $t;
}
}
return $text;
}
function _DoAnchors($text) {
global $g_nested_brackets;
$text = preg_replace_callback("{
( # wrap whole match in $1
\\[
($g_nested_brackets) # link text = $2
\\]
[ ]? # one optional space
(?:\\n[ ]*)? # one optional newline followed by spaces
\\[
(.*?) # id = $3
\\]
)
}xs",
'_DoAnchors_reference_callback', $text);
$text = preg_replace_callback("{
( # wrap whole match in $1
\\[
($g_nested_brackets) # link text = $2
\\]
\\( # literal paren
[ \\t]*
(.+?) # href = $3
[ \\t]*
( # title = $4
(['\"]) # quote char = $5
.*?
\\5 # matching quote
)? # title is optional
\\)
)
}xs",
'_DoAnchors_inline_callback', $text);
return $text;
}
function _DoAnchors_reference_callback($matches) {
global $g_urls, $g_titles;
$result;
$whole_match = $matches[1];
$link_text = $matches[2];
$link_id = strtolower($matches[3]);
if ($link_id == "") {
$link_id = strtolower($link_text); # for shortcut links like [this][].
}
if (isset($g_urls[$link_id])) {
$url = $g_urls[$link_id];
$url = str_replace(array('*', '_'),
array('*', '_'), $url);
$result = "'._RunSpanGamut(_UnslashQuotes('\\1')).'\n\n'",
"''._RunSpanGamut(_UnslashQuotes('\\1')).'
\n\n'"),
$text);
$text = preg_replace("{
^(\\#{1,6}) # $1 = string of #'s
[ \\t]*
(.+?) # $2 = Header text
[ \\t]*
\\#* # optional closing #'s (not counted)
\\n+
}xme",
"''._RunSpanGamut(_UnslashQuotes('\\2')).' \n\n'",
$text);
return $text;
}
function _DoLists($text) {
global $g_tab_width;
$less_than_tab = $g_tab_width - 1;
$text = preg_replace_callback("{
(
(
^[ ]{0,$less_than_tab}
(\\*|\\d+[.])
[ \\t]+
)
(?s:.+?)
(
\\z
|
\\n{2,}
(?=\\S)
(?![ \\t]* (\\*|\\d+[.]) [ \\t]+)
)
)
}xm",
'_DoLists_callback', $text);
return $text;
}
function _DoLists_callback($matches) {
$list_type = ($matches[3] == "*") ? "ul" : "ol";
$list = $matches[1];
$list = preg_replace("/\n{2,}/", "\n\n\n", $list);
$result = _ProcessListItems($list);
$result = "<$list_type>\n" . $result . "\n";
return $result;
}
function _ProcessListItems($list_str) {
# trim trailing blank lines:
$list_str = preg_replace("/\n{2,}\\z/", "\n", $list_str);
$list_str = preg_replace_callback('{
(\n)? # leading line = $1
(^[ \t]*) # leading whitespace = $2
(\*|\d+[.]) [ \t]+ # list marker = $3
((?s:.+?) # list item text = $4
(\n{1,2}))
(?= \n* (\z | \2 (\*|\d+[.]) [ \t]+))
}xm',
'_ProcessListItems_callback', $list_str);
return $list_str;
}
function _ProcessListItems_callback($matches) {
$item = $matches[4];
$leading_line = $matches[1];
$leading_space = $matches[2];
if ($leading_line || preg_match('/\n{2,}/', $item)) {
$item = _RunBlockGamut(_Outdent($item));
#$item =~ s/\n+/\n/g;
}
else {
# Recursion for sub-lists:
$item = _DoLists(_Outdent($item));
$item = rtrim($item, "\n");
$item = _RunSpanGamut($item);
}
return "" . $item . " \n";
}
function _DoCodeBlocks($text) {
global $g_tab_width;
$text = preg_replace_callback("{
(.?) # $1 = preceding character
(:) # $2 = colon delimiter
(\\n+) # $3 = newlines after colon
( # $4 = the code block -- one or more lines, starting with a space/tab
(?:
(?:[ ]\{$g_tab_width} | \\t) # Lines must start with a tab or a tab-width of spaces
.*\\n+
)+
)
((?=^[ ]{0,$g_tab_width}\\S)|\\Z) # Lookahead for non-space at line-start, or end of doc
}xm",
'_DoCodeBlocks_callback', $text);
return $text;
}
function _DoCodeBlocks_callback($matches) {
$prevchar = $matches[1];
$newlines = $matches[2];
$codeblock = $matches[4];
$result; # return value
$prefix = "";
if (!(preg_match('/\s/', $prevchar) || ($prevchar == ""))) {
$prefix = "$prevchar:";
}
$codeblock = _EncodeCode(_Outdent($codeblock));
$codeblock = _Detab($codeblock);
# trim leading newlines and trailing whitespace
$codeblock = preg_replace(array('/\A\n+/', '/\s+\z/'), '', $codeblock);
$result = $prefix . "\n\n" . $codeblock . "\n
\n\n";
return $result;
}
function _DoCodeSpans($text) {
$text = preg_replace_callback("@
(`+) # Opening run of `
(.+?) # the code block
(?$c";
}
function _EncodeCode($_) {
global $g_escape_table;
# Encode all ampersands; HTML entities are not
# entities within a Markdown code span.
$_ = str_replace('&', '&', $_);
# Do the angle bracket song and dance:
$_ = str_replace(array('<', '>'),
array('<', '>'), $_);
# Now, escape characters that are magic in Markdown:
$_ = str_replace(array_keys($g_escape_table),
array_values($g_escape_table), $_);
return $_;
}
function _DoItalicsAndBold($text) {
# must go first:
$text = preg_replace('{ (\*\*|__) (?=\S) (.+?) (?<=\S) \1 }sx',
'\2', $text);
# Then :
$text = preg_replace('{ (\*|_) (?=\S) (.+?) (?<=\S) \1 }sx',
'\2', $text);
return $text;
}
function _DoBlockQuotes($text) {
$text = preg_replace_callback('/
( # Wrap whole match in $1
(
^[ \t]*>[ \t]? # ">" at the start of a line
.+\n # rest of the first line
(.+\n)* # subsequent consecutive lines
\n* # blanks
)+
)
/xm',
'_DoBlockQuotes_callback', $text);
return $text;
}
function _DoBlockQuotes_callback($matches) {
$bq = $matches[1];
$bq = preg_replace('/^[ \t]*>[ \t]?/m', '', $bq);
$bq = _RunBlockGamut($bq); # recurse
$bq = preg_replace('/^/m', "\t", $bq);
return "\n$bq\n\n\n"; } function _FormParagraphs($text) { global $g_html_blocks; # Strip leading and trailing lines: $text = preg_replace(array('/\A\n+/', '/\n+\z/'), '', $text); $grafs = preg_split('/\n{2,}/', $text); $count = count($graph); foreach ($grafs as $key => $value) { if (!isset( $g_html_blocks[$value] )) { $value = _RunSpanGamut($value); $value = preg_replace('/^([ \t]*)/', '
', $value); $value .= "
"; $grafs[$key] = $value; } } foreach ($grafs as $key => $value) { if (isset( $g_html_blocks[$value] )) { $grafs[$key] = $g_html_blocks[$value]; } } return implode("\n\n", $grafs); } function _EncodeAmpsAndAngles($text) { $text = preg_replace('/&(?!#?[xX]?(?:[0-9a-fA-F]+|\w{1,8});)/', '&', $text);; # Encode naked <'s $text = preg_replace('{<(?![a-z/?\$!])}i', '<', $text); return $text; } function _EncodeBackslashEscapes($text) { global $g_escape_table, $g_backslash_escape_table; # Must process escaped backslashes first. return str_replace(array_keys($g_backslash_escape_table), array_values($g_backslash_escape_table), $text); } function _DoAutoLinks($text) { $text = preg_replace("!<((https?|ftp):[^'\">\\s]+)>!", '\1', $text); # Email addresses: