comparison vendor/psy/psysh/src/functions.php @ 13:5fb285c0d0e3

Update Drupal core to 8.4.7 via Composer. Security update; I *think* we've been lucky to get away with this so far, as we don't support self-registration which seems to be used by the so-called "drupalgeddon 2" attack that 8.4.5 was vulnerable to.
author Chris Cannam
date Mon, 23 Apr 2018 09:33:26 +0100
parents
children c2387f117808
comparison
equal deleted inserted replaced
12:7a779792577d 13:5fb285c0d0e3
1 <?php
2
3 /*
4 * This file is part of Psy Shell.
5 *
6 * (c) 2012-2018 Justin Hileman
7 *
8 * For the full copyright and license information, please view the LICENSE
9 * file that was distributed with this source code.
10 */
11
12 namespace Psy;
13
14 use Psy\VersionUpdater\GitHubChecker;
15 use Symfony\Component\Console\Input\ArgvInput;
16 use Symfony\Component\Console\Input\InputArgument;
17 use Symfony\Component\Console\Input\InputDefinition;
18 use Symfony\Component\Console\Input\InputOption;
19 use XdgBaseDir\Xdg;
20
21 if (!function_exists('Psy\sh')) {
22 /**
23 * Command to return the eval-able code to startup PsySH.
24 *
25 * eval(\Psy\sh());
26 *
27 * @return string
28 */
29 function sh()
30 {
31 return 'extract(\Psy\debug(get_defined_vars(), isset($this) ? $this : null));';
32 }
33 }
34
35 if (!function_exists('Psy\debug')) {
36 /**
37 * Invoke a Psy Shell from the current context.
38 *
39 * For example:
40 *
41 * foreach ($items as $item) {
42 * \Psy\debug(get_defined_vars());
43 * }
44 *
45 * If you would like your shell interaction to affect the state of the
46 * current context, you can extract() the values returned from this call:
47 *
48 * foreach ($items as $item) {
49 * extract(\Psy\debug(get_defined_vars()));
50 * var_dump($item); // will be whatever you set $item to in Psy Shell
51 * }
52 *
53 * Optionally, supply an object as the `$boundObject` parameter. This
54 * determines the value `$this` will have in the shell, and sets up class
55 * scope so that private and protected members are accessible:
56 *
57 * class Foo {
58 * function bar() {
59 * \Psy\debug(get_defined_vars(), $this);
60 * }
61 * }
62 *
63 * @param array $vars Scope variables from the calling context (default: array())
64 * @param object $boundObject Bound object ($this) value for the shell
65 *
66 * @return array Scope variables from the debugger session
67 */
68 function debug(array $vars = [], $boundObject = null)
69 {
70 echo PHP_EOL;
71
72 $sh = new Shell();
73 $sh->setScopeVariables($vars);
74
75 // Show a couple of lines of call context for the debug session.
76 //
77 // @todo come up with a better way of doing this which doesn't involve injecting input :-P
78 if ($sh->has('whereami')) {
79 $sh->addInput('whereami -n2', true);
80 }
81
82 if ($boundObject !== null) {
83 $sh->setBoundObject($boundObject);
84 }
85
86 $sh->run();
87
88 return $sh->getScopeVariables(false);
89 }
90 }
91
92 if (!function_exists('Psy\info')) {
93 /**
94 * Get a bunch of debugging info about the current PsySH environment and
95 * configuration.
96 *
97 * If a Configuration param is passed, that configuration is stored and
98 * used for the current shell session, and no debugging info is returned.
99 *
100 * @param Configuration|null $config
101 *
102 * @return array|null
103 */
104 function info(Configuration $config = null)
105 {
106 static $lastConfig;
107 if ($config !== null) {
108 $lastConfig = $config;
109
110 return;
111 }
112
113 $xdg = new Xdg();
114 $home = rtrim(str_replace('\\', '/', $xdg->getHomeDir()), '/');
115 $homePattern = '#^' . preg_quote($home, '#') . '/#';
116
117 $prettyPath = function ($path) use ($homePattern) {
118 if (is_string($path)) {
119 return preg_replace($homePattern, '~/', $path);
120 } else {
121 return $path;
122 }
123 };
124
125 $config = $lastConfig ?: new Configuration();
126
127 $core = [
128 'PsySH version' => Shell::VERSION,
129 'PHP version' => PHP_VERSION,
130 'OS' => PHP_OS,
131 'default includes' => $config->getDefaultIncludes(),
132 'require semicolons' => $config->requireSemicolons(),
133 'error logging level' => $config->errorLoggingLevel(),
134 'config file' => [
135 'default config file' => $prettyPath($config->getConfigFile()),
136 'local config file' => $prettyPath($config->getLocalConfigFile()),
137 'PSYSH_CONFIG env' => $prettyPath(getenv('PSYSH_CONFIG')),
138 ],
139 // 'config dir' => $config->getConfigDir(),
140 // 'data dir' => $config->getDataDir(),
141 // 'runtime dir' => $config->getRuntimeDir(),
142 ];
143
144 // Use an explicit, fresh update check here, rather than relying on whatever is in $config.
145 $checker = new GitHubChecker();
146 $updateAvailable = null;
147 $latest = null;
148 try {
149 $updateAvailable = !$checker->isLatest();
150 $latest = $checker->getLatest();
151 } catch (\Exception $e) {
152 }
153
154 $updates = [
155 'update available' => $updateAvailable,
156 'latest release version' => $latest,
157 'update check interval' => $config->getUpdateCheck(),
158 'update cache file' => $prettyPath($config->getUpdateCheckCacheFile()),
159 ];
160
161 if ($config->hasReadline()) {
162 $info = readline_info();
163
164 $readline = [
165 'readline available' => true,
166 'readline enabled' => $config->useReadline(),
167 'readline service' => get_class($config->getReadline()),
168 ];
169
170 if (isset($info['library_version'])) {
171 $readline['readline library'] = $info['library_version'];
172 }
173
174 if (isset($info['readline_name']) && $info['readline_name'] !== '') {
175 $readline['readline name'] = $info['readline_name'];
176 }
177 } else {
178 $readline = [
179 'readline available' => false,
180 ];
181 }
182
183 $pcntl = [
184 'pcntl available' => function_exists('pcntl_signal'),
185 'posix available' => function_exists('posix_getpid'),
186 ];
187
188 $disabledFuncs = array_map('trim', explode(',', ini_get('disable_functions')));
189 if (in_array('pcntl_signal', $disabledFuncs) || in_array('pcntl_fork', $disabledFuncs)) {
190 $pcntl['pcntl disabled'] = true;
191 }
192
193 $history = [
194 'history file' => $prettyPath($config->getHistoryFile()),
195 'history size' => $config->getHistorySize(),
196 'erase duplicates' => $config->getEraseDuplicates(),
197 ];
198
199 $docs = [
200 'manual db file' => $prettyPath($config->getManualDbFile()),
201 'sqlite available' => true,
202 ];
203
204 try {
205 if ($db = $config->getManualDb()) {
206 if ($q = $db->query('SELECT * FROM meta;')) {
207 $q->setFetchMode(\PDO::FETCH_KEY_PAIR);
208 $meta = $q->fetchAll();
209
210 foreach ($meta as $key => $val) {
211 switch ($key) {
212 case 'built_at':
213 $d = new \DateTime('@' . $val);
214 $val = $d->format(\DateTime::RFC2822);
215 break;
216 }
217 $key = 'db ' . str_replace('_', ' ', $key);
218 $docs[$key] = $val;
219 }
220 } else {
221 $docs['db schema'] = '0.1.0';
222 }
223 }
224 } catch (Exception\RuntimeException $e) {
225 if ($e->getMessage() === 'SQLite PDO driver not found') {
226 $docs['sqlite available'] = false;
227 } else {
228 throw $e;
229 }
230 }
231
232 $autocomplete = [
233 'tab completion enabled' => $config->useTabCompletion(),
234 'custom matchers' => array_map('get_class', $config->getTabCompletionMatchers()),
235 'bracketed paste' => $config->useBracketedPaste(),
236 ];
237
238 // Shenanigans, but totally justified.
239 if ($shell = Sudo::fetchProperty($config, 'shell')) {
240 $core['loop listeners'] = array_map('get_class', Sudo::fetchProperty($shell, 'loopListeners'));
241 $core['commands'] = array_map('get_class', $shell->all());
242
243 $autocomplete['custom matchers'] = array_map('get_class', Sudo::fetchProperty($shell, 'matchers'));
244 }
245
246 // @todo Show Presenter / custom casters.
247
248 return array_merge($core, compact('updates', 'pcntl', 'readline', 'history', 'docs', 'autocomplete'));
249 }
250 }
251
252 if (!function_exists('Psy\bin')) {
253 /**
254 * `psysh` command line executable.
255 *
256 * @return \Closure
257 */
258 function bin()
259 {
260 return function () {
261 $usageException = null;
262
263 $input = new ArgvInput();
264 try {
265 $input->bind(new InputDefinition([
266 new InputOption('help', 'h', InputOption::VALUE_NONE),
267 new InputOption('config', 'c', InputOption::VALUE_REQUIRED),
268 new InputOption('version', 'v', InputOption::VALUE_NONE),
269 new InputOption('cwd', null, InputOption::VALUE_REQUIRED),
270 new InputOption('color', null, InputOption::VALUE_NONE),
271 new InputOption('no-color', null, InputOption::VALUE_NONE),
272
273 new InputArgument('include', InputArgument::IS_ARRAY),
274 ]));
275 } catch (\RuntimeException $e) {
276 $usageException = $e;
277 }
278
279 $config = [];
280
281 // Handle --config
282 if ($configFile = $input->getOption('config')) {
283 $config['configFile'] = $configFile;
284 }
285
286 // Handle --color and --no-color
287 if ($input->getOption('color') && $input->getOption('no-color')) {
288 $usageException = new \RuntimeException('Using both "--color" and "--no-color" options is invalid');
289 } elseif ($input->getOption('color')) {
290 $config['colorMode'] = Configuration::COLOR_MODE_FORCED;
291 } elseif ($input->getOption('no-color')) {
292 $config['colorMode'] = Configuration::COLOR_MODE_DISABLED;
293 }
294
295 $shell = new Shell(new Configuration($config));
296
297 // Handle --help
298 if ($usageException !== null || $input->getOption('help')) {
299 if ($usageException !== null) {
300 echo $usageException->getMessage() . PHP_EOL . PHP_EOL;
301 }
302
303 $version = $shell->getVersion();
304 $name = basename(reset($_SERVER['argv']));
305 echo <<<EOL
306 $version
307
308 Usage:
309 $name [--version] [--help] [files...]
310
311 Options:
312 --help -h Display this help message.
313 --config -c Use an alternate PsySH config file location.
314 --cwd Use an alternate working directory.
315 --version -v Display the PsySH version.
316 --color Force colors in output.
317 --no-color Disable colors in output.
318
319 EOL;
320 exit($usageException === null ? 0 : 1);
321 }
322
323 // Handle --version
324 if ($input->getOption('version')) {
325 echo $shell->getVersion() . PHP_EOL;
326 exit(0);
327 }
328
329 // Pass additional arguments to Shell as 'includes'
330 $shell->setIncludes($input->getArgument('include'));
331
332 try {
333 // And go!
334 $shell->run();
335 } catch (\Exception $e) {
336 echo $e->getMessage() . PHP_EOL;
337
338 // @todo this triggers the "exited unexpectedly" logic in the
339 // ForkingLoop, so we can't exit(1) after starting the shell...
340 // fix this :)
341
342 // exit(1);
343 }
344 };
345 }
346 }