+#ifdef BOOTSTRAP_CHARSET
+static bool
+S_bootstrap_ctype(U8 character, UV classnum, bool full_Latin1)
+{
+ /* See comments in handy.h. This is placed in this file primarily to avoid
+ * having to have an entry for it in embed.fnc */
+
+ dTHX;
+
+ if (! full_Latin1 && ! isASCII(character)) {
+ return FALSE;
+ }
+
+ switch (classnum) {
+ case _CC_ALPHANUMERIC: return isALPHANUMERIC_L1(character);
+ case _CC_ALPHA: return isALPHA_L1(character);
+ case _CC_ASCII: return isASCII_L1(character);
+ case _CC_BLANK: return isBLANK_L1(character);
+ case _CC_CASED: return isLOWER_L1(character)
+ || isUPPER_L1(character);
+ case _CC_CNTRL: return isCNTRL_L1(character);
+ case _CC_DIGIT: return isDIGIT_L1(character);
+ case _CC_GRAPH: return isGRAPH_L1(character);
+ case _CC_LOWER: return isLOWER_L1(character);
+ case _CC_PRINT: return isPRINT_L1(character);
+ case _CC_PSXSPC: return isPSXSPC_L1(character);
+ case _CC_PUNCT: return isPUNCT_L1(character);
+ case _CC_SPACE: return isSPACE_L1(character);
+ case _CC_UPPER: return isUPPER_L1(character);
+ case _CC_WORDCHAR: return isWORDCHAR_L1(character);
+ case _CC_XDIGIT: return isXDIGIT_L1(character);
+ case _CC_VERTSPACE: return isSPACE_L1(character) && ! isBLANK_L1(character);
+ case _CC_IDFIRST: return isIDFIRST_L1(character);
+ case _CC_QUOTEMETA: return _isQUOTEMETA(character);
+ case _CC_CHARNAME_CONT: return isCHARNAME_CONT(character);
+ case _CC_NONLATIN1_FOLD: return _HAS_NONLATIN1_FOLD_CLOSURE_ONLY_FOR_USE_BY_REGCOMP_DOT_C_AND_REGEXEC_DOT_C(character);
+ case _CC_NON_FINAL_FOLD: return _IS_NON_FINAL_FOLD_ONLY_FOR_USE_BY_REGCOMP_DOT_C(character);
+ case _CC_IS_IN_SOME_FOLD: return _IS_IN_SOME_FOLD_ONLY_FOR_USE_BY_REGCOMP_DOT_C(character);
+ case _CC_BACKSLASH_FOO_LBRACE_IS_META: return 0;
+
+
+ default: break;
+ }
+ Perl_croak(aTHX_ "panic: bootstrap_ctype() has an unexpected character class '%"UVxf"'", classnum);
+}
+#endif
+