* hand to hand were of that sort."
*/
+#ifndef NO_MATHOMS
+
/*
* This file contains mathoms, various binary artifacts from previous
* versions of Perl. For binary or source compatibility reasons, though,
#define PERL_IN_MATHOMS_C
#include "perl.h"
+void Perl_mathoms(void) {}
+
/* ref() is now a macro using Perl_doref;
* this version provided for binary compatibility only.
*/
return sv_utf8_upgrade_flags(sv, SV_GMAGIC);
}
-/*
-=for apidoc A|U8 *|uvchr_to_utf8|U8 *d|UV uv
-
-Adds the UTF-8 representation of the Native codepoint C<uv> to the end
-of the string C<d>; C<d> should be have at least C<UTF8_MAXBYTES+1> free
-bytes available. The return value is the pointer to the byte after the
-end of the new character. In other words,
-
- d = uvchr_to_utf8(d, uv);
-
-is the recommended wide native character-aware way of saying
-
- *(d++) = uv;
-
-=cut
-*/
-
-/* On ASCII machines this is normally a macro but we want a
- real function in case XS code wants it
-*/
-#undef Perl_uvchr_to_utf8
-U8 *
-Perl_uvchr_to_utf8(pTHX_ U8 *d, UV uv)
-{
- return Perl_uvuni_to_utf8_flags(aTHX_ d, NATIVE_TO_UNI(uv), 0);
-}
-
-
-/*
-=for apidoc A|UV|utf8n_to_uvchr|U8 *s|STRLEN curlen|STRLEN *retlen|U32
-flags
-
-Returns the native character value of the first character in the string
-C<s>
-which is assumed to be in UTF-8 encoding; C<retlen> will be set to the
-length, in bytes, of that character.
-
-Allows length and flags to be passed to low level routine.
-
-=cut
-*/
-/* On ASCII machines this is normally a macro but we want
- a real function in case XS code wants it
-*/
-#undef Perl_utf8n_to_uvchr
-UV
-Perl_utf8n_to_uvchr(pTHX_ const U8 *s, STRLEN curlen, STRLEN *retlen,
-U32 flags)
-{
- const UV uv = Perl_utf8n_to_uvuni(aTHX_ s, curlen, retlen, flags);
- return UNI_TO_NATIVE(uv);
-}
int
Perl_fprintf_nocontext(PerlIO *stream, const char *format, ...)
{
DIE(aTHX_ "panic: mapstart"); /* uses grepstart */
}
+/* These ops all have the same body as pp_null. */
+PP(pp_scalar)
+{
+ return NORMAL;
+}
+
+PP(pp_regcmaybe)
+{
+ return NORMAL;
+}
+
+PP(pp_lineseq)
+{
+ return NORMAL;
+}
+
+PP(pp_scope)
+{
+ return NORMAL;
+}
+
+/* Ops that are calls to do_kv. */
+PP(pp_values)
+{
+ return do_kv();
+}
+
+PP(pp_keys)
+{
+ return do_kv();
+}
+
+/* Ops that are simply calls to other ops. */
+PP(pp_dump)
+{
+ return pp_goto();
+ /*NOTREACHED*/
+}
+
+PP(pp_dofile)
+{
+ return pp_require();
+}
+
+PP(pp_dbmclose)
+{
+ return pp_untie();
+}
+
+PP(pp_read)
+{
+ return pp_sysread();
+}
+
+PP(pp_recv)
+{
+ return pp_sysread();
+}
+
+PP(pp_seek)
+{
+ return pp_sysseek();
+}
+
+PP(pp_fcntl)
+{
+ return pp_ioctl();
+}
+
+PP(pp_gsockopt)
+{
+ return pp_ssockopt();
+}
+
+PP(pp_getsockname)
+{
+ return pp_getpeername();
+}
+
+PP(pp_lstat)
+{
+ return pp_stat();
+}
+
+PP(pp_fteowned)
+{
+ return pp_ftrowned();
+}
+
+PP(pp_ftbinary)
+{
+ return pp_fttext();
+}
+
+PP(pp_localtime)
+{
+ return pp_gmtime();
+}
+
+PP(pp_shmget)
+{
+ return pp_semget();
+}
+
+PP(pp_shmctl)
+{
+ return pp_semctl();
+}
+
+PP(pp_shmread)
+{
+ return pp_shmwrite();
+}
+
+PP(pp_msgget)
+{
+ return pp_semget();
+}
+
+PP(pp_msgctl)
+{
+ return pp_semctl();
+}
+
+PP(pp_ghbyname)
+{
+ return pp_ghostent();
+}
+
+PP(pp_ghbyaddr)
+{
+ return pp_ghostent();
+}
+
+PP(pp_gnbyname)
+{
+ return pp_gnetent();
+}
+
+PP(pp_gnbyaddr)
+{
+ return pp_gnetent();
+}
+
+PP(pp_gpbyname)
+{
+ return pp_gprotoent();
+}
+
+PP(pp_gpbynumber)
+{
+ return pp_gprotoent();
+}
+
+PP(pp_gsbyname)
+{
+ return pp_gservent();
+}
+
+PP(pp_gsbyport)
+{
+ return pp_gservent();
+}
+
+PP(pp_gpwnam)
+{
+ return pp_gpwent();
+}
+
+PP(pp_gpwuid)
+{
+ return pp_gpwent();
+}
+
+PP(pp_ggrnam)
+{
+ return pp_ggrent();
+}
+
+PP(pp_ggrgid)
+{
+ return pp_ggrent();
+}
+
+PP(pp_ftsize)
+{
+ return pp_ftis();
+}
+
+PP(pp_ftmtime)
+{
+ return pp_ftis();
+}
+
+PP(pp_ftatime)
+{
+ return pp_ftis();
+}
+
+PP(pp_ftctime)
+{
+ return pp_ftis();
+}
+
+PP(pp_ftzero)
+{
+ return pp_ftrowned();
+}
+
+PP(pp_ftsock)
+{
+ return pp_ftrowned();
+}
+
+PP(pp_ftchr)
+{
+ return pp_ftrowned();
+}
+
+PP(pp_ftblk)
+{
+ return pp_ftrowned();
+}
+
+PP(pp_ftfile)
+{
+ return pp_ftrowned();
+}
+
+PP(pp_ftdir)
+{
+ return pp_ftrowned();
+}
+
+PP(pp_ftpipe)
+{
+ return pp_ftrowned();
+}
+
+PP(pp_ftsuid)
+{
+ return pp_ftrowned();
+}
+
+PP(pp_ftsgid)
+{
+ return pp_ftrowned();
+}
+
+PP(pp_ftsvtx)
+{
+ return pp_ftrowned();
+}
+
+PP(pp_unlink)
+{
+ return pp_chown();
+}
+
+PP(pp_chmod)
+{
+ return pp_chown();
+}
+
+PP(pp_utime)
+{
+ return pp_chown();
+}
+
+PP(pp_kill)
+{
+ return pp_chown();
+}
+
+PP(pp_symlink)
+{
+ return pp_link();
+}
+
+PP(pp_ftrwrite)
+{
+ return pp_ftrread();
+}
+
+PP(pp_ftrexec)
+{
+ return pp_ftrread();
+}
+
+PP(pp_fteread)
+{
+ return pp_ftrread();
+}
+
+PP(pp_ftewrite)
+{
+ return pp_ftrread();
+}
+
+PP(pp_fteexec)
+{
+ return pp_ftrread();
+}
+
+PP(pp_msgsnd)
+{
+ return pp_shmwrite();
+}
+
+PP(pp_msgrcv)
+{
+ return pp_shmwrite();
+}
+
+PP(pp_syswrite)
+{
+ return pp_send();
+}
+
+PP(pp_semop)
+{
+ return pp_shmwrite();
+}
+
+PP(pp_dor)
+{
+ return pp_defined();
+}
+
+PP(pp_andassign)
+{
+ return pp_and();
+}
+
+PP(pp_orassign)
+{
+ return pp_or();
+}
+
+PP(pp_dorassign)
+{
+ return pp_defined();
+}
+
+PP(pp_lcfirst)
+{
+ return pp_ucfirst();
+}
+
+PP(pp_slt)
+{
+ return pp_sle();
+}
+
+PP(pp_sgt)
+{
+ return pp_sle();
+}
+
+PP(pp_sge)
+{
+ return pp_sle();
+}
+
U8 *
Perl_uvuni_to_utf8(pTHX_ U8 *d, UV uv)
{
PERL_UNUSED_ARG(sv);
}
+#endif /* NO_MATHOMS */
+
/*
* Local variables:
* c-indentation-style: bsd
projects / p5sagit/p5-mst-13.2.git / blobdiff