<?php

// переопределить константы пользовательских ошибок - только PHP 4
define (FATAL,E_USER_ERROR);
define (ERROR,E_USER_WARNING);
define (WARNING,E_USER_NOTICE);

// установить уровень серьёзности ошибок для данного скрипта
error_reporting (FATAL | ERROR | WARNING);

// функция обработчика ошибок
function myErrorHandler ($errno, $errstr, $errfile, $errline) {
  switch ($errno) {
  case FATAL:
    echo "<b>FATAL</b> [$errno] $errstr<br>\n";
    echo "  Fatal error in line ".$errline." of file ".$errfile;
    echo ", PHP ".PHP_VERSION." (".PHP_OS.")<br>\n";
    echo "Aborting...<br>\n";
    exit 1;
    break;
  case ERROR:
    echo "<b>ERROR</b> [$errno] $errstr<br>\n";
    break;
  case WARNING:
    echo "<b>WARNING</b> [$errno] $errstr<br>\n";
    break;
    default:
    echo "Unkown error type: [$errno] $errstr<br>\n";
    break;
  }
}

// функция для проверки обработки ошибок
function scale_by_log ($vect, $scale) {
  if ( !is_numeric($scale) || $scale <= 0 )
    trigger_error("log(x) for x <= 0 is undefined, you used: scale = $scale",
      FATAL);
  if (!is_array($vect)) {
    trigger_error("Incorrect input vector, array of values expected", ERROR);
    return null;
  }
  for ($i=0; $i<count($vect); $i++) {
    if (!is_numeric($vect[$i]))
      trigger_error("Value at position $i is not a number, using 0 (zero)", 
        WARNING);
    $temp[$i] = log($scale) * $vect[$i];
  }
  return $temp;
}

// установить в пользовательский обработчик ошибок
$old_error_handler = set_error_handler("myErrorHandler");

// переключить некоторые ошибки; сначала определить смешанный
// массив с нецифровыми элементами
echo "vector a\n";
$a = array(2,3,"foo",5.5,43.3,21.11);
print_r($a);

// теперь сгенерировать второй массив, генерируя предупреждение
echo "----\nvector b - a warning (b = log(PI) * a)\n";
$b = scale_by_log($a, M_PI);
print_r($b);

// это проблема, мы передаём строку вместо массива
echo "----\nvector c - an error\n";
$c = scale_by_log("not array",2.3);
var_dump($c);

// это критическая ошибка, log нуль или отрицательное число не определено
echo "----\nvector d - fatal error\n";
$d = scale_by_log($a, -2.5);

?>