of class "messages".
*/
function MessagesReplacement_Parse (array $m):string {
global $Messages_debugon; # import variables
global $MessagesFmt;
//extract ($GLOBALS['MarkupToHTML']); # doesn't appear to be required
$retval = '<:block>'; # start a block-level element, i.e. break out of the paragraphs.
if (empty ($MessagesFmt)) {
if ($Messages_debugon) {
return 'No messages'; # no messages
} else {
return ''; # no messages
}
}
if(count($m) == 1) { # no parameters supplied
$msgkeys = ['*']; # wildcard to display all messages
} else {
$msgkeys = strtolower (preg_replace('/\s+/', ',', $m[1])); # parameters case insensitive
}
//if ($Messages_debugon) $retval .= 'msgkeys: ' . $msgkeys . BR;
$arr = []; # store messages by key
foreach ($MessagesFmt as $mk=>$val) {
$mk = strtolower ($mk); # treat keys as case insensitive
if (is_integer($mk)) $mk = '';
if (!isset($arr[$mk])) $arr[$mk] = [];
foreach((array)$val as $vv) {
$arr[$mk][] = $vv;
}
}
//if ($Messages_debugon) $retval .= 'MF keys: ' . implode (', ', array_keys($arr)) . BR;
$out = '';
$foundkeys = \MatchNames (array_keys($arr), $msgkeys); # PmWiki function
//if ($Messages_debugon) $retval .= 'foundkeys: ' . implode (', ', $foundkeys) . BR;
foreach ($foundkeys as $fk) {
$out .= implode('', (array)$arr[$fk]);
}
$retval .= \FmtPageName($out, $pagename); # convert $ constants
return Keep ($retval . '');
} # end MessagesReplacement_Parse
##
// Debug function
function dmsg(string $dmsgprefix, $dmsgtxt) {
# see https://www.pmwiki.org/wiki/Cookbook/DebuggingForCookbookAuthors
# add debug text to message array
global $MessagesFmt, $Messages_debugon;
$MessageFmt = '' . $dmsgprefix . ': ';
switch (true) {
case (is_null($dmsgtxt)) :
$MessageFmt .= 'null';
break;
case (is_bool($dmsgtxt)) :
$MessageFmt .= var_export($dmsgtxt,true);
break;
case (is_array($dmsgtxt)) :
$MessageFmt .= '' . print_r($dmsgtxt, true) . '
' . NL;
break;
case (is_string ($dmsgtxt)):
$MessageFmt .= "'" . htmlspecialchars ($dmsgtxt) . "'";
break;
default:
$MessageFmt .= '"' . htmlspecialchars ($dmsgtxt) . '"';
break;
}
$MessageFmt .= '' . BR;
$MessagesFmt [MESSAGESNAME] .= $MessageFmt;
} # end dmsg