feature.h

   1 /* -*- buffer-read-only: t -*-
   2    !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
   3    This file is built by regen/feature.pl.
   4    Any changes made here will be lost!
   5  */
   6
   7
   8 #ifndef PERL_FEATURE_H_
   9 #define PERL_FEATURE_H_
  10
  11 #if defined(PERL_CORE) || defined (PERL_EXT)
  12
  13 #define HINT_FEATURE_SHIFT      26
  14
  15 #define FEATURE_BITWISE_BIT         0x0001
  16 #define FEATURE___SUB___BIT         0x0002
  17 #define FEATURE_MYREF_BIT           0x0004
  18 #define FEATURE_EVALBYTES_BIT       0x0008
  19 #define FEATURE_FC_BIT              0x0010
  20 #define FEATURE_POSTDEREF_QQ_BIT    0x0020
  21 #define FEATURE_REFALIASING_BIT     0x0040
  22 #define FEATURE_SAY_BIT             0x0080
  23 #define FEATURE_SIGNATURES_BIT      0x0100
  24 #define FEATURE_STATE_BIT           0x0200
  25 #define FEATURE_SWITCH_BIT          0x0400
  26 #define FEATURE_UNIEVAL_BIT         0x0800
  27 #define FEATURE_UNICODE_BIT         0x1000
  28
  29 #define FEATURE_BUNDLE_DEFAULT  0
  30 #define FEATURE_BUNDLE_510      1
  31 #define FEATURE_BUNDLE_511      2
  32 #define FEATURE_BUNDLE_515      3
  33 #define FEATURE_BUNDLE_523      4
  34 #define FEATURE_BUNDLE_527      5
  35 #define FEATURE_BUNDLE_CUSTOM   (HINT_FEATURE_MASK >> HINT_FEATURE_SHIFT)
  36
  37 #define CURRENT_HINTS \
  38     (PL_curcop == &PL_compiling ? PL_hints : PL_curcop->cop_hints)
  39 #define CURRENT_FEATURE_BUNDLE \
  40     ((CURRENT_HINTS & HINT_FEATURE_MASK) >> HINT_FEATURE_SHIFT)
  41
  42 #define FEATURE_IS_ENABLED_MASK(mask)                   \
  43   ((CURRENT_HINTS & HINT_LOCALIZE_HH)                \
  44     ? (PL_curcop->cop_features & (mask)) : FALSE)
  45
  46 /* The longest string we pass in.  */
  47 #define MAX_FEATURE_LEN (sizeof("postderef_qq")-1)
  48
  49 #define FEATURE_FC_IS_ENABLED \
  50     ( \
  51         (CURRENT_FEATURE_BUNDLE >= FEATURE_BUNDLE_515 && \
  52          CURRENT_FEATURE_BUNDLE <= FEATURE_BUNDLE_527) \
  53      || (CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
  54          FEATURE_IS_ENABLED_MASK(FEATURE_FC_BIT)) \
  55     )
  56
  57 #define FEATURE_SAY_IS_ENABLED \
  58     ( \
  59         (CURRENT_FEATURE_BUNDLE >= FEATURE_BUNDLE_510 && \
  60          CURRENT_FEATURE_BUNDLE <= FEATURE_BUNDLE_527) \
  61      || (CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
  62          FEATURE_IS_ENABLED_MASK(FEATURE_SAY_BIT)) \
  63     )
  64
  65 #define FEATURE_STATE_IS_ENABLED \
  66     ( \
  67         (CURRENT_FEATURE_BUNDLE >= FEATURE_BUNDLE_510 && \
  68          CURRENT_FEATURE_BUNDLE <= FEATURE_BUNDLE_527) \
  69      || (CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
  70          FEATURE_IS_ENABLED_MASK(FEATURE_STATE_BIT)) \
  71     )
  72
  73 #define FEATURE_SWITCH_IS_ENABLED \
  74     ( \
  75         (CURRENT_FEATURE_BUNDLE >= FEATURE_BUNDLE_510 && \
  76          CURRENT_FEATURE_BUNDLE <= FEATURE_BUNDLE_527) \
  77      || (CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
  78          FEATURE_IS_ENABLED_MASK(FEATURE_SWITCH_BIT)) \
  79     )
  80
  81 #define FEATURE_BITWISE_IS_ENABLED \
  82     ( \
  83         CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_527 \
  84      || (CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
  85          FEATURE_IS_ENABLED_MASK(FEATURE_BITWISE_BIT)) \
  86     )
  87
  88 #define FEATURE_EVALBYTES_IS_ENABLED \
  89     ( \
  90         (CURRENT_FEATURE_BUNDLE >= FEATURE_BUNDLE_515 && \
  91          CURRENT_FEATURE_BUNDLE <= FEATURE_BUNDLE_527) \
  92      || (CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
  93          FEATURE_IS_ENABLED_MASK(FEATURE_EVALBYTES_BIT)) \
  94     )
  95
  96 #define FEATURE_SIGNATURES_IS_ENABLED \
  97     ( \
  98         CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
  99          FEATURE_IS_ENABLED_MASK(FEATURE_SIGNATURES_BIT) \
 100     )
 101
 102 #define FEATURE___SUB___IS_ENABLED \
 103     ( \
 104         (CURRENT_FEATURE_BUNDLE >= FEATURE_BUNDLE_515 && \
 105          CURRENT_FEATURE_BUNDLE <= FEATURE_BUNDLE_527) \
 106      || (CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
 107          FEATURE_IS_ENABLED_MASK(FEATURE___SUB___BIT)) \
 108     )
 109
 110 #define FEATURE_REFALIASING_IS_ENABLED \
 111     ( \
 112         CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
 113          FEATURE_IS_ENABLED_MASK(FEATURE_REFALIASING_BIT) \
 114     )
 115
 116 #define FEATURE_POSTDEREF_QQ_IS_ENABLED \
 117     ( \
 118         (CURRENT_FEATURE_BUNDLE >= FEATURE_BUNDLE_523 && \
 119          CURRENT_FEATURE_BUNDLE <= FEATURE_BUNDLE_527) \
 120      || (CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
 121          FEATURE_IS_ENABLED_MASK(FEATURE_POSTDEREF_QQ_BIT)) \
 122     )
 123
 124 #define FEATURE_UNIEVAL_IS_ENABLED \
 125     ( \
 126         (CURRENT_FEATURE_BUNDLE >= FEATURE_BUNDLE_515 && \
 127          CURRENT_FEATURE_BUNDLE <= FEATURE_BUNDLE_527) \
 128      || (CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
 129          FEATURE_IS_ENABLED_MASK(FEATURE_UNIEVAL_BIT)) \
 130     )
 131
 132 #define FEATURE_MYREF_IS_ENABLED \
 133     ( \
 134         CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
 135          FEATURE_IS_ENABLED_MASK(FEATURE_MYREF_BIT) \
 136     )
 137
 138 #define FEATURE_UNICODE_IS_ENABLED \
 139     ( \
 140         (CURRENT_FEATURE_BUNDLE >= FEATURE_BUNDLE_511 && \
 141          CURRENT_FEATURE_BUNDLE <= FEATURE_BUNDLE_527) \
 142      || (CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
 143          FEATURE_IS_ENABLED_MASK(FEATURE_UNICODE_BIT)) \
 144     )
 145
 146
 147 #define SAVEFEATUREBITS() SAVEI32(PL_compiling.cop_features)
 148
 149 #define CLEARFEATUREBITS() (PL_compiling.cop_features = 0)
 150
 151 #define STOREFEATUREBITSHH(hh) \
 152   (hv_stores((hh), "feature/bits", newSVuv(PL_compiling.cop_features)))
 153
 154 #define FETCHFEATUREBITSHH(hh)                              \
 155   STMT_START {                                              \
 156       SV **fbsv = hv_fetchs((hh), "feature/bits", FALSE);   \
 157       PL_compiling.cop_features = fbsv ? SvUV(*fbsv) : 0;   \
 158   } STMT_END
 159
 160 #endif /* PERL_CORE or PERL_EXT */
 161
 162 #ifdef PERL_IN_OP_C
 163 PERL_STATIC_INLINE void
 164 S_enable_feature_bundle(pTHX_ SV *ver)
 165 {
 166     SV *comp_ver = sv_newmortal();
 167     PL_hints = (PL_hints &~ HINT_FEATURE_MASK)
 168              | (
 169                   (sv_setnv(comp_ver, 5.027),
 170                    vcmp(ver, upg_version(comp_ver, FALSE)) >= 0)
 171                         ? FEATURE_BUNDLE_527 :
 172                   (sv_setnv(comp_ver, 5.023),
 173                    vcmp(ver, upg_version(comp_ver, FALSE)) >= 0)
 174                         ? FEATURE_BUNDLE_523 :
 175                   (sv_setnv(comp_ver, 5.015),
 176                    vcmp(ver, upg_version(comp_ver, FALSE)) >= 0)
 177                         ? FEATURE_BUNDLE_515 :
 178                   (sv_setnv(comp_ver, 5.011),
 179                    vcmp(ver, upg_version(comp_ver, FALSE)) >= 0)
 180                         ? FEATURE_BUNDLE_511 :
 181                   (sv_setnv(comp_ver, 5.009005),
 182                    vcmp(ver, upg_version(comp_ver, FALSE)) >= 0)
 183                         ? FEATURE_BUNDLE_510 :
 184                           FEATURE_BUNDLE_DEFAULT
 185                ) << HINT_FEATURE_SHIFT;
 186     /* special case */
 187     assert(PL_curcop == &PL_compiling);
 188     if (FEATURE_UNICODE_IS_ENABLED) PL_hints |=  HINT_UNI_8_BIT;
 189     else                            PL_hints &= ~HINT_UNI_8_BIT;
 190 }
 191 #endif /* PERL_IN_OP_C */
 192
 193 #endif /* PERL_FEATURE_H_ */
 194
 195 /* ex: set ro: */