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: