diff options
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/dquote_inline.h')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/dquote_inline.h | 67 |
1 files changed, 0 insertions, 67 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/dquote_inline.h b/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/dquote_inline.h deleted file mode 100644 index f0ce9d6280..0000000000 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/dquote_inline.h +++ /dev/null @@ -1,67 +0,0 @@ -/* dquote_inline.h - * - * Copyright (C) 2015 by Larry Wall and others - * - * You may distribute under the terms of either the GNU General Public - * License or the Artistic License, as specified in the README file. - */ - -#ifndef PERL_DQUOTE_INLINE_H_ /* Guard against nested #inclusion */ -#define PERL_DQUOTE_INLINE_H_ - -/* - - regcurly - a little FSA that accepts {\d+,?\d*} - Pulled from reg.c. - */ -PERL_STATIC_INLINE I32 -S_regcurly(const char *s) -{ - PERL_ARGS_ASSERT_REGCURLY; - - if (*s++ != '{') - return FALSE; - if (!isDIGIT(*s)) - return FALSE; - while (isDIGIT(*s)) - s++; - if (*s == ',') { - s++; - while (isDIGIT(*s)) - s++; - } - - return *s == '}'; -} - -/* This is inline not for speed, but because it is so tiny */ - -PERL_STATIC_INLINE char* -S_form_short_octal_warning(pTHX_ - const char * const s, /* Points to first non-octal */ - const STRLEN len /* Length of octals string, so - (s-len) points to first - octal */ -) -{ - /* Return a character string consisting of a warning message for when a - * string constant in octal is weird, like "\078". */ - - const char * sans_leading_zeros = s - len; - - PERL_ARGS_ASSERT_FORM_SHORT_OCTAL_WARNING; - - assert(*s == '8' || *s == '9'); - - /* Remove the leading zeros, retaining one zero so won't be zero length */ - while (*sans_leading_zeros == '0') sans_leading_zeros++; - if (sans_leading_zeros == s) { - sans_leading_zeros--; - } - - return Perl_form(aTHX_ - "'%.*s' resolved to '\\o{%.*s}%c'", - (int) (len + 2), s - len - 1, - (int) (s - sans_leading_zeros), sans_leading_zeros, - *s); -} -#endif /* PERL_DQUOTE_INLINE_H_ */ |