Skip to content

Commit

Permalink
#REF Migrate the print_array smarty plugin from in packages into core…
Browse files Browse the repository at this point in the history
… as it seems to not be supplied by the upstream package
  • Loading branch information
seamuslee001 committed Dec 14, 2020
1 parent 278408a commit 5fb1a6f
Showing 1 changed file with 98 additions and 0 deletions.
98 changes: 98 additions & 0 deletions CRM/Core/Smarty/plugins/modifier.print_array.php
Original file line number Diff line number Diff line change
@@ -0,0 +1,98 @@
<?php
/**
* Smarty plugin
* @package Smarty
* @subpackage plugins
*/

/**
* Smarty print_array modifier plugin
*
* Type: modifier<br>
* Name: print_array<br>
* Purpose: formats variable contents for display in the console
* @link http://smarty.php.net/manual/en/language.modifier.debug.print.var.php
* debug_print_var (Smarty online manual)
* @author Monte Ohrt <monte at ohrt dot com>
* @param array|object $var
* @param integer $depth
* @param integer $length
* @return string
*/
function smarty_modifier_print_array($var, $depth = 0, $length = 40) {

switch (gettype($var)) {
case 'array':
$results = "array(\n";
foreach ($var as $curr_key => $curr_val) {
$depth++;
$results .= str_repeat(' ', ($depth + 1))
. "'" . $curr_key . "' => "
. smarty_modifier_print_array($curr_val, $depth, $length) . ",\n";
$depth--;
}
$results .= str_repeat(' ', ($depth + 1)) . ")";
break;

case 'object':
$object_vars = get_object_vars($var);
$results = get_class($var) . ' Object (' . count($object_vars) . ')';
foreach ($object_vars as $curr_key => $curr_val) {
$depth++;
$results .= str_repeat('', $depth + 1)
. '->' . $curr_key . ' = '
. smarty_modifier_debug_print_var($curr_val, $depth, $length);
$depth--;
}
break;

case 'boolean':
case 'NULL':
case 'resource':
if (TRUE === $var) {
$results .= 'TRUE';
}
elseif (FALSE === $var) {
$results .= 'FALSE';
}
elseif (NULL === $var) {
$results .= '';
}
else {
$results = $var;
}
$results = $results;
break;

case 'integer':
case 'float':
$results = $var;
break;

case 'string':
if (strlen($var) > $length) {
$results = substr($var, 0, $length - 3) . '...';
}
$results = "'" . $var . "'";
break;

case 'unknown type':
default:
if (strlen($results) > $length) {
$results = substr($results, 0, $length - 3) . '...';
}
$results = "'" . $var . "'";
}
if (empty($var)) {
if (is_array($var)) {
$results = "array()";
}
elseif ($var === '0' || $var === 0) {
$results = 0;
}
else {
$results = "''";
}
}
return $results;
}

0 comments on commit 5fb1a6f

Please sign in to comment.