69 lines
2.4 KiB
PHP
69 lines
2.4 KiB
PHP
|
<?php declare(strict_types=1);
|
||
|
|
|
||
|
|
namespace PhpParser;
|
||
|
|
|
||
|
|
if (!\function_exists('PhpParser\defineCompatibilityTokens')) {
|
||
|
|
function defineCompatibilityTokens(): void {
|
||
|
|
$compatTokens = [
|
||
|
|
// PHP 8.0
|
||
|
|
'T_NAME_QUALIFIED',
|
||
|
|
'T_NAME_FULLY_QUALIFIED',
|
||
|
|
'T_NAME_RELATIVE',
|
||
|
|
'T_MATCH',
|
||
|
|
'T_NULLSAFE_OBJECT_OPERATOR',
|
||
|
|
'T_ATTRIBUTE',
|
||
|
|
// PHP 8.1
|
||
|
|
'T_ENUM',
|
||
|
|
'T_AMPERSAND_NOT_FOLLOWED_BY_VAR_OR_VARARG',
|
||
|
|
'T_AMPERSAND_FOLLOWED_BY_VAR_OR_VARARG',
|
||
|
|
'T_READONLY',
|
||
|
|
// PHP 8.4
|
||
|
|
'T_PROPERTY_C',
|
||
|
|
'T_PUBLIC_SET',
|
||
|
|
'T_PROTECTED_SET',
|
||
|
|
'T_PRIVATE_SET',
|
||
|
|
];
|
||
|
|
|
||
|
|
// PHP-Parser might be used together with another library that also emulates some or all
|
||
|
|
// of these tokens. Perform a sanity-check that all already defined tokens have been
|
||
|
|
// assigned a unique ID.
|
||
|
|
$usedTokenIds = [];
|
||
|
|
foreach ($compatTokens as $token) {
|
||
|
|
if (\defined($token)) {
|
||
|
|
$tokenId = \constant($token);
|
||
|
|
if (!\is_int($tokenId)) {
|
||
|
|
throw new \Error(sprintf(
|
||
|
|
'Token %s has ID of type %s, should be int. ' .
|
||
|
|
'You may be using a library with broken token emulation',
|
||
|
|
$token, \gettype($tokenId)
|
||
|
|
));
|
||
|
|
}
|
||
|
|
$clashingToken = $usedTokenIds[$tokenId] ?? null;
|
||
|
|
if ($clashingToken !== null) {
|
||
|
|
throw new \Error(sprintf(
|
||
|
|
'Token %s has same ID as token %s, ' .
|
||
|
|
'you may be using a library with broken token emulation',
|
||
|
|
$token, $clashingToken
|
||
|
|
));
|
||
|
|
}
|
||
|
|
$usedTokenIds[$tokenId] = $token;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
// Now define any tokens that have not yet been emulated. Try to assign IDs from -1
|
||
|
|
// downwards, but skip any IDs that may already be in use.
|
||
|
|
$newTokenId = -1;
|
||
|
|
foreach ($compatTokens as $token) {
|
||
|
|
if (!\defined($token)) {
|
||
|
|
while (isset($usedTokenIds[$newTokenId])) {
|
||
|
|
$newTokenId--;
|
||
|
|
}
|
||
|
|
\define($token, $newTokenId);
|
||
|
|
$newTokenId--;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
defineCompatibilityTokens();
|
||
|
|
}
|