1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
|
<?php if (!defined('PmWiki')) exit();
/* Copyright 2007-2024 Patrick R. Michaud (pmichaud@pobox.com)
This file is part of PmWiki; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published
by the Free Software Foundation; either version 2 of the License, or
(at your option) any later version. See pmwiki.php for full details.
This script implements "markup expressions" -- a method to
do simple computations and manipulations from markup. The
generic form of a markup expression is "{(func arg1 arg2)}",
where the named function (held in the $MarkupExpr array)
is called with arg1 and arg2 as arguments.
Markup expressions can be nested. For example, to strip
off the first five characters and convert the remainder to
lowercase, an author can write:
{(tolower (substr "HELLOWORLD" 5))} # produces "world"
Some "built-in" expressions defined by this recipe include:
substr - extract a portion of a string
ftime - date/time formatting
strlen - length of a string
rand - generate a random number
pagename - build a pagename from a string
toupper - convert string to uppercase
tolower - convert string to lowercase
ucfirst - convert first character to uppercase
ucwords - convert first character of each word to uppercase
asspaced - spaceformatting of wikiwords
Custom expressions may be added by other recipes by adding
entries into the $MarkupExpr array. Each entry's key is
the name of the function, the value is the code to be evaluated
for that function (similar to the way $FmtPV works). By default,
any arguments for the expression are placed into the $args array:
## expressions like {(myfunc foo bar)}
$MarkupExpr['myfunc'] = 'myfunc($args[0], $args[1])';
The expression arguments are parsed using ParseArgs(), and the
result of this parsing is available through the $argp array:
## expressions like {(myfunc fmt=foo output=bar)}
$MarkupExpr['myfunc'] = 'myfunc($argp["fmt"], $argp["output"])';
Finally, if the code in $MarkupExpr contains '$params', then
it is executed directly without any preprocessing into arguments,
and $params contains the entire argument string. Note that $params
may contain escaped values representing quoted arguments and
results of other expressions; these values may be un-escaped
by using "preg_replace_callback($rpat, 'cb_expandkpv', $params)".
Script maintained by Petko YOTOV www.pmwiki.org/petko
*/
Markup('{(', '>{$var}',
'/\\{(\\(\\w+\\b.*?\\))\\}/',
"MarkupMarkupExpression");
function MarkupMarkupExpression($m) {
extract($GLOBALS["MarkupToHTML"]); # get $pagename
return MarkupExpression($pagename, $m[1]);
}
SDVA($MarkupExpr, array(
'substr' => 'call_user_func_array("substr", $args)',
'strlen' => 'strlen($args[0])',
'ftime' => 'ME_ftime(@$args[0], @$args[1], $argp)',
'rand' => '($args) ? rand($args[0], $args[1]) : rand()',
'ucfirst' => 'ucfirst($args[0])',
'ucwords' => 'ucwords($args[0])',
'tolower' => 'strtolower($args[0])',
'toupper' => 'strtoupper($args[0])',
'mod' => '0 + (intval($args[0]) % intval($args[1]))',
'asspaced' => '$GLOBALS["AsSpacedFunction"]($args[0])',
'pagename' => 'MakePageName($pagename, preg_replace_callback($rpat, "cb_expandkpv", $params))',
));
function cb_keep_m0_p($m) { return Keep($m[0],'P'); }
function cb_keep_m2_p($m) { return Keep($m[2],'P'); }
function MarkupExpression($pagename, $expr) {
global $KeepToken, $KPV, $MarkupExpr;
$rpat = "/$KeepToken(\\d+P)$KeepToken/";
$expr = preg_replace_callback('/([\'"])(.*?)\\1/','cb_keep_m2_p', $expr);
$expr = preg_replace_callback('/\\(\\W/', 'cb_keep_m0_p', $expr);
while (preg_match('/\\((\\w+)(\\s[^()]*)?\\)/', $expr, $match)) {
@list($repl, $func, $params) = $match;
$code = @$MarkupExpr[$func];
## if not a valid function, save this string as-is and exit
if (!$code) break;
## if the code uses '$params', we just evaluate directly
if (strpos($code, '$params') !== false) {
$out = eval("return ({$code});");
if ($expr == $repl) { $expr = $out; break; }
$expr = str_replace($repl, $out, $expr);
continue;
}
## otherwise, we parse arguments into $args before evaluating
$argp = ParseArgs($params);
$x = @$argp['#']; $args = array();
while ($x) {
list($k, $v) = array_splice($x, 0, 2);
if ($k == '' || $k == '+' || $k == '-')
$args[] = $k.preg_replace_callback($rpat, 'cb_expandkpv', $v);
}
## fix any quoted arguments
foreach ($argp as $k => $v)
if (!is_array($v)) $argp[$k] = preg_replace_callback($rpat, 'cb_expandkpv', $v);
$code = trim(strval($code));
if($code === '') $out = '';
else $out = eval("return ({$code});");
if ($expr == $repl) { $expr = $out; break; }
$expr = str_replace($repl, Keep($out, 'P'), $expr);
}
return preg_replace_callback($rpat, 'cb_expandkpv', strval($expr));
}
## ME_ftime handles {(ftime ...)} expressions.
##
function ME_ftime($arg0 = '', $arg1 = '', $argp = NULL) {
global $TimeFmt, $Now, $FTimeFmt;
if (@$argp['fmt']) $fmt = $argp['fmt'];
elseif ($arg0 && strpos($arg0, '%') !== false) { $fmt = $arg0; $arg0 = $arg1; }
elseif ($arg1 && strpos($arg1, '%') !== false) $fmt = $arg1;
else $fmt = '';
## determine the timestamp
if (isset($argp['when'])) list($time, $x) = DRange($argp['when']);
elseif ($arg0 > '') list($time, $x) = DRange($arg0);
else $time = $Now;
return PSFT($fmt, $time, @$argp['locale'], @$argp['tz']);
}
|
