1: <?php
  2: 
  3: /**
  4:  * This file is part of the Nette Framework (https://nette.org)
  5:  * Copyright (c) 2004 David Grudl (http://davidgrudl.com)
  6:  */
  7: 
  8: namespace Nette\Utils\PhpGenerator;
  9: 
 10: use Nette;
 11: 
 12: 
 13: /**
 14:  * PHP code generator utils.
 15:  *
 16:  * @author     David Grudl
 17:  */
 18: class Helpers
 19: {
 20:     const PHP_IDENT = '[a-zA-Z_\x7f-\xff][a-zA-Z0-9_\x7f-\xff]*';
 21: 
 22: 
 23:     /**
 24:      * Returns a PHP representation of a variable.
 25:      * @return string
 26:      */
 27:     public static function dump($var)
 28:     {
 29:         return self::_dump($var);
 30:     }
 31: 
 32: 
 33:     private static function _dump(& $var, $level = 0)
 34:     {
 35:         if ($var instanceof PhpLiteral) {
 36:             return $var->value;
 37: 
 38:         } elseif (is_float($var)) {
 39:             $var = var_export($var, TRUE);
 40:             return strpos($var, '.') === FALSE ? $var . '.0' : $var;
 41: 
 42:         } elseif (is_bool($var)) {
 43:             return $var ? 'TRUE' : 'FALSE';
 44: 
 45:         } elseif (is_string($var) && (preg_match('#[^\x09\x20-\x7E\xA0-\x{10FFFF}]#u', $var) || preg_last_error())) {
 46:             static $table;
 47:             if ($table === NULL) {
 48:                 foreach (range("\x00", "\xFF") as $ch) {
 49:                     $table[$ch] = ord($ch) < 32 || ord($ch) >= 127
 50:                         ? '\\x' . str_pad(dechex(ord($ch)), 2, '0', STR_PAD_LEFT)
 51:                         : $ch;
 52:                 }
 53:                 $table["\r"] = '\r';
 54:                 $table["\n"] = '\n';
 55:                 $table["\t"] = '\t';
 56:                 $table['$'] = '\\$';
 57:                 $table['\\'] = '\\\\';
 58:                 $table['"'] = '\\"';
 59:             }
 60:             return '"' . strtr($var, $table) . '"';
 61: 
 62:         } elseif (is_array($var)) {
 63:             $s = '';
 64:             $space = str_repeat("\t", $level);
 65: 
 66:             static $marker;
 67:             if ($marker === NULL) {
 68:                 $marker = uniqid("\x00", TRUE);
 69:             }
 70:             if (empty($var)) {
 71: 
 72:             } elseif ($level > 50 || isset($var[$marker])) {
 73:                 throw new Nette\InvalidArgumentException('Nesting level too deep or recursive dependency.');
 74: 
 75:             } else {
 76:                 $s .= "\n";
 77:                 $var[$marker] = TRUE;
 78:                 $counter = 0;
 79:                 foreach ($var as $k => & $v) {
 80:                     if ($k !== $marker) {
 81:                         $s .= "$space\t" . ($k === $counter ? '' : self::_dump($k) . " => ") . self::_dump($v, $level + 1) . ",\n";
 82:                         $counter = is_int($k) ? max($k + 1, $counter) : $counter;
 83:                     }
 84:                 }
 85:                 unset($var[$marker]);
 86:                 $s .= $space;
 87:             }
 88:             return "array($s)";
 89: 
 90:         } elseif (is_object($var)) {
 91:             $arr = (array) $var;
 92:             $s = '';
 93:             $space = str_repeat("\t", $level);
 94: 
 95:             static $list = array();
 96:             if (empty($arr)) {
 97: 
 98:             } elseif ($level > 50 || in_array($var, $list, TRUE)) {
 99:                 throw new Nette\InvalidArgumentException('Nesting level too deep or recursive dependency.');
100: 
101:             } else {
102:                 $s .= "\n";
103:                 $list[] = $var;
104:                 foreach ($arr as $k => & $v) {
105:                     $s .= "$space\t" . self::_dump($k) . " => " . self::_dump($v, $level + 1) . ",\n";
106:                 }
107:                 array_pop($list);
108:                 $s .= $space;
109:             }
110:             return get_class($var) === 'stdClass'
111:                 ? "(object) array($s)"
112:                 : __CLASS__ . "::createObject('" . get_class($var) . "', array($s))";
113: 
114:         } else {
115:             return var_export($var, TRUE);
116:         }
117:     }
118: 
119: 
120:     /**
121:      * Generates PHP statement.
122:      * @return string
123:      */
124:     public static function format($statement)
125:     {
126:         $args = func_get_args();
127:         return self::formatArgs(array_shift($args), $args);
128:     }
129: 
130: 
131:     /**
132:      * Generates PHP statement.
133:      * @return string
134:      */
135:     public static function formatArgs($statement, array $args)
136:     {
137:         $a = strpos($statement, '?');
138:         while ($a !== FALSE) {
139:             if (!$args) {
140:                 throw new Nette\InvalidArgumentException('Insufficient number of arguments.');
141:             }
142:             $arg = array_shift($args);
143:             if (substr($statement, $a + 1, 1) === '*') { // ?*
144:                 if (!is_array($arg)) {
145:                     throw new Nette\InvalidArgumentException('Argument must be an array.');
146:                 }
147:                 $arg = implode(', ', array_map(array(__CLASS__, 'dump'), $arg));
148:                 $statement = substr_replace($statement, $arg, $a, 2);
149: 
150:             } else {
151:                 $arg = substr($statement, $a - 1, 1) === '$' || in_array(substr($statement, $a - 2, 2), array('->', '::'), TRUE)
152:                     ? self::formatMember($arg) : self::_dump($arg);
153:                 $statement = substr_replace($statement, $arg, $a, 1);
154:             }
155:             $a = strpos($statement, '?', $a + strlen($arg));
156:         }
157:         return $statement;
158:     }
159: 
160: 
161:     /**
162:      * Returns a PHP representation of a object member.
163:      * @return string
164:      */
165:     public static function formatMember($name)
166:     {
167:         return $name instanceof PhpLiteral || !self::isIdentifier($name)
168:             ? '{' . self::_dump($name) . '}'
169:             : $name ;
170:     }
171: 
172: 
173:     /**
174:      * @return bool
175:      */
176:     public static function isIdentifier($value)
177:     {
178:         return is_string($value) && preg_match('#^' . self::PHP_IDENT . '\z#', $value);
179:     }
180: 
181: 
182:     /** @internal */
183:     public static function createObject($class, array $props)
184:     {
185:         return unserialize('O' . substr(serialize((string) $class), 1, -1) . substr(serialize($props), 1));
186:     }
187: 
188: }
189: