* but XS code may still explicitly use the long form, i.e.
* Perl_foo(aTHX_ ...)
*
+ * This file can't just be cleaned out periodically, because that would break
+ * builds with -DPERL_NO_SHORT_NAMES
+ *
* NOTE: ALL FUNCTIONS IN THIS FILE should have an entry with the 'b' flag in
* embed.fnc.
*
/*
=for apidoc_section $SV
-=for apidoc sv_iv
-
-A private implementation of the C<SvIVx> macro for compilers which can't
-cope with complex macro expressions. Always use the macro instead.
-
-=cut
-*/
-
-IV
-Perl_sv_iv(pTHX_ SV *sv)
-{
- PERL_ARGS_ASSERT_SV_IV;
-
- if (SvIOK(sv)) {
- if (SvIsUV(sv))
- return (IV)SvUVX(sv);
- return SvIVX(sv);
- }
- return sv_2iv(sv);
-}
-
-/*
-=for apidoc_section $SV
-=for apidoc sv_uv
-
-A private implementation of the C<SvUVx> macro for compilers which can't
-cope with complex macro expressions. Always use the macro instead.
-
-=cut
-*/
-
-UV
-Perl_sv_uv(pTHX_ SV *sv)
-{
- PERL_ARGS_ASSERT_SV_UV;
-
- if (SvIOK(sv)) {
- if (SvIsUV(sv))
- return SvUVX(sv);
- return (UV)SvIVX(sv);
- }
- return sv_2uv(sv);
-}
-
-/*
-=for apidoc_section $SV
-=for apidoc sv_nv
-
-A private implementation of the C<SvNVx> macro for compilers which can't
-cope with complex macro expressions. Always use the macro instead.
-
-=cut
-*/
-
-NV
-Perl_sv_nv(pTHX_ SV *sv)
-{
- PERL_ARGS_ASSERT_SV_NV;
-
- if (SvNOK(sv))
- return SvNVX(sv);
- return sv_2nv(sv);
-}
-
-/*
-=for apidoc_section $SV
=for apidoc sv_pv
Use the C<SvPV_nolen> macro instead
-=for apidoc_section $SV
-=for apidoc sv_pvn
-
-A private implementation of the C<SvPV> macro for compilers which can't
-cope with complex macro expressions. Always use the macro instead.
-
=cut
*/
-char *
-Perl_sv_pvn(pTHX_ SV *sv, STRLEN *lp)
-{
- PERL_ARGS_ASSERT_SV_PVN;
-
- if (SvPOK(sv)) {
- *lp = SvCUR(sv);
- return SvPVX(sv);
- }
- return sv_2pv(sv, lp);
-}
-
-
-char *
-Perl_sv_pvn_nomg(pTHX_ SV *sv, STRLEN *lp)
-{
- PERL_ARGS_ASSERT_SV_PVN_NOMG;
-
- if (SvPOK(sv)) {
- *lp = SvCUR(sv);
- return SvPVX(sv);
- }
- return sv_2pv_flags(sv, lp, 0);
-}
-
/* sv_pv() is now a macro using SvPV_nolen();
* this function provided for binary compatibility only
*/
{
PERL_ARGS_ASSERT_SV_PVBYTE;
- sv_utf8_downgrade(sv, FALSE);
+ (void)sv_utf8_downgrade(sv, FALSE);
return sv_pv(sv);
}
Use C<SvPVbyte_nolen> instead.
-=for apidoc sv_pvbyten
-
-A private implementation of the C<SvPVbyte> macro for compilers
-which can't cope with complex macro expressions. Always use the macro
-instead.
-
=cut
*/
-char *
-Perl_sv_pvbyten(pTHX_ SV *sv, STRLEN *lp)
-{
- PERL_ARGS_ASSERT_SV_PVBYTEN;
-
- sv_utf8_downgrade(sv, FALSE);
- return sv_pvn(sv,lp);
-}
-
-/* sv_pvutf8 () is now a macro using Perl_sv_2pv_flags();
- * this function provided for binary compatibility only
- */
-
-char *
-Perl_sv_pvutf8(pTHX_ SV *sv)
-{
- PERL_ARGS_ASSERT_SV_PVUTF8;
-
- sv_utf8_upgrade(sv);
- return sv_pv(sv);
-}
-
/*
=for apidoc_section $SV
=for apidoc sv_pvutf8
Use the C<SvPVutf8_nolen> macro instead
-=for apidoc sv_pvutf8n
-
-A private implementation of the C<SvPVutf8> macro for compilers
-which can't cope with complex macro expressions. Always use the macro
-instead.
-
=cut
*/
+
char *
-Perl_sv_pvutf8n(pTHX_ SV *sv, STRLEN *lp)
+Perl_sv_pvutf8(pTHX_ SV *sv)
{
- PERL_ARGS_ASSERT_SV_PVUTF8N;
+ PERL_ARGS_ASSERT_SV_PVUTF8;
sv_utf8_upgrade(sv);
- return sv_pvn(sv,lp);
+ return sv_pv(sv);
}
/* sv_utf8_upgrade() is now a macro using sv_utf8_upgrade_flags();
return sv_utf8_upgrade_flags(sv, SV_GMAGIC);
}
-int
-Perl_fprintf_nocontext(PerlIO *stream, const char *format, ...)
-{
- int ret = 0;
- va_list arglist;
-
- /* Easier to special case this here than in embed.pl. (Look at what it
- generates for proto.h) */
-#ifdef MULTIPLICITY
- PERL_ARGS_ASSERT_FPRINTF_NOCONTEXT;
-#endif
-
- va_start(arglist, format);
- ret = PerlIO_vprintf(stream, format, arglist);
- va_end(arglist);
- return ret;
-}
-
-int
-Perl_printf_nocontext(const char *format, ...)
-{
- dTHX;
- va_list arglist;
- int ret = 0;
-
-#ifdef MULTIPLICITY
- PERL_ARGS_ASSERT_PRINTF_NOCONTEXT;
-#endif
-
- va_start(arglist, format);
- ret = PerlIO_vprintf(PerlIO_stdout(), format, arglist);
- va_end(arglist);
- return ret;
-}
-
#if defined(HUGE_VAL) || (defined(USE_LONG_DOUBLE) && defined(HUGE_VALL))
/*
* This hack is to force load of "huge" support from libm.a
}
#endif
-/* compatibility with versions <= 5.003. */
-void
-Perl_gv_fullname(pTHX_ SV *sv, const GV *gv)
-{
- PERL_ARGS_ASSERT_GV_FULLNAME;
-
- gv_fullname3(sv, gv, sv == (const SV*)gv ? "*" : "");
-}
-
-/* compatibility with versions <= 5.003. */
-void
-Perl_gv_efullname(pTHX_ SV *sv, const GV *gv)
-{
- PERL_ARGS_ASSERT_GV_EFULLNAME;
-
- gv_efullname3(sv, gv, sv == (const SV*)gv ? "*" : "");
-}
-
void
Perl_gv_fullname3(pTHX_ SV *sv, const GV *gv, const char *prefix)
{
supplied_fp, (SV **) NULL, 0);
}
-bool
-Perl_do_open9(pTHX_ GV *gv, const char *name, I32 len, int
-as_raw,
- int rawmode, int rawperm, PerlIO *supplied_fp, SV *svs,
- I32 num_svs)
-{
- PERL_ARGS_ASSERT_DO_OPEN9;
-
- PERL_UNUSED_ARG(num_svs);
- return do_openn(gv, name, len, as_raw, rawmode, rawperm,
- supplied_fp, &svs, 1);
-}
-
-int
-Perl_do_binmode(pTHX_ PerlIO *fp, int iotype, int mode)
-{
- /* The old body of this is now in non-LAYER part of perlio.c
- * This is a stub for any XS code which might have been calling it.
- */
- const char *name = ":raw";
-
- PERL_ARGS_ASSERT_DO_BINMODE;
-
-#ifdef PERLIO_USING_CRLF
- if (!(mode & O_BINARY))
- name = ":crlf";
-#endif
- return PerlIO_binmode(aTHX_ fp, iotype, mode, name);
-}
-
#ifndef OS2
bool
Perl_do_aexec(pTHX_ SV *really, SV **mark, SV **sp)
}
#endif
-/* Backwards compatibility. */
-int
-Perl_init_i18nl14n(pTHX_ int printwarn)
-{
- return init_i18nl10n(printwarn);
-}
-
bool
Perl_is_utf8_string_loc(const U8 *s, const STRLEN len, const U8 **ep)
{
}
void
-Perl_save_long(pTHX_ long int *longp)
-{
- PERL_ARGS_ASSERT_SAVE_LONG;
-
- SSCHECK(3);
- SSPUSHLONG(*longp);
- SSPUSHPTR(longp);
- SSPUSHUV(SAVEt_LONG);
-}
-
-void
-Perl_save_nogv(pTHX_ GV *gv)
-{
- PERL_ARGS_ASSERT_SAVE_NOGV;
-
- SSCHECK(2);
- SSPUSHPTR(gv);
- SSPUSHUV(SAVEt_NSTAB);
-}
-
-void
-Perl_save_list(pTHX_ SV **sarg, I32 maxsarg)
-{
- I32 i;
-
- PERL_ARGS_ASSERT_SAVE_LIST;
-
- for (i = 1; i <= maxsarg; i++) {
- SV *sv;
- SvGETMAGIC(sarg[i]);
- sv = newSV(0);
- sv_setsv_nomg(sv,sarg[i]);
- SSCHECK(3);
- SSPUSHPTR(sarg[i]); /* remember the pointer */
- SSPUSHPTR(sv); /* remember the value */
- SSPUSHUV(SAVEt_ITEM);
- }
-}
-
-/*
-=for apidoc_section $SV
-=for apidoc sv_usepvn_mg
-
-Like C<sv_usepvn>, but also handles 'set' magic.
-
-=cut
-*/
-
-void
Perl_sv_usepvn_mg(pTHX_ SV *sv, char *ptr, STRLEN len)
{
PERL_ARGS_ASSERT_SV_USEPVN_MG;
sv_usepvn_flags(sv,ptr,len, SV_SMAGIC);
}
-/*
-=for apidoc_section $SV
-=for apidoc sv_usepvn
-
-Tells an SV to use C<ptr> to find its string value. Implemented by
-calling C<sv_usepvn_flags> with C<flags> of 0, hence does not handle 'set'
-magic. See C<L</sv_usepvn_flags>>.
-
-=cut
-*/
void
Perl_sv_usepvn(pTHX_ SV *sv, char *ptr, STRLEN len)
sv_usepvn_flags(sv,ptr,len, 0);
}
-/*
-=for apidoc_section $pack
-=for apidoc unpack_str
-
-The engine implementing C<unpack()> Perl function. Note: parameters C<strbeg>,
-C<new_s> and C<ocnt> are not used. This call should not be used, use
-C<unpackstring> instead.
-
-=cut */
-
-SSize_t
-Perl_unpack_str(pTHX_ const char *pat, const char *patend, const char *s,
- const char *strbeg, const char *strend, char **new_s, I32 ocnt,
- U32 flags)
-{
- PERL_ARGS_ASSERT_UNPACK_STR;
-
- PERL_UNUSED_ARG(strbeg);
- PERL_UNUSED_ARG(new_s);
- PERL_UNUSED_ARG(ocnt);
-
- return unpackstring(pat, patend, s, strend, flags);
-}
-
-/*
-=for apidoc_section $pack
-=for apidoc pack_cat
-
-The engine implementing C<pack()> Perl function. Note: parameters
-C<next_in_list> and C<flags> are not used. This call should not be used; use
-C<L</packlist>> instead.
-
-=cut
-*/
-
-void
-Perl_pack_cat(pTHX_ SV *cat, const char *pat, const char *patend, SV **beglist, SV **endlist, SV ***next_in_list, U32 flags)
-{
- PERL_ARGS_ASSERT_PACK_CAT;
-
- PERL_UNUSED_ARG(next_in_list);
- PERL_UNUSED_ARG(flags);
-
- packlist(cat, pat, patend, beglist, endlist);
-}
-
HE *
Perl_hv_store_ent(pTHX_ HV *hv, SV *keysv, SV *val, U32 hash)
{
return sv_collxfrm_flags(sv, nxp, SV_GMAGIC);
}
-char *
-Perl_mem_collxfrm(pTHX_ const char *input_string, STRLEN len, STRLEN *xlen)
-{
- /* This function is retained for compatibility in case someone outside core
- * is using this (but it is undocumented) */
-
- PERL_ARGS_ASSERT_MEM_COLLXFRM;
-
- return _mem_collxfrm(input_string, len, xlen, FALSE);
-}
-
#endif
bool
return sv_2bool_flags(sv, SV_GMAGIC);
}
-
-/*
-=for apidoc_section $custom
-=for apidoc custom_op_name
-Return the name for a given custom op. This was once used by the C<OP_NAME>
-macro, but is no longer: it has only been kept for compatibility, and
-should not be used.
-
-=for apidoc custom_op_desc
-Return the description of a given custom op. This was once used by the
-C<OP_DESC> macro, but is no longer: it has only been kept for
-compatibility, and should not be used.
-
-=cut
-*/
-
-const char*
-Perl_custom_op_name(pTHX_ const OP* o)
-{
- PERL_ARGS_ASSERT_CUSTOM_OP_NAME;
- return XopENTRYCUSTOM(o, xop_name);
-}
-
-const char*
-Perl_custom_op_desc(pTHX_ const OP* o)
-{
- PERL_ARGS_ASSERT_CUSTOM_OP_DESC;
- return XopENTRYCUSTOM(o, xop_desc);
-}
-
CV *
Perl_newSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *block)
{
sv_copypv_flags(dsv, ssv, SV_GMAGIC);
}
-UV /* Made into a function, so can be deprecated */
-NATIVE_TO_NEED(const UV enc, const UV ch)
-{
- PERL_UNUSED_ARG(enc);
- return ch;
-}
-
-UV /* Made into a function, so can be deprecated */
-ASCII_TO_NEED(const UV enc, const UV ch)
-{
- PERL_UNUSED_ARG(enc);
- return ch;
-}
-
-/*
-=for apidoc_section $unicode
-=for apidoc is_utf8_char
-
-Tests if some arbitrary number of bytes begins in a valid UTF-8
-character. Note that an INVARIANT (i.e. ASCII on non-EBCDIC machines)
-character is a valid UTF-8 character. The actual number of bytes in the UTF-8
-character will be returned if it is valid, otherwise 0.
-
-This function is deprecated due to the possibility that malformed input could
-cause reading beyond the end of the input buffer. Use L</isUTF8_CHAR>
-instead.
-
-=cut */
-
-STRLEN
-Perl_is_utf8_char(const U8 *s)
-{
- PERL_ARGS_ASSERT_IS_UTF8_CHAR;
-
- /* Assumes we have enough space, which is why this is deprecated. But the
- * UTF8_CHK_SKIP(s)) makes it safe for the common case of NUL-terminated
- * strings */
- return isUTF8_CHAR(s, s + UTF8_CHK_SKIP(s));
-}
-
/*
=for apidoc_section $unicode
=for apidoc is_utf8_char_buf
return isUTF8_CHAR(buf, buf_end);
}
-/* DEPRECATED!
- * Like L</utf8_to_uvuni_buf>(), but should only be called when it is known that
- * there are no malformations in the input UTF-8 string C<s>. Surrogates,
- * non-character code points, and non-Unicode code points are allowed */
-
-UV
-Perl_valid_utf8_to_uvuni(pTHX_ const U8 *s, STRLEN *retlen)
-{
- PERL_UNUSED_CONTEXT;
- PERL_ARGS_ASSERT_VALID_UTF8_TO_UVUNI;
-
- return NATIVE_TO_UNI(valid_utf8_to_uvchr(s, retlen));
-}
-
/*
=for apidoc_section $unicode
=for apidoc utf8_to_uvuni
malformed input could cause reading beyond the end of the input buffer, which
is one reason why this function is deprecated. The other is that only in
extremely limited circumstances should the Unicode versus native code point be
-of any interest to you. See L</utf8_to_uvuni_buf> for alternatives.
+of any interest to you.
If C<s> points to one of the detected malformations, and UTF8 warnings are
enabled, zero is returned and C<*retlen> is set (if C<retlen> doesn't point to
return NATIVE_TO_UNI(valid_utf8_to_uvchr(s, retlen));
}
-/*
-=for apidoc_section $pad
-=for apidoc pad_compname_type
-
-Looks up the type of the lexical variable at position C<po> in the
-currently-compiling pad. If the variable is typed, the stash of the
-class to which it is typed is returned. If not, C<NULL> is returned.
-
-Use L<perlintern/C<PAD_COMPNAME_TYPE>> instead.
-
-=cut
-*/
-
-HV *
-Perl_pad_compname_type(pTHX_ const PADOFFSET po)
-{
- return PAD_COMPNAME_TYPE(po);
-}
-
/* return ptr to little string in big string, NULL if not found */
/* The original version of this routine was donated by Corey Satten. */
/*
=for apidoc_section $unicode
-=for apidoc uvuni_to_utf8_flags
-
-Instead you almost certainly want to use L<perlapi/uvchr_to_utf8> or
-L<perlapi/uvchr_to_utf8_flags>.
-
-This function is a deprecated synonym for L</uvoffuni_to_utf8_flags>,
-which itself, while not deprecated, should be used only in isolated
-circumstances. These functions were useful for code that wanted to handle
-both EBCDIC and ASCII platforms with Unicode properties, but starting in Perl
-v5.20, the distinctions between the platforms have mostly been made invisible
-to most code, so this function is quite unlikely to be what you want.
-
-=cut
-*/
-
-U8 *
-Perl_uvuni_to_utf8_flags(pTHX_ U8 *d, UV uv, UV flags)
-{
- PERL_ARGS_ASSERT_UVUNI_TO_UTF8_FLAGS;
-
- return uvoffuni_to_utf8_flags(d, uv, flags);
-}
-
-/*
-=for apidoc_section $unicode
=for apidoc utf8_to_uvchr
Returns the native code point of the first character in the string C<s>
https://perl5.git.perl.org / perl5.git / blobdiff