', '<',
"/]*)(\\s)class=(['\"])([^>]*?)\\4)?/",
"[=',
'/\\$\\[(?>([^\\]]+))\\]/', "NoCache(XL(\$m[1]))");
# {$var} substitutions
Markup_e('{$var}', '>$[phrase]',
'/\\{(\\*|!?[-\\w.\\/\\x80-\\xff]*)(\\$:?\\w[-\\w]*)\\}/',
"PRR(PVSE(PageVar(\$pagename, \$m[2], \$m[1])))");
# invisible (:textvar:...:) definition
Markup('textvar:', '([A-Za-z0-9]+|#\\d+|#[xX][A-Fa-f0-9]+));/',
'&$1;');
Markup('&', '<&', '/&/', Keep('&'));
## (:if:)/(:elseif:)/(:else:)
SDV($CondTextPattern,
"/ \\(:if (\d*) (?:end)? \\b[^\n]*?:\\)
.*?
(?: \\(: (?:if\\1|if\\1end) \\s* :\\)
| (?=\\(:(?:if\\1|if\\1end)\\b[^\n]*?:\\) | $)
)
/six");
SDV($CondTextReplacement, "CondText2(\$pagename, \$m[0], \$m[1])");
Markup_e('if', 'fulltext', $CondTextPattern, $CondTextReplacement);
function CondText2($pagename, $text, $code = '') {
global $Conditions, $CondTextPattern, $CondTextReplacement;
$if = "if$code";
$repl = str_replace('$pagename', "'$pagename'", $CondTextReplacement);
$parts = preg_split("/\\(:(?:{$if}end|$if|else *$if|else$code)\\b\\s*(.*?)\\s*:\\)/",
$text, -1, PREG_SPLIT_DELIM_CAPTURE);
$x = array_shift($parts);
while ($parts) {
list($condspec, $condtext) = array_splice($parts, 0, 2);
if (!preg_match("/^\\s*(!?)\\s*(\\S*)\\s*(.*?)\\s*$/", $condspec, $match)) continue;
list($x, $not, $condname, $condparm) = $match;
if (!isset($Conditions[$condname]))
return PPRE($CondTextPattern, $repl, $condtext);
$tf = @eval("return ({$Conditions[$condname]});");
if ($tf xor $not)
return PPRE($CondTextPattern, $repl, $condtext);
}
return '';
}
## (:include:)
Markup_e('include', '>if',
'/\\(:include\\s+(\\S.*?):\\)/i',
"PRR(IncludeText(\$pagename, \$m[1]))");
## (:redirect:)
Markup_e('redirect', 'include',
'/\\(:nogroupheader:\\)/i',
"PZZ(\$GLOBALS['GroupHeaderFmt']='')");
Markup_e('nogroupfooter', '>include',
'/\\(:nogroupfooter:\\)/i',
"PZZ(\$GLOBALS['GroupFooterFmt']='')");
Markup_e('groupheader', '>nogroupheader',
'/\\(:groupheader:\\)/i',
"PRR(FmtPageName(\$GLOBALS['GroupHeaderFmt'],\$pagename))");
Markup_e('groupfooter','>nogroupfooter',
'/\\(:groupfooter:\\)/i',
"PRR(FmtPageName(\$GLOBALS['GroupFooterFmt'],\$pagename))");
## (:nl:)
Markup('nl0','(?:\\(:nl:\\))+)([^\n])/i","$1\n$2");
Markup('nl1','>nl0',"/\\(:nl:\\)/i",'');
## \\$ (end of line joins)
Markup_e('\\$','>nl1',"/\\\\(?>(\\\\*))\n/",
"str_repeat('
',strlen(\$m[1]))");
## Remove one <:vspace> after !headings
Markup('!vspace', '>\\$', "/^(!(?>[^\n]+)\n)<:vspace>/m", '$1');
## (:noheader:),(:nofooter:),(:notitle:)...
Markup_e('noheader', 'directives',
'/\\(:noheader:\\)/i',
"SetTmplDisplay('PageHeaderFmt',0)");
Markup_e('nofooter', 'directives',
'/\\(:nofooter:\\)/i',
"SetTmplDisplay('PageFooterFmt',0)");
Markup_e('notitle', 'directives',
'/\\(:notitle:\\)/i',
"SetTmplDisplay('PageTitleFmt',0)");
Markup_e('noleft', 'directives',
'/\\(:noleft:\\)/i',
"SetTmplDisplay('PageLeftFmt',0)");
Markup_e('noright', 'directives',
'/\\(:noright:\\)/i',
"SetTmplDisplay('PageRightFmt',0)");
Markup_e('noaction', 'directives',
'/\\(:noaction:\\)/i',
"SetTmplDisplay('PageActionFmt',0)");
## (:spacewikiwords:)
Markup_e('spacewikiwords', 'directives',
'/\\(:(no)?spacewikiwords:\\)/i',
"PZZ(\$GLOBALS['SpaceWikiWords']=(\$m[1]!='no'))");
## (:linkwikiwords:)
Markup_e('linkwikiwords', 'directives',
'/\\(:(no)?linkwikiwords:\\)/i',
"PZZ(\$GLOBALS['LinkWikiWords']=(\$m[1]!='no'))");
## (:linebreaks:)
Markup_e('linebreaks', 'directives',
'/\\(:(no)?linebreaks:\\)/i',
"PZZ(\$GLOBALS['HTMLPNewline'] = (\$m[1]!='no') ? '
' : '')");
## (:messages:)
Markup_e('messages', 'directives',
'/^\\(:messages:\\)/i',
"'<:block>'.Keep(
FmtPageName(implode('',(array)\$GLOBALS['MessagesFmt']), \$pagename))");
## (:comment:)
Markup('comment', 'directives', '/\\(:comment .*?:\\)/i', '');
## (:title:) +fix for PITS:00266, 00779
$tmpwhen = IsEnabled($EnablePageTitlePriority, 0) ? ' SetProperty(\$pagename, 'title', \$m[1], NULL, $tmpkeep))))");
unset($tmpwhen, $tmpkeep);
## (:keywords:), (:description:)
Markup_e('keywords', 'directives',
"/\\(:keywords?\\s+(.+?):\\)/i",
"PZZ(SetProperty(\$pagename, 'keywords', \$m[1], ', '))");
Markup_e('description', 'directives',
"/\\(:description\\s+(.+?):\\)/i",
"PZZ(SetProperty(\$pagename, 'description', \$m[1], '\n'))");
$HTMLHeaderFmt['meta'] = 'function:PrintMetaTags';
function PrintMetaTags($pagename, $args) {
global $PCache;
foreach(array('keywords', 'description') as $n) {
foreach((array)@$PCache[$pagename]["=p_$n"] as $v) {
$v = str_replace("'", ''', $v);
print "\n";
}
}
}
#### inline markups ####
## ''emphasis''
Markup("''",'inline',"/''(.*?)''/",'$1');
## '''strong'''
Markup("'''","<''","/'''(.*?)'''/",'$1');
## '''''strong emphasis'''''
Markup("'''''","<'''","/'''''(.*?)'''''/",'$1');
## @@code@@
Markup('@@','inline','/@@(.*?)@@/','$1');
## '+big+', '-small-'
Markup("'+","<'''''","/'\\+(.*?)\\+'/",'$1');
Markup("'-","<'''''","/'\\-(.*?)\\-'/",'$1');
## '^superscript^', '_subscript_'
Markup("'^","<'''''","/'\\^(.*?)\\^'/",'$1');
Markup("'_","<'''''","/'_(.*?)_'/",'$1');
## [+big+], [-small-]
Markup_e('[+','inline','/\\[(([-+])+)(.*?)\\1\\]/',
"''.
\$m[3].''");
## {+ins+}, {-del-}
Markup('{+','inline','/\\{\\+(.*?)\\+\\}/','$1');
Markup('{-','inline','/\\{-(.*?)-\\}/','$1');
## [[<<]] (break)
Markup('[[<<]]','inline','/\\[\\[<<\\]\\]/',"
");
###### Links ######
## [[free links]]
Markup_e('[[','links',"/(?>\\[\\[\\s*(.*?)\\]\\])($SuffixPattern)/",
"Keep(MakeLink(\$pagename,\$m[1],NULL,\$m[2]),'L')");
## [[!Category]]
SDV($CategoryGroup,'Category');
SDV($LinkCategoryFmt,"\$LinkText");
Markup_e('[[!','<[[','/\\[\\[!(.*?)\\]\\]/',
"Keep(MakeLink(\$pagename,'$CategoryGroup/'.\$m[1],NULL,'',\$GLOBALS['LinkCategoryFmt']),'L')");
# This is a temporary workaround for blank category pages.
# It may be removed in a future release (Pm, 2006-01-24)
if (preg_match("/^$CategoryGroup\\./", $pagename)) {
SDV($DefaultPageTextFmt, '');
SDV($PageNotFoundHeaderFmt, 'HTTP/1.1 200 Ok');
}
## [[target | text]]
Markup_e('[[|','<[[',
"/(?>\\[\\[([^|\\]]*)\\|\\s*)(.*?)\\s*\\]\\]($SuffixPattern)/",
"Keep(MakeLink(\$pagename,\$m[1],\$m[2],\$m[3]),'L')");
## [[text -> target ]]
Markup_e('[[->','>[[|',
"/(?>\\[\\[([^\\]]+?)\\s*-+>\\s*)(.*?)\\]\\]($SuffixPattern)/",
"Keep(MakeLink(\$pagename,\$m[2],\$m[1],\$m[3]),'L')");
if (IsEnabled($EnableRelativePageLinks, 1))
SDV($QualifyPatterns['/(\\[\\[(?>[^\\]]+?->)?\\s*)([-\\w\\x80-\\xfe\\s\'()]+([|#?].*?)?\\]\\])/'],
PCCF("\$m[1].\$group.'/'.\$m[2]", 'qualify'));
## [[#anchor]]
Markup_e('[[#','<[[','/(?>\\[\\[#([A-Za-z][-.:\\w]*))\\]\\]/',
"Keep(TrackAnchors(\$m[1]) ? '' : \"\", 'L')");
function TrackAnchors($x) { global $SeenAnchor; return @$SeenAnchor[$x]++; }
## [[target |#]] reference links
Markup_e('[[|#', '<[[|',
"/(?>\\[\\[([^|\\]]+))\\|\\s*#\\s*\\]\\]/",
"Keep(MakeLink(\$pagename,\$m[1],'['.++\$GLOBALS['MarkupFrame'][0]['ref'].']'),'L')");
## [[target |+]] title links moved inside LinkPage()
## bare urllinks
Markup_e('urllink','>[[',
"/\\b(?>(\\L))[^\\s$UrlExcludeChars]*[^\\s.,?!$UrlExcludeChars]/",
"Keep(MakeLink(\$pagename,\$m[0],\$m[0]),'L')");
## mailto: links
Markup_e('mailto','(\\L))([^\\s$UrlExcludeChars]+$ImgExtPattern)(\"([^\"]*)\")?/",
"Keep(\$GLOBALS['LinkFunctions'][\$m[1]](\$pagename,\$m[1],\$m[2],\$m[4],\$m[1].\$m[2],
\$GLOBALS['ImgTagFmt']),'L')");
## bare wikilinks
## v2.2: markup rule moved to scripts/wikiwords.php)
Markup('wikilink', '>urllink');
## escaped `WikiWords
## v2.2: rule kept here for markup compatibility with 2.1 and earlier
Markup_e('`wikiword', ' markup (after all other block markups)
Markup_e('^<:','>block','/^(?=\\s*\\S)(<:([^>]+)>)?/',"Block(\$m[2])");
## unblocked lines w/block markup become anonymous <:block>
Markup('^!<:', '<^<:',
"/^(?!<:)(?=.*(<\\/?($BlockPattern)\\b)|$KeepToken\\d+B$KeepToken)/",
'<:block>');
## Lines that begin with displayed images receive their own block. A
## pipe following the image indicates a "caption" (generates a linebreak).
Markup_e('^img', 'block',
"/^((?>(\\s+|%%|%[A-Za-z][-,=:#\\w\\s'\".]*%)*)$KeepToken(\\d+L)$KeepToken)(\\s*\\|\\s?)?(.*)$/",
"(strpos(\$GLOBALS['KPV'][\$m[3]],''.\$m[1] . (\$m[4] ? '
' : '') .\$m[5].'
'");
## Whitespace at the beginning of lines can be used to maintain the
## indent level of a previous list item, or a preformatted text block.
Markup_e('^ws', '<^img', '/^\\s+ #1/x', "WSIndent(\$m[0])");
function WSIndent($i) {
global $MarkupFrame;
$icol = strlen($i);
for($depth = count(@$MarkupFrame[0]['cs']); $depth > 0; $depth--)
if (@$MarkupFrame[0]['is'][$depth] == $icol) {
$MarkupFrame[0]['idep'] = $depth;
$MarkupFrame[0]['icol'] = $icol;
return '';
}
return $i;
}
## The $EnableWSPre setting uses leading spaces on markup lines to indicate
## blocks of preformatted text.
SDV($EnableWSPre, 1);
Markup_e('^ ', 'block',
'/^\\s+ #2/x',
"(\$GLOBALS['EnableWSPre'] > 0 && strlen(\$m[0]) >= \$GLOBALS['EnableWSPre'])
? '<:pre,1>'.\$m[0] : \$m[0]");
## bullet lists
Markup('^*','block','/^(\\*+)\\s?(\\s*)/','<:ul,$1,$0>$2');
## numbered lists
Markup('^#','block','/^(#+)\\s?(\\s*)/','<:ol,$1,$0>$2');
## indented (->) /hanging indent (-<) text
Markup('^->','block','/^(?>(-+))>\\s?(\\s*)/','<:indent,$1,$1 $2>$2');
Markup('^-<','block','/^(?>(-+))<\\s?(\\s*)/','<:outdent,$1,$1 $2>$2');
## definition lists
Markup('^::','block','/^(:+)(\s*)([^:]+):/','<:dl,$1,$1$2>$2$3');
## Q: and A:
Markup('^Q:', 'block', '/^Q:(.*)$/', "<:block,1>$1
");
Markup('^A:', 'block', '/^A:/', Keep(''));
## tables
## ||cell||, ||!header cell||, ||!caption!||
Markup_e('^||||', 'block',
'/^\\|\\|.*\\|\\|.*$/',
"FormatTableRow(\$m[0])");
## ||table attributes
Markup_e('^||','>^||||','/^\\|\\|(.*)$/',
"PZZ(\$GLOBALS['BlockMarkups']['table'][0] = '')
.'<:block,1>'");
## headings
Markup_e('^!', 'block',
'/^(!{1,6})\\s?(.*)$/',
"'<:block,1>'.\$m[2].''");
## horiz rule
Markup('^----','>^->','/^----+/','<:block,1>
');
#### (:table:) markup (AdvancedTables)
function Cells($name,$attr) {
global $MarkupFrame, $EnableTableAutoValignTop;
$attr = PQA($attr);
$tattr = @$MarkupFrame[0]['tattr'];
$name = strtolower($name);
$key = preg_replace('/end$/', '', $name);
if (preg_match("/^(?:head|cell)(nr)?$/", $name)) $key = 'cell';
$out = '<:block>'.MarkupClose($key);
if (substr($name, -3) == 'end') return $out;
$cf = & $MarkupFrame[0]['closeall'];
if ($name == 'table') $MarkupFrame[0]['tattr'] = $attr;
else if ($key == 'cell') {
if (IsEnabled($EnableTableAutoValignTop, 1) && strpos($attr, "valign=")===false)
$attr .= " valign='top'";
$t = (strpos($name, 'head')===0 ) ? 'th' : 'td';
if (!@$cf['table']) {
$tattr = @$MarkupFrame[0]['tattr'];
$out .= "<$t $attr>";
$cf['table'] = '
';
} else if ( preg_match("/nr$/", $name)) $out .= "<$t $attr>";
else $out .= "<$t $attr>";
$cf['cell'] = "";
} else {
$tag = preg_replace('/\\d+$/', '', $key);
$out .= "<$tag $attr>";
$cf[$key] = "";
}
return $out;
}
Markup_e('table', '>', '><<', '<^>>',
'/^>><</',
'(:divend:)');
#### special stuff ####
## (:markup:) for displaying markup examples
function MarkupMarkup($pagename, $text, $opt = '') {
global $MarkupWordwrapFunction, $MarkupWrapTag;
SDV($MarkupWordwrapFunction,
PCCF('return str_replace(" ", " ", nl2br($m));'));
SDV($MarkupWrapTag, 'code');
$MarkupMarkupOpt = array('class' => 'vert');
$opt = array_merge($MarkupMarkupOpt, ParseArgs($opt));
$html = MarkupToHTML($pagename, $text, array('escape' => 0));
if (@$opt['caption'])
$caption = str_replace("'", ''',
"{$opt['caption']}");
$class = preg_replace('/[^-\\s\\w]+/', ' ', @$opt['class']);
if (strpos($class, 'horiz') !== false)
{ $sep = ''; $pretext = $MarkupWordwrapFunction($text, 40); }
else
{ $sep = '
'; $pretext = $MarkupWordwrapFunction($text, 75); }
return Keep(@"$caption
| <$MarkupWrapTag>$pretext | $sep$html |
");
}
Markup_e('markup', '<[=',
"/\\(:markup(\\s+([^\n]*?))?:\\)[^\\S\n]*\\[([=@])(.*?)\\3\\]/si",
"MarkupMarkup(\$pagename, \$m[4], \$m[2])");
Markup_e('markupend', '>markup',
"/\\(:markup(\\s+([^\n]*?))?:\\)[^\\S\n]*\n(.*?)\\(:markupend:\\)/si",
"MarkupMarkup(\$pagename, \$m[3], \$m[1])");
SDV($HTMLStylesFmt['markup'], "
table.markup { border:2px dotted #ccf; width:90%; }
td.markup1, td.markup2 { padding-left:10px; padding-right:10px; }
table.vert td.markup1 { border-bottom:1px solid #ccf; }
table.horiz td.markup1 { width:23em; border-right:1px solid #ccf; }
table.markup caption { text-align:left; }
div.faq p, div.faq pre { margin-left:2em; }
div.faq p.question { margin:1em 0 0.75em 0; font-weight:bold; }
div.faqtoc div.faq * { display:none; }
div.faqtoc div.faq p.question
{ display:block; font-weight:normal; margin:0.5em 0 0.5em 20px; line-height:normal; }
div.faqtoc div.faq p.question * { display:inline; }
");
#### Special conditions ####
## The code below adds (:if date:) conditions to the markup.
$Conditions['date'] = "CondDate(\$condparm)";
function CondDate($condparm) {
global $Now;
if (!preg_match('/^(\\S*?)(\\.\\.(\\S*))?(\\s+\\S.*)?$/',
trim($condparm), $match))
return false;
if ($match[4] == '') { $x0 = $Now; NoCache(); }
else { list($x0, $x1) = DRange($match[4]); }
if ($match[1] > '') {
list($t0, $t1) = DRange($match[1]);
if ($x0 < $t0) return false;
if ($match[2] == '' && $x0 >= $t1) return false;
}
if ($match[3] > '') {
list($t0, $t1) = DRange($match[3]);
if ($x0 >= $t1) return false;
}
return true;
}
# This pattern enables the (:encrypt :) markup/replace-on-save
# pattern.
SDV($ROSPatterns['/\\(:encrypt\\s+([^\\s:=]+).*?:\\)/'], PCCF("return pmcrypt(\$m[1]);"));