<?php if (!defined('PmWiki')) exit();
/*
 * ConditionalExtensions - A Conditional Markup extension for PmWiki 2.0
 * Copyright 2005-2006 by D.Faure (dfaure@cpan.org)
 *
 * Permission is hereby granted, free of charge, to any person obtaining a copy
 * of this software and associated documentation files (the "Software"), to deal
 * in the Software without restriction, including without limitation the rights
 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
 * copies of the Software, and to permit persons to whom the Software is
 * furnished to do so, subject to the following conditions:
 *
 * The above copyright notice and this permission notice shall be included in
 * all copies or substantial portions of the Software.
 *
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
 * SOFTWARE.
 *
 * Thanks to M.Fick for pointing out a security issue and to P.Michaud for
 * fixing it, string comparisons and earlier optimization hints.
 *
 * See http://www.pmwiki.org/wiki/Cookbook/ConditionalExtensions for info.
 */
$RecipeInfo['ConditionalExtensions']['Version'] = '20061028';

$Conditions['matchgroup'] = "MatchCondition(\$pagename, \$condparm, '$1$2.*')";
$Conditions['matchname']  = "MatchCondition(\$pagename, \$condparm, '$1*.$2')";

function MatchCondition($pagename, $condparm, $pat) {
  $args = ParseArgs($condparm);
  $args = $args[''];
  if(count($args) < 2) $args[] = $pagename;
  return MatchPageNames($args[1], FixGlob($args[0]), $pat);
}

$Conditions['eq'] = $Conditions['eqi'] = 'ArithCondition($condname, $condparm, "==")';
$Conditions['le'] = $Conditions['lei'] = 'ArithCondition($condname, $condparm, "<=")';
$Conditions['lt'] = $Conditions['lti'] = 'ArithCondition($condname, $condparm, "<")';
$Conditions['ge'] = $Conditions['gei'] = 'ArithCondition($condname, $condparm, ">=")';
$Conditions['gt'] = $Conditions['gti'] = 'ArithCondition($condname, $condparm, ">")';
if(!$Conditions['equal']) $Conditions['equal'] = $Conditions['equali'] = $Conditions['eq'];

function ArithCondition($condname, $condparm, $op) {
  $args = ParseArgs($condparm);
  $args = $args[''];
  $cs = (substr($condname, -1, 1) == 'i') ? 'strtolower' : '';
  return @eval("return (boolean)($cs('$args[0]') $op $cs('$args[1]'));");
}

$Conditions['regmatch'] = 'RegMatchArgs($condparm)';

function RegMatchArgs($args) {
  $args = ParseArgs($args);
  return preg_match(@$args[''][0], @$args[''][1]);
}

global $VersionNum;
if($VersionNum < 2000933) {
  $Conditions['expr'] = $Conditions['('] = $Conditions['['] =
    'ExprCondition($pagename, $condname, $condparm)';

  function ExprCondition($pagename, $condname, $condparm) {
    global $ExprConditionOps, $KeepToken, $KPV;
    SDV($ExprConditionOps, 'and|x?or|&&|\\|\\||[!()]');
    if($condname == '(' || $condname == '[')
      $condparm = preg_replace('/[\\]\\)]\\s*$/', '', $condparm);
    for($condparm = str_replace('&amp;&amp;', '&&', $condparm);
        ($x = preg_replace('/("[^"]*"|\'[^\']*\')/e',
                           "Keep(PSS('$1'))", $condparm)) != $condparm;
        $condparm = $x);
    $terms = preg_split("/(?<!\\S)($ExprConditionOps)(?!\\S)/i", 
                        $condparm, -1,
                        PREG_SPLIT_DELIM_CAPTURE | PREG_SPLIT_NO_EMPTY);
    foreach($terms as $i => $t) {
      $t = trim($t);
      if (preg_match("/^($ExprConditionOps)$/i", $t)) continue;
      if($t) {
        $t = preg_replace("/$KeepToken(\\d.*?)$KeepToken/e", "\$KPV['$1']", $t);
        $terms[$i] = CondText($pagename, "if $t", 'TRUE') ? '1' : '0';
      }
    }
    return @eval('return(' . implode(' ', $terms) . ');');
  }
}