spip /
SPIP
@@ -18,7 +18,7 @@ discard block |
||
| 18 | 18 | * @package SPIP\Core\Public\Styliser |
| 19 | 19 | **/ |
| 20 | 20 | if (!defined('_ECRIRE_INC_VERSION')) { |
| 21 | - return; |
|
| 21 | + return; |
|
| 22 | 22 | } |
| 23 | 23 | |
| 24 | 24 | /** |
@@ -28,190 +28,190 @@ discard block |
||
| 28 | 28 | * @return array Données modifiées du pipeline |
| 29 | 29 | */ |
| 30 | 30 | function public_styliser_par_z_dist($flux) { |
| 31 | - static $prefix_path = null; |
|
| 32 | - static $prefix_length; |
|
| 33 | - static $z_blocs; |
|
| 34 | - static $apl_constant; |
|
| 35 | - static $page; |
|
| 36 | - static $disponible = []; |
|
| 37 | - static $echafauder; |
|
| 38 | - static $prepend = ''; |
|
| 39 | - |
|
| 40 | - if (!isset($prefix_path)) { |
|
| 41 | - $z_blocs = z_blocs(test_espace_prive()); |
|
| 42 | - if (test_espace_prive()) { |
|
| 43 | - $prefix_path = 'prive/squelettes/'; |
|
| 44 | - $prefix_length = strlen($prefix_path); |
|
| 45 | - $apl_constant = '_ECRIRE_AJAX_PARALLEL_LOAD'; |
|
| 46 | - $page = 'exec'; |
|
| 47 | - $echafauder = charger_fonction('echafauder', 'prive', true); |
|
| 48 | - define('_ZCORE_EXCLURE_PATH', ''); |
|
| 49 | - } else { |
|
| 50 | - $prefix_path = ''; |
|
| 51 | - $prefix_length = 0; |
|
| 52 | - $apl_constant = '_Z_AJAX_PARALLEL_LOAD'; |
|
| 53 | - $page = _SPIP_PAGE; |
|
| 54 | - $echafauder = charger_fonction('echafauder', 'public', true); |
|
| 55 | - define('_ZCORE_EXCLURE_PATH', '\bprive|\bsquelettes-dist' . (defined('_DIR_PLUGIN_DIST') ? '|\b' . rtrim( |
|
| 56 | - (string) _DIR_PLUGIN_DIST, |
|
| 57 | - '/' |
|
| 58 | - ) : '')); |
|
| 59 | - } |
|
| 60 | - $prepend = (defined('_Z_PREPEND_PATH') ? _Z_PREPEND_PATH : ''); |
|
| 61 | - } |
|
| 62 | - $z_contenu = reset($z_blocs); // contenu par defaut |
|
| 63 | - |
|
| 64 | - $fond = $flux['args']['fond']; |
|
| 65 | - |
|
| 66 | - if ($prepend || strncmp((string) $fond, (string) $prefix_path, $prefix_length) == 0) { |
|
| 67 | - $fond = substr((string) $fond, $prefix_length); |
|
| 68 | - $squelette = $flux['data']; |
|
| 69 | - $ext = $flux['args']['ext']; |
|
| 70 | - // Ajax Parallel loading : ne pas calculer le bloc, mais renvoyer un js qui le loadera en ajax |
|
| 71 | - if ( |
|
| 72 | - defined('_Z_AJAX_PARALLEL_LOAD_OK') |
|
| 73 | - && ($dir = explode('/', $fond)) |
|
| 74 | - && count($dir) == 2 // pas un sous repertoire |
|
| 75 | - && ($dir = reset($dir)) |
|
| 76 | - && in_array($dir, $z_blocs) // verifier deja qu'on est dans un bloc Z |
|
| 77 | - && defined($apl_constant) |
|
| 78 | - && in_array($dir, explode(',', (string) constant($apl_constant))) // et dans un demande en APL |
|
| 79 | - && ($pipe = z_trouver_bloc($prefix_path . $prepend, $dir, 'z_apl', $ext)) // et qui contient le squelette APL |
|
| 80 | - ) { |
|
| 81 | - $flux['data'] = $pipe; |
|
| 82 | - |
|
| 83 | - return $flux; |
|
| 84 | - } |
|
| 85 | - |
|
| 86 | - // surcharger aussi les squelettes venant de squelettes-dist/ |
|
| 87 | - if ($squelette && !z_fond_valide($squelette)) { |
|
| 88 | - $squelette = ''; |
|
| 89 | - $echafauder = ''; |
|
| 90 | - } |
|
| 91 | - if ($prepend) { |
|
| 92 | - $squelette = substr((string) find_in_path($prefix_path . $prepend . "$fond.$ext"), 0, -strlen(".$ext")); |
|
| 93 | - if ($squelette) { |
|
| 94 | - $flux['data'] = $squelette; |
|
| 95 | - } |
|
| 96 | - } |
|
| 97 | - |
|
| 98 | - // gerer les squelettes non trouves |
|
| 99 | - // -> router vers les /dist.html |
|
| 100 | - // ou scaffolding ou page automatique les contenus |
|
| 101 | - if (!$squelette) { |
|
| 102 | - // si on est sur un ?page=XX non trouve |
|
| 103 | - if ( |
|
| 104 | - isset($flux['args']['contexte'][$page]) && $flux['args']['contexte'][$page] == $fond |
|
| 105 | - || isset($flux['args']['contexte']['type-page']) && $flux['args']['contexte']['type-page'] == $fond |
|
| 106 | - || $fond == 'sommaire' && (!isset($flux['args']['contexte'][$page]) || !$flux['args']['contexte'][$page]) |
|
| 107 | - ) { |
|
| 108 | - // si on est sur un ?page=XX non trouve |
|
| 109 | - // se brancher sur contenu/xx si il existe |
|
| 110 | - // ou si c'est un objet spip, associe a une table, utiliser le fond homonyme |
|
| 111 | - if (!isset($disponible[$fond])) { |
|
| 112 | - $disponible[$fond] = z_contenu_disponible($prefix_path . $prepend, $z_contenu, $fond, $ext, (bool) $echafauder); |
|
| 113 | - } |
|
| 114 | - |
|
| 115 | - if ($disponible[$fond]) { |
|
| 116 | - $flux['data'] = substr((string) find_in_path($prefix_path . "page.$ext"), 0, -strlen(".$ext")); |
|
| 117 | - } |
|
| 118 | - } |
|
| 119 | - |
|
| 120 | - // echafaudage : |
|
| 121 | - // si c'est un fond de contenu d'un objet en base |
|
| 122 | - // generer un fond automatique a la volee pour les webmestres |
|
| 123 | - elseif (strncmp($fond, "$z_contenu/", strlen((string) $z_contenu) + 1) == 0) { |
|
| 124 | - $type = substr($fond, strlen((string) $z_contenu) + 1); |
|
| 125 | - if ($type == 'page' && isset($flux['args']['contexte'][$page])) { |
|
| 126 | - $type = $flux['args']['contexte'][$page]; |
|
| 127 | - } |
|
| 128 | - if (!isset($disponible[$type])) { |
|
| 129 | - $disponible[$type] = z_contenu_disponible($prefix_path . $prepend, $z_contenu, $type, $ext, (bool) $echafauder); |
|
| 130 | - } |
|
| 131 | - if (is_string($disponible[$type])) { |
|
| 132 | - $flux['data'] = $disponible[$type]; |
|
| 133 | - } elseif ( |
|
| 134 | - $echafauder |
|
| 135 | - && include_spip('inc/autoriser') |
|
| 136 | - && isset($GLOBALS['visiteur_session']['statut']) |
|
| 137 | - && autoriser('echafauder', $type) |
|
| 138 | - && ($is = $disponible[$type]) |
|
| 139 | - && is_array($is) |
|
| 140 | - ) { |
|
| 141 | - $flux['data'] = $echafauder($type, $is[0], $is[1], $is[2], $ext); |
|
| 142 | - } else { |
|
| 143 | - $flux['data'] = ($disponible['404'] = z_contenu_disponible( |
|
| 144 | - $prefix_path . $prepend, |
|
| 145 | - $z_contenu, |
|
| 146 | - '404', |
|
| 147 | - $ext, |
|
| 148 | - (bool) $echafauder |
|
| 149 | - )); |
|
| 150 | - } |
|
| 151 | - } |
|
| 152 | - |
|
| 153 | - // sinon, si on demande un fond non trouve dans un des autres blocs |
|
| 154 | - // et si il y a bien un contenu correspondant ou echafaudable |
|
| 155 | - // se rabbatre sur le dist.html du bloc concerne |
|
| 156 | - else { |
|
| 157 | - if ( |
|
| 158 | - ($dir = explode('/', $fond)) |
|
| 159 | - && ($dir = reset($dir)) |
|
| 160 | - && $dir !== $z_contenu |
|
| 161 | - && in_array($dir, $z_blocs) |
|
| 162 | - ) { |
|
| 163 | - $type = substr($fond, strlen("$dir/")); |
|
| 164 | - if ($type == 'page' && isset($flux['args']['contexte'][$page])) { |
|
| 165 | - $type = $flux['args']['contexte'][$page]; |
|
| 166 | - } |
|
| 167 | - if ($type !== 'page' && !isset($disponible[$type])) { |
|
| 168 | - $disponible[$type] = z_contenu_disponible($prefix_path . $prepend, $z_contenu, $type, $ext, (bool) $echafauder); |
|
| 169 | - } |
|
| 170 | - if ($type == 'page' || $disponible[$type]) { |
|
| 171 | - $flux['data'] = z_trouver_bloc($prefix_path . $prepend, $dir, 'dist', $ext); |
|
| 172 | - } |
|
| 173 | - } |
|
| 174 | - } |
|
| 175 | - $squelette = $flux['data']; |
|
| 176 | - } |
|
| 177 | - |
|
| 178 | - // layout specifiques par type et compositions : |
|
| 179 | - // body-article.html |
|
| 180 | - // body-sommaire.html |
|
| 181 | - // pour des raisons de perfo, les declinaisons doivent etre dans le |
|
| 182 | - // meme dossier que body.html |
|
| 183 | - $f = null; |
|
| 184 | - if ($fond == 'body' && str_ends_with((string) $squelette, $fond)) { |
|
| 185 | - if ( |
|
| 186 | - isset($flux['args']['contexte']['type-page']) |
|
| 187 | - && ( |
|
| 188 | - isset($flux['args']['contexte']['composition']) && file_exists(($f = $squelette . '-' . $flux['args']['contexte']['type-page'] . '-' . $flux['args']['contexte']['composition']) . ".$ext") |
|
| 189 | - || file_exists(($f = $squelette . '-' . $flux['args']['contexte']['type-page']) . ".$ext") |
|
| 190 | - ) |
|
| 191 | - ) { |
|
| 192 | - $flux['data'] = $f; |
|
| 193 | - } |
|
| 194 | - } elseif ( |
|
| 195 | - $fond == 'structure' |
|
| 196 | - && z_sanitize_var_zajax() |
|
| 197 | - && ($f = find_in_path($prefix_path . $prepend . 'ajax' . ".$ext")) |
|
| 198 | - ) { |
|
| 199 | - $flux['data'] = substr((string) $f, 0, -strlen(".$ext")); |
|
| 200 | - } elseif ( |
|
| 201 | - // chercher le fond correspondant a la composition |
|
| 202 | - isset($flux['args']['contexte']['composition']) |
|
| 203 | - && (basename($fond) == 'page' || $squelette && str_ends_with((string) $squelette, $fond)) |
|
| 204 | - && ($dir = substr($fond, $prefix_length)) |
|
| 205 | - && ($dir = explode('/', $dir)) |
|
| 206 | - && ($dir = reset($dir)) |
|
| 207 | - && in_array($dir, $z_blocs) |
|
| 208 | - && ($f = find_in_path($prefix_path . $prepend . $fond . '-' . $flux['args']['contexte']['composition'] . ".$ext")) |
|
| 209 | - ) { |
|
| 210 | - $flux['data'] = substr((string) $f, 0, -strlen(".$ext")); |
|
| 211 | - } |
|
| 212 | - } |
|
| 213 | - |
|
| 214 | - return $flux; |
|
| 31 | + static $prefix_path = null; |
|
| 32 | + static $prefix_length; |
|
| 33 | + static $z_blocs; |
|
| 34 | + static $apl_constant; |
|
| 35 | + static $page; |
|
| 36 | + static $disponible = []; |
|
| 37 | + static $echafauder; |
|
| 38 | + static $prepend = ''; |
|
| 39 | + |
|
| 40 | + if (!isset($prefix_path)) { |
|
| 41 | + $z_blocs = z_blocs(test_espace_prive()); |
|
| 42 | + if (test_espace_prive()) { |
|
| 43 | + $prefix_path = 'prive/squelettes/'; |
|
| 44 | + $prefix_length = strlen($prefix_path); |
|
| 45 | + $apl_constant = '_ECRIRE_AJAX_PARALLEL_LOAD'; |
|
| 46 | + $page = 'exec'; |
|
| 47 | + $echafauder = charger_fonction('echafauder', 'prive', true); |
|
| 48 | + define('_ZCORE_EXCLURE_PATH', ''); |
|
| 49 | + } else { |
|
| 50 | + $prefix_path = ''; |
|
| 51 | + $prefix_length = 0; |
|
| 52 | + $apl_constant = '_Z_AJAX_PARALLEL_LOAD'; |
|
| 53 | + $page = _SPIP_PAGE; |
|
| 54 | + $echafauder = charger_fonction('echafauder', 'public', true); |
|
| 55 | + define('_ZCORE_EXCLURE_PATH', '\bprive|\bsquelettes-dist' . (defined('_DIR_PLUGIN_DIST') ? '|\b' . rtrim( |
|
| 56 | + (string) _DIR_PLUGIN_DIST, |
|
| 57 | + '/' |
|
| 58 | + ) : '')); |
|
| 59 | + } |
|
| 60 | + $prepend = (defined('_Z_PREPEND_PATH') ? _Z_PREPEND_PATH : ''); |
|
| 61 | + } |
|
| 62 | + $z_contenu = reset($z_blocs); // contenu par defaut |
|
| 63 | + |
|
| 64 | + $fond = $flux['args']['fond']; |
|
| 65 | + |
|
| 66 | + if ($prepend || strncmp((string) $fond, (string) $prefix_path, $prefix_length) == 0) { |
|
| 67 | + $fond = substr((string) $fond, $prefix_length); |
|
| 68 | + $squelette = $flux['data']; |
|
| 69 | + $ext = $flux['args']['ext']; |
|
| 70 | + // Ajax Parallel loading : ne pas calculer le bloc, mais renvoyer un js qui le loadera en ajax |
|
| 71 | + if ( |
|
| 72 | + defined('_Z_AJAX_PARALLEL_LOAD_OK') |
|
| 73 | + && ($dir = explode('/', $fond)) |
|
| 74 | + && count($dir) == 2 // pas un sous repertoire |
|
| 75 | + && ($dir = reset($dir)) |
|
| 76 | + && in_array($dir, $z_blocs) // verifier deja qu'on est dans un bloc Z |
|
| 77 | + && defined($apl_constant) |
|
| 78 | + && in_array($dir, explode(',', (string) constant($apl_constant))) // et dans un demande en APL |
|
| 79 | + && ($pipe = z_trouver_bloc($prefix_path . $prepend, $dir, 'z_apl', $ext)) // et qui contient le squelette APL |
|
| 80 | + ) { |
|
| 81 | + $flux['data'] = $pipe; |
|
| 82 | + |
|
| 83 | + return $flux; |
|
| 84 | + } |
|
| 85 | + |
|
| 86 | + // surcharger aussi les squelettes venant de squelettes-dist/ |
|
| 87 | + if ($squelette && !z_fond_valide($squelette)) { |
|
| 88 | + $squelette = ''; |
|
| 89 | + $echafauder = ''; |
|
| 90 | + } |
|
| 91 | + if ($prepend) { |
|
| 92 | + $squelette = substr((string) find_in_path($prefix_path . $prepend . "$fond.$ext"), 0, -strlen(".$ext")); |
|
| 93 | + if ($squelette) { |
|
| 94 | + $flux['data'] = $squelette; |
|
| 95 | + } |
|
| 96 | + } |
|
| 97 | + |
|
| 98 | + // gerer les squelettes non trouves |
|
| 99 | + // -> router vers les /dist.html |
|
| 100 | + // ou scaffolding ou page automatique les contenus |
|
| 101 | + if (!$squelette) { |
|
| 102 | + // si on est sur un ?page=XX non trouve |
|
| 103 | + if ( |
|
| 104 | + isset($flux['args']['contexte'][$page]) && $flux['args']['contexte'][$page] == $fond |
|
| 105 | + || isset($flux['args']['contexte']['type-page']) && $flux['args']['contexte']['type-page'] == $fond |
|
| 106 | + || $fond == 'sommaire' && (!isset($flux['args']['contexte'][$page]) || !$flux['args']['contexte'][$page]) |
|
| 107 | + ) { |
|
| 108 | + // si on est sur un ?page=XX non trouve |
|
| 109 | + // se brancher sur contenu/xx si il existe |
|
| 110 | + // ou si c'est un objet spip, associe a une table, utiliser le fond homonyme |
|
| 111 | + if (!isset($disponible[$fond])) { |
|
| 112 | + $disponible[$fond] = z_contenu_disponible($prefix_path . $prepend, $z_contenu, $fond, $ext, (bool) $echafauder); |
|
| 113 | + } |
|
| 114 | + |
|
| 115 | + if ($disponible[$fond]) { |
|
| 116 | + $flux['data'] = substr((string) find_in_path($prefix_path . "page.$ext"), 0, -strlen(".$ext")); |
|
| 117 | + } |
|
| 118 | + } |
|
| 119 | + |
|
| 120 | + // echafaudage : |
|
| 121 | + // si c'est un fond de contenu d'un objet en base |
|
| 122 | + // generer un fond automatique a la volee pour les webmestres |
|
| 123 | + elseif (strncmp($fond, "$z_contenu/", strlen((string) $z_contenu) + 1) == 0) { |
|
| 124 | + $type = substr($fond, strlen((string) $z_contenu) + 1); |
|
| 125 | + if ($type == 'page' && isset($flux['args']['contexte'][$page])) { |
|
| 126 | + $type = $flux['args']['contexte'][$page]; |
|
| 127 | + } |
|
| 128 | + if (!isset($disponible[$type])) { |
|
| 129 | + $disponible[$type] = z_contenu_disponible($prefix_path . $prepend, $z_contenu, $type, $ext, (bool) $echafauder); |
|
| 130 | + } |
|
| 131 | + if (is_string($disponible[$type])) { |
|
| 132 | + $flux['data'] = $disponible[$type]; |
|
| 133 | + } elseif ( |
|
| 134 | + $echafauder |
|
| 135 | + && include_spip('inc/autoriser') |
|
| 136 | + && isset($GLOBALS['visiteur_session']['statut']) |
|
| 137 | + && autoriser('echafauder', $type) |
|
| 138 | + && ($is = $disponible[$type]) |
|
| 139 | + && is_array($is) |
|
| 140 | + ) { |
|
| 141 | + $flux['data'] = $echafauder($type, $is[0], $is[1], $is[2], $ext); |
|
| 142 | + } else { |
|
| 143 | + $flux['data'] = ($disponible['404'] = z_contenu_disponible( |
|
| 144 | + $prefix_path . $prepend, |
|
| 145 | + $z_contenu, |
|
| 146 | + '404', |
|
| 147 | + $ext, |
|
| 148 | + (bool) $echafauder |
|
| 149 | + )); |
|
| 150 | + } |
|
| 151 | + } |
|
| 152 | + |
|
| 153 | + // sinon, si on demande un fond non trouve dans un des autres blocs |
|
| 154 | + // et si il y a bien un contenu correspondant ou echafaudable |
|
| 155 | + // se rabbatre sur le dist.html du bloc concerne |
|
| 156 | + else { |
|
| 157 | + if ( |
|
| 158 | + ($dir = explode('/', $fond)) |
|
| 159 | + && ($dir = reset($dir)) |
|
| 160 | + && $dir !== $z_contenu |
|
| 161 | + && in_array($dir, $z_blocs) |
|
| 162 | + ) { |
|
| 163 | + $type = substr($fond, strlen("$dir/")); |
|
| 164 | + if ($type == 'page' && isset($flux['args']['contexte'][$page])) { |
|
| 165 | + $type = $flux['args']['contexte'][$page]; |
|
| 166 | + } |
|
| 167 | + if ($type !== 'page' && !isset($disponible[$type])) { |
|
| 168 | + $disponible[$type] = z_contenu_disponible($prefix_path . $prepend, $z_contenu, $type, $ext, (bool) $echafauder); |
|
| 169 | + } |
|
| 170 | + if ($type == 'page' || $disponible[$type]) { |
|
| 171 | + $flux['data'] = z_trouver_bloc($prefix_path . $prepend, $dir, 'dist', $ext); |
|
| 172 | + } |
|
| 173 | + } |
|
| 174 | + } |
|
| 175 | + $squelette = $flux['data']; |
|
| 176 | + } |
|
| 177 | + |
|
| 178 | + // layout specifiques par type et compositions : |
|
| 179 | + // body-article.html |
|
| 180 | + // body-sommaire.html |
|
| 181 | + // pour des raisons de perfo, les declinaisons doivent etre dans le |
|
| 182 | + // meme dossier que body.html |
|
| 183 | + $f = null; |
|
| 184 | + if ($fond == 'body' && str_ends_with((string) $squelette, $fond)) { |
|
| 185 | + if ( |
|
| 186 | + isset($flux['args']['contexte']['type-page']) |
|
| 187 | + && ( |
|
| 188 | + isset($flux['args']['contexte']['composition']) && file_exists(($f = $squelette . '-' . $flux['args']['contexte']['type-page'] . '-' . $flux['args']['contexte']['composition']) . ".$ext") |
|
| 189 | + || file_exists(($f = $squelette . '-' . $flux['args']['contexte']['type-page']) . ".$ext") |
|
| 190 | + ) |
|
| 191 | + ) { |
|
| 192 | + $flux['data'] = $f; |
|
| 193 | + } |
|
| 194 | + } elseif ( |
|
| 195 | + $fond == 'structure' |
|
| 196 | + && z_sanitize_var_zajax() |
|
| 197 | + && ($f = find_in_path($prefix_path . $prepend . 'ajax' . ".$ext")) |
|
| 198 | + ) { |
|
| 199 | + $flux['data'] = substr((string) $f, 0, -strlen(".$ext")); |
|
| 200 | + } elseif ( |
|
| 201 | + // chercher le fond correspondant a la composition |
|
| 202 | + isset($flux['args']['contexte']['composition']) |
|
| 203 | + && (basename($fond) == 'page' || $squelette && str_ends_with((string) $squelette, $fond)) |
|
| 204 | + && ($dir = substr($fond, $prefix_length)) |
|
| 205 | + && ($dir = explode('/', $dir)) |
|
| 206 | + && ($dir = reset($dir)) |
|
| 207 | + && in_array($dir, $z_blocs) |
|
| 208 | + && ($f = find_in_path($prefix_path . $prepend . $fond . '-' . $flux['args']['contexte']['composition'] . ".$ext")) |
|
| 209 | + ) { |
|
| 210 | + $flux['data'] = substr((string) $f, 0, -strlen(".$ext")); |
|
| 211 | + } |
|
| 212 | + } |
|
| 213 | + |
|
| 214 | + return $flux; |
|
| 215 | 215 | } |
| 216 | 216 | |
| 217 | 217 | /** |
@@ -221,18 +221,18 @@ discard block |
||
| 221 | 221 | * @return array |
| 222 | 222 | */ |
| 223 | 223 | function z_blocs($espace_prive = false) { |
| 224 | - if ($espace_prive) { |
|
| 225 | - return ($GLOBALS['z_blocs_ecrire'] ?? [ |
|
| 226 | - 'contenu', |
|
| 227 | - 'navigation', |
|
| 228 | - 'extra', |
|
| 229 | - 'head', |
|
| 230 | - 'hierarchie', |
|
| 231 | - 'top' |
|
| 232 | - ]); |
|
| 233 | - } |
|
| 234 | - |
|
| 235 | - return ($GLOBALS['z_blocs'] ?? ['contenu']); |
|
| 224 | + if ($espace_prive) { |
|
| 225 | + return ($GLOBALS['z_blocs_ecrire'] ?? [ |
|
| 226 | + 'contenu', |
|
| 227 | + 'navigation', |
|
| 228 | + 'extra', |
|
| 229 | + 'head', |
|
| 230 | + 'hierarchie', |
|
| 231 | + 'top' |
|
| 232 | + ]); |
|
| 233 | + } |
|
| 234 | + |
|
| 235 | + return ($GLOBALS['z_blocs'] ?? ['contenu']); |
|
| 236 | 236 | } |
| 237 | 237 | |
| 238 | 238 | /** |
@@ -247,11 +247,11 @@ discard block |
||
| 247 | 247 | * @return mixed |
| 248 | 248 | */ |
| 249 | 249 | function z_contenu_disponible($prefix_path, $z_contenu, $type, $ext, $echafauder = true) { |
| 250 | - if ($d = z_trouver_bloc($prefix_path, $z_contenu, $type, $ext)) { |
|
| 251 | - return $d; |
|
| 252 | - } |
|
| 250 | + if ($d = z_trouver_bloc($prefix_path, $z_contenu, $type, $ext)) { |
|
| 251 | + return $d; |
|
| 252 | + } |
|
| 253 | 253 | |
| 254 | - return $echafauder ? z_echafaudable($type) : false; |
|
| 254 | + return $echafauder ? z_echafaudable($type) : false; |
|
| 255 | 255 | } |
| 256 | 256 | |
| 257 | 257 | /** |
@@ -265,7 +265,7 @@ discard block |
||
| 265 | 265 | * `true` si on peut l'utiliser, `false` sinon. |
| 266 | 266 | **/ |
| 267 | 267 | function z_fond_valide($squelette) { |
| 268 | - return !_ZCORE_EXCLURE_PATH || !preg_match(',(' . _ZCORE_EXCLURE_PATH . ')/,', $squelette); |
|
| 268 | + return !_ZCORE_EXCLURE_PATH || !preg_match(',(' . _ZCORE_EXCLURE_PATH . ')/,', $squelette); |
|
| 269 | 269 | } |
| 270 | 270 | |
| 271 | 271 | /** |
@@ -283,14 +283,14 @@ discard block |
||
| 283 | 283 | * @return string |
| 284 | 284 | */ |
| 285 | 285 | function z_trouver_bloc($prefix_path, $bloc, $fond, $ext) { |
| 286 | - if ( |
|
| 287 | - defined('_ZCORE_BLOC_PREFIX_SKEL') && ($f = find_in_path("$prefix_path$bloc/$bloc.$fond.$ext")) && z_fond_valide($f) |
|
| 288 | - || ($f = find_in_path("$prefix_path$bloc/$fond.$ext")) && z_fond_valide($f) |
|
| 289 | - ) { |
|
| 290 | - return substr((string) $f, 0, -strlen(".$ext")); |
|
| 291 | - } |
|
| 292 | - |
|
| 293 | - return ''; |
|
| 286 | + if ( |
|
| 287 | + defined('_ZCORE_BLOC_PREFIX_SKEL') && ($f = find_in_path("$prefix_path$bloc/$bloc.$fond.$ext")) && z_fond_valide($f) |
|
| 288 | + || ($f = find_in_path("$prefix_path$bloc/$fond.$ext")) && z_fond_valide($f) |
|
| 289 | + ) { |
|
| 290 | + return substr((string) $f, 0, -strlen(".$ext")); |
|
| 291 | + } |
|
| 292 | + |
|
| 293 | + return ''; |
|
| 294 | 294 | } |
| 295 | 295 | |
| 296 | 296 | /** |
@@ -302,52 +302,52 @@ discard block |
||
| 302 | 302 | * @return bool |
| 303 | 303 | */ |
| 304 | 304 | function z_echafaudable($type) { |
| 305 | - static $pages = null; |
|
| 306 | - static $echafaudable = []; |
|
| 307 | - if (isset($echafaudable[$type])) { |
|
| 308 | - return $echafaudable[$type]; |
|
| 309 | - } |
|
| 310 | - if (preg_match(',[^\w],', $type)) { |
|
| 311 | - return $echafaudable[$type] = false; |
|
| 312 | - } |
|
| 313 | - |
|
| 314 | - if (test_espace_prive()) { |
|
| 315 | - if (!function_exists('trouver_objet_exec')) { |
|
| 316 | - include_spip('inc/pipelines_ecrire'); |
|
| 317 | - } |
|
| 318 | - if ($e = trouver_objet_exec($type)) { |
|
| 319 | - return $echafaudable[$type] = [$e['table'], $e['table_objet_sql'], $e]; |
|
| 320 | - } else { |
|
| 321 | - // peut etre c'est un exec=types qui liste tous les objets "type" |
|
| 322 | - if ( |
|
| 323 | - ($t = objet_type($type, false)) !== $type |
|
| 324 | - && ($e = trouver_objet_exec($t)) |
|
| 325 | - ) { |
|
| 326 | - return $echafaudable[$type] = [$e['table'], $e['table_objet_sql'], $t]; |
|
| 327 | - } |
|
| 328 | - } |
|
| 329 | - } else { |
|
| 330 | - if (is_null($pages)) { |
|
| 331 | - $pages = []; |
|
| 332 | - $liste = lister_tables_objets_sql(); |
|
| 333 | - foreach ($liste as $t => $d) { |
|
| 334 | - if ($d['page']) { |
|
| 335 | - $pages[$d['page']] = [$d['table_objet'], $t]; |
|
| 336 | - } |
|
| 337 | - } |
|
| 338 | - } |
|
| 339 | - if (!isset($pages[$type])) { |
|
| 340 | - return $echafaudable[$type] = false; |
|
| 341 | - } |
|
| 342 | - if ((is_countable($pages[$type]) ? count($pages[$type]) : 0) == 2) { |
|
| 343 | - $trouver_table = charger_fonction('trouver_table', 'base'); |
|
| 344 | - $pages[$type][] = $trouver_table(reset($pages[$type])); |
|
| 345 | - } |
|
| 346 | - |
|
| 347 | - return $echafaudable[$type] = $pages[$type]; |
|
| 348 | - } |
|
| 349 | - |
|
| 350 | - return $echafaudable[$type] = false; |
|
| 305 | + static $pages = null; |
|
| 306 | + static $echafaudable = []; |
|
| 307 | + if (isset($echafaudable[$type])) { |
|
| 308 | + return $echafaudable[$type]; |
|
| 309 | + } |
|
| 310 | + if (preg_match(',[^\w],', $type)) { |
|
| 311 | + return $echafaudable[$type] = false; |
|
| 312 | + } |
|
| 313 | + |
|
| 314 | + if (test_espace_prive()) { |
|
| 315 | + if (!function_exists('trouver_objet_exec')) { |
|
| 316 | + include_spip('inc/pipelines_ecrire'); |
|
| 317 | + } |
|
| 318 | + if ($e = trouver_objet_exec($type)) { |
|
| 319 | + return $echafaudable[$type] = [$e['table'], $e['table_objet_sql'], $e]; |
|
| 320 | + } else { |
|
| 321 | + // peut etre c'est un exec=types qui liste tous les objets "type" |
|
| 322 | + if ( |
|
| 323 | + ($t = objet_type($type, false)) !== $type |
|
| 324 | + && ($e = trouver_objet_exec($t)) |
|
| 325 | + ) { |
|
| 326 | + return $echafaudable[$type] = [$e['table'], $e['table_objet_sql'], $t]; |
|
| 327 | + } |
|
| 328 | + } |
|
| 329 | + } else { |
|
| 330 | + if (is_null($pages)) { |
|
| 331 | + $pages = []; |
|
| 332 | + $liste = lister_tables_objets_sql(); |
|
| 333 | + foreach ($liste as $t => $d) { |
|
| 334 | + if ($d['page']) { |
|
| 335 | + $pages[$d['page']] = [$d['table_objet'], $t]; |
|
| 336 | + } |
|
| 337 | + } |
|
| 338 | + } |
|
| 339 | + if (!isset($pages[$type])) { |
|
| 340 | + return $echafaudable[$type] = false; |
|
| 341 | + } |
|
| 342 | + if ((is_countable($pages[$type]) ? count($pages[$type]) : 0) == 2) { |
|
| 343 | + $trouver_table = charger_fonction('trouver_table', 'base'); |
|
| 344 | + $pages[$type][] = $trouver_table(reset($pages[$type])); |
|
| 345 | + } |
|
| 346 | + |
|
| 347 | + return $echafaudable[$type] = $pages[$type]; |
|
| 348 | + } |
|
| 349 | + |
|
| 350 | + return $echafaudable[$type] = false; |
|
| 351 | 351 | } |
| 352 | 352 | |
| 353 | 353 | |
@@ -364,42 +364,42 @@ discard block |
||
| 364 | 364 | * @return string |
| 365 | 365 | */ |
| 366 | 366 | function prive_echafauder_dist($exec, $table, $table_sql, $desc_exec, $ext) { |
| 367 | - $scaffold = ''; |
|
| 368 | - |
|
| 369 | - // page objet ou objet_edit |
|
| 370 | - if (is_array($desc_exec)) { |
|
| 371 | - $type = $desc_exec['type']; |
|
| 372 | - $primary = $desc_exec['id_table_objet']; |
|
| 373 | - |
|
| 374 | - if ($desc_exec['edition'] === false) { |
|
| 375 | - $fond = 'objet'; |
|
| 376 | - } else { |
|
| 377 | - $trouver_table = charger_fonction('trouver_table', 'base'); |
|
| 378 | - $desc = $trouver_table($table_sql); |
|
| 379 | - $fond = isset($desc['field']['id_rubrique']) ? 'objet_edit' : 'objet_edit.sans_rubrique'; |
|
| 380 | - } |
|
| 381 | - $dir = z_blocs(test_espace_prive()); |
|
| 382 | - $dir = reset($dir); |
|
| 383 | - $scaffold = "<INCLURE{fond=prive/echafaudage/$dir/" . $fond . ',objet=' . $type . ',id_objet=#' . strtoupper((string) $primary) . ',env}>'; |
|
| 384 | - } // page objets |
|
| 385 | - elseif (($type = $desc_exec) && !str_contains($type, '/')) { |
|
| 386 | - $dir = z_blocs(test_espace_prive()); |
|
| 387 | - $dir = reset($dir); |
|
| 388 | - $scaffold = "<INCLURE{fond=prive/echafaudage/$dir/objets,objet=" . $type . ',env} />'; |
|
| 389 | - } |
|
| 390 | - // morceau d'objet : on fournit le fond de sibstitution dans $desc_exec |
|
| 391 | - // et objet et tire de $table |
|
| 392 | - elseif ($fond = $desc_exec) { |
|
| 393 | - $dir = md5(dirname($fond)); |
|
| 394 | - $scaffold = "<INCLURE{fond=$fond,objet=" . objet_type($table) . ',env} />'; |
|
| 395 | - } |
|
| 396 | - |
|
| 397 | - $base_dir = sous_repertoire(_DIR_CACHE, 'scaffold', false); |
|
| 398 | - $base_dir = sous_repertoire($base_dir, $dir, false); |
|
| 399 | - $f = $base_dir . "$exec"; |
|
| 400 | - ecrire_fichier("$f.$ext", $scaffold); |
|
| 401 | - |
|
| 402 | - return $f; |
|
| 367 | + $scaffold = ''; |
|
| 368 | + |
|
| 369 | + // page objet ou objet_edit |
|
| 370 | + if (is_array($desc_exec)) { |
|
| 371 | + $type = $desc_exec['type']; |
|
| 372 | + $primary = $desc_exec['id_table_objet']; |
|
| 373 | + |
|
| 374 | + if ($desc_exec['edition'] === false) { |
|
| 375 | + $fond = 'objet'; |
|
| 376 | + } else { |
|
| 377 | + $trouver_table = charger_fonction('trouver_table', 'base'); |
|
| 378 | + $desc = $trouver_table($table_sql); |
|
| 379 | + $fond = isset($desc['field']['id_rubrique']) ? 'objet_edit' : 'objet_edit.sans_rubrique'; |
|
| 380 | + } |
|
| 381 | + $dir = z_blocs(test_espace_prive()); |
|
| 382 | + $dir = reset($dir); |
|
| 383 | + $scaffold = "<INCLURE{fond=prive/echafaudage/$dir/" . $fond . ',objet=' . $type . ',id_objet=#' . strtoupper((string) $primary) . ',env}>'; |
|
| 384 | + } // page objets |
|
| 385 | + elseif (($type = $desc_exec) && !str_contains($type, '/')) { |
|
| 386 | + $dir = z_blocs(test_espace_prive()); |
|
| 387 | + $dir = reset($dir); |
|
| 388 | + $scaffold = "<INCLURE{fond=prive/echafaudage/$dir/objets,objet=" . $type . ',env} />'; |
|
| 389 | + } |
|
| 390 | + // morceau d'objet : on fournit le fond de sibstitution dans $desc_exec |
|
| 391 | + // et objet et tire de $table |
|
| 392 | + elseif ($fond = $desc_exec) { |
|
| 393 | + $dir = md5(dirname($fond)); |
|
| 394 | + $scaffold = "<INCLURE{fond=$fond,objet=" . objet_type($table) . ',env} />'; |
|
| 395 | + } |
|
| 396 | + |
|
| 397 | + $base_dir = sous_repertoire(_DIR_CACHE, 'scaffold', false); |
|
| 398 | + $base_dir = sous_repertoire($base_dir, $dir, false); |
|
| 399 | + $f = $base_dir . "$exec"; |
|
| 400 | + ecrire_fichier("$f.$ext", $scaffold); |
|
| 401 | + |
|
| 402 | + return $f; |
|
| 403 | 403 | } |
| 404 | 404 | |
| 405 | 405 | /** |
@@ -408,17 +408,17 @@ discard block |
||
| 408 | 408 | * @return bool|string |
| 409 | 409 | */ |
| 410 | 410 | function z_sanitize_var_zajax() { |
| 411 | - $z_ajax = _request('var_zajax'); |
|
| 412 | - if (!$z_ajax) { |
|
| 413 | - return false; |
|
| 414 | - } |
|
| 415 | - if ( |
|
| 416 | - !($z_blocs = z_blocs(test_espace_prive())) |
|
| 417 | - || !in_array($z_ajax, $z_blocs) |
|
| 418 | - ) { |
|
| 419 | - set_request('var_zajax'); // enlever cette demande incongrue |
|
| 420 | - $z_ajax = false; |
|
| 421 | - } |
|
| 422 | - |
|
| 423 | - return $z_ajax; |
|
| 411 | + $z_ajax = _request('var_zajax'); |
|
| 412 | + if (!$z_ajax) { |
|
| 413 | + return false; |
|
| 414 | + } |
|
| 415 | + if ( |
|
| 416 | + !($z_blocs = z_blocs(test_espace_prive())) |
|
| 417 | + || !in_array($z_ajax, $z_blocs) |
|
| 418 | + ) { |
|
| 419 | + set_request('var_zajax'); // enlever cette demande incongrue |
|
| 420 | + $z_ajax = false; |
|
| 421 | + } |
|
| 422 | + |
|
| 423 | + return $z_ajax; |
|
| 424 | 424 | } |
@@ -20,7 +20,7 @@ discard block |
||
| 20 | 20 | **/ |
| 21 | 21 | |
| 22 | 22 | if (!defined('_ECRIRE_INC_VERSION')) { |
| 23 | - return; |
|
| 23 | + return; |
|
| 24 | 24 | } |
| 25 | 25 | |
| 26 | 26 | /** |
@@ -46,12 +46,12 @@ discard block |
||
| 46 | 46 | **/ |
| 47 | 47 | function critere_racine_dist($idb, &$boucles, $crit) { |
| 48 | 48 | |
| 49 | - $not = $crit->not; |
|
| 50 | - $boucle = &$boucles[$idb]; |
|
| 51 | - $id_parent = $GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent'] ?? 'id_parent'; |
|
| 49 | + $not = $crit->not; |
|
| 50 | + $boucle = &$boucles[$idb]; |
|
| 51 | + $id_parent = $GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent'] ?? 'id_parent'; |
|
| 52 | 52 | |
| 53 | - $c = ["'='", "'$boucle->id_table." . "$id_parent'", 0]; |
|
| 54 | - $boucle->where[] = ($crit->not ? ["'NOT'", $c] : $c); |
|
| 53 | + $c = ["'='", "'$boucle->id_table." . "$id_parent'", 0]; |
|
| 54 | + $boucle->where[] = ($crit->not ? ["'NOT'", $c] : $c); |
|
| 55 | 55 | } |
| 56 | 56 | |
| 57 | 57 | |
@@ -68,15 +68,15 @@ discard block |
||
| 68 | 68 | * @return void|array |
| 69 | 69 | **/ |
| 70 | 70 | function critere_exclus_dist($idb, &$boucles, $crit) { |
| 71 | - $not = $crit->not; |
|
| 72 | - $boucle = &$boucles[$idb]; |
|
| 73 | - $id = $boucle->primary; |
|
| 74 | - |
|
| 75 | - if ($not || !$id) { |
|
| 76 | - return ['zbug_critere_inconnu', ['critere' => $not . $crit->op]]; |
|
| 77 | - } |
|
| 78 | - $arg = kwote(calculer_argument_precedent($idb, $id, $boucles)); |
|
| 79 | - $boucle->where[] = ["'!='", "'$boucle->id_table." . "$id'", $arg]; |
|
| 71 | + $not = $crit->not; |
|
| 72 | + $boucle = &$boucles[$idb]; |
|
| 73 | + $id = $boucle->primary; |
|
| 74 | + |
|
| 75 | + if ($not || !$id) { |
|
| 76 | + return ['zbug_critere_inconnu', ['critere' => $not . $crit->op]]; |
|
| 77 | + } |
|
| 78 | + $arg = kwote(calculer_argument_precedent($idb, $id, $boucles)); |
|
| 79 | + $boucle->where[] = ["'!='", "'$boucle->id_table." . "$id'", $arg]; |
|
| 80 | 80 | } |
| 81 | 81 | |
| 82 | 82 | |
@@ -96,73 +96,73 @@ discard block |
||
| 96 | 96 | * @return void|array |
| 97 | 97 | **/ |
| 98 | 98 | function critere_doublons_dist($idb, &$boucles, $crit) { |
| 99 | - $boucle = &$boucles[$idb]; |
|
| 100 | - $primary = $boucle->primary; |
|
| 101 | - |
|
| 102 | - // la table nécessite une clé primaire, non composée |
|
| 103 | - if (!$primary || strpos((string) $primary, ',')) { |
|
| 104 | - return ['zbug_doublon_sur_table_sans_cle_primaire']; |
|
| 105 | - } |
|
| 106 | - |
|
| 107 | - $not = ($crit->not ? '' : 'NOT'); |
|
| 108 | - |
|
| 109 | - // le doublon s'applique sur un type de boucle (article) |
|
| 110 | - $nom = "'" . $boucle->type_requete . "'"; |
|
| 111 | - |
|
| 112 | - // compléter le nom avec un nom précisé {doublons nom} |
|
| 113 | - // on obtient $nom = "'article' . 'nom'" |
|
| 114 | - if (isset($crit->param[0])) { |
|
| 115 | - $nom .= '.' . calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent); |
|
| 116 | - } |
|
| 117 | - |
|
| 118 | - // code qui déclarera l'index du stockage de nos doublons (pour éviter une notice PHP) |
|
| 119 | - $init_comment = "\n\n\t// Initialise le(s) critère(s) doublons\n"; |
|
| 120 | - $init_code = "\tif (!isset(\$doublons[\$d = $nom])) { \$doublons[\$d] = ''; }\n"; |
|
| 121 | - |
|
| 122 | - // on crée un sql_in avec la clé primaire de la table |
|
| 123 | - // et la collection des doublons déjà emmagasinés dans le tableau |
|
| 124 | - // $doublons et son index, ici $nom |
|
| 125 | - |
|
| 126 | - // debut du code "sql_in('articles.id_article', " |
|
| 127 | - $debut_in = "sql_in('" . $boucle->id_table . '.' . $primary . "', "; |
|
| 128 | - // lecture des données du doublon "$doublons[$doublon_index[] = " |
|
| 129 | - // Attention : boucle->doublons désigne une variable qu'on affecte |
|
| 130 | - $debut_doub = '$doublons[' . ($not ? $boucle->doublons . '[]= ' : ('')); |
|
| 131 | - |
|
| 132 | - // le debut complet du code des doublons |
|
| 133 | - $debut_doub = $debut_in . $debut_doub; |
|
| 134 | - |
|
| 135 | - // nom du doublon "('article' . 'nom')]" |
|
| 136 | - $fin_doub = "($nom)]"; |
|
| 137 | - |
|
| 138 | - // si on trouve un autre critère doublon, |
|
| 139 | - // on fusionne pour avoir un seul IN, et on s'en va ! |
|
| 140 | - foreach ($boucle->where as $k => $w) { |
|
| 141 | - if (str_starts_with((string) $w[0], $debut_doub)) { |
|
| 142 | - // fusionner le sql_in (du where) |
|
| 143 | - $boucle->where[$k][0] = $debut_doub . $fin_doub . ' . ' . substr((string) $w[0], strlen($debut_in)); |
|
| 144 | - // fusionner l'initialisation (du hash) pour faire plus joli |
|
| 145 | - $x = strpos((string) $boucle->hash, $init_comment); |
|
| 146 | - $len = strlen($init_comment); |
|
| 147 | - $boucle->hash = |
|
| 148 | - substr((string) $boucle->hash, 0, $x + $len) . $init_code . substr((string) $boucle->hash, $x + $len); |
|
| 149 | - |
|
| 150 | - return; |
|
| 151 | - } |
|
| 152 | - } |
|
| 153 | - |
|
| 154 | - // mettre l'ensemble dans un tableau pour que ce ne soit pas vu comme une constante |
|
| 155 | - $boucle->where[] = [$debut_doub . $fin_doub . ", '" . $not . "')"]; |
|
| 156 | - |
|
| 157 | - // déclarer le doublon s'il n'existe pas encore |
|
| 158 | - $boucle->hash .= $init_comment . $init_code; |
|
| 159 | - |
|
| 160 | - |
|
| 161 | - # la ligne suivante avait l'intention d'eviter une collecte deja faite |
|
| 162 | - # mais elle fait planter une boucle a 2 critere doublons: |
|
| 163 | - # {!doublons A}{doublons B} |
|
| 164 | - # (de http://article.gmane.org/gmane.comp.web.spip.devel/31034) |
|
| 165 | - # if ($crit->not) $boucle->doublons = ""; |
|
| 99 | + $boucle = &$boucles[$idb]; |
|
| 100 | + $primary = $boucle->primary; |
|
| 101 | + |
|
| 102 | + // la table nécessite une clé primaire, non composée |
|
| 103 | + if (!$primary || strpos((string) $primary, ',')) { |
|
| 104 | + return ['zbug_doublon_sur_table_sans_cle_primaire']; |
|
| 105 | + } |
|
| 106 | + |
|
| 107 | + $not = ($crit->not ? '' : 'NOT'); |
|
| 108 | + |
|
| 109 | + // le doublon s'applique sur un type de boucle (article) |
|
| 110 | + $nom = "'" . $boucle->type_requete . "'"; |
|
| 111 | + |
|
| 112 | + // compléter le nom avec un nom précisé {doublons nom} |
|
| 113 | + // on obtient $nom = "'article' . 'nom'" |
|
| 114 | + if (isset($crit->param[0])) { |
|
| 115 | + $nom .= '.' . calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent); |
|
| 116 | + } |
|
| 117 | + |
|
| 118 | + // code qui déclarera l'index du stockage de nos doublons (pour éviter une notice PHP) |
|
| 119 | + $init_comment = "\n\n\t// Initialise le(s) critère(s) doublons\n"; |
|
| 120 | + $init_code = "\tif (!isset(\$doublons[\$d = $nom])) { \$doublons[\$d] = ''; }\n"; |
|
| 121 | + |
|
| 122 | + // on crée un sql_in avec la clé primaire de la table |
|
| 123 | + // et la collection des doublons déjà emmagasinés dans le tableau |
|
| 124 | + // $doublons et son index, ici $nom |
|
| 125 | + |
|
| 126 | + // debut du code "sql_in('articles.id_article', " |
|
| 127 | + $debut_in = "sql_in('" . $boucle->id_table . '.' . $primary . "', "; |
|
| 128 | + // lecture des données du doublon "$doublons[$doublon_index[] = " |
|
| 129 | + // Attention : boucle->doublons désigne une variable qu'on affecte |
|
| 130 | + $debut_doub = '$doublons[' . ($not ? $boucle->doublons . '[]= ' : ('')); |
|
| 131 | + |
|
| 132 | + // le debut complet du code des doublons |
|
| 133 | + $debut_doub = $debut_in . $debut_doub; |
|
| 134 | + |
|
| 135 | + // nom du doublon "('article' . 'nom')]" |
|
| 136 | + $fin_doub = "($nom)]"; |
|
| 137 | + |
|
| 138 | + // si on trouve un autre critère doublon, |
|
| 139 | + // on fusionne pour avoir un seul IN, et on s'en va ! |
|
| 140 | + foreach ($boucle->where as $k => $w) { |
|
| 141 | + if (str_starts_with((string) $w[0], $debut_doub)) { |
|
| 142 | + // fusionner le sql_in (du where) |
|
| 143 | + $boucle->where[$k][0] = $debut_doub . $fin_doub . ' . ' . substr((string) $w[0], strlen($debut_in)); |
|
| 144 | + // fusionner l'initialisation (du hash) pour faire plus joli |
|
| 145 | + $x = strpos((string) $boucle->hash, $init_comment); |
|
| 146 | + $len = strlen($init_comment); |
|
| 147 | + $boucle->hash = |
|
| 148 | + substr((string) $boucle->hash, 0, $x + $len) . $init_code . substr((string) $boucle->hash, $x + $len); |
|
| 149 | + |
|
| 150 | + return; |
|
| 151 | + } |
|
| 152 | + } |
|
| 153 | + |
|
| 154 | + // mettre l'ensemble dans un tableau pour que ce ne soit pas vu comme une constante |
|
| 155 | + $boucle->where[] = [$debut_doub . $fin_doub . ", '" . $not . "')"]; |
|
| 156 | + |
|
| 157 | + // déclarer le doublon s'il n'existe pas encore |
|
| 158 | + $boucle->hash .= $init_comment . $init_code; |
|
| 159 | + |
|
| 160 | + |
|
| 161 | + # la ligne suivante avait l'intention d'eviter une collecte deja faite |
|
| 162 | + # mais elle fait planter une boucle a 2 critere doublons: |
|
| 163 | + # {!doublons A}{doublons B} |
|
| 164 | + # (de http://article.gmane.org/gmane.comp.web.spip.devel/31034) |
|
| 165 | + # if ($crit->not) $boucle->doublons = ""; |
|
| 166 | 166 | } |
| 167 | 167 | |
| 168 | 168 | |
@@ -183,14 +183,14 @@ discard block |
||
| 183 | 183 | * @return void |
| 184 | 184 | **/ |
| 185 | 185 | function critere_lang_select_dist($idb, &$boucles, $crit) { |
| 186 | - if (!isset($crit->param[1][0]) || !($param = $crit->param[1][0]->texte)) { |
|
| 187 | - $param = 'oui'; |
|
| 188 | - } |
|
| 189 | - if ($crit->not) { |
|
| 190 | - $param = ($param == 'oui') ? 'non' : 'oui'; |
|
| 191 | - } |
|
| 192 | - $boucle = &$boucles[$idb]; |
|
| 193 | - $boucle->lang_select = $param; |
|
| 186 | + if (!isset($crit->param[1][0]) || !($param = $crit->param[1][0]->texte)) { |
|
| 187 | + $param = 'oui'; |
|
| 188 | + } |
|
| 189 | + if ($crit->not) { |
|
| 190 | + $param = ($param == 'oui') ? 'non' : 'oui'; |
|
| 191 | + } |
|
| 192 | + $boucle = &$boucles[$idb]; |
|
| 193 | + $boucle->lang_select = $param; |
|
| 194 | 194 | } |
| 195 | 195 | |
| 196 | 196 | |
@@ -212,15 +212,15 @@ discard block |
||
| 212 | 212 | * @return void |
| 213 | 213 | **/ |
| 214 | 214 | function critere_debut_dist($idb, &$boucles, $crit) { |
| 215 | - [$un, $deux] = $crit->param; |
|
| 216 | - $un = $un[0]->texte; |
|
| 217 | - $deux = $deux[0]->texte; |
|
| 218 | - if ($deux) { |
|
| 219 | - $boucles[$idb]->limit = |
|
| 220 | - 'intval($Pile[0]["debut' . $un . '"]) . ",' . $deux . '"'; |
|
| 221 | - } else { |
|
| 222 | - calculer_critere_DEFAUT_dist($idb, $boucles, $crit); |
|
| 223 | - } |
|
| 215 | + [$un, $deux] = $crit->param; |
|
| 216 | + $un = $un[0]->texte; |
|
| 217 | + $deux = $deux[0]->texte; |
|
| 218 | + if ($deux) { |
|
| 219 | + $boucles[$idb]->limit = |
|
| 220 | + 'intval($Pile[0]["debut' . $un . '"]) . ",' . $deux . '"'; |
|
| 221 | + } else { |
|
| 222 | + calculer_critere_DEFAUT_dist($idb, $boucles, $crit); |
|
| 223 | + } |
|
| 224 | 224 | } |
| 225 | 225 | |
| 226 | 226 | |
@@ -254,59 +254,59 @@ discard block |
||
| 254 | 254 | **/ |
| 255 | 255 | function critere_pagination_dist($idb, &$boucles, $crit) { |
| 256 | 256 | |
| 257 | - $boucle = &$boucles[$idb]; |
|
| 258 | - // definition de la taille de la page |
|
| 259 | - $pas = isset($crit->param[0][0]) |
|
| 260 | - ? calculer_liste([$crit->param[0][0]], $idb, $boucles, $boucle->id_parent) |
|
| 261 | - : "''"; |
|
| 262 | - |
|
| 263 | - if (!preg_match(_CODE_QUOTE, (string) $pas, $r)) { |
|
| 264 | - $pas = "((\$a = intval($pas)) ? \$a : 10)"; |
|
| 265 | - } else { |
|
| 266 | - $r = (int) $r[2]; |
|
| 267 | - $pas = (string) ($r ?: 10); |
|
| 268 | - } |
|
| 269 | - |
|
| 270 | - // Calcul du nommage de la pagination si il existe. |
|
| 271 | - // La nouvelle syntaxe {pagination 20, nom} est prise en compte et privilégiée mais on reste |
|
| 272 | - // compatible avec l'ancienne car certains cas fonctionnent correctement |
|
| 273 | - $type = "'$idb'"; |
|
| 274 | - // Calcul d'un nommage spécifique de la pagination si précisé. |
|
| 275 | - // Syntaxe {pagination 20, nom} |
|
| 276 | - if (isset($crit->param[0][1])) { |
|
| 277 | - $type = calculer_liste([$crit->param[0][1]], $idb, $boucles, $boucle->id_parent); |
|
| 278 | - } // Ancienne syntaxe {pagination 20 nom} pour compatibilité |
|
| 279 | - elseif (isset($crit->param[1][0])) { |
|
| 280 | - $type = calculer_liste([$crit->param[1][0]], $idb, $boucles, $boucle->id_parent); |
|
| 281 | - } |
|
| 282 | - |
|
| 283 | - $debut = ($type[0] !== "'") ? "'debut'.$type" : ("'debut" . substr((string) $type, 1)); |
|
| 284 | - $boucle->modificateur['debut_nom'] = $type; |
|
| 285 | - $partie = |
|
| 286 | - // tester si le numero de page demande est de la forme '@yyy' |
|
| 287 | - 'isset($Pile[0][' . $debut . ']) ? $Pile[0][' . $debut . '] : _request(' . $debut . ");\n" |
|
| 288 | - . "\tif (\$debut_boucle && \$debut_boucle[0] === '@') {\n" |
|
| 289 | - . "\t\t" . '$debut_boucle = $Pile[0][' . $debut . '] = quete_debut_pagination(\'' . $boucle->primary . '\',$Pile[0][\'@' . $boucle->primary . '\'] = substr($debut_boucle,1),' . $pas . ',$iter);' . "\n" |
|
| 290 | - . "\t\t" . '$iter->seek(0);' . "\n" |
|
| 291 | - . "\t}\n" |
|
| 292 | - . "\t" . '$debut_boucle = intval($debut_boucle)'; |
|
| 293 | - |
|
| 294 | - $boucle->hash .= ' |
|
| 257 | + $boucle = &$boucles[$idb]; |
|
| 258 | + // definition de la taille de la page |
|
| 259 | + $pas = isset($crit->param[0][0]) |
|
| 260 | + ? calculer_liste([$crit->param[0][0]], $idb, $boucles, $boucle->id_parent) |
|
| 261 | + : "''"; |
|
| 262 | + |
|
| 263 | + if (!preg_match(_CODE_QUOTE, (string) $pas, $r)) { |
|
| 264 | + $pas = "((\$a = intval($pas)) ? \$a : 10)"; |
|
| 265 | + } else { |
|
| 266 | + $r = (int) $r[2]; |
|
| 267 | + $pas = (string) ($r ?: 10); |
|
| 268 | + } |
|
| 269 | + |
|
| 270 | + // Calcul du nommage de la pagination si il existe. |
|
| 271 | + // La nouvelle syntaxe {pagination 20, nom} est prise en compte et privilégiée mais on reste |
|
| 272 | + // compatible avec l'ancienne car certains cas fonctionnent correctement |
|
| 273 | + $type = "'$idb'"; |
|
| 274 | + // Calcul d'un nommage spécifique de la pagination si précisé. |
|
| 275 | + // Syntaxe {pagination 20, nom} |
|
| 276 | + if (isset($crit->param[0][1])) { |
|
| 277 | + $type = calculer_liste([$crit->param[0][1]], $idb, $boucles, $boucle->id_parent); |
|
| 278 | + } // Ancienne syntaxe {pagination 20 nom} pour compatibilité |
|
| 279 | + elseif (isset($crit->param[1][0])) { |
|
| 280 | + $type = calculer_liste([$crit->param[1][0]], $idb, $boucles, $boucle->id_parent); |
|
| 281 | + } |
|
| 282 | + |
|
| 283 | + $debut = ($type[0] !== "'") ? "'debut'.$type" : ("'debut" . substr((string) $type, 1)); |
|
| 284 | + $boucle->modificateur['debut_nom'] = $type; |
|
| 285 | + $partie = |
|
| 286 | + // tester si le numero de page demande est de la forme '@yyy' |
|
| 287 | + 'isset($Pile[0][' . $debut . ']) ? $Pile[0][' . $debut . '] : _request(' . $debut . ");\n" |
|
| 288 | + . "\tif (\$debut_boucle && \$debut_boucle[0] === '@') {\n" |
|
| 289 | + . "\t\t" . '$debut_boucle = $Pile[0][' . $debut . '] = quete_debut_pagination(\'' . $boucle->primary . '\',$Pile[0][\'@' . $boucle->primary . '\'] = substr($debut_boucle,1),' . $pas . ',$iter);' . "\n" |
|
| 290 | + . "\t\t" . '$iter->seek(0);' . "\n" |
|
| 291 | + . "\t}\n" |
|
| 292 | + . "\t" . '$debut_boucle = intval($debut_boucle)'; |
|
| 293 | + |
|
| 294 | + $boucle->hash .= ' |
|
| 295 | 295 | $command[\'pagination\'] = array((isset($Pile[0][' . $debut . ']) ? $Pile[0][' . $debut . '] : null), ' . $pas . ');'; |
| 296 | 296 | |
| 297 | - $boucle->total_parties = $pas; |
|
| 298 | - calculer_parties($boucles, $idb, $partie, 'p+'); |
|
| 299 | - // ajouter la cle primaire dans le select pour pouvoir gerer la pagination referencee par @id |
|
| 300 | - // sauf si pas de primaire, ou si primaire composee |
|
| 301 | - // dans ce cas, on ne sait pas gerer une pagination indirecte |
|
| 302 | - $t = $boucle->id_table . '.' . $boucle->primary; |
|
| 303 | - if ( |
|
| 304 | - $boucle->primary |
|
| 305 | - && !preg_match('/[,\s]/', (string) $boucle->primary) |
|
| 306 | - && !in_array($t, $boucle->select) |
|
| 307 | - ) { |
|
| 308 | - $boucle->select[] = $t; |
|
| 309 | - } |
|
| 297 | + $boucle->total_parties = $pas; |
|
| 298 | + calculer_parties($boucles, $idb, $partie, 'p+'); |
|
| 299 | + // ajouter la cle primaire dans le select pour pouvoir gerer la pagination referencee par @id |
|
| 300 | + // sauf si pas de primaire, ou si primaire composee |
|
| 301 | + // dans ce cas, on ne sait pas gerer une pagination indirecte |
|
| 302 | + $t = $boucle->id_table . '.' . $boucle->primary; |
|
| 303 | + if ( |
|
| 304 | + $boucle->primary |
|
| 305 | + && !preg_match('/[,\s]/', (string) $boucle->primary) |
|
| 306 | + && !in_array($t, $boucle->select) |
|
| 307 | + ) { |
|
| 308 | + $boucle->select[] = $t; |
|
| 309 | + } |
|
| 310 | 310 | } |
| 311 | 311 | |
| 312 | 312 | |
@@ -328,24 +328,24 @@ discard block |
||
| 328 | 328 | **/ |
| 329 | 329 | function critere_recherche_dist($idb, &$boucles, $crit) { |
| 330 | 330 | |
| 331 | - $boucle = &$boucles[$idb]; |
|
| 331 | + $boucle = &$boucles[$idb]; |
|
| 332 | 332 | |
| 333 | - if (!$boucle->primary || strpos((string) $boucle->primary, ',')) { |
|
| 334 | - erreur_squelette(_T('zbug_critere_sur_table_sans_cle_primaire', ['critere' => 'recherche']), $boucle); |
|
| 333 | + if (!$boucle->primary || strpos((string) $boucle->primary, ',')) { |
|
| 334 | + erreur_squelette(_T('zbug_critere_sur_table_sans_cle_primaire', ['critere' => 'recherche']), $boucle); |
|
| 335 | 335 | |
| 336 | - return; |
|
| 337 | - } |
|
| 336 | + return; |
|
| 337 | + } |
|
| 338 | 338 | |
| 339 | - if (isset($crit->param[0])) { |
|
| 340 | - $quoi = calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent); |
|
| 341 | - } else { |
|
| 342 | - $quoi = '(isset($Pile[0]["recherche"])?$Pile[0]["recherche"]:(isset($GLOBALS["recherche"])?$GLOBALS["recherche"]:""))'; |
|
| 343 | - } |
|
| 339 | + if (isset($crit->param[0])) { |
|
| 340 | + $quoi = calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent); |
|
| 341 | + } else { |
|
| 342 | + $quoi = '(isset($Pile[0]["recherche"])?$Pile[0]["recherche"]:(isset($GLOBALS["recherche"])?$GLOBALS["recherche"]:""))'; |
|
| 343 | + } |
|
| 344 | 344 | |
| 345 | - $_modificateur = var_export($boucle->modificateur, true); |
|
| 346 | - $boucle->hash .= ' |
|
| 345 | + $_modificateur = var_export($boucle->modificateur, true); |
|
| 346 | + $boucle->hash .= ' |
|
| 347 | 347 | // RECHERCHE' |
| 348 | - . ($crit->cond ? ' |
|
| 348 | + . ($crit->cond ? ' |
|
| 349 | 349 | if (!strlen(' . $quoi . ')){ |
| 350 | 350 | list($rech_select, $rech_where) = array("0 as points",""); |
| 351 | 351 | } else' : '') . ' |
@@ -356,21 +356,21 @@ discard block |
||
| 356 | 356 | '; |
| 357 | 357 | |
| 358 | 358 | |
| 359 | - $t = $boucle->id_table . '.' . $boucle->primary; |
|
| 360 | - if (!in_array($t, $boucles[$idb]->select)) { |
|
| 361 | - $boucle->select[] = $t; |
|
| 362 | - } # pour postgres, neuneu ici |
|
| 363 | - // jointure uniquement sur le serveur principal |
|
| 364 | - // (on ne peut joindre une table d'un serveur distant avec la table des resultats du serveur principal) |
|
| 365 | - if (!$boucle->sql_serveur) { |
|
| 366 | - $boucle->join['resultats'] = ["'" . $boucle->id_table . "'", "'id'", "'" . $boucle->primary . "'"]; |
|
| 367 | - $boucle->from['resultats'] = 'spip_resultats'; |
|
| 368 | - } |
|
| 369 | - $boucle->select[] = '$rech_select'; |
|
| 370 | - //$boucle->where[]= "\$rech_where?'resultats.id=".$boucle->id_table.".".$boucle->primary."':''"; |
|
| 371 | - |
|
| 372 | - // et la recherche trouve |
|
| 373 | - $boucle->where[] = '$rech_where?$rech_where:\'\''; |
|
| 359 | + $t = $boucle->id_table . '.' . $boucle->primary; |
|
| 360 | + if (!in_array($t, $boucles[$idb]->select)) { |
|
| 361 | + $boucle->select[] = $t; |
|
| 362 | + } # pour postgres, neuneu ici |
|
| 363 | + // jointure uniquement sur le serveur principal |
|
| 364 | + // (on ne peut joindre une table d'un serveur distant avec la table des resultats du serveur principal) |
|
| 365 | + if (!$boucle->sql_serveur) { |
|
| 366 | + $boucle->join['resultats'] = ["'" . $boucle->id_table . "'", "'id'", "'" . $boucle->primary . "'"]; |
|
| 367 | + $boucle->from['resultats'] = 'spip_resultats'; |
|
| 368 | + } |
|
| 369 | + $boucle->select[] = '$rech_select'; |
|
| 370 | + //$boucle->where[]= "\$rech_where?'resultats.id=".$boucle->id_table.".".$boucle->primary."':''"; |
|
| 371 | + |
|
| 372 | + // et la recherche trouve |
|
| 373 | + $boucle->where[] = '$rech_where?$rech_where:\'\''; |
|
| 374 | 374 | } |
| 375 | 375 | |
| 376 | 376 | /** |
@@ -387,25 +387,25 @@ discard block |
||
| 387 | 387 | * @return void |
| 388 | 388 | **/ |
| 389 | 389 | function critere_traduction_dist($idb, &$boucles, $crit) { |
| 390 | - $boucle = &$boucles[$idb]; |
|
| 391 | - $prim = $boucle->primary; |
|
| 392 | - $table = $boucle->id_table; |
|
| 393 | - $arg = kwote(calculer_argument_precedent($idb, 'id_trad', $boucles)); |
|
| 394 | - $dprim = kwote(calculer_argument_precedent($idb, $prim, $boucles)); |
|
| 395 | - $boucle->where[] = |
|
| 396 | - [ |
|
| 397 | - "'OR'", |
|
| 398 | - [ |
|
| 399 | - "'AND'", |
|
| 400 | - ["'='", "'$table.id_trad'", 0], |
|
| 401 | - ["'='", "'$table.$prim'", $dprim] |
|
| 402 | - ], |
|
| 403 | - [ |
|
| 404 | - "'AND'", |
|
| 405 | - ["'>'", "'$table.id_trad'", 0], |
|
| 406 | - ["'='", "'$table.id_trad'", $arg] |
|
| 407 | - ] |
|
| 408 | - ]; |
|
| 390 | + $boucle = &$boucles[$idb]; |
|
| 391 | + $prim = $boucle->primary; |
|
| 392 | + $table = $boucle->id_table; |
|
| 393 | + $arg = kwote(calculer_argument_precedent($idb, 'id_trad', $boucles)); |
|
| 394 | + $dprim = kwote(calculer_argument_precedent($idb, $prim, $boucles)); |
|
| 395 | + $boucle->where[] = |
|
| 396 | + [ |
|
| 397 | + "'OR'", |
|
| 398 | + [ |
|
| 399 | + "'AND'", |
|
| 400 | + ["'='", "'$table.id_trad'", 0], |
|
| 401 | + ["'='", "'$table.$prim'", $dprim] |
|
| 402 | + ], |
|
| 403 | + [ |
|
| 404 | + "'AND'", |
|
| 405 | + ["'>'", "'$table.id_trad'", 0], |
|
| 406 | + ["'='", "'$table.id_trad'", $arg] |
|
| 407 | + ] |
|
| 408 | + ]; |
|
| 409 | 409 | } |
| 410 | 410 | |
| 411 | 411 | |
@@ -423,17 +423,17 @@ discard block |
||
| 423 | 423 | * @return void |
| 424 | 424 | **/ |
| 425 | 425 | function critere_origine_traduction_dist($idb, &$boucles, $crit) { |
| 426 | - $boucle = &$boucles[$idb]; |
|
| 427 | - $prim = $boucle->primary; |
|
| 428 | - $table = $boucle->id_table; |
|
| 429 | - |
|
| 430 | - $c = |
|
| 431 | - [ |
|
| 432 | - "'OR'", |
|
| 433 | - ["'='", "'$table." . "id_trad'", "'$table.$prim'"], |
|
| 434 | - ["'='", "'$table.id_trad'", "'0'"] |
|
| 435 | - ]; |
|
| 436 | - $boucle->where[] = ($crit->not ? ["'NOT'", $c] : $c); |
|
| 426 | + $boucle = &$boucles[$idb]; |
|
| 427 | + $prim = $boucle->primary; |
|
| 428 | + $table = $boucle->id_table; |
|
| 429 | + |
|
| 430 | + $c = |
|
| 431 | + [ |
|
| 432 | + "'OR'", |
|
| 433 | + ["'='", "'$table." . "id_trad'", "'$table.$prim'"], |
|
| 434 | + ["'='", "'$table.id_trad'", "'0'"] |
|
| 435 | + ]; |
|
| 436 | + $boucle->where[] = ($crit->not ? ["'NOT'", $c] : $c); |
|
| 437 | 437 | } |
| 438 | 438 | |
| 439 | 439 | |
@@ -450,17 +450,17 @@ discard block |
||
| 450 | 450 | **/ |
| 451 | 451 | function critere_meme_parent_dist($idb, &$boucles, $crit) { |
| 452 | 452 | |
| 453 | - $boucle = &$boucles[$idb]; |
|
| 454 | - $arg = kwote(calculer_argument_precedent($idb, 'id_parent', $boucles)); |
|
| 455 | - $id_parent = $GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent'] ?? 'id_parent'; |
|
| 456 | - $mparent = $boucle->id_table . '.' . $id_parent; |
|
| 457 | - |
|
| 458 | - if ($boucle->type_requete == 'rubriques' || isset($GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent'])) { |
|
| 459 | - $boucle->where[] = ["'='", "'$mparent'", $arg]; |
|
| 460 | - } // le cas FORUMS est gere dans le plugin forum, dans la fonction critere_FORUMS_meme_parent_dist() |
|
| 461 | - else { |
|
| 462 | - return ['zbug_critere_inconnu', ['critere' => $crit->op . ' ' . $boucle->type_requete]]; |
|
| 463 | - } |
|
| 453 | + $boucle = &$boucles[$idb]; |
|
| 454 | + $arg = kwote(calculer_argument_precedent($idb, 'id_parent', $boucles)); |
|
| 455 | + $id_parent = $GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent'] ?? 'id_parent'; |
|
| 456 | + $mparent = $boucle->id_table . '.' . $id_parent; |
|
| 457 | + |
|
| 458 | + if ($boucle->type_requete == 'rubriques' || isset($GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent'])) { |
|
| 459 | + $boucle->where[] = ["'='", "'$mparent'", $arg]; |
|
| 460 | + } // le cas FORUMS est gere dans le plugin forum, dans la fonction critere_FORUMS_meme_parent_dist() |
|
| 461 | + else { |
|
| 462 | + return ['zbug_critere_inconnu', ['critere' => $crit->op . ' ' . $boucle->type_requete]]; |
|
| 463 | + } |
|
| 464 | 464 | } |
| 465 | 465 | |
| 466 | 466 | |
@@ -491,38 +491,38 @@ discard block |
||
| 491 | 491 | **/ |
| 492 | 492 | function critere_branche_dist($idb, &$boucles, $crit) { |
| 493 | 493 | |
| 494 | - $not = $crit->not; |
|
| 495 | - $boucle = &$boucles[$idb]; |
|
| 496 | - // prendre en priorite un identifiant en parametre {branche XX} |
|
| 497 | - if (isset($crit->param[0])) { |
|
| 498 | - $arg = calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent); |
|
| 499 | - // sinon on le prend chez une boucle parente |
|
| 500 | - } else { |
|
| 501 | - $arg = kwote(calculer_argument_precedent($idb, 'id_rubrique', $boucles), $boucle->sql_serveur, 'int NOT NULL'); |
|
| 502 | - } |
|
| 503 | - |
|
| 504 | - //Trouver une jointure |
|
| 505 | - $champ = 'id_rubrique'; |
|
| 506 | - $desc = $boucle->show; |
|
| 507 | - //Seulement si necessaire |
|
| 508 | - if (!array_key_exists($champ, $desc['field'])) { |
|
| 509 | - $cle = trouver_jointure_champ($champ, $boucle); |
|
| 510 | - $trouver_table = charger_fonction('trouver_table', 'base'); |
|
| 511 | - $desc = $trouver_table($boucle->from[$cle]); |
|
| 512 | - if (count(trouver_champs_decomposes($champ, $desc)) > 1) { |
|
| 513 | - $decompose = decompose_champ_id_objet($champ); |
|
| 514 | - $champ = array_shift($decompose); |
|
| 515 | - $boucle->where[] = ["'='", _q($cle . '.' . reset($decompose)), '"' . sql_quote(end($decompose)) . '"']; |
|
| 516 | - } |
|
| 517 | - } else { |
|
| 518 | - $cle = $boucle->id_table; |
|
| 519 | - } |
|
| 520 | - |
|
| 521 | - $c = "sql_in('$cle" . ".$champ', calcul_branche_in($arg)" |
|
| 522 | - . ($not ? ", 'NOT'" : '') . ')'; |
|
| 523 | - $boucle->where[] = $crit->cond |
|
| 524 | - ? "($arg ? $c : " . ($not ? "'0=1'" : "'1=1'") . ')' |
|
| 525 | - : $c; |
|
| 494 | + $not = $crit->not; |
|
| 495 | + $boucle = &$boucles[$idb]; |
|
| 496 | + // prendre en priorite un identifiant en parametre {branche XX} |
|
| 497 | + if (isset($crit->param[0])) { |
|
| 498 | + $arg = calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent); |
|
| 499 | + // sinon on le prend chez une boucle parente |
|
| 500 | + } else { |
|
| 501 | + $arg = kwote(calculer_argument_precedent($idb, 'id_rubrique', $boucles), $boucle->sql_serveur, 'int NOT NULL'); |
|
| 502 | + } |
|
| 503 | + |
|
| 504 | + //Trouver une jointure |
|
| 505 | + $champ = 'id_rubrique'; |
|
| 506 | + $desc = $boucle->show; |
|
| 507 | + //Seulement si necessaire |
|
| 508 | + if (!array_key_exists($champ, $desc['field'])) { |
|
| 509 | + $cle = trouver_jointure_champ($champ, $boucle); |
|
| 510 | + $trouver_table = charger_fonction('trouver_table', 'base'); |
|
| 511 | + $desc = $trouver_table($boucle->from[$cle]); |
|
| 512 | + if (count(trouver_champs_decomposes($champ, $desc)) > 1) { |
|
| 513 | + $decompose = decompose_champ_id_objet($champ); |
|
| 514 | + $champ = array_shift($decompose); |
|
| 515 | + $boucle->where[] = ["'='", _q($cle . '.' . reset($decompose)), '"' . sql_quote(end($decompose)) . '"']; |
|
| 516 | + } |
|
| 517 | + } else { |
|
| 518 | + $cle = $boucle->id_table; |
|
| 519 | + } |
|
| 520 | + |
|
| 521 | + $c = "sql_in('$cle" . ".$champ', calcul_branche_in($arg)" |
|
| 522 | + . ($not ? ", 'NOT'" : '') . ')'; |
|
| 523 | + $boucle->where[] = $crit->cond |
|
| 524 | + ? "($arg ? $c : " . ($not ? "'0=1'" : "'1=1'") . ')' |
|
| 525 | + : $c; |
|
| 526 | 526 | } |
| 527 | 527 | |
| 528 | 528 | /** |
@@ -538,15 +538,15 @@ discard block |
||
| 538 | 538 | **/ |
| 539 | 539 | function critere_logo_dist($idb, &$boucles, $crit) { |
| 540 | 540 | |
| 541 | - $boucle = &$boucles[$idb]; |
|
| 542 | - $not = ($crit->not ? 'NOT' : ''); |
|
| 543 | - $serveur = $boucle->sql_serveur; |
|
| 541 | + $boucle = &$boucles[$idb]; |
|
| 542 | + $not = ($crit->not ? 'NOT' : ''); |
|
| 543 | + $serveur = $boucle->sql_serveur; |
|
| 544 | 544 | |
| 545 | - $c = "sql_in('" . |
|
| 546 | - $boucle->id_table . '.' . $boucle->primary |
|
| 547 | - . "', lister_objets_avec_logos('" . $boucle->primary . "'), '$not', '$serveur')"; |
|
| 545 | + $c = "sql_in('" . |
|
| 546 | + $boucle->id_table . '.' . $boucle->primary |
|
| 547 | + . "', lister_objets_avec_logos('" . $boucle->primary . "'), '$not', '$serveur')"; |
|
| 548 | 548 | |
| 549 | - $boucle->where[] = $c; |
|
| 549 | + $boucle->where[] = $c; |
|
| 550 | 550 | } |
| 551 | 551 | |
| 552 | 552 | /** |
@@ -569,31 +569,31 @@ discard block |
||
| 569 | 569 | * @return void|array |
| 570 | 570 | */ |
| 571 | 571 | function critere_groupby_dist($idb, &$boucles, $crit) { |
| 572 | - if ($t = isset($crit->param[0])) { |
|
| 573 | - $t = $crit->param[0]; |
|
| 574 | - if ($t[0]->type == 'texte') { |
|
| 575 | - $t = $t[0]->texte; |
|
| 576 | - if (preg_match('/^(.*)\.(.*)$/', (string) $t, $r)) { |
|
| 577 | - $t = table_objet_sql($r[1]); |
|
| 578 | - $t = array_search($t, $boucles[$idb]->from); |
|
| 579 | - if ($t) { |
|
| 580 | - $t .= '.' . $r[2]; |
|
| 581 | - } |
|
| 582 | - } |
|
| 583 | - } else { |
|
| 584 | - $t = '".' |
|
| 585 | - . calculer_critere_arg_dynamique($idb, $boucles, $t) |
|
| 586 | - . '."'; |
|
| 587 | - } |
|
| 588 | - } |
|
| 589 | - if ($t) { |
|
| 590 | - $boucles[$idb]->group[] = $t; |
|
| 591 | - if (!in_array($t, $boucles[$idb]->select)) { |
|
| 592 | - $boucles[$idb]->select[] = $t; |
|
| 593 | - } |
|
| 594 | - } else { |
|
| 595 | - return ['zbug_critere_inconnu', ['critere' => $crit->op . ' ?']]; |
|
| 596 | - } |
|
| 572 | + if ($t = isset($crit->param[0])) { |
|
| 573 | + $t = $crit->param[0]; |
|
| 574 | + if ($t[0]->type == 'texte') { |
|
| 575 | + $t = $t[0]->texte; |
|
| 576 | + if (preg_match('/^(.*)\.(.*)$/', (string) $t, $r)) { |
|
| 577 | + $t = table_objet_sql($r[1]); |
|
| 578 | + $t = array_search($t, $boucles[$idb]->from); |
|
| 579 | + if ($t) { |
|
| 580 | + $t .= '.' . $r[2]; |
|
| 581 | + } |
|
| 582 | + } |
|
| 583 | + } else { |
|
| 584 | + $t = '".' |
|
| 585 | + . calculer_critere_arg_dynamique($idb, $boucles, $t) |
|
| 586 | + . '."'; |
|
| 587 | + } |
|
| 588 | + } |
|
| 589 | + if ($t) { |
|
| 590 | + $boucles[$idb]->group[] = $t; |
|
| 591 | + if (!in_array($t, $boucles[$idb]->select)) { |
|
| 592 | + $boucles[$idb]->select[] = $t; |
|
| 593 | + } |
|
| 594 | + } else { |
|
| 595 | + return ['zbug_critere_inconnu', ['critere' => $crit->op . ' ?']]; |
|
| 596 | + } |
|
| 597 | 597 | } |
| 598 | 598 | |
| 599 | 599 | /** |
@@ -616,7 +616,7 @@ discard block |
||
| 616 | 616 | * @return void |
| 617 | 617 | */ |
| 618 | 618 | function critere_groupby_supprimer_dist($idb, &$boucles, $crit): void { |
| 619 | - $boucles[$idb]->group = []; |
|
| 619 | + $boucles[$idb]->group = []; |
|
| 620 | 620 | } |
| 621 | 621 | |
| 622 | 622 | /** |
@@ -630,8 +630,8 @@ discard block |
||
| 630 | 630 | * @return void|array |
| 631 | 631 | */ |
| 632 | 632 | function critere_fusion_dist(...$args) { |
| 633 | - trigger_deprecation('spip', '5.0', 'Using "%s" criteria is deprecated, use "%s" criteria instead', 'fusion', 'groupby'); |
|
| 634 | - return critere_groupby_dist(...$args); |
|
| 633 | + trigger_deprecation('spip', '5.0', 'Using "%s" criteria is deprecated, use "%s" criteria instead', 'fusion', 'groupby'); |
|
| 634 | + return critere_groupby_dist(...$args); |
|
| 635 | 635 | } |
| 636 | 636 | |
| 637 | 637 | /** |
@@ -644,8 +644,8 @@ discard block |
||
| 644 | 644 | * @param Critere $crit Paramètres du critère dans cette boucle |
| 645 | 645 | */ |
| 646 | 646 | function critere_fusion_supprimer_dist(...$args): void { |
| 647 | - trigger_deprecation('spip', '5.0', 'Using "%s" criteria is deprecated, use "%s" criteria instead', 'fusion_supprimer', 'groupby_supprimer'); |
|
| 648 | - critere_groupby_supprimer_dist(...$args); |
|
| 647 | + trigger_deprecation('spip', '5.0', 'Using "%s" criteria is deprecated, use "%s" criteria instead', 'fusion_supprimer', 'groupby_supprimer'); |
|
| 648 | + critere_groupby_supprimer_dist(...$args); |
|
| 649 | 649 | } |
| 650 | 650 | |
| 651 | 651 | /** |
@@ -683,26 +683,26 @@ discard block |
||
| 683 | 683 | * @return void|array |
| 684 | 684 | */ |
| 685 | 685 | function critere_collate_dist($idb, &$boucles, $crit) { |
| 686 | - if (isset($crit->param[0])) { |
|
| 687 | - $_coll = calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent); |
|
| 688 | - $boucle = $boucles[$idb]; |
|
| 689 | - $boucle->modificateur['collate'] = "($_coll ?' COLLATE '.$_coll:'')"; |
|
| 690 | - $n = is_countable($boucle->order) ? count($boucle->order) : 0; |
|
| 691 | - if ($n && (!str_contains((string) $boucle->order[$n - 1], 'COLLATE'))) { |
|
| 692 | - // l'instruction COLLATE doit être placée avant ASC ou DESC |
|
| 693 | - // notamment lors de l'utilisation `{!par xxx}{collate yyy}` |
|
| 694 | - if ( |
|
| 695 | - (false !== $i = strpos((string) $boucle->order[$n - 1], 'ASC')) |
|
| 696 | - || (false !== $i = strpos((string) $boucle->order[$n - 1], 'DESC')) |
|
| 697 | - ) { |
|
| 698 | - $boucle->order[$n - 1] = substr_replace((string) $boucle->order[$n - 1], "' . " . $boucle->modificateur['collate'] . " . ' ", $i, 0); |
|
| 699 | - } else { |
|
| 700 | - $boucle->order[$n - 1] .= ' . ' . $boucle->modificateur['collate']; |
|
| 701 | - } |
|
| 702 | - } |
|
| 703 | - } else { |
|
| 704 | - return (['zbug_critere_inconnu', ['critere' => $crit->op . ' ' . (is_countable($boucles[$idb]->order) ? count($boucles[$idb]->order) : 0)]]); |
|
| 705 | - } |
|
| 686 | + if (isset($crit->param[0])) { |
|
| 687 | + $_coll = calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent); |
|
| 688 | + $boucle = $boucles[$idb]; |
|
| 689 | + $boucle->modificateur['collate'] = "($_coll ?' COLLATE '.$_coll:'')"; |
|
| 690 | + $n = is_countable($boucle->order) ? count($boucle->order) : 0; |
|
| 691 | + if ($n && (!str_contains((string) $boucle->order[$n - 1], 'COLLATE'))) { |
|
| 692 | + // l'instruction COLLATE doit être placée avant ASC ou DESC |
|
| 693 | + // notamment lors de l'utilisation `{!par xxx}{collate yyy}` |
|
| 694 | + if ( |
|
| 695 | + (false !== $i = strpos((string) $boucle->order[$n - 1], 'ASC')) |
|
| 696 | + || (false !== $i = strpos((string) $boucle->order[$n - 1], 'DESC')) |
|
| 697 | + ) { |
|
| 698 | + $boucle->order[$n - 1] = substr_replace((string) $boucle->order[$n - 1], "' . " . $boucle->modificateur['collate'] . " . ' ", $i, 0); |
|
| 699 | + } else { |
|
| 700 | + $boucle->order[$n - 1] .= ' . ' . $boucle->modificateur['collate']; |
|
| 701 | + } |
|
| 702 | + } |
|
| 703 | + } else { |
|
| 704 | + return (['zbug_critere_inconnu', ['critere' => $crit->op . ' ' . (is_countable($boucles[$idb]->order) ? count($boucles[$idb]->order) : 0)]]); |
|
| 705 | + } |
|
| 706 | 706 | } |
| 707 | 707 | |
| 708 | 708 | /** |
@@ -717,26 +717,26 @@ discard block |
||
| 717 | 717 | * @return void|array |
| 718 | 718 | */ |
| 719 | 719 | function critere_collecte_dist(...$args) { |
| 720 | - trigger_deprecation('spip', '5.0', 'Using "%s" criteria is deprecated, use "%s" criteria instead', 'collecte', 'collate'); |
|
| 721 | - return critere_collate_dist(...$args); |
|
| 720 | + trigger_deprecation('spip', '5.0', 'Using "%s" criteria is deprecated, use "%s" criteria instead', 'collecte', 'collate'); |
|
| 721 | + return critere_collate_dist(...$args); |
|
| 722 | 722 | } |
| 723 | 723 | |
| 724 | 724 | function calculer_critere_arg_dynamique($idb, &$boucles, $crit, $suffix = '') { |
| 725 | - $boucle = $boucles[$idb]; |
|
| 726 | - $alt = "('" . $boucle->id_table . '.\' . $x' . $suffix . ')'; |
|
| 727 | - $var = '$champs_' . $idb; |
|
| 728 | - $desc = (str_contains((string) $boucle->in, (string) "static $var =")); |
|
| 729 | - if (!$desc) { |
|
| 730 | - $desc = $boucle->show['field']; |
|
| 731 | - $desc = implode(',', array_map('_q', array_keys($desc))); |
|
| 732 | - $boucles[$idb]->in .= "\n\tstatic $var = array(" . $desc . ');'; |
|
| 733 | - } |
|
| 734 | - if ($desc) { |
|
| 735 | - $alt = "(in_array(\$x, $var) ? $alt :(\$x$suffix))"; |
|
| 736 | - } |
|
| 737 | - $arg = calculer_liste($crit, $idb, $boucles, $boucle->id_parent); |
|
| 738 | - |
|
| 739 | - return "((\$x = preg_replace(\"/\\W/\",'', $arg)) ? $alt : '')"; |
|
| 725 | + $boucle = $boucles[$idb]; |
|
| 726 | + $alt = "('" . $boucle->id_table . '.\' . $x' . $suffix . ')'; |
|
| 727 | + $var = '$champs_' . $idb; |
|
| 728 | + $desc = (str_contains((string) $boucle->in, (string) "static $var =")); |
|
| 729 | + if (!$desc) { |
|
| 730 | + $desc = $boucle->show['field']; |
|
| 731 | + $desc = implode(',', array_map('_q', array_keys($desc))); |
|
| 732 | + $boucles[$idb]->in .= "\n\tstatic $var = array(" . $desc . ');'; |
|
| 733 | + } |
|
| 734 | + if ($desc) { |
|
| 735 | + $alt = "(in_array(\$x, $var) ? $alt :(\$x$suffix))"; |
|
| 736 | + } |
|
| 737 | + $arg = calculer_liste($crit, $idb, $boucles, $boucle->id_parent); |
|
| 738 | + |
|
| 739 | + return "((\$x = preg_replace(\"/\\W/\",'', $arg)) ? $alt : '')"; |
|
| 740 | 740 | } |
| 741 | 741 | |
| 742 | 742 | /** |
@@ -775,7 +775,7 @@ discard block |
||
| 775 | 775 | * @param Critere $crit Paramètres du critère dans cette boucle |
| 776 | 776 | */ |
| 777 | 777 | function critere_par_dist($idb, &$boucles, $crit) { |
| 778 | - return critere_parinverse($idb, $boucles, $crit); |
|
| 778 | + return critere_parinverse($idb, $boucles, $crit); |
|
| 779 | 779 | } |
| 780 | 780 | |
| 781 | 781 | /** |
@@ -797,91 +797,91 @@ discard block |
||
| 797 | 797 | * @param Critere $crit Paramètres du critère dans cette boucle |
| 798 | 798 | */ |
| 799 | 799 | function critere_parinverse($idb, &$boucles, $crit) { |
| 800 | - $boucle = &$boucles[$idb]; |
|
| 801 | - |
|
| 802 | - $sens = $collecte = ''; |
|
| 803 | - if ($crit->not) { |
|
| 804 | - $sens = " . ' DESC'"; |
|
| 805 | - } |
|
| 806 | - if (isset($boucle->modificateur['collate'])) { |
|
| 807 | - $collecte = ' . ' . $boucle->modificateur['collate']; |
|
| 808 | - } |
|
| 809 | - |
|
| 810 | - // Pour chaque paramètre du critère |
|
| 811 | - foreach ($crit->param as $tri) { |
|
| 812 | - $order = $fct = ''; |
|
| 813 | - // tris specifiés dynamiquement {par #ENV{tri}} |
|
| 814 | - if ($tri[0]->type != 'texte') { |
|
| 815 | - // calculer le order dynamique qui verifie les champs |
|
| 816 | - $order = calculer_critere_arg_dynamique($idb, $boucles, $tri, $sens); |
|
| 817 | - // ajouter 'hasard' comme possibilité de tri dynamique |
|
| 818 | - calculer_critere_par_hasard($idb, $boucles, $crit); |
|
| 819 | - } |
|
| 820 | - // tris textuels {par titre} |
|
| 821 | - else { |
|
| 822 | - $par = array_shift($tri); |
|
| 823 | - $par = $par->texte; |
|
| 824 | - |
|
| 825 | - // tris de la forme {par expression champ} tel que {par num titre} ou {par multi titre} |
|
| 826 | - if (preg_match(',^(\w+)[\s]+(.*)$,', (string) $par, $m)) { |
|
| 827 | - $expression = trim($m[1]); |
|
| 828 | - $champ = trim($m[2]); |
|
| 829 | - if (function_exists($f = 'calculer_critere_par_expression_' . $expression)) { |
|
| 830 | - $order = $f($idb, $boucles, $crit, $tri, $champ); |
|
| 831 | - } else { |
|
| 832 | - return ['zbug_critere_inconnu', ['critere' => $crit->op . " $par"]]; |
|
| 833 | - } |
|
| 834 | - |
|
| 835 | - // tris de la forme {par champ} ou {par FONCTION(champ)} |
|
| 836 | - } elseif ($boucle->type_requete == 'DATA' || preg_match(',^' . CHAMP_SQL_PLUS_FONC . '$,is', (string) $par, $match)) { |
|
| 837 | - // {par FONCTION(champ)} |
|
| 838 | - if (isset($match) && count($match) > 2) { |
|
| 839 | - $par = substr($match[2], 1, -1); |
|
| 840 | - $fct = $match[1]; |
|
| 841 | - } |
|
| 842 | - // quelques cas spécifiques {par hasard}, {par date} |
|
| 843 | - if ($par == 'hasard') { |
|
| 844 | - $order = calculer_critere_par_hasard($idb, $boucles, $crit); |
|
| 845 | - } elseif ($par == 'date' && !empty($boucle->show['date'])) { |
|
| 846 | - $order = "'" . $boucle->id_table . '.' . $boucle->show['date'] . "'"; |
|
| 847 | - } else { |
|
| 848 | - // cas général {par champ}, {par table.champ}, ... |
|
| 849 | - $order = calculer_critere_par_champ($idb, $boucles, $crit, $par); |
|
| 850 | - } |
|
| 851 | - } |
|
| 852 | - |
|
| 853 | - // on ne sait pas traiter… |
|
| 854 | - else { |
|
| 855 | - return ['zbug_critere_inconnu', ['critere' => $crit->op . " $par"]]; |
|
| 856 | - } |
|
| 857 | - |
|
| 858 | - // En cas d'erreur de squelette retournée par une fonction |
|
| 859 | - if (is_array($order)) { |
|
| 860 | - return $order; |
|
| 861 | - } |
|
| 862 | - } |
|
| 863 | - |
|
| 864 | - if (preg_match('/^\'([^"]*)\'$/', (string) $order, $m)) { |
|
| 865 | - $t = $m[1]; |
|
| 866 | - if (strpos($t, '.') && !in_array($t, $boucle->select)) { |
|
| 867 | - $boucle->select[] = $t; |
|
| 868 | - } |
|
| 869 | - } else { |
|
| 870 | - $sens = ''; |
|
| 871 | - } |
|
| 872 | - |
|
| 873 | - if ($fct) { |
|
| 874 | - $order = preg_match("/^\s*'(.*)'\s*$/", (string) $order, $r) |
|
| 875 | - ? "'$fct(" . $r[1] . ")'" |
|
| 876 | - : "'$fct(' . $order . ')'"; |
|
| 877 | - } |
|
| 878 | - $t = $order . $collecte . $sens; |
|
| 879 | - if (preg_match("/^(.*)'\s*\.\s*'([^']*')$/", $t, $r)) { |
|
| 880 | - $t = $r[1] . $r[2]; |
|
| 881 | - } |
|
| 882 | - |
|
| 883 | - $boucle->order[] = $t; |
|
| 884 | - } |
|
| 800 | + $boucle = &$boucles[$idb]; |
|
| 801 | + |
|
| 802 | + $sens = $collecte = ''; |
|
| 803 | + if ($crit->not) { |
|
| 804 | + $sens = " . ' DESC'"; |
|
| 805 | + } |
|
| 806 | + if (isset($boucle->modificateur['collate'])) { |
|
| 807 | + $collecte = ' . ' . $boucle->modificateur['collate']; |
|
| 808 | + } |
|
| 809 | + |
|
| 810 | + // Pour chaque paramètre du critère |
|
| 811 | + foreach ($crit->param as $tri) { |
|
| 812 | + $order = $fct = ''; |
|
| 813 | + // tris specifiés dynamiquement {par #ENV{tri}} |
|
| 814 | + if ($tri[0]->type != 'texte') { |
|
| 815 | + // calculer le order dynamique qui verifie les champs |
|
| 816 | + $order = calculer_critere_arg_dynamique($idb, $boucles, $tri, $sens); |
|
| 817 | + // ajouter 'hasard' comme possibilité de tri dynamique |
|
| 818 | + calculer_critere_par_hasard($idb, $boucles, $crit); |
|
| 819 | + } |
|
| 820 | + // tris textuels {par titre} |
|
| 821 | + else { |
|
| 822 | + $par = array_shift($tri); |
|
| 823 | + $par = $par->texte; |
|
| 824 | + |
|
| 825 | + // tris de la forme {par expression champ} tel que {par num titre} ou {par multi titre} |
|
| 826 | + if (preg_match(',^(\w+)[\s]+(.*)$,', (string) $par, $m)) { |
|
| 827 | + $expression = trim($m[1]); |
|
| 828 | + $champ = trim($m[2]); |
|
| 829 | + if (function_exists($f = 'calculer_critere_par_expression_' . $expression)) { |
|
| 830 | + $order = $f($idb, $boucles, $crit, $tri, $champ); |
|
| 831 | + } else { |
|
| 832 | + return ['zbug_critere_inconnu', ['critere' => $crit->op . " $par"]]; |
|
| 833 | + } |
|
| 834 | + |
|
| 835 | + // tris de la forme {par champ} ou {par FONCTION(champ)} |
|
| 836 | + } elseif ($boucle->type_requete == 'DATA' || preg_match(',^' . CHAMP_SQL_PLUS_FONC . '$,is', (string) $par, $match)) { |
|
| 837 | + // {par FONCTION(champ)} |
|
| 838 | + if (isset($match) && count($match) > 2) { |
|
| 839 | + $par = substr($match[2], 1, -1); |
|
| 840 | + $fct = $match[1]; |
|
| 841 | + } |
|
| 842 | + // quelques cas spécifiques {par hasard}, {par date} |
|
| 843 | + if ($par == 'hasard') { |
|
| 844 | + $order = calculer_critere_par_hasard($idb, $boucles, $crit); |
|
| 845 | + } elseif ($par == 'date' && !empty($boucle->show['date'])) { |
|
| 846 | + $order = "'" . $boucle->id_table . '.' . $boucle->show['date'] . "'"; |
|
| 847 | + } else { |
|
| 848 | + // cas général {par champ}, {par table.champ}, ... |
|
| 849 | + $order = calculer_critere_par_champ($idb, $boucles, $crit, $par); |
|
| 850 | + } |
|
| 851 | + } |
|
| 852 | + |
|
| 853 | + // on ne sait pas traiter… |
|
| 854 | + else { |
|
| 855 | + return ['zbug_critere_inconnu', ['critere' => $crit->op . " $par"]]; |
|
| 856 | + } |
|
| 857 | + |
|
| 858 | + // En cas d'erreur de squelette retournée par une fonction |
|
| 859 | + if (is_array($order)) { |
|
| 860 | + return $order; |
|
| 861 | + } |
|
| 862 | + } |
|
| 863 | + |
|
| 864 | + if (preg_match('/^\'([^"]*)\'$/', (string) $order, $m)) { |
|
| 865 | + $t = $m[1]; |
|
| 866 | + if (strpos($t, '.') && !in_array($t, $boucle->select)) { |
|
| 867 | + $boucle->select[] = $t; |
|
| 868 | + } |
|
| 869 | + } else { |
|
| 870 | + $sens = ''; |
|
| 871 | + } |
|
| 872 | + |
|
| 873 | + if ($fct) { |
|
| 874 | + $order = preg_match("/^\s*'(.*)'\s*$/", (string) $order, $r) |
|
| 875 | + ? "'$fct(" . $r[1] . ")'" |
|
| 876 | + : "'$fct(' . $order . ')'"; |
|
| 877 | + } |
|
| 878 | + $t = $order . $collecte . $sens; |
|
| 879 | + if (preg_match("/^(.*)'\s*\.\s*'([^']*')$/", $t, $r)) { |
|
| 880 | + $t = $r[1] . $r[2]; |
|
| 881 | + } |
|
| 882 | + |
|
| 883 | + $boucle->order[] = $t; |
|
| 884 | + } |
|
| 885 | 885 | } |
| 886 | 886 | |
| 887 | 887 | /** |
@@ -895,13 +895,13 @@ discard block |
||
| 895 | 895 | * @return string Clause pour le Order by |
| 896 | 896 | */ |
| 897 | 897 | function calculer_critere_par_hasard($idb, &$boucles, $crit) { |
| 898 | - $boucle = &$boucles[$idb]; |
|
| 899 | - // Si ce n'est fait, ajouter un champ 'hasard' dans le select |
|
| 900 | - $parha = 'rand() AS hasard'; |
|
| 901 | - if (!in_array($parha, $boucle->select)) { |
|
| 902 | - $boucle->select[] = $parha; |
|
| 903 | - } |
|
| 904 | - return "'hasard'"; |
|
| 898 | + $boucle = &$boucles[$idb]; |
|
| 899 | + // Si ce n'est fait, ajouter un champ 'hasard' dans le select |
|
| 900 | + $parha = 'rand() AS hasard'; |
|
| 901 | + if (!in_array($parha, $boucle->select)) { |
|
| 902 | + $boucle->select[] = $parha; |
|
| 903 | + } |
|
| 904 | + return "'hasard'"; |
|
| 905 | 905 | } |
| 906 | 906 | |
| 907 | 907 | /** |
@@ -925,22 +925,22 @@ discard block |
||
| 925 | 925 | * @return string|array Clause pour le Order by (array si erreur) |
| 926 | 926 | */ |
| 927 | 927 | function calculer_critere_par_expression_num($idb, &$boucles, $crit, $tri, $champ) { |
| 928 | - $_champ = calculer_critere_par_champ($idb, $boucles, $crit, $champ, true); |
|
| 929 | - if (is_array($_champ)) { |
|
| 930 | - return ['zbug_critere_inconnu', ['critere' => $crit->op . " num $champ"]]; |
|
| 931 | - } |
|
| 932 | - $boucle = &$boucles[$idb]; |
|
| 933 | - $texte = '0+' . $_champ; |
|
| 934 | - $suite = calculer_liste($tri, $idb, $boucles, $boucle->id_parent); |
|
| 935 | - if ($suite !== "''") { |
|
| 936 | - $texte = "\" . ((\$x = $suite) ? ('$texte' . \$x) : '0')" . ' . "'; |
|
| 937 | - } |
|
| 938 | - $asnum = 'num' . ($boucle->order ? count($boucle->order) : ''); |
|
| 939 | - $boucle->select[] = $texte . " AS $asnum"; |
|
| 940 | - |
|
| 941 | - $orderassinum = calculer_critere_par_expression_sinum($idb, $boucles, $crit, $tri, $champ); |
|
| 942 | - $orderassinum = trim($orderassinum, "'"); |
|
| 943 | - return "'$orderassinum, $asnum'"; |
|
| 928 | + $_champ = calculer_critere_par_champ($idb, $boucles, $crit, $champ, true); |
|
| 929 | + if (is_array($_champ)) { |
|
| 930 | + return ['zbug_critere_inconnu', ['critere' => $crit->op . " num $champ"]]; |
|
| 931 | + } |
|
| 932 | + $boucle = &$boucles[$idb]; |
|
| 933 | + $texte = '0+' . $_champ; |
|
| 934 | + $suite = calculer_liste($tri, $idb, $boucles, $boucle->id_parent); |
|
| 935 | + if ($suite !== "''") { |
|
| 936 | + $texte = "\" . ((\$x = $suite) ? ('$texte' . \$x) : '0')" . ' . "'; |
|
| 937 | + } |
|
| 938 | + $asnum = 'num' . ($boucle->order ? count($boucle->order) : ''); |
|
| 939 | + $boucle->select[] = $texte . " AS $asnum"; |
|
| 940 | + |
|
| 941 | + $orderassinum = calculer_critere_par_expression_sinum($idb, $boucles, $crit, $tri, $champ); |
|
| 942 | + $orderassinum = trim($orderassinum, "'"); |
|
| 943 | + return "'$orderassinum, $asnum'"; |
|
| 944 | 944 | } |
| 945 | 945 | |
| 946 | 946 | /** |
@@ -961,34 +961,34 @@ discard block |
||
| 961 | 961 | * @return string|array Clause pour le Order by (array si erreur) |
| 962 | 962 | */ |
| 963 | 963 | function calculer_critere_par_expression_sinum($idb, &$boucles, $crit, $tri, $champ) { |
| 964 | - $_champ = calculer_critere_par_champ($idb, $boucles, $crit, $champ, true); |
|
| 965 | - if (is_array($_champ)) { |
|
| 966 | - return ['zbug_critere_inconnu', ['critere' => $crit->op . " sinum $champ"]]; |
|
| 967 | - } |
|
| 968 | - $boucle = &$boucles[$idb]; |
|
| 969 | - $texte = '0+' . $_champ; |
|
| 970 | - $suite = calculer_liste($tri, $idb, $boucles, $boucle->id_parent); |
|
| 971 | - if ($suite !== "''") { |
|
| 972 | - $texte = "\" . ((\$x = $suite) ? ('$texte' . \$x) : '0')" . ' . "'; |
|
| 973 | - } |
|
| 974 | - |
|
| 975 | - $as = false; |
|
| 976 | - $select = "CASE ( $texte ) WHEN 0 THEN 1 ELSE 0 END AS "; |
|
| 977 | - foreach ($boucle->select as $s) { |
|
| 978 | - if (str_starts_with((string) $s, $select)) { |
|
| 979 | - $as = trim(substr((string) $s, strlen($select))); |
|
| 980 | - if (!preg_match(',\W,', $as)) { |
|
| 981 | - break; |
|
| 982 | - } |
|
| 983 | - $as = false; |
|
| 984 | - } |
|
| 985 | - } |
|
| 986 | - |
|
| 987 | - if (!$as) { |
|
| 988 | - $as = 'sinum' . ($boucle->order ? count($boucle->order) : ''); |
|
| 989 | - $boucle->select[] = $select . $as; |
|
| 990 | - } |
|
| 991 | - return "'$as'"; |
|
| 964 | + $_champ = calculer_critere_par_champ($idb, $boucles, $crit, $champ, true); |
|
| 965 | + if (is_array($_champ)) { |
|
| 966 | + return ['zbug_critere_inconnu', ['critere' => $crit->op . " sinum $champ"]]; |
|
| 967 | + } |
|
| 968 | + $boucle = &$boucles[$idb]; |
|
| 969 | + $texte = '0+' . $_champ; |
|
| 970 | + $suite = calculer_liste($tri, $idb, $boucles, $boucle->id_parent); |
|
| 971 | + if ($suite !== "''") { |
|
| 972 | + $texte = "\" . ((\$x = $suite) ? ('$texte' . \$x) : '0')" . ' . "'; |
|
| 973 | + } |
|
| 974 | + |
|
| 975 | + $as = false; |
|
| 976 | + $select = "CASE ( $texte ) WHEN 0 THEN 1 ELSE 0 END AS "; |
|
| 977 | + foreach ($boucle->select as $s) { |
|
| 978 | + if (str_starts_with((string) $s, $select)) { |
|
| 979 | + $as = trim(substr((string) $s, strlen($select))); |
|
| 980 | + if (!preg_match(',\W,', $as)) { |
|
| 981 | + break; |
|
| 982 | + } |
|
| 983 | + $as = false; |
|
| 984 | + } |
|
| 985 | + } |
|
| 986 | + |
|
| 987 | + if (!$as) { |
|
| 988 | + $as = 'sinum' . ($boucle->order ? count($boucle->order) : ''); |
|
| 989 | + $boucle->select[] = $select . $as; |
|
| 990 | + } |
|
| 991 | + return "'$as'"; |
|
| 992 | 992 | } |
| 993 | 993 | |
| 994 | 994 | |
@@ -1008,13 +1008,13 @@ discard block |
||
| 1008 | 1008 | * @return string|array Clause pour le Order by (array si erreur) |
| 1009 | 1009 | */ |
| 1010 | 1010 | function calculer_critere_par_expression_multi($idb, &$boucles, $crit, $tri, $champ) { |
| 1011 | - $_champ = calculer_critere_par_champ($idb, $boucles, $crit, $champ, true); |
|
| 1012 | - if (is_array($_champ)) { |
|
| 1013 | - return ['zbug_critere_inconnu', ['critere' => $crit->op . " multi $champ"]]; |
|
| 1014 | - } |
|
| 1015 | - $boucle = &$boucles[$idb]; |
|
| 1016 | - $boucle->select[] = "\".sql_multi('" . $_champ . "', \$GLOBALS['spip_lang']).\""; |
|
| 1017 | - return "'multi'"; |
|
| 1011 | + $_champ = calculer_critere_par_champ($idb, $boucles, $crit, $champ, true); |
|
| 1012 | + if (is_array($_champ)) { |
|
| 1013 | + return ['zbug_critere_inconnu', ['critere' => $crit->op . " multi $champ"]]; |
|
| 1014 | + } |
|
| 1015 | + $boucle = &$boucles[$idb]; |
|
| 1016 | + $boucle->select[] = "\".sql_multi('" . $_champ . "', \$GLOBALS['spip_lang']).\""; |
|
| 1017 | + return "'multi'"; |
|
| 1018 | 1018 | } |
| 1019 | 1019 | |
| 1020 | 1020 | /** |
@@ -1033,56 +1033,56 @@ discard block |
||
| 1033 | 1033 | * @return array|string |
| 1034 | 1034 | */ |
| 1035 | 1035 | function calculer_critere_par_champ($idb, &$boucles, $crit, $par, $raw = false) { |
| 1036 | - $boucle = &$boucles[$idb]; |
|
| 1037 | - $desc = $boucle->show; |
|
| 1038 | - |
|
| 1039 | - // le champ existe dans la table, pas de souci (le plus commun) |
|
| 1040 | - if (isset($desc['field'][$par])) { |
|
| 1041 | - $par = $boucle->id_table . '.' . $par; |
|
| 1042 | - } |
|
| 1043 | - // le champ est peut être une jointure |
|
| 1044 | - else { |
|
| 1045 | - $table = $table_alias = false; // toutes les tables de jointure possibles |
|
| 1046 | - $champ = $par; |
|
| 1047 | - |
|
| 1048 | - // le champ demandé est une exception de jointure {par titre_mot} |
|
| 1049 | - if (isset($GLOBALS['exceptions_des_jointures'][$par])) { |
|
| 1050 | - [$table, $champ] = $GLOBALS['exceptions_des_jointures'][$par]; |
|
| 1051 | - } // la table de jointure est explicitement indiquée {par truc.muche} |
|
| 1052 | - elseif (preg_match('/^([^,]*)\.(.*)$/', $par, $r)) { |
|
| 1053 | - [, $table, $champ] = $r; |
|
| 1054 | - $table_alias = $table; // c'est peut-être un alias de table {par L1.titre} |
|
| 1055 | - $table = table_objet_sql($table); |
|
| 1056 | - } |
|
| 1057 | - |
|
| 1058 | - // Si on connait la table d'arrivée, on la demande donc explicitement |
|
| 1059 | - // Sinon on cherche le champ dans les tables possibles de jointures |
|
| 1060 | - // Si la table est déjà dans le from, on la réutilise. |
|
| 1061 | - if ($infos = chercher_champ_dans_tables($champ, $boucle->from, $boucle->sql_serveur, $table)) { |
|
| 1062 | - $par = $infos['alias'] . '.' . $champ; |
|
| 1063 | - } elseif ( |
|
| 1064 | - $boucle->jointures_explicites |
|
| 1065 | - && ($alias = trouver_jointure_champ($champ, $boucle, explode(' ', (string) $boucle->jointures_explicites), false, $table)) |
|
| 1066 | - ) { |
|
| 1067 | - $par = $alias . '.' . $champ; |
|
| 1068 | - } elseif ($alias = trouver_jointure_champ($champ, $boucle, $boucle->jointures, false, $table)) { |
|
| 1069 | - $par = $alias . '.' . $champ; |
|
| 1070 | - // en spécifiant directement l'alias {par L2.titre} (situation hasardeuse tout de même) |
|
| 1071 | - } elseif ( |
|
| 1072 | - $table_alias |
|
| 1073 | - && isset($boucle->from[$table_alias]) |
|
| 1074 | - && ($infos = chercher_champ_dans_tables($champ, $boucle->from, $boucle->sql_serveur, $boucle->from[$table_alias])) |
|
| 1075 | - ) { |
|
| 1076 | - $par = $infos['alias'] . '.' . $champ; |
|
| 1077 | - } elseif ($table) { |
|
| 1078 | - // On avait table + champ, mais on ne les a pas trouvés |
|
| 1079 | - return ['zbug_critere_inconnu', ['critere' => $crit->op . " $par"]]; |
|
| 1080 | - } else { |
|
| 1081 | - // Sinon tant pis, ca doit etre un champ synthetise (cf points) |
|
| 1082 | - } |
|
| 1083 | - } |
|
| 1084 | - |
|
| 1085 | - return $raw ? $par : "'$par'"; |
|
| 1036 | + $boucle = &$boucles[$idb]; |
|
| 1037 | + $desc = $boucle->show; |
|
| 1038 | + |
|
| 1039 | + // le champ existe dans la table, pas de souci (le plus commun) |
|
| 1040 | + if (isset($desc['field'][$par])) { |
|
| 1041 | + $par = $boucle->id_table . '.' . $par; |
|
| 1042 | + } |
|
| 1043 | + // le champ est peut être une jointure |
|
| 1044 | + else { |
|
| 1045 | + $table = $table_alias = false; // toutes les tables de jointure possibles |
|
| 1046 | + $champ = $par; |
|
| 1047 | + |
|
| 1048 | + // le champ demandé est une exception de jointure {par titre_mot} |
|
| 1049 | + if (isset($GLOBALS['exceptions_des_jointures'][$par])) { |
|
| 1050 | + [$table, $champ] = $GLOBALS['exceptions_des_jointures'][$par]; |
|
| 1051 | + } // la table de jointure est explicitement indiquée {par truc.muche} |
|
| 1052 | + elseif (preg_match('/^([^,]*)\.(.*)$/', $par, $r)) { |
|
| 1053 | + [, $table, $champ] = $r; |
|
| 1054 | + $table_alias = $table; // c'est peut-être un alias de table {par L1.titre} |
|
| 1055 | + $table = table_objet_sql($table); |
|
| 1056 | + } |
|
| 1057 | + |
|
| 1058 | + // Si on connait la table d'arrivée, on la demande donc explicitement |
|
| 1059 | + // Sinon on cherche le champ dans les tables possibles de jointures |
|
| 1060 | + // Si la table est déjà dans le from, on la réutilise. |
|
| 1061 | + if ($infos = chercher_champ_dans_tables($champ, $boucle->from, $boucle->sql_serveur, $table)) { |
|
| 1062 | + $par = $infos['alias'] . '.' . $champ; |
|
| 1063 | + } elseif ( |
|
| 1064 | + $boucle->jointures_explicites |
|
| 1065 | + && ($alias = trouver_jointure_champ($champ, $boucle, explode(' ', (string) $boucle->jointures_explicites), false, $table)) |
|
| 1066 | + ) { |
|
| 1067 | + $par = $alias . '.' . $champ; |
|
| 1068 | + } elseif ($alias = trouver_jointure_champ($champ, $boucle, $boucle->jointures, false, $table)) { |
|
| 1069 | + $par = $alias . '.' . $champ; |
|
| 1070 | + // en spécifiant directement l'alias {par L2.titre} (situation hasardeuse tout de même) |
|
| 1071 | + } elseif ( |
|
| 1072 | + $table_alias |
|
| 1073 | + && isset($boucle->from[$table_alias]) |
|
| 1074 | + && ($infos = chercher_champ_dans_tables($champ, $boucle->from, $boucle->sql_serveur, $boucle->from[$table_alias])) |
|
| 1075 | + ) { |
|
| 1076 | + $par = $infos['alias'] . '.' . $champ; |
|
| 1077 | + } elseif ($table) { |
|
| 1078 | + // On avait table + champ, mais on ne les a pas trouvés |
|
| 1079 | + return ['zbug_critere_inconnu', ['critere' => $crit->op . " $par"]]; |
|
| 1080 | + } else { |
|
| 1081 | + // Sinon tant pis, ca doit etre un champ synthetise (cf points) |
|
| 1082 | + } |
|
| 1083 | + } |
|
| 1084 | + |
|
| 1085 | + return $raw ? $par : "'$par'"; |
|
| 1086 | 1086 | } |
| 1087 | 1087 | |
| 1088 | 1088 | /** |
@@ -1107,33 +1107,33 @@ discard block |
||
| 1107 | 1107 | */ |
| 1108 | 1108 | function critere_inverse_dist($idb, &$boucles, $crit) { |
| 1109 | 1109 | |
| 1110 | - $boucle = &$boucles[$idb]; |
|
| 1111 | - // Classement par ordre inverse |
|
| 1112 | - if ($crit->not) { |
|
| 1113 | - critere_parinverse($idb, $boucles, $crit); |
|
| 1114 | - } else { |
|
| 1115 | - $order = "' DESC'"; |
|
| 1116 | - // Classement par ordre inverse fonction eventuelle de #ENV{...} |
|
| 1117 | - if (isset($crit->param[0])) { |
|
| 1118 | - $critere = calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent); |
|
| 1119 | - $order = "(($critere)?' DESC':'')"; |
|
| 1120 | - } |
|
| 1121 | - |
|
| 1122 | - $n = is_countable($boucle->order) ? count($boucle->order) : 0; |
|
| 1123 | - if (!$n) { |
|
| 1124 | - if (isset($boucle->default_order[0])) { |
|
| 1125 | - $boucle->default_order[0] .= ' . " DESC"'; |
|
| 1126 | - } else { |
|
| 1127 | - $boucle->default_order[] = ' DESC'; |
|
| 1128 | - } |
|
| 1129 | - } else { |
|
| 1130 | - $t = $boucle->order[$n - 1] . " . $order"; |
|
| 1131 | - if (preg_match("/^(.*)'\s*\.\s*'([^']*')$/", $t, $r)) { |
|
| 1132 | - $t = $r[1] . $r[2]; |
|
| 1133 | - } |
|
| 1134 | - $boucle->order[$n - 1] = $t; |
|
| 1135 | - } |
|
| 1136 | - } |
|
| 1110 | + $boucle = &$boucles[$idb]; |
|
| 1111 | + // Classement par ordre inverse |
|
| 1112 | + if ($crit->not) { |
|
| 1113 | + critere_parinverse($idb, $boucles, $crit); |
|
| 1114 | + } else { |
|
| 1115 | + $order = "' DESC'"; |
|
| 1116 | + // Classement par ordre inverse fonction eventuelle de #ENV{...} |
|
| 1117 | + if (isset($crit->param[0])) { |
|
| 1118 | + $critere = calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent); |
|
| 1119 | + $order = "(($critere)?' DESC':'')"; |
|
| 1120 | + } |
|
| 1121 | + |
|
| 1122 | + $n = is_countable($boucle->order) ? count($boucle->order) : 0; |
|
| 1123 | + if (!$n) { |
|
| 1124 | + if (isset($boucle->default_order[0])) { |
|
| 1125 | + $boucle->default_order[0] .= ' . " DESC"'; |
|
| 1126 | + } else { |
|
| 1127 | + $boucle->default_order[] = ' DESC'; |
|
| 1128 | + } |
|
| 1129 | + } else { |
|
| 1130 | + $t = $boucle->order[$n - 1] . " . $order"; |
|
| 1131 | + if (preg_match("/^(.*)'\s*\.\s*'([^']*')$/", $t, $r)) { |
|
| 1132 | + $t = $r[1] . $r[2]; |
|
| 1133 | + } |
|
| 1134 | + $boucle->order[$n - 1] = $t; |
|
| 1135 | + } |
|
| 1136 | + } |
|
| 1137 | 1137 | } |
| 1138 | 1138 | |
| 1139 | 1139 | /** |
@@ -1145,139 +1145,139 @@ discard block |
||
| 1145 | 1145 | * @return void|array |
| 1146 | 1146 | */ |
| 1147 | 1147 | function critere_par_ordre_liste_dist($idb, &$boucles, $crit) { |
| 1148 | - $boucle = &$boucles[$idb]; |
|
| 1148 | + $boucle = &$boucles[$idb]; |
|
| 1149 | 1149 | |
| 1150 | - $sens = $collecte = ''; |
|
| 1151 | - if ($crit->not) { |
|
| 1152 | - $sens = " . ' DESC'"; |
|
| 1153 | - } |
|
| 1150 | + $sens = $collecte = ''; |
|
| 1151 | + if ($crit->not) { |
|
| 1152 | + $sens = " . ' DESC'"; |
|
| 1153 | + } |
|
| 1154 | 1154 | |
| 1155 | - $crit2 = clone $crit; |
|
| 1156 | - $crit2->not = false; |
|
| 1157 | - $crit2->param = [reset($crit->param)]; |
|
| 1158 | - $res = critere_parinverse($idb, $boucles, $crit2); |
|
| 1155 | + $crit2 = clone $crit; |
|
| 1156 | + $crit2->not = false; |
|
| 1157 | + $crit2->param = [reset($crit->param)]; |
|
| 1158 | + $res = critere_parinverse($idb, $boucles, $crit2); |
|
| 1159 | 1159 | |
| 1160 | - // erreur ? |
|
| 1161 | - if (is_array($res)) { |
|
| 1162 | - return $res; |
|
| 1163 | - } |
|
| 1160 | + // erreur ? |
|
| 1161 | + if (is_array($res)) { |
|
| 1162 | + return $res; |
|
| 1163 | + } |
|
| 1164 | 1164 | |
| 1165 | - $_order = array_pop($boucle->order); |
|
| 1165 | + $_order = array_pop($boucle->order); |
|
| 1166 | 1166 | |
| 1167 | - $_liste = calculer_liste($crit->param[1], [], $boucles, $boucles[$idb]->id_parent); |
|
| 1167 | + $_liste = calculer_liste($crit->param[1], [], $boucles, $boucles[$idb]->id_parent); |
|
| 1168 | 1168 | |
| 1169 | - $order = "'-FIELD(' . $_order . ',' . ((\$zl=formate_liste_critere_par_ordre_liste(array_reverse($_liste),'" . $boucle->sql_serveur . "')) ? \$zl : '0').')'$sens"; |
|
| 1170 | - $boucle->order[] = $order; |
|
| 1169 | + $order = "'-FIELD(' . $_order . ',' . ((\$zl=formate_liste_critere_par_ordre_liste(array_reverse($_liste),'" . $boucle->sql_serveur . "')) ? \$zl : '0').')'$sens"; |
|
| 1170 | + $boucle->order[] = $order; |
|
| 1171 | 1171 | } |
| 1172 | 1172 | |
| 1173 | 1173 | |
| 1174 | 1174 | function critere_agenda_dist($idb, &$boucles, $crit) { |
| 1175 | - $params = $crit->param; |
|
| 1176 | - |
|
| 1177 | - if ((is_countable($params) ? count($params) : 0) < 1) { |
|
| 1178 | - return ['zbug_critere_inconnu', ['critere' => $crit->op . ' ?']]; |
|
| 1179 | - } |
|
| 1180 | - |
|
| 1181 | - $boucle = &$boucles[$idb]; |
|
| 1182 | - $parent = $boucle->id_parent; |
|
| 1183 | - $fields = $boucle->show['field']; |
|
| 1184 | - |
|
| 1185 | - $date = array_shift($params); |
|
| 1186 | - $type = array_shift($params); |
|
| 1187 | - |
|
| 1188 | - // la valeur $type doit etre connue a la compilation |
|
| 1189 | - // donc etre forcement reduite a un litteral unique dans le source |
|
| 1190 | - $type = is_object($type[0]) ? $type[0]->texte : null; |
|
| 1191 | - |
|
| 1192 | - // La valeur date doit designer un champ de la table SQL. |
|
| 1193 | - // Si c'est un litteral unique dans le source, verifier a la compil, |
|
| 1194 | - // sinon synthetiser le test de verif pour execution ulterieure |
|
| 1195 | - // On prendra arbitrairement le premier champ si test negatif. |
|
| 1196 | - if ((is_countable($date) ? count($date) : 0) == 1 && $date[0]->type == 'texte') { |
|
| 1197 | - $date = $date[0]->texte; |
|
| 1198 | - if (!isset($fields[$date])) { |
|
| 1199 | - return ['zbug_critere_inconnu', ['critere' => $crit->op . ' ' . $date]]; |
|
| 1200 | - } |
|
| 1201 | - } else { |
|
| 1202 | - $a = calculer_liste($date, $idb, $boucles, $parent); |
|
| 1203 | - $noms = array_keys($fields); |
|
| 1204 | - $defaut = $noms[0]; |
|
| 1205 | - $noms = implode(' ', $noms); |
|
| 1206 | - # bien laisser 2 espaces avant $nom pour que strpos<>0 |
|
| 1207 | - $cond = "(\$a=strval($a))AND\nstrpos(\" $noms \",\" \$a \")"; |
|
| 1208 | - $date = "'.(($cond)\n?\$a:\"$defaut\").'"; |
|
| 1209 | - } |
|
| 1210 | - $annee = $params ? array_shift($params) : ''; |
|
| 1211 | - $annee = "\n" . 'sprintf("%04d", ($x = ' . |
|
| 1212 | - calculer_liste($annee, $idb, $boucles, $parent) . |
|
| 1213 | - ') ? $x : date("Y"))'; |
|
| 1214 | - |
|
| 1215 | - $mois = $params ? array_shift($params) : ''; |
|
| 1216 | - $mois = "\n" . 'sprintf("%02d", ($x = ' . |
|
| 1217 | - calculer_liste($mois, $idb, $boucles, $parent) . |
|
| 1218 | - ') ? $x : date("m"))'; |
|
| 1219 | - |
|
| 1220 | - $jour = $params ? array_shift($params) : ''; |
|
| 1221 | - $jour = "\n" . 'sprintf("%02d", ($x = ' . |
|
| 1222 | - calculer_liste($jour, $idb, $boucles, $parent) . |
|
| 1223 | - ') ? $x : date("d"))'; |
|
| 1224 | - |
|
| 1225 | - $annee2 = $params ? array_shift($params) : ''; |
|
| 1226 | - $annee2 = "\n" . 'sprintf("%04d", ($x = ' . |
|
| 1227 | - calculer_liste($annee2, $idb, $boucles, $parent) . |
|
| 1228 | - ') ? $x : date("Y"))'; |
|
| 1229 | - |
|
| 1230 | - $mois2 = $params ? array_shift($params) : ''; |
|
| 1231 | - $mois2 = "\n" . 'sprintf("%02d", ($x = ' . |
|
| 1232 | - calculer_liste($mois2, $idb, $boucles, $parent) . |
|
| 1233 | - ') ? $x : date("m"))'; |
|
| 1234 | - |
|
| 1235 | - $jour2 = $params ? array_shift($params) : ''; |
|
| 1236 | - $jour2 = "\n" . 'sprintf("%02d", ($x = ' . |
|
| 1237 | - calculer_liste($jour2, $idb, $boucles, $parent) . |
|
| 1238 | - ') ? $x : date("d"))'; |
|
| 1239 | - |
|
| 1240 | - $date = $boucle->id_table . ".$date"; |
|
| 1241 | - |
|
| 1242 | - $quote_end = ",'" . $boucle->sql_serveur . "','text'"; |
|
| 1243 | - if ($type == 'jour') { |
|
| 1244 | - $boucle->where[] = [ |
|
| 1245 | - "'='", |
|
| 1246 | - "'DATE_FORMAT($date, \'%Y%m%d\')'", |
|
| 1247 | - ("sql_quote($annee . $mois . $jour$quote_end)") |
|
| 1248 | - ]; |
|
| 1249 | - } elseif ($type == 'mois') { |
|
| 1250 | - $boucle->where[] = [ |
|
| 1251 | - "'='", |
|
| 1252 | - "'DATE_FORMAT($date, \'%Y%m\')'", |
|
| 1253 | - ("sql_quote($annee . $mois$quote_end)") |
|
| 1254 | - ]; |
|
| 1255 | - } elseif ($type == 'semaine') { |
|
| 1256 | - $boucle->where[] = [ |
|
| 1257 | - "'AND'", |
|
| 1258 | - [ |
|
| 1259 | - "'>='", |
|
| 1260 | - "'DATE_FORMAT($date, \'%Y%m%d\')'", |
|
| 1261 | - ("date_debut_semaine($annee, $mois, $jour)") |
|
| 1262 | - ], |
|
| 1263 | - [ |
|
| 1264 | - "'<='", |
|
| 1265 | - "'DATE_FORMAT($date, \'%Y%m%d\')'", |
|
| 1266 | - ("date_fin_semaine($annee, $mois, $jour)") |
|
| 1267 | - ] |
|
| 1268 | - ]; |
|
| 1269 | - } elseif ((is_countable($crit->param) ? count($crit->param) : 0) > 2) { |
|
| 1270 | - $boucle->where[] = [ |
|
| 1271 | - "'AND'", |
|
| 1272 | - [ |
|
| 1273 | - "'>='", |
|
| 1274 | - "'DATE_FORMAT($date, \'%Y%m%d\')'", |
|
| 1275 | - ("sql_quote($annee . $mois . $jour$quote_end)") |
|
| 1276 | - ], |
|
| 1277 | - ["'<='", "'DATE_FORMAT($date, \'%Y%m%d\')'", ("sql_quote($annee2 . $mois2 . $jour2$quote_end)")] |
|
| 1278 | - ]; |
|
| 1279 | - } |
|
| 1280 | - // sinon on prend tout |
|
| 1175 | + $params = $crit->param; |
|
| 1176 | + |
|
| 1177 | + if ((is_countable($params) ? count($params) : 0) < 1) { |
|
| 1178 | + return ['zbug_critere_inconnu', ['critere' => $crit->op . ' ?']]; |
|
| 1179 | + } |
|
| 1180 | + |
|
| 1181 | + $boucle = &$boucles[$idb]; |
|
| 1182 | + $parent = $boucle->id_parent; |
|
| 1183 | + $fields = $boucle->show['field']; |
|
| 1184 | + |
|
| 1185 | + $date = array_shift($params); |
|
| 1186 | + $type = array_shift($params); |
|
| 1187 | + |
|
| 1188 | + // la valeur $type doit etre connue a la compilation |
|
| 1189 | + // donc etre forcement reduite a un litteral unique dans le source |
|
| 1190 | + $type = is_object($type[0]) ? $type[0]->texte : null; |
|
| 1191 | + |
|
| 1192 | + // La valeur date doit designer un champ de la table SQL. |
|
| 1193 | + // Si c'est un litteral unique dans le source, verifier a la compil, |
|
| 1194 | + // sinon synthetiser le test de verif pour execution ulterieure |
|
| 1195 | + // On prendra arbitrairement le premier champ si test negatif. |
|
| 1196 | + if ((is_countable($date) ? count($date) : 0) == 1 && $date[0]->type == 'texte') { |
|
| 1197 | + $date = $date[0]->texte; |
|
| 1198 | + if (!isset($fields[$date])) { |
|
| 1199 | + return ['zbug_critere_inconnu', ['critere' => $crit->op . ' ' . $date]]; |
|
| 1200 | + } |
|
| 1201 | + } else { |
|
| 1202 | + $a = calculer_liste($date, $idb, $boucles, $parent); |
|
| 1203 | + $noms = array_keys($fields); |
|
| 1204 | + $defaut = $noms[0]; |
|
| 1205 | + $noms = implode(' ', $noms); |
|
| 1206 | + # bien laisser 2 espaces avant $nom pour que strpos<>0 |
|
| 1207 | + $cond = "(\$a=strval($a))AND\nstrpos(\" $noms \",\" \$a \")"; |
|
| 1208 | + $date = "'.(($cond)\n?\$a:\"$defaut\").'"; |
|
| 1209 | + } |
|
| 1210 | + $annee = $params ? array_shift($params) : ''; |
|
| 1211 | + $annee = "\n" . 'sprintf("%04d", ($x = ' . |
|
| 1212 | + calculer_liste($annee, $idb, $boucles, $parent) . |
|
| 1213 | + ') ? $x : date("Y"))'; |
|
| 1214 | + |
|
| 1215 | + $mois = $params ? array_shift($params) : ''; |
|
| 1216 | + $mois = "\n" . 'sprintf("%02d", ($x = ' . |
|
| 1217 | + calculer_liste($mois, $idb, $boucles, $parent) . |
|
| 1218 | + ') ? $x : date("m"))'; |
|
| 1219 | + |
|
| 1220 | + $jour = $params ? array_shift($params) : ''; |
|
| 1221 | + $jour = "\n" . 'sprintf("%02d", ($x = ' . |
|
| 1222 | + calculer_liste($jour, $idb, $boucles, $parent) . |
|
| 1223 | + ') ? $x : date("d"))'; |
|
| 1224 | + |
|
| 1225 | + $annee2 = $params ? array_shift($params) : ''; |
|
| 1226 | + $annee2 = "\n" . 'sprintf("%04d", ($x = ' . |
|
| 1227 | + calculer_liste($annee2, $idb, $boucles, $parent) . |
|
| 1228 | + ') ? $x : date("Y"))'; |
|
| 1229 | + |
|
| 1230 | + $mois2 = $params ? array_shift($params) : ''; |
|
| 1231 | + $mois2 = "\n" . 'sprintf("%02d", ($x = ' . |
|
| 1232 | + calculer_liste($mois2, $idb, $boucles, $parent) . |
|
| 1233 | + ') ? $x : date("m"))'; |
|
| 1234 | + |
|
| 1235 | + $jour2 = $params ? array_shift($params) : ''; |
|
| 1236 | + $jour2 = "\n" . 'sprintf("%02d", ($x = ' . |
|
| 1237 | + calculer_liste($jour2, $idb, $boucles, $parent) . |
|
| 1238 | + ') ? $x : date("d"))'; |
|
| 1239 | + |
|
| 1240 | + $date = $boucle->id_table . ".$date"; |
|
| 1241 | + |
|
| 1242 | + $quote_end = ",'" . $boucle->sql_serveur . "','text'"; |
|
| 1243 | + if ($type == 'jour') { |
|
| 1244 | + $boucle->where[] = [ |
|
| 1245 | + "'='", |
|
| 1246 | + "'DATE_FORMAT($date, \'%Y%m%d\')'", |
|
| 1247 | + ("sql_quote($annee . $mois . $jour$quote_end)") |
|
| 1248 | + ]; |
|
| 1249 | + } elseif ($type == 'mois') { |
|
| 1250 | + $boucle->where[] = [ |
|
| 1251 | + "'='", |
|
| 1252 | + "'DATE_FORMAT($date, \'%Y%m\')'", |
|
| 1253 | + ("sql_quote($annee . $mois$quote_end)") |
|
| 1254 | + ]; |
|
| 1255 | + } elseif ($type == 'semaine') { |
|
| 1256 | + $boucle->where[] = [ |
|
| 1257 | + "'AND'", |
|
| 1258 | + [ |
|
| 1259 | + "'>='", |
|
| 1260 | + "'DATE_FORMAT($date, \'%Y%m%d\')'", |
|
| 1261 | + ("date_debut_semaine($annee, $mois, $jour)") |
|
| 1262 | + ], |
|
| 1263 | + [ |
|
| 1264 | + "'<='", |
|
| 1265 | + "'DATE_FORMAT($date, \'%Y%m%d\')'", |
|
| 1266 | + ("date_fin_semaine($annee, $mois, $jour)") |
|
| 1267 | + ] |
|
| 1268 | + ]; |
|
| 1269 | + } elseif ((is_countable($crit->param) ? count($crit->param) : 0) > 2) { |
|
| 1270 | + $boucle->where[] = [ |
|
| 1271 | + "'AND'", |
|
| 1272 | + [ |
|
| 1273 | + "'>='", |
|
| 1274 | + "'DATE_FORMAT($date, \'%Y%m%d\')'", |
|
| 1275 | + ("sql_quote($annee . $mois . $jour$quote_end)") |
|
| 1276 | + ], |
|
| 1277 | + ["'<='", "'DATE_FORMAT($date, \'%Y%m%d\')'", ("sql_quote($annee2 . $mois2 . $jour2$quote_end)")] |
|
| 1278 | + ]; |
|
| 1279 | + } |
|
| 1280 | + // sinon on prend tout |
|
| 1281 | 1281 | } |
| 1282 | 1282 | |
| 1283 | 1283 | |
@@ -1302,33 +1302,33 @@ discard block |
||
| 1302 | 1302 | * @return void |
| 1303 | 1303 | **/ |
| 1304 | 1304 | function calculer_critere_parties($idb, &$boucles, $crit) { |
| 1305 | - $boucle = &$boucles[$idb]; |
|
| 1306 | - $a1 = $crit->param[0]; |
|
| 1307 | - $a2 = $crit->param[1]; |
|
| 1308 | - $op = $crit->op; |
|
| 1309 | - |
|
| 1310 | - [$a11, $a12] = calculer_critere_parties_aux($idb, $boucles, $a1); |
|
| 1311 | - [$a21, $a22] = calculer_critere_parties_aux($idb, $boucles, $a2); |
|
| 1312 | - |
|
| 1313 | - if (($op == ',') && (is_numeric($a11) && (is_numeric($a21)))) { |
|
| 1314 | - $boucle->limit = $a11 . ',' . $a21; |
|
| 1315 | - } else { |
|
| 1316 | - // 3 dans {1/3}, {2,3} ou {1,n-3} |
|
| 1317 | - $boucle->total_parties = ($a21 != 'n') ? $a21 : $a22; |
|
| 1318 | - // 2 dans {2/3}, {2,5}, {n-2,1} |
|
| 1319 | - $partie = ($a11 != 'n') ? $a11 : $a12; |
|
| 1320 | - $mode = (($op == '/') ? '/' : |
|
| 1321 | - (($a11 == 'n') ? '-' : '+') . (($a21 == 'n') ? '-' : '+')); |
|
| 1322 | - // cas simple {0,#ENV{truc}} compilons le en LIMIT : |
|
| 1323 | - if ($a11 !== 'n' && $a21 !== 'n' && $mode == '++' && $op == ',') { |
|
| 1324 | - $boucle->limit = |
|
| 1325 | - (is_numeric($a11) ? "'$a11'" : $a11) |
|
| 1326 | - . ".','." |
|
| 1327 | - . (is_numeric($a21) ? "'$a21'" : $a21); |
|
| 1328 | - } else { |
|
| 1329 | - calculer_parties($boucles, $idb, $partie, $mode); |
|
| 1330 | - } |
|
| 1331 | - } |
|
| 1305 | + $boucle = &$boucles[$idb]; |
|
| 1306 | + $a1 = $crit->param[0]; |
|
| 1307 | + $a2 = $crit->param[1]; |
|
| 1308 | + $op = $crit->op; |
|
| 1309 | + |
|
| 1310 | + [$a11, $a12] = calculer_critere_parties_aux($idb, $boucles, $a1); |
|
| 1311 | + [$a21, $a22] = calculer_critere_parties_aux($idb, $boucles, $a2); |
|
| 1312 | + |
|
| 1313 | + if (($op == ',') && (is_numeric($a11) && (is_numeric($a21)))) { |
|
| 1314 | + $boucle->limit = $a11 . ',' . $a21; |
|
| 1315 | + } else { |
|
| 1316 | + // 3 dans {1/3}, {2,3} ou {1,n-3} |
|
| 1317 | + $boucle->total_parties = ($a21 != 'n') ? $a21 : $a22; |
|
| 1318 | + // 2 dans {2/3}, {2,5}, {n-2,1} |
|
| 1319 | + $partie = ($a11 != 'n') ? $a11 : $a12; |
|
| 1320 | + $mode = (($op == '/') ? '/' : |
|
| 1321 | + (($a11 == 'n') ? '-' : '+') . (($a21 == 'n') ? '-' : '+')); |
|
| 1322 | + // cas simple {0,#ENV{truc}} compilons le en LIMIT : |
|
| 1323 | + if ($a11 !== 'n' && $a21 !== 'n' && $mode == '++' && $op == ',') { |
|
| 1324 | + $boucle->limit = |
|
| 1325 | + (is_numeric($a11) ? "'$a11'" : $a11) |
|
| 1326 | + . ".','." |
|
| 1327 | + . (is_numeric($a21) ? "'$a21'" : $a21); |
|
| 1328 | + } else { |
|
| 1329 | + calculer_parties($boucles, $idb, $partie, $mode); |
|
| 1330 | + } |
|
| 1331 | + } |
|
| 1332 | 1332 | } |
| 1333 | 1333 | |
| 1334 | 1334 | /** |
@@ -1356,63 +1356,63 @@ discard block |
||
| 1356 | 1356 | * @return void |
| 1357 | 1357 | **/ |
| 1358 | 1358 | function calculer_parties(&$boucles, $id_boucle, $debut, $mode) { |
| 1359 | - $total_parties = $boucles[$id_boucle]->total_parties; |
|
| 1360 | - |
|
| 1361 | - preg_match(',([+-/p])([+-/])?,', $mode, $regs); |
|
| 1362 | - [, $op1, $op2] = array_pad($regs, 3, null); |
|
| 1363 | - $nombre_boucle = "\$Numrows['$id_boucle']['total']"; |
|
| 1364 | - // {1/3} |
|
| 1365 | - if ($op1 == '/') { |
|
| 1366 | - $pmoins1 = is_numeric($debut) ? ($debut - 1) : "($debut-1)"; |
|
| 1367 | - $totpos = is_numeric($total_parties) ? ($total_parties) : |
|
| 1368 | - "($total_parties ? $total_parties : 1)"; |
|
| 1369 | - $fin = "ceil(($nombre_boucle * $debut )/$totpos) - 1"; |
|
| 1370 | - $debut = $pmoins1 ? "ceil(($nombre_boucle * $pmoins1)/$totpos);" : 0; |
|
| 1371 | - } else { |
|
| 1372 | - // cas {n-1,x} |
|
| 1373 | - if ($op1 == '-') { |
|
| 1374 | - $debut = "$nombre_boucle - $debut;"; |
|
| 1375 | - } |
|
| 1376 | - |
|
| 1377 | - // cas {x,n-1} |
|
| 1378 | - if ($op2 == '-') { |
|
| 1379 | - $fin = '$debut_boucle + ' . $nombre_boucle . ' - ' |
|
| 1380 | - . (is_numeric($total_parties) ? ($total_parties + 1) : |
|
| 1381 | - ($total_parties . ' - 1')); |
|
| 1382 | - } else { |
|
| 1383 | - // {x,1} ou {pagination} |
|
| 1384 | - $fin = '$debut_boucle' |
|
| 1385 | - . (is_numeric($total_parties) ? |
|
| 1386 | - (($total_parties == 1) ? '' : (' + ' . ($total_parties - 1))) : |
|
| 1387 | - ('+' . $total_parties . ' - 1')); |
|
| 1388 | - } |
|
| 1389 | - |
|
| 1390 | - // {pagination}, gerer le debut_xx=-1 pour tout voir |
|
| 1391 | - if ($op1 == 'p') { |
|
| 1392 | - $debut .= ";\n \$debut_boucle = ((\$tout=(\$debut_boucle == -1))?0:(\$debut_boucle))"; |
|
| 1393 | - $debut .= ";\n \$debut_boucle = max(0,min(\$debut_boucle,floor(($nombre_boucle-1)/($total_parties))*($total_parties)))"; |
|
| 1394 | - $fin = "(\$tout ? $nombre_boucle : $fin)"; |
|
| 1395 | - } |
|
| 1396 | - } |
|
| 1397 | - |
|
| 1398 | - // Notes : |
|
| 1399 | - // $debut_boucle et $fin_boucle sont les indices SQL du premier |
|
| 1400 | - // et du dernier demandes dans la boucle : 0 pour le premier, |
|
| 1401 | - // n-1 pour le dernier ; donc total_boucle = 1 + debut - fin |
|
| 1402 | - // Utiliser min pour rabattre $fin_boucle sur total_boucle. |
|
| 1403 | - |
|
| 1404 | - $boucles[$id_boucle]->mode_partie = "\n\t" |
|
| 1405 | - . '$debut_boucle = ' . $debut . ";\n " |
|
| 1406 | - . "\$debut_boucle = intval(\$debut_boucle);\n " |
|
| 1407 | - . '$fin_boucle = min(' . $fin . ", \$Numrows['$id_boucle']['total'] - 1);\n " |
|
| 1408 | - . '$Numrows[\'' . $id_boucle . "']['grand_total'] = \$Numrows['$id_boucle']['total'];\n " |
|
| 1409 | - . '$Numrows[\'' . $id_boucle . '\']["total"] = max(0,$fin_boucle - $debut_boucle + 1);' |
|
| 1410 | - . "\n\tif (\$debut_boucle>0" |
|
| 1411 | - . " AND \$debut_boucle < \$Numrows['$id_boucle']['grand_total']" |
|
| 1412 | - . " AND \$iter->seek(\$debut_boucle,'continue'))" |
|
| 1413 | - . "\n\t\t\$Numrows['$id_boucle']['compteur_boucle'] = \$debut_boucle;\n\t"; |
|
| 1414 | - |
|
| 1415 | - $boucles[$id_boucle]->partie = " |
|
| 1359 | + $total_parties = $boucles[$id_boucle]->total_parties; |
|
| 1360 | + |
|
| 1361 | + preg_match(',([+-/p])([+-/])?,', $mode, $regs); |
|
| 1362 | + [, $op1, $op2] = array_pad($regs, 3, null); |
|
| 1363 | + $nombre_boucle = "\$Numrows['$id_boucle']['total']"; |
|
| 1364 | + // {1/3} |
|
| 1365 | + if ($op1 == '/') { |
|
| 1366 | + $pmoins1 = is_numeric($debut) ? ($debut - 1) : "($debut-1)"; |
|
| 1367 | + $totpos = is_numeric($total_parties) ? ($total_parties) : |
|
| 1368 | + "($total_parties ? $total_parties : 1)"; |
|
| 1369 | + $fin = "ceil(($nombre_boucle * $debut )/$totpos) - 1"; |
|
| 1370 | + $debut = $pmoins1 ? "ceil(($nombre_boucle * $pmoins1)/$totpos);" : 0; |
|
| 1371 | + } else { |
|
| 1372 | + // cas {n-1,x} |
|
| 1373 | + if ($op1 == '-') { |
|
| 1374 | + $debut = "$nombre_boucle - $debut;"; |
|
| 1375 | + } |
|
| 1376 | + |
|
| 1377 | + // cas {x,n-1} |
|
| 1378 | + if ($op2 == '-') { |
|
| 1379 | + $fin = '$debut_boucle + ' . $nombre_boucle . ' - ' |
|
| 1380 | + . (is_numeric($total_parties) ? ($total_parties + 1) : |
|
| 1381 | + ($total_parties . ' - 1')); |
|
| 1382 | + } else { |
|
| 1383 | + // {x,1} ou {pagination} |
|
| 1384 | + $fin = '$debut_boucle' |
|
| 1385 | + . (is_numeric($total_parties) ? |
|
| 1386 | + (($total_parties == 1) ? '' : (' + ' . ($total_parties - 1))) : |
|
| 1387 | + ('+' . $total_parties . ' - 1')); |
|
| 1388 | + } |
|
| 1389 | + |
|
| 1390 | + // {pagination}, gerer le debut_xx=-1 pour tout voir |
|
| 1391 | + if ($op1 == 'p') { |
|
| 1392 | + $debut .= ";\n \$debut_boucle = ((\$tout=(\$debut_boucle == -1))?0:(\$debut_boucle))"; |
|
| 1393 | + $debut .= ";\n \$debut_boucle = max(0,min(\$debut_boucle,floor(($nombre_boucle-1)/($total_parties))*($total_parties)))"; |
|
| 1394 | + $fin = "(\$tout ? $nombre_boucle : $fin)"; |
|
| 1395 | + } |
|
| 1396 | + } |
|
| 1397 | + |
|
| 1398 | + // Notes : |
|
| 1399 | + // $debut_boucle et $fin_boucle sont les indices SQL du premier |
|
| 1400 | + // et du dernier demandes dans la boucle : 0 pour le premier, |
|
| 1401 | + // n-1 pour le dernier ; donc total_boucle = 1 + debut - fin |
|
| 1402 | + // Utiliser min pour rabattre $fin_boucle sur total_boucle. |
|
| 1403 | + |
|
| 1404 | + $boucles[$id_boucle]->mode_partie = "\n\t" |
|
| 1405 | + . '$debut_boucle = ' . $debut . ";\n " |
|
| 1406 | + . "\$debut_boucle = intval(\$debut_boucle);\n " |
|
| 1407 | + . '$fin_boucle = min(' . $fin . ", \$Numrows['$id_boucle']['total'] - 1);\n " |
|
| 1408 | + . '$Numrows[\'' . $id_boucle . "']['grand_total'] = \$Numrows['$id_boucle']['total'];\n " |
|
| 1409 | + . '$Numrows[\'' . $id_boucle . '\']["total"] = max(0,$fin_boucle - $debut_boucle + 1);' |
|
| 1410 | + . "\n\tif (\$debut_boucle>0" |
|
| 1411 | + . " AND \$debut_boucle < \$Numrows['$id_boucle']['grand_total']" |
|
| 1412 | + . " AND \$iter->seek(\$debut_boucle,'continue'))" |
|
| 1413 | + . "\n\t\t\$Numrows['$id_boucle']['compteur_boucle'] = \$debut_boucle;\n\t"; |
|
| 1414 | + |
|
| 1415 | + $boucles[$id_boucle]->partie = " |
|
| 1416 | 1416 | if (\$Numrows['$id_boucle']['compteur_boucle'] <= \$debut_boucle) continue; |
| 1417 | 1417 | if (\$Numrows['$id_boucle']['compteur_boucle']-1 > \$fin_boucle) break;"; |
| 1418 | 1418 | } |
@@ -1429,26 +1429,26 @@ discard block |
||
| 1429 | 1429 | * @return array Valeur de l'élément (peut être une expression PHP), Nombre soustrait |
| 1430 | 1430 | **/ |
| 1431 | 1431 | function calculer_critere_parties_aux($idb, &$boucles, $param) { |
| 1432 | - if ($param[0]->type != 'texte') { |
|
| 1433 | - $a1 = calculer_liste([$param[0]], $idb, $boucles, $boucles[$idb]->id_parent); |
|
| 1434 | - if (isset($param[1]->texte)) { |
|
| 1435 | - preg_match(',^\s*(-(\d+))?\s*$,', (string) $param[1]->texte, $m); |
|
| 1436 | - |
|
| 1437 | - return ["intval($a1)", ((isset($m[2]) && $m[2]) ? $m[2] : 0)]; |
|
| 1438 | - } else { |
|
| 1439 | - return ["intval($a1)", 0]; |
|
| 1440 | - } |
|
| 1441 | - } else { |
|
| 1442 | - preg_match(',^\s*((\d+)|n)\s*(-\s*(\d+)?\s*)?$,', (string) $param[0]->texte, $m); |
|
| 1443 | - $a1 = $m[1]; |
|
| 1444 | - if (empty($m[3])) { |
|
| 1445 | - return [$a1, 0]; |
|
| 1446 | - } elseif (!empty($m[4])) { |
|
| 1447 | - return [$a1, $m[4]]; |
|
| 1448 | - } else { |
|
| 1449 | - return [$a1, calculer_liste([$param[1]], $idb, $boucles, $boucles[$idb]->id_parent)]; |
|
| 1450 | - } |
|
| 1451 | - } |
|
| 1432 | + if ($param[0]->type != 'texte') { |
|
| 1433 | + $a1 = calculer_liste([$param[0]], $idb, $boucles, $boucles[$idb]->id_parent); |
|
| 1434 | + if (isset($param[1]->texte)) { |
|
| 1435 | + preg_match(',^\s*(-(\d+))?\s*$,', (string) $param[1]->texte, $m); |
|
| 1436 | + |
|
| 1437 | + return ["intval($a1)", ((isset($m[2]) && $m[2]) ? $m[2] : 0)]; |
|
| 1438 | + } else { |
|
| 1439 | + return ["intval($a1)", 0]; |
|
| 1440 | + } |
|
| 1441 | + } else { |
|
| 1442 | + preg_match(',^\s*((\d+)|n)\s*(-\s*(\d+)?\s*)?$,', (string) $param[0]->texte, $m); |
|
| 1443 | + $a1 = $m[1]; |
|
| 1444 | + if (empty($m[3])) { |
|
| 1445 | + return [$a1, 0]; |
|
| 1446 | + } elseif (!empty($m[4])) { |
|
| 1447 | + return [$a1, $m[4]]; |
|
| 1448 | + } else { |
|
| 1449 | + return [$a1, calculer_liste([$param[1]], $idb, $boucles, $boucles[$idb]->id_parent)]; |
|
| 1450 | + } |
|
| 1451 | + } |
|
| 1452 | 1452 | } |
| 1453 | 1453 | |
| 1454 | 1454 | |
@@ -1475,46 +1475,46 @@ discard block |
||
| 1475 | 1475 | * array : Erreur sur un des critères |
| 1476 | 1476 | **/ |
| 1477 | 1477 | function calculer_criteres($idb, &$boucles) { |
| 1478 | - $msg = ''; |
|
| 1479 | - $boucle = $boucles[$idb]; |
|
| 1480 | - $table = strtoupper((string) $boucle->type_requete); |
|
| 1481 | - $serveur = strtolower((string) $boucle->sql_serveur); |
|
| 1482 | - |
|
| 1483 | - $defaut = charger_fonction('DEFAUT', 'calculer_critere'); |
|
| 1484 | - // s'il y avait une erreur de syntaxe, propager cette info |
|
| 1485 | - if (!is_array($boucle->criteres)) { |
|
| 1486 | - return []; |
|
| 1487 | - } |
|
| 1488 | - |
|
| 1489 | - foreach ($boucle->criteres as $crit) { |
|
| 1490 | - $critere = $crit->op; |
|
| 1491 | - // critere personnalise ? |
|
| 1492 | - if ( |
|
| 1493 | - (!$serveur |
|
| 1494 | - || !function_exists($f = 'critere_' . $serveur . '_' . $table . '_' . $critere) |
|
| 1495 | - && !function_exists($f .= '_dist') |
|
| 1496 | - && !function_exists($f = 'critere_' . $serveur . '_' . $critere) |
|
| 1497 | - && !function_exists($f .= '_dist') |
|
| 1498 | - ) |
|
| 1499 | - && !function_exists($f = 'critere_' . $table . '_' . $critere) |
|
| 1500 | - && !function_exists($f .= '_dist') |
|
| 1501 | - && !function_exists($f = 'critere_' . $critere) |
|
| 1502 | - && !function_exists($f .= '_dist') |
|
| 1503 | - ) { |
|
| 1504 | - // fonction critere standard |
|
| 1505 | - $f = $defaut; |
|
| 1506 | - } |
|
| 1507 | - // compile le critere |
|
| 1508 | - $res = $f($idb, $boucles, $crit); |
|
| 1509 | - |
|
| 1510 | - // Gestion centralisee des erreurs pour pouvoir propager |
|
| 1511 | - if (is_array($res)) { |
|
| 1512 | - $msg = $res; |
|
| 1513 | - erreur_squelette($msg, $boucle); |
|
| 1514 | - } |
|
| 1515 | - } |
|
| 1516 | - |
|
| 1517 | - return $msg; |
|
| 1478 | + $msg = ''; |
|
| 1479 | + $boucle = $boucles[$idb]; |
|
| 1480 | + $table = strtoupper((string) $boucle->type_requete); |
|
| 1481 | + $serveur = strtolower((string) $boucle->sql_serveur); |
|
| 1482 | + |
|
| 1483 | + $defaut = charger_fonction('DEFAUT', 'calculer_critere'); |
|
| 1484 | + // s'il y avait une erreur de syntaxe, propager cette info |
|
| 1485 | + if (!is_array($boucle->criteres)) { |
|
| 1486 | + return []; |
|
| 1487 | + } |
|
| 1488 | + |
|
| 1489 | + foreach ($boucle->criteres as $crit) { |
|
| 1490 | + $critere = $crit->op; |
|
| 1491 | + // critere personnalise ? |
|
| 1492 | + if ( |
|
| 1493 | + (!$serveur |
|
| 1494 | + || !function_exists($f = 'critere_' . $serveur . '_' . $table . '_' . $critere) |
|
| 1495 | + && !function_exists($f .= '_dist') |
|
| 1496 | + && !function_exists($f = 'critere_' . $serveur . '_' . $critere) |
|
| 1497 | + && !function_exists($f .= '_dist') |
|
| 1498 | + ) |
|
| 1499 | + && !function_exists($f = 'critere_' . $table . '_' . $critere) |
|
| 1500 | + && !function_exists($f .= '_dist') |
|
| 1501 | + && !function_exists($f = 'critere_' . $critere) |
|
| 1502 | + && !function_exists($f .= '_dist') |
|
| 1503 | + ) { |
|
| 1504 | + // fonction critere standard |
|
| 1505 | + $f = $defaut; |
|
| 1506 | + } |
|
| 1507 | + // compile le critere |
|
| 1508 | + $res = $f($idb, $boucles, $crit); |
|
| 1509 | + |
|
| 1510 | + // Gestion centralisee des erreurs pour pouvoir propager |
|
| 1511 | + if (is_array($res)) { |
|
| 1512 | + $msg = $res; |
|
| 1513 | + erreur_squelette($msg, $boucle); |
|
| 1514 | + } |
|
| 1515 | + } |
|
| 1516 | + |
|
| 1517 | + return $msg; |
|
| 1518 | 1518 | } |
| 1519 | 1519 | |
| 1520 | 1520 | /** |
@@ -1529,11 +1529,11 @@ discard block |
||
| 1529 | 1529 | * @return string Code compilé rééchappé |
| 1530 | 1530 | */ |
| 1531 | 1531 | function kwote($lisp, $serveur = '', $type = '') { |
| 1532 | - if (preg_match(_CODE_QUOTE, $lisp, $r)) { |
|
| 1533 | - return $r[1] . '"' . sql_quote(str_replace(["\\'", '\\\\'], ["'", '\\'], $r[2]), $serveur, $type) . '"'; |
|
| 1534 | - } else { |
|
| 1535 | - return "sql_quote($lisp, '$serveur', '" . str_replace("'", "\\'", $type) . "')"; |
|
| 1536 | - } |
|
| 1532 | + if (preg_match(_CODE_QUOTE, $lisp, $r)) { |
|
| 1533 | + return $r[1] . '"' . sql_quote(str_replace(["\\'", '\\\\'], ["'", '\\'], $r[2]), $serveur, $type) . '"'; |
|
| 1534 | + } else { |
|
| 1535 | + return "sql_quote($lisp, '$serveur', '" . str_replace("'", "\\'", $type) . "')"; |
|
| 1536 | + } |
|
| 1537 | 1537 | } |
| 1538 | 1538 | |
| 1539 | 1539 | |
@@ -1552,81 +1552,81 @@ discard block |
||
| 1552 | 1552 | * @return void|array |
| 1553 | 1553 | **/ |
| 1554 | 1554 | function critere_IN_dist($idb, &$boucles, $crit) { |
| 1555 | - $r = calculer_critere_infixe($idb, $boucles, $crit); |
|
| 1556 | - if (!$r) { |
|
| 1557 | - return ['zbug_critere_inconnu', ['critere' => $crit->op . ' ?']]; |
|
| 1558 | - } |
|
| 1559 | - [$arg, $op, $val, $col, $where_complement] = $r; |
|
| 1560 | - |
|
| 1561 | - $in = critere_IN_cas($idb, $boucles, $crit->not ? 'NOT' : ($crit->exclus ? 'exclus' : ''), $arg, $op, $val, $col); |
|
| 1562 | - |
|
| 1563 | - // inserer la condition; exemple: {id_mot ?IN (66, 62, 64)} |
|
| 1564 | - $where = $in; |
|
| 1565 | - if ($crit->cond) { |
|
| 1566 | - $pred = calculer_argument_precedent($idb, $col, $boucles); |
|
| 1567 | - $where = ["'?'", $pred, $where, "''"]; |
|
| 1568 | - if ($where_complement) { // condition annexe du type "AND (objet='article')" |
|
| 1569 | - $where_complement = ["'?'", $pred, $where_complement, "''"]; |
|
| 1570 | - } |
|
| 1571 | - } |
|
| 1572 | - if ($crit->exclus) { |
|
| 1573 | - if (!preg_match(',^L\d+[.],', (string) $arg)) { |
|
| 1574 | - $where = ["'NOT'", $where]; |
|
| 1575 | - } else // un not sur un critere de jointure se traduit comme un NOT IN avec une sous requete |
|
| 1576 | - // c'est une sous requete identique a la requete principale sous la forme (SELF,$select,$where) avec $select et $where qui surchargent |
|
| 1577 | - { |
|
| 1578 | - $where = [ |
|
| 1579 | - "'NOT'", |
|
| 1580 | - [ |
|
| 1581 | - "'IN'", |
|
| 1582 | - "'" . $boucles[$idb]->id_table . '.' . $boucles[$idb]->primary . "'", |
|
| 1583 | - ["'SELF'", "'" . $boucles[$idb]->id_table . '.' . $boucles[$idb]->primary . "'", $where] |
|
| 1584 | - ] |
|
| 1585 | - ]; |
|
| 1586 | - } |
|
| 1587 | - } |
|
| 1588 | - |
|
| 1589 | - $boucles[$idb]->where[] = $where; |
|
| 1590 | - if ($where_complement) { // condition annexe du type "AND (objet='article')" |
|
| 1591 | - $boucles[$idb]->where[] = $where_complement; |
|
| 1592 | - } |
|
| 1555 | + $r = calculer_critere_infixe($idb, $boucles, $crit); |
|
| 1556 | + if (!$r) { |
|
| 1557 | + return ['zbug_critere_inconnu', ['critere' => $crit->op . ' ?']]; |
|
| 1558 | + } |
|
| 1559 | + [$arg, $op, $val, $col, $where_complement] = $r; |
|
| 1560 | + |
|
| 1561 | + $in = critere_IN_cas($idb, $boucles, $crit->not ? 'NOT' : ($crit->exclus ? 'exclus' : ''), $arg, $op, $val, $col); |
|
| 1562 | + |
|
| 1563 | + // inserer la condition; exemple: {id_mot ?IN (66, 62, 64)} |
|
| 1564 | + $where = $in; |
|
| 1565 | + if ($crit->cond) { |
|
| 1566 | + $pred = calculer_argument_precedent($idb, $col, $boucles); |
|
| 1567 | + $where = ["'?'", $pred, $where, "''"]; |
|
| 1568 | + if ($where_complement) { // condition annexe du type "AND (objet='article')" |
|
| 1569 | + $where_complement = ["'?'", $pred, $where_complement, "''"]; |
|
| 1570 | + } |
|
| 1571 | + } |
|
| 1572 | + if ($crit->exclus) { |
|
| 1573 | + if (!preg_match(',^L\d+[.],', (string) $arg)) { |
|
| 1574 | + $where = ["'NOT'", $where]; |
|
| 1575 | + } else // un not sur un critere de jointure se traduit comme un NOT IN avec une sous requete |
|
| 1576 | + // c'est une sous requete identique a la requete principale sous la forme (SELF,$select,$where) avec $select et $where qui surchargent |
|
| 1577 | + { |
|
| 1578 | + $where = [ |
|
| 1579 | + "'NOT'", |
|
| 1580 | + [ |
|
| 1581 | + "'IN'", |
|
| 1582 | + "'" . $boucles[$idb]->id_table . '.' . $boucles[$idb]->primary . "'", |
|
| 1583 | + ["'SELF'", "'" . $boucles[$idb]->id_table . '.' . $boucles[$idb]->primary . "'", $where] |
|
| 1584 | + ] |
|
| 1585 | + ]; |
|
| 1586 | + } |
|
| 1587 | + } |
|
| 1588 | + |
|
| 1589 | + $boucles[$idb]->where[] = $where; |
|
| 1590 | + if ($where_complement) { // condition annexe du type "AND (objet='article')" |
|
| 1591 | + $boucles[$idb]->where[] = $where_complement; |
|
| 1592 | + } |
|
| 1593 | 1593 | } |
| 1594 | 1594 | |
| 1595 | 1595 | function critere_IN_cas($idb, &$boucles, $crit2, $arg, $op, $val, $col) { |
| 1596 | - static $num = []; |
|
| 1597 | - $descr = $boucles[$idb]->descr; |
|
| 1598 | - $cpt = &$num[$descr['nom']][$descr['gram']][$idb]; |
|
| 1599 | - |
|
| 1600 | - $var = '$in' . $cpt++; |
|
| 1601 | - $x = "\n\t$var = array();"; |
|
| 1602 | - foreach ($val as $k => $v) { |
|
| 1603 | - if (preg_match(",^(\n//.*\n)?'(.*)'$,", (string) $v, $r)) { |
|
| 1604 | - // optimiser le traitement des constantes |
|
| 1605 | - if (is_numeric($r[2])) { |
|
| 1606 | - $x .= "\n\t$var" . "[]= $r[2];"; |
|
| 1607 | - } else { |
|
| 1608 | - $x .= "\n\t$var" . '[]= ' . sql_quote($r[2]) . ';'; |
|
| 1609 | - } |
|
| 1610 | - } else { |
|
| 1611 | - // Pour permettre de passer des tableaux de valeurs |
|
| 1612 | - // on repere l'utilisation brute de #ENV**{X}, |
|
| 1613 | - // c'est-a-dire sa traduction en ($PILE[0][X]). |
|
| 1614 | - // et on deballe mais en rajoutant l'anti XSS |
|
| 1615 | - $x .= "\n\tif (!(is_array(\$a = ($v))))\n\t\t$var" . "[]= \$a;\n\telse $var = array_merge($var, \$a);"; |
|
| 1616 | - } |
|
| 1617 | - } |
|
| 1618 | - |
|
| 1619 | - $boucles[$idb]->in .= $x; |
|
| 1620 | - |
|
| 1621 | - // inserer le tri par defaut selon les ordres du IN ... |
|
| 1622 | - // avec une ecriture de type FIELD qui degrade les performances (du meme ordre qu'un regexp) |
|
| 1623 | - // et que l'on limite donc strictement aux cas necessaires : |
|
| 1624 | - // si ce n'est pas un !IN, et si il n'y a pas d'autre order dans la boucle |
|
| 1625 | - if (!$crit2) { |
|
| 1626 | - $boucles[$idb]->default_order[] = "((!\$zqv=sql_quote($var) OR \$zqv===\"''\") ? 0 : ('FIELD($arg,' . \$zqv . ')'))"; |
|
| 1627 | - } |
|
| 1628 | - |
|
| 1629 | - return "sql_in('$arg', $var" . ($crit2 == 'NOT' ? ",'NOT'" : '') . ')'; |
|
| 1596 | + static $num = []; |
|
| 1597 | + $descr = $boucles[$idb]->descr; |
|
| 1598 | + $cpt = &$num[$descr['nom']][$descr['gram']][$idb]; |
|
| 1599 | + |
|
| 1600 | + $var = '$in' . $cpt++; |
|
| 1601 | + $x = "\n\t$var = array();"; |
|
| 1602 | + foreach ($val as $k => $v) { |
|
| 1603 | + if (preg_match(",^(\n//.*\n)?'(.*)'$,", (string) $v, $r)) { |
|
| 1604 | + // optimiser le traitement des constantes |
|
| 1605 | + if (is_numeric($r[2])) { |
|
| 1606 | + $x .= "\n\t$var" . "[]= $r[2];"; |
|
| 1607 | + } else { |
|
| 1608 | + $x .= "\n\t$var" . '[]= ' . sql_quote($r[2]) . ';'; |
|
| 1609 | + } |
|
| 1610 | + } else { |
|
| 1611 | + // Pour permettre de passer des tableaux de valeurs |
|
| 1612 | + // on repere l'utilisation brute de #ENV**{X}, |
|
| 1613 | + // c'est-a-dire sa traduction en ($PILE[0][X]). |
|
| 1614 | + // et on deballe mais en rajoutant l'anti XSS |
|
| 1615 | + $x .= "\n\tif (!(is_array(\$a = ($v))))\n\t\t$var" . "[]= \$a;\n\telse $var = array_merge($var, \$a);"; |
|
| 1616 | + } |
|
| 1617 | + } |
|
| 1618 | + |
|
| 1619 | + $boucles[$idb]->in .= $x; |
|
| 1620 | + |
|
| 1621 | + // inserer le tri par defaut selon les ordres du IN ... |
|
| 1622 | + // avec une ecriture de type FIELD qui degrade les performances (du meme ordre qu'un regexp) |
|
| 1623 | + // et que l'on limite donc strictement aux cas necessaires : |
|
| 1624 | + // si ce n'est pas un !IN, et si il n'y a pas d'autre order dans la boucle |
|
| 1625 | + if (!$crit2) { |
|
| 1626 | + $boucles[$idb]->default_order[] = "((!\$zqv=sql_quote($var) OR \$zqv===\"''\") ? 0 : ('FIELD($arg,' . \$zqv . ')'))"; |
|
| 1627 | + } |
|
| 1628 | + |
|
| 1629 | + return "sql_in('$arg', $var" . ($crit2 == 'NOT' ? ",'NOT'" : '') . ')'; |
|
| 1630 | 1630 | } |
| 1631 | 1631 | |
| 1632 | 1632 | /** |
@@ -1642,22 +1642,22 @@ discard block |
||
| 1642 | 1642 | * @return void |
| 1643 | 1643 | */ |
| 1644 | 1644 | function critere_where_dist($idb, &$boucles, $crit) { |
| 1645 | - $boucle = &$boucles[$idb]; |
|
| 1646 | - if (isset($crit->param[0])) { |
|
| 1647 | - $_where = calculer_liste($crit->param[0], $idb, $boucles, $boucle->id_parent); |
|
| 1648 | - } else { |
|
| 1649 | - $_where = "spip_sanitize_from_request(\$Pile[0]['where'] ?? null, 'where', 'vide')"; |
|
| 1650 | - } |
|
| 1651 | - |
|
| 1652 | - if ($crit->cond) { |
|
| 1653 | - $_where = "$_where ?: ''"; |
|
| 1654 | - } |
|
| 1655 | - |
|
| 1656 | - if ($crit->not) { |
|
| 1657 | - $_where = "['NOT', $_where]"; |
|
| 1658 | - } |
|
| 1659 | - |
|
| 1660 | - $boucle->where[] = $_where; |
|
| 1645 | + $boucle = &$boucles[$idb]; |
|
| 1646 | + if (isset($crit->param[0])) { |
|
| 1647 | + $_where = calculer_liste($crit->param[0], $idb, $boucles, $boucle->id_parent); |
|
| 1648 | + } else { |
|
| 1649 | + $_where = "spip_sanitize_from_request(\$Pile[0]['where'] ?? null, 'where', 'vide')"; |
|
| 1650 | + } |
|
| 1651 | + |
|
| 1652 | + if ($crit->cond) { |
|
| 1653 | + $_where = "$_where ?: ''"; |
|
| 1654 | + } |
|
| 1655 | + |
|
| 1656 | + if ($crit->not) { |
|
| 1657 | + $_where = "['NOT', $_where]"; |
|
| 1658 | + } |
|
| 1659 | + |
|
| 1660 | + $boucle->where[] = $_where; |
|
| 1661 | 1661 | } |
| 1662 | 1662 | |
| 1663 | 1663 | /** |
@@ -1673,22 +1673,22 @@ discard block |
||
| 1673 | 1673 | * @return void |
| 1674 | 1674 | */ |
| 1675 | 1675 | function critere_having_dist($idb, &$boucles, $crit) { |
| 1676 | - $boucle = &$boucles[$idb]; |
|
| 1677 | - if (isset($crit->param[0])) { |
|
| 1678 | - $_having = calculer_liste($crit->param[0], $idb, $boucles, $boucle->id_parent); |
|
| 1679 | - } else { |
|
| 1680 | - $_having = "spip_sanitize_from_request(\$Pile[0]['having'] ?? null, 'having', 'vide')"; |
|
| 1681 | - } |
|
| 1682 | - |
|
| 1683 | - if ($crit->cond) { |
|
| 1684 | - $_having = "$_having ?: ''"; |
|
| 1685 | - } |
|
| 1686 | - |
|
| 1687 | - if ($crit->not) { |
|
| 1688 | - $_having = "['NOT', $_having]"; |
|
| 1689 | - } |
|
| 1690 | - |
|
| 1691 | - $boucle->having[] = $_having; |
|
| 1676 | + $boucle = &$boucles[$idb]; |
|
| 1677 | + if (isset($crit->param[0])) { |
|
| 1678 | + $_having = calculer_liste($crit->param[0], $idb, $boucles, $boucle->id_parent); |
|
| 1679 | + } else { |
|
| 1680 | + $_having = "spip_sanitize_from_request(\$Pile[0]['having'] ?? null, 'having', 'vide')"; |
|
| 1681 | + } |
|
| 1682 | + |
|
| 1683 | + if ($crit->cond) { |
|
| 1684 | + $_having = "$_having ?: ''"; |
|
| 1685 | + } |
|
| 1686 | + |
|
| 1687 | + if ($crit->not) { |
|
| 1688 | + $_having = "['NOT', $_having]"; |
|
| 1689 | + } |
|
| 1690 | + |
|
| 1691 | + $boucle->having[] = $_having; |
|
| 1692 | 1692 | } |
| 1693 | 1693 | |
| 1694 | 1694 | /** |
@@ -1716,31 +1716,31 @@ discard block |
||
| 1716 | 1716 | * @return void |
| 1717 | 1717 | */ |
| 1718 | 1718 | function critere_id__dist($idb, &$boucles, $crit) { |
| 1719 | - /** @var Boucle $boucle */ |
|
| 1720 | - $boucle = $boucles[$idb]; |
|
| 1721 | - |
|
| 1722 | - $champs = lister_champs_id_conditionnel( |
|
| 1723 | - $boucle->show['table'], |
|
| 1724 | - $boucle->show, |
|
| 1725 | - $boucle->sql_serveur |
|
| 1726 | - ); |
|
| 1727 | - |
|
| 1728 | - // ne pas tenir compte des critères identiques déjà présents. |
|
| 1729 | - if (!empty($boucle->modificateur['criteres'])) { |
|
| 1730 | - $champs = array_diff($champs, array_keys($boucle->modificateur['criteres'])); |
|
| 1731 | - } |
|
| 1732 | - // nous aider en mode debug. |
|
| 1733 | - $boucle->debug[] = 'id_ : ' . implode(', ', $champs); |
|
| 1734 | - $boucle->modificateur['id_'] = $champs; |
|
| 1735 | - |
|
| 1736 | - // créer un critère {id_xxx?} de chaque champ retenu |
|
| 1737 | - foreach ($champs as $champ) { |
|
| 1738 | - $critere_id_table = new Critere(); |
|
| 1739 | - $critere_id_table->op = $champ; |
|
| 1740 | - $critere_id_table->cond = true; |
|
| 1741 | - $critere_id_table->ligne = $crit->ligne; |
|
| 1742 | - calculer_critere_DEFAUT_dist($idb, $boucles, $critere_id_table); |
|
| 1743 | - } |
|
| 1719 | + /** @var Boucle $boucle */ |
|
| 1720 | + $boucle = $boucles[$idb]; |
|
| 1721 | + |
|
| 1722 | + $champs = lister_champs_id_conditionnel( |
|
| 1723 | + $boucle->show['table'], |
|
| 1724 | + $boucle->show, |
|
| 1725 | + $boucle->sql_serveur |
|
| 1726 | + ); |
|
| 1727 | + |
|
| 1728 | + // ne pas tenir compte des critères identiques déjà présents. |
|
| 1729 | + if (!empty($boucle->modificateur['criteres'])) { |
|
| 1730 | + $champs = array_diff($champs, array_keys($boucle->modificateur['criteres'])); |
|
| 1731 | + } |
|
| 1732 | + // nous aider en mode debug. |
|
| 1733 | + $boucle->debug[] = 'id_ : ' . implode(', ', $champs); |
|
| 1734 | + $boucle->modificateur['id_'] = $champs; |
|
| 1735 | + |
|
| 1736 | + // créer un critère {id_xxx?} de chaque champ retenu |
|
| 1737 | + foreach ($champs as $champ) { |
|
| 1738 | + $critere_id_table = new Critere(); |
|
| 1739 | + $critere_id_table->op = $champ; |
|
| 1740 | + $critere_id_table->cond = true; |
|
| 1741 | + $critere_id_table->ligne = $crit->ligne; |
|
| 1742 | + calculer_critere_DEFAUT_dist($idb, $boucles, $critere_id_table); |
|
| 1743 | + } |
|
| 1744 | 1744 | } |
| 1745 | 1745 | |
| 1746 | 1746 | /** |
@@ -1760,74 +1760,74 @@ discard block |
||
| 1760 | 1760 | * @return array Liste de nom de champs (tel que id_article, id_mot, id_parent ...) |
| 1761 | 1761 | */ |
| 1762 | 1762 | function lister_champs_id_conditionnel($table, $desc = null, $serveur = '') { |
| 1763 | - // calculer la description de la table |
|
| 1764 | - if (!is_array($desc)) { |
|
| 1765 | - $desc = description_table($table, $serveur); |
|
| 1766 | - } |
|
| 1767 | - if (!$desc) { |
|
| 1768 | - return []; |
|
| 1769 | - } |
|
| 1770 | - |
|
| 1771 | - // Les champs id_xx de la table demandée |
|
| 1772 | - $champs = array_filter( |
|
| 1773 | - array_keys($desc['field']), |
|
| 1774 | - fn($champ) => str_starts_with($champ, 'id_') || $champ == 'objet' |
|
| 1775 | - ); |
|
| 1776 | - |
|
| 1777 | - // Si le champ id_rubrique appartient à la liste et si id_secteur n'est pas inclus on le rajoute. |
|
| 1778 | - if ( |
|
| 1779 | - in_array('id_rubrique', $champs) |
|
| 1780 | - && !in_array('id_secteur', $champs) |
|
| 1781 | - ) { |
|
| 1782 | - $champs[] = 'id_secteur'; |
|
| 1783 | - } |
|
| 1784 | - |
|
| 1785 | - // On ne fera pas mieux pour les tables d’un autre serveur |
|
| 1786 | - if ($serveur) { |
|
| 1787 | - return $champs; |
|
| 1788 | - } |
|
| 1789 | - |
|
| 1790 | - $primary = false; |
|
| 1791 | - $associable = false; |
|
| 1792 | - include_spip('action/editer_liens'); |
|
| 1793 | - |
|
| 1794 | - if (isset($desc['type'])) { |
|
| 1795 | - $primary = id_table_objet($desc['type']); |
|
| 1796 | - $associable = objet_associable($desc['type']); |
|
| 1797 | - } |
|
| 1798 | - if (isset($desc['field']['id_objet']) && isset($desc['field']['objet'])) { |
|
| 1799 | - $associable = true; |
|
| 1800 | - } |
|
| 1801 | - |
|
| 1802 | - // liste de toutes les tables principales, sauf la notre |
|
| 1803 | - $tables = lister_tables_objets_sql(); |
|
| 1804 | - unset($tables[$table]); |
|
| 1805 | - |
|
| 1806 | - foreach ($tables as $_table => $_desc) { |
|
| 1807 | - if ( |
|
| 1808 | - $associable |
|
| 1809 | - || $primary && array_key_exists($primary, $_desc['field']) |
|
| 1810 | - || objet_associable($_desc['type']) |
|
| 1811 | - ) { |
|
| 1812 | - $champs[] = id_table_objet($_table); |
|
| 1813 | - } |
|
| 1814 | - } |
|
| 1815 | - $champs = array_values(array_unique($champs)); |
|
| 1816 | - |
|
| 1817 | - // Exclusions de certains id |
|
| 1818 | - $exclusions = pipeline( |
|
| 1819 | - 'exclure_id_conditionnel', |
|
| 1820 | - [ |
|
| 1821 | - 'args' => [ |
|
| 1822 | - 'table' => $table, |
|
| 1823 | - 'id_table_objet' => $primary, |
|
| 1824 | - 'associable' => $associable, |
|
| 1825 | - ], |
|
| 1826 | - 'data' => [], |
|
| 1827 | - ] |
|
| 1828 | - ); |
|
| 1829 | - |
|
| 1830 | - return array_diff($champs, $exclusions); |
|
| 1763 | + // calculer la description de la table |
|
| 1764 | + if (!is_array($desc)) { |
|
| 1765 | + $desc = description_table($table, $serveur); |
|
| 1766 | + } |
|
| 1767 | + if (!$desc) { |
|
| 1768 | + return []; |
|
| 1769 | + } |
|
| 1770 | + |
|
| 1771 | + // Les champs id_xx de la table demandée |
|
| 1772 | + $champs = array_filter( |
|
| 1773 | + array_keys($desc['field']), |
|
| 1774 | + fn($champ) => str_starts_with($champ, 'id_') || $champ == 'objet' |
|
| 1775 | + ); |
|
| 1776 | + |
|
| 1777 | + // Si le champ id_rubrique appartient à la liste et si id_secteur n'est pas inclus on le rajoute. |
|
| 1778 | + if ( |
|
| 1779 | + in_array('id_rubrique', $champs) |
|
| 1780 | + && !in_array('id_secteur', $champs) |
|
| 1781 | + ) { |
|
| 1782 | + $champs[] = 'id_secteur'; |
|
| 1783 | + } |
|
| 1784 | + |
|
| 1785 | + // On ne fera pas mieux pour les tables d’un autre serveur |
|
| 1786 | + if ($serveur) { |
|
| 1787 | + return $champs; |
|
| 1788 | + } |
|
| 1789 | + |
|
| 1790 | + $primary = false; |
|
| 1791 | + $associable = false; |
|
| 1792 | + include_spip('action/editer_liens'); |
|
| 1793 | + |
|
| 1794 | + if (isset($desc['type'])) { |
|
| 1795 | + $primary = id_table_objet($desc['type']); |
|
| 1796 | + $associable = objet_associable($desc['type']); |
|
| 1797 | + } |
|
| 1798 | + if (isset($desc['field']['id_objet']) && isset($desc['field']['objet'])) { |
|
| 1799 | + $associable = true; |
|
| 1800 | + } |
|
| 1801 | + |
|
| 1802 | + // liste de toutes les tables principales, sauf la notre |
|
| 1803 | + $tables = lister_tables_objets_sql(); |
|
| 1804 | + unset($tables[$table]); |
|
| 1805 | + |
|
| 1806 | + foreach ($tables as $_table => $_desc) { |
|
| 1807 | + if ( |
|
| 1808 | + $associable |
|
| 1809 | + || $primary && array_key_exists($primary, $_desc['field']) |
|
| 1810 | + || objet_associable($_desc['type']) |
|
| 1811 | + ) { |
|
| 1812 | + $champs[] = id_table_objet($_table); |
|
| 1813 | + } |
|
| 1814 | + } |
|
| 1815 | + $champs = array_values(array_unique($champs)); |
|
| 1816 | + |
|
| 1817 | + // Exclusions de certains id |
|
| 1818 | + $exclusions = pipeline( |
|
| 1819 | + 'exclure_id_conditionnel', |
|
| 1820 | + [ |
|
| 1821 | + 'args' => [ |
|
| 1822 | + 'table' => $table, |
|
| 1823 | + 'id_table_objet' => $primary, |
|
| 1824 | + 'associable' => $associable, |
|
| 1825 | + ], |
|
| 1826 | + 'data' => [], |
|
| 1827 | + ] |
|
| 1828 | + ); |
|
| 1829 | + |
|
| 1830 | + return array_diff($champs, $exclusions); |
|
| 1831 | 1831 | } |
| 1832 | 1832 | |
| 1833 | 1833 | /** |
@@ -1882,31 +1882,31 @@ discard block |
||
| 1882 | 1882 | * @return void |
| 1883 | 1883 | */ |
| 1884 | 1884 | function critere_tri_dist($idb, &$boucles, $crit) { |
| 1885 | - $boucle = &$boucles[$idb]; |
|
| 1886 | - |
|
| 1887 | - // definition du champ par defaut |
|
| 1888 | - $_champ_defaut = isset($crit->param[0][0]) |
|
| 1889 | - ? calculer_liste([$crit->param[0][0]], $idb, $boucles, $boucle->id_parent) |
|
| 1890 | - : "''"; |
|
| 1891 | - $_liste_sens_defaut = isset($crit->param[1][0]) |
|
| 1892 | - ? calculer_liste([$crit->param[1][0]], $idb, $boucles, $boucle->id_parent) |
|
| 1893 | - : '1'; |
|
| 1894 | - $_variable = isset($crit->param[2][0]) |
|
| 1895 | - ? calculer_liste([$crit->param[2][0]], $idb, $boucles, $boucle->id_parent) |
|
| 1896 | - : "'$idb'"; |
|
| 1897 | - |
|
| 1898 | - $_tri = "((\$t=(isset(\$Pile[0]['tri'.$_variable]))?\$Pile[0]['tri'.$_variable]:((strncmp($_variable,'session',7)==0 AND session_get('tri'.$_variable))?session_get('tri'.$_variable):$_champ_defaut))?tri_protege_champ(\$t):'')"; |
|
| 1899 | - |
|
| 1900 | - $_sens_defaut = "(is_array(\$s=$_liste_sens_defaut)?(isset(\$s[\$st=$_tri])?\$s[\$st]:reset(\$s)):\$s)"; |
|
| 1901 | - $_sens = "((intval(\$t=(isset(\$Pile[0]['sens'.$_variable]))?\$Pile[0]['sens'.$_variable]:((strncmp($_variable,'session',7)==0 AND session_get('sens'.$_variable))?session_get('sens'.$_variable):$_sens_defaut))==-1 OR \$t=='inverse')?-1:1)"; |
|
| 1902 | - |
|
| 1903 | - $boucle->modificateur['tri_champ'] = $_tri; |
|
| 1904 | - $boucle->modificateur['tri_sens'] = $_sens; |
|
| 1905 | - $boucle->modificateur['tri_liste_sens_defaut'] = $_liste_sens_defaut; |
|
| 1906 | - $boucle->modificateur['tri_nom'] = $_variable; |
|
| 1907 | - // faut il inserer un test sur l'existence de $tri parmi les champs de la table ? |
|
| 1908 | - // evite des erreurs sql, mais peut empecher des tri sur jointure ... |
|
| 1909 | - $boucle->hash .= " |
|
| 1885 | + $boucle = &$boucles[$idb]; |
|
| 1886 | + |
|
| 1887 | + // definition du champ par defaut |
|
| 1888 | + $_champ_defaut = isset($crit->param[0][0]) |
|
| 1889 | + ? calculer_liste([$crit->param[0][0]], $idb, $boucles, $boucle->id_parent) |
|
| 1890 | + : "''"; |
|
| 1891 | + $_liste_sens_defaut = isset($crit->param[1][0]) |
|
| 1892 | + ? calculer_liste([$crit->param[1][0]], $idb, $boucles, $boucle->id_parent) |
|
| 1893 | + : '1'; |
|
| 1894 | + $_variable = isset($crit->param[2][0]) |
|
| 1895 | + ? calculer_liste([$crit->param[2][0]], $idb, $boucles, $boucle->id_parent) |
|
| 1896 | + : "'$idb'"; |
|
| 1897 | + |
|
| 1898 | + $_tri = "((\$t=(isset(\$Pile[0]['tri'.$_variable]))?\$Pile[0]['tri'.$_variable]:((strncmp($_variable,'session',7)==0 AND session_get('tri'.$_variable))?session_get('tri'.$_variable):$_champ_defaut))?tri_protege_champ(\$t):'')"; |
|
| 1899 | + |
|
| 1900 | + $_sens_defaut = "(is_array(\$s=$_liste_sens_defaut)?(isset(\$s[\$st=$_tri])?\$s[\$st]:reset(\$s)):\$s)"; |
|
| 1901 | + $_sens = "((intval(\$t=(isset(\$Pile[0]['sens'.$_variable]))?\$Pile[0]['sens'.$_variable]:((strncmp($_variable,'session',7)==0 AND session_get('sens'.$_variable))?session_get('sens'.$_variable):$_sens_defaut))==-1 OR \$t=='inverse')?-1:1)"; |
|
| 1902 | + |
|
| 1903 | + $boucle->modificateur['tri_champ'] = $_tri; |
|
| 1904 | + $boucle->modificateur['tri_sens'] = $_sens; |
|
| 1905 | + $boucle->modificateur['tri_liste_sens_defaut'] = $_liste_sens_defaut; |
|
| 1906 | + $boucle->modificateur['tri_nom'] = $_variable; |
|
| 1907 | + // faut il inserer un test sur l'existence de $tri parmi les champs de la table ? |
|
| 1908 | + // evite des erreurs sql, mais peut empecher des tri sur jointure ... |
|
| 1909 | + $boucle->hash .= " |
|
| 1910 | 1910 | \$senstri = ''; |
| 1911 | 1911 | \$tri = $_tri; |
| 1912 | 1912 | if (\$tri){ |
@@ -1914,8 +1914,8 @@ discard block |
||
| 1914 | 1914 | \$senstri = (\$senstri<0)?' DESC':''; |
| 1915 | 1915 | }; |
| 1916 | 1916 | "; |
| 1917 | - $boucle->select[] = '".tri_champ_select($tri)."'; |
|
| 1918 | - $boucle->order[] = "tri_champ_order(\$tri,\$command['from'],\$senstri)"; |
|
| 1917 | + $boucle->select[] = '".tri_champ_select($tri)."'; |
|
| 1918 | + $boucle->order[] = "tri_champ_order(\$tri,\$command['from'],\$senstri)"; |
|
| 1919 | 1919 | } |
| 1920 | 1920 | |
| 1921 | 1921 | # criteres de comparaison |
@@ -1932,21 +1932,21 @@ discard block |
||
| 1932 | 1932 | * @return void|array |
| 1933 | 1933 | **/ |
| 1934 | 1934 | function calculer_critere_DEFAUT_dist($idb, &$boucles, $crit) { |
| 1935 | - // double cas particulier {0,1} et {1/2} repere a l'analyse lexicale |
|
| 1936 | - if ($crit->op == ',' || $crit->op == '/') { |
|
| 1937 | - calculer_critere_parties($idb, $boucles, $crit); |
|
| 1938 | - return; |
|
| 1939 | - } |
|
| 1940 | - |
|
| 1941 | - $r = calculer_critere_infixe($idb, $boucles, $crit); |
|
| 1942 | - if (!$r) { |
|
| 1943 | - # // on produit une erreur seulement si le critere n'a pas de '?' |
|
| 1944 | - # if (!$crit->cond) { |
|
| 1945 | - return ['zbug_critere_inconnu', ['critere' => $crit->op]]; |
|
| 1946 | - # } |
|
| 1947 | - } else { |
|
| 1948 | - calculer_critere_DEFAUT_args($idb, $boucles, $crit, $r); |
|
| 1949 | - } |
|
| 1935 | + // double cas particulier {0,1} et {1/2} repere a l'analyse lexicale |
|
| 1936 | + if ($crit->op == ',' || $crit->op == '/') { |
|
| 1937 | + calculer_critere_parties($idb, $boucles, $crit); |
|
| 1938 | + return; |
|
| 1939 | + } |
|
| 1940 | + |
|
| 1941 | + $r = calculer_critere_infixe($idb, $boucles, $crit); |
|
| 1942 | + if (!$r) { |
|
| 1943 | + # // on produit une erreur seulement si le critere n'a pas de '?' |
|
| 1944 | + # if (!$crit->cond) { |
|
| 1945 | + return ['zbug_critere_inconnu', ['critere' => $crit->op]]; |
|
| 1946 | + # } |
|
| 1947 | + } else { |
|
| 1948 | + calculer_critere_DEFAUT_args($idb, $boucles, $crit, $r); |
|
| 1949 | + } |
|
| 1950 | 1950 | } |
| 1951 | 1951 | |
| 1952 | 1952 | |
@@ -1966,60 +1966,60 @@ discard block |
||
| 1966 | 1966 | * @return void |
| 1967 | 1967 | **/ |
| 1968 | 1968 | function calculer_critere_DEFAUT_args($idb, &$boucles, $crit, $args) { |
| 1969 | - [$arg, $op, $val, $col, $where_complement] = $args; |
|
| 1970 | - |
|
| 1971 | - $where = ["'$op'", "'$arg'", $val[0]]; |
|
| 1972 | - |
|
| 1973 | - // inserer la negation (cf !...) |
|
| 1974 | - |
|
| 1975 | - if ($crit->not) { |
|
| 1976 | - $where = ["'NOT'", $where]; |
|
| 1977 | - } |
|
| 1978 | - if ($crit->exclus) { |
|
| 1979 | - if (!preg_match(',^L\d+[.],', (string) $arg)) { |
|
| 1980 | - $where = ["'NOT'", $where]; |
|
| 1981 | - } else { |
|
| 1982 | - // un not sur un critere de jointure se traduit comme un NOT IN avec une sous requete |
|
| 1983 | - // c'est une sous requete identique a la requete principale sous la forme (SELF,$select,$where) avec $select et $where qui surchargent |
|
| 1984 | - $where = [ |
|
| 1985 | - "'NOT'", |
|
| 1986 | - [ |
|
| 1987 | - "'IN'", |
|
| 1988 | - "'" . $boucles[$idb]->id_table . '.' . $boucles[$idb]->primary . "'", |
|
| 1989 | - ["'SELF'", "'" . $boucles[$idb]->id_table . '.' . $boucles[$idb]->primary . "'", $where] |
|
| 1990 | - ] |
|
| 1991 | - ]; |
|
| 1992 | - } |
|
| 1993 | - } |
|
| 1994 | - |
|
| 1995 | - // inserer la condition (cf {lang?}) |
|
| 1996 | - // traiter a part la date, elle est mise d'office par SPIP, |
|
| 1997 | - if ($crit->cond) { |
|
| 1998 | - $pred = calculer_argument_precedent($idb, $col, $boucles); |
|
| 1999 | - if (($col === 'date' || $col === 'date_redac') && $pred === "\$Pile[0]['" . $col . "']") { |
|
| 2000 | - $pred = "(\$Pile[0]['{$col}_default']?'':$pred)"; |
|
| 2001 | - } |
|
| 2002 | - |
|
| 2003 | - if ($op === '=' && !$crit->not) { |
|
| 2004 | - $where = [ |
|
| 2005 | - "'?'", |
|
| 2006 | - "(is_array($pred))", |
|
| 2007 | - critere_IN_cas($idb, $boucles, 'COND', $arg, $op, [$pred], $col), |
|
| 2008 | - $where |
|
| 2009 | - ]; |
|
| 2010 | - } |
|
| 2011 | - $where = ["'?'", "!is_whereable($pred)", "''", $where]; |
|
| 2012 | - if ($where_complement) { |
|
| 2013 | - // condition annexe du type "AND (objet='article')" |
|
| 2014 | - $where_complement = ["'?'", "!is_whereable($pred)", "''", $where_complement]; |
|
| 2015 | - } |
|
| 2016 | - } |
|
| 2017 | - |
|
| 2018 | - $boucles[$idb]->where[] = $where; |
|
| 2019 | - if ($where_complement) { |
|
| 2020 | - // condition annexe du type "AND (objet='article')" |
|
| 2021 | - $boucles[$idb]->where[] = $where_complement; |
|
| 2022 | - } |
|
| 1969 | + [$arg, $op, $val, $col, $where_complement] = $args; |
|
| 1970 | + |
|
| 1971 | + $where = ["'$op'", "'$arg'", $val[0]]; |
|
| 1972 | + |
|
| 1973 | + // inserer la negation (cf !...) |
|
| 1974 | + |
|
| 1975 | + if ($crit->not) { |
|
| 1976 | + $where = ["'NOT'", $where]; |
|
| 1977 | + } |
|
| 1978 | + if ($crit->exclus) { |
|
| 1979 | + if (!preg_match(',^L\d+[.],', (string) $arg)) { |
|
| 1980 | + $where = ["'NOT'", $where]; |
|
| 1981 | + } else { |
|
| 1982 | + // un not sur un critere de jointure se traduit comme un NOT IN avec une sous requete |
|
| 1983 | + // c'est une sous requete identique a la requete principale sous la forme (SELF,$select,$where) avec $select et $where qui surchargent |
|
| 1984 | + $where = [ |
|
| 1985 | + "'NOT'", |
|
| 1986 | + [ |
|
| 1987 | + "'IN'", |
|
| 1988 | + "'" . $boucles[$idb]->id_table . '.' . $boucles[$idb]->primary . "'", |
|
| 1989 | + ["'SELF'", "'" . $boucles[$idb]->id_table . '.' . $boucles[$idb]->primary . "'", $where] |
|
| 1990 | + ] |
|
| 1991 | + ]; |
|
| 1992 | + } |
|
| 1993 | + } |
|
| 1994 | + |
|
| 1995 | + // inserer la condition (cf {lang?}) |
|
| 1996 | + // traiter a part la date, elle est mise d'office par SPIP, |
|
| 1997 | + if ($crit->cond) { |
|
| 1998 | + $pred = calculer_argument_precedent($idb, $col, $boucles); |
|
| 1999 | + if (($col === 'date' || $col === 'date_redac') && $pred === "\$Pile[0]['" . $col . "']") { |
|
| 2000 | + $pred = "(\$Pile[0]['{$col}_default']?'':$pred)"; |
|
| 2001 | + } |
|
| 2002 | + |
|
| 2003 | + if ($op === '=' && !$crit->not) { |
|
| 2004 | + $where = [ |
|
| 2005 | + "'?'", |
|
| 2006 | + "(is_array($pred))", |
|
| 2007 | + critere_IN_cas($idb, $boucles, 'COND', $arg, $op, [$pred], $col), |
|
| 2008 | + $where |
|
| 2009 | + ]; |
|
| 2010 | + } |
|
| 2011 | + $where = ["'?'", "!is_whereable($pred)", "''", $where]; |
|
| 2012 | + if ($where_complement) { |
|
| 2013 | + // condition annexe du type "AND (objet='article')" |
|
| 2014 | + $where_complement = ["'?'", "!is_whereable($pred)", "''", $where_complement]; |
|
| 2015 | + } |
|
| 2016 | + } |
|
| 2017 | + |
|
| 2018 | + $boucles[$idb]->where[] = $where; |
|
| 2019 | + if ($where_complement) { |
|
| 2020 | + // condition annexe du type "AND (objet='article')" |
|
| 2021 | + $boucles[$idb]->where[] = $where_complement; |
|
| 2022 | + } |
|
| 2023 | 2023 | } |
| 2024 | 2024 | |
| 2025 | 2025 | |
@@ -2060,160 +2060,160 @@ discard block |
||
| 2060 | 2060 | **/ |
| 2061 | 2061 | function calculer_critere_infixe($idb, &$boucles, $crit) { |
| 2062 | 2062 | |
| 2063 | - $boucle = &$boucles[$idb]; |
|
| 2064 | - $type = $boucle->type_requete; |
|
| 2065 | - $table = $boucle->id_table; |
|
| 2066 | - $desc = $boucle->show; |
|
| 2067 | - $col_vraie = null; |
|
| 2068 | - |
|
| 2069 | - [$fct, $col, $op, $val, $args_sql] = |
|
| 2070 | - calculer_critere_infixe_ops($idb, $boucles, $crit); |
|
| 2071 | - |
|
| 2072 | - $col_alias = $col; |
|
| 2073 | - $where_complement = false; |
|
| 2074 | - |
|
| 2075 | - // Cas particulier : id_enfant => utiliser la colonne id_objet |
|
| 2076 | - if ($col == 'id_enfant') { |
|
| 2077 | - $col = $boucle->primary; |
|
| 2078 | - } |
|
| 2079 | - |
|
| 2080 | - // Cas particulier : id_parent => verifier les exceptions de tables |
|
| 2081 | - if ( |
|
| 2082 | - in_array($col, ['id_parent', 'id_secteur']) |
|
| 2083 | - && isset($GLOBALS['exceptions_des_tables'][$table][$col]) || isset($GLOBALS['exceptions_des_tables'][$table][$col]) && is_string($GLOBALS['exceptions_des_tables'][$table][$col]) |
|
| 2084 | - ) { |
|
| 2085 | - $col = $GLOBALS['exceptions_des_tables'][$table][$col]; |
|
| 2086 | - } // et possibilite de gerer un critere secteur sur des tables de plugins (ie forums) |
|
| 2087 | - else { |
|
| 2088 | - if ($col == 'id_secteur' && ($critere_secteur = charger_fonction("critere_secteur_$type", 'public', true))) { |
|
| 2089 | - $table = $critere_secteur($idb, $boucles, $val, $crit); |
|
| 2090 | - } |
|
| 2091 | - |
|
| 2092 | - // cas id_article=xx qui se mappe en id_objet=xx AND objet=article |
|
| 2093 | - // sauf si exception declaree : sauter cette etape |
|
| 2094 | - else { |
|
| 2095 | - if ( |
|
| 2096 | - !isset($GLOBALS['exceptions_des_jointures'][table_objet_sql($table)][$col]) |
|
| 2097 | - && !isset($GLOBALS['exceptions_des_jointures'][$col]) |
|
| 2098 | - && count(trouver_champs_decomposes($col, $desc)) > 1 |
|
| 2099 | - ) { |
|
| 2100 | - $e = decompose_champ_id_objet($col); |
|
| 2101 | - $col = array_shift($e); |
|
| 2102 | - $where_complement = primary_doublee($e, $table); |
|
| 2103 | - } // Cas particulier : expressions de date |
|
| 2104 | - else { |
|
| 2105 | - if ($c = calculer_critere_infixe_date($idb, $boucles, $col)) { |
|
| 2106 | - [$col, $col_vraie] = $c; |
|
| 2107 | - $table = ''; |
|
| 2108 | - } // table explicitée {mots.titre} |
|
| 2109 | - else { |
|
| 2110 | - if (preg_match('/^(.*)\.(.*)$/', (string) $col, $r)) { |
|
| 2111 | - [, $table, $col] = $r; |
|
| 2112 | - $col_alias = $col; |
|
| 2113 | - |
|
| 2114 | - $trouver_table = charger_fonction('trouver_table', 'base'); |
|
| 2115 | - if ( |
|
| 2116 | - ($desc = $trouver_table($table, $boucle->sql_serveur)) |
|
| 2117 | - && isset($desc['field'][$col]) |
|
| 2118 | - && ($cle = array_search($desc['table'], $boucle->from)) |
|
| 2119 | - ) { |
|
| 2120 | - $table = $cle; |
|
| 2121 | - } else { |
|
| 2122 | - $table = trouver_jointure_champ($col, $boucle, [$table], ($crit->cond || $op != '=')); |
|
| 2123 | - } |
|
| 2124 | - #$table = calculer_critere_externe_init($boucle, array($table), $col, $desc, ($crit->cond OR $op!='='), true); |
|
| 2125 | - if (!$table) { |
|
| 2126 | - return ''; |
|
| 2127 | - } |
|
| 2128 | - } |
|
| 2129 | - // si le champ n'est pas trouvé dans la table, |
|
| 2130 | - // on cherche si une jointure peut l'obtenir |
|
| 2131 | - elseif (@!array_key_exists($col, $desc['field'])) { |
|
| 2132 | - // Champ joker * des iterateurs DATA qui accepte tout |
|
| 2133 | - if (@array_key_exists('*', $desc['field'])) { |
|
| 2134 | - $desc['field'][$col_vraie ?: $col] = ''; // on veut pas de cast INT par defaut car le type peut etre n'importe quoi dans les boucles DATA |
|
| 2135 | - } |
|
| 2136 | - else { |
|
| 2137 | - $r = calculer_critere_infixe_externe($boucle, $crit, $op, $desc, $col, $col_alias, $table); |
|
| 2138 | - if (!$r) { |
|
| 2139 | - return ''; |
|
| 2140 | - } |
|
| 2141 | - [$col, $col_alias, $table, $where_complement, $desc] = $r; |
|
| 2142 | - } |
|
| 2143 | - } |
|
| 2144 | - } |
|
| 2145 | - } |
|
| 2146 | - } |
|
| 2147 | - } |
|
| 2148 | - |
|
| 2149 | - $col_vraie = ($col_vraie ?: $col); |
|
| 2150 | - // Dans tous les cas, |
|
| 2151 | - // virer les guillemets eventuels autour d'un int (qui sont refuses par certains SQL) |
|
| 2152 | - // et passer dans sql_quote avec le type si connu |
|
| 2153 | - // et int sinon si la valeur est numerique |
|
| 2154 | - // sinon introduire le vrai type du champ si connu dans le sql_quote (ou int NOT NULL sinon) |
|
| 2155 | - // Ne pas utiliser intval, PHP tronquant les Bigint de SQL |
|
| 2156 | - if ($op == '=' || in_array($op, $GLOBALS['table_criteres_infixes'])) { |
|
| 2157 | - $type_cast_quote = ($desc['field'][$col_vraie] ?? 'int NOT NULL'); |
|
| 2158 | - // defaire le quote des int et les passer dans sql_quote avec le bon type de champ si on le connait, int sinon |
|
| 2159 | - // prendre en compte le debug ou la valeur arrive avec un commentaire PHP en debut |
|
| 2160 | - if (preg_match(",^\\A(\s*//.*?$\s*)?\"'(-?\d+)'\"\\z,ms", (string) $val[0], $r)) { |
|
| 2161 | - $val[0] = $r[1] . '"' . sql_quote($r[2], $boucle->sql_serveur, $type_cast_quote) . '"'; |
|
| 2162 | - } |
|
| 2163 | - // sinon expliciter les |
|
| 2164 | - // sql_quote(truc) en sql_quote(truc,'',type) |
|
| 2165 | - // sql_quote(truc,serveur) en sql_quote(truc,serveur,type) |
|
| 2166 | - // sql_quote(truc,serveur,'') en sql_quote(truc,serveur,type) |
|
| 2167 | - // sans toucher aux |
|
| 2168 | - // sql_quote(truc,'','varchar(10) DEFAULT \'oui\' COLLATE NOCASE') |
|
| 2169 | - // sql_quote(truc,'','varchar') |
|
| 2170 | - elseif ( |
|
| 2171 | - preg_match('/\Asql_quote[(](.*?)(,[^)]*?)?(,[^)]*(?:\(\d+\)[^)]*)?)?[)]\s*\z/ms', (string) $val[0], $r) |
|
| 2172 | - && (!isset($r[3]) || !$r[3] || !trim($r[3], ", '")) |
|
| 2173 | - ) { |
|
| 2174 | - $r = $r[1] |
|
| 2175 | - . ((isset($r[2]) && $r[2]) ? $r[2] : ",''") |
|
| 2176 | - . ",'" . addslashes((string) $type_cast_quote) . "'"; |
|
| 2177 | - $val[0] = "sql_quote($r)"; |
|
| 2178 | - } |
|
| 2179 | - elseif ( |
|
| 2180 | - str_contains((string) $val[0], '@@defaultcast@@') |
|
| 2181 | - && preg_match("/'@@defaultcast@@'\s*\)\s*\z/ms", (string) $val[0], $r) |
|
| 2182 | - ) { |
|
| 2183 | - $val[0] = substr((string) $val[0], 0, -strlen($r[0])) . "'" . addslashes((string) $type_cast_quote) . "')"; |
|
| 2184 | - } |
|
| 2185 | - } |
|
| 2186 | - |
|
| 2187 | - if ( |
|
| 2188 | - str_contains((string) $val[0], '@@defaultcast@@') |
|
| 2189 | - && preg_match("/'@@defaultcast@@'\s*\)\s*\z/ms", (string) $val[0], $r) |
|
| 2190 | - ) { |
|
| 2191 | - $val[0] = substr((string) $val[0], 0, -strlen($r[0])) . "'char')"; |
|
| 2192 | - } |
|
| 2193 | - |
|
| 2194 | - // Indicateur pour permettre aux fonctionx boucle_X de modifier |
|
| 2195 | - // leurs requetes par defaut, notamment le champ statut |
|
| 2196 | - // Ne pas confondre champs de la table principale et des jointures |
|
| 2197 | - if ($table === $boucle->id_table) { |
|
| 2198 | - $boucles[$idb]->modificateur['criteres'][$col_vraie] = true; |
|
| 2199 | - if ($col_alias != $col_vraie) { |
|
| 2200 | - $boucles[$idb]->modificateur['criteres'][$col_alias] = true; |
|
| 2201 | - } |
|
| 2202 | - } |
|
| 2203 | - |
|
| 2204 | - // inserer le nom de la table SQL devant le nom du champ |
|
| 2205 | - if ($table) { |
|
| 2206 | - $arg = $col[0] == '`' ? "$table." . substr((string) $col, 1, -1) : "$table.$col"; |
|
| 2207 | - } else { |
|
| 2208 | - $arg = $col; |
|
| 2209 | - } |
|
| 2210 | - |
|
| 2211 | - // inserer la fonction SQL |
|
| 2212 | - if ($fct) { |
|
| 2213 | - $arg = "$fct($arg$args_sql)"; |
|
| 2214 | - } |
|
| 2215 | - |
|
| 2216 | - return [$arg, $op, $val, $col_alias, $where_complement]; |
|
| 2063 | + $boucle = &$boucles[$idb]; |
|
| 2064 | + $type = $boucle->type_requete; |
|
| 2065 | + $table = $boucle->id_table; |
|
| 2066 | + $desc = $boucle->show; |
|
| 2067 | + $col_vraie = null; |
|
| 2068 | + |
|
| 2069 | + [$fct, $col, $op, $val, $args_sql] = |
|
| 2070 | + calculer_critere_infixe_ops($idb, $boucles, $crit); |
|
| 2071 | + |
|
| 2072 | + $col_alias = $col; |
|
| 2073 | + $where_complement = false; |
|
| 2074 | + |
|
| 2075 | + // Cas particulier : id_enfant => utiliser la colonne id_objet |
|
| 2076 | + if ($col == 'id_enfant') { |
|
| 2077 | + $col = $boucle->primary; |
|
| 2078 | + } |
|
| 2079 | + |
|
| 2080 | + // Cas particulier : id_parent => verifier les exceptions de tables |
|
| 2081 | + if ( |
|
| 2082 | + in_array($col, ['id_parent', 'id_secteur']) |
|
| 2083 | + && isset($GLOBALS['exceptions_des_tables'][$table][$col]) || isset($GLOBALS['exceptions_des_tables'][$table][$col]) && is_string($GLOBALS['exceptions_des_tables'][$table][$col]) |
|
| 2084 | + ) { |
|
| 2085 | + $col = $GLOBALS['exceptions_des_tables'][$table][$col]; |
|
| 2086 | + } // et possibilite de gerer un critere secteur sur des tables de plugins (ie forums) |
|
| 2087 | + else { |
|
| 2088 | + if ($col == 'id_secteur' && ($critere_secteur = charger_fonction("critere_secteur_$type", 'public', true))) { |
|
| 2089 | + $table = $critere_secteur($idb, $boucles, $val, $crit); |
|
| 2090 | + } |
|
| 2091 | + |
|
| 2092 | + // cas id_article=xx qui se mappe en id_objet=xx AND objet=article |
|
| 2093 | + // sauf si exception declaree : sauter cette etape |
|
| 2094 | + else { |
|
| 2095 | + if ( |
|
| 2096 | + !isset($GLOBALS['exceptions_des_jointures'][table_objet_sql($table)][$col]) |
|
| 2097 | + && !isset($GLOBALS['exceptions_des_jointures'][$col]) |
|
| 2098 | + && count(trouver_champs_decomposes($col, $desc)) > 1 |
|
| 2099 | + ) { |
|
| 2100 | + $e = decompose_champ_id_objet($col); |
|
| 2101 | + $col = array_shift($e); |
|
| 2102 | + $where_complement = primary_doublee($e, $table); |
|
| 2103 | + } // Cas particulier : expressions de date |
|
| 2104 | + else { |
|
| 2105 | + if ($c = calculer_critere_infixe_date($idb, $boucles, $col)) { |
|
| 2106 | + [$col, $col_vraie] = $c; |
|
| 2107 | + $table = ''; |
|
| 2108 | + } // table explicitée {mots.titre} |
|
| 2109 | + else { |
|
| 2110 | + if (preg_match('/^(.*)\.(.*)$/', (string) $col, $r)) { |
|
| 2111 | + [, $table, $col] = $r; |
|
| 2112 | + $col_alias = $col; |
|
| 2113 | + |
|
| 2114 | + $trouver_table = charger_fonction('trouver_table', 'base'); |
|
| 2115 | + if ( |
|
| 2116 | + ($desc = $trouver_table($table, $boucle->sql_serveur)) |
|
| 2117 | + && isset($desc['field'][$col]) |
|
| 2118 | + && ($cle = array_search($desc['table'], $boucle->from)) |
|
| 2119 | + ) { |
|
| 2120 | + $table = $cle; |
|
| 2121 | + } else { |
|
| 2122 | + $table = trouver_jointure_champ($col, $boucle, [$table], ($crit->cond || $op != '=')); |
|
| 2123 | + } |
|
| 2124 | + #$table = calculer_critere_externe_init($boucle, array($table), $col, $desc, ($crit->cond OR $op!='='), true); |
|
| 2125 | + if (!$table) { |
|
| 2126 | + return ''; |
|
| 2127 | + } |
|
| 2128 | + } |
|
| 2129 | + // si le champ n'est pas trouvé dans la table, |
|
| 2130 | + // on cherche si une jointure peut l'obtenir |
|
| 2131 | + elseif (@!array_key_exists($col, $desc['field'])) { |
|
| 2132 | + // Champ joker * des iterateurs DATA qui accepte tout |
|
| 2133 | + if (@array_key_exists('*', $desc['field'])) { |
|
| 2134 | + $desc['field'][$col_vraie ?: $col] = ''; // on veut pas de cast INT par defaut car le type peut etre n'importe quoi dans les boucles DATA |
|
| 2135 | + } |
|
| 2136 | + else { |
|
| 2137 | + $r = calculer_critere_infixe_externe($boucle, $crit, $op, $desc, $col, $col_alias, $table); |
|
| 2138 | + if (!$r) { |
|
| 2139 | + return ''; |
|
| 2140 | + } |
|
| 2141 | + [$col, $col_alias, $table, $where_complement, $desc] = $r; |
|
| 2142 | + } |
|
| 2143 | + } |
|
| 2144 | + } |
|
| 2145 | + } |
|
| 2146 | + } |
|
| 2147 | + } |
|
| 2148 | + |
|
| 2149 | + $col_vraie = ($col_vraie ?: $col); |
|
| 2150 | + // Dans tous les cas, |
|
| 2151 | + // virer les guillemets eventuels autour d'un int (qui sont refuses par certains SQL) |
|
| 2152 | + // et passer dans sql_quote avec le type si connu |
|
| 2153 | + // et int sinon si la valeur est numerique |
|
| 2154 | + // sinon introduire le vrai type du champ si connu dans le sql_quote (ou int NOT NULL sinon) |
|
| 2155 | + // Ne pas utiliser intval, PHP tronquant les Bigint de SQL |
|
| 2156 | + if ($op == '=' || in_array($op, $GLOBALS['table_criteres_infixes'])) { |
|
| 2157 | + $type_cast_quote = ($desc['field'][$col_vraie] ?? 'int NOT NULL'); |
|
| 2158 | + // defaire le quote des int et les passer dans sql_quote avec le bon type de champ si on le connait, int sinon |
|
| 2159 | + // prendre en compte le debug ou la valeur arrive avec un commentaire PHP en debut |
|
| 2160 | + if (preg_match(",^\\A(\s*//.*?$\s*)?\"'(-?\d+)'\"\\z,ms", (string) $val[0], $r)) { |
|
| 2161 | + $val[0] = $r[1] . '"' . sql_quote($r[2], $boucle->sql_serveur, $type_cast_quote) . '"'; |
|
| 2162 | + } |
|
| 2163 | + // sinon expliciter les |
|
| 2164 | + // sql_quote(truc) en sql_quote(truc,'',type) |
|
| 2165 | + // sql_quote(truc,serveur) en sql_quote(truc,serveur,type) |
|
| 2166 | + // sql_quote(truc,serveur,'') en sql_quote(truc,serveur,type) |
|
| 2167 | + // sans toucher aux |
|
| 2168 | + // sql_quote(truc,'','varchar(10) DEFAULT \'oui\' COLLATE NOCASE') |
|
| 2169 | + // sql_quote(truc,'','varchar') |
|
| 2170 | + elseif ( |
|
| 2171 | + preg_match('/\Asql_quote[(](.*?)(,[^)]*?)?(,[^)]*(?:\(\d+\)[^)]*)?)?[)]\s*\z/ms', (string) $val[0], $r) |
|
| 2172 | + && (!isset($r[3]) || !$r[3] || !trim($r[3], ", '")) |
|
| 2173 | + ) { |
|
| 2174 | + $r = $r[1] |
|
| 2175 | + . ((isset($r[2]) && $r[2]) ? $r[2] : ",''") |
|
| 2176 | + . ",'" . addslashes((string) $type_cast_quote) . "'"; |
|
| 2177 | + $val[0] = "sql_quote($r)"; |
|
| 2178 | + } |
|
| 2179 | + elseif ( |
|
| 2180 | + str_contains((string) $val[0], '@@defaultcast@@') |
|
| 2181 | + && preg_match("/'@@defaultcast@@'\s*\)\s*\z/ms", (string) $val[0], $r) |
|
| 2182 | + ) { |
|
| 2183 | + $val[0] = substr((string) $val[0], 0, -strlen($r[0])) . "'" . addslashes((string) $type_cast_quote) . "')"; |
|
| 2184 | + } |
|
| 2185 | + } |
|
| 2186 | + |
|
| 2187 | + if ( |
|
| 2188 | + str_contains((string) $val[0], '@@defaultcast@@') |
|
| 2189 | + && preg_match("/'@@defaultcast@@'\s*\)\s*\z/ms", (string) $val[0], $r) |
|
| 2190 | + ) { |
|
| 2191 | + $val[0] = substr((string) $val[0], 0, -strlen($r[0])) . "'char')"; |
|
| 2192 | + } |
|
| 2193 | + |
|
| 2194 | + // Indicateur pour permettre aux fonctionx boucle_X de modifier |
|
| 2195 | + // leurs requetes par defaut, notamment le champ statut |
|
| 2196 | + // Ne pas confondre champs de la table principale et des jointures |
|
| 2197 | + if ($table === $boucle->id_table) { |
|
| 2198 | + $boucles[$idb]->modificateur['criteres'][$col_vraie] = true; |
|
| 2199 | + if ($col_alias != $col_vraie) { |
|
| 2200 | + $boucles[$idb]->modificateur['criteres'][$col_alias] = true; |
|
| 2201 | + } |
|
| 2202 | + } |
|
| 2203 | + |
|
| 2204 | + // inserer le nom de la table SQL devant le nom du champ |
|
| 2205 | + if ($table) { |
|
| 2206 | + $arg = $col[0] == '`' ? "$table." . substr((string) $col, 1, -1) : "$table.$col"; |
|
| 2207 | + } else { |
|
| 2208 | + $arg = $col; |
|
| 2209 | + } |
|
| 2210 | + |
|
| 2211 | + // inserer la fonction SQL |
|
| 2212 | + if ($fct) { |
|
| 2213 | + $arg = "$fct($arg$args_sql)"; |
|
| 2214 | + } |
|
| 2215 | + |
|
| 2216 | + return [$arg, $op, $val, $col_alias, $where_complement]; |
|
| 2217 | 2217 | } |
| 2218 | 2218 | |
| 2219 | 2219 | |
@@ -2242,75 +2242,75 @@ discard block |
||
| 2242 | 2242 | **/ |
| 2243 | 2243 | function calculer_critere_infixe_externe($boucle, $crit, $op, $desc, $col, $col_alias, $table) { |
| 2244 | 2244 | |
| 2245 | - $where = ''; |
|
| 2246 | - |
|
| 2247 | - $calculer_critere_externe = 'calculer_critere_externe_init'; |
|
| 2248 | - // gestion par les plugins des jointures tordues |
|
| 2249 | - // pas automatiques mais necessaires |
|
| 2250 | - $table_sql = table_objet_sql($table); |
|
| 2251 | - if ( |
|
| 2252 | - isset($GLOBALS['exceptions_des_jointures'][$table_sql]) |
|
| 2253 | - && is_array($GLOBALS['exceptions_des_jointures'][$table_sql]) |
|
| 2254 | - && ( |
|
| 2255 | - isset($GLOBALS['exceptions_des_jointures'][$table_sql][$col]) |
|
| 2256 | - || isset($GLOBALS['exceptions_des_jointures'][$table_sql]['']) |
|
| 2257 | - ) |
|
| 2258 | - ) { |
|
| 2259 | - $t = $GLOBALS['exceptions_des_jointures'][$table_sql]; |
|
| 2260 | - $index = $t[$col] ?? $t[''] ?? []; |
|
| 2261 | - |
|
| 2262 | - if ((is_countable($index) ? count($index) : 0) == 3) { |
|
| 2263 | - [$t, $col, $calculer_critere_externe] = $index; |
|
| 2264 | - } elseif ((is_countable($index) ? count($index) : 0) == 2) { |
|
| 2265 | - [$t, $col] = $t[$col]; |
|
| 2266 | - } elseif ((is_countable($index) ? count($index) : 0) == 1) { |
|
| 2267 | - [$calculer_critere_externe] = $index; |
|
| 2268 | - $t = $table; |
|
| 2269 | - } else { |
|
| 2270 | - $t = ''; |
|
| 2271 | - } // jointure non declaree. La trouver. |
|
| 2272 | - } elseif (isset($GLOBALS['exceptions_des_jointures'][$col])) { |
|
| 2273 | - [$t, $col] = $GLOBALS['exceptions_des_jointures'][$col]; |
|
| 2274 | - } else { |
|
| 2275 | - $t = ''; |
|
| 2276 | - } // jointure non declaree. La trouver. |
|
| 2277 | - |
|
| 2278 | - // ici on construit le from pour fournir $col en piochant dans les jointures |
|
| 2279 | - |
|
| 2280 | - // si des jointures explicites sont fournies, on cherche d'abord dans celles ci |
|
| 2281 | - // permet de forcer une table de lien quand il y a ambiguite |
|
| 2282 | - // <BOUCLE_(DOCUMENTS documents_liens){id_mot}> |
|
| 2283 | - // alors que <BOUCLE_(DOCUMENTS){id_mot}> produit la meme chose que <BOUCLE_(DOCUMENTS mots_liens){id_mot}> |
|
| 2284 | - $table = ''; |
|
| 2285 | - if ($boucle->jointures_explicites) { |
|
| 2286 | - $jointures_explicites = explode(' ', $boucle->jointures_explicites); |
|
| 2287 | - $table = $calculer_critere_externe($boucle, $jointures_explicites, $col, $desc, ($crit->cond || $op != '='), $t); |
|
| 2288 | - } |
|
| 2289 | - |
|
| 2290 | - // et sinon on cherche parmi toutes les jointures declarees |
|
| 2291 | - if (!$table) { |
|
| 2292 | - $table = $calculer_critere_externe($boucle, $boucle->jointures, $col, $desc, ($crit->cond || $op != '='), $t); |
|
| 2293 | - } |
|
| 2294 | - |
|
| 2295 | - if (!$table) { |
|
| 2296 | - return ''; |
|
| 2297 | - } |
|
| 2298 | - |
|
| 2299 | - // il ne reste plus qu'a trouver le champ dans les from |
|
| 2300 | - [$nom, $desc, $cle] = trouver_champ_exterieur($col, $boucle->from, $boucle); |
|
| 2301 | - |
|
| 2302 | - if ((is_countable($cle) ? count($cle) : 0) > 1 || reset($cle) !== $col) { |
|
| 2303 | - $col_alias = $col; // id_article devient juste le nom d'origine |
|
| 2304 | - if ((is_countable($cle) ? count($cle) : 0) > 1 && reset($cle) == 'id_objet') { |
|
| 2305 | - $e = decompose_champ_id_objet($col); |
|
| 2306 | - $col = array_shift($e); |
|
| 2307 | - $where = primary_doublee($e, $table); |
|
| 2308 | - } else { |
|
| 2309 | - $col = reset($cle); |
|
| 2310 | - } |
|
| 2311 | - } |
|
| 2312 | - |
|
| 2313 | - return [$col, $col_alias, $table, $where, $desc]; |
|
| 2245 | + $where = ''; |
|
| 2246 | + |
|
| 2247 | + $calculer_critere_externe = 'calculer_critere_externe_init'; |
|
| 2248 | + // gestion par les plugins des jointures tordues |
|
| 2249 | + // pas automatiques mais necessaires |
|
| 2250 | + $table_sql = table_objet_sql($table); |
|
| 2251 | + if ( |
|
| 2252 | + isset($GLOBALS['exceptions_des_jointures'][$table_sql]) |
|
| 2253 | + && is_array($GLOBALS['exceptions_des_jointures'][$table_sql]) |
|
| 2254 | + && ( |
|
| 2255 | + isset($GLOBALS['exceptions_des_jointures'][$table_sql][$col]) |
|
| 2256 | + || isset($GLOBALS['exceptions_des_jointures'][$table_sql]['']) |
|
| 2257 | + ) |
|
| 2258 | + ) { |
|
| 2259 | + $t = $GLOBALS['exceptions_des_jointures'][$table_sql]; |
|
| 2260 | + $index = $t[$col] ?? $t[''] ?? []; |
|
| 2261 | + |
|
| 2262 | + if ((is_countable($index) ? count($index) : 0) == 3) { |
|
| 2263 | + [$t, $col, $calculer_critere_externe] = $index; |
|
| 2264 | + } elseif ((is_countable($index) ? count($index) : 0) == 2) { |
|
| 2265 | + [$t, $col] = $t[$col]; |
|
| 2266 | + } elseif ((is_countable($index) ? count($index) : 0) == 1) { |
|
| 2267 | + [$calculer_critere_externe] = $index; |
|
| 2268 | + $t = $table; |
|
| 2269 | + } else { |
|
| 2270 | + $t = ''; |
|
| 2271 | + } // jointure non declaree. La trouver. |
|
| 2272 | + } elseif (isset($GLOBALS['exceptions_des_jointures'][$col])) { |
|
| 2273 | + [$t, $col] = $GLOBALS['exceptions_des_jointures'][$col]; |
|
| 2274 | + } else { |
|
| 2275 | + $t = ''; |
|
| 2276 | + } // jointure non declaree. La trouver. |
|
| 2277 | + |
|
| 2278 | + // ici on construit le from pour fournir $col en piochant dans les jointures |
|
| 2279 | + |
|
| 2280 | + // si des jointures explicites sont fournies, on cherche d'abord dans celles ci |
|
| 2281 | + // permet de forcer une table de lien quand il y a ambiguite |
|
| 2282 | + // <BOUCLE_(DOCUMENTS documents_liens){id_mot}> |
|
| 2283 | + // alors que <BOUCLE_(DOCUMENTS){id_mot}> produit la meme chose que <BOUCLE_(DOCUMENTS mots_liens){id_mot}> |
|
| 2284 | + $table = ''; |
|
| 2285 | + if ($boucle->jointures_explicites) { |
|
| 2286 | + $jointures_explicites = explode(' ', $boucle->jointures_explicites); |
|
| 2287 | + $table = $calculer_critere_externe($boucle, $jointures_explicites, $col, $desc, ($crit->cond || $op != '='), $t); |
|
| 2288 | + } |
|
| 2289 | + |
|
| 2290 | + // et sinon on cherche parmi toutes les jointures declarees |
|
| 2291 | + if (!$table) { |
|
| 2292 | + $table = $calculer_critere_externe($boucle, $boucle->jointures, $col, $desc, ($crit->cond || $op != '='), $t); |
|
| 2293 | + } |
|
| 2294 | + |
|
| 2295 | + if (!$table) { |
|
| 2296 | + return ''; |
|
| 2297 | + } |
|
| 2298 | + |
|
| 2299 | + // il ne reste plus qu'a trouver le champ dans les from |
|
| 2300 | + [$nom, $desc, $cle] = trouver_champ_exterieur($col, $boucle->from, $boucle); |
|
| 2301 | + |
|
| 2302 | + if ((is_countable($cle) ? count($cle) : 0) > 1 || reset($cle) !== $col) { |
|
| 2303 | + $col_alias = $col; // id_article devient juste le nom d'origine |
|
| 2304 | + if ((is_countable($cle) ? count($cle) : 0) > 1 && reset($cle) == 'id_objet') { |
|
| 2305 | + $e = decompose_champ_id_objet($col); |
|
| 2306 | + $col = array_shift($e); |
|
| 2307 | + $where = primary_doublee($e, $table); |
|
| 2308 | + } else { |
|
| 2309 | + $col = reset($cle); |
|
| 2310 | + } |
|
| 2311 | + } |
|
| 2312 | + |
|
| 2313 | + return [$col, $col_alias, $table, $where, $desc]; |
|
| 2314 | 2314 | } |
| 2315 | 2315 | |
| 2316 | 2316 | |
@@ -2331,10 +2331,10 @@ discard block |
||
| 2331 | 2331 | * - valeur |
| 2332 | 2332 | **/ |
| 2333 | 2333 | function primary_doublee($decompose, $table) { |
| 2334 | - $e1 = reset($decompose); |
|
| 2335 | - $e2 = "sql_quote('" . end($decompose) . "')"; |
|
| 2334 | + $e1 = reset($decompose); |
|
| 2335 | + $e2 = "sql_quote('" . end($decompose) . "')"; |
|
| 2336 | 2336 | |
| 2337 | - return ["'='", "'$table." . $e1 . "'", $e2]; |
|
| 2337 | + return ["'='", "'$table." . $e1 . "'", $e2]; |
|
| 2338 | 2338 | } |
| 2339 | 2339 | |
| 2340 | 2340 | /** |
@@ -2365,56 +2365,56 @@ discard block |
||
| 2365 | 2365 | * Vide sinon. |
| 2366 | 2366 | */ |
| 2367 | 2367 | function calculer_critere_externe_init(&$boucle, $joints, $col, $desc, $cond, $checkarrivee = false) { |
| 2368 | - // si on demande un truc du genre spip_mots |
|
| 2369 | - // avec aussi spip_mots_liens dans les jointures dispo |
|
| 2370 | - // et qu'on est la |
|
| 2371 | - // il faut privilegier la jointure directe en 2 etapes spip_mots_liens, spip_mots |
|
| 2372 | - if ( |
|
| 2373 | - $checkarrivee |
|
| 2374 | - && is_string($checkarrivee) |
|
| 2375 | - && ($a = table_objet($checkarrivee)) |
|
| 2376 | - && in_array($a . '_liens', $joints) |
|
| 2377 | - && ($res = calculer_lien_externe_init($boucle, $joints, $col, $desc, $cond, $checkarrivee)) |
|
| 2378 | - ) { |
|
| 2379 | - return $res; |
|
| 2380 | - } |
|
| 2381 | - foreach ($joints as $joint) { |
|
| 2382 | - if ($arrivee = trouver_champ_exterieur($col, [$joint], $boucle, $checkarrivee)) { |
|
| 2383 | - // alias de table dans le from |
|
| 2384 | - $t = array_search($arrivee[0], $boucle->from); |
|
| 2385 | - // recuperer la cle id_xx eventuellement decomposee en (id_objet,objet) |
|
| 2386 | - $cols = $arrivee[2]; |
|
| 2387 | - // mais on ignore la 3eme cle si presente qui correspond alors au point de depart |
|
| 2388 | - if ((is_countable($cols) ? count($cols) : 0) > 2) { |
|
| 2389 | - array_pop($cols); |
|
| 2390 | - } |
|
| 2391 | - if ($t) { |
|
| 2392 | - // la table est déjà dans le FROM, on vérifie si le champ est utilisé. |
|
| 2393 | - $joindre = false; |
|
| 2394 | - foreach ($cols as $col) { |
|
| 2395 | - $c = '/\b' . $t . ".$col" . '\b/'; |
|
| 2396 | - if (trouver_champ($c, $boucle->where)) { |
|
| 2397 | - $joindre = true; |
|
| 2398 | - } else { |
|
| 2399 | - // mais ca peut etre dans le FIELD pour le Having |
|
| 2400 | - $c = "/FIELD.$t" . ".$col,/"; |
|
| 2401 | - if (trouver_champ($c, $boucle->select)) { |
|
| 2402 | - $joindre = true; |
|
| 2403 | - } |
|
| 2404 | - } |
|
| 2405 | - } |
|
| 2406 | - if (!$joindre) { |
|
| 2407 | - return $t; |
|
| 2408 | - } |
|
| 2409 | - } |
|
| 2410 | - array_pop($arrivee); |
|
| 2411 | - if ($res = calculer_jointure($boucle, [$boucle->id_table, $desc], $arrivee, $cols, $cond, 1)) { |
|
| 2412 | - return $res; |
|
| 2413 | - } |
|
| 2414 | - } |
|
| 2415 | - } |
|
| 2416 | - |
|
| 2417 | - return ''; |
|
| 2368 | + // si on demande un truc du genre spip_mots |
|
| 2369 | + // avec aussi spip_mots_liens dans les jointures dispo |
|
| 2370 | + // et qu'on est la |
|
| 2371 | + // il faut privilegier la jointure directe en 2 etapes spip_mots_liens, spip_mots |
|
| 2372 | + if ( |
|
| 2373 | + $checkarrivee |
|
| 2374 | + && is_string($checkarrivee) |
|
| 2375 | + && ($a = table_objet($checkarrivee)) |
|
| 2376 | + && in_array($a . '_liens', $joints) |
|
| 2377 | + && ($res = calculer_lien_externe_init($boucle, $joints, $col, $desc, $cond, $checkarrivee)) |
|
| 2378 | + ) { |
|
| 2379 | + return $res; |
|
| 2380 | + } |
|
| 2381 | + foreach ($joints as $joint) { |
|
| 2382 | + if ($arrivee = trouver_champ_exterieur($col, [$joint], $boucle, $checkarrivee)) { |
|
| 2383 | + // alias de table dans le from |
|
| 2384 | + $t = array_search($arrivee[0], $boucle->from); |
|
| 2385 | + // recuperer la cle id_xx eventuellement decomposee en (id_objet,objet) |
|
| 2386 | + $cols = $arrivee[2]; |
|
| 2387 | + // mais on ignore la 3eme cle si presente qui correspond alors au point de depart |
|
| 2388 | + if ((is_countable($cols) ? count($cols) : 0) > 2) { |
|
| 2389 | + array_pop($cols); |
|
| 2390 | + } |
|
| 2391 | + if ($t) { |
|
| 2392 | + // la table est déjà dans le FROM, on vérifie si le champ est utilisé. |
|
| 2393 | + $joindre = false; |
|
| 2394 | + foreach ($cols as $col) { |
|
| 2395 | + $c = '/\b' . $t . ".$col" . '\b/'; |
|
| 2396 | + if (trouver_champ($c, $boucle->where)) { |
|
| 2397 | + $joindre = true; |
|
| 2398 | + } else { |
|
| 2399 | + // mais ca peut etre dans le FIELD pour le Having |
|
| 2400 | + $c = "/FIELD.$t" . ".$col,/"; |
|
| 2401 | + if (trouver_champ($c, $boucle->select)) { |
|
| 2402 | + $joindre = true; |
|
| 2403 | + } |
|
| 2404 | + } |
|
| 2405 | + } |
|
| 2406 | + if (!$joindre) { |
|
| 2407 | + return $t; |
|
| 2408 | + } |
|
| 2409 | + } |
|
| 2410 | + array_pop($arrivee); |
|
| 2411 | + if ($res = calculer_jointure($boucle, [$boucle->id_table, $desc], $arrivee, $cols, $cond, 1)) { |
|
| 2412 | + return $res; |
|
| 2413 | + } |
|
| 2414 | + } |
|
| 2415 | + } |
|
| 2416 | + |
|
| 2417 | + return ''; |
|
| 2418 | 2418 | } |
| 2419 | 2419 | |
| 2420 | 2420 | /** |
@@ -2440,35 +2440,35 @@ discard block |
||
| 2440 | 2440 | * Alias de la table de jointure (Lx) |
| 2441 | 2441 | */ |
| 2442 | 2442 | function calculer_lien_externe_init(&$boucle, $joints, $col, $desc, $cond, $checkarrivee = false) { |
| 2443 | - $primary_arrivee = id_table_objet($checkarrivee); |
|
| 2444 | - |
|
| 2445 | - // [FIXME] $checkarrivee peut-il arriver avec false ???? |
|
| 2446 | - $intermediaire = trouver_champ_exterieur($primary_arrivee, $joints, $boucle, $checkarrivee . '_liens'); |
|
| 2447 | - $arrivee = trouver_champ_exterieur($col, $joints, $boucle, $checkarrivee); |
|
| 2448 | - |
|
| 2449 | - if (!$intermediaire || !$arrivee) { |
|
| 2450 | - return ''; |
|
| 2451 | - } |
|
| 2452 | - array_pop($intermediaire); // enlever la cle en 3eme argument |
|
| 2453 | - array_pop($arrivee); // enlever la cle en 3eme argument |
|
| 2454 | - |
|
| 2455 | - $res = fabrique_jointures( |
|
| 2456 | - $boucle, |
|
| 2457 | - [ |
|
| 2458 | - [ |
|
| 2459 | - $boucle->id_table, |
|
| 2460 | - $intermediaire, |
|
| 2461 | - [id_table_objet($desc['table_objet']), 'id_objet', 'objet', $desc['type']] |
|
| 2462 | - ], |
|
| 2463 | - [reset($intermediaire), $arrivee, $primary_arrivee] |
|
| 2464 | - ], |
|
| 2465 | - $cond, |
|
| 2466 | - $desc, |
|
| 2467 | - $boucle->id_table, |
|
| 2468 | - [$col] |
|
| 2469 | - ); |
|
| 2470 | - |
|
| 2471 | - return $res; |
|
| 2443 | + $primary_arrivee = id_table_objet($checkarrivee); |
|
| 2444 | + |
|
| 2445 | + // [FIXME] $checkarrivee peut-il arriver avec false ???? |
|
| 2446 | + $intermediaire = trouver_champ_exterieur($primary_arrivee, $joints, $boucle, $checkarrivee . '_liens'); |
|
| 2447 | + $arrivee = trouver_champ_exterieur($col, $joints, $boucle, $checkarrivee); |
|
| 2448 | + |
|
| 2449 | + if (!$intermediaire || !$arrivee) { |
|
| 2450 | + return ''; |
|
| 2451 | + } |
|
| 2452 | + array_pop($intermediaire); // enlever la cle en 3eme argument |
|
| 2453 | + array_pop($arrivee); // enlever la cle en 3eme argument |
|
| 2454 | + |
|
| 2455 | + $res = fabrique_jointures( |
|
| 2456 | + $boucle, |
|
| 2457 | + [ |
|
| 2458 | + [ |
|
| 2459 | + $boucle->id_table, |
|
| 2460 | + $intermediaire, |
|
| 2461 | + [id_table_objet($desc['table_objet']), 'id_objet', 'objet', $desc['type']] |
|
| 2462 | + ], |
|
| 2463 | + [reset($intermediaire), $arrivee, $primary_arrivee] |
|
| 2464 | + ], |
|
| 2465 | + $cond, |
|
| 2466 | + $desc, |
|
| 2467 | + $boucle->id_table, |
|
| 2468 | + [$col] |
|
| 2469 | + ); |
|
| 2470 | + |
|
| 2471 | + return $res; |
|
| 2472 | 2472 | } |
| 2473 | 2473 | |
| 2474 | 2474 | |
@@ -2485,17 +2485,17 @@ discard block |
||
| 2485 | 2485 | * false sinon. |
| 2486 | 2486 | **/ |
| 2487 | 2487 | function trouver_champ($champ, $where) { |
| 2488 | - if (!is_array($where)) { |
|
| 2489 | - return preg_match($champ, $where); |
|
| 2490 | - } else { |
|
| 2491 | - foreach ($where as $clause) { |
|
| 2492 | - if (trouver_champ($champ, $clause)) { |
|
| 2493 | - return true; |
|
| 2494 | - } |
|
| 2495 | - } |
|
| 2496 | - |
|
| 2497 | - return false; |
|
| 2498 | - } |
|
| 2488 | + if (!is_array($where)) { |
|
| 2489 | + return preg_match($champ, $where); |
|
| 2490 | + } else { |
|
| 2491 | + foreach ($where as $clause) { |
|
| 2492 | + if (trouver_champ($champ, $clause)) { |
|
| 2493 | + return true; |
|
| 2494 | + } |
|
| 2495 | + } |
|
| 2496 | + |
|
| 2497 | + return false; |
|
| 2498 | + } |
|
| 2499 | 2499 | } |
| 2500 | 2500 | |
| 2501 | 2501 | |
@@ -2521,128 +2521,128 @@ discard block |
||
| 2521 | 2521 | * - string $args_sql Suite des arguments du critère. ? |
| 2522 | 2522 | **/ |
| 2523 | 2523 | function calculer_critere_infixe_ops($idb, &$boucles, $crit) { |
| 2524 | - // cas d'une valeur comparee a elle-meme ou son referent |
|
| 2525 | - if ((is_countable($crit->param) ? count($crit->param) : 0) == 0) { |
|
| 2526 | - $op = '='; |
|
| 2527 | - $col = $val = $crit->op; |
|
| 2528 | - if (preg_match('/^(.*)\.(.*)$/', $col, $r)) { |
|
| 2529 | - $val = $r[2]; |
|
| 2530 | - } |
|
| 2531 | - // Cas special {lang} : aller chercher $GLOBALS['spip_lang'] |
|
| 2532 | - if ($val == 'lang') { |
|
| 2533 | - $val = [kwote('$GLOBALS[\'spip_lang\']')]; |
|
| 2534 | - } else { |
|
| 2535 | - $defaut = null; |
|
| 2536 | - if ($val == 'id_parent') { |
|
| 2537 | - // Si id_parent, comparer l'id_parent avec l'id_objet |
|
| 2538 | - // de la boucle superieure.... faudrait verifier qu'il existe |
|
| 2539 | - // pour eviter l'erreur SQL |
|
| 2540 | - $val = $boucles[$idb]->primary; |
|
| 2541 | - // mais si pas de boucle superieure, prendre id_parent dans l'env |
|
| 2542 | - $defaut = "(\$Pile[0]['id_parent'] ?? null)"; |
|
| 2543 | - } elseif ($val == 'id_enfant') { |
|
| 2544 | - // Si id_enfant, comparer l'id_objet avec l'id_parent |
|
| 2545 | - // de la boucle superieure |
|
| 2546 | - $val = 'id_parent'; |
|
| 2547 | - } elseif ($crit->cond && ($col == 'date' || $col == 'date_redac')) { |
|
| 2548 | - // un critere conditionnel sur date est traite a part |
|
| 2549 | - // car la date est mise d'office par SPIP, |
|
| 2550 | - $defaut = "(\$Pile[0]['{$col}_default']?'':\$Pile[0]['" . $col . "'])"; |
|
| 2551 | - } |
|
| 2552 | - |
|
| 2553 | - $val = calculer_argument_precedent($idb, $val, $boucles, $defaut); |
|
| 2554 | - $val = [kwote($val)]; |
|
| 2555 | - } |
|
| 2556 | - } else { |
|
| 2557 | - // comparaison explicite |
|
| 2558 | - // le phraseur impose que le premier param soit du texte |
|
| 2559 | - $params = $crit->param; |
|
| 2560 | - $op = $crit->op; |
|
| 2561 | - if ($op == '==') { |
|
| 2562 | - $op = 'REGEXP'; |
|
| 2563 | - } |
|
| 2564 | - $col = array_shift($params); |
|
| 2565 | - $col = $col[0]->texte; |
|
| 2566 | - |
|
| 2567 | - $val = []; |
|
| 2568 | - $parent = $boucles[$idb]->id_parent; |
|
| 2569 | - |
|
| 2570 | - // Dans le cas {x=='#DATE'} etc, defaire le travail du phraseur, |
|
| 2571 | - // celui ne sachant pas ce qu'est un critere infixe |
|
| 2572 | - // et a fortiori son 2e operande qu'entoure " ou ' |
|
| 2573 | - if ( |
|
| 2574 | - (is_countable($params) ? count($params) : 0) == 1 |
|
| 2575 | - && (is_countable($params[0]) ? count($params[0]) : 0) == 3 |
|
| 2576 | - && $params[0][0]->type == 'texte' |
|
| 2577 | - && $params[0][2]->type == 'texte' |
|
| 2578 | - && ($p = $params[0][0]->texte) == $params[0][2]->texte |
|
| 2579 | - && ($p == "'" || $p == '"') |
|
| 2580 | - && $params[0][1]->type == 'champ' |
|
| 2581 | - ) { |
|
| 2582 | - $val[] = "$p\\$p#" . $params[0][1]->nom_champ . "\\$p$p"; |
|
| 2583 | - } else { |
|
| 2584 | - foreach ((($op != 'IN') ? $params : calculer_vieux_in($params)) as $p) { |
|
| 2585 | - $a = calculer_liste($p, $idb, $boucles, $parent); |
|
| 2586 | - $val[] = strcasecmp($op, 'IN') == 0 |
|
| 2587 | - ? $a |
|
| 2588 | - // toujours quoter en char ici |
|
| 2589 | - : kwote($a, $boucles[$idb]->sql_serveur, '@@defaultcast@@'); |
|
| 2590 | - } |
|
| 2591 | - } |
|
| 2592 | - } |
|
| 2593 | - |
|
| 2594 | - $fct = $args_sql = ''; |
|
| 2595 | - // fonction SQL ? |
|
| 2596 | - // chercher FONCTION(champ) tel que CONCAT(titre,descriptif) |
|
| 2597 | - if (preg_match('/^(.*)' . SQL_ARGS . '$/', (string) $col, $m)) { |
|
| 2598 | - $fct = $m[1]; |
|
| 2599 | - preg_match('/^\(([^,]*)(.*)\)$/', $m[2], $a); |
|
| 2600 | - $col = $a[1]; |
|
| 2601 | - if (preg_match('/^(\S*)(\s+AS\s+.*)$/i', $col, $m)) { |
|
| 2602 | - $col = $m[1]; |
|
| 2603 | - $args_sql = $m[2]; |
|
| 2604 | - } |
|
| 2605 | - $args_sql .= $a[2]; |
|
| 2606 | - } |
|
| 2607 | - |
|
| 2608 | - return [$fct, $col, $op, $val, $args_sql]; |
|
| 2524 | + // cas d'une valeur comparee a elle-meme ou son referent |
|
| 2525 | + if ((is_countable($crit->param) ? count($crit->param) : 0) == 0) { |
|
| 2526 | + $op = '='; |
|
| 2527 | + $col = $val = $crit->op; |
|
| 2528 | + if (preg_match('/^(.*)\.(.*)$/', $col, $r)) { |
|
| 2529 | + $val = $r[2]; |
|
| 2530 | + } |
|
| 2531 | + // Cas special {lang} : aller chercher $GLOBALS['spip_lang'] |
|
| 2532 | + if ($val == 'lang') { |
|
| 2533 | + $val = [kwote('$GLOBALS[\'spip_lang\']')]; |
|
| 2534 | + } else { |
|
| 2535 | + $defaut = null; |
|
| 2536 | + if ($val == 'id_parent') { |
|
| 2537 | + // Si id_parent, comparer l'id_parent avec l'id_objet |
|
| 2538 | + // de la boucle superieure.... faudrait verifier qu'il existe |
|
| 2539 | + // pour eviter l'erreur SQL |
|
| 2540 | + $val = $boucles[$idb]->primary; |
|
| 2541 | + // mais si pas de boucle superieure, prendre id_parent dans l'env |
|
| 2542 | + $defaut = "(\$Pile[0]['id_parent'] ?? null)"; |
|
| 2543 | + } elseif ($val == 'id_enfant') { |
|
| 2544 | + // Si id_enfant, comparer l'id_objet avec l'id_parent |
|
| 2545 | + // de la boucle superieure |
|
| 2546 | + $val = 'id_parent'; |
|
| 2547 | + } elseif ($crit->cond && ($col == 'date' || $col == 'date_redac')) { |
|
| 2548 | + // un critere conditionnel sur date est traite a part |
|
| 2549 | + // car la date est mise d'office par SPIP, |
|
| 2550 | + $defaut = "(\$Pile[0]['{$col}_default']?'':\$Pile[0]['" . $col . "'])"; |
|
| 2551 | + } |
|
| 2552 | + |
|
| 2553 | + $val = calculer_argument_precedent($idb, $val, $boucles, $defaut); |
|
| 2554 | + $val = [kwote($val)]; |
|
| 2555 | + } |
|
| 2556 | + } else { |
|
| 2557 | + // comparaison explicite |
|
| 2558 | + // le phraseur impose que le premier param soit du texte |
|
| 2559 | + $params = $crit->param; |
|
| 2560 | + $op = $crit->op; |
|
| 2561 | + if ($op == '==') { |
|
| 2562 | + $op = 'REGEXP'; |
|
| 2563 | + } |
|
| 2564 | + $col = array_shift($params); |
|
| 2565 | + $col = $col[0]->texte; |
|
| 2566 | + |
|
| 2567 | + $val = []; |
|
| 2568 | + $parent = $boucles[$idb]->id_parent; |
|
| 2569 | + |
|
| 2570 | + // Dans le cas {x=='#DATE'} etc, defaire le travail du phraseur, |
|
| 2571 | + // celui ne sachant pas ce qu'est un critere infixe |
|
| 2572 | + // et a fortiori son 2e operande qu'entoure " ou ' |
|
| 2573 | + if ( |
|
| 2574 | + (is_countable($params) ? count($params) : 0) == 1 |
|
| 2575 | + && (is_countable($params[0]) ? count($params[0]) : 0) == 3 |
|
| 2576 | + && $params[0][0]->type == 'texte' |
|
| 2577 | + && $params[0][2]->type == 'texte' |
|
| 2578 | + && ($p = $params[0][0]->texte) == $params[0][2]->texte |
|
| 2579 | + && ($p == "'" || $p == '"') |
|
| 2580 | + && $params[0][1]->type == 'champ' |
|
| 2581 | + ) { |
|
| 2582 | + $val[] = "$p\\$p#" . $params[0][1]->nom_champ . "\\$p$p"; |
|
| 2583 | + } else { |
|
| 2584 | + foreach ((($op != 'IN') ? $params : calculer_vieux_in($params)) as $p) { |
|
| 2585 | + $a = calculer_liste($p, $idb, $boucles, $parent); |
|
| 2586 | + $val[] = strcasecmp($op, 'IN') == 0 |
|
| 2587 | + ? $a |
|
| 2588 | + // toujours quoter en char ici |
|
| 2589 | + : kwote($a, $boucles[$idb]->sql_serveur, '@@defaultcast@@'); |
|
| 2590 | + } |
|
| 2591 | + } |
|
| 2592 | + } |
|
| 2593 | + |
|
| 2594 | + $fct = $args_sql = ''; |
|
| 2595 | + // fonction SQL ? |
|
| 2596 | + // chercher FONCTION(champ) tel que CONCAT(titre,descriptif) |
|
| 2597 | + if (preg_match('/^(.*)' . SQL_ARGS . '$/', (string) $col, $m)) { |
|
| 2598 | + $fct = $m[1]; |
|
| 2599 | + preg_match('/^\(([^,]*)(.*)\)$/', $m[2], $a); |
|
| 2600 | + $col = $a[1]; |
|
| 2601 | + if (preg_match('/^(\S*)(\s+AS\s+.*)$/i', $col, $m)) { |
|
| 2602 | + $col = $m[1]; |
|
| 2603 | + $args_sql = $m[2]; |
|
| 2604 | + } |
|
| 2605 | + $args_sql .= $a[2]; |
|
| 2606 | + } |
|
| 2607 | + |
|
| 2608 | + return [$fct, $col, $op, $val, $args_sql]; |
|
| 2609 | 2609 | } |
| 2610 | 2610 | |
| 2611 | 2611 | // compatibilite ancienne version |
| 2612 | 2612 | |
| 2613 | 2613 | function calculer_vieux_in($params) { |
| 2614 | - $deb = $params[0][0]; |
|
| 2615 | - $k = (is_countable($params) ? count($params) : 0) - 1; |
|
| 2616 | - $last = $params[$k]; |
|
| 2617 | - $j = (is_countable($last) ? count($last) : 0) - 1; |
|
| 2618 | - $last = $last[$j]; |
|
| 2619 | - $n = isset($last->texte) ? strlen((string) $last->texte) : 0; |
|
| 2620 | - |
|
| 2621 | - if ( |
|
| 2622 | - !((isset($deb->texte[0]) && $deb->texte[0] == '(') |
|
| 2623 | - && (isset($last->texte[$n - 1]) && $last->texte[$n - 1] == ')')) |
|
| 2624 | - ) { |
|
| 2625 | - return $params; |
|
| 2626 | - } |
|
| 2627 | - $params[0][0]->texte = substr((string) $deb->texte, 1); |
|
| 2628 | - // attention, on peut avoir k=0,j=0 ==> recalculer |
|
| 2629 | - $last = $params[$k][$j]; |
|
| 2630 | - $n = strlen((string) $last->texte); |
|
| 2631 | - $params[$k][$j]->texte = substr((string) $last->texte, 0, $n - 1); |
|
| 2632 | - $newp = []; |
|
| 2633 | - foreach ($params as $v) { |
|
| 2634 | - if ($v[0]->type != 'texte') { |
|
| 2635 | - $newp[] = $v; |
|
| 2636 | - } else { |
|
| 2637 | - foreach (explode(',', (string) $v[0]->texte) as $x) { |
|
| 2638 | - $t = new Texte(); |
|
| 2639 | - $t->texte = $x; |
|
| 2640 | - $newp[] = [$t]; |
|
| 2641 | - } |
|
| 2642 | - } |
|
| 2643 | - } |
|
| 2644 | - |
|
| 2645 | - return $newp; |
|
| 2614 | + $deb = $params[0][0]; |
|
| 2615 | + $k = (is_countable($params) ? count($params) : 0) - 1; |
|
| 2616 | + $last = $params[$k]; |
|
| 2617 | + $j = (is_countable($last) ? count($last) : 0) - 1; |
|
| 2618 | + $last = $last[$j]; |
|
| 2619 | + $n = isset($last->texte) ? strlen((string) $last->texte) : 0; |
|
| 2620 | + |
|
| 2621 | + if ( |
|
| 2622 | + !((isset($deb->texte[0]) && $deb->texte[0] == '(') |
|
| 2623 | + && (isset($last->texte[$n - 1]) && $last->texte[$n - 1] == ')')) |
|
| 2624 | + ) { |
|
| 2625 | + return $params; |
|
| 2626 | + } |
|
| 2627 | + $params[0][0]->texte = substr((string) $deb->texte, 1); |
|
| 2628 | + // attention, on peut avoir k=0,j=0 ==> recalculer |
|
| 2629 | + $last = $params[$k][$j]; |
|
| 2630 | + $n = strlen((string) $last->texte); |
|
| 2631 | + $params[$k][$j]->texte = substr((string) $last->texte, 0, $n - 1); |
|
| 2632 | + $newp = []; |
|
| 2633 | + foreach ($params as $v) { |
|
| 2634 | + if ($v[0]->type != 'texte') { |
|
| 2635 | + $newp[] = $v; |
|
| 2636 | + } else { |
|
| 2637 | + foreach (explode(',', (string) $v[0]->texte) as $x) { |
|
| 2638 | + $t = new Texte(); |
|
| 2639 | + $t->texte = $x; |
|
| 2640 | + $newp[] = [$t]; |
|
| 2641 | + } |
|
| 2642 | + } |
|
| 2643 | + } |
|
| 2644 | + |
|
| 2645 | + return $newp; |
|
| 2646 | 2646 | } |
| 2647 | 2647 | |
| 2648 | 2648 | /** |
@@ -2661,91 +2661,91 @@ discard block |
||
| 2661 | 2661 | * - nom de la colonne de date (si le calcul n'est pas relatif) |
| 2662 | 2662 | **/ |
| 2663 | 2663 | function calculer_critere_infixe_date($idb, &$boucles, $col) { |
| 2664 | - if (!preg_match(',^((age|jour|mois|annee)_relatif|date|mois|annee|jour|heure|age)(_[a-z_]+)?$,', $col, $regs)) { |
|
| 2665 | - return ''; |
|
| 2666 | - } |
|
| 2667 | - |
|
| 2668 | - $boucle = $boucles[$idb]; |
|
| 2669 | - $table = $boucle->show; |
|
| 2670 | - |
|
| 2671 | - // si c'est une colonne de la table, ne rien faire |
|
| 2672 | - if (isset($table['field'][$col])) { |
|
| 2673 | - return ''; |
|
| 2674 | - } |
|
| 2675 | - |
|
| 2676 | - // Le type de critère à prendre en compte |
|
| 2677 | - $col = $regs[1]; |
|
| 2678 | - |
|
| 2679 | - // Si on trouve un nom de champ date précis, on l'utilise, pas besoin de déclaration dans l'API objet |
|
| 2680 | - if (isset($regs[3]) && ($suite = $regs[3])) { |
|
| 2681 | - # Recherche de l'existence du champ date_xxxx, |
|
| 2682 | - # si oui choisir ce champ, sinon choisir xxxx |
|
| 2683 | - $date_orig = isset($table['field']["date$suite"]) ? 'date' . $suite : substr($suite, 1); |
|
| 2684 | - |
|
| 2685 | - $pred = $date_orig; |
|
| 2686 | - } else { // Sinon il FAUT avoir déclaré le champ date officiel dans l'API objet |
|
| 2687 | - // Si aucune déclaration trouvée, on quitte |
|
| 2688 | - if (!$table['date'] && !isset($GLOBALS['table_date'][$table['id_table']])) { |
|
| 2689 | - return ''; |
|
| 2690 | - } |
|
| 2691 | - // Par défaut, on prend le champ date déclaré dans l'API |
|
| 2692 | - $pred = $date_orig = $GLOBALS['table_date'][$table['id_table']] ?? $table['date']; |
|
| 2693 | - |
|
| 2694 | - // Si c'est pour du relatif |
|
| 2695 | - if (isset($regs[2]) && ($rel = $regs[2])) { |
|
| 2696 | - $pred = 'date'; |
|
| 2697 | - } |
|
| 2698 | - } |
|
| 2699 | - |
|
| 2700 | - $date_compare = "\"' . normaliser_date(" . |
|
| 2701 | - calculer_argument_precedent($idb, $pred, $boucles) . |
|
| 2702 | - ") . '\""; |
|
| 2703 | - |
|
| 2704 | - $col_vraie = $date_orig; |
|
| 2705 | - $date_orig = $boucle->id_table . '.' . $date_orig; |
|
| 2706 | - |
|
| 2707 | - switch ($col) { |
|
| 2708 | - case 'date': |
|
| 2709 | - $col = $date_orig; |
|
| 2710 | - break; |
|
| 2711 | - case 'jour': |
|
| 2712 | - $col = "DAYOFMONTH($date_orig)"; |
|
| 2713 | - break; |
|
| 2714 | - case 'mois': |
|
| 2715 | - $col = "MONTH($date_orig)"; |
|
| 2716 | - break; |
|
| 2717 | - case 'annee': |
|
| 2718 | - $col = "YEAR($date_orig)"; |
|
| 2719 | - break; |
|
| 2720 | - case 'heure': |
|
| 2721 | - $col = "DATE_FORMAT($date_orig, \\'%H:%i\\')"; |
|
| 2722 | - break; |
|
| 2723 | - case 'age': |
|
| 2724 | - $col = calculer_param_date("\'' . date('Y-m-d H:i:00') . '\'", $date_orig); |
|
| 2725 | - $col_vraie = '';// comparer a un int (par defaut) |
|
| 2726 | - break; |
|
| 2727 | - case 'age_relatif': |
|
| 2728 | - $col = calculer_param_date($date_compare, $date_orig); |
|
| 2729 | - $col_vraie = '';// comparer a un int (par defaut) |
|
| 2730 | - break; |
|
| 2731 | - case 'jour_relatif': |
|
| 2732 | - $col = '(TO_DAYS(' . $date_compare . ')-TO_DAYS(' . $date_orig . '))'; |
|
| 2733 | - $col_vraie = '';// comparer a un int (par defaut) |
|
| 2734 | - break; |
|
| 2735 | - case 'mois_relatif': |
|
| 2736 | - $col = 'MONTH(' . $date_compare . ')-MONTH(' . |
|
| 2737 | - $date_orig . ')+12*(YEAR(' . $date_compare . |
|
| 2738 | - ')-YEAR(' . $date_orig . '))'; |
|
| 2739 | - $col_vraie = '';// comparer a un int (par defaut) |
|
| 2740 | - break; |
|
| 2741 | - case 'annee_relatif': |
|
| 2742 | - $col = 'YEAR(' . $date_compare . ')-YEAR(' . |
|
| 2743 | - $date_orig . ')'; |
|
| 2744 | - $col_vraie = '';// comparer a un int (par defaut) |
|
| 2745 | - break; |
|
| 2746 | - } |
|
| 2747 | - |
|
| 2748 | - return [$col, $col_vraie]; |
|
| 2664 | + if (!preg_match(',^((age|jour|mois|annee)_relatif|date|mois|annee|jour|heure|age)(_[a-z_]+)?$,', $col, $regs)) { |
|
| 2665 | + return ''; |
|
| 2666 | + } |
|
| 2667 | + |
|
| 2668 | + $boucle = $boucles[$idb]; |
|
| 2669 | + $table = $boucle->show; |
|
| 2670 | + |
|
| 2671 | + // si c'est une colonne de la table, ne rien faire |
|
| 2672 | + if (isset($table['field'][$col])) { |
|
| 2673 | + return ''; |
|
| 2674 | + } |
|
| 2675 | + |
|
| 2676 | + // Le type de critère à prendre en compte |
|
| 2677 | + $col = $regs[1]; |
|
| 2678 | + |
|
| 2679 | + // Si on trouve un nom de champ date précis, on l'utilise, pas besoin de déclaration dans l'API objet |
|
| 2680 | + if (isset($regs[3]) && ($suite = $regs[3])) { |
|
| 2681 | + # Recherche de l'existence du champ date_xxxx, |
|
| 2682 | + # si oui choisir ce champ, sinon choisir xxxx |
|
| 2683 | + $date_orig = isset($table['field']["date$suite"]) ? 'date' . $suite : substr($suite, 1); |
|
| 2684 | + |
|
| 2685 | + $pred = $date_orig; |
|
| 2686 | + } else { // Sinon il FAUT avoir déclaré le champ date officiel dans l'API objet |
|
| 2687 | + // Si aucune déclaration trouvée, on quitte |
|
| 2688 | + if (!$table['date'] && !isset($GLOBALS['table_date'][$table['id_table']])) { |
|
| 2689 | + return ''; |
|
| 2690 | + } |
|
| 2691 | + // Par défaut, on prend le champ date déclaré dans l'API |
|
| 2692 | + $pred = $date_orig = $GLOBALS['table_date'][$table['id_table']] ?? $table['date']; |
|
| 2693 | + |
|
| 2694 | + // Si c'est pour du relatif |
|
| 2695 | + if (isset($regs[2]) && ($rel = $regs[2])) { |
|
| 2696 | + $pred = 'date'; |
|
| 2697 | + } |
|
| 2698 | + } |
|
| 2699 | + |
|
| 2700 | + $date_compare = "\"' . normaliser_date(" . |
|
| 2701 | + calculer_argument_precedent($idb, $pred, $boucles) . |
|
| 2702 | + ") . '\""; |
|
| 2703 | + |
|
| 2704 | + $col_vraie = $date_orig; |
|
| 2705 | + $date_orig = $boucle->id_table . '.' . $date_orig; |
|
| 2706 | + |
|
| 2707 | + switch ($col) { |
|
| 2708 | + case 'date': |
|
| 2709 | + $col = $date_orig; |
|
| 2710 | + break; |
|
| 2711 | + case 'jour': |
|
| 2712 | + $col = "DAYOFMONTH($date_orig)"; |
|
| 2713 | + break; |
|
| 2714 | + case 'mois': |
|
| 2715 | + $col = "MONTH($date_orig)"; |
|
| 2716 | + break; |
|
| 2717 | + case 'annee': |
|
| 2718 | + $col = "YEAR($date_orig)"; |
|
| 2719 | + break; |
|
| 2720 | + case 'heure': |
|
| 2721 | + $col = "DATE_FORMAT($date_orig, \\'%H:%i\\')"; |
|
| 2722 | + break; |
|
| 2723 | + case 'age': |
|
| 2724 | + $col = calculer_param_date("\'' . date('Y-m-d H:i:00') . '\'", $date_orig); |
|
| 2725 | + $col_vraie = '';// comparer a un int (par defaut) |
|
| 2726 | + break; |
|
| 2727 | + case 'age_relatif': |
|
| 2728 | + $col = calculer_param_date($date_compare, $date_orig); |
|
| 2729 | + $col_vraie = '';// comparer a un int (par defaut) |
|
| 2730 | + break; |
|
| 2731 | + case 'jour_relatif': |
|
| 2732 | + $col = '(TO_DAYS(' . $date_compare . ')-TO_DAYS(' . $date_orig . '))'; |
|
| 2733 | + $col_vraie = '';// comparer a un int (par defaut) |
|
| 2734 | + break; |
|
| 2735 | + case 'mois_relatif': |
|
| 2736 | + $col = 'MONTH(' . $date_compare . ')-MONTH(' . |
|
| 2737 | + $date_orig . ')+12*(YEAR(' . $date_compare . |
|
| 2738 | + ')-YEAR(' . $date_orig . '))'; |
|
| 2739 | + $col_vraie = '';// comparer a un int (par defaut) |
|
| 2740 | + break; |
|
| 2741 | + case 'annee_relatif': |
|
| 2742 | + $col = 'YEAR(' . $date_compare . ')-YEAR(' . |
|
| 2743 | + $date_orig . ')'; |
|
| 2744 | + $col_vraie = '';// comparer a un int (par defaut) |
|
| 2745 | + break; |
|
| 2746 | + } |
|
| 2747 | + |
|
| 2748 | + return [$col, $col_vraie]; |
|
| 2749 | 2749 | } |
| 2750 | 2750 | |
| 2751 | 2751 | /** |
@@ -2764,16 +2764,16 @@ discard block |
||
| 2764 | 2764 | * de colonne SQL et une date. |
| 2765 | 2765 | **/ |
| 2766 | 2766 | function calculer_param_date($date_compare, $date_orig) { |
| 2767 | - if (preg_match(",'\" *\.(.*)\. *\"',", $date_compare, $r)) { |
|
| 2768 | - $init = "'\" . (\$x = $r[1]) . \"'"; |
|
| 2769 | - $date_compare = '\'$x\''; |
|
| 2770 | - } else { |
|
| 2771 | - $init = $date_compare; |
|
| 2772 | - } |
|
| 2773 | - |
|
| 2774 | - return |
|
| 2775 | - // optimisation : mais prevoir le support SQLite avant |
|
| 2776 | - "TIMESTAMPDIFF(HOUR,$date_orig,$init)/24"; |
|
| 2767 | + if (preg_match(",'\" *\.(.*)\. *\"',", $date_compare, $r)) { |
|
| 2768 | + $init = "'\" . (\$x = $r[1]) . \"'"; |
|
| 2769 | + $date_compare = '\'$x\''; |
|
| 2770 | + } else { |
|
| 2771 | + $init = $date_compare; |
|
| 2772 | + } |
|
| 2773 | + |
|
| 2774 | + return |
|
| 2775 | + // optimisation : mais prevoir le support SQLite avant |
|
| 2776 | + "TIMESTAMPDIFF(HOUR,$date_orig,$init)/24"; |
|
| 2777 | 2777 | } |
| 2778 | 2778 | |
| 2779 | 2779 | /** |
@@ -2791,17 +2791,17 @@ discard block |
||
| 2791 | 2791 | * @param Critere $crit Paramètres du critère dans cette boucle |
| 2792 | 2792 | */ |
| 2793 | 2793 | function critere_DATA_source_dist($idb, &$boucles, $crit) { |
| 2794 | - $boucle = &$boucles[$idb]; |
|
| 2794 | + $boucle = &$boucles[$idb]; |
|
| 2795 | 2795 | |
| 2796 | - $args = []; |
|
| 2797 | - foreach ($crit->param as &$param) { |
|
| 2798 | - $args[] = calculer_liste($param, $idb, $boucles, $boucles[$idb]->id_parent); |
|
| 2799 | - } |
|
| 2796 | + $args = []; |
|
| 2797 | + foreach ($crit->param as &$param) { |
|
| 2798 | + $args[] = calculer_liste($param, $idb, $boucles, $boucles[$idb]->id_parent); |
|
| 2799 | + } |
|
| 2800 | 2800 | |
| 2801 | - $boucle->hash .= ' |
|
| 2801 | + $boucle->hash .= ' |
|
| 2802 | 2802 | $command[\'sourcemode\'] = ' . array_shift($args) . ";\n"; |
| 2803 | 2803 | |
| 2804 | - $boucle->hash .= ' |
|
| 2804 | + $boucle->hash .= ' |
|
| 2805 | 2805 | $command[\'source\'] = array(' . implode(', ', $args) . ");\n"; |
| 2806 | 2806 | } |
| 2807 | 2807 | |
@@ -2819,8 +2819,8 @@ discard block |
||
| 2819 | 2819 | * @param Critere $crit Paramètres du critère dans cette boucle |
| 2820 | 2820 | */ |
| 2821 | 2821 | function critere_DATA_datacache_dist($idb, &$boucles, $crit) { |
| 2822 | - $boucle = &$boucles[$idb]; |
|
| 2823 | - $boucle->hash .= ' |
|
| 2822 | + $boucle = &$boucles[$idb]; |
|
| 2823 | + $boucle->hash .= ' |
|
| 2824 | 2824 | $command[\'datacache\'] = ' . calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent) . ';'; |
| 2825 | 2825 | } |
| 2826 | 2826 | |
@@ -2836,12 +2836,12 @@ discard block |
||
| 2836 | 2836 | * @param Critere $crit Paramètres du critère dans cette boucle |
| 2837 | 2837 | */ |
| 2838 | 2838 | function critere_php_args_dist($idb, &$boucles, $crit) { |
| 2839 | - $boucle = &$boucles[$idb]; |
|
| 2840 | - $boucle->hash .= '$command[\'args\']=array();'; |
|
| 2841 | - foreach ($crit->param as $param) { |
|
| 2842 | - $boucle->hash .= ' |
|
| 2839 | + $boucle = &$boucles[$idb]; |
|
| 2840 | + $boucle->hash .= '$command[\'args\']=array();'; |
|
| 2841 | + foreach ($crit->param as $param) { |
|
| 2842 | + $boucle->hash .= ' |
|
| 2843 | 2843 | $command[\'args\'][] = ' . calculer_liste($param, $idb, $boucles, $boucles[$idb]->id_parent) . ';'; |
| 2844 | - } |
|
| 2844 | + } |
|
| 2845 | 2845 | } |
| 2846 | 2846 | |
| 2847 | 2847 | /** |
@@ -2858,16 +2858,16 @@ discard block |
||
| 2858 | 2858 | * @param Critere $crit Paramètres du critère dans cette boucle |
| 2859 | 2859 | */ |
| 2860 | 2860 | function critere_DATA_liste_dist($idb, &$boucles, $crit) { |
| 2861 | - $boucle = &$boucles[$idb]; |
|
| 2862 | - $boucle->hash .= "\n\t" . '$command[\'liste\'] = array();' . "\n"; |
|
| 2863 | - foreach ($crit->param as $param) { |
|
| 2864 | - $boucle->hash .= "\t" . '$command[\'liste\'][] = ' . calculer_liste( |
|
| 2865 | - $param, |
|
| 2866 | - $idb, |
|
| 2867 | - $boucles, |
|
| 2868 | - $boucles[$idb]->id_parent |
|
| 2869 | - ) . ";\n"; |
|
| 2870 | - } |
|
| 2861 | + $boucle = &$boucles[$idb]; |
|
| 2862 | + $boucle->hash .= "\n\t" . '$command[\'liste\'] = array();' . "\n"; |
|
| 2863 | + foreach ($crit->param as $param) { |
|
| 2864 | + $boucle->hash .= "\t" . '$command[\'liste\'][] = ' . calculer_liste( |
|
| 2865 | + $param, |
|
| 2866 | + $idb, |
|
| 2867 | + $boucles, |
|
| 2868 | + $boucles[$idb]->id_parent |
|
| 2869 | + ) . ";\n"; |
|
| 2870 | + } |
|
| 2871 | 2871 | } |
| 2872 | 2872 | |
| 2873 | 2873 | /** |
@@ -2892,16 +2892,16 @@ discard block |
||
| 2892 | 2892 | * @param Critere $crit Paramètres du critère dans cette boucle |
| 2893 | 2893 | */ |
| 2894 | 2894 | function critere_DATA_enum_dist($idb, &$boucles, $crit) { |
| 2895 | - $boucle = &$boucles[$idb]; |
|
| 2896 | - $boucle->hash .= "\n\t" . '$command[\'enum\'] = array();' . "\n"; |
|
| 2897 | - foreach ($crit->param as $param) { |
|
| 2898 | - $boucle->hash .= "\t" . '$command[\'enum\'][] = ' . calculer_liste( |
|
| 2899 | - $param, |
|
| 2900 | - $idb, |
|
| 2901 | - $boucles, |
|
| 2902 | - $boucles[$idb]->id_parent |
|
| 2903 | - ) . ";\n"; |
|
| 2904 | - } |
|
| 2895 | + $boucle = &$boucles[$idb]; |
|
| 2896 | + $boucle->hash .= "\n\t" . '$command[\'enum\'] = array();' . "\n"; |
|
| 2897 | + foreach ($crit->param as $param) { |
|
| 2898 | + $boucle->hash .= "\t" . '$command[\'enum\'][] = ' . calculer_liste( |
|
| 2899 | + $param, |
|
| 2900 | + $idb, |
|
| 2901 | + $boucles, |
|
| 2902 | + $boucles[$idb]->id_parent |
|
| 2903 | + ) . ";\n"; |
|
| 2904 | + } |
|
| 2905 | 2905 | } |
| 2906 | 2906 | |
| 2907 | 2907 | /** |
@@ -2916,11 +2916,11 @@ discard block |
||
| 2916 | 2916 | * @param Critere $crit Paramètres du critère dans cette boucle |
| 2917 | 2917 | */ |
| 2918 | 2918 | function critere_DATA_datapath_dist($idb, &$boucles, $crit) { |
| 2919 | - $boucle = &$boucles[$idb]; |
|
| 2920 | - foreach ($crit->param as $param) { |
|
| 2921 | - $boucle->hash .= ' |
|
| 2919 | + $boucle = &$boucles[$idb]; |
|
| 2920 | + foreach ($crit->param as $param) { |
|
| 2921 | + $boucle->hash .= ' |
|
| 2922 | 2922 | $command[\'datapath\'][] = ' . calculer_liste($param, $idb, $boucles, $boucles[$idb]->id_parent) . ';'; |
| 2923 | - } |
|
| 2923 | + } |
|
| 2924 | 2924 | } |
| 2925 | 2925 | |
| 2926 | 2926 | |
@@ -2952,20 +2952,20 @@ discard block |
||
| 2952 | 2952 | * @param Critere $crit Paramètres du critère dans cette boucle |
| 2953 | 2953 | */ |
| 2954 | 2954 | function critere_si_dist($idb, &$boucles, $crit) { |
| 2955 | - $boucle = &$boucles[$idb]; |
|
| 2956 | - // il faut initialiser 1 fois le tableau a chaque appel de la boucle |
|
| 2957 | - // (par exemple lorsque notre boucle est appelee dans une autre boucle) |
|
| 2958 | - // mais ne pas l'initialiser n fois si il y a n criteres {si } dans la boucle ! |
|
| 2959 | - $boucle->hash .= "\n\tif (!isset(\$si_init)) { \$command['si'] = array(); \$si_init = true; }\n"; |
|
| 2960 | - if ($crit->param) { |
|
| 2961 | - foreach ($crit->param as $param) { |
|
| 2962 | - $boucle->hash .= "\t\$command['si'][] = " |
|
| 2963 | - . calculer_liste($param, $idb, $boucles, $boucles[$idb]->id_parent) . ";\n"; |
|
| 2964 | - } |
|
| 2965 | - // interdire {si 0} aussi ! |
|
| 2966 | - } else { |
|
| 2967 | - $boucle->hash .= '$command[\'si\'][] = 0;'; |
|
| 2968 | - } |
|
| 2955 | + $boucle = &$boucles[$idb]; |
|
| 2956 | + // il faut initialiser 1 fois le tableau a chaque appel de la boucle |
|
| 2957 | + // (par exemple lorsque notre boucle est appelee dans une autre boucle) |
|
| 2958 | + // mais ne pas l'initialiser n fois si il y a n criteres {si } dans la boucle ! |
|
| 2959 | + $boucle->hash .= "\n\tif (!isset(\$si_init)) { \$command['si'] = array(); \$si_init = true; }\n"; |
|
| 2960 | + if ($crit->param) { |
|
| 2961 | + foreach ($crit->param as $param) { |
|
| 2962 | + $boucle->hash .= "\t\$command['si'][] = " |
|
| 2963 | + . calculer_liste($param, $idb, $boucles, $boucles[$idb]->id_parent) . ";\n"; |
|
| 2964 | + } |
|
| 2965 | + // interdire {si 0} aussi ! |
|
| 2966 | + } else { |
|
| 2967 | + $boucle->hash .= '$command[\'si\'][] = 0;'; |
|
| 2968 | + } |
|
| 2969 | 2969 | } |
| 2970 | 2970 | |
| 2971 | 2971 | /** |
@@ -2983,27 +2983,27 @@ discard block |
||
| 2983 | 2983 | */ |
| 2984 | 2984 | function critere_noeud_dist($idb, &$boucles, $crit) { |
| 2985 | 2985 | |
| 2986 | - $not = $crit->not; |
|
| 2987 | - $boucle = &$boucles[$idb]; |
|
| 2988 | - $primary = $boucle->primary; |
|
| 2986 | + $not = $crit->not; |
|
| 2987 | + $boucle = &$boucles[$idb]; |
|
| 2988 | + $primary = $boucle->primary; |
|
| 2989 | 2989 | |
| 2990 | - if (!$primary || strpos((string) $primary, ',')) { |
|
| 2991 | - erreur_squelette(_T('zbug_doublon_sur_table_sans_cle_primaire'), $boucle); |
|
| 2990 | + if (!$primary || strpos((string) $primary, ',')) { |
|
| 2991 | + erreur_squelette(_T('zbug_doublon_sur_table_sans_cle_primaire'), $boucle); |
|
| 2992 | 2992 | |
| 2993 | - return; |
|
| 2994 | - } |
|
| 2995 | - $table = $boucle->type_requete; |
|
| 2996 | - $table_sql = table_objet_sql(objet_type($table)); |
|
| 2993 | + return; |
|
| 2994 | + } |
|
| 2995 | + $table = $boucle->type_requete; |
|
| 2996 | + $table_sql = table_objet_sql(objet_type($table)); |
|
| 2997 | 2997 | |
| 2998 | - $id_parent = $GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent'] ?? 'id_parent'; |
|
| 2998 | + $id_parent = $GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent'] ?? 'id_parent'; |
|
| 2999 | 2999 | |
| 3000 | - $in = 'IN'; |
|
| 3001 | - $where = ["'IN'", "'$boucle->id_table." . "$primary'", "'('.sql_get_select('$id_parent', '$table_sql').')'"]; |
|
| 3002 | - if ($not) { |
|
| 3003 | - $where = ["'NOT'", $where]; |
|
| 3004 | - } |
|
| 3000 | + $in = 'IN'; |
|
| 3001 | + $where = ["'IN'", "'$boucle->id_table." . "$primary'", "'('.sql_get_select('$id_parent', '$table_sql').')'"]; |
|
| 3002 | + if ($not) { |
|
| 3003 | + $where = ["'NOT'", $where]; |
|
| 3004 | + } |
|
| 3005 | 3005 | |
| 3006 | - $boucle->where[] = $where; |
|
| 3006 | + $boucle->where[] = $where; |
|
| 3007 | 3007 | } |
| 3008 | 3008 | |
| 3009 | 3009 | /** |
@@ -3019,8 +3019,8 @@ discard block |
||
| 3019 | 3019 | * @param Critere $crit Paramètres du critère dans cette boucle |
| 3020 | 3020 | */ |
| 3021 | 3021 | function critere_feuille_dist($idb, &$boucles, $crit) { |
| 3022 | - $not = $crit->not; |
|
| 3023 | - $crit->not = !$not; |
|
| 3024 | - critere_noeud_dist($idb, $boucles, $crit); |
|
| 3025 | - $crit->not = $not; |
|
| 3022 | + $not = $crit->not; |
|
| 3023 | + $crit->not = !$not; |
|
| 3024 | + critere_noeud_dist($idb, $boucles, $crit); |
|
| 3025 | + $crit->not = $not; |
|
| 3026 | 3026 | } |
@@ -13,15 +13,15 @@ discard block |
||
| 13 | 13 | \***************************************************************************/ |
| 14 | 14 | |
| 15 | 15 | if (!defined('_ECRIRE_INC_VERSION')) { |
| 16 | - return; |
|
| 16 | + return; |
|
| 17 | 17 | } |
| 18 | 18 | |
| 19 | 19 | function phraser_vieux_modele($p) { |
| 20 | - normaliser_args_inclumodel($p); |
|
| 20 | + normaliser_args_inclumodel($p); |
|
| 21 | 21 | } |
| 22 | 22 | |
| 23 | 23 | function phraser_vieux_inclu($p) { |
| 24 | - normaliser_args_inclumodel($p); |
|
| 24 | + normaliser_args_inclumodel($p); |
|
| 25 | 25 | } |
| 26 | 26 | |
| 27 | 27 | /** |
@@ -32,24 +32,24 @@ discard block |
||
| 32 | 32 | * @return void |
| 33 | 33 | */ |
| 34 | 34 | function normaliser_args_inclumodel($p) { |
| 35 | - $params = $p->param; |
|
| 36 | - if (!$params) { |
|
| 37 | - return; |
|
| 38 | - } |
|
| 39 | - $args = $params[0]; |
|
| 40 | - if ($args[0]) { |
|
| 41 | - return; |
|
| 42 | - } // filtre immediat |
|
| 43 | - array_shift($p->param); |
|
| 44 | - foreach ($p->param as $l) { |
|
| 45 | - if (!array_shift($l)) { |
|
| 46 | - $args = array_merge($args, $l); |
|
| 47 | - array_shift($p->param); |
|
| 48 | - } else { |
|
| 49 | - break; |
|
| 50 | - } // filtre |
|
| 51 | - } |
|
| 52 | - array_unshift($p->param, $args); |
|
| 35 | + $params = $p->param; |
|
| 36 | + if (!$params) { |
|
| 37 | + return; |
|
| 38 | + } |
|
| 39 | + $args = $params[0]; |
|
| 40 | + if ($args[0]) { |
|
| 41 | + return; |
|
| 42 | + } // filtre immediat |
|
| 43 | + array_shift($p->param); |
|
| 44 | + foreach ($p->param as $l) { |
|
| 45 | + if (!array_shift($l)) { |
|
| 46 | + $args = array_merge($args, $l); |
|
| 47 | + array_shift($p->param); |
|
| 48 | + } else { |
|
| 49 | + break; |
|
| 50 | + } // filtre |
|
| 51 | + } |
|
| 52 | + array_unshift($p->param, $args); |
|
| 53 | 53 | } |
| 54 | 54 | |
| 55 | 55 | |
@@ -59,35 +59,35 @@ discard block |
||
| 59 | 59 | * @return void |
| 60 | 60 | */ |
| 61 | 61 | function normaliser_inclure($champ) { |
| 62 | - normaliser_args_inclumodel($champ); |
|
| 63 | - $l = $champ->param[0]; |
|
| 64 | - if (is_array($l) && !$l[0]) { |
|
| 65 | - foreach ($l as $k => $p) { |
|
| 66 | - if ($p && $p[0]->type == 'texte' && !strpos((string) $p[0]->texte, '=')) { |
|
| 67 | - $p[0]->texte = trim((string) $p[0]->texte); |
|
| 68 | - } |
|
| 69 | - } |
|
| 70 | - foreach ($l as $k => $p) { |
|
| 71 | - if ( |
|
| 72 | - !$p || $p[0]->type != 'texte' |
|
| 73 | - || !preg_match('/^fond\s*=\s*(.*)$/', (string) $p[0]->texte, $r) |
|
| 74 | - ) { |
|
| 75 | - continue; |
|
| 76 | - } |
|
| 62 | + normaliser_args_inclumodel($champ); |
|
| 63 | + $l = $champ->param[0]; |
|
| 64 | + if (is_array($l) && !$l[0]) { |
|
| 65 | + foreach ($l as $k => $p) { |
|
| 66 | + if ($p && $p[0]->type == 'texte' && !strpos((string) $p[0]->texte, '=')) { |
|
| 67 | + $p[0]->texte = trim((string) $p[0]->texte); |
|
| 68 | + } |
|
| 69 | + } |
|
| 70 | + foreach ($l as $k => $p) { |
|
| 71 | + if ( |
|
| 72 | + !$p || $p[0]->type != 'texte' |
|
| 73 | + || !preg_match('/^fond\s*=\s*(.*)$/', (string) $p[0]->texte, $r) |
|
| 74 | + ) { |
|
| 75 | + continue; |
|
| 76 | + } |
|
| 77 | 77 | |
| 78 | - if ($r[1]) { |
|
| 79 | - $p[0]->texte = $r[1]; |
|
| 80 | - } else { |
|
| 81 | - unset($p[0]); |
|
| 82 | - } |
|
| 83 | - $champ->texte = $p; |
|
| 84 | - unset($champ->param[0][$k]); |
|
| 85 | - if ((is_countable($champ->param[0]) ? count($champ->param[0]) : 0) == 1) { |
|
| 86 | - array_shift($champ->param); |
|
| 87 | - } |
|
| 78 | + if ($r[1]) { |
|
| 79 | + $p[0]->texte = $r[1]; |
|
| 80 | + } else { |
|
| 81 | + unset($p[0]); |
|
| 82 | + } |
|
| 83 | + $champ->texte = $p; |
|
| 84 | + unset($champ->param[0][$k]); |
|
| 85 | + if ((is_countable($champ->param[0]) ? count($champ->param[0]) : 0) == 1) { |
|
| 86 | + array_shift($champ->param); |
|
| 87 | + } |
|
| 88 | 88 | |
| 89 | - return; |
|
| 90 | - } |
|
| 91 | - } |
|
| 92 | - spip_log('inclure sans fond ni fichier', 'vieilles_def'); |
|
| 89 | + return; |
|
| 90 | + } |
|
| 91 | + } |
|
| 92 | + spip_log('inclure sans fond ni fichier', 'vieilles_def'); |
|
| 93 | 93 | } |
@@ -12,129 +12,129 @@ discard block |
||
| 12 | 12 | \***************************************************************************/ |
| 13 | 13 | |
| 14 | 14 | if (!defined('_ECRIRE_INC_VERSION')) { |
| 15 | - return; |
|
| 15 | + return; |
|
| 16 | 16 | } |
| 17 | 17 | |
| 18 | 18 | // Decompilation de l'arbre de syntaxe abstraite d'un squelette SPIP |
| 19 | 19 | |
| 20 | 20 | function decompiler_boucle($struct, $fmt = '', $prof = 0) { |
| 21 | - $nom = $struct->id_boucle; |
|
| 22 | - $preaff = decompiler_($struct->preaff, $fmt, $prof); |
|
| 23 | - $avant = decompiler_($struct->avant, $fmt, $prof); |
|
| 24 | - $apres = decompiler_($struct->apres, $fmt, $prof); |
|
| 25 | - $altern = decompiler_($struct->altern, $fmt, $prof); |
|
| 26 | - $milieu = decompiler_($struct->milieu, $fmt, $prof); |
|
| 27 | - $postaff = decompiler_($struct->postaff, $fmt, $prof); |
|
| 28 | - |
|
| 29 | - $type = $struct->sql_serveur ? "$struct->sql_serveur:" : ''; |
|
| 30 | - $type .= ($struct->type_requete ?: $struct->type_table_optionnelle); |
|
| 31 | - |
|
| 32 | - if ($struct->jointures_explicites) { |
|
| 33 | - $type .= ' ' . $struct->jointures_explicites; |
|
| 34 | - } |
|
| 35 | - if ($struct->table_optionnelle) { |
|
| 36 | - $type .= '?'; |
|
| 37 | - } |
|
| 38 | - // Revoir le cas de la boucle recursive |
|
| 39 | - |
|
| 40 | - $crit = $struct->param; |
|
| 41 | - if ($crit && !is_array($crit[0])) { |
|
| 42 | - $type = strtolower($type) . array_shift($crit); |
|
| 43 | - } |
|
| 44 | - $crit = decompiler_criteres($struct, $fmt, $prof); |
|
| 45 | - |
|
| 46 | - $f = 'format_boucle_' . $fmt; |
|
| 47 | - |
|
| 48 | - return $f($preaff, $avant, $nom, $type, $crit, $milieu, $apres, $altern, $postaff, $prof); |
|
| 21 | + $nom = $struct->id_boucle; |
|
| 22 | + $preaff = decompiler_($struct->preaff, $fmt, $prof); |
|
| 23 | + $avant = decompiler_($struct->avant, $fmt, $prof); |
|
| 24 | + $apres = decompiler_($struct->apres, $fmt, $prof); |
|
| 25 | + $altern = decompiler_($struct->altern, $fmt, $prof); |
|
| 26 | + $milieu = decompiler_($struct->milieu, $fmt, $prof); |
|
| 27 | + $postaff = decompiler_($struct->postaff, $fmt, $prof); |
|
| 28 | + |
|
| 29 | + $type = $struct->sql_serveur ? "$struct->sql_serveur:" : ''; |
|
| 30 | + $type .= ($struct->type_requete ?: $struct->type_table_optionnelle); |
|
| 31 | + |
|
| 32 | + if ($struct->jointures_explicites) { |
|
| 33 | + $type .= ' ' . $struct->jointures_explicites; |
|
| 34 | + } |
|
| 35 | + if ($struct->table_optionnelle) { |
|
| 36 | + $type .= '?'; |
|
| 37 | + } |
|
| 38 | + // Revoir le cas de la boucle recursive |
|
| 39 | + |
|
| 40 | + $crit = $struct->param; |
|
| 41 | + if ($crit && !is_array($crit[0])) { |
|
| 42 | + $type = strtolower($type) . array_shift($crit); |
|
| 43 | + } |
|
| 44 | + $crit = decompiler_criteres($struct, $fmt, $prof); |
|
| 45 | + |
|
| 46 | + $f = 'format_boucle_' . $fmt; |
|
| 47 | + |
|
| 48 | + return $f($preaff, $avant, $nom, $type, $crit, $milieu, $apres, $altern, $postaff, $prof); |
|
| 49 | 49 | } |
| 50 | 50 | |
| 51 | 51 | function decompiler_include($struct, $fmt = '', $prof = 0) { |
| 52 | - $res = []; |
|
| 53 | - foreach ($struct->param ?: [] as $couple) { |
|
| 54 | - array_shift($couple); |
|
| 55 | - foreach ($couple as $v) { |
|
| 56 | - $res[] = decompiler_($v, $fmt, $prof); |
|
| 57 | - } |
|
| 58 | - } |
|
| 59 | - $file = is_string($struct->texte) ? $struct->texte : |
|
| 60 | - decompiler_($struct->texte, $fmt, $prof); |
|
| 61 | - $f = 'format_inclure_' . $fmt; |
|
| 62 | - |
|
| 63 | - return $f($file, $res, $prof); |
|
| 52 | + $res = []; |
|
| 53 | + foreach ($struct->param ?: [] as $couple) { |
|
| 54 | + array_shift($couple); |
|
| 55 | + foreach ($couple as $v) { |
|
| 56 | + $res[] = decompiler_($v, $fmt, $prof); |
|
| 57 | + } |
|
| 58 | + } |
|
| 59 | + $file = is_string($struct->texte) ? $struct->texte : |
|
| 60 | + decompiler_($struct->texte, $fmt, $prof); |
|
| 61 | + $f = 'format_inclure_' . $fmt; |
|
| 62 | + |
|
| 63 | + return $f($file, $res, $prof); |
|
| 64 | 64 | } |
| 65 | 65 | |
| 66 | 66 | function decompiler_texte($struct, $fmt = '', $prof = 0) { |
| 67 | - $f = 'format_texte_' . $fmt; |
|
| 67 | + $f = 'format_texte_' . $fmt; |
|
| 68 | 68 | |
| 69 | - return strlen((string) $struct->texte) ? $f($struct->texte, $prof) : ''; |
|
| 69 | + return strlen((string) $struct->texte) ? $f($struct->texte, $prof) : ''; |
|
| 70 | 70 | } |
| 71 | 71 | |
| 72 | 72 | function decompiler_polyglotte($struct, $fmt = '', $prof = 0) { |
| 73 | - $f = 'format_polyglotte_' . $fmt; |
|
| 73 | + $f = 'format_polyglotte_' . $fmt; |
|
| 74 | 74 | |
| 75 | - return $f($struct->traductions, $prof); |
|
| 75 | + return $f($struct->traductions, $prof); |
|
| 76 | 76 | } |
| 77 | 77 | |
| 78 | 78 | function decompiler_idiome($struct, $fmt = '', $prof = 0) { |
| 79 | - $args = []; |
|
| 80 | - foreach ($struct->arg as $k => $v) { |
|
| 81 | - $args[$k] = public_decompiler($v, $fmt, $prof); |
|
| 82 | - } |
|
| 79 | + $args = []; |
|
| 80 | + foreach ($struct->arg as $k => $v) { |
|
| 81 | + $args[$k] = public_decompiler($v, $fmt, $prof); |
|
| 82 | + } |
|
| 83 | 83 | |
| 84 | - $filtres = decompiler_liste($struct->param, $fmt, $prof); |
|
| 84 | + $filtres = decompiler_liste($struct->param, $fmt, $prof); |
|
| 85 | 85 | |
| 86 | - $f = 'format_idiome_' . $fmt; |
|
| 86 | + $f = 'format_idiome_' . $fmt; |
|
| 87 | 87 | |
| 88 | - return $f($struct->nom_champ, $struct->module, $args, $filtres, $prof); |
|
| 88 | + return $f($struct->nom_champ, $struct->module, $args, $filtres, $prof); |
|
| 89 | 89 | } |
| 90 | 90 | |
| 91 | 91 | function decompiler_champ($struct, $fmt = '', $prof = 0) { |
| 92 | - $avant = decompiler_($struct->avant, $fmt, $prof); |
|
| 93 | - $apres = decompiler_($struct->apres, $fmt, $prof); |
|
| 94 | - $args = $filtres = ''; |
|
| 95 | - if ($p = $struct->param) { |
|
| 96 | - if ($p[0][0] === '') { |
|
| 97 | - $args = decompiler_liste([array_shift($p)], $fmt, $prof); |
|
| 98 | - } |
|
| 99 | - $filtres = decompiler_liste($p, $fmt, $prof); |
|
| 100 | - } |
|
| 101 | - $f = 'format_champ_' . $fmt; |
|
| 102 | - |
|
| 103 | - return $f($struct->nom_champ, $struct->nom_boucle, $struct->etoile, $avant, $apres, $args, $filtres, $prof); |
|
| 92 | + $avant = decompiler_($struct->avant, $fmt, $prof); |
|
| 93 | + $apres = decompiler_($struct->apres, $fmt, $prof); |
|
| 94 | + $args = $filtres = ''; |
|
| 95 | + if ($p = $struct->param) { |
|
| 96 | + if ($p[0][0] === '') { |
|
| 97 | + $args = decompiler_liste([array_shift($p)], $fmt, $prof); |
|
| 98 | + } |
|
| 99 | + $filtres = decompiler_liste($p, $fmt, $prof); |
|
| 100 | + } |
|
| 101 | + $f = 'format_champ_' . $fmt; |
|
| 102 | + |
|
| 103 | + return $f($struct->nom_champ, $struct->nom_boucle, $struct->etoile, $avant, $apres, $args, $filtres, $prof); |
|
| 104 | 104 | } |
| 105 | 105 | |
| 106 | 106 | function decompiler_liste($sources, $fmt = '', $prof = 0) { |
| 107 | - if (!is_array($sources)) { |
|
| 108 | - return ''; |
|
| 109 | - } |
|
| 110 | - $f = 'format_liste_' . $fmt; |
|
| 111 | - $res = ''; |
|
| 112 | - foreach ($sources as $arg) { |
|
| 113 | - if (!is_array($arg)) { |
|
| 114 | - continue; // ne devrait pas arriver. |
|
| 115 | - } else { |
|
| 116 | - $r = array_shift($arg); |
|
| 117 | - } |
|
| 118 | - $args = []; |
|
| 119 | - foreach ($arg as $v) { |
|
| 120 | - // cas des arguments entoures de ' ou " |
|
| 121 | - if ( |
|
| 122 | - (is_countable($v) ? count($v) : 0) == 1 |
|
| 123 | - && $v[0]->type == 'texte' |
|
| 124 | - && strlen((string) $v[0]->apres) == 1 |
|
| 125 | - && $v[0]->apres == $v[0]->avant |
|
| 126 | - ) { |
|
| 127 | - $args[] = $v[0]->avant . $v[0]->texte . $v[0]->apres; |
|
| 128 | - } else { |
|
| 129 | - $args[] = decompiler_($v, $fmt, 0 - $prof); |
|
| 130 | - } |
|
| 131 | - } |
|
| 132 | - if ($r !== '' || $args) { |
|
| 133 | - $res .= $f($r, $args, $prof); |
|
| 134 | - } |
|
| 135 | - } |
|
| 136 | - |
|
| 137 | - return $res; |
|
| 107 | + if (!is_array($sources)) { |
|
| 108 | + return ''; |
|
| 109 | + } |
|
| 110 | + $f = 'format_liste_' . $fmt; |
|
| 111 | + $res = ''; |
|
| 112 | + foreach ($sources as $arg) { |
|
| 113 | + if (!is_array($arg)) { |
|
| 114 | + continue; // ne devrait pas arriver. |
|
| 115 | + } else { |
|
| 116 | + $r = array_shift($arg); |
|
| 117 | + } |
|
| 118 | + $args = []; |
|
| 119 | + foreach ($arg as $v) { |
|
| 120 | + // cas des arguments entoures de ' ou " |
|
| 121 | + if ( |
|
| 122 | + (is_countable($v) ? count($v) : 0) == 1 |
|
| 123 | + && $v[0]->type == 'texte' |
|
| 124 | + && strlen((string) $v[0]->apres) == 1 |
|
| 125 | + && $v[0]->apres == $v[0]->avant |
|
| 126 | + ) { |
|
| 127 | + $args[] = $v[0]->avant . $v[0]->texte . $v[0]->apres; |
|
| 128 | + } else { |
|
| 129 | + $args[] = decompiler_($v, $fmt, 0 - $prof); |
|
| 130 | + } |
|
| 131 | + } |
|
| 132 | + if ($r !== '' || $args) { |
|
| 133 | + $res .= $f($r, $args, $prof); |
|
| 134 | + } |
|
| 135 | + } |
|
| 136 | + |
|
| 137 | + return $res; |
|
| 138 | 138 | } |
| 139 | 139 | |
| 140 | 140 | // Decompilation des criteres: on triche et on deroge: |
@@ -142,93 +142,93 @@ discard block |
||
| 142 | 142 | // - le champ apres signale le critere {"separateur"} ou {'separateur'} |
| 143 | 143 | // - les champs sont implicitement etendus (crochets implicites mais interdits) |
| 144 | 144 | function decompiler_criteres($boucle, $fmt = '', $prof = 0) { |
| 145 | - $sources = $boucle->param; |
|
| 146 | - if (!is_array($sources)) { |
|
| 147 | - return ''; |
|
| 148 | - } |
|
| 149 | - $res = ''; |
|
| 150 | - $f = 'format_critere_' . $fmt; |
|
| 151 | - foreach ($sources as $crit) { |
|
| 152 | - if (!is_array($crit)) { |
|
| 153 | - continue; |
|
| 154 | - } // boucle recursive |
|
| 155 | - array_shift($crit); |
|
| 156 | - $args = []; |
|
| 157 | - foreach ($crit as $i => $v) { |
|
| 158 | - if ( |
|
| 159 | - (is_countable($v) ? count($v) : 0) == 1 |
|
| 160 | - && $v[0]->type == 'texte' |
|
| 161 | - && $v[0]->apres |
|
| 162 | - ) { |
|
| 163 | - $args[] = [['texte', ($v[0]->apres . $v[0]->texte . $v[0]->apres)]]; |
|
| 164 | - } else { |
|
| 165 | - $res2 = []; |
|
| 166 | - foreach ($v as $k => $p) { |
|
| 167 | - if ( |
|
| 168 | - isset($p->type) |
|
| 169 | - && function_exists($d = 'decompiler_' . $p->type) |
|
| 170 | - ) { |
|
| 171 | - $r = $d($p, $fmt, (0 - $prof)); |
|
| 172 | - $res2[] = [$p->type, $r]; |
|
| 173 | - } else { |
|
| 174 | - spip_log("critere $i / $k mal forme"); |
|
| 175 | - } |
|
| 176 | - } |
|
| 177 | - $args[] = $res2; |
|
| 178 | - } |
|
| 179 | - } |
|
| 180 | - $res .= $f($args); |
|
| 181 | - } |
|
| 182 | - |
|
| 183 | - return $res; |
|
| 145 | + $sources = $boucle->param; |
|
| 146 | + if (!is_array($sources)) { |
|
| 147 | + return ''; |
|
| 148 | + } |
|
| 149 | + $res = ''; |
|
| 150 | + $f = 'format_critere_' . $fmt; |
|
| 151 | + foreach ($sources as $crit) { |
|
| 152 | + if (!is_array($crit)) { |
|
| 153 | + continue; |
|
| 154 | + } // boucle recursive |
|
| 155 | + array_shift($crit); |
|
| 156 | + $args = []; |
|
| 157 | + foreach ($crit as $i => $v) { |
|
| 158 | + if ( |
|
| 159 | + (is_countable($v) ? count($v) : 0) == 1 |
|
| 160 | + && $v[0]->type == 'texte' |
|
| 161 | + && $v[0]->apres |
|
| 162 | + ) { |
|
| 163 | + $args[] = [['texte', ($v[0]->apres . $v[0]->texte . $v[0]->apres)]]; |
|
| 164 | + } else { |
|
| 165 | + $res2 = []; |
|
| 166 | + foreach ($v as $k => $p) { |
|
| 167 | + if ( |
|
| 168 | + isset($p->type) |
|
| 169 | + && function_exists($d = 'decompiler_' . $p->type) |
|
| 170 | + ) { |
|
| 171 | + $r = $d($p, $fmt, (0 - $prof)); |
|
| 172 | + $res2[] = [$p->type, $r]; |
|
| 173 | + } else { |
|
| 174 | + spip_log("critere $i / $k mal forme"); |
|
| 175 | + } |
|
| 176 | + } |
|
| 177 | + $args[] = $res2; |
|
| 178 | + } |
|
| 179 | + } |
|
| 180 | + $res .= $f($args); |
|
| 181 | + } |
|
| 182 | + |
|
| 183 | + return $res; |
|
| 184 | 184 | } |
| 185 | 185 | |
| 186 | 186 | |
| 187 | 187 | function decompiler_($liste, $fmt = '', $prof = 0) { |
| 188 | - if (!is_array($liste)) { |
|
| 189 | - return ''; |
|
| 190 | - } |
|
| 191 | - $prof2 = ($prof < 0) ? ($prof - 1) : ($prof + 1); |
|
| 192 | - $contenu = []; |
|
| 193 | - foreach ($liste as $k => $p) { |
|
| 194 | - if (!isset($p->type)) { |
|
| 195 | - continue; |
|
| 196 | - } #?????? |
|
| 197 | - $d = 'decompiler_' . $p->type; |
|
| 198 | - $next = $liste[$k + 1] ?? false; |
|
| 199 | - // Forcer le champ etendu si son source (pas les reecritures) |
|
| 200 | - // contenait des args et s'il est suivi d'espaces, |
|
| 201 | - // le champ simple les eliminant est un bug helas perenne. |
|
| 202 | - |
|
| 203 | - if ( |
|
| 204 | - $next |
|
| 205 | - && $next->type == 'texte' |
|
| 206 | - && $p->type == 'champ' |
|
| 207 | - && !$p->apres |
|
| 208 | - && !$p->avant |
|
| 209 | - && $p->fonctions |
|
| 210 | - ) { |
|
| 211 | - $n = strlen((string) $next->texte) - strlen(ltrim((string) $next->texte)); |
|
| 212 | - if ($n) { |
|
| 213 | - $champ = new Texte(); |
|
| 214 | - $champ->texte = substr((string) $next->texte, 0, $n); |
|
| 215 | - $champ->ligne = $p->ligne; |
|
| 216 | - $p->apres = [$champ]; |
|
| 217 | - $next->texte = substr((string) $next->texte, $n); |
|
| 218 | - } |
|
| 219 | - } |
|
| 220 | - $contenu[] = [$d($p, $fmt, $prof2), $p->type]; |
|
| 221 | - } |
|
| 222 | - $f = 'format_suite_' . $fmt; |
|
| 223 | - |
|
| 224 | - return $f($contenu); |
|
| 188 | + if (!is_array($liste)) { |
|
| 189 | + return ''; |
|
| 190 | + } |
|
| 191 | + $prof2 = ($prof < 0) ? ($prof - 1) : ($prof + 1); |
|
| 192 | + $contenu = []; |
|
| 193 | + foreach ($liste as $k => $p) { |
|
| 194 | + if (!isset($p->type)) { |
|
| 195 | + continue; |
|
| 196 | + } #?????? |
|
| 197 | + $d = 'decompiler_' . $p->type; |
|
| 198 | + $next = $liste[$k + 1] ?? false; |
|
| 199 | + // Forcer le champ etendu si son source (pas les reecritures) |
|
| 200 | + // contenait des args et s'il est suivi d'espaces, |
|
| 201 | + // le champ simple les eliminant est un bug helas perenne. |
|
| 202 | + |
|
| 203 | + if ( |
|
| 204 | + $next |
|
| 205 | + && $next->type == 'texte' |
|
| 206 | + && $p->type == 'champ' |
|
| 207 | + && !$p->apres |
|
| 208 | + && !$p->avant |
|
| 209 | + && $p->fonctions |
|
| 210 | + ) { |
|
| 211 | + $n = strlen((string) $next->texte) - strlen(ltrim((string) $next->texte)); |
|
| 212 | + if ($n) { |
|
| 213 | + $champ = new Texte(); |
|
| 214 | + $champ->texte = substr((string) $next->texte, 0, $n); |
|
| 215 | + $champ->ligne = $p->ligne; |
|
| 216 | + $p->apres = [$champ]; |
|
| 217 | + $next->texte = substr((string) $next->texte, $n); |
|
| 218 | + } |
|
| 219 | + } |
|
| 220 | + $contenu[] = [$d($p, $fmt, $prof2), $p->type]; |
|
| 221 | + } |
|
| 222 | + $f = 'format_suite_' . $fmt; |
|
| 223 | + |
|
| 224 | + return $f($contenu); |
|
| 225 | 225 | } |
| 226 | 226 | |
| 227 | 227 | function public_decompiler($liste, $fmt = '', $prof = 0, $quoi = '') { |
| 228 | - if (!include_spip('public/format_' . $fmt)) { |
|
| 229 | - return "'$fmt'?"; |
|
| 230 | - } |
|
| 231 | - $f = 'decompiler_' . $quoi; |
|
| 228 | + if (!include_spip('public/format_' . $fmt)) { |
|
| 229 | + return "'$fmt'?"; |
|
| 230 | + } |
|
| 231 | + $f = 'decompiler_' . $quoi; |
|
| 232 | 232 | |
| 233 | - return $f($liste, $fmt, $prof); |
|
| 233 | + return $f($liste, $fmt, $prof); |
|
| 234 | 234 | } |
@@ -10,7 +10,7 @@ discard block |
||
| 10 | 10 | \***************************************************************************/ |
| 11 | 11 | |
| 12 | 12 | if (!defined('_ECRIRE_INC_VERSION')) { |
| 13 | - return; |
|
| 13 | + return; |
|
| 14 | 14 | } |
| 15 | 15 | |
| 16 | 16 | include_fichiers_fonctions(); |
@@ -29,178 +29,178 @@ discard block |
||
| 29 | 29 | # En cas d'erreur process_ins est absent et texte est un tableau de 2 chaines |
| 30 | 30 | |
| 31 | 31 | function public_parametrer_dist($fond, $contexte = '', $cache = '', string $connect = '') { |
| 32 | - static $composer, $styliser, $notes = null; |
|
| 33 | - $courant = null; |
|
| 34 | - $page = tester_redirection($fond, $contexte, $connect); |
|
| 35 | - if ($page) { |
|
| 36 | - return $page; |
|
| 37 | - } |
|
| 38 | - |
|
| 39 | - if (isset($contexte['lang'])) { |
|
| 40 | - $lang = $contexte['lang']; |
|
| 41 | - } elseif (!isset($lang)) { |
|
| 42 | - $lang = $GLOBALS['meta']['langue_site']; |
|
| 43 | - } |
|
| 44 | - |
|
| 45 | - $select = ((!isset($GLOBALS['forcer_lang']) || !$GLOBALS['forcer_lang']) && $lang != $GLOBALS['spip_lang']); |
|
| 46 | - if ($select) { |
|
| 47 | - $select = lang_select($lang); |
|
| 48 | - } |
|
| 49 | - |
|
| 50 | - $debug = (defined('_VAR_MODE') && _VAR_MODE == 'debug'); |
|
| 51 | - |
|
| 52 | - if (!$styliser) { |
|
| 53 | - $styliser = charger_fonction('styliser', 'public'); |
|
| 54 | - } |
|
| 55 | - [$skel, $mime_type, $gram, $sourcefile] = |
|
| 56 | - $styliser($fond, $contexte, $GLOBALS['spip_lang'], $connect); |
|
| 57 | - |
|
| 58 | - if ($skel) { |
|
| 59 | - // sauver le nom de l'eventuel squelette en cours d'execution |
|
| 60 | - // (recursion possible a cause des modeles) |
|
| 61 | - if ($debug) { |
|
| 62 | - $courant = $GLOBALS['debug_objets']['courant'] ?? null; |
|
| 63 | - $GLOBALS['debug_objets']['contexte'][$sourcefile] = $contexte; |
|
| 64 | - } |
|
| 65 | - |
|
| 66 | - // charger le squelette en specifiant les langages cibles et source |
|
| 67 | - // au cas il faudrait le compiler (source posterieure au resultat) |
|
| 68 | - |
|
| 69 | - if (!$composer) { |
|
| 70 | - $composer = charger_fonction('composer', 'public'); |
|
| 71 | - } |
|
| 72 | - $fonc = $composer($skel, $mime_type, $gram, $sourcefile, $connect); |
|
| 73 | - } else { |
|
| 74 | - $fonc = ''; |
|
| 75 | - } |
|
| 76 | - |
|
| 77 | - if (!$fonc) { // squelette inconnu (==='') ou faux (===false) |
|
| 78 | - $page = $fonc; |
|
| 79 | - } else { |
|
| 80 | - // Preparer l'appel de la fonction principale du squelette |
|
| 81 | - |
|
| 82 | - spip_timer($a = 'calcul page ' . random_int(0, 1000)); |
|
| 83 | - |
|
| 84 | - // On cree un marqueur de notes unique lie a cette composition |
|
| 85 | - // et on enregistre l'etat courant des globales de notes... |
|
| 86 | - if (is_null($notes)) { |
|
| 87 | - $notes = charger_fonction('notes', 'inc', true); |
|
| 88 | - } |
|
| 89 | - if ($notes) { |
|
| 90 | - $notes('', 'empiler'); |
|
| 91 | - } |
|
| 92 | - |
|
| 93 | - // Rajouter d'office ces deux parametres |
|
| 94 | - // (mais vaudrait mieux que le compilateur sache le simuler |
|
| 95 | - // car ca interdit l'usage de criteres conditionnels dessus). |
|
| 96 | - if (!isset($contexte['date'])) { |
|
| 97 | - $contexte['date'] = date('Y-m-d H:i:s'); |
|
| 98 | - $contexte['date_default'] = true; |
|
| 99 | - } else { |
|
| 100 | - $contexte['date'] = normaliser_date($contexte['date'], true); |
|
| 101 | - } |
|
| 102 | - |
|
| 103 | - if (!isset($contexte['date_redac'])) { |
|
| 104 | - $contexte['date_redac'] = date('Y-m-d H:i:s'); |
|
| 105 | - $contexte['date_redac_default'] = true; |
|
| 106 | - } else { |
|
| 107 | - $contexte['date_redac'] = normaliser_date($contexte['date_redac'], true); |
|
| 108 | - } |
|
| 109 | - |
|
| 110 | - // Passer le nom du cache pour produire sa destruction automatique |
|
| 111 | - try { |
|
| 112 | - $page = $fonc(['cache' => $cache], [$contexte]); |
|
| 113 | - } catch (Throwable $e) { |
|
| 114 | - $msg = _T('zbug_erreur_execution_page') . " $sourcefile"; |
|
| 115 | - $full_msg = $msg . ' | File ' . $e->getFile() . ' Line ' . $e->getLine() . ' : ' . $e->getMessage(); |
|
| 116 | - $full_msg = str_replace(_ROOT_RACINE, '[…]/', $full_msg); |
|
| 117 | - $corps = "<pre>$msg</pre>"; |
|
| 118 | - $page = analyse_resultat_skel($fond, ['cache' => $cache], $corps, $sourcefile); |
|
| 119 | - erreur_squelette($full_msg); |
|
| 120 | - unset($msg, $full_msg, $corps); |
|
| 121 | - } |
|
| 122 | - |
|
| 123 | - // Restituer les globales de notes telles qu'elles etaient avant l'appel |
|
| 124 | - // Si l'inclus n'a pas affiche ses notes, tant pis (elles *doivent* |
|
| 125 | - // etre dans son resultat, autrement elles ne seraient pas prises en |
|
| 126 | - // compte a chaque calcul d'un texte contenant un modele, mais seulement |
|
| 127 | - // quand le modele serait calcule, et on aurait des resultats incoherents) |
|
| 128 | - if ($notes) { |
|
| 129 | - $notes('', 'depiler'); |
|
| 130 | - } |
|
| 131 | - |
|
| 132 | - // reinjecter en dynamique la pile des notes |
|
| 133 | - // si il y a des inclure dynamiques |
|
| 134 | - // si la pile n'est pas vide |
|
| 135 | - // la generalisation de cette injection permettrait de corriger le point juste au dessus |
|
| 136 | - // en faisant remonter les notes a l'incluant (A tester et valider avant application) |
|
| 137 | - if ($notes) { |
|
| 138 | - $page['notes'] = $notes('', 'sauver_etat'); |
|
| 139 | - } |
|
| 140 | - |
|
| 141 | - // spip_log: un joli contexte |
|
| 142 | - $infos = presenter_contexte(array_filter($contexte)); |
|
| 143 | - |
|
| 144 | - $profile = spip_timer($a); |
|
| 145 | - spip_log("calcul ($profile) [$skel] $infos" |
|
| 146 | - . ' (' . strlen((string) $page['texte']) . ' octets)'); |
|
| 147 | - |
|
| 148 | - if (defined('_CALCUL_PROFILER') && (int) $profile > _CALCUL_PROFILER) { |
|
| 149 | - spip_log("calcul ($profile) [$skel] $infos" |
|
| 150 | - . ' (' . strlen((string) $page['texte']) . ' octets) | ' . $_SERVER['REQUEST_URI'], 'profiler' . _LOG_AVERTISSEMENT); |
|
| 151 | - } |
|
| 152 | - |
|
| 153 | - if ($debug) { |
|
| 154 | - // si c'est ce que demande le debusqueur, lui passer la main |
|
| 155 | - $t = strlen((string) $page['texte']) ? $page['texte'] : ' '; |
|
| 156 | - $GLOBALS['debug_objets']['resultat'][$fonc . 'tout'] = $t; |
|
| 157 | - $GLOBALS['debug_objets']['courant'] = $courant; |
|
| 158 | - $GLOBALS['debug_objets']['profile'][$sourcefile] = $profile; |
|
| 159 | - if ( |
|
| 160 | - $GLOBALS['debug_objets']['sourcefile'] |
|
| 161 | - && _request('var_mode_objet') == $fonc |
|
| 162 | - && _request('var_mode_affiche') == 'resultat' |
|
| 163 | - ) { |
|
| 164 | - erreur_squelette(); |
|
| 165 | - } |
|
| 166 | - } |
|
| 167 | - // Si #CACHE{} n'etait pas la, le mettre a $delais |
|
| 168 | - if (!isset($page['entetes']['X-Spip-Cache'])) { |
|
| 169 | - // Dans l'espace prive ou dans un modeles/ on pose un cache 0 par defaut |
|
| 170 | - // si aucun #CACHE{} spécifié |
|
| 171 | - // le contexte implicite qui conditionne le cache assure qu'on retombe pas sur le meme |
|
| 172 | - // entre public et prive |
|
| 173 | - if (test_espace_prive() || str_starts_with((string) $fond, 'modeles/')) { |
|
| 174 | - $page['entetes']['X-Spip-Cache'] = 0; |
|
| 175 | - } else { |
|
| 176 | - $page['entetes']['X-Spip-Cache'] = $GLOBALS['delais'] ?? 36000; |
|
| 177 | - } |
|
| 178 | - } |
|
| 179 | - |
|
| 180 | - $page['contexte'] = $contexte; |
|
| 181 | - |
|
| 182 | - // faire remonter le fichier source |
|
| 183 | - static $js_inclus = false; |
|
| 184 | - if (defined('_VAR_INCLURE') && _VAR_INCLURE) { |
|
| 185 | - $page['sourcefile'] = $sourcefile; |
|
| 186 | - $page['texte'] = |
|
| 187 | - "<div class='inclure_blocs'><h6>" . $page['sourcefile'] . '</h6>' . $page['texte'] . '</div>' |
|
| 188 | - . ($js_inclus ? '' : "<script type='text/javascript'>jQuery(function(){jQuery('.inclure_blocs > h6:first-child').hover(function(){jQuery(this).parent().addClass('hover')},function(){jQuery(this).parent().removeClass('hover')})});</script>"); |
|
| 189 | - $js_inclus = true; |
|
| 190 | - } |
|
| 191 | - |
|
| 192 | - // Si un modele contenait #SESSION, on note l'info dans $page |
|
| 193 | - if (isset($GLOBALS['cache_utilise_session'])) { |
|
| 194 | - $page['invalideurs']['session'] = $GLOBALS['cache_utilise_session']; |
|
| 195 | - unset($GLOBALS['cache_utilise_session']); |
|
| 196 | - } |
|
| 197 | - } |
|
| 198 | - |
|
| 199 | - if ($select) { |
|
| 200 | - lang_select(); |
|
| 201 | - } |
|
| 202 | - |
|
| 203 | - return $page; |
|
| 32 | + static $composer, $styliser, $notes = null; |
|
| 33 | + $courant = null; |
|
| 34 | + $page = tester_redirection($fond, $contexte, $connect); |
|
| 35 | + if ($page) { |
|
| 36 | + return $page; |
|
| 37 | + } |
|
| 38 | + |
|
| 39 | + if (isset($contexte['lang'])) { |
|
| 40 | + $lang = $contexte['lang']; |
|
| 41 | + } elseif (!isset($lang)) { |
|
| 42 | + $lang = $GLOBALS['meta']['langue_site']; |
|
| 43 | + } |
|
| 44 | + |
|
| 45 | + $select = ((!isset($GLOBALS['forcer_lang']) || !$GLOBALS['forcer_lang']) && $lang != $GLOBALS['spip_lang']); |
|
| 46 | + if ($select) { |
|
| 47 | + $select = lang_select($lang); |
|
| 48 | + } |
|
| 49 | + |
|
| 50 | + $debug = (defined('_VAR_MODE') && _VAR_MODE == 'debug'); |
|
| 51 | + |
|
| 52 | + if (!$styliser) { |
|
| 53 | + $styliser = charger_fonction('styliser', 'public'); |
|
| 54 | + } |
|
| 55 | + [$skel, $mime_type, $gram, $sourcefile] = |
|
| 56 | + $styliser($fond, $contexte, $GLOBALS['spip_lang'], $connect); |
|
| 57 | + |
|
| 58 | + if ($skel) { |
|
| 59 | + // sauver le nom de l'eventuel squelette en cours d'execution |
|
| 60 | + // (recursion possible a cause des modeles) |
|
| 61 | + if ($debug) { |
|
| 62 | + $courant = $GLOBALS['debug_objets']['courant'] ?? null; |
|
| 63 | + $GLOBALS['debug_objets']['contexte'][$sourcefile] = $contexte; |
|
| 64 | + } |
|
| 65 | + |
|
| 66 | + // charger le squelette en specifiant les langages cibles et source |
|
| 67 | + // au cas il faudrait le compiler (source posterieure au resultat) |
|
| 68 | + |
|
| 69 | + if (!$composer) { |
|
| 70 | + $composer = charger_fonction('composer', 'public'); |
|
| 71 | + } |
|
| 72 | + $fonc = $composer($skel, $mime_type, $gram, $sourcefile, $connect); |
|
| 73 | + } else { |
|
| 74 | + $fonc = ''; |
|
| 75 | + } |
|
| 76 | + |
|
| 77 | + if (!$fonc) { // squelette inconnu (==='') ou faux (===false) |
|
| 78 | + $page = $fonc; |
|
| 79 | + } else { |
|
| 80 | + // Preparer l'appel de la fonction principale du squelette |
|
| 81 | + |
|
| 82 | + spip_timer($a = 'calcul page ' . random_int(0, 1000)); |
|
| 83 | + |
|
| 84 | + // On cree un marqueur de notes unique lie a cette composition |
|
| 85 | + // et on enregistre l'etat courant des globales de notes... |
|
| 86 | + if (is_null($notes)) { |
|
| 87 | + $notes = charger_fonction('notes', 'inc', true); |
|
| 88 | + } |
|
| 89 | + if ($notes) { |
|
| 90 | + $notes('', 'empiler'); |
|
| 91 | + } |
|
| 92 | + |
|
| 93 | + // Rajouter d'office ces deux parametres |
|
| 94 | + // (mais vaudrait mieux que le compilateur sache le simuler |
|
| 95 | + // car ca interdit l'usage de criteres conditionnels dessus). |
|
| 96 | + if (!isset($contexte['date'])) { |
|
| 97 | + $contexte['date'] = date('Y-m-d H:i:s'); |
|
| 98 | + $contexte['date_default'] = true; |
|
| 99 | + } else { |
|
| 100 | + $contexte['date'] = normaliser_date($contexte['date'], true); |
|
| 101 | + } |
|
| 102 | + |
|
| 103 | + if (!isset($contexte['date_redac'])) { |
|
| 104 | + $contexte['date_redac'] = date('Y-m-d H:i:s'); |
|
| 105 | + $contexte['date_redac_default'] = true; |
|
| 106 | + } else { |
|
| 107 | + $contexte['date_redac'] = normaliser_date($contexte['date_redac'], true); |
|
| 108 | + } |
|
| 109 | + |
|
| 110 | + // Passer le nom du cache pour produire sa destruction automatique |
|
| 111 | + try { |
|
| 112 | + $page = $fonc(['cache' => $cache], [$contexte]); |
|
| 113 | + } catch (Throwable $e) { |
|
| 114 | + $msg = _T('zbug_erreur_execution_page') . " $sourcefile"; |
|
| 115 | + $full_msg = $msg . ' | File ' . $e->getFile() . ' Line ' . $e->getLine() . ' : ' . $e->getMessage(); |
|
| 116 | + $full_msg = str_replace(_ROOT_RACINE, '[…]/', $full_msg); |
|
| 117 | + $corps = "<pre>$msg</pre>"; |
|
| 118 | + $page = analyse_resultat_skel($fond, ['cache' => $cache], $corps, $sourcefile); |
|
| 119 | + erreur_squelette($full_msg); |
|
| 120 | + unset($msg, $full_msg, $corps); |
|
| 121 | + } |
|
| 122 | + |
|
| 123 | + // Restituer les globales de notes telles qu'elles etaient avant l'appel |
|
| 124 | + // Si l'inclus n'a pas affiche ses notes, tant pis (elles *doivent* |
|
| 125 | + // etre dans son resultat, autrement elles ne seraient pas prises en |
|
| 126 | + // compte a chaque calcul d'un texte contenant un modele, mais seulement |
|
| 127 | + // quand le modele serait calcule, et on aurait des resultats incoherents) |
|
| 128 | + if ($notes) { |
|
| 129 | + $notes('', 'depiler'); |
|
| 130 | + } |
|
| 131 | + |
|
| 132 | + // reinjecter en dynamique la pile des notes |
|
| 133 | + // si il y a des inclure dynamiques |
|
| 134 | + // si la pile n'est pas vide |
|
| 135 | + // la generalisation de cette injection permettrait de corriger le point juste au dessus |
|
| 136 | + // en faisant remonter les notes a l'incluant (A tester et valider avant application) |
|
| 137 | + if ($notes) { |
|
| 138 | + $page['notes'] = $notes('', 'sauver_etat'); |
|
| 139 | + } |
|
| 140 | + |
|
| 141 | + // spip_log: un joli contexte |
|
| 142 | + $infos = presenter_contexte(array_filter($contexte)); |
|
| 143 | + |
|
| 144 | + $profile = spip_timer($a); |
|
| 145 | + spip_log("calcul ($profile) [$skel] $infos" |
|
| 146 | + . ' (' . strlen((string) $page['texte']) . ' octets)'); |
|
| 147 | + |
|
| 148 | + if (defined('_CALCUL_PROFILER') && (int) $profile > _CALCUL_PROFILER) { |
|
| 149 | + spip_log("calcul ($profile) [$skel] $infos" |
|
| 150 | + . ' (' . strlen((string) $page['texte']) . ' octets) | ' . $_SERVER['REQUEST_URI'], 'profiler' . _LOG_AVERTISSEMENT); |
|
| 151 | + } |
|
| 152 | + |
|
| 153 | + if ($debug) { |
|
| 154 | + // si c'est ce que demande le debusqueur, lui passer la main |
|
| 155 | + $t = strlen((string) $page['texte']) ? $page['texte'] : ' '; |
|
| 156 | + $GLOBALS['debug_objets']['resultat'][$fonc . 'tout'] = $t; |
|
| 157 | + $GLOBALS['debug_objets']['courant'] = $courant; |
|
| 158 | + $GLOBALS['debug_objets']['profile'][$sourcefile] = $profile; |
|
| 159 | + if ( |
|
| 160 | + $GLOBALS['debug_objets']['sourcefile'] |
|
| 161 | + && _request('var_mode_objet') == $fonc |
|
| 162 | + && _request('var_mode_affiche') == 'resultat' |
|
| 163 | + ) { |
|
| 164 | + erreur_squelette(); |
|
| 165 | + } |
|
| 166 | + } |
|
| 167 | + // Si #CACHE{} n'etait pas la, le mettre a $delais |
|
| 168 | + if (!isset($page['entetes']['X-Spip-Cache'])) { |
|
| 169 | + // Dans l'espace prive ou dans un modeles/ on pose un cache 0 par defaut |
|
| 170 | + // si aucun #CACHE{} spécifié |
|
| 171 | + // le contexte implicite qui conditionne le cache assure qu'on retombe pas sur le meme |
|
| 172 | + // entre public et prive |
|
| 173 | + if (test_espace_prive() || str_starts_with((string) $fond, 'modeles/')) { |
|
| 174 | + $page['entetes']['X-Spip-Cache'] = 0; |
|
| 175 | + } else { |
|
| 176 | + $page['entetes']['X-Spip-Cache'] = $GLOBALS['delais'] ?? 36000; |
|
| 177 | + } |
|
| 178 | + } |
|
| 179 | + |
|
| 180 | + $page['contexte'] = $contexte; |
|
| 181 | + |
|
| 182 | + // faire remonter le fichier source |
|
| 183 | + static $js_inclus = false; |
|
| 184 | + if (defined('_VAR_INCLURE') && _VAR_INCLURE) { |
|
| 185 | + $page['sourcefile'] = $sourcefile; |
|
| 186 | + $page['texte'] = |
|
| 187 | + "<div class='inclure_blocs'><h6>" . $page['sourcefile'] . '</h6>' . $page['texte'] . '</div>' |
|
| 188 | + . ($js_inclus ? '' : "<script type='text/javascript'>jQuery(function(){jQuery('.inclure_blocs > h6:first-child').hover(function(){jQuery(this).parent().addClass('hover')},function(){jQuery(this).parent().removeClass('hover')})});</script>"); |
|
| 189 | + $js_inclus = true; |
|
| 190 | + } |
|
| 191 | + |
|
| 192 | + // Si un modele contenait #SESSION, on note l'info dans $page |
|
| 193 | + if (isset($GLOBALS['cache_utilise_session'])) { |
|
| 194 | + $page['invalideurs']['session'] = $GLOBALS['cache_utilise_session']; |
|
| 195 | + unset($GLOBALS['cache_utilise_session']); |
|
| 196 | + } |
|
| 197 | + } |
|
| 198 | + |
|
| 199 | + if ($select) { |
|
| 200 | + lang_select(); |
|
| 201 | + } |
|
| 202 | + |
|
| 203 | + return $page; |
|
| 204 | 204 | } |
| 205 | 205 | |
| 206 | 206 | /** |
@@ -209,37 +209,37 @@ discard block |
||
| 209 | 209 | * @return string |
| 210 | 210 | */ |
| 211 | 211 | function presenter_contexte($contexte, $profondeur_max = 1, $max_lines = 0) { |
| 212 | - $infos = []; |
|
| 213 | - $line = 0; |
|
| 214 | - foreach ($contexte as $var => $val) { |
|
| 215 | - $line++; |
|
| 216 | - if ($max_lines && $max_lines < $line) { |
|
| 217 | - $infos[] = '…'; |
|
| 218 | - break; |
|
| 219 | - } |
|
| 220 | - if ($val === null) { |
|
| 221 | - $val = ''; |
|
| 222 | - } elseif (is_array($val)) { |
|
| 223 | - if ($profondeur_max > 0) { |
|
| 224 | - $val = 'array:' . count($val) . '(' . presenter_contexte($val, $profondeur_max - 1, 3) . ')'; |
|
| 225 | - } else { |
|
| 226 | - $val = 'array:' . count($val); |
|
| 227 | - } |
|
| 228 | - } elseif (is_object($val)) { |
|
| 229 | - $val = $val::class; |
|
| 230 | - } elseif (strlen("$val") > 30) { |
|
| 231 | - $val = substr("$val", 0, 29) . '…'; |
|
| 232 | - if (strstr($val, ' ')) { |
|
| 233 | - $val = "'$val'"; |
|
| 234 | - } |
|
| 235 | - } elseif (strstr((string) $val, ' ')) { |
|
| 236 | - $val = "'$val'"; |
|
| 237 | - } elseif (!strlen((string) $val)) { |
|
| 238 | - $val = "''"; |
|
| 239 | - } |
|
| 240 | - $infos[] = $var . '=' . $val; |
|
| 241 | - } |
|
| 242 | - return implode(', ', $infos); |
|
| 212 | + $infos = []; |
|
| 213 | + $line = 0; |
|
| 214 | + foreach ($contexte as $var => $val) { |
|
| 215 | + $line++; |
|
| 216 | + if ($max_lines && $max_lines < $line) { |
|
| 217 | + $infos[] = '…'; |
|
| 218 | + break; |
|
| 219 | + } |
|
| 220 | + if ($val === null) { |
|
| 221 | + $val = ''; |
|
| 222 | + } elseif (is_array($val)) { |
|
| 223 | + if ($profondeur_max > 0) { |
|
| 224 | + $val = 'array:' . count($val) . '(' . presenter_contexte($val, $profondeur_max - 1, 3) . ')'; |
|
| 225 | + } else { |
|
| 226 | + $val = 'array:' . count($val); |
|
| 227 | + } |
|
| 228 | + } elseif (is_object($val)) { |
|
| 229 | + $val = $val::class; |
|
| 230 | + } elseif (strlen("$val") > 30) { |
|
| 231 | + $val = substr("$val", 0, 29) . '…'; |
|
| 232 | + if (strstr($val, ' ')) { |
|
| 233 | + $val = "'$val'"; |
|
| 234 | + } |
|
| 235 | + } elseif (strstr((string) $val, ' ')) { |
|
| 236 | + $val = "'$val'"; |
|
| 237 | + } elseif (!strlen((string) $val)) { |
|
| 238 | + $val = "''"; |
|
| 239 | + } |
|
| 240 | + $infos[] = $var . '=' . $val; |
|
| 241 | + } |
|
| 242 | + return implode(', ', $infos); |
|
| 243 | 243 | } |
| 244 | 244 | |
| 245 | 245 | |
@@ -256,11 +256,11 @@ discard block |
||
| 256 | 256 | * @return array|bool |
| 257 | 257 | */ |
| 258 | 258 | function tester_redirection($fond, $contexte, $connect) { |
| 259 | - static $tester_redirection = null; |
|
| 260 | - if (is_null($tester_redirection)) { |
|
| 261 | - $tester_redirection = charger_fonction('tester_redirection', 'public'); |
|
| 262 | - } |
|
| 263 | - return $tester_redirection($fond, $contexte, $connect); |
|
| 259 | + static $tester_redirection = null; |
|
| 260 | + if (is_null($tester_redirection)) { |
|
| 261 | + $tester_redirection = charger_fonction('tester_redirection', 'public'); |
|
| 262 | + } |
|
| 263 | + return $tester_redirection($fond, $contexte, $connect); |
|
| 264 | 264 | } |
| 265 | 265 | |
| 266 | 266 | |
@@ -276,42 +276,42 @@ discard block |
||
| 276 | 276 | * @return array|bool |
| 277 | 277 | */ |
| 278 | 278 | function public_tester_redirection_dist($fond, $contexte, $connect) { |
| 279 | - if ( |
|
| 280 | - $fond == 'article' |
|
| 281 | - && !empty($contexte['id_article']) |
|
| 282 | - && ($id_article = (int) $contexte['id_article']) |
|
| 283 | - ) { |
|
| 284 | - include_spip('public/quete'); // pour quete_virtuel et ses dependances |
|
| 285 | - $m = quete_virtuel($id_article, $connect) ?? ''; |
|
| 286 | - if (strlen($m)) { |
|
| 287 | - include_spip('inc/texte'); |
|
| 288 | - // les navigateurs pataugent si l'URL est vide |
|
| 289 | - if ($url = virtuel_redirige($m, true)) { |
|
| 290 | - // passer en url absolue car cette redirection pourra |
|
| 291 | - // etre utilisee dans un contexte d'url qui change |
|
| 292 | - // y compris url arbo |
|
| 293 | - $status = 302; |
|
| 294 | - if (defined('_STATUS_REDIRECTION_VIRTUEL')) { |
|
| 295 | - $status = _STATUS_REDIRECTION_VIRTUEL; |
|
| 296 | - } |
|
| 297 | - if (!preg_match(',^\w+:,', (string) $url)) { |
|
| 298 | - include_spip('inc/filtres_mini'); |
|
| 299 | - $url = url_absolue($url); |
|
| 300 | - } |
|
| 301 | - $url = str_replace('&', '&', (string) $url); |
|
| 302 | - |
|
| 303 | - return [ |
|
| 304 | - 'texte' => '<' |
|
| 305 | - . "?php include_spip('inc/headers');redirige_par_entete('" |
|
| 306 | - . texte_script($url) |
|
| 307 | - . "','',$status);" |
|
| 308 | - . '?' . '>', |
|
| 309 | - 'process_ins' => 'php', |
|
| 310 | - 'status' => $status |
|
| 311 | - ]; |
|
| 312 | - } |
|
| 313 | - } |
|
| 314 | - } |
|
| 315 | - |
|
| 316 | - return false; |
|
| 279 | + if ( |
|
| 280 | + $fond == 'article' |
|
| 281 | + && !empty($contexte['id_article']) |
|
| 282 | + && ($id_article = (int) $contexte['id_article']) |
|
| 283 | + ) { |
|
| 284 | + include_spip('public/quete'); // pour quete_virtuel et ses dependances |
|
| 285 | + $m = quete_virtuel($id_article, $connect) ?? ''; |
|
| 286 | + if (strlen($m)) { |
|
| 287 | + include_spip('inc/texte'); |
|
| 288 | + // les navigateurs pataugent si l'URL est vide |
|
| 289 | + if ($url = virtuel_redirige($m, true)) { |
|
| 290 | + // passer en url absolue car cette redirection pourra |
|
| 291 | + // etre utilisee dans un contexte d'url qui change |
|
| 292 | + // y compris url arbo |
|
| 293 | + $status = 302; |
|
| 294 | + if (defined('_STATUS_REDIRECTION_VIRTUEL')) { |
|
| 295 | + $status = _STATUS_REDIRECTION_VIRTUEL; |
|
| 296 | + } |
|
| 297 | + if (!preg_match(',^\w+:,', (string) $url)) { |
|
| 298 | + include_spip('inc/filtres_mini'); |
|
| 299 | + $url = url_absolue($url); |
|
| 300 | + } |
|
| 301 | + $url = str_replace('&', '&', (string) $url); |
|
| 302 | + |
|
| 303 | + return [ |
|
| 304 | + 'texte' => '<' |
|
| 305 | + . "?php include_spip('inc/headers');redirige_par_entete('" |
|
| 306 | + . texte_script($url) |
|
| 307 | + . "','',$status);" |
|
| 308 | + . '?' . '>', |
|
| 309 | + 'process_ins' => 'php', |
|
| 310 | + 'status' => $status |
|
| 311 | + ]; |
|
| 312 | + } |
|
| 313 | + } |
|
| 314 | + } |
|
| 315 | + |
|
| 316 | + return false; |
|
| 317 | 317 | } |
@@ -20,7 +20,7 @@ discard block |
||
| 20 | 20 | **/ |
| 21 | 21 | |
| 22 | 22 | if (!defined('_ECRIRE_INC_VERSION')) { |
| 23 | - return; |
|
| 23 | + return; |
|
| 24 | 24 | } |
| 25 | 25 | |
| 26 | 26 | /** Repérer un code ne calculant rien, meme avec commentaire */ |
@@ -61,92 +61,92 @@ discard block |
||
| 61 | 61 | |
| 62 | 62 | |
| 63 | 63 | function argumenter_inclure( |
| 64 | - $params, |
|
| 65 | - $rejet_filtres, |
|
| 66 | - $p, |
|
| 67 | - &$boucles, |
|
| 68 | - $id_boucle, |
|
| 69 | - $echap = true, |
|
| 70 | - $lang = '', |
|
| 71 | - $fond1 = false |
|
| 64 | + $params, |
|
| 65 | + $rejet_filtres, |
|
| 66 | + $p, |
|
| 67 | + &$boucles, |
|
| 68 | + $id_boucle, |
|
| 69 | + $echap = true, |
|
| 70 | + $lang = '', |
|
| 71 | + $fond1 = false |
|
| 72 | 72 | ) { |
| 73 | - $l = []; |
|
| 74 | - $erreur_p_i_i = ''; |
|
| 75 | - if (!is_array($params)) { |
|
| 76 | - return $l; |
|
| 77 | - } |
|
| 78 | - foreach ($params as $k => $couple) { |
|
| 79 | - // la liste d'arguments d'inclusion peut se terminer par un filtre |
|
| 80 | - $filtre = array_shift($couple); |
|
| 81 | - if ($filtre) { |
|
| 82 | - break; |
|
| 83 | - } |
|
| 84 | - foreach ($couple as $n => $val) { |
|
| 85 | - $var = $val[0]; |
|
| 86 | - if ($var->type != 'texte') { |
|
| 87 | - if ($n || $k || $fond1) { |
|
| 88 | - $erreur_p_i_i = [ |
|
| 89 | - 'zbug_parametres_inclus_incorrects', |
|
| 90 | - ['param' => $var->nom_champ] |
|
| 91 | - ]; |
|
| 92 | - erreur_squelette($erreur_p_i_i, $p); |
|
| 93 | - break; |
|
| 94 | - } else { |
|
| 95 | - $l[1] = calculer_liste($val, $p->descr, $boucles, $id_boucle); |
|
| 96 | - } |
|
| 97 | - } else { |
|
| 98 | - preg_match(',^([^=]*)(=?)(.*)$,m', $var->texte, $m); |
|
| 99 | - $m = array_pad($m, 3, null); |
|
| 100 | - $var = $m[1]; |
|
| 101 | - $auto = false; |
|
| 102 | - |
|
| 103 | - if ($m[2]) { |
|
| 104 | - $v = $m[3]; |
|
| 105 | - if (preg_match(',^[\'"](.*)[\'"]$,', $v, $m)) { |
|
| 106 | - $v = $m[1]; |
|
| 107 | - } |
|
| 108 | - $val[0] = new Texte(); |
|
| 109 | - $val[0]->texte = $v; |
|
| 110 | - } elseif ($k || $n || $fond1) { |
|
| 111 | - $auto = true; |
|
| 112 | - } else { |
|
| 113 | - $var = 1; |
|
| 114 | - } |
|
| 115 | - |
|
| 116 | - if ($var == 'lang') { |
|
| 117 | - $lang = !$auto |
|
| 118 | - ? calculer_liste($val, $p->descr, $boucles, $id_boucle) |
|
| 119 | - : '$GLOBALS["spip_lang"]'; |
|
| 120 | - } else { |
|
| 121 | - $val = $auto |
|
| 122 | - ? index_pile($id_boucle, $var, $boucles) |
|
| 123 | - : calculer_liste($val, $p->descr, $boucles, $id_boucle); |
|
| 124 | - if ($var !== 1) { |
|
| 125 | - $val = ($echap ? "\'$var\' => ' . argumenter_squelette(" : "'$var' => ") |
|
| 126 | - . $val . ($echap ? ") . '" : ' '); |
|
| 127 | - } else { |
|
| 128 | - $val = $echap ? "'.$val.'" : $val; |
|
| 129 | - } |
|
| 130 | - $l[$var] = $val; |
|
| 131 | - } |
|
| 132 | - } |
|
| 133 | - } |
|
| 134 | - } |
|
| 135 | - if ($erreur_p_i_i) { |
|
| 136 | - return false; |
|
| 137 | - } |
|
| 138 | - // Cas particulier de la langue : si {lang=xx} est definie, on |
|
| 139 | - // la passe, sinon on passe la langue courante au moment du calcul |
|
| 140 | - // sauf si on n'en veut pas |
|
| 141 | - if ($lang === false) { |
|
| 142 | - return $l; |
|
| 143 | - } |
|
| 144 | - if (!$lang) { |
|
| 145 | - $lang = '$GLOBALS["spip_lang"]'; |
|
| 146 | - } |
|
| 147 | - $l['lang'] = ($echap ? "\'lang\' => ' . argumenter_squelette(" : "'lang' => ") . $lang . ($echap ? ") . '" : ' '); |
|
| 148 | - |
|
| 149 | - return $l; |
|
| 73 | + $l = []; |
|
| 74 | + $erreur_p_i_i = ''; |
|
| 75 | + if (!is_array($params)) { |
|
| 76 | + return $l; |
|
| 77 | + } |
|
| 78 | + foreach ($params as $k => $couple) { |
|
| 79 | + // la liste d'arguments d'inclusion peut se terminer par un filtre |
|
| 80 | + $filtre = array_shift($couple); |
|
| 81 | + if ($filtre) { |
|
| 82 | + break; |
|
| 83 | + } |
|
| 84 | + foreach ($couple as $n => $val) { |
|
| 85 | + $var = $val[0]; |
|
| 86 | + if ($var->type != 'texte') { |
|
| 87 | + if ($n || $k || $fond1) { |
|
| 88 | + $erreur_p_i_i = [ |
|
| 89 | + 'zbug_parametres_inclus_incorrects', |
|
| 90 | + ['param' => $var->nom_champ] |
|
| 91 | + ]; |
|
| 92 | + erreur_squelette($erreur_p_i_i, $p); |
|
| 93 | + break; |
|
| 94 | + } else { |
|
| 95 | + $l[1] = calculer_liste($val, $p->descr, $boucles, $id_boucle); |
|
| 96 | + } |
|
| 97 | + } else { |
|
| 98 | + preg_match(',^([^=]*)(=?)(.*)$,m', $var->texte, $m); |
|
| 99 | + $m = array_pad($m, 3, null); |
|
| 100 | + $var = $m[1]; |
|
| 101 | + $auto = false; |
|
| 102 | + |
|
| 103 | + if ($m[2]) { |
|
| 104 | + $v = $m[3]; |
|
| 105 | + if (preg_match(',^[\'"](.*)[\'"]$,', $v, $m)) { |
|
| 106 | + $v = $m[1]; |
|
| 107 | + } |
|
| 108 | + $val[0] = new Texte(); |
|
| 109 | + $val[0]->texte = $v; |
|
| 110 | + } elseif ($k || $n || $fond1) { |
|
| 111 | + $auto = true; |
|
| 112 | + } else { |
|
| 113 | + $var = 1; |
|
| 114 | + } |
|
| 115 | + |
|
| 116 | + if ($var == 'lang') { |
|
| 117 | + $lang = !$auto |
|
| 118 | + ? calculer_liste($val, $p->descr, $boucles, $id_boucle) |
|
| 119 | + : '$GLOBALS["spip_lang"]'; |
|
| 120 | + } else { |
|
| 121 | + $val = $auto |
|
| 122 | + ? index_pile($id_boucle, $var, $boucles) |
|
| 123 | + : calculer_liste($val, $p->descr, $boucles, $id_boucle); |
|
| 124 | + if ($var !== 1) { |
|
| 125 | + $val = ($echap ? "\'$var\' => ' . argumenter_squelette(" : "'$var' => ") |
|
| 126 | + . $val . ($echap ? ") . '" : ' '); |
|
| 127 | + } else { |
|
| 128 | + $val = $echap ? "'.$val.'" : $val; |
|
| 129 | + } |
|
| 130 | + $l[$var] = $val; |
|
| 131 | + } |
|
| 132 | + } |
|
| 133 | + } |
|
| 134 | + } |
|
| 135 | + if ($erreur_p_i_i) { |
|
| 136 | + return false; |
|
| 137 | + } |
|
| 138 | + // Cas particulier de la langue : si {lang=xx} est definie, on |
|
| 139 | + // la passe, sinon on passe la langue courante au moment du calcul |
|
| 140 | + // sauf si on n'en veut pas |
|
| 141 | + if ($lang === false) { |
|
| 142 | + return $l; |
|
| 143 | + } |
|
| 144 | + if (!$lang) { |
|
| 145 | + $lang = '$GLOBALS["spip_lang"]'; |
|
| 146 | + } |
|
| 147 | + $l['lang'] = ($echap ? "\'lang\' => ' . argumenter_squelette(" : "'lang' => ") . $lang . ($echap ? ") . '" : ' '); |
|
| 148 | + |
|
| 149 | + return $l; |
|
| 150 | 150 | } |
| 151 | 151 | |
| 152 | 152 | /** |
@@ -170,84 +170,84 @@ discard block |
||
| 170 | 170 | **/ |
| 171 | 171 | function calculer_inclure($p, &$boucles, $id_boucle) { |
| 172 | 172 | |
| 173 | - $_options = []; |
|
| 174 | - $_contexte = argumenter_inclure($p->param, false, $p, $boucles, $id_boucle, true, '', true); |
|
| 175 | - if (is_string($p->texte)) { |
|
| 176 | - $fichier = $p->texte; |
|
| 177 | - $code = '"' . str_replace('"', '\"', $fichier) . '"'; |
|
| 178 | - } else { |
|
| 179 | - $code = calculer_liste($p->texte, $p->descr, $boucles, $id_boucle); |
|
| 180 | - if ($code && preg_match("/^'([^']*)'/s", $code, $r)) { |
|
| 181 | - $fichier = $r[1]; |
|
| 182 | - } else { |
|
| 183 | - $fichier = ''; |
|
| 184 | - } |
|
| 185 | - } |
|
| 186 | - if (!$code || $code === '""' || $code === "''") { |
|
| 187 | - $trace = $p->fonctions; |
|
| 188 | - while ( |
|
| 189 | - is_array($trace) |
|
| 190 | - && ($trace = array_filter($trace)) |
|
| 191 | - && count($trace) == 1 |
|
| 192 | - ) { |
|
| 193 | - $trace = reset($trace); |
|
| 194 | - } |
|
| 195 | - $erreur_p_i_i = [ |
|
| 196 | - 'zbug_parametres_inclus_incorrects', |
|
| 197 | - ['param' => print_r($trace, true)] |
|
| 198 | - ]; |
|
| 199 | - erreur_squelette($erreur_p_i_i, $p); |
|
| 200 | - |
|
| 201 | - return "''"; |
|
| 202 | - } |
|
| 203 | - $compil = texte_script(memoriser_contexte_compil($p)); |
|
| 204 | - |
|
| 205 | - if (is_array($_contexte)) { |
|
| 206 | - // Critere d'inclusion {env} (et {self} pour compatibilite ascendante) |
|
| 207 | - if ($env = (isset($_contexte['env']) || isset($_contexte['self']))) { |
|
| 208 | - unset($_contexte['env']); |
|
| 209 | - } |
|
| 210 | - |
|
| 211 | - // noter les doublons dans l'appel a public.php |
|
| 212 | - if (isset($_contexte['doublons'])) { |
|
| 213 | - $_contexte['doublons'] = "\\'doublons\\' => '.var_export(\$doublons,true).'"; |
|
| 214 | - } |
|
| 215 | - |
|
| 216 | - if ($ajax = isset($_contexte['ajax'])) { |
|
| 217 | - $ajax = preg_replace(',=>(.*)$,ims', '=> ($v=(\\1))?$v:true', $_contexte['ajax']); |
|
| 218 | - unset($_contexte['ajax']); |
|
| 219 | - } |
|
| 220 | - |
|
| 221 | - $_contexte = join(",\n\t", $_contexte); |
|
| 222 | - } else { |
|
| 223 | - return false; |
|
| 224 | - } // j'aurais voulu toucher le fond ... |
|
| 225 | - |
|
| 226 | - $contexte = 'array(' . $_contexte . ')'; |
|
| 227 | - |
|
| 228 | - if ($env) { |
|
| 229 | - $contexte = "array_merge('.var_export(\$Pile[0],1).',$contexte)"; |
|
| 230 | - } |
|
| 231 | - |
|
| 232 | - // s'il y a une extension .php, ce n'est pas un squelette |
|
| 233 | - if ($fichier && preg_match('/^.+[.]php$/s', $fichier)) { |
|
| 234 | - $code = sandbox_composer_inclure_php($fichier, $p, $contexte); |
|
| 235 | - } else { |
|
| 236 | - $_options[] = "\"compil\"=>array($compil)"; |
|
| 237 | - if ($ajax) { |
|
| 238 | - $_options[] = $ajax; |
|
| 239 | - } |
|
| 240 | - $code = " ' . argumenter_squelette($code) . '"; |
|
| 241 | - $code = 'echo ' . sprintf( |
|
| 242 | - CODE_RECUPERER_FOND, |
|
| 243 | - $code, |
|
| 244 | - $contexte, |
|
| 245 | - implode(',', $_options), |
|
| 246 | - "_request(\\'connect\\') ?? \\'\\'" |
|
| 247 | - ) . ';'; |
|
| 248 | - } |
|
| 249 | - |
|
| 250 | - return "\n'<'.'" . '?php ' . $code . "\n?'." . "'>'"; |
|
| 173 | + $_options = []; |
|
| 174 | + $_contexte = argumenter_inclure($p->param, false, $p, $boucles, $id_boucle, true, '', true); |
|
| 175 | + if (is_string($p->texte)) { |
|
| 176 | + $fichier = $p->texte; |
|
| 177 | + $code = '"' . str_replace('"', '\"', $fichier) . '"'; |
|
| 178 | + } else { |
|
| 179 | + $code = calculer_liste($p->texte, $p->descr, $boucles, $id_boucle); |
|
| 180 | + if ($code && preg_match("/^'([^']*)'/s", $code, $r)) { |
|
| 181 | + $fichier = $r[1]; |
|
| 182 | + } else { |
|
| 183 | + $fichier = ''; |
|
| 184 | + } |
|
| 185 | + } |
|
| 186 | + if (!$code || $code === '""' || $code === "''") { |
|
| 187 | + $trace = $p->fonctions; |
|
| 188 | + while ( |
|
| 189 | + is_array($trace) |
|
| 190 | + && ($trace = array_filter($trace)) |
|
| 191 | + && count($trace) == 1 |
|
| 192 | + ) { |
|
| 193 | + $trace = reset($trace); |
|
| 194 | + } |
|
| 195 | + $erreur_p_i_i = [ |
|
| 196 | + 'zbug_parametres_inclus_incorrects', |
|
| 197 | + ['param' => print_r($trace, true)] |
|
| 198 | + ]; |
|
| 199 | + erreur_squelette($erreur_p_i_i, $p); |
|
| 200 | + |
|
| 201 | + return "''"; |
|
| 202 | + } |
|
| 203 | + $compil = texte_script(memoriser_contexte_compil($p)); |
|
| 204 | + |
|
| 205 | + if (is_array($_contexte)) { |
|
| 206 | + // Critere d'inclusion {env} (et {self} pour compatibilite ascendante) |
|
| 207 | + if ($env = (isset($_contexte['env']) || isset($_contexte['self']))) { |
|
| 208 | + unset($_contexte['env']); |
|
| 209 | + } |
|
| 210 | + |
|
| 211 | + // noter les doublons dans l'appel a public.php |
|
| 212 | + if (isset($_contexte['doublons'])) { |
|
| 213 | + $_contexte['doublons'] = "\\'doublons\\' => '.var_export(\$doublons,true).'"; |
|
| 214 | + } |
|
| 215 | + |
|
| 216 | + if ($ajax = isset($_contexte['ajax'])) { |
|
| 217 | + $ajax = preg_replace(',=>(.*)$,ims', '=> ($v=(\\1))?$v:true', $_contexte['ajax']); |
|
| 218 | + unset($_contexte['ajax']); |
|
| 219 | + } |
|
| 220 | + |
|
| 221 | + $_contexte = join(",\n\t", $_contexte); |
|
| 222 | + } else { |
|
| 223 | + return false; |
|
| 224 | + } // j'aurais voulu toucher le fond ... |
|
| 225 | + |
|
| 226 | + $contexte = 'array(' . $_contexte . ')'; |
|
| 227 | + |
|
| 228 | + if ($env) { |
|
| 229 | + $contexte = "array_merge('.var_export(\$Pile[0],1).',$contexte)"; |
|
| 230 | + } |
|
| 231 | + |
|
| 232 | + // s'il y a une extension .php, ce n'est pas un squelette |
|
| 233 | + if ($fichier && preg_match('/^.+[.]php$/s', $fichier)) { |
|
| 234 | + $code = sandbox_composer_inclure_php($fichier, $p, $contexte); |
|
| 235 | + } else { |
|
| 236 | + $_options[] = "\"compil\"=>array($compil)"; |
|
| 237 | + if ($ajax) { |
|
| 238 | + $_options[] = $ajax; |
|
| 239 | + } |
|
| 240 | + $code = " ' . argumenter_squelette($code) . '"; |
|
| 241 | + $code = 'echo ' . sprintf( |
|
| 242 | + CODE_RECUPERER_FOND, |
|
| 243 | + $code, |
|
| 244 | + $contexte, |
|
| 245 | + implode(',', $_options), |
|
| 246 | + "_request(\\'connect\\') ?? \\'\\'" |
|
| 247 | + ) . ';'; |
|
| 248 | + } |
|
| 249 | + |
|
| 250 | + return "\n'<'.'" . '?php ' . $code . "\n?'." . "'>'"; |
|
| 251 | 251 | } |
| 252 | 252 | |
| 253 | 253 | |
@@ -265,7 +265,7 @@ discard block |
||
| 265 | 265 | * true pour ne tester que le cas publie et ignorer l'eventuel var_mode=preview de la page |
| 266 | 266 | */ |
| 267 | 267 | function instituer_boucle(&$boucle, $echapper = true, $ignore_previsu = false) { |
| 268 | - /* |
|
| 268 | + /* |
|
| 269 | 269 | $show['statut'][] = array( |
| 270 | 270 | 'champ'=>'statut', // champ de la table sur lequel porte le filtrage par le statut |
| 271 | 271 | 'publie'=>'publie', // valeur ou liste de valeurs, qui definissent l'objet comme publie. |
@@ -289,75 +289,75 @@ discard block |
||
| 289 | 289 | champstatut est alors le champ statut sur la tablen |
| 290 | 290 | dans les jointures, clen peut etre un tableau pour une jointure complexe : array('id_objet','id_article','objet','article') |
| 291 | 291 | */ |
| 292 | - $id_table = $boucle->id_table; |
|
| 293 | - $show = $boucle->show; |
|
| 294 | - if (isset($show['statut']) && $show['statut']) { |
|
| 295 | - foreach ($show['statut'] as $k => $s) { |
|
| 296 | - // Restreindre aux elements publies si pas de {statut} ou autre dans les criteres |
|
| 297 | - $filtrer = true; |
|
| 298 | - if (isset($s['exception'])) { |
|
| 299 | - foreach (is_array($s['exception']) ? $s['exception'] : [$s['exception']] as $m) { |
|
| 300 | - if (isset($boucle->modificateur[$m]) || isset($boucle->modificateur['criteres'][$m])) { |
|
| 301 | - $filtrer = false; |
|
| 302 | - break; |
|
| 303 | - } |
|
| 304 | - } |
|
| 305 | - } |
|
| 306 | - |
|
| 307 | - if ($filtrer) { |
|
| 308 | - if (is_array($s['champ'])) { |
|
| 309 | - $statut = preg_replace(',\W,', '', array_pop($s['champ'])); // securite |
|
| 310 | - $jointures = []; |
|
| 311 | - // indiquer la description de chaque table dans le tableau de jointures, |
|
| 312 | - // ce qui permet d'eviter certains GROUP BY inutiles. |
|
| 313 | - $trouver_table = charger_fonction('trouver_table', 'base'); |
|
| 314 | - foreach ($s['champ'] as $j) { |
|
| 315 | - $id = reset($j); |
|
| 316 | - $def = $trouver_table($id); |
|
| 317 | - $jointures[] = ['', [$id, $def], end($j)]; |
|
| 318 | - } |
|
| 319 | - $jointures[0][0] = $id_table; |
|
| 320 | - if (!array_search($id, $boucle->from)) { |
|
| 321 | - include_spip('public/jointures'); |
|
| 322 | - fabrique_jointures($boucle, $jointures, true, $boucle->show, $id_table, '', $echapper); |
|
| 323 | - } |
|
| 324 | - // trouver l'alias de la table d'arrivee qui porte le statut |
|
| 325 | - $id = array_search($id, $boucle->from); |
|
| 326 | - } else { |
|
| 327 | - $id = $id_table; |
|
| 328 | - $statut = preg_replace(',\W,', '', $s['champ']); // securite |
|
| 329 | - } |
|
| 330 | - $mstatut = $id . '.' . $statut; |
|
| 331 | - |
|
| 332 | - $arg_ignore_previsu = ($ignore_previsu ? ',true' : ''); |
|
| 333 | - include_spip('public/quete'); |
|
| 334 | - if ( |
|
| 335 | - isset($s['post_date']) |
|
| 336 | - && $s['post_date'] |
|
| 337 | - && $GLOBALS['meta']['post_dates'] == 'non' |
|
| 338 | - ) { |
|
| 339 | - $date = $id . '.' . preg_replace(',\W,', '', $s['post_date']); // securite |
|
| 340 | - array_unshift( |
|
| 341 | - $boucle->where, |
|
| 342 | - $echapper ? |
|
| 343 | - "\nquete_condition_postdates('$date'," . _q($boucle->sql_serveur) . "$arg_ignore_previsu)" |
|
| 344 | - : |
|
| 345 | - quete_condition_postdates($date, $boucle->sql_serveur, $ignore_previsu) |
|
| 346 | - ); |
|
| 347 | - } |
|
| 348 | - array_unshift( |
|
| 349 | - $boucle->where, |
|
| 350 | - $echapper ? |
|
| 351 | - "\nquete_condition_statut('$mstatut'," |
|
| 352 | - . _q($s['previsu']) . ',' |
|
| 353 | - . _q($s['publie']) . ',' |
|
| 354 | - . _q($boucle->sql_serveur) . "$arg_ignore_previsu)" |
|
| 355 | - : |
|
| 356 | - quete_condition_statut($mstatut, $s['previsu'], $s['publie'], $boucle->sql_serveur, $ignore_previsu) |
|
| 357 | - ); |
|
| 358 | - } |
|
| 359 | - } |
|
| 360 | - } |
|
| 292 | + $id_table = $boucle->id_table; |
|
| 293 | + $show = $boucle->show; |
|
| 294 | + if (isset($show['statut']) && $show['statut']) { |
|
| 295 | + foreach ($show['statut'] as $k => $s) { |
|
| 296 | + // Restreindre aux elements publies si pas de {statut} ou autre dans les criteres |
|
| 297 | + $filtrer = true; |
|
| 298 | + if (isset($s['exception'])) { |
|
| 299 | + foreach (is_array($s['exception']) ? $s['exception'] : [$s['exception']] as $m) { |
|
| 300 | + if (isset($boucle->modificateur[$m]) || isset($boucle->modificateur['criteres'][$m])) { |
|
| 301 | + $filtrer = false; |
|
| 302 | + break; |
|
| 303 | + } |
|
| 304 | + } |
|
| 305 | + } |
|
| 306 | + |
|
| 307 | + if ($filtrer) { |
|
| 308 | + if (is_array($s['champ'])) { |
|
| 309 | + $statut = preg_replace(',\W,', '', array_pop($s['champ'])); // securite |
|
| 310 | + $jointures = []; |
|
| 311 | + // indiquer la description de chaque table dans le tableau de jointures, |
|
| 312 | + // ce qui permet d'eviter certains GROUP BY inutiles. |
|
| 313 | + $trouver_table = charger_fonction('trouver_table', 'base'); |
|
| 314 | + foreach ($s['champ'] as $j) { |
|
| 315 | + $id = reset($j); |
|
| 316 | + $def = $trouver_table($id); |
|
| 317 | + $jointures[] = ['', [$id, $def], end($j)]; |
|
| 318 | + } |
|
| 319 | + $jointures[0][0] = $id_table; |
|
| 320 | + if (!array_search($id, $boucle->from)) { |
|
| 321 | + include_spip('public/jointures'); |
|
| 322 | + fabrique_jointures($boucle, $jointures, true, $boucle->show, $id_table, '', $echapper); |
|
| 323 | + } |
|
| 324 | + // trouver l'alias de la table d'arrivee qui porte le statut |
|
| 325 | + $id = array_search($id, $boucle->from); |
|
| 326 | + } else { |
|
| 327 | + $id = $id_table; |
|
| 328 | + $statut = preg_replace(',\W,', '', $s['champ']); // securite |
|
| 329 | + } |
|
| 330 | + $mstatut = $id . '.' . $statut; |
|
| 331 | + |
|
| 332 | + $arg_ignore_previsu = ($ignore_previsu ? ',true' : ''); |
|
| 333 | + include_spip('public/quete'); |
|
| 334 | + if ( |
|
| 335 | + isset($s['post_date']) |
|
| 336 | + && $s['post_date'] |
|
| 337 | + && $GLOBALS['meta']['post_dates'] == 'non' |
|
| 338 | + ) { |
|
| 339 | + $date = $id . '.' . preg_replace(',\W,', '', $s['post_date']); // securite |
|
| 340 | + array_unshift( |
|
| 341 | + $boucle->where, |
|
| 342 | + $echapper ? |
|
| 343 | + "\nquete_condition_postdates('$date'," . _q($boucle->sql_serveur) . "$arg_ignore_previsu)" |
|
| 344 | + : |
|
| 345 | + quete_condition_postdates($date, $boucle->sql_serveur, $ignore_previsu) |
|
| 346 | + ); |
|
| 347 | + } |
|
| 348 | + array_unshift( |
|
| 349 | + $boucle->where, |
|
| 350 | + $echapper ? |
|
| 351 | + "\nquete_condition_statut('$mstatut'," |
|
| 352 | + . _q($s['previsu']) . ',' |
|
| 353 | + . _q($s['publie']) . ',' |
|
| 354 | + . _q($boucle->sql_serveur) . "$arg_ignore_previsu)" |
|
| 355 | + : |
|
| 356 | + quete_condition_statut($mstatut, $s['previsu'], $s['publie'], $boucle->sql_serveur, $ignore_previsu) |
|
| 357 | + ); |
|
| 358 | + } |
|
| 359 | + } |
|
| 360 | + } |
|
| 361 | 361 | } |
| 362 | 362 | |
| 363 | 363 | /** |
@@ -376,29 +376,29 @@ discard block |
||
| 376 | 376 | */ |
| 377 | 377 | function calculer_boucle($id_boucle, &$boucles) { |
| 378 | 378 | |
| 379 | - $boucle = &$boucles[$id_boucle]; |
|
| 380 | - instituer_boucle($boucle); |
|
| 381 | - $boucles[$id_boucle] = pipeline('post_boucle', $boucles[$id_boucle]); |
|
| 382 | - |
|
| 383 | - // en mode debug memoriser les premiers passages dans la boucle, |
|
| 384 | - // mais pas tous, sinon ca pete. |
|
| 385 | - if (_request('var_mode_affiche') != 'resultat') { |
|
| 386 | - $trace = ''; |
|
| 387 | - } else { |
|
| 388 | - $_trace = $boucles[$id_boucle]->descr['nom'] . $id_boucle; |
|
| 389 | - $_trace = "\$GLOBALS['debug_objets']['resultat']['$_trace']"; |
|
| 390 | - $trace = " |
|
| 379 | + $boucle = &$boucles[$id_boucle]; |
|
| 380 | + instituer_boucle($boucle); |
|
| 381 | + $boucles[$id_boucle] = pipeline('post_boucle', $boucles[$id_boucle]); |
|
| 382 | + |
|
| 383 | + // en mode debug memoriser les premiers passages dans la boucle, |
|
| 384 | + // mais pas tous, sinon ca pete. |
|
| 385 | + if (_request('var_mode_affiche') != 'resultat') { |
|
| 386 | + $trace = ''; |
|
| 387 | + } else { |
|
| 388 | + $_trace = $boucles[$id_boucle]->descr['nom'] . $id_boucle; |
|
| 389 | + $_trace = "\$GLOBALS['debug_objets']['resultat']['$_trace']"; |
|
| 390 | + $trace = " |
|
| 391 | 391 | if (empty($_trace)) { |
| 392 | 392 | $_trace = []; |
| 393 | 393 | } |
| 394 | 394 | if (count($_trace) < 3) { |
| 395 | 395 | $_trace" . '[] = $t0; |
| 396 | 396 | }'; |
| 397 | - } |
|
| 397 | + } |
|
| 398 | 398 | |
| 399 | - return ($boucles[$id_boucle]->type_requete == TYPE_RECURSIF) |
|
| 400 | - ? calculer_boucle_rec($id_boucle, $boucles, $trace) |
|
| 401 | - : calculer_boucle_nonrec($id_boucle, $boucles, $trace); |
|
| 399 | + return ($boucles[$id_boucle]->type_requete == TYPE_RECURSIF) |
|
| 400 | + ? calculer_boucle_rec($id_boucle, $boucles, $trace) |
|
| 401 | + : calculer_boucle_nonrec($id_boucle, $boucles, $trace); |
|
| 402 | 402 | } |
| 403 | 403 | |
| 404 | 404 | |
@@ -421,15 +421,15 @@ discard block |
||
| 421 | 421 | * Code PHP compilé de la boucle récursive |
| 422 | 422 | **/ |
| 423 | 423 | function calculer_boucle_rec($id_boucle, &$boucles, $trace) { |
| 424 | - $nom = $boucles[$id_boucle]->param[0]; |
|
| 425 | - |
|
| 426 | - return |
|
| 427 | - // Numrows[$nom] peut ne pas être encore defini |
|
| 428 | - "\n\t\$save_numrows = (isset(\$Numrows['$nom']) ? \$Numrows['$nom'] : array());" |
|
| 429 | - . "\n\t\$t0 = " . $boucles[$id_boucle]->return . ';' |
|
| 430 | - . "\n\t\$Numrows['$nom'] = (\$save_numrows);" |
|
| 431 | - . $trace |
|
| 432 | - . "\n\treturn \$t0;"; |
|
| 424 | + $nom = $boucles[$id_boucle]->param[0]; |
|
| 425 | + |
|
| 426 | + return |
|
| 427 | + // Numrows[$nom] peut ne pas être encore defini |
|
| 428 | + "\n\t\$save_numrows = (isset(\$Numrows['$nom']) ? \$Numrows['$nom'] : array());" |
|
| 429 | + . "\n\t\$t0 = " . $boucles[$id_boucle]->return . ';' |
|
| 430 | + . "\n\t\$Numrows['$nom'] = (\$save_numrows);" |
|
| 431 | + . $trace |
|
| 432 | + . "\n\treturn \$t0;"; |
|
| 433 | 433 | } |
| 434 | 434 | |
| 435 | 435 | /** |
@@ -482,173 +482,173 @@ discard block |
||
| 482 | 482 | **/ |
| 483 | 483 | function calculer_boucle_nonrec($id_boucle, &$boucles, $trace) { |
| 484 | 484 | |
| 485 | - $code_sep = null; |
|
| 486 | - $boucle = &$boucles[$id_boucle]; |
|
| 487 | - $return = $boucle->return; |
|
| 488 | - $type_boucle = $boucle->type_requete; |
|
| 489 | - $primary = $boucle->primary; |
|
| 490 | - $constant = preg_match(CODE_MONOTONE, str_replace("\\'", '', $return)); |
|
| 491 | - $flag_cpt = $boucle->mode_partie || $boucle->cptrows; |
|
| 492 | - $corps = ''; |
|
| 493 | - |
|
| 494 | - // faudrait expanser le foreach a la compil, car y en a souvent qu'un |
|
| 495 | - // et puis faire un [] plutot qu'un "','." |
|
| 496 | - if ($boucle->doublons) { |
|
| 497 | - $corps .= "\n\t\t\tforeach(" . $boucle->doublons . ' as $k) $doublons[$k] .= "," . ' . |
|
| 498 | - index_pile($id_boucle, $primary, $boucles) |
|
| 499 | - . "; // doublons\n"; |
|
| 500 | - } |
|
| 501 | - |
|
| 502 | - // La boucle doit-elle selectionner la langue ? |
|
| 503 | - // - par defaut, les boucles suivantes le font |
|
| 504 | - // (sauf si forcer_lang==true ou si le titre contient <multi>). |
|
| 505 | - // - a moins d'une demande explicite via {!lang_select} |
|
| 506 | - if ( |
|
| 507 | - !$constant && $boucle->lang_select != 'non' && |
|
| 508 | - (($boucle->lang_select == 'oui') || |
|
| 509 | - in_array($type_boucle, [ |
|
| 510 | - 'articles', |
|
| 511 | - 'rubriques', |
|
| 512 | - 'hierarchie', |
|
| 513 | - 'breves' |
|
| 514 | - ])) |
|
| 515 | - ) { |
|
| 516 | - // Memoriser la langue avant la boucle et la restituer apres |
|
| 517 | - // afin que le corps de boucle affecte la globale directement |
|
| 518 | - $init_lang = "lang_select(\$GLOBALS['spip_lang']);\n\t"; |
|
| 519 | - $fin_lang = "lang_select();\n\t"; |
|
| 520 | - $fin_lang_select_public = "\n\t\tlang_select();"; |
|
| 521 | - |
|
| 522 | - $corps .= |
|
| 523 | - "\n\t\tlang_select_public(" |
|
| 524 | - . index_pile($id_boucle, 'lang', $boucles) |
|
| 525 | - . ", '" . $boucle->lang_select . "'" |
|
| 526 | - . (in_array($type_boucle, [ |
|
| 527 | - 'articles', |
|
| 528 | - 'rubriques', |
|
| 529 | - 'hierarchie', |
|
| 530 | - 'breves' |
|
| 531 | - ]) ? ', ' . index_pile($id_boucle, 'titre', $boucles) : '') |
|
| 532 | - . ');'; |
|
| 533 | - } else { |
|
| 534 | - $init_lang = ''; |
|
| 535 | - $fin_lang = ''; |
|
| 536 | - $fin_lang_select_public = ''; |
|
| 537 | - // sortir les appels au traducteur (invariants de boucle) |
|
| 538 | - if ( |
|
| 539 | - !str_contains($return, '?php') |
|
| 540 | - && preg_match_all("/\W(_T[(]'[^']*'[)])/", $return, $r) |
|
| 541 | - ) { |
|
| 542 | - $i = 1; |
|
| 543 | - foreach ($r[1] as $t) { |
|
| 544 | - $init_lang .= "\n\t\$l$i = $t;"; |
|
| 545 | - $return = str_replace($t, "\$l$i", $return); |
|
| 546 | - $i++; |
|
| 547 | - } |
|
| 548 | - } |
|
| 549 | - } |
|
| 550 | - |
|
| 551 | - // gestion optimale des separateurs et des boucles constantes |
|
| 552 | - if (is_countable($boucle->separateur) ? count($boucle->separateur) : 0) { |
|
| 553 | - $code_sep = ("'" . str_replace("'", "\'", join('', $boucle->separateur)) . "'"); |
|
| 554 | - } |
|
| 555 | - |
|
| 556 | - $corps .= |
|
| 557 | - ((!$boucle->separateur) ? |
|
| 558 | - (($constant && !$corps && !$flag_cpt) ? $return : |
|
| 559 | - (($return === "''") ? '' : |
|
| 560 | - ("\n\t\t" . '$t0 .= ' . $return . ';'))) : |
|
| 561 | - ("\n\t\t\$t1 " . |
|
| 562 | - ((str_starts_with($return, '$t1.')) ? |
|
| 563 | - ('.=' . substr($return, 4)) : |
|
| 564 | - ('= ' . $return)) . |
|
| 565 | - ";\n\t\t" . |
|
| 566 | - '$t0 .= ((strlen($t1) && strlen($t0)) ? ' . $code_sep . " : '') . \$t1;")); |
|
| 567 | - |
|
| 568 | - // Calculer les invalideurs si c'est une boucle non constante et si on |
|
| 569 | - // souhaite invalider ces elements |
|
| 570 | - if (!$constant && $primary) { |
|
| 571 | - include_spip('inc/invalideur'); |
|
| 572 | - $corps = calcul_invalideurs($corps, $primary, $boucles, $id_boucle); |
|
| 573 | - } |
|
| 574 | - |
|
| 575 | - // gerer le compteur de boucle |
|
| 576 | - // avec ou sans son utilisation par les criteres {1/3} {1,4} {n-2,1}... |
|
| 577 | - |
|
| 578 | - if ($boucle->partie || $boucle->cptrows) { |
|
| 579 | - $corps = "\n\t\t\$Numrows['$id_boucle']['compteur_boucle']++;" |
|
| 580 | - . $boucle->partie |
|
| 581 | - . $corps; |
|
| 582 | - } |
|
| 583 | - |
|
| 584 | - // depiler la lang de la boucle si besoin |
|
| 585 | - $corps .= $fin_lang_select_public; |
|
| 586 | - |
|
| 587 | - // si le corps est une constante, ne pas appeler le serveur N fois! |
|
| 588 | - |
|
| 589 | - if (preg_match(CODE_MONOTONE, str_replace("\\'", '', $corps), $r)) { |
|
| 590 | - if (!isset($r[2]) || !$r[2]) { |
|
| 591 | - if (!$boucle->numrows) { |
|
| 592 | - return "\n\t\$t0 = '';"; |
|
| 593 | - } else { |
|
| 594 | - $corps = ''; |
|
| 595 | - } |
|
| 596 | - } else { |
|
| 597 | - $boucle->numrows = true; |
|
| 598 | - $corps = "\n\t\$t0 = str_repeat($corps, \$Numrows['$id_boucle']['total']);"; |
|
| 599 | - } |
|
| 600 | - } else { |
|
| 601 | - $corps = "while (\$Pile[\$SP]=\$iter->fetch()) {\n$corps\n }"; |
|
| 602 | - } |
|
| 603 | - |
|
| 604 | - $count = ''; |
|
| 605 | - if (!$boucle->select) { |
|
| 606 | - if (!$boucle->numrows || $boucle->limit || $boucle->mode_partie || $boucle->group) { |
|
| 607 | - $count = '1'; |
|
| 608 | - } else { |
|
| 609 | - $count = 'count(*)'; |
|
| 610 | - } |
|
| 611 | - $boucles[$id_boucle]->select[] = $count; |
|
| 612 | - } |
|
| 613 | - |
|
| 614 | - if ($flag_cpt) { |
|
| 615 | - $nums = "\n\t// COMPTEUR\n\t" |
|
| 616 | - . "\$Numrows['$id_boucle']['compteur_boucle'] = 0;\n\t"; |
|
| 617 | - } else { |
|
| 618 | - $nums = ''; |
|
| 619 | - } |
|
| 620 | - |
|
| 621 | - if ($boucle->numrows || $boucle->mode_partie) { |
|
| 622 | - $nums .= "\$Numrows['$id_boucle']['command'] = \$command;\n\t" |
|
| 623 | - . "\$Numrows['$id_boucle']['total'] = @intval(\$iter->count());" |
|
| 624 | - . $boucle->mode_partie |
|
| 625 | - . "\n\t"; |
|
| 626 | - } |
|
| 627 | - |
|
| 628 | - // Ne calculer la requete que maintenant |
|
| 629 | - // car ce qui precede appelle index_pile qui influe dessus |
|
| 630 | - |
|
| 631 | - $init = (($init = $boucles[$id_boucle]->doublons) |
|
| 632 | - ? ("\n\t$init = array();") : '') |
|
| 633 | - . calculer_requete_sql($boucles[$id_boucle]); |
|
| 634 | - |
|
| 635 | - $contexte = memoriser_contexte_compil($boucle); |
|
| 636 | - |
|
| 637 | - $a = sprintf( |
|
| 638 | - CODE_CORPS_BOUCLE, |
|
| 639 | - $init, |
|
| 640 | - $boucle->iterateur, |
|
| 641 | - '$command', |
|
| 642 | - $contexte, |
|
| 643 | - $nums, |
|
| 644 | - $init_lang, |
|
| 645 | - $corps, |
|
| 646 | - $fin_lang, |
|
| 647 | - $trace, |
|
| 648 | - 'BOUCLE' . $id_boucle . ' @ ' . ($boucle->descr['sourcefile']) |
|
| 649 | - ); |
|
| 650 | - |
|
| 651 | - return $a; |
|
| 485 | + $code_sep = null; |
|
| 486 | + $boucle = &$boucles[$id_boucle]; |
|
| 487 | + $return = $boucle->return; |
|
| 488 | + $type_boucle = $boucle->type_requete; |
|
| 489 | + $primary = $boucle->primary; |
|
| 490 | + $constant = preg_match(CODE_MONOTONE, str_replace("\\'", '', $return)); |
|
| 491 | + $flag_cpt = $boucle->mode_partie || $boucle->cptrows; |
|
| 492 | + $corps = ''; |
|
| 493 | + |
|
| 494 | + // faudrait expanser le foreach a la compil, car y en a souvent qu'un |
|
| 495 | + // et puis faire un [] plutot qu'un "','." |
|
| 496 | + if ($boucle->doublons) { |
|
| 497 | + $corps .= "\n\t\t\tforeach(" . $boucle->doublons . ' as $k) $doublons[$k] .= "," . ' . |
|
| 498 | + index_pile($id_boucle, $primary, $boucles) |
|
| 499 | + . "; // doublons\n"; |
|
| 500 | + } |
|
| 501 | + |
|
| 502 | + // La boucle doit-elle selectionner la langue ? |
|
| 503 | + // - par defaut, les boucles suivantes le font |
|
| 504 | + // (sauf si forcer_lang==true ou si le titre contient <multi>). |
|
| 505 | + // - a moins d'une demande explicite via {!lang_select} |
|
| 506 | + if ( |
|
| 507 | + !$constant && $boucle->lang_select != 'non' && |
|
| 508 | + (($boucle->lang_select == 'oui') || |
|
| 509 | + in_array($type_boucle, [ |
|
| 510 | + 'articles', |
|
| 511 | + 'rubriques', |
|
| 512 | + 'hierarchie', |
|
| 513 | + 'breves' |
|
| 514 | + ])) |
|
| 515 | + ) { |
|
| 516 | + // Memoriser la langue avant la boucle et la restituer apres |
|
| 517 | + // afin que le corps de boucle affecte la globale directement |
|
| 518 | + $init_lang = "lang_select(\$GLOBALS['spip_lang']);\n\t"; |
|
| 519 | + $fin_lang = "lang_select();\n\t"; |
|
| 520 | + $fin_lang_select_public = "\n\t\tlang_select();"; |
|
| 521 | + |
|
| 522 | + $corps .= |
|
| 523 | + "\n\t\tlang_select_public(" |
|
| 524 | + . index_pile($id_boucle, 'lang', $boucles) |
|
| 525 | + . ", '" . $boucle->lang_select . "'" |
|
| 526 | + . (in_array($type_boucle, [ |
|
| 527 | + 'articles', |
|
| 528 | + 'rubriques', |
|
| 529 | + 'hierarchie', |
|
| 530 | + 'breves' |
|
| 531 | + ]) ? ', ' . index_pile($id_boucle, 'titre', $boucles) : '') |
|
| 532 | + . ');'; |
|
| 533 | + } else { |
|
| 534 | + $init_lang = ''; |
|
| 535 | + $fin_lang = ''; |
|
| 536 | + $fin_lang_select_public = ''; |
|
| 537 | + // sortir les appels au traducteur (invariants de boucle) |
|
| 538 | + if ( |
|
| 539 | + !str_contains($return, '?php') |
|
| 540 | + && preg_match_all("/\W(_T[(]'[^']*'[)])/", $return, $r) |
|
| 541 | + ) { |
|
| 542 | + $i = 1; |
|
| 543 | + foreach ($r[1] as $t) { |
|
| 544 | + $init_lang .= "\n\t\$l$i = $t;"; |
|
| 545 | + $return = str_replace($t, "\$l$i", $return); |
|
| 546 | + $i++; |
|
| 547 | + } |
|
| 548 | + } |
|
| 549 | + } |
|
| 550 | + |
|
| 551 | + // gestion optimale des separateurs et des boucles constantes |
|
| 552 | + if (is_countable($boucle->separateur) ? count($boucle->separateur) : 0) { |
|
| 553 | + $code_sep = ("'" . str_replace("'", "\'", join('', $boucle->separateur)) . "'"); |
|
| 554 | + } |
|
| 555 | + |
|
| 556 | + $corps .= |
|
| 557 | + ((!$boucle->separateur) ? |
|
| 558 | + (($constant && !$corps && !$flag_cpt) ? $return : |
|
| 559 | + (($return === "''") ? '' : |
|
| 560 | + ("\n\t\t" . '$t0 .= ' . $return . ';'))) : |
|
| 561 | + ("\n\t\t\$t1 " . |
|
| 562 | + ((str_starts_with($return, '$t1.')) ? |
|
| 563 | + ('.=' . substr($return, 4)) : |
|
| 564 | + ('= ' . $return)) . |
|
| 565 | + ";\n\t\t" . |
|
| 566 | + '$t0 .= ((strlen($t1) && strlen($t0)) ? ' . $code_sep . " : '') . \$t1;")); |
|
| 567 | + |
|
| 568 | + // Calculer les invalideurs si c'est une boucle non constante et si on |
|
| 569 | + // souhaite invalider ces elements |
|
| 570 | + if (!$constant && $primary) { |
|
| 571 | + include_spip('inc/invalideur'); |
|
| 572 | + $corps = calcul_invalideurs($corps, $primary, $boucles, $id_boucle); |
|
| 573 | + } |
|
| 574 | + |
|
| 575 | + // gerer le compteur de boucle |
|
| 576 | + // avec ou sans son utilisation par les criteres {1/3} {1,4} {n-2,1}... |
|
| 577 | + |
|
| 578 | + if ($boucle->partie || $boucle->cptrows) { |
|
| 579 | + $corps = "\n\t\t\$Numrows['$id_boucle']['compteur_boucle']++;" |
|
| 580 | + . $boucle->partie |
|
| 581 | + . $corps; |
|
| 582 | + } |
|
| 583 | + |
|
| 584 | + // depiler la lang de la boucle si besoin |
|
| 585 | + $corps .= $fin_lang_select_public; |
|
| 586 | + |
|
| 587 | + // si le corps est une constante, ne pas appeler le serveur N fois! |
|
| 588 | + |
|
| 589 | + if (preg_match(CODE_MONOTONE, str_replace("\\'", '', $corps), $r)) { |
|
| 590 | + if (!isset($r[2]) || !$r[2]) { |
|
| 591 | + if (!$boucle->numrows) { |
|
| 592 | + return "\n\t\$t0 = '';"; |
|
| 593 | + } else { |
|
| 594 | + $corps = ''; |
|
| 595 | + } |
|
| 596 | + } else { |
|
| 597 | + $boucle->numrows = true; |
|
| 598 | + $corps = "\n\t\$t0 = str_repeat($corps, \$Numrows['$id_boucle']['total']);"; |
|
| 599 | + } |
|
| 600 | + } else { |
|
| 601 | + $corps = "while (\$Pile[\$SP]=\$iter->fetch()) {\n$corps\n }"; |
|
| 602 | + } |
|
| 603 | + |
|
| 604 | + $count = ''; |
|
| 605 | + if (!$boucle->select) { |
|
| 606 | + if (!$boucle->numrows || $boucle->limit || $boucle->mode_partie || $boucle->group) { |
|
| 607 | + $count = '1'; |
|
| 608 | + } else { |
|
| 609 | + $count = 'count(*)'; |
|
| 610 | + } |
|
| 611 | + $boucles[$id_boucle]->select[] = $count; |
|
| 612 | + } |
|
| 613 | + |
|
| 614 | + if ($flag_cpt) { |
|
| 615 | + $nums = "\n\t// COMPTEUR\n\t" |
|
| 616 | + . "\$Numrows['$id_boucle']['compteur_boucle'] = 0;\n\t"; |
|
| 617 | + } else { |
|
| 618 | + $nums = ''; |
|
| 619 | + } |
|
| 620 | + |
|
| 621 | + if ($boucle->numrows || $boucle->mode_partie) { |
|
| 622 | + $nums .= "\$Numrows['$id_boucle']['command'] = \$command;\n\t" |
|
| 623 | + . "\$Numrows['$id_boucle']['total'] = @intval(\$iter->count());" |
|
| 624 | + . $boucle->mode_partie |
|
| 625 | + . "\n\t"; |
|
| 626 | + } |
|
| 627 | + |
|
| 628 | + // Ne calculer la requete que maintenant |
|
| 629 | + // car ce qui precede appelle index_pile qui influe dessus |
|
| 630 | + |
|
| 631 | + $init = (($init = $boucles[$id_boucle]->doublons) |
|
| 632 | + ? ("\n\t$init = array();") : '') |
|
| 633 | + . calculer_requete_sql($boucles[$id_boucle]); |
|
| 634 | + |
|
| 635 | + $contexte = memoriser_contexte_compil($boucle); |
|
| 636 | + |
|
| 637 | + $a = sprintf( |
|
| 638 | + CODE_CORPS_BOUCLE, |
|
| 639 | + $init, |
|
| 640 | + $boucle->iterateur, |
|
| 641 | + '$command', |
|
| 642 | + $contexte, |
|
| 643 | + $nums, |
|
| 644 | + $init_lang, |
|
| 645 | + $corps, |
|
| 646 | + $fin_lang, |
|
| 647 | + $trace, |
|
| 648 | + 'BOUCLE' . $id_boucle . ' @ ' . ($boucle->descr['sourcefile']) |
|
| 649 | + ); |
|
| 650 | + |
|
| 651 | + return $a; |
|
| 652 | 652 | } |
| 653 | 653 | |
| 654 | 654 | |
@@ -664,48 +664,48 @@ discard block |
||
| 664 | 664 | * Code PHP compilé définissant les informations de requête |
| 665 | 665 | **/ |
| 666 | 666 | function calculer_requete_sql($boucle) { |
| 667 | - $init = []; |
|
| 668 | - $init[] = calculer_dec('table', "'" . $boucle->id_table . "'"); |
|
| 669 | - $init[] = calculer_dec('id', "'" . $boucle->id_boucle . "'"); |
|
| 670 | - # En absence de champ c'est un decompte : |
|
| 671 | - $init[] = calculer_dec('from', calculer_from($boucle)); |
|
| 672 | - $init[] = calculer_dec('type', calculer_from_type($boucle)); |
|
| 673 | - $init[] = calculer_dec( |
|
| 674 | - 'groupby', |
|
| 675 | - 'array(' . (($g = join("\",\n\t\t\"", $boucle->group)) ? '"' . $g . '"' : '') . ')' |
|
| 676 | - ); |
|
| 677 | - $init[] = calculer_dec('select', 'array("' . join("\",\n\t\t\"", $boucle->select) . '")'); |
|
| 678 | - $init[] = calculer_dec('orderby', 'array(' . calculer_order($boucle) . ')'); |
|
| 679 | - $init[] = calculer_dec('where', calculer_dump_array($boucle->where)); |
|
| 680 | - $init[] = calculer_dec('join', calculer_dump_join($boucle->join)); |
|
| 681 | - $init[] = calculer_dec( |
|
| 682 | - 'limit', |
|
| 683 | - ( |
|
| 684 | - !str_contains($boucle->limit, 'intval') ? |
|
| 685 | - "'" . ($boucle->limit) . "'" : |
|
| 686 | - $boucle->limit |
|
| 687 | - ) |
|
| 688 | - ); |
|
| 689 | - $init[] = calculer_dec('having', calculer_dump_array($boucle->having)); |
|
| 690 | - $s = $d = ''; |
|
| 691 | - // l'index 0 de $i indique si l'affectation est statique (contenu) |
|
| 692 | - // ou recalculée à chaque passage (vide) |
|
| 693 | - foreach ($init as $i) { |
|
| 694 | - if (reset($i)) { |
|
| 695 | - $s .= "\n\t\t" . end($i); |
|
| 696 | - } # statique |
|
| 697 | - else { |
|
| 698 | - $d .= "\n\t" . end($i); |
|
| 699 | - } # dynamique |
|
| 700 | - } |
|
| 701 | - |
|
| 702 | - return ($boucle->hierarchie ? "\n\t$boucle->hierarchie" : '') |
|
| 703 | - . $boucle->in |
|
| 704 | - . $boucle->hash |
|
| 705 | - . "\n\t" . 'if (!isset($command[\'table\'])) {' |
|
| 706 | - . $s |
|
| 707 | - . "\n\t}" |
|
| 708 | - . $d; |
|
| 667 | + $init = []; |
|
| 668 | + $init[] = calculer_dec('table', "'" . $boucle->id_table . "'"); |
|
| 669 | + $init[] = calculer_dec('id', "'" . $boucle->id_boucle . "'"); |
|
| 670 | + # En absence de champ c'est un decompte : |
|
| 671 | + $init[] = calculer_dec('from', calculer_from($boucle)); |
|
| 672 | + $init[] = calculer_dec('type', calculer_from_type($boucle)); |
|
| 673 | + $init[] = calculer_dec( |
|
| 674 | + 'groupby', |
|
| 675 | + 'array(' . (($g = join("\",\n\t\t\"", $boucle->group)) ? '"' . $g . '"' : '') . ')' |
|
| 676 | + ); |
|
| 677 | + $init[] = calculer_dec('select', 'array("' . join("\",\n\t\t\"", $boucle->select) . '")'); |
|
| 678 | + $init[] = calculer_dec('orderby', 'array(' . calculer_order($boucle) . ')'); |
|
| 679 | + $init[] = calculer_dec('where', calculer_dump_array($boucle->where)); |
|
| 680 | + $init[] = calculer_dec('join', calculer_dump_join($boucle->join)); |
|
| 681 | + $init[] = calculer_dec( |
|
| 682 | + 'limit', |
|
| 683 | + ( |
|
| 684 | + !str_contains($boucle->limit, 'intval') ? |
|
| 685 | + "'" . ($boucle->limit) . "'" : |
|
| 686 | + $boucle->limit |
|
| 687 | + ) |
|
| 688 | + ); |
|
| 689 | + $init[] = calculer_dec('having', calculer_dump_array($boucle->having)); |
|
| 690 | + $s = $d = ''; |
|
| 691 | + // l'index 0 de $i indique si l'affectation est statique (contenu) |
|
| 692 | + // ou recalculée à chaque passage (vide) |
|
| 693 | + foreach ($init as $i) { |
|
| 694 | + if (reset($i)) { |
|
| 695 | + $s .= "\n\t\t" . end($i); |
|
| 696 | + } # statique |
|
| 697 | + else { |
|
| 698 | + $d .= "\n\t" . end($i); |
|
| 699 | + } # dynamique |
|
| 700 | + } |
|
| 701 | + |
|
| 702 | + return ($boucle->hierarchie ? "\n\t$boucle->hierarchie" : '') |
|
| 703 | + . $boucle->in |
|
| 704 | + . $boucle->hash |
|
| 705 | + . "\n\t" . 'if (!isset($command[\'table\'])) {' |
|
| 706 | + . $s |
|
| 707 | + . "\n\t}" |
|
| 708 | + . $d; |
|
| 709 | 709 | } |
| 710 | 710 | |
| 711 | 711 | /** |
@@ -723,13 +723,13 @@ discard block |
||
| 723 | 723 | * qui peut être utilisé pour la production d'un tableau array() |
| 724 | 724 | **/ |
| 725 | 725 | function memoriser_contexte_compil($p) { |
| 726 | - return join(',', [ |
|
| 727 | - _q($p->descr['sourcefile'] ?? ''), |
|
| 728 | - _q($p->descr['nom'] ?? ''), |
|
| 729 | - _q($p->id_boucle ?? ''), |
|
| 730 | - intval($p->ligne), |
|
| 731 | - '$GLOBALS[\'spip_lang\']' |
|
| 732 | - ]); |
|
| 726 | + return join(',', [ |
|
| 727 | + _q($p->descr['sourcefile'] ?? ''), |
|
| 728 | + _q($p->descr['nom'] ?? ''), |
|
| 729 | + _q($p->id_boucle ?? ''), |
|
| 730 | + intval($p->ligne), |
|
| 731 | + '$GLOBALS[\'spip_lang\']' |
|
| 732 | + ]); |
|
| 733 | 733 | } |
| 734 | 734 | |
| 735 | 735 | /** |
@@ -747,20 +747,20 @@ discard block |
||
| 747 | 747 | * Objet Contexte |
| 748 | 748 | **/ |
| 749 | 749 | function reconstruire_contexte_compil($context_compil) { |
| 750 | - if (!is_array($context_compil)) { |
|
| 751 | - return $context_compil; |
|
| 752 | - } |
|
| 753 | - $p = new Contexte(); |
|
| 754 | - $p->descr = [ |
|
| 755 | - 'sourcefile' => $context_compil[0] ?? '', |
|
| 756 | - 'nom' => $context_compil[1] ?? '', |
|
| 757 | - ]; |
|
| 758 | - |
|
| 759 | - $p->id_boucle = $context_compil[2] ?? ''; |
|
| 760 | - $p->ligne = (int)($context_compil[3] ?? 0); |
|
| 761 | - $p->lang = $context_compil[4] ?? ''; |
|
| 762 | - |
|
| 763 | - return $p; |
|
| 750 | + if (!is_array($context_compil)) { |
|
| 751 | + return $context_compil; |
|
| 752 | + } |
|
| 753 | + $p = new Contexte(); |
|
| 754 | + $p->descr = [ |
|
| 755 | + 'sourcefile' => $context_compil[0] ?? '', |
|
| 756 | + 'nom' => $context_compil[1] ?? '', |
|
| 757 | + ]; |
|
| 758 | + |
|
| 759 | + $p->id_boucle = $context_compil[2] ?? ''; |
|
| 760 | + $p->ligne = (int)($context_compil[3] ?? 0); |
|
| 761 | + $p->lang = $context_compil[4] ?? ''; |
|
| 762 | + |
|
| 763 | + return $p; |
|
| 764 | 764 | } |
| 765 | 765 | |
| 766 | 766 | /** |
@@ -786,12 +786,12 @@ discard block |
||
| 786 | 786 | * - index 1 : Code de l'affectation |
| 787 | 787 | **/ |
| 788 | 788 | function calculer_dec($nom, $val) { |
| 789 | - $static = 'if (!isset($command[\'' . $nom . '\'])) '; |
|
| 790 | - // si une variable apparait dans le calcul de la clause |
|
| 791 | - // il faut la re-evaluer a chaque passage |
|
| 792 | - if ( |
|
| 793 | - str_contains($val, '$') |
|
| 794 | - /* |
|
| 789 | + $static = 'if (!isset($command[\'' . $nom . '\'])) '; |
|
| 790 | + // si une variable apparait dans le calcul de la clause |
|
| 791 | + // il faut la re-evaluer a chaque passage |
|
| 792 | + if ( |
|
| 793 | + str_contains($val, '$') |
|
| 794 | + /* |
|
| 795 | 795 | OR str_contains($val, 'sql_') |
| 796 | 796 | OR ( |
| 797 | 797 | $test = str_replace(array("array(",'\"',"\'"),array("","",""),$val) // supprimer les array( et les echappements de guillemets |
@@ -799,11 +799,11 @@ discard block |
||
| 799 | 799 | AND $test = preg_replace(",'[^']*',UimsS","",$test) // supprimer les chaines qui peuvent contenir des fonctions SQL qui ne genent pas |
| 800 | 800 | AND preg_match(",\w+\s*\(,UimsS",$test,$regs) // tester la presence de fonctions restantes |
| 801 | 801 | )*/ |
| 802 | - ) { |
|
| 803 | - $static = ''; |
|
| 804 | - } |
|
| 802 | + ) { |
|
| 803 | + $static = ''; |
|
| 804 | + } |
|
| 805 | 805 | |
| 806 | - return [$static, '$command[\'' . $nom . '\'] = ' . $val . ';']; |
|
| 806 | + return [$static, '$command[\'' . $nom . '\'] = ' . $val . ';']; |
|
| 807 | 807 | } |
| 808 | 808 | |
| 809 | 809 | /** |
@@ -823,32 +823,32 @@ discard block |
||
| 823 | 823 | * Expression PHP décrivant un texte ou un tableau |
| 824 | 824 | **/ |
| 825 | 825 | function calculer_dump_array($a) { |
| 826 | - if (!is_array($a)) { |
|
| 827 | - return $a; |
|
| 828 | - } |
|
| 829 | - $res = ''; |
|
| 830 | - if ($a && $a[0] == "'?'") { |
|
| 831 | - return ('(' . calculer_dump_array($a[1]) . |
|
| 832 | - ' ? ' . calculer_dump_array($a[2]) . |
|
| 833 | - ' : ' . calculer_dump_array($a[3]) . |
|
| 834 | - ')'); |
|
| 835 | - } else { |
|
| 836 | - foreach ($a as $k => $v) { |
|
| 837 | - $showk = (is_numeric($k) ? '' : sql_quote($k) . ' => '); |
|
| 838 | - $res .= ', ' . $showk . calculer_dump_array($v); |
|
| 839 | - } |
|
| 840 | - |
|
| 841 | - return "\n\t\t\tarray(" . substr($res, 2) . ')'; |
|
| 842 | - } |
|
| 826 | + if (!is_array($a)) { |
|
| 827 | + return $a; |
|
| 828 | + } |
|
| 829 | + $res = ''; |
|
| 830 | + if ($a && $a[0] == "'?'") { |
|
| 831 | + return ('(' . calculer_dump_array($a[1]) . |
|
| 832 | + ' ? ' . calculer_dump_array($a[2]) . |
|
| 833 | + ' : ' . calculer_dump_array($a[3]) . |
|
| 834 | + ')'); |
|
| 835 | + } else { |
|
| 836 | + foreach ($a as $k => $v) { |
|
| 837 | + $showk = (is_numeric($k) ? '' : sql_quote($k) . ' => '); |
|
| 838 | + $res .= ', ' . $showk . calculer_dump_array($v); |
|
| 839 | + } |
|
| 840 | + |
|
| 841 | + return "\n\t\t\tarray(" . substr($res, 2) . ')'; |
|
| 842 | + } |
|
| 843 | 843 | } |
| 844 | 844 | |
| 845 | 845 | function calculer_dump_join($a) { |
| 846 | - $res = ''; |
|
| 847 | - foreach ($a as $k => $v) { |
|
| 848 | - $res .= ", '$k' => array(" . implode(',', $v) . ')'; |
|
| 849 | - } |
|
| 846 | + $res = ''; |
|
| 847 | + foreach ($a as $k => $v) { |
|
| 848 | + $res .= ", '$k' => array(" . implode(',', $v) . ')'; |
|
| 849 | + } |
|
| 850 | 850 | |
| 851 | - return 'array(' . substr($res, 2) . ')'; |
|
| 851 | + return 'array(' . substr($res, 2) . ')'; |
|
| 852 | 852 | } |
| 853 | 853 | |
| 854 | 854 | /** |
@@ -860,12 +860,12 @@ discard block |
||
| 860 | 860 | * Code PHP construisant un tableau des alias et noms des tables du FROM |
| 861 | 861 | **/ |
| 862 | 862 | function calculer_from(&$boucle) { |
| 863 | - $res = ''; |
|
| 864 | - foreach ($boucle->from as $k => $v) { |
|
| 865 | - $res .= ",'$k' => '$v'"; |
|
| 866 | - } |
|
| 863 | + $res = ''; |
|
| 864 | + foreach ($boucle->from as $k => $v) { |
|
| 865 | + $res .= ",'$k' => '$v'"; |
|
| 866 | + } |
|
| 867 | 867 | |
| 868 | - return 'array(' . substr($res, 1) . ')'; |
|
| 868 | + return 'array(' . substr($res, 1) . ')'; |
|
| 869 | 869 | } |
| 870 | 870 | |
| 871 | 871 | /** |
@@ -878,30 +878,30 @@ discard block |
||
| 878 | 878 | * Code PHP construisant un tableau des alias et type de jointure du FROM |
| 879 | 879 | **/ |
| 880 | 880 | function calculer_from_type(&$boucle) { |
| 881 | - $res = ''; |
|
| 882 | - foreach ($boucle->from_type as $k => $v) { |
|
| 883 | - $res .= ",'$k' => '$v'"; |
|
| 884 | - } |
|
| 881 | + $res = ''; |
|
| 882 | + foreach ($boucle->from_type as $k => $v) { |
|
| 883 | + $res .= ",'$k' => '$v'"; |
|
| 884 | + } |
|
| 885 | 885 | |
| 886 | - return 'array(' . substr($res, 1) . ')'; |
|
| 886 | + return 'array(' . substr($res, 1) . ')'; |
|
| 887 | 887 | } |
| 888 | 888 | |
| 889 | 889 | function calculer_order(&$boucle) { |
| 890 | - if ( |
|
| 891 | - !($order = $boucle->order) |
|
| 892 | - && !($order = $boucle->default_order) |
|
| 893 | - ) { |
|
| 894 | - $order = []; |
|
| 895 | - } |
|
| 896 | - |
|
| 897 | - /*if (isset($boucle->modificateur['collate'])){ |
|
| 890 | + if ( |
|
| 891 | + !($order = $boucle->order) |
|
| 892 | + && !($order = $boucle->default_order) |
|
| 893 | + ) { |
|
| 894 | + $order = []; |
|
| 895 | + } |
|
| 896 | + |
|
| 897 | + /*if (isset($boucle->modificateur['collate'])){ |
|
| 898 | 898 | $col = "." . $boucle->modificateur['collate']; |
| 899 | 899 | foreach($order as $k=>$o) |
| 900 | 900 | if (strpos($order[$k],'COLLATE')===false) |
| 901 | 901 | $order[$k].= $col; |
| 902 | 902 | }*/ |
| 903 | 903 | |
| 904 | - return join(', ', $order); |
|
| 904 | + return join(', ', $order); |
|
| 905 | 905 | } |
| 906 | 906 | |
| 907 | 907 | // Production du code PHP a partir de la sequence livree par le phraseur |
@@ -910,62 +910,62 @@ discard block |
||
| 910 | 910 | // (qui sera argument d'un Return ou la partie droite d'une affectation). |
| 911 | 911 | |
| 912 | 912 | function calculer_liste($tableau, $descr, &$boucles, $id_boucle = '') { |
| 913 | - if (!$tableau) { |
|
| 914 | - return "''"; |
|
| 915 | - } |
|
| 916 | - if (is_string($descr)) { |
|
| 917 | - if (isset($boucles[$descr])) { |
|
| 918 | - $idb = $descr; |
|
| 919 | - $descr = []; |
|
| 920 | - if (isset($boucles[$idb]->descr['id_mere_contexte'])) { |
|
| 921 | - $descr['id_mere'] = $boucles[$idb]->descr['id_mere_contexte']; |
|
| 922 | - } |
|
| 923 | - if (isset($boucles[$idb]->descr['sourcefile'])) { |
|
| 924 | - $descr['sourcefile'] = $boucles[$idb]->descr['sourcefile']; |
|
| 925 | - } |
|
| 926 | - } |
|
| 927 | - else { |
|
| 928 | - $descr = []; |
|
| 929 | - } |
|
| 930 | - } |
|
| 931 | - if (!isset($descr['niv'])) { |
|
| 932 | - $descr['niv'] = 0; |
|
| 933 | - } |
|
| 934 | - $codes = compile_cas($tableau, $descr, $boucles, $id_boucle); |
|
| 935 | - if ($codes === false) { |
|
| 936 | - return false; |
|
| 937 | - } |
|
| 938 | - $n = is_countable($codes) ? count($codes) : 0; |
|
| 939 | - if (!$n) { |
|
| 940 | - return "''"; |
|
| 941 | - } |
|
| 942 | - $tab = str_repeat("\t", $descr['niv']); |
|
| 943 | - if (_request('var_mode_affiche') != 'validation') { |
|
| 944 | - if ($n == 1) { |
|
| 945 | - return $codes[0]; |
|
| 946 | - } else { |
|
| 947 | - $res = ''; |
|
| 948 | - foreach ($codes as $code) { |
|
| 949 | - if ( |
|
| 950 | - !preg_match("/^'[^']*'$/", $code) |
|
| 951 | - || !str_ends_with($res, "'") |
|
| 952 | - ) { |
|
| 953 | - $res .= " .\n$tab$code"; |
|
| 954 | - } else { |
|
| 955 | - $res = substr($res, 0, -1) . substr($code, 1); |
|
| 956 | - } |
|
| 957 | - } |
|
| 958 | - |
|
| 959 | - return '(' . substr($res, 2 + $descr['niv']) . ')'; |
|
| 960 | - } |
|
| 961 | - } else { |
|
| 962 | - $nom = $descr['nom'] . $id_boucle . ($descr['niv'] ?: ''); |
|
| 963 | - |
|
| 964 | - return "join('', array_map('array_shift', \$GLOBALS['debug_objets']['sequence']['$nom'] = array(" . join( |
|
| 965 | - " ,\n$tab", |
|
| 966 | - $codes |
|
| 967 | - ) . ')))'; |
|
| 968 | - } |
|
| 913 | + if (!$tableau) { |
|
| 914 | + return "''"; |
|
| 915 | + } |
|
| 916 | + if (is_string($descr)) { |
|
| 917 | + if (isset($boucles[$descr])) { |
|
| 918 | + $idb = $descr; |
|
| 919 | + $descr = []; |
|
| 920 | + if (isset($boucles[$idb]->descr['id_mere_contexte'])) { |
|
| 921 | + $descr['id_mere'] = $boucles[$idb]->descr['id_mere_contexte']; |
|
| 922 | + } |
|
| 923 | + if (isset($boucles[$idb]->descr['sourcefile'])) { |
|
| 924 | + $descr['sourcefile'] = $boucles[$idb]->descr['sourcefile']; |
|
| 925 | + } |
|
| 926 | + } |
|
| 927 | + else { |
|
| 928 | + $descr = []; |
|
| 929 | + } |
|
| 930 | + } |
|
| 931 | + if (!isset($descr['niv'])) { |
|
| 932 | + $descr['niv'] = 0; |
|
| 933 | + } |
|
| 934 | + $codes = compile_cas($tableau, $descr, $boucles, $id_boucle); |
|
| 935 | + if ($codes === false) { |
|
| 936 | + return false; |
|
| 937 | + } |
|
| 938 | + $n = is_countable($codes) ? count($codes) : 0; |
|
| 939 | + if (!$n) { |
|
| 940 | + return "''"; |
|
| 941 | + } |
|
| 942 | + $tab = str_repeat("\t", $descr['niv']); |
|
| 943 | + if (_request('var_mode_affiche') != 'validation') { |
|
| 944 | + if ($n == 1) { |
|
| 945 | + return $codes[0]; |
|
| 946 | + } else { |
|
| 947 | + $res = ''; |
|
| 948 | + foreach ($codes as $code) { |
|
| 949 | + if ( |
|
| 950 | + !preg_match("/^'[^']*'$/", $code) |
|
| 951 | + || !str_ends_with($res, "'") |
|
| 952 | + ) { |
|
| 953 | + $res .= " .\n$tab$code"; |
|
| 954 | + } else { |
|
| 955 | + $res = substr($res, 0, -1) . substr($code, 1); |
|
| 956 | + } |
|
| 957 | + } |
|
| 958 | + |
|
| 959 | + return '(' . substr($res, 2 + $descr['niv']) . ')'; |
|
| 960 | + } |
|
| 961 | + } else { |
|
| 962 | + $nom = $descr['nom'] . $id_boucle . ($descr['niv'] ?: ''); |
|
| 963 | + |
|
| 964 | + return "join('', array_map('array_shift', \$GLOBALS['debug_objets']['sequence']['$nom'] = array(" . join( |
|
| 965 | + " ,\n$tab", |
|
| 966 | + $codes |
|
| 967 | + ) . ')))'; |
|
| 968 | + } |
|
| 969 | 969 | } |
| 970 | 970 | |
| 971 | 971 | |
@@ -984,212 +984,212 @@ discard block |
||
| 984 | 984 | */ |
| 985 | 985 | function compile_cas($tableau, $descr, &$boucles, $id_boucle) { |
| 986 | 986 | |
| 987 | - $codes = []; |
|
| 988 | - // cas de la boucle recursive |
|
| 989 | - if (is_array($id_boucle)) { |
|
| 990 | - $id_boucle = $id_boucle[0]; |
|
| 991 | - } |
|
| 992 | - $type = !$id_boucle ? '' : $boucles[$id_boucle]->type_requete; |
|
| 993 | - $tab = str_repeat("\t", ++$descr['niv']); |
|
| 994 | - $mode = _request('var_mode_affiche'); |
|
| 995 | - $err_e_c = ''; |
|
| 996 | - // chaque commentaire introduit dans le code doit commencer |
|
| 997 | - // par un caractere distinguant le cas, pour exploitation par debug. |
|
| 998 | - foreach ($tableau as $p) { |
|
| 999 | - switch ($p->type) { |
|
| 1000 | - // texte seul |
|
| 1001 | - case 'texte': |
|
| 1002 | - $code = sandbox_composer_texte($p->texte, $p); |
|
| 1003 | - $commentaire = strlen($p->texte) . ' signes'; |
|
| 1004 | - $avant = ''; |
|
| 1005 | - $apres = ''; |
|
| 1006 | - $altern = "''"; |
|
| 1007 | - break; |
|
| 1008 | - |
|
| 1009 | - case 'polyglotte': |
|
| 1010 | - $code = ''; |
|
| 1011 | - foreach ($p->traductions as $k => $v) { |
|
| 1012 | - $code .= ",'" . |
|
| 1013 | - str_replace(['\\', "'"], ['\\\\', "\\'"], $k) . |
|
| 1014 | - "' => '" . |
|
| 1015 | - str_replace(['\\', "'"], ['\\\\', "\\'"], $v) . |
|
| 1016 | - "'"; |
|
| 1017 | - } |
|
| 1018 | - $code = 'choisir_traduction(array(' . |
|
| 1019 | - substr($code, 1) . |
|
| 1020 | - '))'; |
|
| 1021 | - $commentaire = '&'; |
|
| 1022 | - $avant = ''; |
|
| 1023 | - $apres = ''; |
|
| 1024 | - $altern = "''"; |
|
| 1025 | - break; |
|
| 1026 | - |
|
| 1027 | - // inclure |
|
| 1028 | - case 'include': |
|
| 1029 | - $p->descr = $descr; |
|
| 1030 | - $code = calculer_inclure($p, $boucles, $id_boucle); |
|
| 1031 | - if ($code === false) { |
|
| 1032 | - $err_e_c = true; |
|
| 1033 | - $code = "''"; |
|
| 1034 | - } else { |
|
| 1035 | - $commentaire = '<INCLURE ' . addslashes(str_replace("\n", ' ', $code)) . '>'; |
|
| 1036 | - $avant = ''; |
|
| 1037 | - $apres = ''; |
|
| 1038 | - $altern = "''"; |
|
| 1039 | - } |
|
| 1040 | - break; |
|
| 1041 | - |
|
| 1042 | - // boucle |
|
| 1043 | - case TYPE_RECURSIF: |
|
| 1044 | - $nom = $p->id_boucle; |
|
| 1045 | - $newdescr = $descr; |
|
| 1046 | - $newdescr['id_mere'] = $nom; |
|
| 1047 | - $newdescr['niv']++; |
|
| 1048 | - $preaff = calculer_liste($p->preaff, $newdescr, $boucles, $id_boucle); |
|
| 1049 | - $avant = calculer_liste($p->avant, $newdescr, $boucles, $id_boucle); |
|
| 1050 | - $apres = calculer_liste($p->apres, $newdescr, $boucles, $id_boucle); |
|
| 1051 | - $postaff = calculer_liste($p->postaff, $newdescr, $boucles, $id_boucle); |
|
| 1052 | - $newdescr['niv']--; |
|
| 1053 | - $altern = calculer_liste($p->altern, $newdescr, $boucles, $id_boucle); |
|
| 1054 | - if ( |
|
| 1055 | - $preaff === false |
|
| 1056 | - || $avant === false |
|
| 1057 | - || $apres === false |
|
| 1058 | - || $altern === false |
|
| 1059 | - || $postaff === false |
|
| 1060 | - ) { |
|
| 1061 | - $err_e_c = true; |
|
| 1062 | - $code = "''"; |
|
| 1063 | - } else { |
|
| 1064 | - $code = 'BOUCLE' . |
|
| 1065 | - str_replace('-', '_', $nom) . $descr['nom'] . |
|
| 1066 | - '($Cache, $Pile, $doublons, $Numrows, $SP)'; |
|
| 1067 | - $commentaire = "?$nom"; |
|
| 1068 | - if ( |
|
| 1069 | - !$boucles[$nom]->milieu |
|
| 1070 | - && $boucles[$nom]->type_requete <> TYPE_RECURSIF |
|
| 1071 | - ) { |
|
| 1072 | - if ($preaff != "''") { |
|
| 1073 | - $code .= "\n. $preaff"; |
|
| 1074 | - } |
|
| 1075 | - if ($altern != "''") { |
|
| 1076 | - $code .= "\n. $altern"; |
|
| 1077 | - } |
|
| 1078 | - if ($postaff != "''") { |
|
| 1079 | - $code .= "\n. $postaff"; |
|
| 1080 | - } |
|
| 1081 | - if ($avant <> "''" || $apres <> "''") { |
|
| 1082 | - spip_log("boucle $nom toujours vide, code superflu dans $descr[sourcefile]"); |
|
| 1083 | - } |
|
| 1084 | - $avant = $apres = $altern = "''"; |
|
| 1085 | - } else { |
|
| 1086 | - if ($preaff != "''") { |
|
| 1087 | - $avant = compile_concatene_parties_codes($preaff, $avant); |
|
| 1088 | - $altern = compile_concatene_parties_codes($preaff, $altern); |
|
| 1089 | - } |
|
| 1090 | - if ($postaff != "''") { |
|
| 1091 | - $apres = compile_concatene_parties_codes($apres, $postaff); |
|
| 1092 | - $altern = compile_concatene_parties_codes($altern, $postaff); |
|
| 1093 | - } |
|
| 1094 | - if ($altern != "''") { |
|
| 1095 | - $altern = "($altern)"; |
|
| 1096 | - } |
|
| 1097 | - } |
|
| 1098 | - } |
|
| 1099 | - break; |
|
| 1100 | - |
|
| 1101 | - case 'idiome': |
|
| 1102 | - $l = []; |
|
| 1103 | - $code = ''; |
|
| 1104 | - foreach ($p->arg as $k => $v) { |
|
| 1105 | - $_v = calculer_liste($v, $descr, $boucles, $id_boucle); |
|
| 1106 | - if ($k) { |
|
| 1107 | - $l[] = _q($k) . ' => ' . $_v; |
|
| 1108 | - } else { |
|
| 1109 | - $code = $_v; |
|
| 1110 | - } |
|
| 1111 | - } |
|
| 1112 | - // Si le module n'est pas fourni, l'expliciter sauf si calculé |
|
| 1113 | - if ($p->module) { |
|
| 1114 | - $m = $p->module . ':' . $p->nom_champ; |
|
| 1115 | - } elseif ($p->nom_champ) { |
|
| 1116 | - $m = MODULES_IDIOMES . ':' . $p->nom_champ; |
|
| 1117 | - } else { |
|
| 1118 | - $m = ''; |
|
| 1119 | - } |
|
| 1120 | - |
|
| 1121 | - $code = (!$code ? "'$m'" : |
|
| 1122 | - ($m ? "'$m' . $code" : |
|
| 1123 | - ("(strpos(\$x=$code, ':') ? \$x : ('" . MODULES_IDIOMES . ":' . \$x))"))) |
|
| 1124 | - . (!$l ? '' : (', array(' . implode(",\n", $l) . ')')); |
|
| 1125 | - $code = "_T($code)"; |
|
| 1126 | - if ($p->param) { |
|
| 1127 | - $p->id_boucle = $id_boucle; |
|
| 1128 | - $p->boucles = &$boucles; |
|
| 1129 | - $code = compose_filtres($p, $code); |
|
| 1130 | - } |
|
| 1131 | - $commentaire = ':'; |
|
| 1132 | - $avant = ''; |
|
| 1133 | - $apres = ''; |
|
| 1134 | - $altern = "''"; |
|
| 1135 | - break; |
|
| 1136 | - |
|
| 1137 | - case 'champ': |
|
| 1138 | - // cette structure pourrait etre completee des le phrase' (a faire) |
|
| 1139 | - $p->id_boucle = $id_boucle; |
|
| 1140 | - $p->boucles = &$boucles; |
|
| 1141 | - $p->descr = $descr; |
|
| 1142 | - #$p->interdire_scripts = true; |
|
| 1143 | - $p->type_requete = $type; |
|
| 1144 | - |
|
| 1145 | - $code = calculer_champ($p); |
|
| 1146 | - $commentaire = '#' . $p->nom_champ . $p->etoile; |
|
| 1147 | - $avant = calculer_liste( |
|
| 1148 | - $p->avant, |
|
| 1149 | - $descr, |
|
| 1150 | - $boucles, |
|
| 1151 | - $id_boucle |
|
| 1152 | - ); |
|
| 1153 | - $apres = calculer_liste( |
|
| 1154 | - $p->apres, |
|
| 1155 | - $descr, |
|
| 1156 | - $boucles, |
|
| 1157 | - $id_boucle |
|
| 1158 | - ); |
|
| 1159 | - $altern = "''"; |
|
| 1160 | - // Si la valeur est destinee a une comparaison a '' |
|
| 1161 | - // forcer la conversion en une chaine par strval |
|
| 1162 | - // si ca peut etre autre chose qu'une chaine |
|
| 1163 | - if ( |
|
| 1164 | - ($avant != "''" || $apres != "''") |
|
| 1165 | - && $code[0] != "'" |
|
| 1166 | - && !preg_match(_REGEXP_COND_VIDE_NONVIDE, $code) |
|
| 1167 | - && !preg_match(_REGEXP_COND_NONVIDE_VIDE, $code) |
|
| 1168 | - && !preg_match(_REGEXP_CONCAT_NON_VIDE, $code) |
|
| 1169 | - ) { |
|
| 1170 | - $code = "strval($code)"; |
|
| 1171 | - } |
|
| 1172 | - break; |
|
| 1173 | - |
|
| 1174 | - default: |
|
| 1175 | - // Erreur de construction de l'arbre de syntaxe abstraite |
|
| 1176 | - $code = "''"; |
|
| 1177 | - $p->descr = $descr; |
|
| 1178 | - $err_e_c = _T('zbug_erreur_compilation'); |
|
| 1179 | - erreur_squelette($err_e_c, $p); |
|
| 1180 | - } // switch |
|
| 1181 | - |
|
| 1182 | - if ($code != "''") { |
|
| 1183 | - $code = compile_retour($code, $avant, $apres, $altern, $tab, $descr['niv']); |
|
| 1184 | - $codes[] = (($mode == 'validation') ? |
|
| 1185 | - "array($code, '$commentaire', " . $p->ligne . ')' |
|
| 1186 | - : (($mode == 'code') ? |
|
| 1187 | - "\n// $commentaire\n$code" : |
|
| 1188 | - $code)); |
|
| 1189 | - } |
|
| 1190 | - } // foreach |
|
| 1191 | - |
|
| 1192 | - return $err_e_c ? false : $codes; |
|
| 987 | + $codes = []; |
|
| 988 | + // cas de la boucle recursive |
|
| 989 | + if (is_array($id_boucle)) { |
|
| 990 | + $id_boucle = $id_boucle[0]; |
|
| 991 | + } |
|
| 992 | + $type = !$id_boucle ? '' : $boucles[$id_boucle]->type_requete; |
|
| 993 | + $tab = str_repeat("\t", ++$descr['niv']); |
|
| 994 | + $mode = _request('var_mode_affiche'); |
|
| 995 | + $err_e_c = ''; |
|
| 996 | + // chaque commentaire introduit dans le code doit commencer |
|
| 997 | + // par un caractere distinguant le cas, pour exploitation par debug. |
|
| 998 | + foreach ($tableau as $p) { |
|
| 999 | + switch ($p->type) { |
|
| 1000 | + // texte seul |
|
| 1001 | + case 'texte': |
|
| 1002 | + $code = sandbox_composer_texte($p->texte, $p); |
|
| 1003 | + $commentaire = strlen($p->texte) . ' signes'; |
|
| 1004 | + $avant = ''; |
|
| 1005 | + $apres = ''; |
|
| 1006 | + $altern = "''"; |
|
| 1007 | + break; |
|
| 1008 | + |
|
| 1009 | + case 'polyglotte': |
|
| 1010 | + $code = ''; |
|
| 1011 | + foreach ($p->traductions as $k => $v) { |
|
| 1012 | + $code .= ",'" . |
|
| 1013 | + str_replace(['\\', "'"], ['\\\\', "\\'"], $k) . |
|
| 1014 | + "' => '" . |
|
| 1015 | + str_replace(['\\', "'"], ['\\\\', "\\'"], $v) . |
|
| 1016 | + "'"; |
|
| 1017 | + } |
|
| 1018 | + $code = 'choisir_traduction(array(' . |
|
| 1019 | + substr($code, 1) . |
|
| 1020 | + '))'; |
|
| 1021 | + $commentaire = '&'; |
|
| 1022 | + $avant = ''; |
|
| 1023 | + $apres = ''; |
|
| 1024 | + $altern = "''"; |
|
| 1025 | + break; |
|
| 1026 | + |
|
| 1027 | + // inclure |
|
| 1028 | + case 'include': |
|
| 1029 | + $p->descr = $descr; |
|
| 1030 | + $code = calculer_inclure($p, $boucles, $id_boucle); |
|
| 1031 | + if ($code === false) { |
|
| 1032 | + $err_e_c = true; |
|
| 1033 | + $code = "''"; |
|
| 1034 | + } else { |
|
| 1035 | + $commentaire = '<INCLURE ' . addslashes(str_replace("\n", ' ', $code)) . '>'; |
|
| 1036 | + $avant = ''; |
|
| 1037 | + $apres = ''; |
|
| 1038 | + $altern = "''"; |
|
| 1039 | + } |
|
| 1040 | + break; |
|
| 1041 | + |
|
| 1042 | + // boucle |
|
| 1043 | + case TYPE_RECURSIF: |
|
| 1044 | + $nom = $p->id_boucle; |
|
| 1045 | + $newdescr = $descr; |
|
| 1046 | + $newdescr['id_mere'] = $nom; |
|
| 1047 | + $newdescr['niv']++; |
|
| 1048 | + $preaff = calculer_liste($p->preaff, $newdescr, $boucles, $id_boucle); |
|
| 1049 | + $avant = calculer_liste($p->avant, $newdescr, $boucles, $id_boucle); |
|
| 1050 | + $apres = calculer_liste($p->apres, $newdescr, $boucles, $id_boucle); |
|
| 1051 | + $postaff = calculer_liste($p->postaff, $newdescr, $boucles, $id_boucle); |
|
| 1052 | + $newdescr['niv']--; |
|
| 1053 | + $altern = calculer_liste($p->altern, $newdescr, $boucles, $id_boucle); |
|
| 1054 | + if ( |
|
| 1055 | + $preaff === false |
|
| 1056 | + || $avant === false |
|
| 1057 | + || $apres === false |
|
| 1058 | + || $altern === false |
|
| 1059 | + || $postaff === false |
|
| 1060 | + ) { |
|
| 1061 | + $err_e_c = true; |
|
| 1062 | + $code = "''"; |
|
| 1063 | + } else { |
|
| 1064 | + $code = 'BOUCLE' . |
|
| 1065 | + str_replace('-', '_', $nom) . $descr['nom'] . |
|
| 1066 | + '($Cache, $Pile, $doublons, $Numrows, $SP)'; |
|
| 1067 | + $commentaire = "?$nom"; |
|
| 1068 | + if ( |
|
| 1069 | + !$boucles[$nom]->milieu |
|
| 1070 | + && $boucles[$nom]->type_requete <> TYPE_RECURSIF |
|
| 1071 | + ) { |
|
| 1072 | + if ($preaff != "''") { |
|
| 1073 | + $code .= "\n. $preaff"; |
|
| 1074 | + } |
|
| 1075 | + if ($altern != "''") { |
|
| 1076 | + $code .= "\n. $altern"; |
|
| 1077 | + } |
|
| 1078 | + if ($postaff != "''") { |
|
| 1079 | + $code .= "\n. $postaff"; |
|
| 1080 | + } |
|
| 1081 | + if ($avant <> "''" || $apres <> "''") { |
|
| 1082 | + spip_log("boucle $nom toujours vide, code superflu dans $descr[sourcefile]"); |
|
| 1083 | + } |
|
| 1084 | + $avant = $apres = $altern = "''"; |
|
| 1085 | + } else { |
|
| 1086 | + if ($preaff != "''") { |
|
| 1087 | + $avant = compile_concatene_parties_codes($preaff, $avant); |
|
| 1088 | + $altern = compile_concatene_parties_codes($preaff, $altern); |
|
| 1089 | + } |
|
| 1090 | + if ($postaff != "''") { |
|
| 1091 | + $apres = compile_concatene_parties_codes($apres, $postaff); |
|
| 1092 | + $altern = compile_concatene_parties_codes($altern, $postaff); |
|
| 1093 | + } |
|
| 1094 | + if ($altern != "''") { |
|
| 1095 | + $altern = "($altern)"; |
|
| 1096 | + } |
|
| 1097 | + } |
|
| 1098 | + } |
|
| 1099 | + break; |
|
| 1100 | + |
|
| 1101 | + case 'idiome': |
|
| 1102 | + $l = []; |
|
| 1103 | + $code = ''; |
|
| 1104 | + foreach ($p->arg as $k => $v) { |
|
| 1105 | + $_v = calculer_liste($v, $descr, $boucles, $id_boucle); |
|
| 1106 | + if ($k) { |
|
| 1107 | + $l[] = _q($k) . ' => ' . $_v; |
|
| 1108 | + } else { |
|
| 1109 | + $code = $_v; |
|
| 1110 | + } |
|
| 1111 | + } |
|
| 1112 | + // Si le module n'est pas fourni, l'expliciter sauf si calculé |
|
| 1113 | + if ($p->module) { |
|
| 1114 | + $m = $p->module . ':' . $p->nom_champ; |
|
| 1115 | + } elseif ($p->nom_champ) { |
|
| 1116 | + $m = MODULES_IDIOMES . ':' . $p->nom_champ; |
|
| 1117 | + } else { |
|
| 1118 | + $m = ''; |
|
| 1119 | + } |
|
| 1120 | + |
|
| 1121 | + $code = (!$code ? "'$m'" : |
|
| 1122 | + ($m ? "'$m' . $code" : |
|
| 1123 | + ("(strpos(\$x=$code, ':') ? \$x : ('" . MODULES_IDIOMES . ":' . \$x))"))) |
|
| 1124 | + . (!$l ? '' : (', array(' . implode(",\n", $l) . ')')); |
|
| 1125 | + $code = "_T($code)"; |
|
| 1126 | + if ($p->param) { |
|
| 1127 | + $p->id_boucle = $id_boucle; |
|
| 1128 | + $p->boucles = &$boucles; |
|
| 1129 | + $code = compose_filtres($p, $code); |
|
| 1130 | + } |
|
| 1131 | + $commentaire = ':'; |
|
| 1132 | + $avant = ''; |
|
| 1133 | + $apres = ''; |
|
| 1134 | + $altern = "''"; |
|
| 1135 | + break; |
|
| 1136 | + |
|
| 1137 | + case 'champ': |
|
| 1138 | + // cette structure pourrait etre completee des le phrase' (a faire) |
|
| 1139 | + $p->id_boucle = $id_boucle; |
|
| 1140 | + $p->boucles = &$boucles; |
|
| 1141 | + $p->descr = $descr; |
|
| 1142 | + #$p->interdire_scripts = true; |
|
| 1143 | + $p->type_requete = $type; |
|
| 1144 | + |
|
| 1145 | + $code = calculer_champ($p); |
|
| 1146 | + $commentaire = '#' . $p->nom_champ . $p->etoile; |
|
| 1147 | + $avant = calculer_liste( |
|
| 1148 | + $p->avant, |
|
| 1149 | + $descr, |
|
| 1150 | + $boucles, |
|
| 1151 | + $id_boucle |
|
| 1152 | + ); |
|
| 1153 | + $apres = calculer_liste( |
|
| 1154 | + $p->apres, |
|
| 1155 | + $descr, |
|
| 1156 | + $boucles, |
|
| 1157 | + $id_boucle |
|
| 1158 | + ); |
|
| 1159 | + $altern = "''"; |
|
| 1160 | + // Si la valeur est destinee a une comparaison a '' |
|
| 1161 | + // forcer la conversion en une chaine par strval |
|
| 1162 | + // si ca peut etre autre chose qu'une chaine |
|
| 1163 | + if ( |
|
| 1164 | + ($avant != "''" || $apres != "''") |
|
| 1165 | + && $code[0] != "'" |
|
| 1166 | + && !preg_match(_REGEXP_COND_VIDE_NONVIDE, $code) |
|
| 1167 | + && !preg_match(_REGEXP_COND_NONVIDE_VIDE, $code) |
|
| 1168 | + && !preg_match(_REGEXP_CONCAT_NON_VIDE, $code) |
|
| 1169 | + ) { |
|
| 1170 | + $code = "strval($code)"; |
|
| 1171 | + } |
|
| 1172 | + break; |
|
| 1173 | + |
|
| 1174 | + default: |
|
| 1175 | + // Erreur de construction de l'arbre de syntaxe abstraite |
|
| 1176 | + $code = "''"; |
|
| 1177 | + $p->descr = $descr; |
|
| 1178 | + $err_e_c = _T('zbug_erreur_compilation'); |
|
| 1179 | + erreur_squelette($err_e_c, $p); |
|
| 1180 | + } // switch |
|
| 1181 | + |
|
| 1182 | + if ($code != "''") { |
|
| 1183 | + $code = compile_retour($code, $avant, $apres, $altern, $tab, $descr['niv']); |
|
| 1184 | + $codes[] = (($mode == 'validation') ? |
|
| 1185 | + "array($code, '$commentaire', " . $p->ligne . ')' |
|
| 1186 | + : (($mode == 'code') ? |
|
| 1187 | + "\n// $commentaire\n$code" : |
|
| 1188 | + $code)); |
|
| 1189 | + } |
|
| 1190 | + } // foreach |
|
| 1191 | + |
|
| 1192 | + return $err_e_c ? false : $codes; |
|
| 1193 | 1193 | } |
| 1194 | 1194 | |
| 1195 | 1195 | /** |
@@ -1199,13 +1199,13 @@ discard block |
||
| 1199 | 1199 | * @return string |
| 1200 | 1200 | */ |
| 1201 | 1201 | function compile_concatene_parties_codes($partie1, $partie2) { |
| 1202 | - if ($partie1 === "''") { |
|
| 1203 | - return $partie2; |
|
| 1204 | - } |
|
| 1205 | - if ($partie2 === "''") { |
|
| 1206 | - return $partie1; |
|
| 1207 | - } |
|
| 1208 | - return "$partie1\n. $partie2"; |
|
| 1202 | + if ($partie1 === "''") { |
|
| 1203 | + return $partie2; |
|
| 1204 | + } |
|
| 1205 | + if ($partie2 === "''") { |
|
| 1206 | + return $partie1; |
|
| 1207 | + } |
|
| 1208 | + return "$partie1\n. $partie2"; |
|
| 1209 | 1209 | } |
| 1210 | 1210 | |
| 1211 | 1211 | |
@@ -1229,56 +1229,56 @@ discard block |
||
| 1229 | 1229 | * @return mixed|string |
| 1230 | 1230 | */ |
| 1231 | 1231 | function compile_retour($code, $avant, $apres, $altern, $tab, $n) { |
| 1232 | - if ($avant === "''") { |
|
| 1233 | - $avant = ''; |
|
| 1234 | - } |
|
| 1235 | - if ($apres === "''") { |
|
| 1236 | - $apres = ''; |
|
| 1237 | - } |
|
| 1238 | - if ($avant || $apres || $altern !== "''") { |
|
| 1239 | - if (preg_match(_REGEXP_CONCAT_NON_VIDE, $code)) { |
|
| 1240 | - $t = $code; |
|
| 1241 | - $cond = ''; |
|
| 1242 | - } elseif (preg_match(_REGEXP_COND_VIDE_NONVIDE, $code, $r)) { |
|
| 1243 | - $t = $r[2]; |
|
| 1244 | - $cond = '!' . $r[1]; |
|
| 1245 | - } else { |
|
| 1246 | - if (preg_match(_REGEXP_COND_NONVIDE_VIDE, $code, $r)) { |
|
| 1247 | - $t = $r[2]; |
|
| 1248 | - $cond = $r[1]; |
|
| 1249 | - } else { |
|
| 1250 | - $t = '$t' . $n; |
|
| 1251 | - $cond = "($t = $code)!==''"; |
|
| 1252 | - } |
|
| 1253 | - } |
|
| 1254 | - |
|
| 1255 | - $res = (!$avant ? '' : "$avant . ") . |
|
| 1256 | - $t . |
|
| 1257 | - (!$apres ? '' : " . $apres"); |
|
| 1258 | - |
|
| 1259 | - if ($res !== $t) { |
|
| 1260 | - $res = "($res)"; |
|
| 1261 | - } |
|
| 1262 | - |
|
| 1263 | - $code = (!$cond ? $res : "($cond ?\n\t$tab$res :\n\t$tab$altern)"); |
|
| 1264 | - } |
|
| 1265 | - |
|
| 1266 | - return $code; |
|
| 1232 | + if ($avant === "''") { |
|
| 1233 | + $avant = ''; |
|
| 1234 | + } |
|
| 1235 | + if ($apres === "''") { |
|
| 1236 | + $apres = ''; |
|
| 1237 | + } |
|
| 1238 | + if ($avant || $apres || $altern !== "''") { |
|
| 1239 | + if (preg_match(_REGEXP_CONCAT_NON_VIDE, $code)) { |
|
| 1240 | + $t = $code; |
|
| 1241 | + $cond = ''; |
|
| 1242 | + } elseif (preg_match(_REGEXP_COND_VIDE_NONVIDE, $code, $r)) { |
|
| 1243 | + $t = $r[2]; |
|
| 1244 | + $cond = '!' . $r[1]; |
|
| 1245 | + } else { |
|
| 1246 | + if (preg_match(_REGEXP_COND_NONVIDE_VIDE, $code, $r)) { |
|
| 1247 | + $t = $r[2]; |
|
| 1248 | + $cond = $r[1]; |
|
| 1249 | + } else { |
|
| 1250 | + $t = '$t' . $n; |
|
| 1251 | + $cond = "($t = $code)!==''"; |
|
| 1252 | + } |
|
| 1253 | + } |
|
| 1254 | + |
|
| 1255 | + $res = (!$avant ? '' : "$avant . ") . |
|
| 1256 | + $t . |
|
| 1257 | + (!$apres ? '' : " . $apres"); |
|
| 1258 | + |
|
| 1259 | + if ($res !== $t) { |
|
| 1260 | + $res = "($res)"; |
|
| 1261 | + } |
|
| 1262 | + |
|
| 1263 | + $code = (!$cond ? $res : "($cond ?\n\t$tab$res :\n\t$tab$altern)"); |
|
| 1264 | + } |
|
| 1265 | + |
|
| 1266 | + return $code; |
|
| 1267 | 1267 | } |
| 1268 | 1268 | |
| 1269 | 1269 | |
| 1270 | 1270 | function compile_inclure_doublons($lexemes) { |
| 1271 | - foreach ($lexemes as $v) { |
|
| 1272 | - if ($v->type === 'include' && $v->param) { |
|
| 1273 | - foreach ($v->param as $r) { |
|
| 1274 | - if (trim($r[0]) === 'doublons') { |
|
| 1275 | - return true; |
|
| 1276 | - } |
|
| 1277 | - } |
|
| 1278 | - } |
|
| 1279 | - } |
|
| 1280 | - |
|
| 1281 | - return false; |
|
| 1271 | + foreach ($lexemes as $v) { |
|
| 1272 | + if ($v->type === 'include' && $v->param) { |
|
| 1273 | + foreach ($v->param as $r) { |
|
| 1274 | + if (trim($r[0]) === 'doublons') { |
|
| 1275 | + return true; |
|
| 1276 | + } |
|
| 1277 | + } |
|
| 1278 | + } |
|
| 1279 | + } |
|
| 1280 | + |
|
| 1281 | + return false; |
|
| 1282 | 1282 | } |
| 1283 | 1283 | |
| 1284 | 1284 | // Prend en argument le texte d'un squelette, le nom de son fichier d'origine, |
@@ -1297,355 +1297,355 @@ discard block |
||
| 1297 | 1297 | // En cas d'erreur, elle retournera un tableau des 2 premiers elements seulement |
| 1298 | 1298 | |
| 1299 | 1299 | function public_compiler_dist($squelette, $nom, $gram, $sourcefile, string $connect = '') { |
| 1300 | - // Pre-traitement : reperer le charset du squelette, et le convertir |
|
| 1301 | - // Bonus : supprime le BOM |
|
| 1302 | - include_spip('inc/charsets'); |
|
| 1303 | - $squelette = transcoder_page($squelette); |
|
| 1304 | - |
|
| 1305 | - // rendre inertes les echappements de #[](){}<> |
|
| 1306 | - $i = 0; |
|
| 1307 | - while (str_contains($squelette, $inerte = '-INERTE' . $i)) { |
|
| 1308 | - $i++; |
|
| 1309 | - } |
|
| 1310 | - $squelette = preg_replace_callback( |
|
| 1311 | - ',\\\\([#[()\]{}<>]),', |
|
| 1312 | - fn($a) => "$inerte-" . ord($a[1]) . '-', |
|
| 1313 | - $squelette, |
|
| 1314 | - -1, |
|
| 1315 | - $esc |
|
| 1316 | - ); |
|
| 1317 | - |
|
| 1318 | - $descr = [ |
|
| 1319 | - 'nom' => $nom, |
|
| 1320 | - 'gram' => $gram, |
|
| 1321 | - 'sourcefile' => $sourcefile, |
|
| 1322 | - 'squelette' => $squelette |
|
| 1323 | - ]; |
|
| 1324 | - |
|
| 1325 | - // Phraser le squelette, selon sa grammaire |
|
| 1326 | - |
|
| 1327 | - $boucles = []; |
|
| 1328 | - $f = charger_fonction('phraser_' . $gram, 'public'); |
|
| 1329 | - |
|
| 1330 | - $squelette = $f($squelette, '', $boucles, $descr); |
|
| 1331 | - |
|
| 1332 | - $boucles = compiler_squelette($squelette, $boucles, $nom, $descr, $sourcefile, $connect); |
|
| 1333 | - |
|
| 1334 | - // restituer les echappements |
|
| 1335 | - if ($esc) { |
|
| 1336 | - foreach ($boucles as $i => $boucle) { |
|
| 1337 | - $boucles[$i]->return = preg_replace_callback( |
|
| 1338 | - ",$inerte-(\d+)-,", |
|
| 1339 | - fn ($a) => chr((int) $a[1]), |
|
| 1340 | - $boucle->return |
|
| 1341 | - ); |
|
| 1342 | - $boucles[$i]->descr['squelette'] = preg_replace_callback( |
|
| 1343 | - ",$inerte-(\d+)-,", |
|
| 1344 | - fn ($a) => '\\\\' . chr($a[1]), |
|
| 1345 | - $boucle->descr['squelette'] |
|
| 1346 | - ); |
|
| 1347 | - } |
|
| 1348 | - } |
|
| 1349 | - |
|
| 1350 | - $debug = ($boucles && defined('_VAR_MODE') && _VAR_MODE == 'debug'); |
|
| 1351 | - if ($debug) { |
|
| 1352 | - include_spip('public/decompiler'); |
|
| 1353 | - foreach ($boucles as $id => $boucle) { |
|
| 1354 | - if ($id) { |
|
| 1355 | - $decomp = "\n/* BOUCLE " . |
|
| 1356 | - $boucle->type_requete . |
|
| 1357 | - ' ' . |
|
| 1358 | - str_replace('*/', '* /', public_decompiler($boucle, $gram, 0, 'criteres')) . |
|
| 1359 | - ($boucle->debug ? "\n *\n * " . implode("\n * ", $boucle->debug) . "\n" : '') . |
|
| 1360 | - " */\n"; |
|
| 1361 | - } else { |
|
| 1362 | - $decomp = ("\n/*\n" . |
|
| 1363 | - str_replace('*/', '* /', public_decompiler($squelette, $gram)) |
|
| 1364 | - . "\n*/"); |
|
| 1365 | - } |
|
| 1366 | - $boucles[$id]->return = $decomp . $boucle->return; |
|
| 1367 | - $GLOBALS['debug_objets']['code'][$nom . $id] = $boucle->return; |
|
| 1368 | - } |
|
| 1369 | - } |
|
| 1370 | - |
|
| 1371 | - return $boucles; |
|
| 1300 | + // Pre-traitement : reperer le charset du squelette, et le convertir |
|
| 1301 | + // Bonus : supprime le BOM |
|
| 1302 | + include_spip('inc/charsets'); |
|
| 1303 | + $squelette = transcoder_page($squelette); |
|
| 1304 | + |
|
| 1305 | + // rendre inertes les echappements de #[](){}<> |
|
| 1306 | + $i = 0; |
|
| 1307 | + while (str_contains($squelette, $inerte = '-INERTE' . $i)) { |
|
| 1308 | + $i++; |
|
| 1309 | + } |
|
| 1310 | + $squelette = preg_replace_callback( |
|
| 1311 | + ',\\\\([#[()\]{}<>]),', |
|
| 1312 | + fn($a) => "$inerte-" . ord($a[1]) . '-', |
|
| 1313 | + $squelette, |
|
| 1314 | + -1, |
|
| 1315 | + $esc |
|
| 1316 | + ); |
|
| 1317 | + |
|
| 1318 | + $descr = [ |
|
| 1319 | + 'nom' => $nom, |
|
| 1320 | + 'gram' => $gram, |
|
| 1321 | + 'sourcefile' => $sourcefile, |
|
| 1322 | + 'squelette' => $squelette |
|
| 1323 | + ]; |
|
| 1324 | + |
|
| 1325 | + // Phraser le squelette, selon sa grammaire |
|
| 1326 | + |
|
| 1327 | + $boucles = []; |
|
| 1328 | + $f = charger_fonction('phraser_' . $gram, 'public'); |
|
| 1329 | + |
|
| 1330 | + $squelette = $f($squelette, '', $boucles, $descr); |
|
| 1331 | + |
|
| 1332 | + $boucles = compiler_squelette($squelette, $boucles, $nom, $descr, $sourcefile, $connect); |
|
| 1333 | + |
|
| 1334 | + // restituer les echappements |
|
| 1335 | + if ($esc) { |
|
| 1336 | + foreach ($boucles as $i => $boucle) { |
|
| 1337 | + $boucles[$i]->return = preg_replace_callback( |
|
| 1338 | + ",$inerte-(\d+)-,", |
|
| 1339 | + fn ($a) => chr((int) $a[1]), |
|
| 1340 | + $boucle->return |
|
| 1341 | + ); |
|
| 1342 | + $boucles[$i]->descr['squelette'] = preg_replace_callback( |
|
| 1343 | + ",$inerte-(\d+)-,", |
|
| 1344 | + fn ($a) => '\\\\' . chr($a[1]), |
|
| 1345 | + $boucle->descr['squelette'] |
|
| 1346 | + ); |
|
| 1347 | + } |
|
| 1348 | + } |
|
| 1349 | + |
|
| 1350 | + $debug = ($boucles && defined('_VAR_MODE') && _VAR_MODE == 'debug'); |
|
| 1351 | + if ($debug) { |
|
| 1352 | + include_spip('public/decompiler'); |
|
| 1353 | + foreach ($boucles as $id => $boucle) { |
|
| 1354 | + if ($id) { |
|
| 1355 | + $decomp = "\n/* BOUCLE " . |
|
| 1356 | + $boucle->type_requete . |
|
| 1357 | + ' ' . |
|
| 1358 | + str_replace('*/', '* /', public_decompiler($boucle, $gram, 0, 'criteres')) . |
|
| 1359 | + ($boucle->debug ? "\n *\n * " . implode("\n * ", $boucle->debug) . "\n" : '') . |
|
| 1360 | + " */\n"; |
|
| 1361 | + } else { |
|
| 1362 | + $decomp = ("\n/*\n" . |
|
| 1363 | + str_replace('*/', '* /', public_decompiler($squelette, $gram)) |
|
| 1364 | + . "\n*/"); |
|
| 1365 | + } |
|
| 1366 | + $boucles[$id]->return = $decomp . $boucle->return; |
|
| 1367 | + $GLOBALS['debug_objets']['code'][$nom . $id] = $boucle->return; |
|
| 1368 | + } |
|
| 1369 | + } |
|
| 1370 | + |
|
| 1371 | + return $boucles; |
|
| 1372 | 1372 | } |
| 1373 | 1373 | |
| 1374 | 1374 | // Point d'entree pour arbre de syntaxe abstraite fourni en premier argument |
| 1375 | 1375 | // Autres specifications comme ci-dessus |
| 1376 | 1376 | |
| 1377 | 1377 | function compiler_squelette($squelette, $boucles, $nom, $descr, $sourcefile, string $connect = '') { |
| 1378 | - static $trouver_table; |
|
| 1379 | - spip_timer('calcul_skel'); |
|
| 1380 | - |
|
| 1381 | - if (defined('_VAR_MODE') && _VAR_MODE == 'debug') { |
|
| 1382 | - $GLOBALS['debug_objets']['squelette'][$nom] = $descr['squelette']; |
|
| 1383 | - $GLOBALS['debug_objets']['sourcefile'][$nom] = $sourcefile; |
|
| 1384 | - |
|
| 1385 | - if (!isset($GLOBALS['debug_objets']['principal'])) { |
|
| 1386 | - $GLOBALS['debug_objets']['principal'] = $nom; |
|
| 1387 | - } |
|
| 1388 | - } |
|
| 1389 | - foreach ($boucles as $id => $boucle) { |
|
| 1390 | - $GLOBALS['debug_objets']['boucle'][$nom . $id] = $boucle; |
|
| 1391 | - } |
|
| 1392 | - $descr['documents'] = compile_inclure_doublons($squelette); |
|
| 1393 | - |
|
| 1394 | - // Demander la description des tables une fois pour toutes |
|
| 1395 | - if (!$trouver_table) { |
|
| 1396 | - $trouver_table = charger_fonction('trouver_table', 'base'); |
|
| 1397 | - } |
|
| 1398 | - |
|
| 1399 | - // reperer si les doublons sont demandes |
|
| 1400 | - // pour un inclure ou une boucle document |
|
| 1401 | - // c'est utile a la fonction champs_traitements |
|
| 1402 | - foreach ($boucles as $id => $boucle) { |
|
| 1403 | - if (!($type = $boucle->type_requete)) { |
|
| 1404 | - continue; |
|
| 1405 | - } |
|
| 1406 | - if ( |
|
| 1407 | - !$descr['documents'] |
|
| 1408 | - && ( |
|
| 1409 | - $type == 'documents' && $boucle->doublons |
|
| 1410 | - || compile_inclure_doublons($boucle->avant) |
|
| 1411 | - || compile_inclure_doublons($boucle->apres) |
|
| 1412 | - || compile_inclure_doublons($boucle->milieu) |
|
| 1413 | - || compile_inclure_doublons($boucle->altern) |
|
| 1414 | - ) |
|
| 1415 | - ) { |
|
| 1416 | - $descr['documents'] = true; |
|
| 1417 | - } |
|
| 1418 | - if ($type != TYPE_RECURSIF) { |
|
| 1419 | - if (!$boucles[$id]->sql_serveur && $connect) { |
|
| 1420 | - $boucles[$id]->sql_serveur = $connect; |
|
| 1421 | - } |
|
| 1422 | - |
|
| 1423 | - // chercher dans les iterateurs du repertoire iterateur/ |
|
| 1424 | - if ( |
|
| 1425 | - $g = charger_fonction( |
|
| 1426 | - preg_replace('/\W/', '_', $boucle->type_requete), |
|
| 1427 | - 'iterateur', |
|
| 1428 | - true |
|
| 1429 | - ) |
|
| 1430 | - ) { |
|
| 1431 | - $boucles[$id] = $g($boucle); |
|
| 1432 | - |
|
| 1433 | - // sinon, en cas de requeteur d'un type predefini, |
|
| 1434 | - // utiliser les informations donnees par le requeteur |
|
| 1435 | - // cas "php:xx" et "data:xx". |
|
| 1436 | - } else { |
|
| 1437 | - if ($boucle->sql_serveur && ($requeteur = charger_fonction($boucle->sql_serveur, 'requeteur', true))) { |
|
| 1438 | - $requeteur($boucles, $boucle, $id); |
|
| 1439 | - |
|
| 1440 | - // utiliser la description des champs transmis |
|
| 1441 | - } else { |
|
| 1442 | - $show = $trouver_table($type, $boucles[$id]->sql_serveur); |
|
| 1443 | - // si la table n'existe pas avec le connecteur par defaut, |
|
| 1444 | - // c'est peut etre une table qui necessite son connecteur dedie fourni |
|
| 1445 | - // permet une ecriture allegee (GEO) -> (geo:GEO) |
|
| 1446 | - if ( |
|
| 1447 | - !$show |
|
| 1448 | - && ($show = $trouver_table($type, strtolower($type))) |
|
| 1449 | - ) { |
|
| 1450 | - $boucles[$id]->sql_serveur = strtolower($type); |
|
| 1451 | - } |
|
| 1452 | - if ($show) { |
|
| 1453 | - $boucles[$id]->show = $show; |
|
| 1454 | - // recopie les infos les plus importantes |
|
| 1455 | - $boucles[$id]->primary = $show['key']['PRIMARY KEY'] ?? ''; |
|
| 1456 | - $boucles[$id]->id_table = $x = preg_replace(',^spip_,', '', $show['id_table']); |
|
| 1457 | - $boucles[$id]->from[$x] = $nom_table = $show['table']; |
|
| 1458 | - $boucles[$id]->iterateur = 'SQL'; |
|
| 1459 | - |
|
| 1460 | - if (empty($boucles[$id]->descr)) { |
|
| 1461 | - $boucles[$id]->descr = &$descr; |
|
| 1462 | - } |
|
| 1463 | - if ( |
|
| 1464 | - !$boucles[$id]->jointures |
|
| 1465 | - && is_array($show['tables_jointures']) |
|
| 1466 | - && count($x = $show['tables_jointures']) |
|
| 1467 | - ) { |
|
| 1468 | - $boucles[$id]->jointures = $x; |
|
| 1469 | - } |
|
| 1470 | - if ($boucles[$id]->jointures_explicites) { |
|
| 1471 | - $jointures = preg_split('/\s+/', $boucles[$id]->jointures_explicites); |
|
| 1472 | - while ($j = array_pop($jointures)) { |
|
| 1473 | - array_unshift($boucles[$id]->jointures, $j); |
|
| 1474 | - } |
|
| 1475 | - } |
|
| 1476 | - } else { |
|
| 1477 | - // Pas une erreur si la table est optionnelle |
|
| 1478 | - if ($boucles[$id]->table_optionnelle) { |
|
| 1479 | - $boucles[$id]->type_requete = ''; |
|
| 1480 | - } else { |
|
| 1481 | - $boucles[$id]->type_requete = false; |
|
| 1482 | - $boucle = $boucles[$id]; |
|
| 1483 | - $x = (!$boucle->sql_serveur ? '' : |
|
| 1484 | - ($boucle->sql_serveur . ':')) . |
|
| 1485 | - $type; |
|
| 1486 | - $msg = [ |
|
| 1487 | - 'zbug_table_inconnue', |
|
| 1488 | - ['table' => $x] |
|
| 1489 | - ]; |
|
| 1490 | - erreur_squelette($msg, $boucle); |
|
| 1491 | - } |
|
| 1492 | - } |
|
| 1493 | - } |
|
| 1494 | - } |
|
| 1495 | - } |
|
| 1496 | - } |
|
| 1497 | - |
|
| 1498 | - // Commencer par reperer les boucles appelees explicitement |
|
| 1499 | - // car elles indexent les arguments de maniere derogatoire |
|
| 1500 | - foreach ($boucles as $id => $boucle) { |
|
| 1501 | - if ($boucle->type_requete == TYPE_RECURSIF && $boucle->param) { |
|
| 1502 | - $boucles[$id]->descr = &$descr; |
|
| 1503 | - $rec = &$boucles[$boucle->param[0]]; |
|
| 1504 | - if (!$rec) { |
|
| 1505 | - $msg = [ |
|
| 1506 | - 'zbug_boucle_recursive_undef', |
|
| 1507 | - ['nom' => $boucle->param[0]] |
|
| 1508 | - ]; |
|
| 1509 | - erreur_squelette($msg, $boucle); |
|
| 1510 | - $boucles[$id]->type_requete = false; |
|
| 1511 | - } else { |
|
| 1512 | - $rec->externe = $id; |
|
| 1513 | - $descr['id_mere'] = $id; |
|
| 1514 | - $boucles[$id]->return = |
|
| 1515 | - calculer_liste( |
|
| 1516 | - [$rec], |
|
| 1517 | - $descr, |
|
| 1518 | - $boucles, |
|
| 1519 | - $boucle->param |
|
| 1520 | - ); |
|
| 1521 | - } |
|
| 1522 | - } |
|
| 1523 | - } |
|
| 1524 | - foreach ($boucles as $id => $boucle) { |
|
| 1525 | - $id = strval($id); // attention au type dans index_pile |
|
| 1526 | - $type = $boucle->type_requete; |
|
| 1527 | - if ($type && $type != TYPE_RECURSIF) { |
|
| 1528 | - $res = ''; |
|
| 1529 | - if ($boucle->param) { |
|
| 1530 | - // retourne un tableau en cas d'erreur |
|
| 1531 | - $res = calculer_criteres($id, $boucles); |
|
| 1532 | - } |
|
| 1533 | - $descr['id_mere'] = $id; |
|
| 1534 | - $boucles[$id]->return = |
|
| 1535 | - calculer_liste( |
|
| 1536 | - $boucle->milieu, |
|
| 1537 | - $descr, |
|
| 1538 | - $boucles, |
|
| 1539 | - $id |
|
| 1540 | - ); |
|
| 1541 | - // Si les criteres se sont mal compiles |
|
| 1542 | - // ne pas tenter d'assembler le code final |
|
| 1543 | - // (mais compiler le corps pour detection d'erreurs) |
|
| 1544 | - if (is_array($res)) { |
|
| 1545 | - $boucles[$id]->type_requete = false; |
|
| 1546 | - } |
|
| 1547 | - } |
|
| 1548 | - } |
|
| 1549 | - |
|
| 1550 | - // idem pour la racine |
|
| 1551 | - $descr['id_mere'] = ''; |
|
| 1552 | - $corps = calculer_liste($squelette, $descr, $boucles); |
|
| 1553 | - |
|
| 1554 | - |
|
| 1555 | - // Calcul du corps de toutes les fonctions PHP, |
|
| 1556 | - // en particulier les requetes SQL et TOTAL_BOUCLE |
|
| 1557 | - // de'terminables seulement maintenant |
|
| 1558 | - |
|
| 1559 | - foreach ($boucles as $id => $boucle) { |
|
| 1560 | - $boucle = $boucles[$id] = pipeline('pre_boucle', $boucle); |
|
| 1561 | - if ($boucle->return === false) { |
|
| 1562 | - $corps = false; |
|
| 1563 | - continue; |
|
| 1564 | - } |
|
| 1565 | - // appeler la fonction de definition de la boucle |
|
| 1566 | - |
|
| 1567 | - if ($req = $boucle->type_requete) { |
|
| 1568 | - // boucle personnalisée ? |
|
| 1569 | - $table = strtoupper($boucle->type_requete); |
|
| 1570 | - $serveur = strtolower($boucle->sql_serveur); |
|
| 1571 | - if ( |
|
| 1572 | - // fonction de boucle avec serveur & table |
|
| 1573 | - ( |
|
| 1574 | - !$serveur |
|
| 1575 | - || !function_exists($f = 'boucle_' . $serveur . '_' . $table) && !function_exists($f = $f . '_dist') |
|
| 1576 | - ) |
|
| 1577 | - // fonction de boucle avec table |
|
| 1578 | - && !function_exists($f = 'boucle_' . $table) |
|
| 1579 | - && !function_exists($f = $f . '_dist') |
|
| 1580 | - ) { |
|
| 1581 | - // fonction de boucle standard |
|
| 1582 | - if (!function_exists($f = 'boucle_DEFAUT')) { |
|
| 1583 | - $f = 'boucle_DEFAUT_dist'; |
|
| 1584 | - } |
|
| 1585 | - } |
|
| 1586 | - |
|
| 1587 | - $req = "\n\n\tstatic \$command = array();\n\t" . |
|
| 1588 | - "static \$connect;\n\t" . |
|
| 1589 | - "\$command['connect'] = \$connect = " . |
|
| 1590 | - _q($boucle->sql_serveur) . |
|
| 1591 | - ';' . |
|
| 1592 | - $f($id, $boucles); |
|
| 1593 | - } else { |
|
| 1594 | - $req = ("\n\treturn '';"); |
|
| 1595 | - } |
|
| 1596 | - |
|
| 1597 | - $boucles[$id]->return = |
|
| 1598 | - "\n\nfunction BOUCLE" . strtr($id, '-', '_') . $nom . |
|
| 1599 | - '(&$Cache, &$Pile, &$doublons, &$Numrows, $SP) {' . |
|
| 1600 | - $req . |
|
| 1601 | - "\n}\n"; |
|
| 1602 | - } |
|
| 1603 | - |
|
| 1604 | - // Au final, si le corps ou un critere au moins s'est mal compile |
|
| 1605 | - // retourner False, sinon inserer leur decompilation |
|
| 1606 | - if (is_bool($corps)) { |
|
| 1607 | - return false; |
|
| 1608 | - } |
|
| 1609 | - |
|
| 1610 | - $principal = "\nfunction " . $nom . '($Cache, $Pile, $doublons = array(), $Numrows = array(), $SP = 0) { |
|
| 1378 | + static $trouver_table; |
|
| 1379 | + spip_timer('calcul_skel'); |
|
| 1380 | + |
|
| 1381 | + if (defined('_VAR_MODE') && _VAR_MODE == 'debug') { |
|
| 1382 | + $GLOBALS['debug_objets']['squelette'][$nom] = $descr['squelette']; |
|
| 1383 | + $GLOBALS['debug_objets']['sourcefile'][$nom] = $sourcefile; |
|
| 1384 | + |
|
| 1385 | + if (!isset($GLOBALS['debug_objets']['principal'])) { |
|
| 1386 | + $GLOBALS['debug_objets']['principal'] = $nom; |
|
| 1387 | + } |
|
| 1388 | + } |
|
| 1389 | + foreach ($boucles as $id => $boucle) { |
|
| 1390 | + $GLOBALS['debug_objets']['boucle'][$nom . $id] = $boucle; |
|
| 1391 | + } |
|
| 1392 | + $descr['documents'] = compile_inclure_doublons($squelette); |
|
| 1393 | + |
|
| 1394 | + // Demander la description des tables une fois pour toutes |
|
| 1395 | + if (!$trouver_table) { |
|
| 1396 | + $trouver_table = charger_fonction('trouver_table', 'base'); |
|
| 1397 | + } |
|
| 1398 | + |
|
| 1399 | + // reperer si les doublons sont demandes |
|
| 1400 | + // pour un inclure ou une boucle document |
|
| 1401 | + // c'est utile a la fonction champs_traitements |
|
| 1402 | + foreach ($boucles as $id => $boucle) { |
|
| 1403 | + if (!($type = $boucle->type_requete)) { |
|
| 1404 | + continue; |
|
| 1405 | + } |
|
| 1406 | + if ( |
|
| 1407 | + !$descr['documents'] |
|
| 1408 | + && ( |
|
| 1409 | + $type == 'documents' && $boucle->doublons |
|
| 1410 | + || compile_inclure_doublons($boucle->avant) |
|
| 1411 | + || compile_inclure_doublons($boucle->apres) |
|
| 1412 | + || compile_inclure_doublons($boucle->milieu) |
|
| 1413 | + || compile_inclure_doublons($boucle->altern) |
|
| 1414 | + ) |
|
| 1415 | + ) { |
|
| 1416 | + $descr['documents'] = true; |
|
| 1417 | + } |
|
| 1418 | + if ($type != TYPE_RECURSIF) { |
|
| 1419 | + if (!$boucles[$id]->sql_serveur && $connect) { |
|
| 1420 | + $boucles[$id]->sql_serveur = $connect; |
|
| 1421 | + } |
|
| 1422 | + |
|
| 1423 | + // chercher dans les iterateurs du repertoire iterateur/ |
|
| 1424 | + if ( |
|
| 1425 | + $g = charger_fonction( |
|
| 1426 | + preg_replace('/\W/', '_', $boucle->type_requete), |
|
| 1427 | + 'iterateur', |
|
| 1428 | + true |
|
| 1429 | + ) |
|
| 1430 | + ) { |
|
| 1431 | + $boucles[$id] = $g($boucle); |
|
| 1432 | + |
|
| 1433 | + // sinon, en cas de requeteur d'un type predefini, |
|
| 1434 | + // utiliser les informations donnees par le requeteur |
|
| 1435 | + // cas "php:xx" et "data:xx". |
|
| 1436 | + } else { |
|
| 1437 | + if ($boucle->sql_serveur && ($requeteur = charger_fonction($boucle->sql_serveur, 'requeteur', true))) { |
|
| 1438 | + $requeteur($boucles, $boucle, $id); |
|
| 1439 | + |
|
| 1440 | + // utiliser la description des champs transmis |
|
| 1441 | + } else { |
|
| 1442 | + $show = $trouver_table($type, $boucles[$id]->sql_serveur); |
|
| 1443 | + // si la table n'existe pas avec le connecteur par defaut, |
|
| 1444 | + // c'est peut etre une table qui necessite son connecteur dedie fourni |
|
| 1445 | + // permet une ecriture allegee (GEO) -> (geo:GEO) |
|
| 1446 | + if ( |
|
| 1447 | + !$show |
|
| 1448 | + && ($show = $trouver_table($type, strtolower($type))) |
|
| 1449 | + ) { |
|
| 1450 | + $boucles[$id]->sql_serveur = strtolower($type); |
|
| 1451 | + } |
|
| 1452 | + if ($show) { |
|
| 1453 | + $boucles[$id]->show = $show; |
|
| 1454 | + // recopie les infos les plus importantes |
|
| 1455 | + $boucles[$id]->primary = $show['key']['PRIMARY KEY'] ?? ''; |
|
| 1456 | + $boucles[$id]->id_table = $x = preg_replace(',^spip_,', '', $show['id_table']); |
|
| 1457 | + $boucles[$id]->from[$x] = $nom_table = $show['table']; |
|
| 1458 | + $boucles[$id]->iterateur = 'SQL'; |
|
| 1459 | + |
|
| 1460 | + if (empty($boucles[$id]->descr)) { |
|
| 1461 | + $boucles[$id]->descr = &$descr; |
|
| 1462 | + } |
|
| 1463 | + if ( |
|
| 1464 | + !$boucles[$id]->jointures |
|
| 1465 | + && is_array($show['tables_jointures']) |
|
| 1466 | + && count($x = $show['tables_jointures']) |
|
| 1467 | + ) { |
|
| 1468 | + $boucles[$id]->jointures = $x; |
|
| 1469 | + } |
|
| 1470 | + if ($boucles[$id]->jointures_explicites) { |
|
| 1471 | + $jointures = preg_split('/\s+/', $boucles[$id]->jointures_explicites); |
|
| 1472 | + while ($j = array_pop($jointures)) { |
|
| 1473 | + array_unshift($boucles[$id]->jointures, $j); |
|
| 1474 | + } |
|
| 1475 | + } |
|
| 1476 | + } else { |
|
| 1477 | + // Pas une erreur si la table est optionnelle |
|
| 1478 | + if ($boucles[$id]->table_optionnelle) { |
|
| 1479 | + $boucles[$id]->type_requete = ''; |
|
| 1480 | + } else { |
|
| 1481 | + $boucles[$id]->type_requete = false; |
|
| 1482 | + $boucle = $boucles[$id]; |
|
| 1483 | + $x = (!$boucle->sql_serveur ? '' : |
|
| 1484 | + ($boucle->sql_serveur . ':')) . |
|
| 1485 | + $type; |
|
| 1486 | + $msg = [ |
|
| 1487 | + 'zbug_table_inconnue', |
|
| 1488 | + ['table' => $x] |
|
| 1489 | + ]; |
|
| 1490 | + erreur_squelette($msg, $boucle); |
|
| 1491 | + } |
|
| 1492 | + } |
|
| 1493 | + } |
|
| 1494 | + } |
|
| 1495 | + } |
|
| 1496 | + } |
|
| 1497 | + |
|
| 1498 | + // Commencer par reperer les boucles appelees explicitement |
|
| 1499 | + // car elles indexent les arguments de maniere derogatoire |
|
| 1500 | + foreach ($boucles as $id => $boucle) { |
|
| 1501 | + if ($boucle->type_requete == TYPE_RECURSIF && $boucle->param) { |
|
| 1502 | + $boucles[$id]->descr = &$descr; |
|
| 1503 | + $rec = &$boucles[$boucle->param[0]]; |
|
| 1504 | + if (!$rec) { |
|
| 1505 | + $msg = [ |
|
| 1506 | + 'zbug_boucle_recursive_undef', |
|
| 1507 | + ['nom' => $boucle->param[0]] |
|
| 1508 | + ]; |
|
| 1509 | + erreur_squelette($msg, $boucle); |
|
| 1510 | + $boucles[$id]->type_requete = false; |
|
| 1511 | + } else { |
|
| 1512 | + $rec->externe = $id; |
|
| 1513 | + $descr['id_mere'] = $id; |
|
| 1514 | + $boucles[$id]->return = |
|
| 1515 | + calculer_liste( |
|
| 1516 | + [$rec], |
|
| 1517 | + $descr, |
|
| 1518 | + $boucles, |
|
| 1519 | + $boucle->param |
|
| 1520 | + ); |
|
| 1521 | + } |
|
| 1522 | + } |
|
| 1523 | + } |
|
| 1524 | + foreach ($boucles as $id => $boucle) { |
|
| 1525 | + $id = strval($id); // attention au type dans index_pile |
|
| 1526 | + $type = $boucle->type_requete; |
|
| 1527 | + if ($type && $type != TYPE_RECURSIF) { |
|
| 1528 | + $res = ''; |
|
| 1529 | + if ($boucle->param) { |
|
| 1530 | + // retourne un tableau en cas d'erreur |
|
| 1531 | + $res = calculer_criteres($id, $boucles); |
|
| 1532 | + } |
|
| 1533 | + $descr['id_mere'] = $id; |
|
| 1534 | + $boucles[$id]->return = |
|
| 1535 | + calculer_liste( |
|
| 1536 | + $boucle->milieu, |
|
| 1537 | + $descr, |
|
| 1538 | + $boucles, |
|
| 1539 | + $id |
|
| 1540 | + ); |
|
| 1541 | + // Si les criteres se sont mal compiles |
|
| 1542 | + // ne pas tenter d'assembler le code final |
|
| 1543 | + // (mais compiler le corps pour detection d'erreurs) |
|
| 1544 | + if (is_array($res)) { |
|
| 1545 | + $boucles[$id]->type_requete = false; |
|
| 1546 | + } |
|
| 1547 | + } |
|
| 1548 | + } |
|
| 1549 | + |
|
| 1550 | + // idem pour la racine |
|
| 1551 | + $descr['id_mere'] = ''; |
|
| 1552 | + $corps = calculer_liste($squelette, $descr, $boucles); |
|
| 1553 | + |
|
| 1554 | + |
|
| 1555 | + // Calcul du corps de toutes les fonctions PHP, |
|
| 1556 | + // en particulier les requetes SQL et TOTAL_BOUCLE |
|
| 1557 | + // de'terminables seulement maintenant |
|
| 1558 | + |
|
| 1559 | + foreach ($boucles as $id => $boucle) { |
|
| 1560 | + $boucle = $boucles[$id] = pipeline('pre_boucle', $boucle); |
|
| 1561 | + if ($boucle->return === false) { |
|
| 1562 | + $corps = false; |
|
| 1563 | + continue; |
|
| 1564 | + } |
|
| 1565 | + // appeler la fonction de definition de la boucle |
|
| 1566 | + |
|
| 1567 | + if ($req = $boucle->type_requete) { |
|
| 1568 | + // boucle personnalisée ? |
|
| 1569 | + $table = strtoupper($boucle->type_requete); |
|
| 1570 | + $serveur = strtolower($boucle->sql_serveur); |
|
| 1571 | + if ( |
|
| 1572 | + // fonction de boucle avec serveur & table |
|
| 1573 | + ( |
|
| 1574 | + !$serveur |
|
| 1575 | + || !function_exists($f = 'boucle_' . $serveur . '_' . $table) && !function_exists($f = $f . '_dist') |
|
| 1576 | + ) |
|
| 1577 | + // fonction de boucle avec table |
|
| 1578 | + && !function_exists($f = 'boucle_' . $table) |
|
| 1579 | + && !function_exists($f = $f . '_dist') |
|
| 1580 | + ) { |
|
| 1581 | + // fonction de boucle standard |
|
| 1582 | + if (!function_exists($f = 'boucle_DEFAUT')) { |
|
| 1583 | + $f = 'boucle_DEFAUT_dist'; |
|
| 1584 | + } |
|
| 1585 | + } |
|
| 1586 | + |
|
| 1587 | + $req = "\n\n\tstatic \$command = array();\n\t" . |
|
| 1588 | + "static \$connect;\n\t" . |
|
| 1589 | + "\$command['connect'] = \$connect = " . |
|
| 1590 | + _q($boucle->sql_serveur) . |
|
| 1591 | + ';' . |
|
| 1592 | + $f($id, $boucles); |
|
| 1593 | + } else { |
|
| 1594 | + $req = ("\n\treturn '';"); |
|
| 1595 | + } |
|
| 1596 | + |
|
| 1597 | + $boucles[$id]->return = |
|
| 1598 | + "\n\nfunction BOUCLE" . strtr($id, '-', '_') . $nom . |
|
| 1599 | + '(&$Cache, &$Pile, &$doublons, &$Numrows, $SP) {' . |
|
| 1600 | + $req . |
|
| 1601 | + "\n}\n"; |
|
| 1602 | + } |
|
| 1603 | + |
|
| 1604 | + // Au final, si le corps ou un critere au moins s'est mal compile |
|
| 1605 | + // retourner False, sinon inserer leur decompilation |
|
| 1606 | + if (is_bool($corps)) { |
|
| 1607 | + return false; |
|
| 1608 | + } |
|
| 1609 | + |
|
| 1610 | + $principal = "\nfunction " . $nom . '($Cache, $Pile, $doublons = array(), $Numrows = array(), $SP = 0) { |
|
| 1611 | 1611 | ' |
| 1612 | - // reporter de maniere securisee les doublons inclus |
|
| 1613 | - . ' |
|
| 1612 | + // reporter de maniere securisee les doublons inclus |
|
| 1613 | + . ' |
|
| 1614 | 1614 | if (isset($Pile[0]["doublons"]) AND is_array($Pile[0]["doublons"])) |
| 1615 | 1615 | $doublons = nettoyer_env_doublons($Pile[0]["doublons"]); |
| 1616 | 1616 | |
| 1617 | 1617 | $connect = ' . |
| 1618 | - _q($connect) . '; |
|
| 1618 | + _q($connect) . '; |
|
| 1619 | 1619 | $page = ' . |
| 1620 | - // ATTENTION, le calcul de l'expression $corps affectera $Cache |
|
| 1621 | - // c'est pourquoi on l'affecte a la variable auxiliaire $page. |
|
| 1622 | - // avant de referencer $Cache |
|
| 1623 | - $corps . '; |
|
| 1620 | + // ATTENTION, le calcul de l'expression $corps affectera $Cache |
|
| 1621 | + // c'est pourquoi on l'affecte a la variable auxiliaire $page. |
|
| 1622 | + // avant de referencer $Cache |
|
| 1623 | + $corps . '; |
|
| 1624 | 1624 | |
| 1625 | 1625 | return analyse_resultat_skel(' . var_export($nom, true) |
| 1626 | - . ', $Cache, $page, ' . var_export($sourcefile, true) . '); |
|
| 1626 | + . ', $Cache, $page, ' . var_export($sourcefile, true) . '); |
|
| 1627 | 1627 | }'; |
| 1628 | 1628 | |
| 1629 | - $secondes = spip_timer('calcul_skel'); |
|
| 1630 | - spip_log("COMPIL ($secondes) [$sourcefile] $nom.php"); |
|
| 1631 | - // $connect n'est pas sûr : on nettoie |
|
| 1632 | - $connect = preg_replace(',[^\w],', '', $connect); |
|
| 1629 | + $secondes = spip_timer('calcul_skel'); |
|
| 1630 | + spip_log("COMPIL ($secondes) [$sourcefile] $nom.php"); |
|
| 1631 | + // $connect n'est pas sûr : on nettoie |
|
| 1632 | + $connect = preg_replace(',[^\w],', '', $connect); |
|
| 1633 | 1633 | |
| 1634 | - // Assimiler la fct principale a une boucle anonyme, pour retourner un resultat simple |
|
| 1635 | - $code = new Boucle(); |
|
| 1636 | - $code->descr = $descr; |
|
| 1637 | - $code->return = ' |
|
| 1634 | + // Assimiler la fct principale a une boucle anonyme, pour retourner un resultat simple |
|
| 1635 | + $code = new Boucle(); |
|
| 1636 | + $code->descr = $descr; |
|
| 1637 | + $code->return = ' |
|
| 1638 | 1638 | // |
| 1639 | 1639 | // Fonction principale du squelette ' . |
| 1640 | - $sourcefile . |
|
| 1641 | - ($connect ? " pour $connect" : '') . |
|
| 1642 | - (!CODE_COMMENTE ? '' : "\n// Temps de compilation total: $secondes") . |
|
| 1643 | - "\n//\n" . |
|
| 1644 | - $principal; |
|
| 1640 | + $sourcefile . |
|
| 1641 | + ($connect ? " pour $connect" : '') . |
|
| 1642 | + (!CODE_COMMENTE ? '' : "\n// Temps de compilation total: $secondes") . |
|
| 1643 | + "\n//\n" . |
|
| 1644 | + $principal; |
|
| 1645 | 1645 | |
| 1646 | - $boucles[''] = $code; |
|
| 1646 | + $boucles[''] = $code; |
|
| 1647 | 1647 | |
| 1648 | - return $boucles; |
|
| 1648 | + return $boucles; |
|
| 1649 | 1649 | } |
| 1650 | 1650 | |
| 1651 | 1651 | |
@@ -1662,18 +1662,18 @@ discard block |
||
| 1662 | 1662 | * |
| 1663 | 1663 | **/ |
| 1664 | 1664 | function requeteur_php_dist(&$boucles, &$boucle, &$id) { |
| 1665 | - if (class_exists($boucle->type_requete)) { |
|
| 1666 | - $g = charger_fonction('php', 'iterateur'); |
|
| 1667 | - $boucles[$id] = $g($boucle, $boucle->type_requete); |
|
| 1668 | - } else { |
|
| 1669 | - $x = $boucle->type_requete; |
|
| 1670 | - $boucle->type_requete = false; |
|
| 1671 | - $msg = [ |
|
| 1672 | - 'zbug_iterateur_inconnu', |
|
| 1673 | - ['iterateur' => $x] |
|
| 1674 | - ]; |
|
| 1675 | - erreur_squelette($msg, $boucle); |
|
| 1676 | - } |
|
| 1665 | + if (class_exists($boucle->type_requete)) { |
|
| 1666 | + $g = charger_fonction('php', 'iterateur'); |
|
| 1667 | + $boucles[$id] = $g($boucle, $boucle->type_requete); |
|
| 1668 | + } else { |
|
| 1669 | + $x = $boucle->type_requete; |
|
| 1670 | + $boucle->type_requete = false; |
|
| 1671 | + $msg = [ |
|
| 1672 | + 'zbug_iterateur_inconnu', |
|
| 1673 | + ['iterateur' => $x] |
|
| 1674 | + ]; |
|
| 1675 | + erreur_squelette($msg, $boucle); |
|
| 1676 | + } |
|
| 1677 | 1677 | } |
| 1678 | 1678 | |
| 1679 | 1679 | |
@@ -1691,22 +1691,22 @@ discard block |
||
| 1691 | 1691 | * |
| 1692 | 1692 | **/ |
| 1693 | 1693 | function requeteur_data_dist(&$boucles, &$boucle, &$id) { |
| 1694 | - include_spip('iterateur/data'); |
|
| 1695 | - if ($h = charger_fonction($boucle->type_requete . '_to_array', 'inc', true)) { |
|
| 1696 | - $g = charger_fonction('data', 'iterateur'); |
|
| 1697 | - $boucles[$id] = $g($boucle); |
|
| 1698 | - // from[0] stocke le type de data (rss, yql, ...) |
|
| 1699 | - $boucles[$id]->from[] = $boucle->type_requete; |
|
| 1700 | - } else { |
|
| 1701 | - $x = $boucle->type_requete; |
|
| 1702 | - $boucle->type_requete = false; |
|
| 1703 | - $msg = [ |
|
| 1704 | - 'zbug_requeteur_inconnu', |
|
| 1705 | - [ |
|
| 1706 | - 'requeteur' => 'data', |
|
| 1707 | - 'type' => $x |
|
| 1708 | - ] |
|
| 1709 | - ]; |
|
| 1710 | - erreur_squelette($msg, $boucle); |
|
| 1711 | - } |
|
| 1694 | + include_spip('iterateur/data'); |
|
| 1695 | + if ($h = charger_fonction($boucle->type_requete . '_to_array', 'inc', true)) { |
|
| 1696 | + $g = charger_fonction('data', 'iterateur'); |
|
| 1697 | + $boucles[$id] = $g($boucle); |
|
| 1698 | + // from[0] stocke le type de data (rss, yql, ...) |
|
| 1699 | + $boucles[$id]->from[] = $boucle->type_requete; |
|
| 1700 | + } else { |
|
| 1701 | + $x = $boucle->type_requete; |
|
| 1702 | + $boucle->type_requete = false; |
|
| 1703 | + $msg = [ |
|
| 1704 | + 'zbug_requeteur_inconnu', |
|
| 1705 | + [ |
|
| 1706 | + 'requeteur' => 'data', |
|
| 1707 | + 'type' => $x |
|
| 1708 | + ] |
|
| 1709 | + ]; |
|
| 1710 | + erreur_squelette($msg, $boucle); |
|
| 1711 | + } |
|
| 1712 | 1712 | } |
@@ -10,7 +10,7 @@ discard block |
||
| 10 | 10 | \***************************************************************************/ |
| 11 | 11 | |
| 12 | 12 | if (!defined('_ECRIRE_INC_VERSION')) { |
| 13 | - return; |
|
| 13 | + return; |
|
| 14 | 14 | } |
| 15 | 15 | |
| 16 | 16 | /** |
@@ -28,50 +28,50 @@ discard block |
||
| 28 | 28 | * @return void |
| 29 | 29 | */ |
| 30 | 30 | |
| 31 | - /** @var bool Évaluation réussie ? */ |
|
| 31 | + /** @var bool Évaluation réussie ? */ |
|
| 32 | 32 | $res = true; |
| 33 | 33 | |
| 34 | 34 | // Cas d'une page contenant du PHP : |
| 35 | 35 | if (empty($page['process_ins']) || $page['process_ins'] != 'html') { |
| 36 | - include_spip('inc/lang'); |
|
| 36 | + include_spip('inc/lang'); |
|
| 37 | 37 | |
| 38 | - // restaurer l'etat des notes avant calcul |
|
| 39 | - if ( |
|
| 40 | - isset($page['notes']) |
|
| 41 | - && $page['notes'] |
|
| 42 | - && ($notes = charger_fonction('notes', 'inc', true)) |
|
| 43 | - ) { |
|
| 44 | - $notes($page['notes'], 'restaurer_etat'); |
|
| 45 | - } |
|
| 46 | - ob_start(); |
|
| 47 | - if (str_contains((string) $page['texte'], '?xml')) { |
|
| 48 | - $page['texte'] = str_replace('<?xml', "<\1?xml", (string) $page['texte']); |
|
| 49 | - } |
|
| 38 | + // restaurer l'etat des notes avant calcul |
|
| 39 | + if ( |
|
| 40 | + isset($page['notes']) |
|
| 41 | + && $page['notes'] |
|
| 42 | + && ($notes = charger_fonction('notes', 'inc', true)) |
|
| 43 | + ) { |
|
| 44 | + $notes($page['notes'], 'restaurer_etat'); |
|
| 45 | + } |
|
| 46 | + ob_start(); |
|
| 47 | + if (str_contains((string) $page['texte'], '?xml')) { |
|
| 48 | + $page['texte'] = str_replace('<?xml', "<\1?xml", (string) $page['texte']); |
|
| 49 | + } |
|
| 50 | 50 | |
| 51 | - try { |
|
| 52 | - $res = eval('?' . '>' . $page['texte']); |
|
| 53 | - $page['texte'] = ob_get_contents(); |
|
| 54 | - } catch (\Throwable $e) { |
|
| 55 | - $code = $page['texte']; |
|
| 56 | - $GLOBALS['numero_ligne_php'] = 1; |
|
| 57 | - if (!function_exists('numerote_ligne_php')) { |
|
| 58 | - function numerote_ligne_php($match) { |
|
| 59 | - $GLOBALS['numero_ligne_php']++; |
|
| 60 | - return "\n/*" . str_pad((string) $GLOBALS['numero_ligne_php'], 3, '0', STR_PAD_LEFT) . '*/'; |
|
| 61 | - } |
|
| 62 | - } |
|
| 63 | - $code = '/*001*/' . preg_replace_callback(",\n,", 'numerote_ligne_php', (string) $code); |
|
| 64 | - $code = trim(highlight_string($code, true)); |
|
| 65 | - erreur_squelette('L' . $e->getLine() . ': ' . $e->getMessage() . '<br />' . $code, [$page['source'],'',$e->getFile(),'',$GLOBALS['spip_lang']]); |
|
| 66 | - $page['texte'] = '<!-- Erreur -->'; |
|
| 67 | - } |
|
| 68 | - ob_end_clean(); |
|
| 51 | + try { |
|
| 52 | + $res = eval('?' . '>' . $page['texte']); |
|
| 53 | + $page['texte'] = ob_get_contents(); |
|
| 54 | + } catch (\Throwable $e) { |
|
| 55 | + $code = $page['texte']; |
|
| 56 | + $GLOBALS['numero_ligne_php'] = 1; |
|
| 57 | + if (!function_exists('numerote_ligne_php')) { |
|
| 58 | + function numerote_ligne_php($match) { |
|
| 59 | + $GLOBALS['numero_ligne_php']++; |
|
| 60 | + return "\n/*" . str_pad((string) $GLOBALS['numero_ligne_php'], 3, '0', STR_PAD_LEFT) . '*/'; |
|
| 61 | + } |
|
| 62 | + } |
|
| 63 | + $code = '/*001*/' . preg_replace_callback(",\n,", 'numerote_ligne_php', (string) $code); |
|
| 64 | + $code = trim(highlight_string($code, true)); |
|
| 65 | + erreur_squelette('L' . $e->getLine() . ': ' . $e->getMessage() . '<br />' . $code, [$page['source'],'',$e->getFile(),'',$GLOBALS['spip_lang']]); |
|
| 66 | + $page['texte'] = '<!-- Erreur -->'; |
|
| 67 | + } |
|
| 68 | + ob_end_clean(); |
|
| 69 | 69 | |
| 70 | - $page['process_ins'] = 'html'; |
|
| 70 | + $page['process_ins'] = 'html'; |
|
| 71 | 71 | |
| 72 | - if (str_contains((string) $page['texte'], '?xml')) { |
|
| 73 | - $page['texte'] = str_replace("<\1?xml", '<?xml', (string) $page['texte']); |
|
| 74 | - } |
|
| 72 | + if (str_contains((string) $page['texte'], '?xml')) { |
|
| 73 | + $page['texte'] = str_replace("<\1?xml", '<?xml', (string) $page['texte']); |
|
| 74 | + } |
|
| 75 | 75 | } |
| 76 | 76 | |
| 77 | 77 | // le résultat de calcul d'un squelette est toujours de type string |
@@ -27,7 +27,7 @@ discard block |
||
| 27 | 27 | **/ |
| 28 | 28 | |
| 29 | 29 | if (!defined('_ECRIRE_INC_VERSION')) { |
| 30 | - return; |
|
| 30 | + return; |
|
| 31 | 31 | } |
| 32 | 32 | |
| 33 | 33 | /** Début de la partie principale d'une boucle */ |
@@ -74,54 +74,54 @@ discard block |
||
| 74 | 74 | */ |
| 75 | 75 | function phraser_inclure(string $texte, int $ligne, array $result): array { |
| 76 | 76 | |
| 77 | - while ( |
|
| 78 | - (($p = strpos($texte, '<INC')) !== false) |
|
| 79 | - && preg_match(BALISE_INCLURE, $texte, $match, PREG_OFFSET_CAPTURE, $p) |
|
| 80 | - ) { |
|
| 81 | - $poss = array_column($match, 1); |
|
| 82 | - $match = array_column($match, 0); |
|
| 83 | - $match = array_pad($match, 3, null); |
|
| 84 | - |
|
| 85 | - $p = $poss[0]; |
|
| 86 | - $debut = substr($texte, 0, $p); |
|
| 87 | - if ($p) { |
|
| 88 | - $result = phraser_idiomes($debut, $ligne, $result); |
|
| 89 | - } |
|
| 90 | - $ligne += public_compte_ligne($debut); |
|
| 91 | - |
|
| 92 | - $champ = new Inclure(); |
|
| 93 | - $champ->ligne = $ligne; |
|
| 94 | - $ligne += public_compte_ligne((string) $match[0]); |
|
| 95 | - $fichier = $match[2]; |
|
| 96 | - $champ->texte = $fichier; |
|
| 97 | - |
|
| 98 | - $texte = substr($texte, $p + strlen((string) $match[0])); |
|
| 99 | - |
|
| 100 | - // on assimile {var=val} a une liste de un argument sans fonction |
|
| 101 | - $pos_apres = 0; |
|
| 102 | - phraser_args($texte, '/>', '', $result, $champ, $pos_apres); |
|
| 103 | - if (!$champ->texte || (is_countable($champ->param) ? count($champ->param) : 0) > 1) { |
|
| 104 | - if (!function_exists('normaliser_inclure')) { |
|
| 105 | - include_spip('public/normaliser'); |
|
| 106 | - } |
|
| 107 | - normaliser_inclure($champ); |
|
| 108 | - } |
|
| 109 | - $pos_fin = strpos($texte, '>', $pos_apres) + 1; |
|
| 110 | - if ( |
|
| 111 | - (strpos($texte, '</INCLUDE>', $pos_fin) === $pos_fin) |
|
| 112 | - || (strpos($texte, '</INCLURE>', $pos_fin) === $pos_fin) |
|
| 113 | - ) { |
|
| 114 | - $pos_fin += 10; |
|
| 115 | - } |
|
| 116 | - $texte = substr($texte, $pos_fin); |
|
| 117 | - $result[] = $champ; |
|
| 118 | - } |
|
| 119 | - |
|
| 120 | - if ($texte != '') { |
|
| 121 | - $result = phraser_idiomes($texte, $ligne, $result); |
|
| 122 | - } |
|
| 123 | - |
|
| 124 | - return $result; |
|
| 77 | + while ( |
|
| 78 | + (($p = strpos($texte, '<INC')) !== false) |
|
| 79 | + && preg_match(BALISE_INCLURE, $texte, $match, PREG_OFFSET_CAPTURE, $p) |
|
| 80 | + ) { |
|
| 81 | + $poss = array_column($match, 1); |
|
| 82 | + $match = array_column($match, 0); |
|
| 83 | + $match = array_pad($match, 3, null); |
|
| 84 | + |
|
| 85 | + $p = $poss[0]; |
|
| 86 | + $debut = substr($texte, 0, $p); |
|
| 87 | + if ($p) { |
|
| 88 | + $result = phraser_idiomes($debut, $ligne, $result); |
|
| 89 | + } |
|
| 90 | + $ligne += public_compte_ligne($debut); |
|
| 91 | + |
|
| 92 | + $champ = new Inclure(); |
|
| 93 | + $champ->ligne = $ligne; |
|
| 94 | + $ligne += public_compte_ligne((string) $match[0]); |
|
| 95 | + $fichier = $match[2]; |
|
| 96 | + $champ->texte = $fichier; |
|
| 97 | + |
|
| 98 | + $texte = substr($texte, $p + strlen((string) $match[0])); |
|
| 99 | + |
|
| 100 | + // on assimile {var=val} a une liste de un argument sans fonction |
|
| 101 | + $pos_apres = 0; |
|
| 102 | + phraser_args($texte, '/>', '', $result, $champ, $pos_apres); |
|
| 103 | + if (!$champ->texte || (is_countable($champ->param) ? count($champ->param) : 0) > 1) { |
|
| 104 | + if (!function_exists('normaliser_inclure')) { |
|
| 105 | + include_spip('public/normaliser'); |
|
| 106 | + } |
|
| 107 | + normaliser_inclure($champ); |
|
| 108 | + } |
|
| 109 | + $pos_fin = strpos($texte, '>', $pos_apres) + 1; |
|
| 110 | + if ( |
|
| 111 | + (strpos($texte, '</INCLUDE>', $pos_fin) === $pos_fin) |
|
| 112 | + || (strpos($texte, '</INCLURE>', $pos_fin) === $pos_fin) |
|
| 113 | + ) { |
|
| 114 | + $pos_fin += 10; |
|
| 115 | + } |
|
| 116 | + $texte = substr($texte, $pos_fin); |
|
| 117 | + $result[] = $champ; |
|
| 118 | + } |
|
| 119 | + |
|
| 120 | + if ($texte != '') { |
|
| 121 | + $result = phraser_idiomes($texte, $ligne, $result); |
|
| 122 | + } |
|
| 123 | + |
|
| 124 | + return $result; |
|
| 125 | 125 | } |
| 126 | 126 | |
| 127 | 127 | /** |
@@ -133,38 +133,38 @@ discard block |
||
| 133 | 133 | */ |
| 134 | 134 | function phraser_polyglotte(string $texte, int $ligne, array $result): array { |
| 135 | 135 | |
| 136 | - $collecteur = new Spip\Texte\Collecteur\Multis(); |
|
| 137 | - $multis = $collecteur->collecter($texte); |
|
| 138 | - |
|
| 139 | - if (!empty($multis)) { |
|
| 140 | - $pos_prev = 0; |
|
| 141 | - foreach ($multis as $multi) { |
|
| 142 | - if ($multi['pos'] > $pos_prev) { |
|
| 143 | - $champ = new Texte(); |
|
| 144 | - $champ->texte = substr($texte, $pos_prev, $multi['pos'] - $pos_prev); |
|
| 145 | - $champ->ligne = $ligne; |
|
| 146 | - $result[] = $champ; |
|
| 147 | - $ligne += public_compte_ligne($champ->texte); |
|
| 148 | - } |
|
| 149 | - |
|
| 150 | - $champ = new Polyglotte(); |
|
| 151 | - $champ->ligne = $ligne; |
|
| 152 | - $champ->traductions = $multi['trads']; |
|
| 153 | - $result[] = $champ; |
|
| 154 | - $ligne += public_compte_ligne($multi['raw']); |
|
| 155 | - $pos_prev = $multi['pos'] + $multi['length']; |
|
| 156 | - } |
|
| 157 | - $texte = substr($texte, $pos_prev); |
|
| 158 | - } |
|
| 159 | - |
|
| 160 | - if ($texte !== '') { |
|
| 161 | - $champ = new Texte(); |
|
| 162 | - $champ->texte = $texte; |
|
| 163 | - $champ->ligne = $ligne; |
|
| 164 | - $result[] = $champ; |
|
| 165 | - } |
|
| 166 | - |
|
| 167 | - return $result; |
|
| 136 | + $collecteur = new Spip\Texte\Collecteur\Multis(); |
|
| 137 | + $multis = $collecteur->collecter($texte); |
|
| 138 | + |
|
| 139 | + if (!empty($multis)) { |
|
| 140 | + $pos_prev = 0; |
|
| 141 | + foreach ($multis as $multi) { |
|
| 142 | + if ($multi['pos'] > $pos_prev) { |
|
| 143 | + $champ = new Texte(); |
|
| 144 | + $champ->texte = substr($texte, $pos_prev, $multi['pos'] - $pos_prev); |
|
| 145 | + $champ->ligne = $ligne; |
|
| 146 | + $result[] = $champ; |
|
| 147 | + $ligne += public_compte_ligne($champ->texte); |
|
| 148 | + } |
|
| 149 | + |
|
| 150 | + $champ = new Polyglotte(); |
|
| 151 | + $champ->ligne = $ligne; |
|
| 152 | + $champ->traductions = $multi['trads']; |
|
| 153 | + $result[] = $champ; |
|
| 154 | + $ligne += public_compte_ligne($multi['raw']); |
|
| 155 | + $pos_prev = $multi['pos'] + $multi['length']; |
|
| 156 | + } |
|
| 157 | + $texte = substr($texte, $pos_prev); |
|
| 158 | + } |
|
| 159 | + |
|
| 160 | + if ($texte !== '') { |
|
| 161 | + $champ = new Texte(); |
|
| 162 | + $champ->texte = $texte; |
|
| 163 | + $champ->ligne = $ligne; |
|
| 164 | + $result[] = $champ; |
|
| 165 | + } |
|
| 166 | + |
|
| 167 | + return $result; |
|
| 168 | 168 | } |
| 169 | 169 | |
| 170 | 170 | |
@@ -187,64 +187,64 @@ discard block |
||
| 187 | 187 | **/ |
| 188 | 188 | function phraser_idiomes(string $texte, int $ligne, array $result): array { |
| 189 | 189 | |
| 190 | - while ( |
|
| 191 | - (($p = strpos($texte, '<:')) !== false) |
|
| 192 | - && preg_match(BALISE_IDIOMES, $texte, $match, PREG_OFFSET_CAPTURE, $p) |
|
| 193 | - ) { |
|
| 194 | - $poss = array_column($match, 1); |
|
| 195 | - $match = array_column($match, 0); |
|
| 196 | - $match = array_pad($match, 8, null); |
|
| 197 | - $p = $poss[0]; |
|
| 198 | - |
|
| 199 | - $idiome = (string) $match[0]; |
|
| 200 | - // faux idiome ? |
|
| 201 | - if (!$match[3] && (empty($match[5]) || $match[5][0] !== '=')) { |
|
| 202 | - $debut = substr($texte, 0, $p + strlen($idiome)); |
|
| 203 | - $result = phraser_champs($debut, $ligne, $result); |
|
| 204 | - $ligne += public_compte_ligne($debut); |
|
| 205 | - continue; |
|
| 206 | - } |
|
| 207 | - |
|
| 208 | - $debut = substr($texte, 0, $p); |
|
| 209 | - $result = phraser_champs($debut, $ligne, $result); |
|
| 210 | - $ligne += public_compte_ligne($debut); |
|
| 211 | - |
|
| 212 | - $texte = substr($texte, $p + strlen($idiome)); |
|
| 213 | - |
|
| 214 | - $champ = new Idiome(); |
|
| 215 | - $champ->ligne = $ligne; |
|
| 216 | - $ligne += public_compte_ligne($idiome); |
|
| 217 | - // Stocker les arguments de la balise de traduction |
|
| 218 | - $args = []; |
|
| 219 | - $largs = (string) $match[5]; |
|
| 220 | - while ( |
|
| 221 | - str_contains($largs, '=') |
|
| 222 | - && preg_match(BALISE_IDIOMES_ARGS, $largs, $r) |
|
| 223 | - ) { |
|
| 224 | - $args[$r[1]] = phraser_champs($r[2], 0, []); |
|
| 225 | - $largs = substr($largs, strlen($r[0])); |
|
| 226 | - } |
|
| 227 | - $champ->arg = $args; |
|
| 228 | - |
|
| 229 | - // TODO : supprimer ce strtolower cf https://git.spip.net/spip/spip/issues/2536 |
|
| 230 | - $champ->nom_champ = strtolower((string) $match[3]); |
|
| 231 | - $champ->module = $match[2]; |
|
| 232 | - |
|
| 233 | - // pas d'imbrication pour les filtres sur langue |
|
| 234 | - $champ->apres = ''; |
|
| 235 | - if (!is_null($match[7])) { |
|
| 236 | - $pos_apres = 0; |
|
| 237 | - phraser_args($match[7], ':', '', [], $champ, $pos_apres); |
|
| 238 | - $champ->apres = substr($match[7], $pos_apres); |
|
| 239 | - } |
|
| 240 | - $result[] = $champ; |
|
| 241 | - } |
|
| 242 | - |
|
| 243 | - if ($texte !== '') { |
|
| 244 | - $result = phraser_champs($texte, $ligne, $result); |
|
| 245 | - } |
|
| 246 | - |
|
| 247 | - return $result; |
|
| 190 | + while ( |
|
| 191 | + (($p = strpos($texte, '<:')) !== false) |
|
| 192 | + && preg_match(BALISE_IDIOMES, $texte, $match, PREG_OFFSET_CAPTURE, $p) |
|
| 193 | + ) { |
|
| 194 | + $poss = array_column($match, 1); |
|
| 195 | + $match = array_column($match, 0); |
|
| 196 | + $match = array_pad($match, 8, null); |
|
| 197 | + $p = $poss[0]; |
|
| 198 | + |
|
| 199 | + $idiome = (string) $match[0]; |
|
| 200 | + // faux idiome ? |
|
| 201 | + if (!$match[3] && (empty($match[5]) || $match[5][0] !== '=')) { |
|
| 202 | + $debut = substr($texte, 0, $p + strlen($idiome)); |
|
| 203 | + $result = phraser_champs($debut, $ligne, $result); |
|
| 204 | + $ligne += public_compte_ligne($debut); |
|
| 205 | + continue; |
|
| 206 | + } |
|
| 207 | + |
|
| 208 | + $debut = substr($texte, 0, $p); |
|
| 209 | + $result = phraser_champs($debut, $ligne, $result); |
|
| 210 | + $ligne += public_compte_ligne($debut); |
|
| 211 | + |
|
| 212 | + $texte = substr($texte, $p + strlen($idiome)); |
|
| 213 | + |
|
| 214 | + $champ = new Idiome(); |
|
| 215 | + $champ->ligne = $ligne; |
|
| 216 | + $ligne += public_compte_ligne($idiome); |
|
| 217 | + // Stocker les arguments de la balise de traduction |
|
| 218 | + $args = []; |
|
| 219 | + $largs = (string) $match[5]; |
|
| 220 | + while ( |
|
| 221 | + str_contains($largs, '=') |
|
| 222 | + && preg_match(BALISE_IDIOMES_ARGS, $largs, $r) |
|
| 223 | + ) { |
|
| 224 | + $args[$r[1]] = phraser_champs($r[2], 0, []); |
|
| 225 | + $largs = substr($largs, strlen($r[0])); |
|
| 226 | + } |
|
| 227 | + $champ->arg = $args; |
|
| 228 | + |
|
| 229 | + // TODO : supprimer ce strtolower cf https://git.spip.net/spip/spip/issues/2536 |
|
| 230 | + $champ->nom_champ = strtolower((string) $match[3]); |
|
| 231 | + $champ->module = $match[2]; |
|
| 232 | + |
|
| 233 | + // pas d'imbrication pour les filtres sur langue |
|
| 234 | + $champ->apres = ''; |
|
| 235 | + if (!is_null($match[7])) { |
|
| 236 | + $pos_apres = 0; |
|
| 237 | + phraser_args($match[7], ':', '', [], $champ, $pos_apres); |
|
| 238 | + $champ->apres = substr($match[7], $pos_apres); |
|
| 239 | + } |
|
| 240 | + $result[] = $champ; |
|
| 241 | + } |
|
| 242 | + |
|
| 243 | + if ($texte !== '') { |
|
| 244 | + $result = phraser_champs($texte, $ligne, $result); |
|
| 245 | + } |
|
| 246 | + |
|
| 247 | + return $result; |
|
| 248 | 248 | } |
| 249 | 249 | |
| 250 | 250 | /** |
@@ -263,53 +263,53 @@ discard block |
||
| 263 | 263 | **/ |
| 264 | 264 | function phraser_champs(string $texte, int $ligne, array $result): array { |
| 265 | 265 | |
| 266 | - while ( |
|
| 267 | - (($p = strpos($texte, '#')) !== false) |
|
| 268 | - && preg_match('/' . NOM_DE_CHAMP . '/S', $texte, $match, PREG_OFFSET_CAPTURE, $p) |
|
| 269 | - ) { |
|
| 270 | - $poss = array_column($match, 1); |
|
| 271 | - $match = array_column($match, 0); |
|
| 272 | - |
|
| 273 | - $p = $poss[0]; |
|
| 274 | - if ($p) { |
|
| 275 | - $debut = substr($texte, 0, $p); |
|
| 276 | - $result = phraser_polyglotte($debut, $ligne, $result); |
|
| 277 | - $ligne += public_compte_ligne($debut); |
|
| 278 | - } |
|
| 279 | - |
|
| 280 | - $champ = new Champ(); |
|
| 281 | - $champ->ligne = $ligne; |
|
| 282 | - $ligne += public_compte_ligne($match[0]); |
|
| 283 | - $champ->nom_boucle = $match[2]; |
|
| 284 | - $champ->nom_champ = $match[3]; |
|
| 285 | - $champ->etoile = $match[5]; |
|
| 286 | - |
|
| 287 | - // texte après la balise |
|
| 288 | - $suite = substr($texte, $p + strlen($match[0])); |
|
| 289 | - if ($suite && str_starts_with($suite, '{')) { |
|
| 290 | - phraser_arg($suite, '', [], $champ); |
|
| 291 | - // ce ltrim est une ereur de conception |
|
| 292 | - // mais on le conserve par souci de compatibilite |
|
| 293 | - $texte = ltrim((string) $suite); |
|
| 294 | - // Il faudrait le normaliser dans l'arbre de syntaxe abstraite |
|
| 295 | - // pour faire sauter ce cas particulier a la decompilation. |
|
| 296 | - /* Ce qui suit est malheureusement incomplet pour cela: |
|
| 266 | + while ( |
|
| 267 | + (($p = strpos($texte, '#')) !== false) |
|
| 268 | + && preg_match('/' . NOM_DE_CHAMP . '/S', $texte, $match, PREG_OFFSET_CAPTURE, $p) |
|
| 269 | + ) { |
|
| 270 | + $poss = array_column($match, 1); |
|
| 271 | + $match = array_column($match, 0); |
|
| 272 | + |
|
| 273 | + $p = $poss[0]; |
|
| 274 | + if ($p) { |
|
| 275 | + $debut = substr($texte, 0, $p); |
|
| 276 | + $result = phraser_polyglotte($debut, $ligne, $result); |
|
| 277 | + $ligne += public_compte_ligne($debut); |
|
| 278 | + } |
|
| 279 | + |
|
| 280 | + $champ = new Champ(); |
|
| 281 | + $champ->ligne = $ligne; |
|
| 282 | + $ligne += public_compte_ligne($match[0]); |
|
| 283 | + $champ->nom_boucle = $match[2]; |
|
| 284 | + $champ->nom_champ = $match[3]; |
|
| 285 | + $champ->etoile = $match[5]; |
|
| 286 | + |
|
| 287 | + // texte après la balise |
|
| 288 | + $suite = substr($texte, $p + strlen($match[0])); |
|
| 289 | + if ($suite && str_starts_with($suite, '{')) { |
|
| 290 | + phraser_arg($suite, '', [], $champ); |
|
| 291 | + // ce ltrim est une ereur de conception |
|
| 292 | + // mais on le conserve par souci de compatibilite |
|
| 293 | + $texte = ltrim((string) $suite); |
|
| 294 | + // Il faudrait le normaliser dans l'arbre de syntaxe abstraite |
|
| 295 | + // pour faire sauter ce cas particulier a la decompilation. |
|
| 296 | + /* Ce qui suit est malheureusement incomplet pour cela: |
|
| 297 | 297 | if ($n = (strlen($suite) - strlen($texte))) { |
| 298 | 298 | $champ->apres = array(new Texte); |
| 299 | 299 | $champ->apres[0]->texte = substr($suite,0,$n); |
| 300 | 300 | } |
| 301 | 301 | */ |
| 302 | - } else { |
|
| 303 | - $texte = $suite; |
|
| 304 | - } |
|
| 305 | - phraser_vieux($champ); |
|
| 306 | - $result[] = $champ; |
|
| 307 | - } |
|
| 308 | - if ($texte !== '') { |
|
| 309 | - $result = phraser_polyglotte($texte, $ligne, $result); |
|
| 310 | - } |
|
| 311 | - |
|
| 312 | - return $result; |
|
| 302 | + } else { |
|
| 303 | + $texte = $suite; |
|
| 304 | + } |
|
| 305 | + phraser_vieux($champ); |
|
| 306 | + $result[] = $champ; |
|
| 307 | + } |
|
| 308 | + if ($texte !== '') { |
|
| 309 | + $result = phraser_polyglotte($texte, $ligne, $result); |
|
| 310 | + } |
|
| 311 | + |
|
| 312 | + return $result; |
|
| 313 | 313 | } |
| 314 | 314 | |
| 315 | 315 | /** |
@@ -324,17 +324,17 @@ discard block |
||
| 324 | 324 | * @see phraser_champs_interieurs() |
| 325 | 325 | */ |
| 326 | 326 | function phraser_champs_etendus(string $texte, int $ligne, array $result): array { |
| 327 | - if ($texte === '') { |
|
| 328 | - return $result; |
|
| 329 | - } |
|
| 327 | + if ($texte === '') { |
|
| 328 | + return $result; |
|
| 329 | + } |
|
| 330 | 330 | |
| 331 | - $sep = '##'; |
|
| 332 | - while (str_contains($texte, $sep)) { |
|
| 333 | - $sep .= '#'; |
|
| 334 | - } |
|
| 331 | + $sep = '##'; |
|
| 332 | + while (str_contains($texte, $sep)) { |
|
| 333 | + $sep .= '#'; |
|
| 334 | + } |
|
| 335 | 335 | |
| 336 | - $champs = phraser_champs_interieurs($texte, $ligne, $sep); |
|
| 337 | - return array_merge($result, $champs); |
|
| 336 | + $champs = phraser_champs_interieurs($texte, $ligne, $sep); |
|
| 337 | + return array_merge($result, $champs); |
|
| 338 | 338 | } |
| 339 | 339 | |
| 340 | 340 | /** |
@@ -347,156 +347,156 @@ discard block |
||
| 347 | 347 | * @param Champ|Inclure|Idiome|Boucle $pointeur_champ |
| 348 | 348 | */ |
| 349 | 349 | function phraser_args(string $texte, string $fin, string $sep, array $result, &$pointeur_champ, int &$pos_debut): array { |
| 350 | - $length = strlen($texte); |
|
| 351 | - while ($pos_debut < $length && trim($texte[$pos_debut]) === '') { |
|
| 352 | - $pos_debut++; |
|
| 353 | - } |
|
| 354 | - while (($pos_debut < $length) && !str_contains($fin, $texte[$pos_debut])) { |
|
| 355 | - // phraser_arg modifie directement le $texte, on fait donc avec ici en passant par une sous chaine |
|
| 356 | - $st = substr($texte, $pos_debut); |
|
| 357 | - $result = phraser_arg($st, $sep, $result, $pointeur_champ); |
|
| 358 | - $pos_debut = $length - strlen((string) $st); |
|
| 359 | - while ($pos_debut < $length && trim($texte[$pos_debut]) === '') { |
|
| 360 | - $pos_debut++; |
|
| 361 | - } |
|
| 362 | - } |
|
| 363 | - |
|
| 364 | - return $result; |
|
| 350 | + $length = strlen($texte); |
|
| 351 | + while ($pos_debut < $length && trim($texte[$pos_debut]) === '') { |
|
| 352 | + $pos_debut++; |
|
| 353 | + } |
|
| 354 | + while (($pos_debut < $length) && !str_contains($fin, $texte[$pos_debut])) { |
|
| 355 | + // phraser_arg modifie directement le $texte, on fait donc avec ici en passant par une sous chaine |
|
| 356 | + $st = substr($texte, $pos_debut); |
|
| 357 | + $result = phraser_arg($st, $sep, $result, $pointeur_champ); |
|
| 358 | + $pos_debut = $length - strlen((string) $st); |
|
| 359 | + while ($pos_debut < $length && trim($texte[$pos_debut]) === '') { |
|
| 360 | + $pos_debut++; |
|
| 361 | + } |
|
| 362 | + } |
|
| 363 | + |
|
| 364 | + return $result; |
|
| 365 | 365 | } |
| 366 | 366 | |
| 367 | 367 | function phraser_arg(&$texte, $sep, $result, &$pointeur_champ) { |
| 368 | - preg_match(',^(\|?[^}{)|]*)(.*)$,ms', (string) $texte, $match); |
|
| 369 | - $suite = ltrim($match[2]); |
|
| 370 | - $fonc = trim($match[1]); |
|
| 371 | - if ($fonc && $fonc[0] == '|') { |
|
| 372 | - $fonc = ltrim(substr($fonc, 1)); |
|
| 373 | - } |
|
| 374 | - $res = [$fonc]; |
|
| 375 | - $err_f = ''; |
|
| 376 | - // cas du filtre sans argument ou du critere / |
|
| 377 | - if (($suite && ($suite[0] != '{')) || ($fonc && $fonc[0] == '/')) { |
|
| 378 | - // si pas d'argument, alors il faut une fonction ou un double | |
|
| 379 | - if (!$match[1]) { |
|
| 380 | - $err_f = ['zbug_erreur_filtre', ['filtre' => $texte]]; |
|
| 381 | - erreur_squelette($err_f, $pointeur_champ); |
|
| 382 | - $texte = ''; |
|
| 383 | - } else { |
|
| 384 | - $texte = $suite; |
|
| 385 | - } |
|
| 386 | - if ($err_f) { |
|
| 387 | - $pointeur_champ->param = false; |
|
| 388 | - } elseif ($fonc !== '') { |
|
| 389 | - $pointeur_champ->param[] = $res; |
|
| 390 | - } |
|
| 391 | - // pour les balises avec faux filtres qui boudent ce dur larbeur |
|
| 392 | - $pointeur_champ->fonctions[] = [$fonc, '']; |
|
| 393 | - |
|
| 394 | - return $result; |
|
| 395 | - } |
|
| 396 | - $args = ltrim(substr($suite, 1)); // virer le '(' initial |
|
| 397 | - $collecte = []; |
|
| 398 | - while ($args && $args[0] != '}') { |
|
| 399 | - if ($args[0] == '"') { |
|
| 400 | - preg_match('/^(")([^"]*)(")(.*)$/ms', $args, $regs); |
|
| 401 | - } elseif ($args[0] == "'") { |
|
| 402 | - preg_match("/^(')([^']*)(')(.*)$/ms", $args, $regs); |
|
| 403 | - } else { |
|
| 404 | - preg_match('/^([[:space:]]*)([^,([{}]*([(\[{][^])}]*[])}])?[^,}]*)([,}].*)$/ms', $args, $regs); |
|
| 405 | - if (!isset($regs[2]) || !strlen($regs[2])) { |
|
| 406 | - $err_f = ['zbug_erreur_filtre', ['filtre' => $args]]; |
|
| 407 | - erreur_squelette($err_f, $pointeur_champ); |
|
| 408 | - $champ = new Texte(); |
|
| 409 | - $champ->apres = $champ->avant = $args = ''; |
|
| 410 | - break; |
|
| 411 | - } |
|
| 412 | - } |
|
| 413 | - $arg = $regs[2]; |
|
| 414 | - if (trim($regs[1])) { |
|
| 415 | - $champ = new Texte(); |
|
| 416 | - $champ->texte = $arg; |
|
| 417 | - $champ->apres = $champ->avant = $regs[1]; |
|
| 418 | - $result[] = $champ; |
|
| 419 | - $collecte[] = $champ; |
|
| 420 | - $args = ltrim($regs[count($regs) - 1]); |
|
| 421 | - } else { |
|
| 422 | - if (!preg_match('/' . NOM_DE_CHAMP . '([{|])/', $arg, $r)) { |
|
| 423 | - // 0 est un aveu d'impuissance. A completer |
|
| 424 | - $arg = phraser_champs_exterieurs($arg, 0, $sep, $result); |
|
| 425 | - |
|
| 426 | - $args = ltrim($regs[count($regs) - 1]); |
|
| 427 | - $collecte = array_merge($collecte, $arg); |
|
| 428 | - $result = array_merge($result, $arg); |
|
| 429 | - } else { |
|
| 430 | - $n = strpos($args, (string) $r[0]); |
|
| 431 | - $pred = substr($args, 0, $n); |
|
| 432 | - $par = ',}'; |
|
| 433 | - if (preg_match('/^(.*)\($/', $pred, $m)) { |
|
| 434 | - $pred = $m[1]; |
|
| 435 | - $par = ')'; |
|
| 436 | - } |
|
| 437 | - if ($pred) { |
|
| 438 | - $champ = new Texte(); |
|
| 439 | - $champ->texte = $pred; |
|
| 440 | - $champ->apres = $champ->avant = ''; |
|
| 441 | - $result[] = $champ; |
|
| 442 | - $collecte[] = $champ; |
|
| 443 | - } |
|
| 444 | - $rec = substr($args, $n + strlen($r[0]) - 1); |
|
| 445 | - $champ = new Champ(); |
|
| 446 | - $champ->nom_boucle = $r[2]; |
|
| 447 | - $champ->nom_champ = $r[3]; |
|
| 448 | - $champ->etoile = $r[5]; |
|
| 449 | - $next = $r[6]; |
|
| 450 | - while ($next == '{') { |
|
| 451 | - phraser_arg($rec, $sep, [], $champ); |
|
| 452 | - $args = ltrim((string) $rec); |
|
| 453 | - $next = $args[0] ?? ''; |
|
| 454 | - } |
|
| 455 | - while ($next == '|') { |
|
| 456 | - $pos_apres = 0; |
|
| 457 | - phraser_args($rec, $par, $sep, [], $champ, $pos_apres); |
|
| 458 | - $args = substr((string) $rec, $pos_apres); |
|
| 459 | - $next = $args[0] ?? ''; |
|
| 460 | - } |
|
| 461 | - // Si erreur de syntaxe dans un sous-argument, propager. |
|
| 462 | - if ($champ->param === false) { |
|
| 463 | - $err_f = true; |
|
| 464 | - } else { |
|
| 465 | - phraser_vieux($champ); |
|
| 466 | - } |
|
| 467 | - if ($par == ')') { |
|
| 468 | - $args = substr($args, 1); |
|
| 469 | - } |
|
| 470 | - $collecte[] = $champ; |
|
| 471 | - $result[] = $champ; |
|
| 472 | - } |
|
| 473 | - } |
|
| 474 | - if (isset($args[0]) && $args[0] == ',') { |
|
| 475 | - $args = ltrim(substr($args, 1)); |
|
| 476 | - if ($collecte) { |
|
| 477 | - $res[] = $collecte; |
|
| 478 | - $collecte = []; |
|
| 479 | - } |
|
| 480 | - } |
|
| 481 | - } |
|
| 482 | - if ($collecte) { |
|
| 483 | - $res[] = $collecte; |
|
| 484 | - $collecte = []; |
|
| 485 | - } |
|
| 486 | - $texte = substr($args, 1); |
|
| 487 | - $source = substr($suite, 0, strlen($suite) - strlen($texte)); |
|
| 488 | - // propager les erreurs, et ignorer les param vides |
|
| 489 | - if ($pointeur_champ->param !== false) { |
|
| 490 | - if ($err_f) { |
|
| 491 | - $pointeur_champ->param = false; |
|
| 492 | - } elseif ($fonc !== '' || count($res) > 1) { |
|
| 493 | - $pointeur_champ->param[] = $res; |
|
| 494 | - } |
|
| 495 | - } |
|
| 496 | - // pour les balises avec faux filtres qui boudent ce dur larbeur |
|
| 497 | - $pointeur_champ->fonctions[] = [$fonc, $source]; |
|
| 498 | - |
|
| 499 | - return $result; |
|
| 368 | + preg_match(',^(\|?[^}{)|]*)(.*)$,ms', (string) $texte, $match); |
|
| 369 | + $suite = ltrim($match[2]); |
|
| 370 | + $fonc = trim($match[1]); |
|
| 371 | + if ($fonc && $fonc[0] == '|') { |
|
| 372 | + $fonc = ltrim(substr($fonc, 1)); |
|
| 373 | + } |
|
| 374 | + $res = [$fonc]; |
|
| 375 | + $err_f = ''; |
|
| 376 | + // cas du filtre sans argument ou du critere / |
|
| 377 | + if (($suite && ($suite[0] != '{')) || ($fonc && $fonc[0] == '/')) { |
|
| 378 | + // si pas d'argument, alors il faut une fonction ou un double | |
|
| 379 | + if (!$match[1]) { |
|
| 380 | + $err_f = ['zbug_erreur_filtre', ['filtre' => $texte]]; |
|
| 381 | + erreur_squelette($err_f, $pointeur_champ); |
|
| 382 | + $texte = ''; |
|
| 383 | + } else { |
|
| 384 | + $texte = $suite; |
|
| 385 | + } |
|
| 386 | + if ($err_f) { |
|
| 387 | + $pointeur_champ->param = false; |
|
| 388 | + } elseif ($fonc !== '') { |
|
| 389 | + $pointeur_champ->param[] = $res; |
|
| 390 | + } |
|
| 391 | + // pour les balises avec faux filtres qui boudent ce dur larbeur |
|
| 392 | + $pointeur_champ->fonctions[] = [$fonc, '']; |
|
| 393 | + |
|
| 394 | + return $result; |
|
| 395 | + } |
|
| 396 | + $args = ltrim(substr($suite, 1)); // virer le '(' initial |
|
| 397 | + $collecte = []; |
|
| 398 | + while ($args && $args[0] != '}') { |
|
| 399 | + if ($args[0] == '"') { |
|
| 400 | + preg_match('/^(")([^"]*)(")(.*)$/ms', $args, $regs); |
|
| 401 | + } elseif ($args[0] == "'") { |
|
| 402 | + preg_match("/^(')([^']*)(')(.*)$/ms", $args, $regs); |
|
| 403 | + } else { |
|
| 404 | + preg_match('/^([[:space:]]*)([^,([{}]*([(\[{][^])}]*[])}])?[^,}]*)([,}].*)$/ms', $args, $regs); |
|
| 405 | + if (!isset($regs[2]) || !strlen($regs[2])) { |
|
| 406 | + $err_f = ['zbug_erreur_filtre', ['filtre' => $args]]; |
|
| 407 | + erreur_squelette($err_f, $pointeur_champ); |
|
| 408 | + $champ = new Texte(); |
|
| 409 | + $champ->apres = $champ->avant = $args = ''; |
|
| 410 | + break; |
|
| 411 | + } |
|
| 412 | + } |
|
| 413 | + $arg = $regs[2]; |
|
| 414 | + if (trim($regs[1])) { |
|
| 415 | + $champ = new Texte(); |
|
| 416 | + $champ->texte = $arg; |
|
| 417 | + $champ->apres = $champ->avant = $regs[1]; |
|
| 418 | + $result[] = $champ; |
|
| 419 | + $collecte[] = $champ; |
|
| 420 | + $args = ltrim($regs[count($regs) - 1]); |
|
| 421 | + } else { |
|
| 422 | + if (!preg_match('/' . NOM_DE_CHAMP . '([{|])/', $arg, $r)) { |
|
| 423 | + // 0 est un aveu d'impuissance. A completer |
|
| 424 | + $arg = phraser_champs_exterieurs($arg, 0, $sep, $result); |
|
| 425 | + |
|
| 426 | + $args = ltrim($regs[count($regs) - 1]); |
|
| 427 | + $collecte = array_merge($collecte, $arg); |
|
| 428 | + $result = array_merge($result, $arg); |
|
| 429 | + } else { |
|
| 430 | + $n = strpos($args, (string) $r[0]); |
|
| 431 | + $pred = substr($args, 0, $n); |
|
| 432 | + $par = ',}'; |
|
| 433 | + if (preg_match('/^(.*)\($/', $pred, $m)) { |
|
| 434 | + $pred = $m[1]; |
|
| 435 | + $par = ')'; |
|
| 436 | + } |
|
| 437 | + if ($pred) { |
|
| 438 | + $champ = new Texte(); |
|
| 439 | + $champ->texte = $pred; |
|
| 440 | + $champ->apres = $champ->avant = ''; |
|
| 441 | + $result[] = $champ; |
|
| 442 | + $collecte[] = $champ; |
|
| 443 | + } |
|
| 444 | + $rec = substr($args, $n + strlen($r[0]) - 1); |
|
| 445 | + $champ = new Champ(); |
|
| 446 | + $champ->nom_boucle = $r[2]; |
|
| 447 | + $champ->nom_champ = $r[3]; |
|
| 448 | + $champ->etoile = $r[5]; |
|
| 449 | + $next = $r[6]; |
|
| 450 | + while ($next == '{') { |
|
| 451 | + phraser_arg($rec, $sep, [], $champ); |
|
| 452 | + $args = ltrim((string) $rec); |
|
| 453 | + $next = $args[0] ?? ''; |
|
| 454 | + } |
|
| 455 | + while ($next == '|') { |
|
| 456 | + $pos_apres = 0; |
|
| 457 | + phraser_args($rec, $par, $sep, [], $champ, $pos_apres); |
|
| 458 | + $args = substr((string) $rec, $pos_apres); |
|
| 459 | + $next = $args[0] ?? ''; |
|
| 460 | + } |
|
| 461 | + // Si erreur de syntaxe dans un sous-argument, propager. |
|
| 462 | + if ($champ->param === false) { |
|
| 463 | + $err_f = true; |
|
| 464 | + } else { |
|
| 465 | + phraser_vieux($champ); |
|
| 466 | + } |
|
| 467 | + if ($par == ')') { |
|
| 468 | + $args = substr($args, 1); |
|
| 469 | + } |
|
| 470 | + $collecte[] = $champ; |
|
| 471 | + $result[] = $champ; |
|
| 472 | + } |
|
| 473 | + } |
|
| 474 | + if (isset($args[0]) && $args[0] == ',') { |
|
| 475 | + $args = ltrim(substr($args, 1)); |
|
| 476 | + if ($collecte) { |
|
| 477 | + $res[] = $collecte; |
|
| 478 | + $collecte = []; |
|
| 479 | + } |
|
| 480 | + } |
|
| 481 | + } |
|
| 482 | + if ($collecte) { |
|
| 483 | + $res[] = $collecte; |
|
| 484 | + $collecte = []; |
|
| 485 | + } |
|
| 486 | + $texte = substr($args, 1); |
|
| 487 | + $source = substr($suite, 0, strlen($suite) - strlen($texte)); |
|
| 488 | + // propager les erreurs, et ignorer les param vides |
|
| 489 | + if ($pointeur_champ->param !== false) { |
|
| 490 | + if ($err_f) { |
|
| 491 | + $pointeur_champ->param = false; |
|
| 492 | + } elseif ($fonc !== '' || count($res) > 1) { |
|
| 493 | + $pointeur_champ->param[] = $res; |
|
| 494 | + } |
|
| 495 | + } |
|
| 496 | + // pour les balises avec faux filtres qui boudent ce dur larbeur |
|
| 497 | + $pointeur_champ->fonctions[] = [$fonc, $source]; |
|
| 498 | + |
|
| 499 | + return $result; |
|
| 500 | 500 | } |
| 501 | 501 | |
| 502 | 502 | /** |
@@ -504,28 +504,28 @@ discard block |
||
| 504 | 504 | * et phraser les inclure sur les morceaux intermédiaires |
| 505 | 505 | */ |
| 506 | 506 | function phraser_champs_exterieurs(string $texte, int $ligne, string $sep, array $nested_res): array { |
| 507 | - $res = []; |
|
| 508 | - $preg = ',^%' . preg_quote($sep, ',') . '([0-9]+)(\n*)@,'; |
|
| 509 | - while (($p = strpos($texte, "%$sep")) !== false) { |
|
| 510 | - $suite = substr($texte, $p); |
|
| 511 | - if (!preg_match($preg, $suite, $m)) { |
|
| 512 | - break; |
|
| 513 | - } |
|
| 514 | - if ($p) { |
|
| 515 | - $debut = substr($texte, 0, $p); |
|
| 516 | - $res = phraser_inclure($debut, $ligne, $res); |
|
| 517 | - $ligne += public_compte_ligne($debut); |
|
| 518 | - } |
|
| 519 | - $res[] = $nested_res[$m[1]]; |
|
| 520 | - $ligne += strlen($m[2]); |
|
| 521 | - $texte = substr($suite, strlen($m[0])); |
|
| 522 | - } |
|
| 523 | - |
|
| 524 | - if ($texte !== '') { |
|
| 525 | - $res = phraser_inclure($texte, $ligne, $res); |
|
| 526 | - } |
|
| 527 | - |
|
| 528 | - return $res; |
|
| 507 | + $res = []; |
|
| 508 | + $preg = ',^%' . preg_quote($sep, ',') . '([0-9]+)(\n*)@,'; |
|
| 509 | + while (($p = strpos($texte, "%$sep")) !== false) { |
|
| 510 | + $suite = substr($texte, $p); |
|
| 511 | + if (!preg_match($preg, $suite, $m)) { |
|
| 512 | + break; |
|
| 513 | + } |
|
| 514 | + if ($p) { |
|
| 515 | + $debut = substr($texte, 0, $p); |
|
| 516 | + $res = phraser_inclure($debut, $ligne, $res); |
|
| 517 | + $ligne += public_compte_ligne($debut); |
|
| 518 | + } |
|
| 519 | + $res[] = $nested_res[$m[1]]; |
|
| 520 | + $ligne += strlen($m[2]); |
|
| 521 | + $texte = substr($suite, strlen($m[0])); |
|
| 522 | + } |
|
| 523 | + |
|
| 524 | + if ($texte !== '') { |
|
| 525 | + $res = phraser_inclure($texte, $ligne, $res); |
|
| 526 | + } |
|
| 527 | + |
|
| 528 | + return $res; |
|
| 529 | 529 | } |
| 530 | 530 | |
| 531 | 531 | /** |
@@ -542,75 +542,75 @@ discard block |
||
| 542 | 542 | */ |
| 543 | 543 | function phraser_champs_interieurs(string $texte, int $no_ligne, string $sep): array { |
| 544 | 544 | |
| 545 | - $champs_trouves = []; |
|
| 546 | - do { |
|
| 547 | - $parties = []; |
|
| 548 | - $nbl = $no_ligne; |
|
| 549 | - $search_pos = 0; |
|
| 550 | - |
|
| 551 | - // trouver tous les champs intérieurs (sans autre champs imbriqués), les analyser, et les remplacer par un placehoder |
|
| 552 | - // le $texte est découpé en parties qu'on re-parse ensuite jusqu'à ce qu'on ne trouve plus de nouveaux champs |
|
| 553 | - while ( |
|
| 554 | - (($p = strpos($texte, '[', $search_pos)) !== false) |
|
| 555 | - && preg_match(CHAMP_ETENDU, $texte, $match, PREG_OFFSET_CAPTURE, $p) |
|
| 556 | - ) { |
|
| 557 | - $poss = array_column($match, 1); |
|
| 558 | - $match = array_column($match, 0); |
|
| 559 | - // si jamais il y a une sous balise inclue dans la partie 7, alors on est pas dans le champ le plus interieur, on continue le search plus loin |
|
| 560 | - if (str_contains($match[7], '[') && preg_match(CHAMP_ETENDU, $texte, $r, 0, $poss[7])) { |
|
| 561 | - $search_pos = $poss[7]; |
|
| 562 | - continue; |
|
| 563 | - } |
|
| 564 | - |
|
| 565 | - $nbl_debut = 0; |
|
| 566 | - if ($poss[0]) { |
|
| 567 | - $nbl_debut = public_compte_ligne($texte, 0, $poss[0]); |
|
| 568 | - $parties[] = substr($texte, 0, $poss[0]); |
|
| 569 | - } |
|
| 570 | - $nbl += $nbl_debut; |
|
| 571 | - |
|
| 572 | - $champ = new Champ(); |
|
| 573 | - $champ->ligne = $nbl; |
|
| 574 | - $champ->nom_boucle = $match[3]; |
|
| 575 | - $champ->nom_champ = $match[4]; |
|
| 576 | - $champ->etoile = $match[6]; |
|
| 577 | - $nbl_champ = public_compte_ligne($texte, $poss[0], $poss[0] + strlen($match[0])); |
|
| 578 | - |
|
| 579 | - // phraser_args indiquera ou commence apres |
|
| 580 | - $pos_apres = 0; |
|
| 581 | - $champs_trouves = phraser_args($match[7], ')', $sep, $champs_trouves, $champ, $pos_apres); |
|
| 582 | - phraser_vieux($champ); |
|
| 583 | - $champ->avant = phraser_champs_exterieurs($match[1], $nbl, $sep, $champs_trouves); |
|
| 584 | - $apres = substr($match[7], $pos_apres + 1); |
|
| 585 | - |
|
| 586 | - $nbl_debut_champ = 0; |
|
| 587 | - if (!empty($apres)) { |
|
| 588 | - $nbl_debut_champ = public_compte_ligne($texte, $poss[0], $poss[7] + $pos_apres + 1); |
|
| 589 | - } |
|
| 590 | - $champ->apres = phraser_champs_exterieurs($apres, $nbl + $nbl_debut_champ, $sep, $champs_trouves); |
|
| 591 | - |
|
| 592 | - // reinjecter la boucle si c'en est une |
|
| 593 | - phraser_boucle_placeholder($champ); |
|
| 594 | - |
|
| 595 | - $champs_trouves[] = $champ; |
|
| 596 | - $j = count($champs_trouves) - 1; |
|
| 597 | - // on remplace ce champ par un placeholder |
|
| 598 | - // ajouter $nbl_champ retour ligne pour que la partie conserve le nombre de lignes lors des itérations suivantes |
|
| 599 | - $parties[] = ($t = "%{$sep}{$j}" . str_repeat("\n", $nbl_champ) . '@'); |
|
| 600 | - $nbl += $nbl_champ; |
|
| 601 | - |
|
| 602 | - $texte = substr($texte, $poss[0] + strlen($match[0])); |
|
| 603 | - $search_pos = 0; |
|
| 604 | - } |
|
| 605 | - |
|
| 606 | - // si on a trouvé des morceaux, il faut recommencer |
|
| 607 | - if (count($parties)) { |
|
| 608 | - // reprenons tous les morceaux qu'on a mis de côté car ne matchant pas (encore) |
|
| 609 | - $texte = implode('', $parties) . $texte; |
|
| 610 | - } |
|
| 611 | - } while (count($parties)); |
|
| 612 | - |
|
| 613 | - return phraser_champs_exterieurs($texte, $no_ligne, $sep, $champs_trouves); |
|
| 545 | + $champs_trouves = []; |
|
| 546 | + do { |
|
| 547 | + $parties = []; |
|
| 548 | + $nbl = $no_ligne; |
|
| 549 | + $search_pos = 0; |
|
| 550 | + |
|
| 551 | + // trouver tous les champs intérieurs (sans autre champs imbriqués), les analyser, et les remplacer par un placehoder |
|
| 552 | + // le $texte est découpé en parties qu'on re-parse ensuite jusqu'à ce qu'on ne trouve plus de nouveaux champs |
|
| 553 | + while ( |
|
| 554 | + (($p = strpos($texte, '[', $search_pos)) !== false) |
|
| 555 | + && preg_match(CHAMP_ETENDU, $texte, $match, PREG_OFFSET_CAPTURE, $p) |
|
| 556 | + ) { |
|
| 557 | + $poss = array_column($match, 1); |
|
| 558 | + $match = array_column($match, 0); |
|
| 559 | + // si jamais il y a une sous balise inclue dans la partie 7, alors on est pas dans le champ le plus interieur, on continue le search plus loin |
|
| 560 | + if (str_contains($match[7], '[') && preg_match(CHAMP_ETENDU, $texte, $r, 0, $poss[7])) { |
|
| 561 | + $search_pos = $poss[7]; |
|
| 562 | + continue; |
|
| 563 | + } |
|
| 564 | + |
|
| 565 | + $nbl_debut = 0; |
|
| 566 | + if ($poss[0]) { |
|
| 567 | + $nbl_debut = public_compte_ligne($texte, 0, $poss[0]); |
|
| 568 | + $parties[] = substr($texte, 0, $poss[0]); |
|
| 569 | + } |
|
| 570 | + $nbl += $nbl_debut; |
|
| 571 | + |
|
| 572 | + $champ = new Champ(); |
|
| 573 | + $champ->ligne = $nbl; |
|
| 574 | + $champ->nom_boucle = $match[3]; |
|
| 575 | + $champ->nom_champ = $match[4]; |
|
| 576 | + $champ->etoile = $match[6]; |
|
| 577 | + $nbl_champ = public_compte_ligne($texte, $poss[0], $poss[0] + strlen($match[0])); |
|
| 578 | + |
|
| 579 | + // phraser_args indiquera ou commence apres |
|
| 580 | + $pos_apres = 0; |
|
| 581 | + $champs_trouves = phraser_args($match[7], ')', $sep, $champs_trouves, $champ, $pos_apres); |
|
| 582 | + phraser_vieux($champ); |
|
| 583 | + $champ->avant = phraser_champs_exterieurs($match[1], $nbl, $sep, $champs_trouves); |
|
| 584 | + $apres = substr($match[7], $pos_apres + 1); |
|
| 585 | + |
|
| 586 | + $nbl_debut_champ = 0; |
|
| 587 | + if (!empty($apres)) { |
|
| 588 | + $nbl_debut_champ = public_compte_ligne($texte, $poss[0], $poss[7] + $pos_apres + 1); |
|
| 589 | + } |
|
| 590 | + $champ->apres = phraser_champs_exterieurs($apres, $nbl + $nbl_debut_champ, $sep, $champs_trouves); |
|
| 591 | + |
|
| 592 | + // reinjecter la boucle si c'en est une |
|
| 593 | + phraser_boucle_placeholder($champ); |
|
| 594 | + |
|
| 595 | + $champs_trouves[] = $champ; |
|
| 596 | + $j = count($champs_trouves) - 1; |
|
| 597 | + // on remplace ce champ par un placeholder |
|
| 598 | + // ajouter $nbl_champ retour ligne pour que la partie conserve le nombre de lignes lors des itérations suivantes |
|
| 599 | + $parties[] = ($t = "%{$sep}{$j}" . str_repeat("\n", $nbl_champ) . '@'); |
|
| 600 | + $nbl += $nbl_champ; |
|
| 601 | + |
|
| 602 | + $texte = substr($texte, $poss[0] + strlen($match[0])); |
|
| 603 | + $search_pos = 0; |
|
| 604 | + } |
|
| 605 | + |
|
| 606 | + // si on a trouvé des morceaux, il faut recommencer |
|
| 607 | + if (count($parties)) { |
|
| 608 | + // reprenons tous les morceaux qu'on a mis de côté car ne matchant pas (encore) |
|
| 609 | + $texte = implode('', $parties) . $texte; |
|
| 610 | + } |
|
| 611 | + } while (count($parties)); |
|
| 612 | + |
|
| 613 | + return phraser_champs_exterieurs($texte, $no_ligne, $sep, $champs_trouves); |
|
| 614 | 614 | } |
| 615 | 615 | |
| 616 | 616 | /** |
@@ -621,20 +621,20 @@ discard block |
||
| 621 | 621 | * @return void |
| 622 | 622 | */ |
| 623 | 623 | function phraser_vieux(&$champ) { |
| 624 | - $nom = $champ->nom_champ; |
|
| 625 | - if ($champ->param) { |
|
| 626 | - if ($nom == 'MODELE') { |
|
| 627 | - if (!function_exists('phraser_vieux_modele')) { |
|
| 628 | - include_spip('public/normaliser'); |
|
| 629 | - } |
|
| 630 | - phraser_vieux_modele($champ); |
|
| 631 | - } elseif ($nom == 'INCLURE' || $nom == 'INCLUDE') { |
|
| 632 | - if (!function_exists('phraser_vieux_inclu')) { |
|
| 633 | - include_spip('public/normaliser'); |
|
| 634 | - } |
|
| 635 | - phraser_vieux_inclu($champ); |
|
| 636 | - } |
|
| 637 | - } |
|
| 624 | + $nom = $champ->nom_champ; |
|
| 625 | + if ($champ->param) { |
|
| 626 | + if ($nom == 'MODELE') { |
|
| 627 | + if (!function_exists('phraser_vieux_modele')) { |
|
| 628 | + include_spip('public/normaliser'); |
|
| 629 | + } |
|
| 630 | + phraser_vieux_modele($champ); |
|
| 631 | + } elseif ($nom == 'INCLURE' || $nom == 'INCLUDE') { |
|
| 632 | + if (!function_exists('phraser_vieux_inclu')) { |
|
| 633 | + include_spip('public/normaliser'); |
|
| 634 | + } |
|
| 635 | + phraser_vieux_inclu($champ); |
|
| 636 | + } |
|
| 637 | + } |
|
| 638 | 638 | } |
| 639 | 639 | |
| 640 | 640 | |
@@ -662,199 +662,199 @@ discard block |
||
| 662 | 662 | **/ |
| 663 | 663 | function phraser_criteres($params, &$result) { |
| 664 | 664 | |
| 665 | - $err_ci = ''; // indiquera s'il y a eu une erreur |
|
| 666 | - $args = []; |
|
| 667 | - $type = $result->type_requete; |
|
| 668 | - $doublons = []; |
|
| 669 | - foreach ($params as $v) { |
|
| 670 | - $var = $v[1][0]; |
|
| 671 | - $param = ($var->type != 'texte') ? '' : $var->texte; |
|
| 672 | - if (((is_countable($v) ? count($v) : 0) > 2) && (!preg_match(',[^A-Za-z]IN[^A-Za-z],i', (string) $param))) { |
|
| 673 | - // plus d'un argument et pas le critere IN: |
|
| 674 | - // detecter comme on peut si c'est le critere implicite LIMIT debut, fin |
|
| 675 | - if ( |
|
| 676 | - $var->type != 'texte' || preg_match('/^(n|n-|(n-)?\d+)$/S', (string) $param) |
|
| 677 | - ) { |
|
| 678 | - $op = ','; |
|
| 679 | - $not = false; |
|
| 680 | - $cond = false; |
|
| 681 | - } else { |
|
| 682 | - // Le debut du premier argument est l'operateur |
|
| 683 | - preg_match('/^([!]?)([a-zA-Z]\w*)[[:space:]]*(\??)[[:space:]]*(.*)$/ms', (string) $param, $m); |
|
| 684 | - $op = $m[2]; |
|
| 685 | - $not = (bool) $m[1]; |
|
| 686 | - $cond = (bool) $m[3]; |
|
| 687 | - // virer le premier argument, |
|
| 688 | - // et mettre son reliquat eventuel |
|
| 689 | - // Recopier pour ne pas alterer le texte source |
|
| 690 | - // utile au debusqueur |
|
| 691 | - if ($m[4]) { |
|
| 692 | - // une maniere tres sale de supprimer les "' autour de {critere "xxx","yyy"} |
|
| 693 | - if (preg_match(',^(["\'])(.*)\1$,', $m[4])) { |
|
| 694 | - $c = null; |
|
| 695 | - eval('$c = ' . $m[4] . ';'); |
|
| 696 | - if (isset($c)) { |
|
| 697 | - $m[4] = $c; |
|
| 698 | - } |
|
| 699 | - } |
|
| 700 | - $texte = new Texte(); |
|
| 701 | - $texte->texte = $m[4]; |
|
| 702 | - $v[1][0] = $texte; |
|
| 703 | - } else { |
|
| 704 | - array_shift($v[1]); |
|
| 705 | - } |
|
| 706 | - } |
|
| 707 | - array_shift($v); // $v[O] est vide |
|
| 708 | - $crit = new Critere(); |
|
| 709 | - $crit->op = $op; |
|
| 710 | - $crit->not = $not; |
|
| 711 | - $crit->cond = $cond; |
|
| 712 | - $crit->exclus = ''; |
|
| 713 | - $crit->param = $v; |
|
| 714 | - $args[] = $crit; |
|
| 715 | - } else { |
|
| 716 | - if ($var->type != 'texte') { |
|
| 717 | - // cas 1 seul arg ne commencant pas par du texte brut: |
|
| 718 | - // erreur ou critere infixe "/" |
|
| 719 | - if (($v[1][1]->type != 'texte') || (trim((string) $v[1][1]->texte) != '/')) { |
|
| 720 | - $err_ci = [ |
|
| 721 | - 'zbug_critere_inconnu', |
|
| 722 | - ['critere' => $var->nom_champ] |
|
| 723 | - ]; |
|
| 724 | - erreur_squelette($err_ci, $result); |
|
| 725 | - } else { |
|
| 726 | - $crit = new Critere(); |
|
| 727 | - $crit->op = '/'; |
|
| 728 | - $crit->not = false; |
|
| 729 | - $crit->exclus = ''; |
|
| 730 | - $crit->param = [[$v[1][0]], [$v[1][2]]]; |
|
| 731 | - $args[] = $crit; |
|
| 732 | - } |
|
| 733 | - } else { |
|
| 734 | - // traiter qq lexemes particuliers pour faciliter la suite |
|
| 735 | - // les separateurs |
|
| 736 | - if ($var->apres) { |
|
| 737 | - $result->separateur[] = $param; |
|
| 738 | - } elseif ($param == 'tout' || $param == 'tous') { |
|
| 739 | - $result->modificateur['tout'] = true; |
|
| 740 | - } elseif ($param == 'plat') { |
|
| 741 | - $result->modificateur['plat'] = true; |
|
| 742 | - } |
|
| 743 | - |
|
| 744 | - // Boucle hierarchie, analyser le critere id_rubrique |
|
| 745 | - // et les autres critères {id_x} pour forcer {tout} sur |
|
| 746 | - // ceux-ci pour avoir la rubrique mere... |
|
| 747 | - // Les autres critères de la boucle hierarchie doivent être |
|
| 748 | - // traités normalement. |
|
| 749 | - elseif ( |
|
| 750 | - strcasecmp($type, 'hierarchie') == 0 |
|
| 751 | - && !preg_match(",^id_rubrique\b,", (string) $param) |
|
| 752 | - && preg_match(',^id_\w+\s*$,', (string) $param) |
|
| 753 | - ) { |
|
| 754 | - $result->modificateur['tout'] = true; |
|
| 755 | - } elseif (strcasecmp($type, 'hierarchie') == 0 && $param == 'id_rubrique') { |
|
| 756 | - // rien a faire sur {id_rubrique} tout seul |
|
| 757 | - } else { |
|
| 758 | - // pas d'emplacement statique, faut un dynamique |
|
| 759 | - // mais il y a 2 cas qui ont les 2 ! |
|
| 760 | - if (($param == 'unique') || (preg_match(',^!?doublons *,', (string) $param))) { |
|
| 761 | - // cette variable sera inseree dans le code |
|
| 762 | - // et son nom sert d'indicateur des maintenant |
|
| 763 | - $result->doublons = '$doublons_index'; |
|
| 764 | - if ($param == 'unique') { |
|
| 765 | - $param = 'doublons'; |
|
| 766 | - } |
|
| 767 | - } elseif ($param == 'recherche') { |
|
| 768 | - // meme chose (a cause de #nom_de_boucle:URL_*) |
|
| 769 | - $result->hash = ' '; |
|
| 770 | - } |
|
| 771 | - |
|
| 772 | - if (preg_match(',^ *([0-9-]+) *(/) *(.+) *$,', (string) $param, $m)) { |
|
| 773 | - $crit = phraser_critere_infixe($m[1], $m[3], $v, '/', '', ''); |
|
| 774 | - } elseif ( |
|
| 775 | - preg_match(',^([!]?)(' . CHAMP_SQL_PLUS_FONC . |
|
| 776 | - ')[[:space:]]*(\??)(!?)(<=?|>=?|==?|\b(?:IN|LIKE)\b)(.*)$,is', (string) $param, $m) |
|
| 777 | - ) { |
|
| 778 | - $a2 = trim($m[8]); |
|
| 779 | - if ($a2 && ($a2[0] == "'" || $a2[0] == '"') && $a2[0] == substr($a2, -1)) { |
|
| 780 | - $a2 = substr($a2, 1, -1); |
|
| 781 | - } |
|
| 782 | - $crit = phraser_critere_infixe( |
|
| 783 | - $m[2], |
|
| 784 | - $a2, |
|
| 785 | - $v, |
|
| 786 | - (($m[2] == 'lang_select') ? $m[2] : $m[7]), |
|
| 787 | - $m[6], |
|
| 788 | - $m[5] |
|
| 789 | - ); |
|
| 790 | - $crit->exclus = $m[1]; |
|
| 791 | - } elseif ( |
|
| 792 | - preg_match('/^([!]?)\s*(' . |
|
| 793 | - CHAMP_SQL_PLUS_FONC . |
|
| 794 | - ')\s*(\??)(.*)$/is', (string) $param, $m) |
|
| 795 | - ) { |
|
| 796 | - // contient aussi les comparaisons implicites ! |
|
| 797 | - // Comme ci-dessus: |
|
| 798 | - // le premier arg contient l'operateur |
|
| 799 | - array_shift($v); |
|
| 800 | - if ($m[6]) { |
|
| 801 | - $v[0][0] = new Texte(); |
|
| 802 | - $v[0][0]->texte = $m[6]; |
|
| 803 | - } else { |
|
| 804 | - array_shift($v[0]); |
|
| 805 | - if (!$v[0]) { |
|
| 806 | - array_shift($v); |
|
| 807 | - } |
|
| 808 | - } |
|
| 809 | - $crit = new Critere(); |
|
| 810 | - $crit->op = $m[2]; |
|
| 811 | - $crit->param = $v; |
|
| 812 | - $crit->not = (bool) $m[1]; |
|
| 813 | - $crit->cond = (bool) $m[5]; |
|
| 814 | - } else { |
|
| 815 | - $err_ci = [ |
|
| 816 | - 'zbug_critere_inconnu', |
|
| 817 | - ['critere' => $param] |
|
| 818 | - ]; |
|
| 819 | - erreur_squelette($err_ci, $result); |
|
| 820 | - } |
|
| 821 | - |
|
| 822 | - if ((!preg_match(',^!?doublons *,', (string) $param)) || $crit->not) { |
|
| 823 | - $args[] = $crit; |
|
| 824 | - } else { |
|
| 825 | - $doublons[] = $crit; |
|
| 826 | - } |
|
| 827 | - } |
|
| 828 | - } |
|
| 829 | - } |
|
| 830 | - } |
|
| 831 | - |
|
| 832 | - // les doublons non nies doivent etre le dernier critere |
|
| 833 | - // pour que la variable $doublon_index ait la bonne valeur |
|
| 834 | - // cf critere_doublon |
|
| 835 | - if ($doublons) { |
|
| 836 | - $args = [...$args, ...$doublons]; |
|
| 837 | - } |
|
| 838 | - |
|
| 839 | - // Si erreur, laisser la chaine dans ce champ pour le HTTP 503 |
|
| 840 | - if (!$err_ci) { |
|
| 841 | - $result->criteres = $args; |
|
| 842 | - } |
|
| 665 | + $err_ci = ''; // indiquera s'il y a eu une erreur |
|
| 666 | + $args = []; |
|
| 667 | + $type = $result->type_requete; |
|
| 668 | + $doublons = []; |
|
| 669 | + foreach ($params as $v) { |
|
| 670 | + $var = $v[1][0]; |
|
| 671 | + $param = ($var->type != 'texte') ? '' : $var->texte; |
|
| 672 | + if (((is_countable($v) ? count($v) : 0) > 2) && (!preg_match(',[^A-Za-z]IN[^A-Za-z],i', (string) $param))) { |
|
| 673 | + // plus d'un argument et pas le critere IN: |
|
| 674 | + // detecter comme on peut si c'est le critere implicite LIMIT debut, fin |
|
| 675 | + if ( |
|
| 676 | + $var->type != 'texte' || preg_match('/^(n|n-|(n-)?\d+)$/S', (string) $param) |
|
| 677 | + ) { |
|
| 678 | + $op = ','; |
|
| 679 | + $not = false; |
|
| 680 | + $cond = false; |
|
| 681 | + } else { |
|
| 682 | + // Le debut du premier argument est l'operateur |
|
| 683 | + preg_match('/^([!]?)([a-zA-Z]\w*)[[:space:]]*(\??)[[:space:]]*(.*)$/ms', (string) $param, $m); |
|
| 684 | + $op = $m[2]; |
|
| 685 | + $not = (bool) $m[1]; |
|
| 686 | + $cond = (bool) $m[3]; |
|
| 687 | + // virer le premier argument, |
|
| 688 | + // et mettre son reliquat eventuel |
|
| 689 | + // Recopier pour ne pas alterer le texte source |
|
| 690 | + // utile au debusqueur |
|
| 691 | + if ($m[4]) { |
|
| 692 | + // une maniere tres sale de supprimer les "' autour de {critere "xxx","yyy"} |
|
| 693 | + if (preg_match(',^(["\'])(.*)\1$,', $m[4])) { |
|
| 694 | + $c = null; |
|
| 695 | + eval('$c = ' . $m[4] . ';'); |
|
| 696 | + if (isset($c)) { |
|
| 697 | + $m[4] = $c; |
|
| 698 | + } |
|
| 699 | + } |
|
| 700 | + $texte = new Texte(); |
|
| 701 | + $texte->texte = $m[4]; |
|
| 702 | + $v[1][0] = $texte; |
|
| 703 | + } else { |
|
| 704 | + array_shift($v[1]); |
|
| 705 | + } |
|
| 706 | + } |
|
| 707 | + array_shift($v); // $v[O] est vide |
|
| 708 | + $crit = new Critere(); |
|
| 709 | + $crit->op = $op; |
|
| 710 | + $crit->not = $not; |
|
| 711 | + $crit->cond = $cond; |
|
| 712 | + $crit->exclus = ''; |
|
| 713 | + $crit->param = $v; |
|
| 714 | + $args[] = $crit; |
|
| 715 | + } else { |
|
| 716 | + if ($var->type != 'texte') { |
|
| 717 | + // cas 1 seul arg ne commencant pas par du texte brut: |
|
| 718 | + // erreur ou critere infixe "/" |
|
| 719 | + if (($v[1][1]->type != 'texte') || (trim((string) $v[1][1]->texte) != '/')) { |
|
| 720 | + $err_ci = [ |
|
| 721 | + 'zbug_critere_inconnu', |
|
| 722 | + ['critere' => $var->nom_champ] |
|
| 723 | + ]; |
|
| 724 | + erreur_squelette($err_ci, $result); |
|
| 725 | + } else { |
|
| 726 | + $crit = new Critere(); |
|
| 727 | + $crit->op = '/'; |
|
| 728 | + $crit->not = false; |
|
| 729 | + $crit->exclus = ''; |
|
| 730 | + $crit->param = [[$v[1][0]], [$v[1][2]]]; |
|
| 731 | + $args[] = $crit; |
|
| 732 | + } |
|
| 733 | + } else { |
|
| 734 | + // traiter qq lexemes particuliers pour faciliter la suite |
|
| 735 | + // les separateurs |
|
| 736 | + if ($var->apres) { |
|
| 737 | + $result->separateur[] = $param; |
|
| 738 | + } elseif ($param == 'tout' || $param == 'tous') { |
|
| 739 | + $result->modificateur['tout'] = true; |
|
| 740 | + } elseif ($param == 'plat') { |
|
| 741 | + $result->modificateur['plat'] = true; |
|
| 742 | + } |
|
| 743 | + |
|
| 744 | + // Boucle hierarchie, analyser le critere id_rubrique |
|
| 745 | + // et les autres critères {id_x} pour forcer {tout} sur |
|
| 746 | + // ceux-ci pour avoir la rubrique mere... |
|
| 747 | + // Les autres critères de la boucle hierarchie doivent être |
|
| 748 | + // traités normalement. |
|
| 749 | + elseif ( |
|
| 750 | + strcasecmp($type, 'hierarchie') == 0 |
|
| 751 | + && !preg_match(",^id_rubrique\b,", (string) $param) |
|
| 752 | + && preg_match(',^id_\w+\s*$,', (string) $param) |
|
| 753 | + ) { |
|
| 754 | + $result->modificateur['tout'] = true; |
|
| 755 | + } elseif (strcasecmp($type, 'hierarchie') == 0 && $param == 'id_rubrique') { |
|
| 756 | + // rien a faire sur {id_rubrique} tout seul |
|
| 757 | + } else { |
|
| 758 | + // pas d'emplacement statique, faut un dynamique |
|
| 759 | + // mais il y a 2 cas qui ont les 2 ! |
|
| 760 | + if (($param == 'unique') || (preg_match(',^!?doublons *,', (string) $param))) { |
|
| 761 | + // cette variable sera inseree dans le code |
|
| 762 | + // et son nom sert d'indicateur des maintenant |
|
| 763 | + $result->doublons = '$doublons_index'; |
|
| 764 | + if ($param == 'unique') { |
|
| 765 | + $param = 'doublons'; |
|
| 766 | + } |
|
| 767 | + } elseif ($param == 'recherche') { |
|
| 768 | + // meme chose (a cause de #nom_de_boucle:URL_*) |
|
| 769 | + $result->hash = ' '; |
|
| 770 | + } |
|
| 771 | + |
|
| 772 | + if (preg_match(',^ *([0-9-]+) *(/) *(.+) *$,', (string) $param, $m)) { |
|
| 773 | + $crit = phraser_critere_infixe($m[1], $m[3], $v, '/', '', ''); |
|
| 774 | + } elseif ( |
|
| 775 | + preg_match(',^([!]?)(' . CHAMP_SQL_PLUS_FONC . |
|
| 776 | + ')[[:space:]]*(\??)(!?)(<=?|>=?|==?|\b(?:IN|LIKE)\b)(.*)$,is', (string) $param, $m) |
|
| 777 | + ) { |
|
| 778 | + $a2 = trim($m[8]); |
|
| 779 | + if ($a2 && ($a2[0] == "'" || $a2[0] == '"') && $a2[0] == substr($a2, -1)) { |
|
| 780 | + $a2 = substr($a2, 1, -1); |
|
| 781 | + } |
|
| 782 | + $crit = phraser_critere_infixe( |
|
| 783 | + $m[2], |
|
| 784 | + $a2, |
|
| 785 | + $v, |
|
| 786 | + (($m[2] == 'lang_select') ? $m[2] : $m[7]), |
|
| 787 | + $m[6], |
|
| 788 | + $m[5] |
|
| 789 | + ); |
|
| 790 | + $crit->exclus = $m[1]; |
|
| 791 | + } elseif ( |
|
| 792 | + preg_match('/^([!]?)\s*(' . |
|
| 793 | + CHAMP_SQL_PLUS_FONC . |
|
| 794 | + ')\s*(\??)(.*)$/is', (string) $param, $m) |
|
| 795 | + ) { |
|
| 796 | + // contient aussi les comparaisons implicites ! |
|
| 797 | + // Comme ci-dessus: |
|
| 798 | + // le premier arg contient l'operateur |
|
| 799 | + array_shift($v); |
|
| 800 | + if ($m[6]) { |
|
| 801 | + $v[0][0] = new Texte(); |
|
| 802 | + $v[0][0]->texte = $m[6]; |
|
| 803 | + } else { |
|
| 804 | + array_shift($v[0]); |
|
| 805 | + if (!$v[0]) { |
|
| 806 | + array_shift($v); |
|
| 807 | + } |
|
| 808 | + } |
|
| 809 | + $crit = new Critere(); |
|
| 810 | + $crit->op = $m[2]; |
|
| 811 | + $crit->param = $v; |
|
| 812 | + $crit->not = (bool) $m[1]; |
|
| 813 | + $crit->cond = (bool) $m[5]; |
|
| 814 | + } else { |
|
| 815 | + $err_ci = [ |
|
| 816 | + 'zbug_critere_inconnu', |
|
| 817 | + ['critere' => $param] |
|
| 818 | + ]; |
|
| 819 | + erreur_squelette($err_ci, $result); |
|
| 820 | + } |
|
| 821 | + |
|
| 822 | + if ((!preg_match(',^!?doublons *,', (string) $param)) || $crit->not) { |
|
| 823 | + $args[] = $crit; |
|
| 824 | + } else { |
|
| 825 | + $doublons[] = $crit; |
|
| 826 | + } |
|
| 827 | + } |
|
| 828 | + } |
|
| 829 | + } |
|
| 830 | + } |
|
| 831 | + |
|
| 832 | + // les doublons non nies doivent etre le dernier critere |
|
| 833 | + // pour que la variable $doublon_index ait la bonne valeur |
|
| 834 | + // cf critere_doublon |
|
| 835 | + if ($doublons) { |
|
| 836 | + $args = [...$args, ...$doublons]; |
|
| 837 | + } |
|
| 838 | + |
|
| 839 | + // Si erreur, laisser la chaine dans ce champ pour le HTTP 503 |
|
| 840 | + if (!$err_ci) { |
|
| 841 | + $result->criteres = $args; |
|
| 842 | + } |
|
| 843 | 843 | } |
| 844 | 844 | |
| 845 | 845 | function phraser_critere_infixe($arg1, $arg2, $args, $op, $not, $cond) { |
| 846 | - $args[0] = new Texte(); |
|
| 847 | - $args[0]->texte = $arg1; |
|
| 848 | - $args[0] = [$args[0]]; |
|
| 849 | - $args[1][0] = new Texte(); |
|
| 850 | - $args[1][0]->texte = $arg2; |
|
| 851 | - $crit = new Critere(); |
|
| 852 | - $crit->op = $op; |
|
| 853 | - $crit->not = (bool) $not; |
|
| 854 | - $crit->cond = (bool) $cond; |
|
| 855 | - $crit->param = $args; |
|
| 856 | - |
|
| 857 | - return $crit; |
|
| 846 | + $args[0] = new Texte(); |
|
| 847 | + $args[0]->texte = $arg1; |
|
| 848 | + $args[0] = [$args[0]]; |
|
| 849 | + $args[1][0] = new Texte(); |
|
| 850 | + $args[1][0]->texte = $arg2; |
|
| 851 | + $crit = new Critere(); |
|
| 852 | + $crit->op = $op; |
|
| 853 | + $crit->not = (bool) $not; |
|
| 854 | + $crit->cond = (bool) $cond; |
|
| 855 | + $crit->param = $args; |
|
| 856 | + |
|
| 857 | + return $crit; |
|
| 858 | 858 | } |
| 859 | 859 | |
| 860 | 860 | /** |
@@ -865,11 +865,11 @@ discard block |
||
| 865 | 865 | * @return int |
| 866 | 866 | */ |
| 867 | 867 | function public_compte_ligne($texte, $debut = 0, $fin = null) { |
| 868 | - if (is_null($fin)) { |
|
| 869 | - return substr_count((string) $texte, "\n", $debut); |
|
| 870 | - } else { |
|
| 871 | - return substr_count((string) $texte, "\n", $debut, $fin - $debut); |
|
| 872 | - } |
|
| 868 | + if (is_null($fin)) { |
|
| 869 | + return substr_count((string) $texte, "\n", $debut); |
|
| 870 | + } else { |
|
| 871 | + return substr_count((string) $texte, "\n", $debut, $fin - $debut); |
|
| 872 | + } |
|
| 873 | 873 | } |
| 874 | 874 | |
| 875 | 875 | |
@@ -879,87 +879,87 @@ discard block |
||
| 879 | 879 | * et ensuite on regarde son vrai debut soit <B_xxx> soit <BB_xxx> |
| 880 | 880 | */ |
| 881 | 881 | function public_trouver_premiere_boucle(string $texte, string $id_parent, array $descr, int $pos_debut_texte = 0): ?array { |
| 882 | - $premiere_boucle = null; |
|
| 883 | - $pos_derniere_boucle_anonyme = $pos_debut_texte; |
|
| 884 | - |
|
| 885 | - $current_pos = $pos_debut_texte; |
|
| 886 | - while (($pos_boucle = strpos((string) $texte, BALISE_BOUCLE, $current_pos)) !== false) { |
|
| 887 | - $current_pos = $pos_boucle + 1; |
|
| 888 | - $pos_parent = strpos((string) $texte, '(', $pos_boucle); |
|
| 889 | - |
|
| 890 | - $id_boucle = ''; |
|
| 891 | - if ($pos_parent !== false) { |
|
| 892 | - $id_boucle = trim(substr((string) $texte, $pos_boucle + strlen(BALISE_BOUCLE), $pos_parent - $pos_boucle - strlen(BALISE_BOUCLE))); |
|
| 893 | - } |
|
| 894 | - if ( |
|
| 895 | - $pos_parent === false |
|
| 896 | - || strlen($id_boucle) && (!is_numeric($id_boucle) && !str_starts_with($id_boucle, '_')) |
|
| 897 | - ) { |
|
| 898 | - $result = new Boucle(); |
|
| 899 | - $result->id_parent = $id_parent; |
|
| 900 | - $result->descr = $descr; |
|
| 901 | - |
|
| 902 | - // un id_boucle pour l'affichage de l'erreur |
|
| 903 | - if (!strlen($id_boucle)) { |
|
| 904 | - $id_boucle = substr((string) $texte, $pos_boucle + strlen(BALISE_BOUCLE), 15); |
|
| 905 | - } |
|
| 906 | - $result->id_boucle = $id_boucle; |
|
| 907 | - $err_b = ['zbug_erreur_boucle_syntaxe', ['id' => $id_boucle]]; |
|
| 908 | - erreur_squelette($err_b, $result); |
|
| 909 | - |
|
| 910 | - continue; |
|
| 911 | - } |
|
| 912 | - else { |
|
| 913 | - $boucle = [ |
|
| 914 | - 'id_boucle' => $id_boucle, |
|
| 915 | - 'id_boucle_err' => $id_boucle, |
|
| 916 | - 'debut_boucle' => $pos_boucle, |
|
| 917 | - 'pos_boucle' => $pos_boucle, |
|
| 918 | - 'pos_parent' => $pos_parent, |
|
| 919 | - 'pos_precond' => false, |
|
| 920 | - 'pos_precond_inside' => false, |
|
| 921 | - 'pos_preaff' => false, |
|
| 922 | - 'pos_preaff_inside' => false, |
|
| 923 | - ]; |
|
| 924 | - |
|
| 925 | - // un id_boucle pour l'affichage de l'erreur sur les boucle anonymes |
|
| 926 | - if (!strlen($id_boucle)) { |
|
| 927 | - $boucle['id_boucle_err'] = substr((string) $texte, $pos_boucle + strlen(BALISE_BOUCLE), 15); |
|
| 928 | - } |
|
| 929 | - |
|
| 930 | - // trouver sa position de depart reelle : au <Bxx> ou au <BBxx> |
|
| 931 | - $precond_boucle = BALISE_PRECOND_BOUCLE . $id_boucle . '>'; |
|
| 932 | - $pos_precond = strpos((string) $texte, $precond_boucle, $id_boucle ? $pos_debut_texte : $pos_derniere_boucle_anonyme); |
|
| 933 | - if ( |
|
| 934 | - $pos_precond !== false |
|
| 935 | - && $pos_precond < $boucle['debut_boucle'] |
|
| 936 | - ) { |
|
| 937 | - $boucle['debut_boucle'] = $pos_precond; |
|
| 938 | - $boucle['pos_precond'] = $pos_precond; |
|
| 939 | - $boucle['pos_precond_inside'] = $pos_precond + strlen($precond_boucle); |
|
| 940 | - } |
|
| 941 | - |
|
| 942 | - $preaff_boucle = BALISE_PREAFF_BOUCLE . $id_boucle . '>'; |
|
| 943 | - $pos_preaff = strpos((string) $texte, $preaff_boucle, $id_boucle ? $pos_debut_texte : $pos_derniere_boucle_anonyme); |
|
| 944 | - if ( |
|
| 945 | - $pos_preaff !== false |
|
| 946 | - && $pos_preaff < $boucle['debut_boucle'] |
|
| 947 | - ) { |
|
| 948 | - $boucle['debut_boucle'] = $pos_preaff; |
|
| 949 | - $boucle['pos_preaff'] = $pos_preaff; |
|
| 950 | - $boucle['pos_preaff_inside'] = $pos_preaff + strlen($preaff_boucle); |
|
| 951 | - } |
|
| 952 | - if (!strlen($id_boucle)) { |
|
| 953 | - $pos_derniere_boucle_anonyme = $pos_boucle; |
|
| 954 | - } |
|
| 955 | - |
|
| 956 | - if (is_null($premiere_boucle) || $premiere_boucle['debut_boucle'] > $boucle['debut_boucle']) { |
|
| 957 | - $premiere_boucle = $boucle; |
|
| 958 | - } |
|
| 959 | - } |
|
| 960 | - } |
|
| 961 | - |
|
| 962 | - return $premiere_boucle; |
|
| 882 | + $premiere_boucle = null; |
|
| 883 | + $pos_derniere_boucle_anonyme = $pos_debut_texte; |
|
| 884 | + |
|
| 885 | + $current_pos = $pos_debut_texte; |
|
| 886 | + while (($pos_boucle = strpos((string) $texte, BALISE_BOUCLE, $current_pos)) !== false) { |
|
| 887 | + $current_pos = $pos_boucle + 1; |
|
| 888 | + $pos_parent = strpos((string) $texte, '(', $pos_boucle); |
|
| 889 | + |
|
| 890 | + $id_boucle = ''; |
|
| 891 | + if ($pos_parent !== false) { |
|
| 892 | + $id_boucle = trim(substr((string) $texte, $pos_boucle + strlen(BALISE_BOUCLE), $pos_parent - $pos_boucle - strlen(BALISE_BOUCLE))); |
|
| 893 | + } |
|
| 894 | + if ( |
|
| 895 | + $pos_parent === false |
|
| 896 | + || strlen($id_boucle) && (!is_numeric($id_boucle) && !str_starts_with($id_boucle, '_')) |
|
| 897 | + ) { |
|
| 898 | + $result = new Boucle(); |
|
| 899 | + $result->id_parent = $id_parent; |
|
| 900 | + $result->descr = $descr; |
|
| 901 | + |
|
| 902 | + // un id_boucle pour l'affichage de l'erreur |
|
| 903 | + if (!strlen($id_boucle)) { |
|
| 904 | + $id_boucle = substr((string) $texte, $pos_boucle + strlen(BALISE_BOUCLE), 15); |
|
| 905 | + } |
|
| 906 | + $result->id_boucle = $id_boucle; |
|
| 907 | + $err_b = ['zbug_erreur_boucle_syntaxe', ['id' => $id_boucle]]; |
|
| 908 | + erreur_squelette($err_b, $result); |
|
| 909 | + |
|
| 910 | + continue; |
|
| 911 | + } |
|
| 912 | + else { |
|
| 913 | + $boucle = [ |
|
| 914 | + 'id_boucle' => $id_boucle, |
|
| 915 | + 'id_boucle_err' => $id_boucle, |
|
| 916 | + 'debut_boucle' => $pos_boucle, |
|
| 917 | + 'pos_boucle' => $pos_boucle, |
|
| 918 | + 'pos_parent' => $pos_parent, |
|
| 919 | + 'pos_precond' => false, |
|
| 920 | + 'pos_precond_inside' => false, |
|
| 921 | + 'pos_preaff' => false, |
|
| 922 | + 'pos_preaff_inside' => false, |
|
| 923 | + ]; |
|
| 924 | + |
|
| 925 | + // un id_boucle pour l'affichage de l'erreur sur les boucle anonymes |
|
| 926 | + if (!strlen($id_boucle)) { |
|
| 927 | + $boucle['id_boucle_err'] = substr((string) $texte, $pos_boucle + strlen(BALISE_BOUCLE), 15); |
|
| 928 | + } |
|
| 929 | + |
|
| 930 | + // trouver sa position de depart reelle : au <Bxx> ou au <BBxx> |
|
| 931 | + $precond_boucle = BALISE_PRECOND_BOUCLE . $id_boucle . '>'; |
|
| 932 | + $pos_precond = strpos((string) $texte, $precond_boucle, $id_boucle ? $pos_debut_texte : $pos_derniere_boucle_anonyme); |
|
| 933 | + if ( |
|
| 934 | + $pos_precond !== false |
|
| 935 | + && $pos_precond < $boucle['debut_boucle'] |
|
| 936 | + ) { |
|
| 937 | + $boucle['debut_boucle'] = $pos_precond; |
|
| 938 | + $boucle['pos_precond'] = $pos_precond; |
|
| 939 | + $boucle['pos_precond_inside'] = $pos_precond + strlen($precond_boucle); |
|
| 940 | + } |
|
| 941 | + |
|
| 942 | + $preaff_boucle = BALISE_PREAFF_BOUCLE . $id_boucle . '>'; |
|
| 943 | + $pos_preaff = strpos((string) $texte, $preaff_boucle, $id_boucle ? $pos_debut_texte : $pos_derniere_boucle_anonyme); |
|
| 944 | + if ( |
|
| 945 | + $pos_preaff !== false |
|
| 946 | + && $pos_preaff < $boucle['debut_boucle'] |
|
| 947 | + ) { |
|
| 948 | + $boucle['debut_boucle'] = $pos_preaff; |
|
| 949 | + $boucle['pos_preaff'] = $pos_preaff; |
|
| 950 | + $boucle['pos_preaff_inside'] = $pos_preaff + strlen($preaff_boucle); |
|
| 951 | + } |
|
| 952 | + if (!strlen($id_boucle)) { |
|
| 953 | + $pos_derniere_boucle_anonyme = $pos_boucle; |
|
| 954 | + } |
|
| 955 | + |
|
| 956 | + if (is_null($premiere_boucle) || $premiere_boucle['debut_boucle'] > $boucle['debut_boucle']) { |
|
| 957 | + $premiere_boucle = $boucle; |
|
| 958 | + } |
|
| 959 | + } |
|
| 960 | + } |
|
| 961 | + |
|
| 962 | + return $premiere_boucle; |
|
| 963 | 963 | } |
| 964 | 964 | |
| 965 | 965 | /** |
@@ -975,68 +975,68 @@ discard block |
||
| 975 | 975 | * la description de la boucle dans un tableau associatif |
| 976 | 976 | */ |
| 977 | 977 | function public_trouver_fin_boucle(string $texte, string $id_parent, array $boucle, int $pos_debut_texte, $result): array { |
| 978 | - $id_boucle = $boucle['id_boucle']; |
|
| 979 | - $pos_courante = $pos_debut_texte; |
|
| 980 | - |
|
| 981 | - $boucle['pos_postcond'] = false; |
|
| 982 | - $boucle['pos_postcond_inside'] = false; |
|
| 983 | - $boucle['pos_altern'] = false; |
|
| 984 | - $boucle['pos_altern_inside'] = false; |
|
| 985 | - $boucle['pos_postaff'] = false; |
|
| 986 | - $boucle['pos_postaff_inside'] = false; |
|
| 987 | - |
|
| 988 | - $pos_anonyme_next = null; |
|
| 989 | - // si c'est une boucle anonyme, chercher la position de la prochaine boucle anonyme |
|
| 990 | - if (!strlen((string) $id_boucle)) { |
|
| 991 | - $pos_anonyme_next = strpos((string) $texte, BALISE_BOUCLE . '(', $pos_courante); |
|
| 992 | - } |
|
| 993 | - |
|
| 994 | - // |
|
| 995 | - // 1. Recuperer la partie conditionnelle apres |
|
| 996 | - // |
|
| 997 | - $apres_boucle = BALISE_POSTCOND_BOUCLE . $id_boucle . '>'; |
|
| 998 | - $pos_apres = strpos((string) $texte, $apres_boucle, $pos_courante); |
|
| 999 | - if ( |
|
| 1000 | - $pos_apres !== false |
|
| 1001 | - && (!$pos_anonyme_next || $pos_apres < $pos_anonyme_next) |
|
| 1002 | - ) { |
|
| 1003 | - $boucle['pos_postcond'] = $pos_apres; |
|
| 1004 | - $pos_apres += strlen($apres_boucle); |
|
| 1005 | - $boucle['pos_postcond_inside'] = $pos_apres; |
|
| 1006 | - $pos_courante = $pos_apres ; |
|
| 1007 | - } |
|
| 1008 | - |
|
| 1009 | - // |
|
| 1010 | - // 2. Récuperer la partie alternative apres |
|
| 1011 | - // |
|
| 1012 | - $altern_boucle = BALISE_ALT_BOUCLE . $id_boucle . '>'; |
|
| 1013 | - $pos_altern = strpos((string) $texte, $altern_boucle, $pos_courante); |
|
| 1014 | - if ( |
|
| 1015 | - $pos_altern !== false |
|
| 1016 | - && (!$pos_anonyme_next || $pos_altern < $pos_anonyme_next) |
|
| 1017 | - ) { |
|
| 1018 | - $boucle['pos_altern'] = $pos_altern; |
|
| 1019 | - $pos_altern += strlen($altern_boucle); |
|
| 1020 | - $boucle['pos_altern_inside'] = $pos_altern; |
|
| 1021 | - $pos_courante = $pos_altern; |
|
| 1022 | - } |
|
| 1023 | - |
|
| 1024 | - // |
|
| 1025 | - // 3. Recuperer la partie footer non alternative |
|
| 1026 | - // |
|
| 1027 | - $postaff_boucle = BALISE_POSTAFF_BOUCLE . $id_boucle . '>'; |
|
| 1028 | - $pos_postaff = strpos((string) $texte, $postaff_boucle, $pos_courante); |
|
| 1029 | - if ( |
|
| 1030 | - $pos_postaff !== false |
|
| 1031 | - && (!$pos_anonyme_next || $pos_postaff < $pos_anonyme_next) |
|
| 1032 | - ) { |
|
| 1033 | - $boucle['pos_postaff'] = $pos_postaff; |
|
| 1034 | - $pos_postaff += strlen($postaff_boucle); |
|
| 1035 | - $boucle['pos_postaff_inside'] = $pos_postaff; |
|
| 1036 | - $pos_courante = $pos_postaff ; |
|
| 1037 | - } |
|
| 1038 | - |
|
| 1039 | - return $boucle; |
|
| 978 | + $id_boucle = $boucle['id_boucle']; |
|
| 979 | + $pos_courante = $pos_debut_texte; |
|
| 980 | + |
|
| 981 | + $boucle['pos_postcond'] = false; |
|
| 982 | + $boucle['pos_postcond_inside'] = false; |
|
| 983 | + $boucle['pos_altern'] = false; |
|
| 984 | + $boucle['pos_altern_inside'] = false; |
|
| 985 | + $boucle['pos_postaff'] = false; |
|
| 986 | + $boucle['pos_postaff_inside'] = false; |
|
| 987 | + |
|
| 988 | + $pos_anonyme_next = null; |
|
| 989 | + // si c'est une boucle anonyme, chercher la position de la prochaine boucle anonyme |
|
| 990 | + if (!strlen((string) $id_boucle)) { |
|
| 991 | + $pos_anonyme_next = strpos((string) $texte, BALISE_BOUCLE . '(', $pos_courante); |
|
| 992 | + } |
|
| 993 | + |
|
| 994 | + // |
|
| 995 | + // 1. Recuperer la partie conditionnelle apres |
|
| 996 | + // |
|
| 997 | + $apres_boucle = BALISE_POSTCOND_BOUCLE . $id_boucle . '>'; |
|
| 998 | + $pos_apres = strpos((string) $texte, $apres_boucle, $pos_courante); |
|
| 999 | + if ( |
|
| 1000 | + $pos_apres !== false |
|
| 1001 | + && (!$pos_anonyme_next || $pos_apres < $pos_anonyme_next) |
|
| 1002 | + ) { |
|
| 1003 | + $boucle['pos_postcond'] = $pos_apres; |
|
| 1004 | + $pos_apres += strlen($apres_boucle); |
|
| 1005 | + $boucle['pos_postcond_inside'] = $pos_apres; |
|
| 1006 | + $pos_courante = $pos_apres ; |
|
| 1007 | + } |
|
| 1008 | + |
|
| 1009 | + // |
|
| 1010 | + // 2. Récuperer la partie alternative apres |
|
| 1011 | + // |
|
| 1012 | + $altern_boucle = BALISE_ALT_BOUCLE . $id_boucle . '>'; |
|
| 1013 | + $pos_altern = strpos((string) $texte, $altern_boucle, $pos_courante); |
|
| 1014 | + if ( |
|
| 1015 | + $pos_altern !== false |
|
| 1016 | + && (!$pos_anonyme_next || $pos_altern < $pos_anonyme_next) |
|
| 1017 | + ) { |
|
| 1018 | + $boucle['pos_altern'] = $pos_altern; |
|
| 1019 | + $pos_altern += strlen($altern_boucle); |
|
| 1020 | + $boucle['pos_altern_inside'] = $pos_altern; |
|
| 1021 | + $pos_courante = $pos_altern; |
|
| 1022 | + } |
|
| 1023 | + |
|
| 1024 | + // |
|
| 1025 | + // 3. Recuperer la partie footer non alternative |
|
| 1026 | + // |
|
| 1027 | + $postaff_boucle = BALISE_POSTAFF_BOUCLE . $id_boucle . '>'; |
|
| 1028 | + $pos_postaff = strpos((string) $texte, $postaff_boucle, $pos_courante); |
|
| 1029 | + if ( |
|
| 1030 | + $pos_postaff !== false |
|
| 1031 | + && (!$pos_anonyme_next || $pos_postaff < $pos_anonyme_next) |
|
| 1032 | + ) { |
|
| 1033 | + $boucle['pos_postaff'] = $pos_postaff; |
|
| 1034 | + $pos_postaff += strlen($postaff_boucle); |
|
| 1035 | + $boucle['pos_postaff_inside'] = $pos_postaff; |
|
| 1036 | + $pos_courante = $pos_postaff ; |
|
| 1037 | + } |
|
| 1038 | + |
|
| 1039 | + return $boucle; |
|
| 1040 | 1040 | } |
| 1041 | 1041 | |
| 1042 | 1042 | |
@@ -1045,21 +1045,21 @@ discard block |
||
| 1045 | 1045 | * @param null|object $boucle |
| 1046 | 1046 | */ |
| 1047 | 1047 | function phraser_boucle_placeholder(&$champ, ?string $boucle_placeholder = null, $boucle = null) { |
| 1048 | - static $boucles_connues = []; |
|
| 1049 | - // si c'est un appel pour memoriser une boucle, memorisons la |
|
| 1050 | - if (is_string($champ) && !empty($boucle_placeholder) && !empty($boucle)) { |
|
| 1051 | - $boucles_connues[$boucle_placeholder][$champ] = &$boucle; |
|
| 1052 | - } |
|
| 1053 | - else { |
|
| 1054 | - if (!empty($champ->nom_champ) && !empty($boucles_connues[$champ->nom_champ])) { |
|
| 1055 | - $placeholder = $champ->nom_champ; |
|
| 1056 | - $id = reset($champ->param[0][1]); |
|
| 1057 | - $id = $id->texte; |
|
| 1058 | - if (!empty($boucles_connues[$placeholder][$id])) { |
|
| 1059 | - $champ = $boucles_connues[$placeholder][$id]; |
|
| 1060 | - } |
|
| 1061 | - } |
|
| 1062 | - } |
|
| 1048 | + static $boucles_connues = []; |
|
| 1049 | + // si c'est un appel pour memoriser une boucle, memorisons la |
|
| 1050 | + if (is_string($champ) && !empty($boucle_placeholder) && !empty($boucle)) { |
|
| 1051 | + $boucles_connues[$boucle_placeholder][$champ] = &$boucle; |
|
| 1052 | + } |
|
| 1053 | + else { |
|
| 1054 | + if (!empty($champ->nom_champ) && !empty($boucles_connues[$champ->nom_champ])) { |
|
| 1055 | + $placeholder = $champ->nom_champ; |
|
| 1056 | + $id = reset($champ->param[0][1]); |
|
| 1057 | + $id = $id->texte; |
|
| 1058 | + if (!empty($boucles_connues[$placeholder][$id])) { |
|
| 1059 | + $champ = $boucles_connues[$placeholder][$id]; |
|
| 1060 | + } |
|
| 1061 | + } |
|
| 1062 | + } |
|
| 1063 | 1063 | } |
| 1064 | 1064 | |
| 1065 | 1065 | |
@@ -1069,11 +1069,11 @@ discard block |
||
| 1069 | 1069 | * @return string |
| 1070 | 1070 | */ |
| 1071 | 1071 | function public_generer_boucle_placeholder(string $id_boucle, &$boucle, string $boucle_placeholder, int $nb_lignes): string { |
| 1072 | - $placeholder = "[(#{$boucle_placeholder}{" . $id_boucle . '})' . str_pad('', $nb_lignes, "\n") . ']'; |
|
| 1073 | - //memoriser la boucle a reinjecter |
|
| 1074 | - $id_boucle = "$id_boucle"; |
|
| 1075 | - phraser_boucle_placeholder($id_boucle, $boucle_placeholder, $boucle); |
|
| 1076 | - return $placeholder; |
|
| 1072 | + $placeholder = "[(#{$boucle_placeholder}{" . $id_boucle . '})' . str_pad('', $nb_lignes, "\n") . ']'; |
|
| 1073 | + //memoriser la boucle a reinjecter |
|
| 1074 | + $id_boucle = "$id_boucle"; |
|
| 1075 | + phraser_boucle_placeholder($id_boucle, $boucle_placeholder, $boucle); |
|
| 1076 | + return $placeholder; |
|
| 1077 | 1077 | } |
| 1078 | 1078 | |
| 1079 | 1079 | /** |
@@ -1086,264 +1086,264 @@ discard block |
||
| 1086 | 1086 | */ |
| 1087 | 1087 | function public_phraser_html_dist(string $texte, string $id_parent, array &$boucles, array $descr, int $ligne_debut_texte = 1, ?string $boucle_placeholder = null): array { |
| 1088 | 1088 | |
| 1089 | - $all_res = []; |
|
| 1090 | - // definir un placholder pour les boucles dont on est sur d'avoir aucune occurence dans le squelette |
|
| 1091 | - if (is_null($boucle_placeholder)) { |
|
| 1092 | - do { |
|
| 1093 | - $boucle_placeholder = 'BOUCLE_PLACEHOLDER_' . strtoupper(md5(uniqid())); |
|
| 1094 | - } while (str_contains((string) $texte, $boucle_placeholder)); |
|
| 1095 | - } |
|
| 1096 | - |
|
| 1097 | - $ligne_debut_initial = $ligne_debut_texte; |
|
| 1098 | - $pos_debut_texte = 0; |
|
| 1099 | - while ($boucle = public_trouver_premiere_boucle($texte, $id_parent, $descr, $pos_debut_texte)) { |
|
| 1100 | - $err_b = ''; // indiquera s'il y a eu une erreur |
|
| 1101 | - $result = new Boucle(); |
|
| 1102 | - $result->id_parent = $id_parent; |
|
| 1103 | - $result->descr = $descr; |
|
| 1104 | - |
|
| 1105 | - $pos_courante = $boucle['pos_boucle']; |
|
| 1106 | - $pos_parent = $boucle['pos_parent']; |
|
| 1107 | - $id_boucle_search = $id_boucle = $boucle['id_boucle']; |
|
| 1108 | - |
|
| 1109 | - $ligne_preaff = $ligne_avant = $ligne_milieu = $ligne_debut_texte + public_compte_ligne($texte, $pos_debut_texte, $pos_parent); |
|
| 1110 | - |
|
| 1111 | - // boucle anonyme ? |
|
| 1112 | - if (!strlen((string) $id_boucle)) { |
|
| 1113 | - $id_boucle = '_anon_L' . $ligne_milieu . '_' . substr(md5('anonyme:' . $id_parent . ':' . json_encode($boucle, JSON_THROW_ON_ERROR)), 0, 8); |
|
| 1114 | - } |
|
| 1115 | - |
|
| 1116 | - $pos_debut_boucle = $pos_courante; |
|
| 1117 | - |
|
| 1118 | - $pos_milieu = $pos_parent; |
|
| 1119 | - |
|
| 1120 | - // Regarder si on a une partie conditionnelle avant <B_xxx> |
|
| 1121 | - if ($boucle['pos_precond'] !== false) { |
|
| 1122 | - $pos_debut_boucle = $boucle['pos_precond']; |
|
| 1123 | - |
|
| 1124 | - $pos_avant = $boucle['pos_precond_inside']; |
|
| 1125 | - $result->avant = substr((string) $texte, $pos_avant, $pos_courante - $pos_avant); |
|
| 1126 | - $ligne_avant = $ligne_debut_texte + public_compte_ligne($texte, $pos_debut_texte, $pos_avant); |
|
| 1127 | - } |
|
| 1128 | - |
|
| 1129 | - // Regarder si on a une partie inconditionnelle avant <BB_xxx> |
|
| 1130 | - if ($boucle['pos_preaff'] !== false) { |
|
| 1131 | - $end_preaff = $pos_debut_boucle; |
|
| 1132 | - |
|
| 1133 | - $pos_preaff = $boucle['pos_preaff_inside']; |
|
| 1134 | - $result->preaff = substr((string) $texte, $pos_preaff, $end_preaff - $pos_preaff); |
|
| 1135 | - $ligne_preaff = $ligne_debut_texte + public_compte_ligne($texte, $pos_debut_texte, $pos_preaff); |
|
| 1136 | - } |
|
| 1137 | - |
|
| 1138 | - $result->id_boucle = $id_boucle; |
|
| 1139 | - |
|
| 1140 | - if ( |
|
| 1141 | - !preg_match(SPEC_BOUCLE, (string) $texte, $match, 0, $pos_milieu) |
|
| 1142 | - || ($pos_match = strpos((string) $texte, (string) $match[0], $pos_milieu)) === false |
|
| 1143 | - || $pos_match > $pos_milieu |
|
| 1144 | - ) { |
|
| 1145 | - $err_b = ['zbug_erreur_boucle_syntaxe', ['id' => $id_boucle]]; |
|
| 1146 | - erreur_squelette($err_b, $result); |
|
| 1147 | - |
|
| 1148 | - $ligne_debut_texte += public_compte_ligne($texte, $pos_debut_texte, $pos_courante + 1); |
|
| 1149 | - $pos_debut_texte = $pos_courante + 1; |
|
| 1150 | - continue; |
|
| 1151 | - } |
|
| 1152 | - |
|
| 1153 | - $result->type_requete = $match[0]; |
|
| 1154 | - $pos_milieu += strlen($match[0]); |
|
| 1155 | - $pos_courante = $pos_milieu; // on s'en sert pour compter les lignes plus precisemment |
|
| 1156 | - |
|
| 1157 | - $type = $match[1]; |
|
| 1158 | - $jointures = trim($match[2]); |
|
| 1159 | - $table_optionnelle = ($match[3]); |
|
| 1160 | - if ($jointures) { |
|
| 1161 | - // on affecte pas ici les jointures explicites, mais dans la compilation |
|
| 1162 | - // ou elles seront completees des jointures declarees |
|
| 1163 | - $result->jointures_explicites = $jointures; |
|
| 1164 | - } |
|
| 1165 | - |
|
| 1166 | - if ($table_optionnelle) { |
|
| 1167 | - $result->table_optionnelle = true; |
|
| 1168 | - $result->type_table_optionnelle = $type; |
|
| 1169 | - } |
|
| 1170 | - |
|
| 1171 | - // 1ere passe sur les criteres, vu comme des arguments sans fct |
|
| 1172 | - // Resultat mis dans result->param |
|
| 1173 | - $pos_fin_criteres = $pos_milieu; |
|
| 1174 | - phraser_args($texte, '/>', '', $all_res, $result, $pos_fin_criteres); |
|
| 1175 | - |
|
| 1176 | - // En 2e passe result->criteres contiendra un tableau |
|
| 1177 | - // pour l'instant on met le source (chaine) : |
|
| 1178 | - // si elle reste ici au final, c'est qu'elle contient une erreur |
|
| 1179 | - $pos_courante = $pos_fin_criteres; // on s'en sert pour compter les lignes plus precisemment |
|
| 1180 | - $result->criteres = substr((string) $texte, $pos_milieu, $pos_fin_criteres - $pos_milieu); |
|
| 1181 | - $pos_milieu = $pos_fin_criteres; |
|
| 1182 | - |
|
| 1183 | - // |
|
| 1184 | - // Recuperer la fin : |
|
| 1185 | - // |
|
| 1186 | - if ($texte[$pos_milieu] === '/') { |
|
| 1187 | - // boucle autofermante : pas de partie conditionnelle apres |
|
| 1188 | - $pos_courante += 2; |
|
| 1189 | - $result->milieu = ''; |
|
| 1190 | - } else { |
|
| 1191 | - $pos_milieu += 1; |
|
| 1192 | - |
|
| 1193 | - $fin_boucle = BALISE_FIN_BOUCLE . $id_boucle_search . '>'; |
|
| 1194 | - $pos_fin = strpos((string) $texte, $fin_boucle, $pos_milieu); |
|
| 1195 | - if ($pos_fin === false) { |
|
| 1196 | - $err_b = [ |
|
| 1197 | - 'zbug_erreur_boucle_fermant', |
|
| 1198 | - ['id' => $id_boucle] |
|
| 1199 | - ]; |
|
| 1200 | - erreur_squelette($err_b, $result); |
|
| 1201 | - $pos_courante += strlen($fin_boucle); |
|
| 1202 | - } |
|
| 1203 | - else { |
|
| 1204 | - // verifier une eventuelle imbrication d'une boucle homonyme |
|
| 1205 | - // (interdite, generera une erreur plus loin, mais permet de signaler la bonne erreur) |
|
| 1206 | - $search_debut_boucle = BALISE_BOUCLE . $id_boucle_search . '('; |
|
| 1207 | - $search_from = $pos_milieu; |
|
| 1208 | - $nb_open = 1; |
|
| 1209 | - $nb_close = 1; |
|
| 1210 | - $maxiter = 0; |
|
| 1211 | - do { |
|
| 1212 | - while ( |
|
| 1213 | - $nb_close < $nb_open |
|
| 1214 | - && ($p = strpos((string) $texte, $fin_boucle, $pos_fin + 1)) |
|
| 1215 | - ) { |
|
| 1216 | - $nb_close++; |
|
| 1217 | - $pos_fin = $p; |
|
| 1218 | - } |
|
| 1219 | - // si on a pas trouve assez de boucles fermantes, sortir de la, on a fait de notre mieux |
|
| 1220 | - if ($nb_close < $nb_open) { |
|
| 1221 | - break; |
|
| 1222 | - } |
|
| 1223 | - while ( |
|
| 1224 | - ($p = strpos((string) $texte, $search_debut_boucle, $search_from)) |
|
| 1225 | - && $p < $pos_fin |
|
| 1226 | - ) { |
|
| 1227 | - $nb_open++; |
|
| 1228 | - $search_from = $p + 1; |
|
| 1229 | - } |
|
| 1230 | - } while ($nb_close < $nb_open && $maxiter++ < 5); |
|
| 1231 | - |
|
| 1232 | - $pos_courante = $pos_fin + strlen($fin_boucle); |
|
| 1233 | - } |
|
| 1234 | - $result->milieu = substr((string) $texte, $pos_milieu, $pos_fin - $pos_milieu); |
|
| 1235 | - } |
|
| 1236 | - |
|
| 1237 | - $ligne_suite = $ligne_apres = $ligne_debut_texte + public_compte_ligne($texte, $pos_debut_texte, $pos_courante); |
|
| 1238 | - $boucle = public_trouver_fin_boucle($texte, $id_parent, $boucle, $pos_courante, $result); |
|
| 1239 | - |
|
| 1240 | - // |
|
| 1241 | - // 1. Partie conditionnelle apres ? |
|
| 1242 | - // |
|
| 1243 | - if ($boucle['pos_postcond']) { |
|
| 1244 | - $result->apres = substr((string) $texte, $pos_courante, $boucle['pos_postcond'] - $pos_courante); |
|
| 1245 | - $ligne_suite += public_compte_ligne($texte, $pos_courante, $boucle['pos_postcond_inside']); |
|
| 1246 | - $pos_courante = $boucle['pos_postcond_inside'] ; |
|
| 1247 | - } |
|
| 1248 | - |
|
| 1249 | - |
|
| 1250 | - // |
|
| 1251 | - // 2. Partie alternative apres ? |
|
| 1252 | - // |
|
| 1253 | - $ligne_altern = $ligne_suite; |
|
| 1254 | - if ($boucle['pos_altern']) { |
|
| 1255 | - $result->altern = substr((string) $texte, $pos_courante, $boucle['pos_altern'] - $pos_courante); |
|
| 1256 | - $ligne_suite += public_compte_ligne($texte, $pos_courante, $boucle['pos_altern_inside']); |
|
| 1257 | - $pos_courante = $boucle['pos_altern_inside']; |
|
| 1258 | - } |
|
| 1259 | - |
|
| 1260 | - // |
|
| 1261 | - // 3. Partie footer non alternative ? |
|
| 1262 | - // |
|
| 1263 | - $ligne_postaff = $ligne_suite; |
|
| 1264 | - if ($boucle['pos_postaff']) { |
|
| 1265 | - $result->postaff = substr((string) $texte, $pos_courante, $boucle['pos_postaff'] - $pos_courante); |
|
| 1266 | - $ligne_suite += public_compte_ligne($texte, $pos_courante, $boucle['pos_postaff_inside']); |
|
| 1267 | - $pos_courante = $boucle['pos_postaff_inside']; |
|
| 1268 | - } |
|
| 1269 | - |
|
| 1270 | - $result->ligne = $ligne_preaff; |
|
| 1271 | - |
|
| 1272 | - if ($p = strpos($type, ':')) { |
|
| 1273 | - $result->sql_serveur = substr($type, 0, $p); |
|
| 1274 | - $type = substr($type, $p + 1); |
|
| 1275 | - } |
|
| 1276 | - $soustype = strtolower($type); |
|
| 1277 | - |
|
| 1278 | - if (!isset($GLOBALS['table_des_tables'][$soustype])) { |
|
| 1279 | - $soustype = $type; |
|
| 1280 | - } |
|
| 1281 | - |
|
| 1282 | - $result->type_requete = $soustype; |
|
| 1283 | - // Lancer la 2e passe sur les criteres si la 1ere etait bonne |
|
| 1284 | - if (!is_array($result->param)) { |
|
| 1285 | - $err_b = true; |
|
| 1286 | - } else { |
|
| 1287 | - phraser_criteres($result->param, $result); |
|
| 1288 | - if (strncasecmp($soustype, TYPE_RECURSIF, strlen(TYPE_RECURSIF)) == 0) { |
|
| 1289 | - $result->type_requete = TYPE_RECURSIF; |
|
| 1290 | - $args = $result->param; |
|
| 1291 | - array_unshift( |
|
| 1292 | - $args, |
|
| 1293 | - substr($type, strlen(TYPE_RECURSIF)) |
|
| 1294 | - ); |
|
| 1295 | - $result->param = $args; |
|
| 1296 | - } |
|
| 1297 | - } |
|
| 1298 | - |
|
| 1299 | - $descr['id_mere_contexte'] = $id_boucle; |
|
| 1300 | - $result->milieu = public_phraser_html_dist($result->milieu, $id_boucle, $boucles, $descr, $ligne_milieu, $boucle_placeholder); |
|
| 1301 | - // reserver la place dans la pile des boucles pour compiler ensuite dans le bon ordre |
|
| 1302 | - // ie les boucles qui apparaissent dans les partie conditionnelles doivent etre compilees apres cette boucle |
|
| 1303 | - // si il y a deja une boucle de ce nom, cela declenchera une erreur ensuite |
|
| 1304 | - if (empty($boucles[$id_boucle])) { |
|
| 1305 | - $boucles[$id_boucle] = null; |
|
| 1306 | - } |
|
| 1307 | - $result->preaff = public_phraser_html_dist($result->preaff, $id_parent, $boucles, $descr, $ligne_preaff, $boucle_placeholder); |
|
| 1308 | - $result->avant = public_phraser_html_dist($result->avant, $id_parent, $boucles, $descr, $ligne_avant, $boucle_placeholder); |
|
| 1309 | - $result->apres = public_phraser_html_dist($result->apres, $id_parent, $boucles, $descr, $ligne_apres, $boucle_placeholder); |
|
| 1310 | - $result->altern = public_phraser_html_dist($result->altern, $id_parent, $boucles, $descr, $ligne_altern, $boucle_placeholder); |
|
| 1311 | - $result->postaff = public_phraser_html_dist($result->postaff, $id_parent, $boucles, $descr, $ligne_postaff, $boucle_placeholder); |
|
| 1312 | - |
|
| 1313 | - // Prevenir le generateur de code que le squelette est faux |
|
| 1314 | - if ($err_b) { |
|
| 1315 | - $result->type_requete = false; |
|
| 1316 | - } |
|
| 1317 | - |
|
| 1318 | - // Verifier qu'il n'y a pas double definition |
|
| 1319 | - // apres analyse des sous-parties (pas avant). |
|
| 1320 | - if (!empty($boucles[$id_boucle])) { |
|
| 1321 | - if ($boucles[$id_boucle]->type_requete !== false) { |
|
| 1322 | - $err_b_d = [ |
|
| 1323 | - 'zbug_erreur_boucle_double', |
|
| 1324 | - ['id' => $id_boucle] |
|
| 1325 | - ]; |
|
| 1326 | - erreur_squelette($err_b_d, $result); |
|
| 1327 | - // Prevenir le generateur de code que le squelette est faux |
|
| 1328 | - $boucles[$id_boucle]->type_requete = false; |
|
| 1329 | - } |
|
| 1330 | - } else { |
|
| 1331 | - $boucles[$id_boucle] = $result; |
|
| 1332 | - } |
|
| 1333 | - |
|
| 1334 | - // remplacer la boucle par un placeholder qui compte le meme nombre de lignes |
|
| 1335 | - $placeholder = public_generer_boucle_placeholder($id_boucle, $boucles[$id_boucle], $boucle_placeholder, $ligne_suite - $ligne_debut_texte); |
|
| 1336 | - $longueur_boucle = $pos_courante - $boucle['debut_boucle']; |
|
| 1337 | - $texte = substr_replace((string) $texte, $placeholder, $boucle['debut_boucle'], $longueur_boucle); |
|
| 1338 | - $pos_courante = $pos_courante - $longueur_boucle + strlen($placeholder); |
|
| 1339 | - |
|
| 1340 | - // phraser la partie avant le debut de la boucle |
|
| 1341 | - #$all_res = phraser_champs_etendus(substr($texte, $pos_debut_texte, $boucle['debut_boucle'] - $pos_debut_texte), $ligne_debut_texte, $all_res); |
|
| 1342 | - #$all_res[] = &$boucles[$id_boucle]; |
|
| 1343 | - |
|
| 1344 | - $ligne_debut_texte = $ligne_suite; |
|
| 1345 | - $pos_debut_texte = $pos_courante; |
|
| 1346 | - } |
|
| 1347 | - |
|
| 1348 | - return phraser_champs_etendus($texte, $ligne_debut_initial, $all_res); |
|
| 1089 | + $all_res = []; |
|
| 1090 | + // definir un placholder pour les boucles dont on est sur d'avoir aucune occurence dans le squelette |
|
| 1091 | + if (is_null($boucle_placeholder)) { |
|
| 1092 | + do { |
|
| 1093 | + $boucle_placeholder = 'BOUCLE_PLACEHOLDER_' . strtoupper(md5(uniqid())); |
|
| 1094 | + } while (str_contains((string) $texte, $boucle_placeholder)); |
|
| 1095 | + } |
|
| 1096 | + |
|
| 1097 | + $ligne_debut_initial = $ligne_debut_texte; |
|
| 1098 | + $pos_debut_texte = 0; |
|
| 1099 | + while ($boucle = public_trouver_premiere_boucle($texte, $id_parent, $descr, $pos_debut_texte)) { |
|
| 1100 | + $err_b = ''; // indiquera s'il y a eu une erreur |
|
| 1101 | + $result = new Boucle(); |
|
| 1102 | + $result->id_parent = $id_parent; |
|
| 1103 | + $result->descr = $descr; |
|
| 1104 | + |
|
| 1105 | + $pos_courante = $boucle['pos_boucle']; |
|
| 1106 | + $pos_parent = $boucle['pos_parent']; |
|
| 1107 | + $id_boucle_search = $id_boucle = $boucle['id_boucle']; |
|
| 1108 | + |
|
| 1109 | + $ligne_preaff = $ligne_avant = $ligne_milieu = $ligne_debut_texte + public_compte_ligne($texte, $pos_debut_texte, $pos_parent); |
|
| 1110 | + |
|
| 1111 | + // boucle anonyme ? |
|
| 1112 | + if (!strlen((string) $id_boucle)) { |
|
| 1113 | + $id_boucle = '_anon_L' . $ligne_milieu . '_' . substr(md5('anonyme:' . $id_parent . ':' . json_encode($boucle, JSON_THROW_ON_ERROR)), 0, 8); |
|
| 1114 | + } |
|
| 1115 | + |
|
| 1116 | + $pos_debut_boucle = $pos_courante; |
|
| 1117 | + |
|
| 1118 | + $pos_milieu = $pos_parent; |
|
| 1119 | + |
|
| 1120 | + // Regarder si on a une partie conditionnelle avant <B_xxx> |
|
| 1121 | + if ($boucle['pos_precond'] !== false) { |
|
| 1122 | + $pos_debut_boucle = $boucle['pos_precond']; |
|
| 1123 | + |
|
| 1124 | + $pos_avant = $boucle['pos_precond_inside']; |
|
| 1125 | + $result->avant = substr((string) $texte, $pos_avant, $pos_courante - $pos_avant); |
|
| 1126 | + $ligne_avant = $ligne_debut_texte + public_compte_ligne($texte, $pos_debut_texte, $pos_avant); |
|
| 1127 | + } |
|
| 1128 | + |
|
| 1129 | + // Regarder si on a une partie inconditionnelle avant <BB_xxx> |
|
| 1130 | + if ($boucle['pos_preaff'] !== false) { |
|
| 1131 | + $end_preaff = $pos_debut_boucle; |
|
| 1132 | + |
|
| 1133 | + $pos_preaff = $boucle['pos_preaff_inside']; |
|
| 1134 | + $result->preaff = substr((string) $texte, $pos_preaff, $end_preaff - $pos_preaff); |
|
| 1135 | + $ligne_preaff = $ligne_debut_texte + public_compte_ligne($texte, $pos_debut_texte, $pos_preaff); |
|
| 1136 | + } |
|
| 1137 | + |
|
| 1138 | + $result->id_boucle = $id_boucle; |
|
| 1139 | + |
|
| 1140 | + if ( |
|
| 1141 | + !preg_match(SPEC_BOUCLE, (string) $texte, $match, 0, $pos_milieu) |
|
| 1142 | + || ($pos_match = strpos((string) $texte, (string) $match[0], $pos_milieu)) === false |
|
| 1143 | + || $pos_match > $pos_milieu |
|
| 1144 | + ) { |
|
| 1145 | + $err_b = ['zbug_erreur_boucle_syntaxe', ['id' => $id_boucle]]; |
|
| 1146 | + erreur_squelette($err_b, $result); |
|
| 1147 | + |
|
| 1148 | + $ligne_debut_texte += public_compte_ligne($texte, $pos_debut_texte, $pos_courante + 1); |
|
| 1149 | + $pos_debut_texte = $pos_courante + 1; |
|
| 1150 | + continue; |
|
| 1151 | + } |
|
| 1152 | + |
|
| 1153 | + $result->type_requete = $match[0]; |
|
| 1154 | + $pos_milieu += strlen($match[0]); |
|
| 1155 | + $pos_courante = $pos_milieu; // on s'en sert pour compter les lignes plus precisemment |
|
| 1156 | + |
|
| 1157 | + $type = $match[1]; |
|
| 1158 | + $jointures = trim($match[2]); |
|
| 1159 | + $table_optionnelle = ($match[3]); |
|
| 1160 | + if ($jointures) { |
|
| 1161 | + // on affecte pas ici les jointures explicites, mais dans la compilation |
|
| 1162 | + // ou elles seront completees des jointures declarees |
|
| 1163 | + $result->jointures_explicites = $jointures; |
|
| 1164 | + } |
|
| 1165 | + |
|
| 1166 | + if ($table_optionnelle) { |
|
| 1167 | + $result->table_optionnelle = true; |
|
| 1168 | + $result->type_table_optionnelle = $type; |
|
| 1169 | + } |
|
| 1170 | + |
|
| 1171 | + // 1ere passe sur les criteres, vu comme des arguments sans fct |
|
| 1172 | + // Resultat mis dans result->param |
|
| 1173 | + $pos_fin_criteres = $pos_milieu; |
|
| 1174 | + phraser_args($texte, '/>', '', $all_res, $result, $pos_fin_criteres); |
|
| 1175 | + |
|
| 1176 | + // En 2e passe result->criteres contiendra un tableau |
|
| 1177 | + // pour l'instant on met le source (chaine) : |
|
| 1178 | + // si elle reste ici au final, c'est qu'elle contient une erreur |
|
| 1179 | + $pos_courante = $pos_fin_criteres; // on s'en sert pour compter les lignes plus precisemment |
|
| 1180 | + $result->criteres = substr((string) $texte, $pos_milieu, $pos_fin_criteres - $pos_milieu); |
|
| 1181 | + $pos_milieu = $pos_fin_criteres; |
|
| 1182 | + |
|
| 1183 | + // |
|
| 1184 | + // Recuperer la fin : |
|
| 1185 | + // |
|
| 1186 | + if ($texte[$pos_milieu] === '/') { |
|
| 1187 | + // boucle autofermante : pas de partie conditionnelle apres |
|
| 1188 | + $pos_courante += 2; |
|
| 1189 | + $result->milieu = ''; |
|
| 1190 | + } else { |
|
| 1191 | + $pos_milieu += 1; |
|
| 1192 | + |
|
| 1193 | + $fin_boucle = BALISE_FIN_BOUCLE . $id_boucle_search . '>'; |
|
| 1194 | + $pos_fin = strpos((string) $texte, $fin_boucle, $pos_milieu); |
|
| 1195 | + if ($pos_fin === false) { |
|
| 1196 | + $err_b = [ |
|
| 1197 | + 'zbug_erreur_boucle_fermant', |
|
| 1198 | + ['id' => $id_boucle] |
|
| 1199 | + ]; |
|
| 1200 | + erreur_squelette($err_b, $result); |
|
| 1201 | + $pos_courante += strlen($fin_boucle); |
|
| 1202 | + } |
|
| 1203 | + else { |
|
| 1204 | + // verifier une eventuelle imbrication d'une boucle homonyme |
|
| 1205 | + // (interdite, generera une erreur plus loin, mais permet de signaler la bonne erreur) |
|
| 1206 | + $search_debut_boucle = BALISE_BOUCLE . $id_boucle_search . '('; |
|
| 1207 | + $search_from = $pos_milieu; |
|
| 1208 | + $nb_open = 1; |
|
| 1209 | + $nb_close = 1; |
|
| 1210 | + $maxiter = 0; |
|
| 1211 | + do { |
|
| 1212 | + while ( |
|
| 1213 | + $nb_close < $nb_open |
|
| 1214 | + && ($p = strpos((string) $texte, $fin_boucle, $pos_fin + 1)) |
|
| 1215 | + ) { |
|
| 1216 | + $nb_close++; |
|
| 1217 | + $pos_fin = $p; |
|
| 1218 | + } |
|
| 1219 | + // si on a pas trouve assez de boucles fermantes, sortir de la, on a fait de notre mieux |
|
| 1220 | + if ($nb_close < $nb_open) { |
|
| 1221 | + break; |
|
| 1222 | + } |
|
| 1223 | + while ( |
|
| 1224 | + ($p = strpos((string) $texte, $search_debut_boucle, $search_from)) |
|
| 1225 | + && $p < $pos_fin |
|
| 1226 | + ) { |
|
| 1227 | + $nb_open++; |
|
| 1228 | + $search_from = $p + 1; |
|
| 1229 | + } |
|
| 1230 | + } while ($nb_close < $nb_open && $maxiter++ < 5); |
|
| 1231 | + |
|
| 1232 | + $pos_courante = $pos_fin + strlen($fin_boucle); |
|
| 1233 | + } |
|
| 1234 | + $result->milieu = substr((string) $texte, $pos_milieu, $pos_fin - $pos_milieu); |
|
| 1235 | + } |
|
| 1236 | + |
|
| 1237 | + $ligne_suite = $ligne_apres = $ligne_debut_texte + public_compte_ligne($texte, $pos_debut_texte, $pos_courante); |
|
| 1238 | + $boucle = public_trouver_fin_boucle($texte, $id_parent, $boucle, $pos_courante, $result); |
|
| 1239 | + |
|
| 1240 | + // |
|
| 1241 | + // 1. Partie conditionnelle apres ? |
|
| 1242 | + // |
|
| 1243 | + if ($boucle['pos_postcond']) { |
|
| 1244 | + $result->apres = substr((string) $texte, $pos_courante, $boucle['pos_postcond'] - $pos_courante); |
|
| 1245 | + $ligne_suite += public_compte_ligne($texte, $pos_courante, $boucle['pos_postcond_inside']); |
|
| 1246 | + $pos_courante = $boucle['pos_postcond_inside'] ; |
|
| 1247 | + } |
|
| 1248 | + |
|
| 1249 | + |
|
| 1250 | + // |
|
| 1251 | + // 2. Partie alternative apres ? |
|
| 1252 | + // |
|
| 1253 | + $ligne_altern = $ligne_suite; |
|
| 1254 | + if ($boucle['pos_altern']) { |
|
| 1255 | + $result->altern = substr((string) $texte, $pos_courante, $boucle['pos_altern'] - $pos_courante); |
|
| 1256 | + $ligne_suite += public_compte_ligne($texte, $pos_courante, $boucle['pos_altern_inside']); |
|
| 1257 | + $pos_courante = $boucle['pos_altern_inside']; |
|
| 1258 | + } |
|
| 1259 | + |
|
| 1260 | + // |
|
| 1261 | + // 3. Partie footer non alternative ? |
|
| 1262 | + // |
|
| 1263 | + $ligne_postaff = $ligne_suite; |
|
| 1264 | + if ($boucle['pos_postaff']) { |
|
| 1265 | + $result->postaff = substr((string) $texte, $pos_courante, $boucle['pos_postaff'] - $pos_courante); |
|
| 1266 | + $ligne_suite += public_compte_ligne($texte, $pos_courante, $boucle['pos_postaff_inside']); |
|
| 1267 | + $pos_courante = $boucle['pos_postaff_inside']; |
|
| 1268 | + } |
|
| 1269 | + |
|
| 1270 | + $result->ligne = $ligne_preaff; |
|
| 1271 | + |
|
| 1272 | + if ($p = strpos($type, ':')) { |
|
| 1273 | + $result->sql_serveur = substr($type, 0, $p); |
|
| 1274 | + $type = substr($type, $p + 1); |
|
| 1275 | + } |
|
| 1276 | + $soustype = strtolower($type); |
|
| 1277 | + |
|
| 1278 | + if (!isset($GLOBALS['table_des_tables'][$soustype])) { |
|
| 1279 | + $soustype = $type; |
|
| 1280 | + } |
|
| 1281 | + |
|
| 1282 | + $result->type_requete = $soustype; |
|
| 1283 | + // Lancer la 2e passe sur les criteres si la 1ere etait bonne |
|
| 1284 | + if (!is_array($result->param)) { |
|
| 1285 | + $err_b = true; |
|
| 1286 | + } else { |
|
| 1287 | + phraser_criteres($result->param, $result); |
|
| 1288 | + if (strncasecmp($soustype, TYPE_RECURSIF, strlen(TYPE_RECURSIF)) == 0) { |
|
| 1289 | + $result->type_requete = TYPE_RECURSIF; |
|
| 1290 | + $args = $result->param; |
|
| 1291 | + array_unshift( |
|
| 1292 | + $args, |
|
| 1293 | + substr($type, strlen(TYPE_RECURSIF)) |
|
| 1294 | + ); |
|
| 1295 | + $result->param = $args; |
|
| 1296 | + } |
|
| 1297 | + } |
|
| 1298 | + |
|
| 1299 | + $descr['id_mere_contexte'] = $id_boucle; |
|
| 1300 | + $result->milieu = public_phraser_html_dist($result->milieu, $id_boucle, $boucles, $descr, $ligne_milieu, $boucle_placeholder); |
|
| 1301 | + // reserver la place dans la pile des boucles pour compiler ensuite dans le bon ordre |
|
| 1302 | + // ie les boucles qui apparaissent dans les partie conditionnelles doivent etre compilees apres cette boucle |
|
| 1303 | + // si il y a deja une boucle de ce nom, cela declenchera une erreur ensuite |
|
| 1304 | + if (empty($boucles[$id_boucle])) { |
|
| 1305 | + $boucles[$id_boucle] = null; |
|
| 1306 | + } |
|
| 1307 | + $result->preaff = public_phraser_html_dist($result->preaff, $id_parent, $boucles, $descr, $ligne_preaff, $boucle_placeholder); |
|
| 1308 | + $result->avant = public_phraser_html_dist($result->avant, $id_parent, $boucles, $descr, $ligne_avant, $boucle_placeholder); |
|
| 1309 | + $result->apres = public_phraser_html_dist($result->apres, $id_parent, $boucles, $descr, $ligne_apres, $boucle_placeholder); |
|
| 1310 | + $result->altern = public_phraser_html_dist($result->altern, $id_parent, $boucles, $descr, $ligne_altern, $boucle_placeholder); |
|
| 1311 | + $result->postaff = public_phraser_html_dist($result->postaff, $id_parent, $boucles, $descr, $ligne_postaff, $boucle_placeholder); |
|
| 1312 | + |
|
| 1313 | + // Prevenir le generateur de code que le squelette est faux |
|
| 1314 | + if ($err_b) { |
|
| 1315 | + $result->type_requete = false; |
|
| 1316 | + } |
|
| 1317 | + |
|
| 1318 | + // Verifier qu'il n'y a pas double definition |
|
| 1319 | + // apres analyse des sous-parties (pas avant). |
|
| 1320 | + if (!empty($boucles[$id_boucle])) { |
|
| 1321 | + if ($boucles[$id_boucle]->type_requete !== false) { |
|
| 1322 | + $err_b_d = [ |
|
| 1323 | + 'zbug_erreur_boucle_double', |
|
| 1324 | + ['id' => $id_boucle] |
|
| 1325 | + ]; |
|
| 1326 | + erreur_squelette($err_b_d, $result); |
|
| 1327 | + // Prevenir le generateur de code que le squelette est faux |
|
| 1328 | + $boucles[$id_boucle]->type_requete = false; |
|
| 1329 | + } |
|
| 1330 | + } else { |
|
| 1331 | + $boucles[$id_boucle] = $result; |
|
| 1332 | + } |
|
| 1333 | + |
|
| 1334 | + // remplacer la boucle par un placeholder qui compte le meme nombre de lignes |
|
| 1335 | + $placeholder = public_generer_boucle_placeholder($id_boucle, $boucles[$id_boucle], $boucle_placeholder, $ligne_suite - $ligne_debut_texte); |
|
| 1336 | + $longueur_boucle = $pos_courante - $boucle['debut_boucle']; |
|
| 1337 | + $texte = substr_replace((string) $texte, $placeholder, $boucle['debut_boucle'], $longueur_boucle); |
|
| 1338 | + $pos_courante = $pos_courante - $longueur_boucle + strlen($placeholder); |
|
| 1339 | + |
|
| 1340 | + // phraser la partie avant le debut de la boucle |
|
| 1341 | + #$all_res = phraser_champs_etendus(substr($texte, $pos_debut_texte, $boucle['debut_boucle'] - $pos_debut_texte), $ligne_debut_texte, $all_res); |
|
| 1342 | + #$all_res[] = &$boucles[$id_boucle]; |
|
| 1343 | + |
|
| 1344 | + $ligne_debut_texte = $ligne_suite; |
|
| 1345 | + $pos_debut_texte = $pos_courante; |
|
| 1346 | + } |
|
| 1347 | + |
|
| 1348 | + return phraser_champs_etendus($texte, $ligne_debut_initial, $all_res); |
|
| 1349 | 1349 | } |
@@ -5,226 +5,226 @@ discard block |
||
| 5 | 5 | |
| 6 | 6 | return [ |
| 7 | 7 | |
| 8 | - // A |
|
| 9 | - 'access_interface_graphique' => 'Powrót do pełnego interfejsu graficznego', |
|
| 10 | - 'access_mode_texte' => 'Uproszczony interfejs - tryb tekstowy', |
|
| 11 | - 'admin_debug' => 'debug', |
|
| 12 | - 'admin_modifier_article' => 'Modyfikuj artykuł', |
|
| 13 | - 'admin_modifier_auteur' => 'Modyfikuj autora', |
|
| 14 | - 'admin_modifier_breve' => 'Modyfikuj news', |
|
| 15 | - 'admin_modifier_mot' => 'Modyfikuj słowo kluczowe', |
|
| 16 | - 'admin_modifier_rubrique' => 'Modyfikuj dział', |
|
| 17 | - 'admin_recalculer' => 'Odśwież ', |
|
| 18 | - 'afficher_calendrier' => 'Wyświetl kalendarz', |
|
| 19 | - 'afficher_trad' => 'pokaż przekłady', |
|
| 20 | - 'alerte_maj_impossible' => '<b>Uwaga!</b> Uaktualnienie bazy danych SQL do wersji @version@ jest nie możliwe. Powodem jest prawdopodobnie brak uprawnień do modyfikacji bazy danych. Skontaktuj się z administratorem lub firmą hostingową.', |
|
| 21 | - 'alerte_modif_info_concourante' => 'UWAGA: Ta informacja była zmieniana w innym miejscu. Obecna wartość to:Cette information a été modifiée par ailleurs. La valeur actuelle est :', |
|
| 22 | - 'analyse_xml' => 'Analiza XML', |
|
| 23 | - 'annuler' => 'Anuluj', |
|
| 24 | - 'antispam_champ_vide' => 'Pozostaw puste:', |
|
| 25 | - 'articles_recents' => 'Najnowsze artykuły', |
|
| 26 | - 'avis_archive_incorrect' => 'ten plik archiwalny nie należy do SPIP', |
|
| 27 | - 'avis_archive_invalide' => 'plik archiwalny jest nieprawidłowy', |
|
| 28 | - 'avis_attention' => 'UWAGA !', |
|
| 29 | - 'avis_champ_incorrect_type_objet' => 'Nieprawiłowa nazwa pola @name@ dla obiektu typu @type@', |
|
| 30 | - 'avis_colonne_inexistante' => 'Kolumna @col@ nie istnieje', |
|
| 31 | - 'avis_erreur' => 'Błąd: zobacz poniżej’;', |
|
| 32 | - 'avis_erreur_connexion' => 'Błąd połączenia', |
|
| 33 | - 'avis_erreur_cookie' => 'problem z cookie', |
|
| 34 | - 'avis_erreur_fonction_contexte' => 'Błąd programistyczny. Ta funkcja nie powinna być wywoływana w tym kontekście.', |
|
| 35 | - 'avis_erreur_mysql' => 'Błąd SQL', |
|
| 36 | - 'avis_erreur_sauvegarde' => 'Błąd archiwizacji (@type@ @id_objet@)!', |
|
| 37 | - 'avis_erreur_visiteur' => 'Problem z dostępem do stron administracyjnych', |
|
| 8 | + // A |
|
| 9 | + 'access_interface_graphique' => 'Powrót do pełnego interfejsu graficznego', |
|
| 10 | + 'access_mode_texte' => 'Uproszczony interfejs - tryb tekstowy', |
|
| 11 | + 'admin_debug' => 'debug', |
|
| 12 | + 'admin_modifier_article' => 'Modyfikuj artykuł', |
|
| 13 | + 'admin_modifier_auteur' => 'Modyfikuj autora', |
|
| 14 | + 'admin_modifier_breve' => 'Modyfikuj news', |
|
| 15 | + 'admin_modifier_mot' => 'Modyfikuj słowo kluczowe', |
|
| 16 | + 'admin_modifier_rubrique' => 'Modyfikuj dział', |
|
| 17 | + 'admin_recalculer' => 'Odśwież ', |
|
| 18 | + 'afficher_calendrier' => 'Wyświetl kalendarz', |
|
| 19 | + 'afficher_trad' => 'pokaż przekłady', |
|
| 20 | + 'alerte_maj_impossible' => '<b>Uwaga!</b> Uaktualnienie bazy danych SQL do wersji @version@ jest nie możliwe. Powodem jest prawdopodobnie brak uprawnień do modyfikacji bazy danych. Skontaktuj się z administratorem lub firmą hostingową.', |
|
| 21 | + 'alerte_modif_info_concourante' => 'UWAGA: Ta informacja była zmieniana w innym miejscu. Obecna wartość to:Cette information a été modifiée par ailleurs. La valeur actuelle est :', |
|
| 22 | + 'analyse_xml' => 'Analiza XML', |
|
| 23 | + 'annuler' => 'Anuluj', |
|
| 24 | + 'antispam_champ_vide' => 'Pozostaw puste:', |
|
| 25 | + 'articles_recents' => 'Najnowsze artykuły', |
|
| 26 | + 'avis_archive_incorrect' => 'ten plik archiwalny nie należy do SPIP', |
|
| 27 | + 'avis_archive_invalide' => 'plik archiwalny jest nieprawidłowy', |
|
| 28 | + 'avis_attention' => 'UWAGA !', |
|
| 29 | + 'avis_champ_incorrect_type_objet' => 'Nieprawiłowa nazwa pola @name@ dla obiektu typu @type@', |
|
| 30 | + 'avis_colonne_inexistante' => 'Kolumna @col@ nie istnieje', |
|
| 31 | + 'avis_erreur' => 'Błąd: zobacz poniżej’;', |
|
| 32 | + 'avis_erreur_connexion' => 'Błąd połączenia', |
|
| 33 | + 'avis_erreur_cookie' => 'problem z cookie', |
|
| 34 | + 'avis_erreur_fonction_contexte' => 'Błąd programistyczny. Ta funkcja nie powinna być wywoływana w tym kontekście.', |
|
| 35 | + 'avis_erreur_mysql' => 'Błąd SQL', |
|
| 36 | + 'avis_erreur_sauvegarde' => 'Błąd archiwizacji (@type@ @id_objet@)!', |
|
| 37 | + 'avis_erreur_visiteur' => 'Problem z dostępem do stron administracyjnych', |
|
| 38 | 38 | |
| 39 | - // B |
|
| 40 | - 'barre_a_accent_grave' => 'Wstaw dużą literę A z akcentem grave', |
|
| 41 | - 'barre_aide' => 'Użyj skrótów typograficznych do ulepszenia layoutu', |
|
| 42 | - 'barre_e_accent_aigu' => 'Wstaw dużą literę E z akcentem acute', |
|
| 43 | - 'barre_eo' => 'Wstaw ligaturę oe', |
|
| 44 | - 'barre_eo_maj' => 'Wstaw dużą ligaturę EO', |
|
| 45 | - 'barre_euro' => 'Umieść symbol €€', |
|
| 46 | - 'barre_gras' => 'Wstaw w {{boldzie}}', |
|
| 47 | - 'barre_guillemets' => 'Umieść w "cudzysłowie"', |
|
| 48 | - 'barre_guillemets_simples' => 'Umieść w innym “cudzysłowie”', |
|
| 49 | - 'barre_intertitre' => 'Przekształć w {{{śródtytuł}}}', |
|
| 50 | - 'barre_italic' => 'Wstaw w {italiku}', |
|
| 51 | - 'barre_lien' => 'Zmień w [hiperłącze->http://...]', |
|
| 52 | - 'barre_lien_input' => 'Proszę wpisać cel hiperłącza (może to być URL internetowy w formie http://www.mysite.com lub po prostu numer artykułu na tej stronie).', |
|
| 53 | - 'barre_note' => 'Zmień w [[Przypis]]', |
|
| 54 | - 'barre_paragraphe' => 'Utwórz paragraf', |
|
| 55 | - 'barre_quote' => '<quote>Zacytuj wiadomość</quote>', |
|
| 56 | - 'bouton_changer' => 'Zatwierdź', |
|
| 57 | - 'bouton_chercher' => 'Szukaj', |
|
| 58 | - 'bouton_choisir' => 'Wybierz', |
|
| 59 | - 'bouton_deplacer' => 'Przenieś', |
|
| 60 | - 'bouton_download' => 'Ściągnij', |
|
| 61 | - 'bouton_enregistrer' => 'Zapisz', |
|
| 62 | - 'bouton_radio_desactiver_messagerie_interne' => 'Dezaktywuj pocztę wewnętrzną', |
|
| 63 | - 'bouton_radio_envoi_annonces' => 'Wyślij ogłoszenia redakcyjne', |
|
| 64 | - 'bouton_radio_non_envoi_annonces' => 'Nie wysyłaj żadnych zawiadomień', |
|
| 65 | - 'bouton_radio_non_envoi_liste_nouveautes' => 'Nie wysyłaj najnowszej listy newsów', |
|
| 66 | - 'bouton_recharger_page' => 'ponownie załaduj tę stronę', |
|
| 67 | - 'bouton_telecharger' => 'Załaduj', |
|
| 68 | - 'bouton_upload' => 'Załaduj', |
|
| 69 | - 'bouton_valider' => 'Zatwierdź', |
|
| 39 | + // B |
|
| 40 | + 'barre_a_accent_grave' => 'Wstaw dużą literę A z akcentem grave', |
|
| 41 | + 'barre_aide' => 'Użyj skrótów typograficznych do ulepszenia layoutu', |
|
| 42 | + 'barre_e_accent_aigu' => 'Wstaw dużą literę E z akcentem acute', |
|
| 43 | + 'barre_eo' => 'Wstaw ligaturę oe', |
|
| 44 | + 'barre_eo_maj' => 'Wstaw dużą ligaturę EO', |
|
| 45 | + 'barre_euro' => 'Umieść symbol €€', |
|
| 46 | + 'barre_gras' => 'Wstaw w {{boldzie}}', |
|
| 47 | + 'barre_guillemets' => 'Umieść w "cudzysłowie"', |
|
| 48 | + 'barre_guillemets_simples' => 'Umieść w innym “cudzysłowie”', |
|
| 49 | + 'barre_intertitre' => 'Przekształć w {{{śródtytuł}}}', |
|
| 50 | + 'barre_italic' => 'Wstaw w {italiku}', |
|
| 51 | + 'barre_lien' => 'Zmień w [hiperłącze->http://...]', |
|
| 52 | + 'barre_lien_input' => 'Proszę wpisać cel hiperłącza (może to być URL internetowy w formie http://www.mysite.com lub po prostu numer artykułu na tej stronie).', |
|
| 53 | + 'barre_note' => 'Zmień w [[Przypis]]', |
|
| 54 | + 'barre_paragraphe' => 'Utwórz paragraf', |
|
| 55 | + 'barre_quote' => '<quote>Zacytuj wiadomość</quote>', |
|
| 56 | + 'bouton_changer' => 'Zatwierdź', |
|
| 57 | + 'bouton_chercher' => 'Szukaj', |
|
| 58 | + 'bouton_choisir' => 'Wybierz', |
|
| 59 | + 'bouton_deplacer' => 'Przenieś', |
|
| 60 | + 'bouton_download' => 'Ściągnij', |
|
| 61 | + 'bouton_enregistrer' => 'Zapisz', |
|
| 62 | + 'bouton_radio_desactiver_messagerie_interne' => 'Dezaktywuj pocztę wewnętrzną', |
|
| 63 | + 'bouton_radio_envoi_annonces' => 'Wyślij ogłoszenia redakcyjne', |
|
| 64 | + 'bouton_radio_non_envoi_annonces' => 'Nie wysyłaj żadnych zawiadomień', |
|
| 65 | + 'bouton_radio_non_envoi_liste_nouveautes' => 'Nie wysyłaj najnowszej listy newsów', |
|
| 66 | + 'bouton_recharger_page' => 'ponownie załaduj tę stronę', |
|
| 67 | + 'bouton_telecharger' => 'Załaduj', |
|
| 68 | + 'bouton_upload' => 'Załaduj', |
|
| 69 | + 'bouton_valider' => 'Zatwierdź', |
|
| 70 | 70 | |
| 71 | - // C |
|
| 72 | - 'cal_apresmidi' => 'popołudniu', |
|
| 73 | - 'cal_jour_entier' => 'cały dzień', |
|
| 74 | - 'cal_matin' => 'rano', |
|
| 75 | - 'cal_par_jour' => 'wg dni', |
|
| 76 | - 'cal_par_mois' => 'wg miesięcy', |
|
| 77 | - 'cal_par_semaine' => 'wg tygodni', |
|
| 78 | - 'choix_couleur_interface' => 'kolor', |
|
| 79 | - 'choix_interface' => 'wybór interfejsu', |
|
| 80 | - 'colonne' => 'Kolumna', |
|
| 81 | - 'confirm_changer_statut' => 'Uwaga, czy na pewno chcesz zmienić status tego elementu ? Kontynuować ?', |
|
| 82 | - 'correcte' => 'poprawna', |
|
| 71 | + // C |
|
| 72 | + 'cal_apresmidi' => 'popołudniu', |
|
| 73 | + 'cal_jour_entier' => 'cały dzień', |
|
| 74 | + 'cal_matin' => 'rano', |
|
| 75 | + 'cal_par_jour' => 'wg dni', |
|
| 76 | + 'cal_par_mois' => 'wg miesięcy', |
|
| 77 | + 'cal_par_semaine' => 'wg tygodni', |
|
| 78 | + 'choix_couleur_interface' => 'kolor', |
|
| 79 | + 'choix_interface' => 'wybór interfejsu', |
|
| 80 | + 'colonne' => 'Kolumna', |
|
| 81 | + 'confirm_changer_statut' => 'Uwaga, czy na pewno chcesz zmienić status tego elementu ? Kontynuować ?', |
|
| 82 | + 'correcte' => 'poprawna', |
|
| 83 | 83 | |
| 84 | - // D |
|
| 85 | - 'date_aujourdhui' => 'dziś', |
|
| 86 | - 'date_avant_jc' => 'P.N.E.', |
|
| 87 | - 'date_dans' => 'w @delai@', |
|
| 88 | - 'date_de_mois_1' => '@j@ stycznia', |
|
| 89 | - 'date_de_mois_10' => '@j@ października', |
|
| 90 | - 'date_de_mois_11' => '@j@ listopada', |
|
| 91 | - 'date_de_mois_12' => '@j@ grudnia', |
|
| 92 | - 'date_de_mois_2' => '@j@ lutego', |
|
| 93 | - 'date_de_mois_3' => '@j@ marca', |
|
| 94 | - 'date_de_mois_4' => '@j@ kwietnia', |
|
| 95 | - 'date_de_mois_5' => '@j@ maja', |
|
| 96 | - 'date_de_mois_6' => '@j@ czerwca', |
|
| 97 | - 'date_de_mois_7' => '@j@ lipca', |
|
| 98 | - 'date_de_mois_8' => '@j@ sierpnia', |
|
| 99 | - 'date_de_mois_9' => '@j@ września', |
|
| 100 | - 'date_demain' => 'jutro', |
|
| 101 | - 'date_fmt_heures_minutes' => '@h@h@m@min', |
|
| 102 | - 'date_fmt_jour_heure' => '@jour@ o @heure@', |
|
| 103 | - 'date_fmt_jour_mois' => '@jourmois@', |
|
| 104 | - 'date_fmt_jour_mois_annee' => '@jourmois@ @annee@', |
|
| 105 | - 'date_fmt_mois_annee' => '@nommois@ @annee@', |
|
| 106 | - 'date_fmt_nomjour_date' => '@date@ @nomjour@ ', |
|
| 107 | - 'date_heures' => 'godziny', |
|
| 108 | - 'date_hier' => 'wczoraj', |
|
| 109 | - 'date_il_y_a' => 'jest @delai@', |
|
| 110 | - 'date_jnum1' => '1', |
|
| 111 | - 'date_jnum10' => '10', |
|
| 112 | - 'date_jnum11' => '11', |
|
| 113 | - 'date_jnum12' => '12', |
|
| 114 | - 'date_jnum13' => '13', |
|
| 115 | - 'date_jnum14' => '14', |
|
| 116 | - 'date_jnum15' => '15', |
|
| 117 | - 'date_jnum16' => '16', |
|
| 118 | - 'date_jnum17' => '17', |
|
| 119 | - 'date_jnum18' => '18', |
|
| 120 | - 'date_jnum19' => '19', |
|
| 121 | - 'date_jnum2' => '2', |
|
| 122 | - 'date_jnum20' => '20', |
|
| 123 | - 'date_jnum21' => '21', |
|
| 124 | - 'date_jnum22' => '22', |
|
| 125 | - 'date_jnum23' => '23', |
|
| 126 | - 'date_jnum24' => '24', |
|
| 127 | - 'date_jnum25' => '25', |
|
| 128 | - 'date_jnum26' => '26', |
|
| 129 | - 'date_jnum27' => '27', |
|
| 130 | - 'date_jnum28' => '28', |
|
| 131 | - 'date_jnum29' => '29', |
|
| 132 | - 'date_jnum3' => '3', |
|
| 133 | - 'date_jnum30' => '30', |
|
| 134 | - 'date_jnum31' => '31', |
|
| 135 | - 'date_jnum4' => '4', |
|
| 136 | - 'date_jnum5' => '5', |
|
| 137 | - 'date_jnum6' => '6', |
|
| 138 | - 'date_jnum7' => '7', |
|
| 139 | - 'date_jnum8' => '8', |
|
| 140 | - 'date_jnum9' => '9', |
|
| 141 | - 'date_jour_1' => 'Niedziela', |
|
| 142 | - 'date_jour_1_abbr' => 'nie.', |
|
| 143 | - 'date_jour_1_initiale' => 'n.', |
|
| 144 | - 'date_jour_2' => 'Poniedziałek', |
|
| 145 | - 'date_jour_2_abbr' => 'pon.', |
|
| 146 | - 'date_jour_2_initiale' => 'p.', |
|
| 147 | - 'date_jour_3' => 'Wtorek', |
|
| 148 | - 'date_jour_3_abbr' => 'wto.', |
|
| 149 | - 'date_jour_3_initiale' => 'w.', |
|
| 150 | - 'date_jour_4' => 'Środa', |
|
| 151 | - 'date_jour_4_abbr' => 'śro.', |
|
| 152 | - 'date_jour_4_initiale' => 'ś.', |
|
| 153 | - 'date_jour_5' => 'Czwartek', |
|
| 154 | - 'date_jour_5_abbr' => 'czw.', |
|
| 155 | - 'date_jour_5_initiale' => 'c.', |
|
| 156 | - 'date_jour_6' => 'Piątek', |
|
| 157 | - 'date_jour_6_abbr' => 'pią.', |
|
| 158 | - 'date_jour_6_initiale' => 'p.', |
|
| 159 | - 'date_jour_7' => 'Sobota', |
|
| 160 | - 'date_jour_7_abbr' => 'sob.', |
|
| 161 | - 'date_jour_7_initiale' => 's.', |
|
| 162 | - 'date_jours' => 'dni', |
|
| 163 | - 'date_minutes' => 'minuty', |
|
| 164 | - 'date_mois' => 'miesiąc', |
|
| 165 | - 'date_mois_1' => 'Styczeń', |
|
| 166 | - 'date_mois_10' => 'Październik', |
|
| 167 | - 'date_mois_10_abbr' => 'paźdź.', |
|
| 168 | - 'date_mois_11' => 'Listopad', |
|
| 169 | - 'date_mois_11_abbr' => 'list.', |
|
| 170 | - 'date_mois_12' => 'Grudzień', |
|
| 171 | - 'date_mois_12_abbr' => 'gru.', |
|
| 172 | - 'date_mois_1_abbr' => 'sty.', |
|
| 173 | - 'date_mois_2' => 'Luty', |
|
| 174 | - 'date_mois_2_abbr' => 'lut.', |
|
| 175 | - 'date_mois_3' => 'Marzec', |
|
| 176 | - 'date_mois_3_abbr' => 'mar.', |
|
| 177 | - 'date_mois_4' => 'Kwiecień', |
|
| 178 | - 'date_mois_4_abbr' => 'kw.', |
|
| 179 | - 'date_mois_5' => 'Maj', |
|
| 180 | - 'date_mois_5_abbr' => 'maj', |
|
| 181 | - 'date_mois_6' => 'Czerwiec', |
|
| 182 | - 'date_mois_6_abbr' => 'czer.', |
|
| 183 | - 'date_mois_7' => 'Lipiec', |
|
| 184 | - 'date_mois_7_abbr' => 'lip.', |
|
| 185 | - 'date_mois_8' => 'Sierpień', |
|
| 186 | - 'date_mois_8_abbr' => 'sie.', |
|
| 187 | - 'date_mois_9' => 'Wrzesień', |
|
| 188 | - 'date_mois_9_abbr' => 'wrz.', |
|
| 189 | - 'date_saison_1' => 'zima', |
|
| 190 | - 'date_saison_2' => 'wiosna', |
|
| 191 | - 'date_saison_3' => 'lato', |
|
| 192 | - 'date_saison_4' => 'jesień', |
|
| 193 | - 'date_secondes' => 'sekundy', |
|
| 194 | - 'date_semaines' => 'tygodnie', |
|
| 195 | - 'date_un_mois' => 'miesiące', |
|
| 196 | - 'date_une_heure' => 'godzina', |
|
| 197 | - 'date_une_minute' => 'minuta', |
|
| 198 | - 'date_une_seconde' => 'sekunda', |
|
| 199 | - 'date_une_semaine' => 'tydzień', |
|
| 200 | - 'dirs_commencer' => ' w celu rzeczywistego rozpoczęcia instalacji', |
|
| 201 | - 'dirs_preliminaire' => 'Wstęp: <b>Ustawienia pozwoleń dostępu</b>', |
|
| 202 | - 'dirs_probleme_droits' => 'Problem z prawami dostępu', |
|
| 203 | - 'dirs_repertoires_absents' => '<p><b>Następujące katalogi nie zostały odnalezione :</b></p> <ul>@bad_dirs@.</ul> |
|
| 84 | + // D |
|
| 85 | + 'date_aujourdhui' => 'dziś', |
|
| 86 | + 'date_avant_jc' => 'P.N.E.', |
|
| 87 | + 'date_dans' => 'w @delai@', |
|
| 88 | + 'date_de_mois_1' => '@j@ stycznia', |
|
| 89 | + 'date_de_mois_10' => '@j@ października', |
|
| 90 | + 'date_de_mois_11' => '@j@ listopada', |
|
| 91 | + 'date_de_mois_12' => '@j@ grudnia', |
|
| 92 | + 'date_de_mois_2' => '@j@ lutego', |
|
| 93 | + 'date_de_mois_3' => '@j@ marca', |
|
| 94 | + 'date_de_mois_4' => '@j@ kwietnia', |
|
| 95 | + 'date_de_mois_5' => '@j@ maja', |
|
| 96 | + 'date_de_mois_6' => '@j@ czerwca', |
|
| 97 | + 'date_de_mois_7' => '@j@ lipca', |
|
| 98 | + 'date_de_mois_8' => '@j@ sierpnia', |
|
| 99 | + 'date_de_mois_9' => '@j@ września', |
|
| 100 | + 'date_demain' => 'jutro', |
|
| 101 | + 'date_fmt_heures_minutes' => '@h@h@m@min', |
|
| 102 | + 'date_fmt_jour_heure' => '@jour@ o @heure@', |
|
| 103 | + 'date_fmt_jour_mois' => '@jourmois@', |
|
| 104 | + 'date_fmt_jour_mois_annee' => '@jourmois@ @annee@', |
|
| 105 | + 'date_fmt_mois_annee' => '@nommois@ @annee@', |
|
| 106 | + 'date_fmt_nomjour_date' => '@date@ @nomjour@ ', |
|
| 107 | + 'date_heures' => 'godziny', |
|
| 108 | + 'date_hier' => 'wczoraj', |
|
| 109 | + 'date_il_y_a' => 'jest @delai@', |
|
| 110 | + 'date_jnum1' => '1', |
|
| 111 | + 'date_jnum10' => '10', |
|
| 112 | + 'date_jnum11' => '11', |
|
| 113 | + 'date_jnum12' => '12', |
|
| 114 | + 'date_jnum13' => '13', |
|
| 115 | + 'date_jnum14' => '14', |
|
| 116 | + 'date_jnum15' => '15', |
|
| 117 | + 'date_jnum16' => '16', |
|
| 118 | + 'date_jnum17' => '17', |
|
| 119 | + 'date_jnum18' => '18', |
|
| 120 | + 'date_jnum19' => '19', |
|
| 121 | + 'date_jnum2' => '2', |
|
| 122 | + 'date_jnum20' => '20', |
|
| 123 | + 'date_jnum21' => '21', |
|
| 124 | + 'date_jnum22' => '22', |
|
| 125 | + 'date_jnum23' => '23', |
|
| 126 | + 'date_jnum24' => '24', |
|
| 127 | + 'date_jnum25' => '25', |
|
| 128 | + 'date_jnum26' => '26', |
|
| 129 | + 'date_jnum27' => '27', |
|
| 130 | + 'date_jnum28' => '28', |
|
| 131 | + 'date_jnum29' => '29', |
|
| 132 | + 'date_jnum3' => '3', |
|
| 133 | + 'date_jnum30' => '30', |
|
| 134 | + 'date_jnum31' => '31', |
|
| 135 | + 'date_jnum4' => '4', |
|
| 136 | + 'date_jnum5' => '5', |
|
| 137 | + 'date_jnum6' => '6', |
|
| 138 | + 'date_jnum7' => '7', |
|
| 139 | + 'date_jnum8' => '8', |
|
| 140 | + 'date_jnum9' => '9', |
|
| 141 | + 'date_jour_1' => 'Niedziela', |
|
| 142 | + 'date_jour_1_abbr' => 'nie.', |
|
| 143 | + 'date_jour_1_initiale' => 'n.', |
|
| 144 | + 'date_jour_2' => 'Poniedziałek', |
|
| 145 | + 'date_jour_2_abbr' => 'pon.', |
|
| 146 | + 'date_jour_2_initiale' => 'p.', |
|
| 147 | + 'date_jour_3' => 'Wtorek', |
|
| 148 | + 'date_jour_3_abbr' => 'wto.', |
|
| 149 | + 'date_jour_3_initiale' => 'w.', |
|
| 150 | + 'date_jour_4' => 'Środa', |
|
| 151 | + 'date_jour_4_abbr' => 'śro.', |
|
| 152 | + 'date_jour_4_initiale' => 'ś.', |
|
| 153 | + 'date_jour_5' => 'Czwartek', |
|
| 154 | + 'date_jour_5_abbr' => 'czw.', |
|
| 155 | + 'date_jour_5_initiale' => 'c.', |
|
| 156 | + 'date_jour_6' => 'Piątek', |
|
| 157 | + 'date_jour_6_abbr' => 'pią.', |
|
| 158 | + 'date_jour_6_initiale' => 'p.', |
|
| 159 | + 'date_jour_7' => 'Sobota', |
|
| 160 | + 'date_jour_7_abbr' => 'sob.', |
|
| 161 | + 'date_jour_7_initiale' => 's.', |
|
| 162 | + 'date_jours' => 'dni', |
|
| 163 | + 'date_minutes' => 'minuty', |
|
| 164 | + 'date_mois' => 'miesiąc', |
|
| 165 | + 'date_mois_1' => 'Styczeń', |
|
| 166 | + 'date_mois_10' => 'Październik', |
|
| 167 | + 'date_mois_10_abbr' => 'paźdź.', |
|
| 168 | + 'date_mois_11' => 'Listopad', |
|
| 169 | + 'date_mois_11_abbr' => 'list.', |
|
| 170 | + 'date_mois_12' => 'Grudzień', |
|
| 171 | + 'date_mois_12_abbr' => 'gru.', |
|
| 172 | + 'date_mois_1_abbr' => 'sty.', |
|
| 173 | + 'date_mois_2' => 'Luty', |
|
| 174 | + 'date_mois_2_abbr' => 'lut.', |
|
| 175 | + 'date_mois_3' => 'Marzec', |
|
| 176 | + 'date_mois_3_abbr' => 'mar.', |
|
| 177 | + 'date_mois_4' => 'Kwiecień', |
|
| 178 | + 'date_mois_4_abbr' => 'kw.', |
|
| 179 | + 'date_mois_5' => 'Maj', |
|
| 180 | + 'date_mois_5_abbr' => 'maj', |
|
| 181 | + 'date_mois_6' => 'Czerwiec', |
|
| 182 | + 'date_mois_6_abbr' => 'czer.', |
|
| 183 | + 'date_mois_7' => 'Lipiec', |
|
| 184 | + 'date_mois_7_abbr' => 'lip.', |
|
| 185 | + 'date_mois_8' => 'Sierpień', |
|
| 186 | + 'date_mois_8_abbr' => 'sie.', |
|
| 187 | + 'date_mois_9' => 'Wrzesień', |
|
| 188 | + 'date_mois_9_abbr' => 'wrz.', |
|
| 189 | + 'date_saison_1' => 'zima', |
|
| 190 | + 'date_saison_2' => 'wiosna', |
|
| 191 | + 'date_saison_3' => 'lato', |
|
| 192 | + 'date_saison_4' => 'jesień', |
|
| 193 | + 'date_secondes' => 'sekundy', |
|
| 194 | + 'date_semaines' => 'tygodnie', |
|
| 195 | + 'date_un_mois' => 'miesiące', |
|
| 196 | + 'date_une_heure' => 'godzina', |
|
| 197 | + 'date_une_minute' => 'minuta', |
|
| 198 | + 'date_une_seconde' => 'sekunda', |
|
| 199 | + 'date_une_semaine' => 'tydzień', |
|
| 200 | + 'dirs_commencer' => ' w celu rzeczywistego rozpoczęcia instalacji', |
|
| 201 | + 'dirs_preliminaire' => 'Wstęp: <b>Ustawienia pozwoleń dostępu</b>', |
|
| 202 | + 'dirs_probleme_droits' => 'Problem z prawami dostępu', |
|
| 203 | + 'dirs_repertoires_absents' => '<p><b>Następujące katalogi nie zostały odnalezione :</b></p> <ul>@bad_dirs@.</ul> |
|
| 204 | 204 | <p>Możliwe, że powodem tego jest nazwa, w której pomylone zostały duże i małe litery. |
| 205 | 205 | Sprawdź nazwy pod względem małych i dużych liter. |
| 206 | 206 | Jeśli rzeczywiście wielkość liter jest różna, zmień nazwy katalogów za pomocą dowolnego programu FTP |
| 207 | 207 | <p>Po wykonaniu tej operacji będziesz mógł', |
| 208 | - 'dirs_repertoires_suivants' => '<p><b>Następujące katalogi nie są skonfigurowane do zapisu :</b></p> <ul>@bad_dirs@.</ul> |
|
| 208 | + 'dirs_repertoires_suivants' => '<p><b>Następujące katalogi nie są skonfigurowane do zapisu :</b></p> <ul>@bad_dirs@.</ul> |
|
| 209 | 209 | <p>Aby temu zapobiec, skorzystaj z klienta FTP i ureguluj konieczne prawa dostępu |
| 210 | 210 | do tych katalogów. Procedura jest wytłumaczona od A-Z w przewodniku instalacji. |
| 211 | 211 | <p>Kiedy dokonasz koniecznych zmian, będziesz mógł', |
| 212 | - 'double_occurrence' => 'Podwójne wystąpienie @balise@', |
|
| 212 | + 'double_occurrence' => 'Podwójne wystąpienie @balise@', |
|
| 213 | 213 | |
| 214 | - // E |
|
| 215 | - 'en_cours' => 'w trakcie', |
|
| 216 | - 'envoi_via_le_site' => 'Wyślij ze strony', |
|
| 217 | - 'erreur' => 'Błąd', |
|
| 218 | - 'erreur_balise_non_fermee' => 'ostatni znacznik nie jest zamknięty :', |
|
| 219 | - 'erreur_texte' => 'błąd/błędy', |
|
| 220 | - 'etape' => 'Etap', |
|
| 214 | + // E |
|
| 215 | + 'en_cours' => 'w trakcie', |
|
| 216 | + 'envoi_via_le_site' => 'Wyślij ze strony', |
|
| 217 | + 'erreur' => 'Błąd', |
|
| 218 | + 'erreur_balise_non_fermee' => 'ostatni znacznik nie jest zamknięty :', |
|
| 219 | + 'erreur_texte' => 'błąd/błędy', |
|
| 220 | + 'etape' => 'Etap', |
|
| 221 | 221 | |
| 222 | - // F |
|
| 223 | - 'fichier_introuvable' => 'Plik @fichier@ nie odnaleziony', # MODIF |
|
| 224 | - 'form_auteur_confirmation' => 'Potwierdź swój e-mail', |
|
| 225 | - 'form_auteur_email_modifie' => 'Twój adres e-mail został zmieniony.', |
|
| 226 | - 'form_auteur_envoi_mail_confirmation' => 'Mail z potwierdzeniem został wysłany na adres @email@. Prosimy o kliknięcie w link, przesłany w e-mailu aby zatwierdzić adres e-mail.', |
|
| 227 | - 'form_auteur_mail_confirmation' => 'Dzień dobry, |
|
| 222 | + // F |
|
| 223 | + 'fichier_introuvable' => 'Plik @fichier@ nie odnaleziony', # MODIF |
|
| 224 | + 'form_auteur_confirmation' => 'Potwierdź swój e-mail', |
|
| 225 | + 'form_auteur_email_modifie' => 'Twój adres e-mail został zmieniony.', |
|
| 226 | + 'form_auteur_envoi_mail_confirmation' => 'Mail z potwierdzeniem został wysłany na adres @email@. Prosimy o kliknięcie w link, przesłany w e-mailu aby zatwierdzić adres e-mail.', |
|
| 227 | + 'form_auteur_mail_confirmation' => 'Dzień dobry, |
|
| 228 | 228 | |
| 229 | 229 | Uruchomiłeś procedurę zmiany adresu e-mail. |
| 230 | 230 | Aby zatwierdzić nowy adres, wystarczy wejść pod podany niżej link, |
@@ -232,315 +232,315 @@ discard block |
||
| 232 | 232 | |
| 233 | 233 | @url@ |
| 234 | 234 | ', |
| 235 | - 'form_deja_inscrit' => 'Jesteś już zarejestrowany.', |
|
| 236 | - 'form_email_non_valide' => 'Twój adres e-mail nie jest prawidłowy.', |
|
| 237 | - 'form_forum_access_refuse' => 'Nie masz już dostępu do tej strony.', |
|
| 238 | - 'form_forum_bonjour' => 'Witaj @nom@,', |
|
| 239 | - 'form_forum_confirmer_email' => 'Aby zatwierdzić Twój adres e-mail, kliknij w ten link: @url_confirm@', |
|
| 240 | - 'form_forum_email_deja_enregistre' => 'Ten adres e-mail jest już zarejestrowany, wskutek czego nie możesz używać swojego zwykłego hasła.', |
|
| 241 | - 'form_forum_identifiant_mail' => 'Twój nowy identyfikator został właśnie wysłany do Ciebie e-mailem.', |
|
| 242 | - 'form_forum_identifiants' => 'Osobista identyfikacja', |
|
| 243 | - 'form_forum_indiquer_nom_email' => 'Wpisz tutaj swoje nazwisko i adres e-mail. Wkrótce otrzymasz e-mailem swój osobisty identyfikator.', |
|
| 244 | - 'form_forum_login' => 'login:', |
|
| 245 | - 'form_forum_message_auto' => '(to jest wiadomość automatyczna)', |
|
| 246 | - 'form_forum_pass' => 'hasło:', |
|
| 247 | - 'form_forum_probleme_mail' => 'Problem z pocztą: Twój identyfikator nie może zostać wysłany.', |
|
| 248 | - 'form_forum_voici1' => 'Oto Twóje dane, które pozwolą Ci wziąć udział w rozwoju serwisu |
|
| 235 | + 'form_deja_inscrit' => 'Jesteś już zarejestrowany.', |
|
| 236 | + 'form_email_non_valide' => 'Twój adres e-mail nie jest prawidłowy.', |
|
| 237 | + 'form_forum_access_refuse' => 'Nie masz już dostępu do tej strony.', |
|
| 238 | + 'form_forum_bonjour' => 'Witaj @nom@,', |
|
| 239 | + 'form_forum_confirmer_email' => 'Aby zatwierdzić Twój adres e-mail, kliknij w ten link: @url_confirm@', |
|
| 240 | + 'form_forum_email_deja_enregistre' => 'Ten adres e-mail jest już zarejestrowany, wskutek czego nie możesz używać swojego zwykłego hasła.', |
|
| 241 | + 'form_forum_identifiant_mail' => 'Twój nowy identyfikator został właśnie wysłany do Ciebie e-mailem.', |
|
| 242 | + 'form_forum_identifiants' => 'Osobista identyfikacja', |
|
| 243 | + 'form_forum_indiquer_nom_email' => 'Wpisz tutaj swoje nazwisko i adres e-mail. Wkrótce otrzymasz e-mailem swój osobisty identyfikator.', |
|
| 244 | + 'form_forum_login' => 'login:', |
|
| 245 | + 'form_forum_message_auto' => '(to jest wiadomość automatyczna)', |
|
| 246 | + 'form_forum_pass' => 'hasło:', |
|
| 247 | + 'form_forum_probleme_mail' => 'Problem z pocztą: Twój identyfikator nie może zostać wysłany.', |
|
| 248 | + 'form_forum_voici1' => 'Oto Twóje dane, które pozwolą Ci wziąć udział w rozwoju serwisu |
|
| 249 | 249 | "@nom_site_spip@" (@adresse_site@):', |
| 250 | - 'form_forum_voici2' => 'Oto Twój identyfikator do proponowania artykułów w |
|
| 250 | + 'form_forum_voici2' => 'Oto Twój identyfikator do proponowania artykułów w |
|
| 251 | 251 | serwisie "@nom_site_spip@" (@adresse_login@):', |
| 252 | - 'form_indiquer_email' => 'Proszę wpisać swój adres e-mail.', |
|
| 253 | - 'form_indiquer_nom' => 'Proszę wpisać swoje nazwisko.', |
|
| 254 | - 'form_indiquer_nom_site' => 'Proszę wpisać nazwę swoich stron\\y.', |
|
| 255 | - 'form_pet_deja_enregistre' => 'Ta strona jest już zarejestrowana', |
|
| 256 | - 'form_pet_signature_pasprise' => 'Twój podpis został zlekceważony.', |
|
| 257 | - 'form_prop_confirmer_envoi' => 'Potwierdź wysłanie', |
|
| 258 | - 'form_prop_description' => 'Opis/komentarz', |
|
| 259 | - 'form_prop_enregistre' => 'Twoja propozycja została zapisana, pojawi się online po jej zatwierdzeniu przez administratora tej strony.', |
|
| 260 | - 'form_prop_envoyer' => 'Wyślij wiadomość', |
|
| 261 | - 'form_prop_indiquer_email' => 'Proszę wpisać prawidłowy adres e-mail', |
|
| 262 | - 'form_prop_indiquer_nom_site' => 'Proszę wpisać nazwę strony.', |
|
| 263 | - 'form_prop_indiquer_sujet' => 'Proszę wpisać temat', |
|
| 264 | - 'form_prop_message_envoye' => 'Wiadomość wysłana', |
|
| 265 | - 'form_prop_non_enregistre' => 'Twoja propozycja nie została zapisana.', |
|
| 266 | - 'form_prop_sujet' => 'Temat', |
|
| 267 | - 'form_prop_url_site' => 'URL stron\\y', # MODIF |
|
| 268 | - 'forum_non_inscrit' => 'Nie jesteś zarejestrowany, lub adres bądź hasło są nieprawidłowe.', |
|
| 269 | - 'forum_par_auteur' => 'wg @auteur@', |
|
| 270 | - 'forum_titre_erreur' => 'Błąd...', |
|
| 252 | + 'form_indiquer_email' => 'Proszę wpisać swój adres e-mail.', |
|
| 253 | + 'form_indiquer_nom' => 'Proszę wpisać swoje nazwisko.', |
|
| 254 | + 'form_indiquer_nom_site' => 'Proszę wpisać nazwę swoich stron\\y.', |
|
| 255 | + 'form_pet_deja_enregistre' => 'Ta strona jest już zarejestrowana', |
|
| 256 | + 'form_pet_signature_pasprise' => 'Twój podpis został zlekceważony.', |
|
| 257 | + 'form_prop_confirmer_envoi' => 'Potwierdź wysłanie', |
|
| 258 | + 'form_prop_description' => 'Opis/komentarz', |
|
| 259 | + 'form_prop_enregistre' => 'Twoja propozycja została zapisana, pojawi się online po jej zatwierdzeniu przez administratora tej strony.', |
|
| 260 | + 'form_prop_envoyer' => 'Wyślij wiadomość', |
|
| 261 | + 'form_prop_indiquer_email' => 'Proszę wpisać prawidłowy adres e-mail', |
|
| 262 | + 'form_prop_indiquer_nom_site' => 'Proszę wpisać nazwę strony.', |
|
| 263 | + 'form_prop_indiquer_sujet' => 'Proszę wpisać temat', |
|
| 264 | + 'form_prop_message_envoye' => 'Wiadomość wysłana', |
|
| 265 | + 'form_prop_non_enregistre' => 'Twoja propozycja nie została zapisana.', |
|
| 266 | + 'form_prop_sujet' => 'Temat', |
|
| 267 | + 'form_prop_url_site' => 'URL stron\\y', # MODIF |
|
| 268 | + 'forum_non_inscrit' => 'Nie jesteś zarejestrowany, lub adres bądź hasło są nieprawidłowe.', |
|
| 269 | + 'forum_par_auteur' => 'wg @auteur@', |
|
| 270 | + 'forum_titre_erreur' => 'Błąd...', |
|
| 271 | 271 | |
| 272 | - // I |
|
| 273 | - 'ical_texte_rss_articles' => 'Plik "backend" artykułów tej strony znajduje się pod adresem:', |
|
| 274 | - 'ical_texte_rss_articles2' => 'Możesz również otrzymać pliki "backend" dla artykułów dla każdego z działów strony:', |
|
| 275 | - 'ical_texte_rss_breves' => 'Istnieje także plik zawierający wszystkie newsy opublikowane na stronie. Precyzując numer działu, otrzymasz newsy opublikowane w tym dziale.', |
|
| 276 | - 'icone_a_suivre' => 'Aktualności', |
|
| 277 | - 'icone_admin_site' => 'Administracja strony', |
|
| 278 | - 'icone_agenda' => 'Kalendarz', |
|
| 279 | - 'icone_aide_ligne' => 'Pomoc', |
|
| 280 | - 'icone_articles' => 'Artykuły', |
|
| 281 | - 'icone_auteurs' => 'Autorzy', |
|
| 282 | - 'icone_brouteur' => 'Menu podręczne', |
|
| 283 | - 'icone_configuration_site' => 'Konfiguracja', |
|
| 284 | - 'icone_configurer_site' => 'Konfiguruj swoją stronę', |
|
| 285 | - 'icone_creer_nouvel_auteur' => 'Utwórz nowego autora', |
|
| 286 | - 'icone_creer_rubrique' => 'Utwórz dział', |
|
| 287 | - 'icone_creer_sous_rubrique' => 'Utwórz poddział', |
|
| 288 | - 'icone_deconnecter' => 'Rozłącz', |
|
| 289 | - 'icone_discussions' => 'Dyskusje', |
|
| 290 | - 'icone_doc_rubrique' => 'Załączniki', |
|
| 291 | - 'icone_ecrire_article' => 'Napisz nowy artykuł', |
|
| 292 | - 'icone_edition_site' => 'Edycja', |
|
| 293 | - 'icone_gestion_langues' => 'Zarządzanie językami', |
|
| 294 | - 'icone_informations_personnelles' => 'Informacje osobiste', |
|
| 295 | - 'icone_interface_complet' => 'cały interfejs', |
|
| 296 | - 'icone_interface_simple' => 'Uproszczony interfejs', |
|
| 297 | - 'icone_maintenance_site' => 'Administracja stroną', |
|
| 298 | - 'icone_messagerie_personnelle' => 'Wiadomości prywatne', |
|
| 299 | - 'icone_repartition_debut' => 'Pokaż dystrybucję od początku', |
|
| 300 | - 'icone_rubriques' => 'Działy', |
|
| 301 | - 'icone_sauver_site' => 'Backup strony', |
|
| 302 | - 'icone_site_entier' => 'Cała strona', |
|
| 303 | - 'icone_sites_references' => 'Zlinkowane strony', |
|
| 304 | - 'icone_statistiques' => 'Statystyki strony', |
|
| 305 | - 'icone_suivi_activite' => 'Prace redakcyjne', |
|
| 306 | - 'icone_suivi_actualite' => 'Rozwój strony', |
|
| 307 | - 'icone_suivi_pettions' => 'Śledź/zarządzaj ogłoszeniami', |
|
| 308 | - 'icone_suivi_revisions' => 'Zmiany artykułów', |
|
| 309 | - 'icone_supprimer_document' => 'Usuń ten dokument', |
|
| 310 | - 'icone_supprimer_image' => 'Usuń ten obrazek', |
|
| 311 | - 'icone_tous_articles' => 'Wszystkie Twoje artykuły', |
|
| 312 | - 'icone_tous_auteur' => 'Wszyscy autorzy', |
|
| 313 | - 'icone_tous_visiteur' => 'Wszyscy odwiedzający', |
|
| 314 | - 'icone_visiter_site' => 'Przejdź do Twojego serwisu', |
|
| 315 | - 'icone_voir_en_ligne' => 'Obejrzyj online', |
|
| 316 | - 'img_indisponible' => 'obrazek niedostępny', |
|
| 317 | - 'impossible' => 'niemożliwe', |
|
| 318 | - 'info_a_suivre' => 'KONTYNUUJ »', |
|
| 319 | - 'info_acces_interdit' => 'Dostęp zabroniony', |
|
| 320 | - 'info_acces_refuse' => 'Brak dostępu', |
|
| 321 | - 'info_action' => 'Akcja: @action@', |
|
| 322 | - 'info_administrer_rubriques' => 'Możesz zarządzać tą działami i jej poddziałami', |
|
| 323 | - 'info_adresse_non_indiquee' => 'Nie podałeś adresu testowego!', |
|
| 324 | - 'info_aide' => 'POMOC:', |
|
| 325 | - 'info_ajouter_mot' => 'Dodaj to słowo kluczowe', |
|
| 326 | - 'info_annonce' => 'ZAWIADOMIENIE', |
|
| 327 | - 'info_annonces_generales' => 'Ogólne ogłoszenia:', |
|
| 328 | - 'info_article_propose' => 'Zaproponowany artykuł', |
|
| 329 | - 'info_article_publie' => 'Artykuł opublikowany', |
|
| 330 | - 'info_article_redaction' => 'Artykuł w trakcie tworzenia', |
|
| 331 | - 'info_article_refuse' => 'Artykuł odrzucony', |
|
| 332 | - 'info_article_supprime' => 'Artykuł usunięty', |
|
| 333 | - 'info_articles' => 'Artykuły', |
|
| 334 | - 'info_articles_a_valider' => 'Artykuły do zatwierdzenia', |
|
| 335 | - 'info_articles_nb' => '@nb@ artykułów', |
|
| 336 | - 'info_articles_proposes' => 'Zaproponowane artykuły', |
|
| 337 | - 'info_articles_un' => '1 artykuł', |
|
| 338 | - 'info_auteurs_nombre' => 'autor(zy):', |
|
| 339 | - 'info_authentification_ftp' => 'Uwierzytelnienie (poprzez FTP).', |
|
| 340 | - 'info_breves_2' => 'newsy', |
|
| 341 | - 'info_breves_nb' => '@nb@ newsów', |
|
| 342 | - 'info_connexion_refusee' => 'Brak połączenia', |
|
| 343 | - 'info_contact_developpeur' => 'Proszę skontaktować się z deweloperem.', |
|
| 344 | - 'info_contenance' => 'Ta strona zawiera:', |
|
| 345 | - 'info_contribution' => 'wpisy na forum', # MODIF |
|
| 346 | - 'info_copyright' => '@spip@ - darmowe oprogramowanie dystrybuowane w oparciu o licencję @lien_gpl@.', |
|
| 347 | - 'info_copyright_doc' => 'Więcej informacji na stronie <a href="@spipnet@">http://www.spip.net</a>.', # MODIF |
|
| 348 | - 'info_copyright_gpl' => 'na licencji GPL', |
|
| 349 | - 'info_cours_edition' => 'Twoje artykuły w trakcie redagowania', # MODIF |
|
| 350 | - 'info_creer_repertoire' => 'Utwórz plik lub katalog o nazwie:', |
|
| 351 | - 'info_creer_repertoire_2' => 'w podkatalogu <b>@repertoire@</b>, a następnie:', |
|
| 352 | - 'info_creer_vignette' => 'generowanie miniaturki', |
|
| 353 | - 'info_deplier' => 'Rozwiń', |
|
| 354 | - 'info_descriptif_nombre' => 'opis(y):', |
|
| 355 | - 'info_description' => 'Opis:', |
|
| 356 | - 'info_description_2' => 'Opis:', |
|
| 357 | - 'info_dimension' => 'Rozmiar:', |
|
| 358 | - 'info_ecire_message_prive' => 'Napisz prywatną wiadomość', |
|
| 359 | - 'info_email_invalide' => 'Nieprawidłowy adres e-mail.', |
|
| 360 | - 'info_en_cours_validation' => 'Twoje artykuły są w trakcie redagowania', |
|
| 361 | - 'info_en_ligne' => 'Teraz online:', |
|
| 362 | - 'info_envoyer_message_prive' => 'Wyślij prywatną wiadomość do tego autora', |
|
| 363 | - 'info_erreur_requete' => 'Błąd zapytania :', |
|
| 364 | - 'info_erreur_squelette2' => 'Żaden szkielet <b>@fichier@</b> nie jest dostępny ...', |
|
| 365 | - 'info_erreur_systeme' => 'Błąd systemu (errno @errsys@)', |
|
| 366 | - 'info_erreur_systeme2' => 'Albo dysk twardy jest pełny albo uszkodzona jest baza danych.<br /> |
|
| 272 | + // I |
|
| 273 | + 'ical_texte_rss_articles' => 'Plik "backend" artykułów tej strony znajduje się pod adresem:', |
|
| 274 | + 'ical_texte_rss_articles2' => 'Możesz również otrzymać pliki "backend" dla artykułów dla każdego z działów strony:', |
|
| 275 | + 'ical_texte_rss_breves' => 'Istnieje także plik zawierający wszystkie newsy opublikowane na stronie. Precyzując numer działu, otrzymasz newsy opublikowane w tym dziale.', |
|
| 276 | + 'icone_a_suivre' => 'Aktualności', |
|
| 277 | + 'icone_admin_site' => 'Administracja strony', |
|
| 278 | + 'icone_agenda' => 'Kalendarz', |
|
| 279 | + 'icone_aide_ligne' => 'Pomoc', |
|
| 280 | + 'icone_articles' => 'Artykuły', |
|
| 281 | + 'icone_auteurs' => 'Autorzy', |
|
| 282 | + 'icone_brouteur' => 'Menu podręczne', |
|
| 283 | + 'icone_configuration_site' => 'Konfiguracja', |
|
| 284 | + 'icone_configurer_site' => 'Konfiguruj swoją stronę', |
|
| 285 | + 'icone_creer_nouvel_auteur' => 'Utwórz nowego autora', |
|
| 286 | + 'icone_creer_rubrique' => 'Utwórz dział', |
|
| 287 | + 'icone_creer_sous_rubrique' => 'Utwórz poddział', |
|
| 288 | + 'icone_deconnecter' => 'Rozłącz', |
|
| 289 | + 'icone_discussions' => 'Dyskusje', |
|
| 290 | + 'icone_doc_rubrique' => 'Załączniki', |
|
| 291 | + 'icone_ecrire_article' => 'Napisz nowy artykuł', |
|
| 292 | + 'icone_edition_site' => 'Edycja', |
|
| 293 | + 'icone_gestion_langues' => 'Zarządzanie językami', |
|
| 294 | + 'icone_informations_personnelles' => 'Informacje osobiste', |
|
| 295 | + 'icone_interface_complet' => 'cały interfejs', |
|
| 296 | + 'icone_interface_simple' => 'Uproszczony interfejs', |
|
| 297 | + 'icone_maintenance_site' => 'Administracja stroną', |
|
| 298 | + 'icone_messagerie_personnelle' => 'Wiadomości prywatne', |
|
| 299 | + 'icone_repartition_debut' => 'Pokaż dystrybucję od początku', |
|
| 300 | + 'icone_rubriques' => 'Działy', |
|
| 301 | + 'icone_sauver_site' => 'Backup strony', |
|
| 302 | + 'icone_site_entier' => 'Cała strona', |
|
| 303 | + 'icone_sites_references' => 'Zlinkowane strony', |
|
| 304 | + 'icone_statistiques' => 'Statystyki strony', |
|
| 305 | + 'icone_suivi_activite' => 'Prace redakcyjne', |
|
| 306 | + 'icone_suivi_actualite' => 'Rozwój strony', |
|
| 307 | + 'icone_suivi_pettions' => 'Śledź/zarządzaj ogłoszeniami', |
|
| 308 | + 'icone_suivi_revisions' => 'Zmiany artykułów', |
|
| 309 | + 'icone_supprimer_document' => 'Usuń ten dokument', |
|
| 310 | + 'icone_supprimer_image' => 'Usuń ten obrazek', |
|
| 311 | + 'icone_tous_articles' => 'Wszystkie Twoje artykuły', |
|
| 312 | + 'icone_tous_auteur' => 'Wszyscy autorzy', |
|
| 313 | + 'icone_tous_visiteur' => 'Wszyscy odwiedzający', |
|
| 314 | + 'icone_visiter_site' => 'Przejdź do Twojego serwisu', |
|
| 315 | + 'icone_voir_en_ligne' => 'Obejrzyj online', |
|
| 316 | + 'img_indisponible' => 'obrazek niedostępny', |
|
| 317 | + 'impossible' => 'niemożliwe', |
|
| 318 | + 'info_a_suivre' => 'KONTYNUUJ »', |
|
| 319 | + 'info_acces_interdit' => 'Dostęp zabroniony', |
|
| 320 | + 'info_acces_refuse' => 'Brak dostępu', |
|
| 321 | + 'info_action' => 'Akcja: @action@', |
|
| 322 | + 'info_administrer_rubriques' => 'Możesz zarządzać tą działami i jej poddziałami', |
|
| 323 | + 'info_adresse_non_indiquee' => 'Nie podałeś adresu testowego!', |
|
| 324 | + 'info_aide' => 'POMOC:', |
|
| 325 | + 'info_ajouter_mot' => 'Dodaj to słowo kluczowe', |
|
| 326 | + 'info_annonce' => 'ZAWIADOMIENIE', |
|
| 327 | + 'info_annonces_generales' => 'Ogólne ogłoszenia:', |
|
| 328 | + 'info_article_propose' => 'Zaproponowany artykuł', |
|
| 329 | + 'info_article_publie' => 'Artykuł opublikowany', |
|
| 330 | + 'info_article_redaction' => 'Artykuł w trakcie tworzenia', |
|
| 331 | + 'info_article_refuse' => 'Artykuł odrzucony', |
|
| 332 | + 'info_article_supprime' => 'Artykuł usunięty', |
|
| 333 | + 'info_articles' => 'Artykuły', |
|
| 334 | + 'info_articles_a_valider' => 'Artykuły do zatwierdzenia', |
|
| 335 | + 'info_articles_nb' => '@nb@ artykułów', |
|
| 336 | + 'info_articles_proposes' => 'Zaproponowane artykuły', |
|
| 337 | + 'info_articles_un' => '1 artykuł', |
|
| 338 | + 'info_auteurs_nombre' => 'autor(zy):', |
|
| 339 | + 'info_authentification_ftp' => 'Uwierzytelnienie (poprzez FTP).', |
|
| 340 | + 'info_breves_2' => 'newsy', |
|
| 341 | + 'info_breves_nb' => '@nb@ newsów', |
|
| 342 | + 'info_connexion_refusee' => 'Brak połączenia', |
|
| 343 | + 'info_contact_developpeur' => 'Proszę skontaktować się z deweloperem.', |
|
| 344 | + 'info_contenance' => 'Ta strona zawiera:', |
|
| 345 | + 'info_contribution' => 'wpisy na forum', # MODIF |
|
| 346 | + 'info_copyright' => '@spip@ - darmowe oprogramowanie dystrybuowane w oparciu o licencję @lien_gpl@.', |
|
| 347 | + 'info_copyright_doc' => 'Więcej informacji na stronie <a href="@spipnet@">http://www.spip.net</a>.', # MODIF |
|
| 348 | + 'info_copyright_gpl' => 'na licencji GPL', |
|
| 349 | + 'info_cours_edition' => 'Twoje artykuły w trakcie redagowania', # MODIF |
|
| 350 | + 'info_creer_repertoire' => 'Utwórz plik lub katalog o nazwie:', |
|
| 351 | + 'info_creer_repertoire_2' => 'w podkatalogu <b>@repertoire@</b>, a następnie:', |
|
| 352 | + 'info_creer_vignette' => 'generowanie miniaturki', |
|
| 353 | + 'info_deplier' => 'Rozwiń', |
|
| 354 | + 'info_descriptif_nombre' => 'opis(y):', |
|
| 355 | + 'info_description' => 'Opis:', |
|
| 356 | + 'info_description_2' => 'Opis:', |
|
| 357 | + 'info_dimension' => 'Rozmiar:', |
|
| 358 | + 'info_ecire_message_prive' => 'Napisz prywatną wiadomość', |
|
| 359 | + 'info_email_invalide' => 'Nieprawidłowy adres e-mail.', |
|
| 360 | + 'info_en_cours_validation' => 'Twoje artykuły są w trakcie redagowania', |
|
| 361 | + 'info_en_ligne' => 'Teraz online:', |
|
| 362 | + 'info_envoyer_message_prive' => 'Wyślij prywatną wiadomość do tego autora', |
|
| 363 | + 'info_erreur_requete' => 'Błąd zapytania :', |
|
| 364 | + 'info_erreur_squelette2' => 'Żaden szkielet <b>@fichier@</b> nie jest dostępny ...', |
|
| 365 | + 'info_erreur_systeme' => 'Błąd systemu (errno @errsys@)', |
|
| 366 | + 'info_erreur_systeme2' => 'Albo dysk twardy jest pełny albo uszkodzona jest baza danych.<br /> |
|
| 367 | 367 | <span style="color:red;">Spróbuj <a href=\'@script@\'>naprawić bazę danych</a>, lub skontaktuj się z administratorem serwera.</span>', |
| 368 | - 'info_fini' => 'Zakończono!', |
|
| 369 | - 'info_format_image' => 'Formaty plików obrazków, które mogą być używane do tworzenia minitaturek : @gd_formats@.', |
|
| 370 | - 'info_format_non_defini' => 'format niezdefiniowany', |
|
| 371 | - 'info_grand_ecran' => 'Cały ekran', |
|
| 372 | - 'info_image_aide' => 'POMOC', |
|
| 373 | - 'info_image_process_titre' => 'Sposób generowania miniaturek', |
|
| 374 | - 'info_impossible_lire_page' => '<b>Błąd !</b> Nie można odczytać strony<tt><html>@test_proxy@</html></tt> za pośrednictwem proxy<tt>', |
|
| 375 | - 'info_installation_systeme_publication' => 'Instalacja systemu publikacji...', |
|
| 376 | - 'info_installer_documents' => 'Możesz automatycznie dodawać wszystkie dokumenty znajdujące się w folderze @upload@.', |
|
| 377 | - 'info_installer_ftp' => 'Jako administrator możesz umieszczać (przez FTP) pliki w folderze @upload@, aby później wybierać je bezpośrednio stąd.', |
|
| 378 | - 'info_installer_images' => 'Możesz umieszczać obrazki w formatach JPEG, GIF i PNG.', |
|
| 379 | - 'info_installer_images_dossier' => 'Umieść obrazki w folderze @upload@ aby móc je stąd wybierać.', |
|
| 380 | - 'info_interface_complete' => 'cały interfejs', |
|
| 381 | - 'info_interface_simple' => 'Uproszczony interfejs', |
|
| 382 | - 'info_joindre_document_article' => 'Do tego artykułu możesz załączać dokumenty typu', |
|
| 383 | - 'info_joindre_document_rubrique' => 'Do tego działu możesz dodawać dokumenty typu', |
|
| 384 | - 'info_joindre_documents_article' => 'Do swojego atykułu możesz załączać dokumenty typu:', |
|
| 385 | - 'info_l_article' => 'artykuł', |
|
| 386 | - 'info_la_breve' => 'news', |
|
| 387 | - 'info_la_rubrique' => 'dział', |
|
| 388 | - 'info_langue_principale' => 'Język głównej strony', |
|
| 389 | - 'info_largeur_vignette' => '@largeur_vignette@ x @hauteur_vignette@ pikseli', |
|
| 390 | - 'info_les_auteurs_1' => 'wg @les_auteurs@', |
|
| 391 | - 'info_logo_format_interdit' => 'Dla logo dozwolone są następujące formaty: @formats@.', |
|
| 392 | - 'info_logo_max_poids' => 'Logo może mieć maksymalnie @maxi@ (teraz ma @actuel@).', |
|
| 393 | - 'info_mail_fournisseur' => '[email protected]', |
|
| 394 | - 'info_message_2' => 'WIADOMOŚĆ', |
|
| 395 | - 'info_message_supprime' => 'WIADOMOŚĆ USUNIĘTA', |
|
| 396 | - 'info_mise_en_ligne' => 'Data publikacji online:', |
|
| 397 | - 'info_modification_parametres_securite' => 'modyfikacja parametrów bezpieczeństwa', |
|
| 398 | - 'info_mois_courant' => 'Bieżący miesiąc:', |
|
| 399 | - 'info_mot_cle_ajoute' => 'Następujące słowo kluczowe dodane zostało do', |
|
| 400 | - 'info_multi_herit' => 'Język domyślny', |
|
| 401 | - 'info_multi_langues_soulignees' => '<u>Podkreślonie języka</u> świadczy o kompletnym przekładzie wszystkich tekstów interfejsu. Jeśli wybierzesz jeden z tych języków, elementy serwisu (daty, formularze) zostaną automatycznie przetłumaczone. W przypadku języków nie-podkreślonych, elementy te ukażą się w głównym języku serwisu.', # MODIF |
|
| 402 | - 'info_multilinguisme' => 'Wielojęzyczny', |
|
| 403 | - 'info_nom_non_utilisateurs_connectes' => 'Twoja nazwa nie pojawia się na liście podłączonych użytkowników.', |
|
| 404 | - 'info_nom_utilisateurs_connectes' => 'Twoje imię występuje na liście podłączonych użytkowników.', |
|
| 405 | - 'info_nombre_en_ligne' => 'Teraz online:', |
|
| 406 | - 'info_non_resultat' => 'Żadnych wyników dla "@cherche_mot@"', |
|
| 407 | - 'info_non_utilisation_messagerie' => 'Nie korzystasz z wewnętrznej komunikacji tego serwisu.', |
|
| 408 | - 'info_nouveau_message' => 'MASZ NOWĄ WIADOMOŚĆ', |
|
| 409 | - 'info_nouveaux_messages' => 'MASZ @total_messages@ NOWYCH WIADOMOŚCI', |
|
| 410 | - 'info_numero_abbreviation' => 'N° ', |
|
| 411 | - 'info_pense_bete' => 'NOTATKA', |
|
| 412 | - 'info_petit_ecran' => 'Małe okno', |
|
| 413 | - 'info_pixels' => 'piksele', |
|
| 414 | - 'info_plusieurs_mots_trouves' => 'Kilkanaście słów kluczowych zostało znalezionych dla "@cherche_mot@":', |
|
| 415 | - 'info_portfolio_automatique' => 'Automatyczne portfolio:', |
|
| 416 | - 'info_premier_resultat' => '[@debut_limit@ pierwsze wyniki z @total@]', |
|
| 417 | - 'info_premier_resultat_sur' => '[@debut_limit@ pierwsze wyniki z @total@]', |
|
| 418 | - 'info_propose_1' => '[@nom_site_spip@] Zatwierdza: @titre@', |
|
| 419 | - 'info_propose_2' => 'Artykuły zatwierdzone |
|
| 368 | + 'info_fini' => 'Zakończono!', |
|
| 369 | + 'info_format_image' => 'Formaty plików obrazków, które mogą być używane do tworzenia minitaturek : @gd_formats@.', |
|
| 370 | + 'info_format_non_defini' => 'format niezdefiniowany', |
|
| 371 | + 'info_grand_ecran' => 'Cały ekran', |
|
| 372 | + 'info_image_aide' => 'POMOC', |
|
| 373 | + 'info_image_process_titre' => 'Sposób generowania miniaturek', |
|
| 374 | + 'info_impossible_lire_page' => '<b>Błąd !</b> Nie można odczytać strony<tt><html>@test_proxy@</html></tt> za pośrednictwem proxy<tt>', |
|
| 375 | + 'info_installation_systeme_publication' => 'Instalacja systemu publikacji...', |
|
| 376 | + 'info_installer_documents' => 'Możesz automatycznie dodawać wszystkie dokumenty znajdujące się w folderze @upload@.', |
|
| 377 | + 'info_installer_ftp' => 'Jako administrator możesz umieszczać (przez FTP) pliki w folderze @upload@, aby później wybierać je bezpośrednio stąd.', |
|
| 378 | + 'info_installer_images' => 'Możesz umieszczać obrazki w formatach JPEG, GIF i PNG.', |
|
| 379 | + 'info_installer_images_dossier' => 'Umieść obrazki w folderze @upload@ aby móc je stąd wybierać.', |
|
| 380 | + 'info_interface_complete' => 'cały interfejs', |
|
| 381 | + 'info_interface_simple' => 'Uproszczony interfejs', |
|
| 382 | + 'info_joindre_document_article' => 'Do tego artykułu możesz załączać dokumenty typu', |
|
| 383 | + 'info_joindre_document_rubrique' => 'Do tego działu możesz dodawać dokumenty typu', |
|
| 384 | + 'info_joindre_documents_article' => 'Do swojego atykułu możesz załączać dokumenty typu:', |
|
| 385 | + 'info_l_article' => 'artykuł', |
|
| 386 | + 'info_la_breve' => 'news', |
|
| 387 | + 'info_la_rubrique' => 'dział', |
|
| 388 | + 'info_langue_principale' => 'Język głównej strony', |
|
| 389 | + 'info_largeur_vignette' => '@largeur_vignette@ x @hauteur_vignette@ pikseli', |
|
| 390 | + 'info_les_auteurs_1' => 'wg @les_auteurs@', |
|
| 391 | + 'info_logo_format_interdit' => 'Dla logo dozwolone są następujące formaty: @formats@.', |
|
| 392 | + 'info_logo_max_poids' => 'Logo może mieć maksymalnie @maxi@ (teraz ma @actuel@).', |
|
| 393 | + 'info_mail_fournisseur' => '[email protected]', |
|
| 394 | + 'info_message_2' => 'WIADOMOŚĆ', |
|
| 395 | + 'info_message_supprime' => 'WIADOMOŚĆ USUNIĘTA', |
|
| 396 | + 'info_mise_en_ligne' => 'Data publikacji online:', |
|
| 397 | + 'info_modification_parametres_securite' => 'modyfikacja parametrów bezpieczeństwa', |
|
| 398 | + 'info_mois_courant' => 'Bieżący miesiąc:', |
|
| 399 | + 'info_mot_cle_ajoute' => 'Następujące słowo kluczowe dodane zostało do', |
|
| 400 | + 'info_multi_herit' => 'Język domyślny', |
|
| 401 | + 'info_multi_langues_soulignees' => '<u>Podkreślonie języka</u> świadczy o kompletnym przekładzie wszystkich tekstów interfejsu. Jeśli wybierzesz jeden z tych języków, elementy serwisu (daty, formularze) zostaną automatycznie przetłumaczone. W przypadku języków nie-podkreślonych, elementy te ukażą się w głównym języku serwisu.', # MODIF |
|
| 402 | + 'info_multilinguisme' => 'Wielojęzyczny', |
|
| 403 | + 'info_nom_non_utilisateurs_connectes' => 'Twoja nazwa nie pojawia się na liście podłączonych użytkowników.', |
|
| 404 | + 'info_nom_utilisateurs_connectes' => 'Twoje imię występuje na liście podłączonych użytkowników.', |
|
| 405 | + 'info_nombre_en_ligne' => 'Teraz online:', |
|
| 406 | + 'info_non_resultat' => 'Żadnych wyników dla "@cherche_mot@"', |
|
| 407 | + 'info_non_utilisation_messagerie' => 'Nie korzystasz z wewnętrznej komunikacji tego serwisu.', |
|
| 408 | + 'info_nouveau_message' => 'MASZ NOWĄ WIADOMOŚĆ', |
|
| 409 | + 'info_nouveaux_messages' => 'MASZ @total_messages@ NOWYCH WIADOMOŚCI', |
|
| 410 | + 'info_numero_abbreviation' => 'N° ', |
|
| 411 | + 'info_pense_bete' => 'NOTATKA', |
|
| 412 | + 'info_petit_ecran' => 'Małe okno', |
|
| 413 | + 'info_pixels' => 'piksele', |
|
| 414 | + 'info_plusieurs_mots_trouves' => 'Kilkanaście słów kluczowych zostało znalezionych dla "@cherche_mot@":', |
|
| 415 | + 'info_portfolio_automatique' => 'Automatyczne portfolio:', |
|
| 416 | + 'info_premier_resultat' => '[@debut_limit@ pierwsze wyniki z @total@]', |
|
| 417 | + 'info_premier_resultat_sur' => '[@debut_limit@ pierwsze wyniki z @total@]', |
|
| 418 | + 'info_propose_1' => '[@nom_site_spip@] Zatwierdza: @titre@', |
|
| 419 | + 'info_propose_2' => 'Artykuły zatwierdzone |
|
| 420 | 420 | -----------------', |
| 421 | - 'info_propose_3' => 'Artykuł "@titre@" został zatwierdzony do publikacji.', |
|
| 422 | - 'info_propose_4' => 'Zostałeś zaproszony do przeglądu i wyrażenia swojej opinii', |
|
| 423 | - 'info_propose_5' => 'w forum, które jest przyporządkowane. Jest ono dostępne pod adresem :', |
|
| 424 | - 'info_publie_01' => 'Artykuł "@titre@" został zatwierdzony przez @connect_nom@.', |
|
| 425 | - 'info_publie_1' => '[@nom_site_spip@] PUBLIKUJE: @titre@', |
|
| 426 | - 'info_publie_2' => 'Artykuł opublikowany |
|
| 421 | + 'info_propose_3' => 'Artykuł "@titre@" został zatwierdzony do publikacji.', |
|
| 422 | + 'info_propose_4' => 'Zostałeś zaproszony do przeglądu i wyrażenia swojej opinii', |
|
| 423 | + 'info_propose_5' => 'w forum, które jest przyporządkowane. Jest ono dostępne pod adresem :', |
|
| 424 | + 'info_publie_01' => 'Artykuł "@titre@" został zatwierdzony przez @connect_nom@.', |
|
| 425 | + 'info_publie_1' => '[@nom_site_spip@] PUBLIKUJE: @titre@', |
|
| 426 | + 'info_publie_2' => 'Artykuł opublikowany |
|
| 427 | 427 | -----------------', |
| 428 | - 'info_rechercher' => 'Szukaj', |
|
| 429 | - 'info_rechercher_02' => 'Szukaj:', |
|
| 430 | - 'info_remplacer_vignette' => 'Zamień domyślną miniaturkę na wybrane przez ciebie logo :', |
|
| 431 | - 'info_sans_titre_2' => 'bez tytułu', |
|
| 432 | - 'info_selectionner_fichier' => 'Możesz wybrać plik z folderu @upload@', |
|
| 433 | - 'info_selectionner_fichier_2' => 'Wybierz plik:', |
|
| 434 | - 'info_supprimer_vignette' => 'usuń winietę', |
|
| 435 | - 'info_symbole_bleu' => 'Symbol <b>niebieski</b> oznacza <b>notatkę</b>: n.p. wiadomość do prywatnego użytku.', |
|
| 436 | - 'info_symbole_jaune' => 'Symbol <b>żółty</b> oznacza <b>zawiadomienie dla wszystkich redaktorów</b>: może być opublikowana przez wszystkich administratorów, i jest widoczna dla wszystkich redaktorów.', |
|
| 437 | - 'info_symbole_vert' => 'Symbol <b>zielony</b> oznacza <b>wiadomości wymieniane z innymi użytkownikami</b> strony.', |
|
| 438 | - 'info_telecharger_nouveau_logo' => 'Załaduj nowe logo:', |
|
| 439 | - 'info_telecharger_ordinateur' => 'Załaduj ze swojego komputera:', |
|
| 440 | - 'info_tous_resultats_enregistres' => '[wszystkie wyniki są zapisane]', |
|
| 441 | - 'info_tout_afficher' => 'Pokaż wszystko', |
|
| 442 | - 'info_travaux_texte' => 'Ten serwis nie jest jeszcze skonfigurowany. Zapraszamy później...', |
|
| 443 | - 'info_travaux_titre' => 'Strona w trakcie budowy', |
|
| 444 | - 'info_trop_resultat' => 'Zbyt dużo rezultatów "@cherche_mot@" ; spróbuj sprecyzować kryteria wyszukiwania.', |
|
| 445 | - 'info_utilisation_messagerie_interne' => 'Używasz wewnętrznej poczty w tym serwisie.', |
|
| 446 | - 'info_valider_lien' => 'zatwierdź ten link', |
|
| 447 | - 'info_verifier_image' => ', proszę się upewnić, czy obrazki zostały przesłane prawidłowo.', |
|
| 448 | - 'info_vignette_defaut' => 'Domyślna winieta', |
|
| 449 | - 'info_vignette_personnalisee' => 'Miniaturka spersonalizowana', |
|
| 450 | - 'info_visite' => 'odwiedziny:', |
|
| 451 | - 'info_vos_rendez_vous' => 'Twoje przyszłe spotkania', |
|
| 452 | - 'infos_vos_pense_bete' => 'Twoje notatki', # MODIF |
|
| 428 | + 'info_rechercher' => 'Szukaj', |
|
| 429 | + 'info_rechercher_02' => 'Szukaj:', |
|
| 430 | + 'info_remplacer_vignette' => 'Zamień domyślną miniaturkę na wybrane przez ciebie logo :', |
|
| 431 | + 'info_sans_titre_2' => 'bez tytułu', |
|
| 432 | + 'info_selectionner_fichier' => 'Możesz wybrać plik z folderu @upload@', |
|
| 433 | + 'info_selectionner_fichier_2' => 'Wybierz plik:', |
|
| 434 | + 'info_supprimer_vignette' => 'usuń winietę', |
|
| 435 | + 'info_symbole_bleu' => 'Symbol <b>niebieski</b> oznacza <b>notatkę</b>: n.p. wiadomość do prywatnego użytku.', |
|
| 436 | + 'info_symbole_jaune' => 'Symbol <b>żółty</b> oznacza <b>zawiadomienie dla wszystkich redaktorów</b>: może być opublikowana przez wszystkich administratorów, i jest widoczna dla wszystkich redaktorów.', |
|
| 437 | + 'info_symbole_vert' => 'Symbol <b>zielony</b> oznacza <b>wiadomości wymieniane z innymi użytkownikami</b> strony.', |
|
| 438 | + 'info_telecharger_nouveau_logo' => 'Załaduj nowe logo:', |
|
| 439 | + 'info_telecharger_ordinateur' => 'Załaduj ze swojego komputera:', |
|
| 440 | + 'info_tous_resultats_enregistres' => '[wszystkie wyniki są zapisane]', |
|
| 441 | + 'info_tout_afficher' => 'Pokaż wszystko', |
|
| 442 | + 'info_travaux_texte' => 'Ten serwis nie jest jeszcze skonfigurowany. Zapraszamy później...', |
|
| 443 | + 'info_travaux_titre' => 'Strona w trakcie budowy', |
|
| 444 | + 'info_trop_resultat' => 'Zbyt dużo rezultatów "@cherche_mot@" ; spróbuj sprecyzować kryteria wyszukiwania.', |
|
| 445 | + 'info_utilisation_messagerie_interne' => 'Używasz wewnętrznej poczty w tym serwisie.', |
|
| 446 | + 'info_valider_lien' => 'zatwierdź ten link', |
|
| 447 | + 'info_verifier_image' => ', proszę się upewnić, czy obrazki zostały przesłane prawidłowo.', |
|
| 448 | + 'info_vignette_defaut' => 'Domyślna winieta', |
|
| 449 | + 'info_vignette_personnalisee' => 'Miniaturka spersonalizowana', |
|
| 450 | + 'info_visite' => 'odwiedziny:', |
|
| 451 | + 'info_vos_rendez_vous' => 'Twoje przyszłe spotkania', |
|
| 452 | + 'infos_vos_pense_bete' => 'Twoje notatki', # MODIF |
|
| 453 | 453 | |
| 454 | - // L |
|
| 455 | - 'lien_afficher_icones_seuls' => 'Pokazuj tylko ikonki', |
|
| 456 | - 'lien_afficher_texte_icones' => 'POkazuj ikonki i tekst', |
|
| 457 | - 'lien_afficher_texte_seul' => 'Pokazuj tylko tekst', |
|
| 458 | - 'lien_liberer' => 'uwolnij', |
|
| 459 | - 'lien_liberer_tous' => 'uwolnij artykuły', # MODIF |
|
| 460 | - 'lien_nouvea_pense_bete' => 'NOWA NOTATKA', |
|
| 461 | - 'lien_nouveau_message' => 'NOWA WIADOMOŚĆ', |
|
| 462 | - 'lien_nouvelle_annonce' => 'NOWE ZAWIADOMIENIE', |
|
| 463 | - 'lien_petitions' => 'OGŁOSZENIE', |
|
| 464 | - 'lien_popularite' => 'popularność: @popularite@%', |
|
| 465 | - 'lien_racine_site' => 'RDZEŃ STRONY', |
|
| 466 | - 'lien_reessayer' => 'spróbuj ponownie', |
|
| 467 | - 'lien_repondre_message' => 'Odpowiedz na tę wiadomość', |
|
| 468 | - 'lien_supprimer' => 'usuń', |
|
| 469 | - 'lien_tout_afficher' => 'Pokaż wszystko', |
|
| 470 | - 'lien_visite_site' => 'odwiedź stronę', |
|
| 471 | - 'lien_visites' => '@visites@ odwiedzin', |
|
| 472 | - 'lien_voir_auteur' => 'Sprawdź autora', |
|
| 473 | - 'ligne' => 'Linia', |
|
| 474 | - 'login' => 'Połączenie', |
|
| 475 | - 'login_acces_prive' => 'dostęp do obszaru prywatnego', |
|
| 476 | - 'login_autre_identifiant' => 'zaloguj używając innego loginu', |
|
| 477 | - 'login_cookie_accepte' => 'Zmień ustawienia Twojej przeglądarki, aby je akceptowała (przynajmniej dla tej strony).', |
|
| 478 | - 'login_cookie_oblige' => 'Aby móc zalogować się bezpiecznie do tej strony, musicie zaakceptować cookies.', |
|
| 479 | - 'login_deconnexion_ok' => 'Rozłączanie zakończono.', |
|
| 480 | - 'login_erreur_pass' => 'Błąd hasła.', |
|
| 481 | - 'login_espace_prive' => 'obszar prywatny', |
|
| 482 | - 'login_identifiant_inconnu' => 'Login « @login@ » nieznany.', |
|
| 483 | - 'login_login' => 'Login:', |
|
| 484 | - 'login_login2' => 'Login (identyfikator) :', # MODIF |
|
| 485 | - 'login_login_pass_incorrect' => '(Zły login lub hasło).', |
|
| 486 | - 'login_motpasseoublie' => 'zapomniałeś hasła?', |
|
| 487 | - 'login_non_securise' => 'Uwaga ten formularz nie jest bezpieczny. |
|
| 454 | + // L |
|
| 455 | + 'lien_afficher_icones_seuls' => 'Pokazuj tylko ikonki', |
|
| 456 | + 'lien_afficher_texte_icones' => 'POkazuj ikonki i tekst', |
|
| 457 | + 'lien_afficher_texte_seul' => 'Pokazuj tylko tekst', |
|
| 458 | + 'lien_liberer' => 'uwolnij', |
|
| 459 | + 'lien_liberer_tous' => 'uwolnij artykuły', # MODIF |
|
| 460 | + 'lien_nouvea_pense_bete' => 'NOWA NOTATKA', |
|
| 461 | + 'lien_nouveau_message' => 'NOWA WIADOMOŚĆ', |
|
| 462 | + 'lien_nouvelle_annonce' => 'NOWE ZAWIADOMIENIE', |
|
| 463 | + 'lien_petitions' => 'OGŁOSZENIE', |
|
| 464 | + 'lien_popularite' => 'popularność: @popularite@%', |
|
| 465 | + 'lien_racine_site' => 'RDZEŃ STRONY', |
|
| 466 | + 'lien_reessayer' => 'spróbuj ponownie', |
|
| 467 | + 'lien_repondre_message' => 'Odpowiedz na tę wiadomość', |
|
| 468 | + 'lien_supprimer' => 'usuń', |
|
| 469 | + 'lien_tout_afficher' => 'Pokaż wszystko', |
|
| 470 | + 'lien_visite_site' => 'odwiedź stronę', |
|
| 471 | + 'lien_visites' => '@visites@ odwiedzin', |
|
| 472 | + 'lien_voir_auteur' => 'Sprawdź autora', |
|
| 473 | + 'ligne' => 'Linia', |
|
| 474 | + 'login' => 'Połączenie', |
|
| 475 | + 'login_acces_prive' => 'dostęp do obszaru prywatnego', |
|
| 476 | + 'login_autre_identifiant' => 'zaloguj używając innego loginu', |
|
| 477 | + 'login_cookie_accepte' => 'Zmień ustawienia Twojej przeglądarki, aby je akceptowała (przynajmniej dla tej strony).', |
|
| 478 | + 'login_cookie_oblige' => 'Aby móc zalogować się bezpiecznie do tej strony, musicie zaakceptować cookies.', |
|
| 479 | + 'login_deconnexion_ok' => 'Rozłączanie zakończono.', |
|
| 480 | + 'login_erreur_pass' => 'Błąd hasła.', |
|
| 481 | + 'login_espace_prive' => 'obszar prywatny', |
|
| 482 | + 'login_identifiant_inconnu' => 'Login « @login@ » nieznany.', |
|
| 483 | + 'login_login' => 'Login:', |
|
| 484 | + 'login_login2' => 'Login (identyfikator) :', # MODIF |
|
| 485 | + 'login_login_pass_incorrect' => '(Zły login lub hasło).', |
|
| 486 | + 'login_motpasseoublie' => 'zapomniałeś hasła?', |
|
| 487 | + 'login_non_securise' => 'Uwaga ten formularz nie jest bezpieczny. |
|
| 488 | 488 | Jeśli nie chcesz aby Twoje hasło zostało przechwycone w sieci |
| 489 | 489 | , włącz JavaScript w Twojej przeglądarce i', |
| 490 | - 'login_nouvelle_tentative' => 'Nowa próba', |
|
| 491 | - 'login_par_ici' => 'Jesteś zarejestrowany... tędy...', |
|
| 492 | - 'login_pass2' => 'Hasło:', |
|
| 493 | - 'login_preferez_refuser' => '<b>Jeśli wolisz nie korzystać z cookies</b>, jest inna (mniej bezpieczna) metoda do dyspozycji :', |
|
| 494 | - 'login_recharger' => 'przeładuj stronę', |
|
| 495 | - 'login_rester_identifie' => 'Pozostań zalogowany kilka dni', # MODIF |
|
| 496 | - 'login_retour_public' => 'Powrót do strony publicznej', |
|
| 497 | - 'login_retour_site' => 'Powrót do strony publicznej', |
|
| 498 | - 'login_retoursitepublic' => 'Powrót do strony publicznej', |
|
| 499 | - 'login_sinscrire' => 'rejestracja', # MODIF |
|
| 500 | - 'login_test_navigateur' => 'test przeglądarki/łącz ponownie', |
|
| 501 | - 'login_verifiez_navigateur' => '(Sprawdź czy Twoja przeglądarka nie zapamiętała hasła...)', |
|
| 490 | + 'login_nouvelle_tentative' => 'Nowa próba', |
|
| 491 | + 'login_par_ici' => 'Jesteś zarejestrowany... tędy...', |
|
| 492 | + 'login_pass2' => 'Hasło:', |
|
| 493 | + 'login_preferez_refuser' => '<b>Jeśli wolisz nie korzystać z cookies</b>, jest inna (mniej bezpieczna) metoda do dyspozycji :', |
|
| 494 | + 'login_recharger' => 'przeładuj stronę', |
|
| 495 | + 'login_rester_identifie' => 'Pozostań zalogowany kilka dni', # MODIF |
|
| 496 | + 'login_retour_public' => 'Powrót do strony publicznej', |
|
| 497 | + 'login_retour_site' => 'Powrót do strony publicznej', |
|
| 498 | + 'login_retoursitepublic' => 'Powrót do strony publicznej', |
|
| 499 | + 'login_sinscrire' => 'rejestracja', # MODIF |
|
| 500 | + 'login_test_navigateur' => 'test przeglądarki/łącz ponownie', |
|
| 501 | + 'login_verifiez_navigateur' => '(Sprawdź czy Twoja przeglądarka nie zapamiętała hasła...)', |
|
| 502 | 502 | |
| 503 | - // M |
|
| 504 | - 'masquer_trad' => 'ukryj tlumaczenia', |
|
| 505 | - 'module_fichiers_langues' => 'Pliki językowe', |
|
| 503 | + // M |
|
| 504 | + 'masquer_trad' => 'ukryj tlumaczenia', |
|
| 505 | + 'module_fichiers_langues' => 'Pliki językowe', |
|
| 506 | 506 | |
| 507 | - // N |
|
| 508 | - 'navigateur_pas_redirige' => 'Jeśli twoja przeglądarka cię nie przekierowała, kliknij tutaj, żeby kontynuować.', |
|
| 509 | - 'numero' => 'Numer', |
|
| 507 | + // N |
|
| 508 | + 'navigateur_pas_redirige' => 'Jeśli twoja przeglądarka cię nie przekierowała, kliknij tutaj, żeby kontynuować.', |
|
| 509 | + 'numero' => 'Numer', |
|
| 510 | 510 | |
| 511 | - // O |
|
| 512 | - 'occurence' => 'Wystąpienie', |
|
| 513 | - 'onglet_affacer_base' => 'Usuń bazę danych', |
|
| 514 | - 'onglet_auteur' => 'Autor', |
|
| 515 | - 'onglet_contenu_site' => 'Zawartość strony', |
|
| 516 | - 'onglet_evolution_visite_mod' => 'Ewolucja', |
|
| 517 | - 'onglet_fonctions_avances' => 'Funkcje zaawansowane', |
|
| 518 | - 'onglet_informations_personnelles' => 'Informacje osobiste', |
|
| 519 | - 'onglet_interactivite' => 'Interaktywność', |
|
| 520 | - 'onglet_messagerie' => 'Wiadomości', |
|
| 521 | - 'onglet_repartition_rubrique' => 'Rozłożenie działów', |
|
| 522 | - 'onglet_save_restaur_base' => 'Backup/zapisywanie bazy danych', |
|
| 523 | - 'onglet_vider_cache' => 'Opróżnij cache', |
|
| 511 | + // O |
|
| 512 | + 'occurence' => 'Wystąpienie', |
|
| 513 | + 'onglet_affacer_base' => 'Usuń bazę danych', |
|
| 514 | + 'onglet_auteur' => 'Autor', |
|
| 515 | + 'onglet_contenu_site' => 'Zawartość strony', |
|
| 516 | + 'onglet_evolution_visite_mod' => 'Ewolucja', |
|
| 517 | + 'onglet_fonctions_avances' => 'Funkcje zaawansowane', |
|
| 518 | + 'onglet_informations_personnelles' => 'Informacje osobiste', |
|
| 519 | + 'onglet_interactivite' => 'Interaktywność', |
|
| 520 | + 'onglet_messagerie' => 'Wiadomości', |
|
| 521 | + 'onglet_repartition_rubrique' => 'Rozłożenie działów', |
|
| 522 | + 'onglet_save_restaur_base' => 'Backup/zapisywanie bazy danych', |
|
| 523 | + 'onglet_vider_cache' => 'Opróżnij cache', |
|
| 524 | 524 | |
| 525 | - // P |
|
| 526 | - 'pass_choix_pass' => 'Proszę wybrać swoje nowe hasło:', |
|
| 527 | - 'pass_erreur' => 'Błąd', |
|
| 528 | - 'pass_erreur_acces_refuse' => '<b>Błąd:</b> nie masz już dostępu do tej strony.', |
|
| 529 | - 'pass_erreur_code_inconnu' => '<b>Błąd :</b> ten kod nie odpowiada, żadnemu z użytkowników, którzy mają dostęp do tej strony.', |
|
| 530 | - 'pass_erreur_non_enregistre' => '<b>Błąd :</b> adres <tt>@email_oubli@</tt> nie jest zarejestrowany na tej stronie.', |
|
| 531 | - 'pass_erreur_non_valide' => '<b>Błąd :</b> e-mail <tt>@email_oubli@</tt> nie jest prawidłowy!', |
|
| 532 | - 'pass_erreur_probleme_technique' => '<b>Bład :</b> e-mail nie mógł być wysłany z powodu problemów technicznych.', |
|
| 533 | - 'pass_espace_prive_bla' => 'Strefa prywatna tego serwisu jest dostęna |
|
| 525 | + // P |
|
| 526 | + 'pass_choix_pass' => 'Proszę wybrać swoje nowe hasło:', |
|
| 527 | + 'pass_erreur' => 'Błąd', |
|
| 528 | + 'pass_erreur_acces_refuse' => '<b>Błąd:</b> nie masz już dostępu do tej strony.', |
|
| 529 | + 'pass_erreur_code_inconnu' => '<b>Błąd :</b> ten kod nie odpowiada, żadnemu z użytkowników, którzy mają dostęp do tej strony.', |
|
| 530 | + 'pass_erreur_non_enregistre' => '<b>Błąd :</b> adres <tt>@email_oubli@</tt> nie jest zarejestrowany na tej stronie.', |
|
| 531 | + 'pass_erreur_non_valide' => '<b>Błąd :</b> e-mail <tt>@email_oubli@</tt> nie jest prawidłowy!', |
|
| 532 | + 'pass_erreur_probleme_technique' => '<b>Bład :</b> e-mail nie mógł być wysłany z powodu problemów technicznych.', |
|
| 533 | + 'pass_espace_prive_bla' => 'Strefa prywatna tego serwisu jest dostęna |
|
| 534 | 534 | dla zapisanych użytkowników. Jako zarejestrowany użytkownik, |
| 535 | 535 | będziesz mógł czytać artykuły, które są w trakcie redagowania, |
| 536 | 536 | proponować artykuły i brać udział w dyskusjach na forum.', |
| 537 | - 'pass_forum_bla' => 'Chcesz wziąć udział w forum |
|
| 537 | + 'pass_forum_bla' => 'Chcesz wziąć udział w forum |
|
| 538 | 538 | zarezerwowanym dla zarejestrowanych użytkowników.', |
| 539 | - 'pass_indiquez_cidessous' => 'Wpisz poniżej adres e-mail pod jakim |
|
| 539 | + 'pass_indiquez_cidessous' => 'Wpisz poniżej adres e-mail pod jakim |
|
| 540 | 540 | byłeś zarejestrowany poprzednio. |
| 541 | 541 | Otrzymasz e-maila wyjaśniającego jak |
| 542 | 542 | możesz odzyskać swój dostęp.', |
| 543 | - 'pass_mail_passcookie' => '(to jest automatyczna wiadomość) |
|
| 543 | + 'pass_mail_passcookie' => '(to jest automatyczna wiadomość) |
|
| 544 | 544 | |
| 545 | 545 | Aby odzyskać dostęp do strony |
| 546 | 546 | @nom_site_spip@ (@adresse_site@) |
@@ -552,128 +552,128 @@ discard block |
||
| 552 | 552 | Po wpisaniu nowego hasła |
| 553 | 553 | można ponownie połączyć się ze stroną. |
| 554 | 554 | ', |
| 555 | - 'pass_mot_oublie' => 'Zapomniane hasło', |
|
| 556 | - 'pass_nouveau_enregistre' => 'Twoje nowe hasło zostało zapisane.', |
|
| 557 | - 'pass_nouveau_pass' => 'Nowe hasło', |
|
| 558 | - 'pass_ok' => 'OK', |
|
| 559 | - 'pass_oubli_mot' => 'Zapomnienie hasła', |
|
| 560 | - 'pass_quitter_fenetre' => 'Zamknij okno', |
|
| 561 | - 'pass_rappel_login' => 'Przypomnienie : twój identyfikator (login) to « @login@ ».', |
|
| 562 | - 'pass_recevoir_mail' => 'Otrzymasz e-mail wyjaśniający jak możesz odzyskać dostęp do strony.', # MODIF |
|
| 563 | - 'pass_retour_public' => 'Powrót do strony publicznej', |
|
| 564 | - 'pass_rien_a_faire_ici' => 'Nie ma tu nic do zrobienia.', |
|
| 565 | - 'pass_vousinscrire' => 'Zapisaś się w tym serwisie', |
|
| 566 | - 'precedent' => 'poprzedni', |
|
| 567 | - 'previsualisation' => 'Podgląd', |
|
| 568 | - 'previsualiser' => 'Włącz podgląd', |
|
| 555 | + 'pass_mot_oublie' => 'Zapomniane hasło', |
|
| 556 | + 'pass_nouveau_enregistre' => 'Twoje nowe hasło zostało zapisane.', |
|
| 557 | + 'pass_nouveau_pass' => 'Nowe hasło', |
|
| 558 | + 'pass_ok' => 'OK', |
|
| 559 | + 'pass_oubli_mot' => 'Zapomnienie hasła', |
|
| 560 | + 'pass_quitter_fenetre' => 'Zamknij okno', |
|
| 561 | + 'pass_rappel_login' => 'Przypomnienie : twój identyfikator (login) to « @login@ ».', |
|
| 562 | + 'pass_recevoir_mail' => 'Otrzymasz e-mail wyjaśniający jak możesz odzyskać dostęp do strony.', # MODIF |
|
| 563 | + 'pass_retour_public' => 'Powrót do strony publicznej', |
|
| 564 | + 'pass_rien_a_faire_ici' => 'Nie ma tu nic do zrobienia.', |
|
| 565 | + 'pass_vousinscrire' => 'Zapisaś się w tym serwisie', |
|
| 566 | + 'precedent' => 'poprzedni', |
|
| 567 | + 'previsualisation' => 'Podgląd', |
|
| 568 | + 'previsualiser' => 'Włącz podgląd', |
|
| 569 | 569 | |
| 570 | - // R |
|
| 571 | - 'retour' => 'Powrót', |
|
| 570 | + // R |
|
| 571 | + 'retour' => 'Powrót', |
|
| 572 | 572 | |
| 573 | - // S |
|
| 574 | - 'spip_conforme_dtd' => 'SPIP uznaje ten dokument za zgodny z jego DOCTYPE :', |
|
| 575 | - 'squelette' => 'szkielet', |
|
| 576 | - 'squelette_inclus_ligne' => 'szkielet zainkludowany, linia', |
|
| 577 | - 'squelette_ligne' => 'szkielet, linia', |
|
| 578 | - 'stats_visites_et_popularite' => '@visites@ odwiedzin; popularność: @popularite@', |
|
| 579 | - 'suivant' => 'następny', |
|
| 573 | + // S |
|
| 574 | + 'spip_conforme_dtd' => 'SPIP uznaje ten dokument za zgodny z jego DOCTYPE :', |
|
| 575 | + 'squelette' => 'szkielet', |
|
| 576 | + 'squelette_inclus_ligne' => 'szkielet zainkludowany, linia', |
|
| 577 | + 'squelette_ligne' => 'szkielet, linia', |
|
| 578 | + 'stats_visites_et_popularite' => '@visites@ odwiedzin; popularność: @popularite@', |
|
| 579 | + 'suivant' => 'następny', |
|
| 580 | 580 | |
| 581 | - // T |
|
| 582 | - 'taille_ko' => '@taille@ kb', |
|
| 583 | - 'taille_mo' => '@taille@ Mb', |
|
| 584 | - 'taille_octets' => '@taille@ bytes', |
|
| 585 | - 'taille_octets_bi' => '@taille@ bytes', |
|
| 586 | - 'texte_actualite_site_1' => 'Kiedy poznasz interfejs, kliknij na «', |
|
| 587 | - 'texte_actualite_site_2' => 'kompletny interfejs', |
|
| 588 | - 'texte_actualite_site_3' => '» aby uruchomić więcej możliwości.', |
|
| 589 | - 'texte_creation_automatique_vignette' => 'W tym serwisie, uruchomione jest generowanie minitaurek.Jeśli instalujecie za pośrednictwem tego formularza pliki graficzne w formatach @gd_formats@, zostaną one uzupełnione o minitaurkę, o miniaturkę w wielkości maksymalnej: @taille_preview@ pixels.', |
|
| 590 | - 'texte_documents_associes' => 'Następujące dokumenty są związane z artykułem, |
|
| 581 | + // T |
|
| 582 | + 'taille_ko' => '@taille@ kb', |
|
| 583 | + 'taille_mo' => '@taille@ Mb', |
|
| 584 | + 'taille_octets' => '@taille@ bytes', |
|
| 585 | + 'taille_octets_bi' => '@taille@ bytes', |
|
| 586 | + 'texte_actualite_site_1' => 'Kiedy poznasz interfejs, kliknij na «', |
|
| 587 | + 'texte_actualite_site_2' => 'kompletny interfejs', |
|
| 588 | + 'texte_actualite_site_3' => '» aby uruchomić więcej możliwości.', |
|
| 589 | + 'texte_creation_automatique_vignette' => 'W tym serwisie, uruchomione jest generowanie minitaurek.Jeśli instalujecie za pośrednictwem tego formularza pliki graficzne w formatach @gd_formats@, zostaną one uzupełnione o minitaurkę, o miniaturkę w wielkości maksymalnej: @taille_preview@ pixels.', |
|
| 590 | + 'texte_documents_associes' => 'Następujące dokumenty są związane z artykułem, |
|
| 591 | 591 | ale nie zostały bezpośrednio do niego |
| 592 | 592 | dołączone. Zależnie od układu stron publicznych, |
| 593 | 593 | będę mogły pojawić się na nich jako załączniki.', |
| 594 | - 'texte_erreur_mise_niveau_base' => 'Błąd bazy danych zaistniały w trakcie uaktualniania. |
|
| 594 | + 'texte_erreur_mise_niveau_base' => 'Błąd bazy danych zaistniały w trakcie uaktualniania. |
|
| 595 | 595 | Obrazek <b>@fichier@</b> nie przeszedł (artykuł @id_article@). |
| 596 | 596 | Zapisz te dane, i spróbuj ponownego uaktualnienia, |
| 597 | 597 | a następnie sprawdź czy obrazki pojawiają się zawsze w artykułach.', |
| 598 | - 'texte_erreur_visiteur' => 'Próbujesz dostać się do panelu administracyjnego za pomocą loginu, który na to nie pozwala.', |
|
| 599 | - 'texte_inc_auth_1' => 'Jesteś zalogowany za pomocą |
|
| 598 | + 'texte_erreur_visiteur' => 'Próbujesz dostać się do panelu administracyjnego za pomocą loginu, który na to nie pozwala.', |
|
| 599 | + 'texte_inc_auth_1' => 'Jesteś zalogowany za pomocą |
|
| 600 | 600 | loginu <b>@auth_login@</b>, ale nie istnieje on (już) w bazie danych. |
| 601 | 601 | Spróbuj się', # MODIF |
| 602 | - 'texte_inc_auth_2' => 'połączyć', |
|
| 603 | - 'texte_inc_auth_3' => ', opuszczjąc ewentualnie przeglądarkę |
|
| 602 | + 'texte_inc_auth_2' => 'połączyć', |
|
| 603 | + 'texte_inc_auth_3' => ', opuszczjąc ewentualnie przeglądarkę |
|
| 604 | 604 | i włączając ją na powrót.', |
| 605 | - 'texte_inc_config' => 'Zmiany dokonane na tych stronach znacząco wpłyną na |
|
| 605 | + 'texte_inc_config' => 'Zmiany dokonane na tych stronach znacząco wpłyną na |
|
| 606 | 606 | funkcjonowanie Twojego serwisu. Radzimy nie zatwierdzać tych zmian do momentu, w którym nie będziecie |
| 607 | 607 | dobrze obeznani z funkcjonowaniem systemu SPIP. <br /><br /><b>Najbardziej |
| 608 | 608 | zalecamy, poproszenie o dokonanie zmian głównego adminsitratora serwisu.</b>', |
| 609 | - 'texte_inc_meta_1' => 'System nie może zapisać plików <code>@fichier@</code>. Jako administrator strony,', |
|
| 610 | - 'texte_inc_meta_2' => 'sprawdź pozwolenia zapisu', |
|
| 611 | - 'texte_inc_meta_3' => 'dla katalogu <code>@repertoire@</code>.', |
|
| 612 | - 'texte_statut_en_cours_redaction' => 'redakcja w toku', |
|
| 613 | - 'texte_statut_poubelle' => 'do kosza', |
|
| 614 | - 'texte_statut_propose_evaluation' => 'zaproponowany do oceny', |
|
| 615 | - 'texte_statut_publie' => 'opublikowany online', |
|
| 616 | - 'texte_statut_refuse' => 'odrzucony', |
|
| 617 | - 'titre_ajouter_mot_cle' => 'DODAJ SŁOWO KLUCZOWE:', |
|
| 618 | - 'titre_cadre_raccourcis' => 'SKRÓTY :', |
|
| 619 | - 'titre_changer_couleur_interface' => 'Zmiana koloru interfejsu', |
|
| 620 | - 'titre_image_admin_article' => 'Możesz edytować ten artykuł', |
|
| 621 | - 'titre_image_administrateur' => 'Administrator', |
|
| 622 | - 'titre_image_aide' => 'Pomoc do tego elementu', |
|
| 623 | - 'titre_image_auteur_supprime' => 'Autor usunięty', |
|
| 624 | - 'titre_image_redacteur' => 'Redaktor bez dostępu', |
|
| 625 | - 'titre_image_redacteur_02' => 'Redaktor', |
|
| 626 | - 'titre_image_visiteur' => 'Odwiedzający', |
|
| 627 | - 'titre_joindre_document' => 'ZAŁĄCZ DOKUMENT', |
|
| 628 | - 'titre_mots_cles' => 'SŁOWA KLUCZOWE', |
|
| 629 | - 'titre_probleme_technique' => 'Uwaga: problem techniczny (serwer SQL) blokuje dostęp do tej części strony. Dziękujemy za zrozumienie.', |
|
| 630 | - 'titre_publier_document' => 'PUBLIKUJ DOKUMENT W TYM DZIALE', |
|
| 631 | - 'titre_statistiques' => 'Statystyki strony', |
|
| 632 | - 'titre_titre_document' => 'Tytuł dokumentu:', |
|
| 633 | - 'trad_reference' => '(artykuł wzorcowy)', # MODIF |
|
| 609 | + 'texte_inc_meta_1' => 'System nie może zapisać plików <code>@fichier@</code>. Jako administrator strony,', |
|
| 610 | + 'texte_inc_meta_2' => 'sprawdź pozwolenia zapisu', |
|
| 611 | + 'texte_inc_meta_3' => 'dla katalogu <code>@repertoire@</code>.', |
|
| 612 | + 'texte_statut_en_cours_redaction' => 'redakcja w toku', |
|
| 613 | + 'texte_statut_poubelle' => 'do kosza', |
|
| 614 | + 'texte_statut_propose_evaluation' => 'zaproponowany do oceny', |
|
| 615 | + 'texte_statut_publie' => 'opublikowany online', |
|
| 616 | + 'texte_statut_refuse' => 'odrzucony', |
|
| 617 | + 'titre_ajouter_mot_cle' => 'DODAJ SŁOWO KLUCZOWE:', |
|
| 618 | + 'titre_cadre_raccourcis' => 'SKRÓTY :', |
|
| 619 | + 'titre_changer_couleur_interface' => 'Zmiana koloru interfejsu', |
|
| 620 | + 'titre_image_admin_article' => 'Możesz edytować ten artykuł', |
|
| 621 | + 'titre_image_administrateur' => 'Administrator', |
|
| 622 | + 'titre_image_aide' => 'Pomoc do tego elementu', |
|
| 623 | + 'titre_image_auteur_supprime' => 'Autor usunięty', |
|
| 624 | + 'titre_image_redacteur' => 'Redaktor bez dostępu', |
|
| 625 | + 'titre_image_redacteur_02' => 'Redaktor', |
|
| 626 | + 'titre_image_visiteur' => 'Odwiedzający', |
|
| 627 | + 'titre_joindre_document' => 'ZAŁĄCZ DOKUMENT', |
|
| 628 | + 'titre_mots_cles' => 'SŁOWA KLUCZOWE', |
|
| 629 | + 'titre_probleme_technique' => 'Uwaga: problem techniczny (serwer SQL) blokuje dostęp do tej części strony. Dziękujemy za zrozumienie.', |
|
| 630 | + 'titre_publier_document' => 'PUBLIKUJ DOKUMENT W TYM DZIALE', |
|
| 631 | + 'titre_statistiques' => 'Statystyki strony', |
|
| 632 | + 'titre_titre_document' => 'Tytuł dokumentu:', |
|
| 633 | + 'trad_reference' => '(artykuł wzorcowy)', # MODIF |
|
| 634 | 634 | |
| 635 | - // Z |
|
| 636 | - 'zbug_balise_b_aval' => ' : balise B en aval', |
|
| 637 | - 'zbug_balise_inexistante' => 'erreur @from@: la balise #@balise@ n’existe pas', # MODIF |
|
| 638 | - 'zbug_boucle' => 'pętla', |
|
| 639 | - 'zbug_boucle_recursive_undef' => 'pętla rekursywna nie została zdefiniowana', # MODIF |
|
| 640 | - 'zbug_champ_hors_boucle' => 'Pole @champ@ jest bez pętli', |
|
| 641 | - 'zbug_champ_hors_motif' => 'Pole @champ@ jest poza pętlą @motif@', # MODIF |
|
| 642 | - 'zbug_code' => 'kod', |
|
| 643 | - 'zbug_critere_inconnu' => 'nieznane kryterium @critere@', # MODIF |
|
| 644 | - 'zbug_distant_interdit' => 'operacja niedozwolona w zewnętrznej bazie', # MODIF |
|
| 645 | - 'zbug_doublon_table_sans_cle_primaire' => 'doublons sur une table sans clef primaire atomique', # MODIF |
|
| 646 | - 'zbug_doublon_table_sans_index' => 'podwójny wpis w tablicy bez indeksu', # MODIF |
|
| 647 | - 'zbug_erreur_boucle_double' => 'BOUCLE@id@: podwójna definicja', # MODIF |
|
| 648 | - 'zbug_erreur_boucle_fermant' => 'BOUCLE@id@: brakuje znacznika zamykającego', # MODIF |
|
| 649 | - 'zbug_erreur_boucle_syntaxe' => 'Składnia pętli (boucle) nieprawidłowa', # MODIF |
|
| 650 | - 'zbug_erreur_compilation' => 'Błąd kompilacji', |
|
| 651 | - 'zbug_erreur_execution_page' => 'błąd w wykonaniu strony', # MODIF |
|
| 652 | - 'zbug_erreur_filtre' => 'Błąd : filtr <b>« @filtre@ »</b> nie zdefiniowany', # MODIF |
|
| 653 | - 'zbug_erreur_meme_parent' => '{meme_parent} stosuje się wyłącznie do pętli (FORUMS) i (RUBRIQUES)', # MODIF |
|
| 654 | - 'zbug_erreur_squelette' => 'Błąd (błędy) w szkielecie', |
|
| 655 | - 'zbug_info_erreur_squelette' => 'Błąd na stronie', |
|
| 656 | - 'zbug_inversion_ordre_inexistant' => 'odwrócenie nieistniejącego uporządkowania', # MODIF |
|
| 657 | - 'zbug_pagination_sans_critere' => '#PAGINATION bez kryterium {pagination} lub użyta w pętli rekursywnej', # MODIF |
|
| 658 | - 'zbug_parametres_inclus_incorrects' => 'Złe parametry załączenia (include)', # MODIF |
|
| 659 | - 'zbug_profile' => 'Czas przeliczania: @time@', |
|
| 660 | - 'zbug_resultat' => 'wynik', |
|
| 661 | - 'zbug_serveur_indefini' => 'serwer SQL niezdefiniowany', # MODIF |
|
| 662 | - 'zbug_table_inconnue' => 'Tabela SQL « @table@ » nieznana', |
|
| 663 | - 'zxml_connus_attributs' => 'znane atrybuty', |
|
| 664 | - 'zxml_de' => 'z', |
|
| 665 | - 'zxml_inconnu_attribut' => 'atrybut nieznany', |
|
| 666 | - 'zxml_inconnu_balise' => 'znacznik nieznany', |
|
| 667 | - 'zxml_inconnu_entite' => 'nieznana wartość', |
|
| 668 | - 'zxml_inconnu_id' => 'ID nieznany', |
|
| 669 | - 'zxml_mais_de' => 'ale z', |
|
| 670 | - 'zxml_non_conforme' => 'nie jest zgodny', |
|
| 671 | - 'zxml_non_fils' => 'nie jest z', |
|
| 672 | - 'zxml_nonvide_balise' => 'znacznik nie jest pusty', |
|
| 673 | - 'zxml_obligatoire_attribut' => 'nieobecny atrybut obowiązkowy', |
|
| 674 | - 'zxml_succession_fils_incorrecte' => 'niepoprawne dziedziczenie', |
|
| 675 | - 'zxml_survoler' => 'najedź wskaźnikiem aby zobaczyć poprawne', |
|
| 676 | - 'zxml_valeur_attribut' => 'wartość artybutu', |
|
| 677 | - 'zxml_vide_balise' => 'pusty znacznik', |
|
| 678 | - 'zxml_vu' => 'widziany wcześniej', |
|
| 635 | + // Z |
|
| 636 | + 'zbug_balise_b_aval' => ' : balise B en aval', |
|
| 637 | + 'zbug_balise_inexistante' => 'erreur @from@: la balise #@balise@ n’existe pas', # MODIF |
|
| 638 | + 'zbug_boucle' => 'pętla', |
|
| 639 | + 'zbug_boucle_recursive_undef' => 'pętla rekursywna nie została zdefiniowana', # MODIF |
|
| 640 | + 'zbug_champ_hors_boucle' => 'Pole @champ@ jest bez pętli', |
|
| 641 | + 'zbug_champ_hors_motif' => 'Pole @champ@ jest poza pętlą @motif@', # MODIF |
|
| 642 | + 'zbug_code' => 'kod', |
|
| 643 | + 'zbug_critere_inconnu' => 'nieznane kryterium @critere@', # MODIF |
|
| 644 | + 'zbug_distant_interdit' => 'operacja niedozwolona w zewnętrznej bazie', # MODIF |
|
| 645 | + 'zbug_doublon_table_sans_cle_primaire' => 'doublons sur une table sans clef primaire atomique', # MODIF |
|
| 646 | + 'zbug_doublon_table_sans_index' => 'podwójny wpis w tablicy bez indeksu', # MODIF |
|
| 647 | + 'zbug_erreur_boucle_double' => 'BOUCLE@id@: podwójna definicja', # MODIF |
|
| 648 | + 'zbug_erreur_boucle_fermant' => 'BOUCLE@id@: brakuje znacznika zamykającego', # MODIF |
|
| 649 | + 'zbug_erreur_boucle_syntaxe' => 'Składnia pętli (boucle) nieprawidłowa', # MODIF |
|
| 650 | + 'zbug_erreur_compilation' => 'Błąd kompilacji', |
|
| 651 | + 'zbug_erreur_execution_page' => 'błąd w wykonaniu strony', # MODIF |
|
| 652 | + 'zbug_erreur_filtre' => 'Błąd : filtr <b>« @filtre@ »</b> nie zdefiniowany', # MODIF |
|
| 653 | + 'zbug_erreur_meme_parent' => '{meme_parent} stosuje się wyłącznie do pętli (FORUMS) i (RUBRIQUES)', # MODIF |
|
| 654 | + 'zbug_erreur_squelette' => 'Błąd (błędy) w szkielecie', |
|
| 655 | + 'zbug_info_erreur_squelette' => 'Błąd na stronie', |
|
| 656 | + 'zbug_inversion_ordre_inexistant' => 'odwrócenie nieistniejącego uporządkowania', # MODIF |
|
| 657 | + 'zbug_pagination_sans_critere' => '#PAGINATION bez kryterium {pagination} lub użyta w pętli rekursywnej', # MODIF |
|
| 658 | + 'zbug_parametres_inclus_incorrects' => 'Złe parametry załączenia (include)', # MODIF |
|
| 659 | + 'zbug_profile' => 'Czas przeliczania: @time@', |
|
| 660 | + 'zbug_resultat' => 'wynik', |
|
| 661 | + 'zbug_serveur_indefini' => 'serwer SQL niezdefiniowany', # MODIF |
|
| 662 | + 'zbug_table_inconnue' => 'Tabela SQL « @table@ » nieznana', |
|
| 663 | + 'zxml_connus_attributs' => 'znane atrybuty', |
|
| 664 | + 'zxml_de' => 'z', |
|
| 665 | + 'zxml_inconnu_attribut' => 'atrybut nieznany', |
|
| 666 | + 'zxml_inconnu_balise' => 'znacznik nieznany', |
|
| 667 | + 'zxml_inconnu_entite' => 'nieznana wartość', |
|
| 668 | + 'zxml_inconnu_id' => 'ID nieznany', |
|
| 669 | + 'zxml_mais_de' => 'ale z', |
|
| 670 | + 'zxml_non_conforme' => 'nie jest zgodny', |
|
| 671 | + 'zxml_non_fils' => 'nie jest z', |
|
| 672 | + 'zxml_nonvide_balise' => 'znacznik nie jest pusty', |
|
| 673 | + 'zxml_obligatoire_attribut' => 'nieobecny atrybut obowiązkowy', |
|
| 674 | + 'zxml_succession_fils_incorrecte' => 'niepoprawne dziedziczenie', |
|
| 675 | + 'zxml_survoler' => 'najedź wskaźnikiem aby zobaczyć poprawne', |
|
| 676 | + 'zxml_valeur_attribut' => 'wartość artybutu', |
|
| 677 | + 'zxml_vide_balise' => 'pusty znacznik', |
|
| 678 | + 'zxml_vu' => 'widziany wcześniej', |
|
| 679 | 679 | ]; |
