OR like in perl

databind
vitalif 2010-03-10 00:09:21 +00:00 committed by Vitaliy Filippov
parent 05ef4573d5
commit 9b7a294346
1 changed files with 13 additions and 3 deletions

View File

@ -719,10 +719,20 @@ $iset";
return $e;
}
// перлоподобный OR-оператор, который возвращает первое истинное значение
static function perlish_or()
{
$a = func_get_args();
foreach ($a as $v)
if ($v)
return $v;
return false;
}
/* функции */
/* "или", "и", +, -, *, /, конкатенация */
function function_or() { $a = func_get_args(); return $this->fmop('||', $a); }
function function_or() { $a = func_get_args(); return "self::perlish_or(".join(",", $a).")"; }
function function_and() { $a = func_get_args(); return $this->fmop('&&', $a); }
function function_add() { $a = func_get_args(); return $this->fmop('+', $a); }
function function_sub() { $a = func_get_args(); return $this->fmop('-', $a); }
@ -796,8 +806,8 @@ $iset";
function function_urlencode($e) { return "urlencode($e)"; }
/* удаление всех, заданных или "небезопасных" HTML-тегов */
function function_strip($e, $t) { return "strip_tags($e".($t?",$t":"").")"; }
function function_t($e, $t) { return "strip_tags($e".($t?",$t":"").")"; }
function function_strip($e, $t='') { return "strip_tags($e".($t?",$t":"").")"; }
function function_t($e, $t='') { return "strip_tags($e".($t?",$t":"").")"; }
function function_strip_unsafe($e) { return "strip_tags($e, self::\$safe_tags)"; }
function function_h($e) { return "strip_tags($e, self::\$safe_tags)"; }