Un pr() para Drupal

pr() es un comando que suelo usar mucho en CakePHP para revisar el valor de una variable.

En Drupal, hay comandos como dsm() pero, a veces, lo que requiero es algo tan simple como lo que hace pr().

Al no encontrar un comando igual de práctico, que funcionara tanto en los templates como en los módulos, y sin instalar ningún módulo extra, uso una solución rápida que consiste en colocar el siguiente código al final del archivo sites/default/settings.php:

function pr($x, $return=TRUE, $set_message=TRUE) {
  $output = '<xmp>';
  $output .= print_r($x, TRUE);
  $output .= '</xmp>';
  if ($set_message) {
    drupal_set_message($output);
  }
  if ($return) {
    return $output;
  } else {
    echo $output;
  }
}

$return=TRUE permite asignar el valor de salida a una variable. $set_message permite mostrarlo con drupal_set_message.