function set_sgs($arr) { foreach ($arr as $sg => $superglobal) { global $http_reqarrs; global $_globals; $pairs = array(); foreach ($superglobal as $k => $v) { if (is_array($v)) { $val = array(); foreach ($v as $_k => $_v) { $str = F_String::__from_string($_v); $str->F_taint(NULL); $val[] = F_Array::__from_array(array(F_Symbol::__from_string($_k), $str)); } } else { $val = F_String::__from_string($v); $val->F_taint(NULL); } $pairs[] = F_Array::__from_array(array(F_Symbol::__from_string($k), $val)); } $_globals['F_' . $sg] = F_Hash::__from_pairs($pairs); } }
public function F_reject($block) { $new_pairs = array(); foreach ($this->__PAIRS as $pair) { if (!_isTruthy($block(NULL, $pair->__ARRAY[0], $pair->__ARRAY[1]))) { $new_pairs[] = $pair; } } return F_Hash::__from_pairs($new_pairs); }