mirrors/madlisp
1
0
Fork 0
mirror of https://github.com/peklaiho/madlisp.git synced 2024-11-22 05:14:45 +00:00
Code Issues Packages Projects Releases Wiki Activity

4th argument to re-split to if empty strings are removed (default to true)

Browse Source
This commit is contained in:
Pekka Laiho 2020-12-22 10:16:12 +07:00
parent c38d29d805
commit 215c694bea
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/Lib/Regex.php
View File

@ -42,11 +42,20 @@ class Regex implements ILib
));
$env->set('re-replace', new CoreFunc('re-replace', 'Replace matches to regular expression (first argument) by the second argument in the subject (third argument).', 3, 4,
fn (string $pattern, string $replacement, string $subject, int $limit = -1) => preg_replace($pattern, $replacement, $subject, $limit)
function (string $pattern, string $replacement, string $subject, int $limit = -1) {
return preg_replace($pattern, $replacement, $subject, $limit);
}
));
$env->set('re-split', new CoreFunc('re-split', 'Split second argument by regular expression given as first argument.', 2, 3,
fn (string $pattern, string $subject, int $limit = -1) => new Vector(preg_split($pattern, $subject, $limit, PREG_SPLIT_NO_EMPTY))
$env->set('re-split', new CoreFunc('re-split', 'Split second argument by regular expression given as first argument.', 2, 4,
function (string $pattern, string $subject, int $limit = -1, bool $removeEmpty = true) {
$flags = 0;
if ($removeEmpty) {
$flags = PREG_SPLIT_NO_EMPTY;
}
return new Vector(preg_split($pattern, $subject, $limit, $flags));
}
));
}
}