Fix LIKE BINARY patterns with a literal [ - #570

git diff --unified=40 db55ab19f8cc9f1b44428458e909d021ba813067 2eafd45c9fefe4e84084a4fbefdefba7fffcc5e1 -- packages/mysql-on-sqlite/src/sqlite/class-wp-sqlite-pdo-user-defined-functions.php packages/mysql-on-sqlite/tests/WP_MySQL_On_SQLite_Tests.php
sed -n '900,990p' packages/mysql-on-sqlite/src/sqlite/class-wp-sqlite-pdo-user-defined-functions.php
rg -n "_helper_like_to_glob_pattern|LIKE BINARY|dataLikeBinaryPatterns|like_to_glob" packages/mysql-on-sqlite/src packages/mysql-on-sqlite/tests

set -eu
printf '%s\n' '--- caller ---'
sed -n '5028,5082p' packages/mysql-on-sqlite/src/sqlite/class-wp-mysql-on-sqlite.php
printf '%s\n' '--- LIKE BINARY tests ---'
sed -n '6288,6432p' packages/mysql-on-sqlite/tests/WP_MySQL_On_SQLite_Tests.php
printf '%s\n' '--- helper at merge base ---'
git show db55ab19f8cc9f1b44428458e909d021ba813067:packages/mysql-on-sqlite/src/sqlite/class-wp-sqlite-pdo-user-defined-functions.php | sed -n '930,985p'
printf '%s\n' '--- helper outputs at head ---'
php -r '
function f($pattern) {
    $pattern = strtr($pattern, array("[" => "[[]", "]" => "[]]", "*" => "[*]", "?" => "[?]"));
    $pattern = preg_replace("/(^|[^\\\\](?:\\\\{2})*)%/", "$1*", $pattern);
    $pattern = preg_replace("/(^|[^\\\\](?:\\\\{2})*)_/", "$1?", $pattern);
    $pattern = preg_replace("/\\\\(.)/s", "$1", $pattern);
    return $pattern;
}
foreach (array("\\\\%", "\\\\\\\\%", "\\\\\\\\\\\\%", "special\\\\%chars", "special\\\\\\\\%chars", "special\\\\\\\\\\\\%chars") as $p) {
    printf("%s => %s\n", bin2hex($p), bin2hex(f($p)));
}
'

set -eu
php <<'PHP'
<?php
function current_pattern(string $pattern): string {
    $pattern = strtr($pattern, array(
        '[' => '[[]', ']' => '[]]', '*' => '[*]', '?' => '[?]',
    ));
    $pattern = preg_replace('/(^|[^\\\\](?:\\\\{2})*)%/', '$1*', $pattern);
    $pattern = preg_replace('/(^|[^\\\\](?:\\\\{2})*)_/', '$1?', $pattern);
    return preg_replace('/\\\\(.)/s', '$1', $pattern);
}
function candidate_pattern(string $pattern): string {
    $pattern = strtr($pattern, array(
        '[' => '[[]', ']' => '[]]', '*' => '[*]', '?' => '[?]',
    ));
    $pattern = preg_replace('/(^|[^\\\\](?:\\\\\\\\)*)%/', '$1*', $pattern);
    $pattern = preg_replace('/(^|[^\\\\](?:\\\\\\\\)*)_/', '$1?', $pattern);
    return preg_replace('/\\\\(.)/s', '$1', $pattern);
}
for ($count = 1; $count <= 5; ++$count) {
    $pattern = str_repeat('\\', $count) . '%';
    printf("%d slash(es): input=%s current=%s candidate=%s\n",
        $count, bin2hex($pattern), bin2hex(current_pattern($pattern)), bin2hex(candidate_pattern($pattern)));
}
PHP

set -eu
php <<'PHP'
<?php
$patterns = array(
    'lookbehind' => '/(?<!\\\\)(?:\\\\\\\\)*\K%/',
    'group'      => '/(^|[^\\\\])((?:\\\\\\\\)*)%/',
);
for ($count = 1; $count <= 5; ++$count) {
    $input = str_repeat('\\', $count) . '%';
    printf("%d slash(es)", $count);
    foreach ($patterns as $name => $regex) {
        $output = preg_replace($regex, '*', $input);
        printf(" %s=%s", $name, bin2hex($output));
    }
    printf("\n");
}
PHP