DynaLoader test failure on cygwin
[p5sagit/p5-mst-13.2.git] / mathoms.c
CommitLineData
7ee2227d 1/* mathoms.c
2 *
54ca4ee7 3 * Copyright (C) 2005, 2006, by Larry Wall and others
7ee2227d 4 *
5 * You may distribute under the terms of either the GNU General Public
6 * License or the Artistic License, as specified in the README file.
7 *
8 */
9
10/*
11 * "Anything that Hobbits had no immediate use for, but were unwilling to
12 * throw away, they called a mathom. Their dwellings were apt to become
13 * rather crowded with mathoms, and many of the presents that passed from
14 * hand to hand were of that sort."
15 */
16
20fac488 17#ifndef NO_MATHOMS
18
7ee2227d 19/*
20 * This file contains mathoms, various binary artifacts from previous
f2f0f092 21 * versions of Perl. For binary or source compatibility reasons, though,
22 * we cannot completely remove them from the core code.
7ee2227d 23 *
24 * SMP - Oct. 24, 2005
25 *
26 */
27
28#include "EXTERN.h"
29#define PERL_IN_MATHOMS_C
30#include "perl.h"
31
a0c21aa1 32PERL_CALLCONV OP * Perl_ref(pTHX_ OP *o, I32 type);
33PERL_CALLCONV void Perl_sv_unref(pTHX_ SV *sv);
34PERL_CALLCONV void Perl_sv_taint(pTHX_ SV *sv);
35PERL_CALLCONV IV Perl_sv_2iv(pTHX_ register SV *sv);
36PERL_CALLCONV UV Perl_sv_2uv(pTHX_ register SV *sv);
37PERL_CALLCONV char * Perl_sv_2pv(pTHX_ register SV *sv, STRLEN *lp);
38PERL_CALLCONV char * Perl_sv_2pv_nolen(pTHX_ register SV *sv);
39PERL_CALLCONV char * Perl_sv_2pvbyte_nolen(pTHX_ register SV *sv);
40PERL_CALLCONV char * Perl_sv_2pvutf8_nolen(pTHX_ register SV *sv);
41PERL_CALLCONV void Perl_sv_force_normal(pTHX_ register SV *sv);
42PERL_CALLCONV void Perl_sv_setsv(pTHX_ SV *dstr, register SV *sstr);
43PERL_CALLCONV void Perl_sv_catpvn(pTHX_ SV *dsv, const char* sstr, STRLEN slen);
44PERL_CALLCONV void Perl_sv_catpvn_mg(pTHX_ register SV *sv, register const char *ptr, register STRLEN len);
45PERL_CALLCONV void Perl_sv_catsv(pTHX_ SV *dstr, register SV *sstr);
46PERL_CALLCONV void Perl_sv_catsv_mg(pTHX_ SV *dsv, register SV *ssv);
47PERL_CALLCONV char * Perl_sv_pv(pTHX_ SV *sv);
48PERL_CALLCONV char * Perl_sv_pvn_force(pTHX_ SV *sv, STRLEN *lp);
49PERL_CALLCONV char * Perl_sv_pvbyte(pTHX_ SV *sv);
50PERL_CALLCONV char * Perl_sv_pvutf8(pTHX_ SV *sv);
51PERL_CALLCONV STRLEN Perl_sv_utf8_upgrade(pTHX_ register SV *sv);
52PERL_CALLCONV NV Perl_huge(void);
53PERL_CALLCONV void Perl_gv_fullname3(pTHX_ SV *sv, const GV *gv, const char *prefix);
54PERL_CALLCONV void Perl_gv_efullname3(pTHX_ SV *sv, const GV *gv, const char *prefix);
55PERL_CALLCONV GV * Perl_gv_fetchmethod(pTHX_ HV *stash, const char *name);
56PERL_CALLCONV HE * Perl_hv_iternext(pTHX_ HV *hv);
57PERL_CALLCONV void Perl_hv_magic(pTHX_ HV *hv, GV *gv, int how);
58PERL_CALLCONV bool Perl_do_open(pTHX_ GV *gv, register const char *name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO *supplied_fp);
59PERL_CALLCONV bool Perl_do_aexec(pTHX_ SV *really, register SV **mark, register SV **sp);
60PERL_CALLCONV bool Perl_do_exec(pTHX_ const char *cmd);
61PERL_CALLCONV U8 * Perl_uvuni_to_utf8(pTHX_ U8 *d, UV uv);
62PERL_CALLCONV bool Perl_is_utf8_string_loc(pTHX_ const U8 *s, STRLEN len, const U8 **ep);
63PERL_CALLCONV void Perl_sv_nolocking(pTHX_ SV *sv);
64PERL_CALLCONV void Perl_sv_usepvn_mg(pTHX_ SV *sv, char *ptr, STRLEN len);
65PERL_CALLCONV void Perl_sv_usepvn(pTHX_ SV *sv, char *ptr, STRLEN len);
66PERL_CALLCONV int Perl_fprintf_nocontext(PerlIO *stream, const char *format, ...);
67PERL_CALLCONV int Perl_printf_nocontext(const char *format, ...);
b5445a23 68
69
7ee2227d 70/* ref() is now a macro using Perl_doref;
71 * this version provided for binary compatibility only.
72 */
73OP *
74Perl_ref(pTHX_ OP *o, I32 type)
75{
76 return doref(o, type, TRUE);
77}
78
aae9cea0 79/*
174c73e3 80=for apidoc sv_unref
81
82Unsets the RV status of the SV, and decrements the reference count of
83whatever was being referenced by the RV. This can almost be thought of
84as a reversal of C<newSVrv>. This is C<sv_unref_flags> with the C<flag>
85being zero. See C<SvROK_off>.
86
87=cut
88*/
89
90void
91Perl_sv_unref(pTHX_ SV *sv)
92{
93 sv_unref_flags(sv, 0);
94}
95
96/*
aae9cea0 97=for apidoc sv_taint
98
99Taint an SV. Use C<SvTAINTED_on> instead.
100=cut
101*/
102
103void
104Perl_sv_taint(pTHX_ SV *sv)
105{
a0714e2c 106 sv_magic((sv), NULL, PERL_MAGIC_taint, NULL, 0);
aae9cea0 107}
108
7ee2227d 109/* sv_2iv() is now a macro using Perl_sv_2iv_flags();
110 * this function provided for binary compatibility only
111 */
112
113IV
114Perl_sv_2iv(pTHX_ register SV *sv)
115{
116 return sv_2iv_flags(sv, SV_GMAGIC);
117}
118
119/* sv_2uv() is now a macro using Perl_sv_2uv_flags();
120 * this function provided for binary compatibility only
121 */
122
123UV
124Perl_sv_2uv(pTHX_ register SV *sv)
125{
126 return sv_2uv_flags(sv, SV_GMAGIC);
127}
128
129/* sv_2pv() is now a macro using Perl_sv_2pv_flags();
130 * this function provided for binary compatibility only
131 */
132
133char *
134Perl_sv_2pv(pTHX_ register SV *sv, STRLEN *lp)
135{
136 return sv_2pv_flags(sv, lp, SV_GMAGIC);
137}
138
5abc721d 139/*
cb2f1b7b 140=for apidoc sv_2pv_nolen
141
142Like C<sv_2pv()>, but doesn't return the length too. You should usually
143use the macro wrapper C<SvPV_nolen(sv)> instead.
144=cut
145*/
146
147char *
148Perl_sv_2pv_nolen(pTHX_ register SV *sv)
149{
b5445a23 150 return sv_2pv(sv, NULL);
cb2f1b7b 151}
152
153/*
154=for apidoc sv_2pvbyte_nolen
155
156Return a pointer to the byte-encoded representation of the SV.
157May cause the SV to be downgraded from UTF-8 as a side-effect.
158
159Usually accessed via the C<SvPVbyte_nolen> macro.
160
161=cut
162*/
163
164char *
165Perl_sv_2pvbyte_nolen(pTHX_ register SV *sv)
166{
b5445a23 167 return sv_2pvbyte(sv, NULL);
cb2f1b7b 168}
169
170/*
171=for apidoc sv_2pvutf8_nolen
172
173Return a pointer to the UTF-8-encoded representation of the SV.
174May cause the SV to be upgraded to UTF-8 as a side-effect.
175
176Usually accessed via the C<SvPVutf8_nolen> macro.
177
178=cut
179*/
180
181char *
182Perl_sv_2pvutf8_nolen(pTHX_ register SV *sv)
183{
b5445a23 184 return sv_2pvutf8(sv, NULL);
cb2f1b7b 185}
186
187/*
5abc721d 188=for apidoc sv_force_normal
189
190Undo various types of fakery on an SV: if the PV is a shared string, make
191a private copy; if we're a ref, stop refing; if we're a glob, downgrade to
192an xpvmg. See also C<sv_force_normal_flags>.
193
194=cut
195*/
196
197void
198Perl_sv_force_normal(pTHX_ register SV *sv)
199{
200 sv_force_normal_flags(sv, 0);
201}
7ee2227d 202
203/* sv_setsv() is now a macro using Perl_sv_setsv_flags();
204 * this function provided for binary compatibility only
205 */
206
207void
208Perl_sv_setsv(pTHX_ SV *dstr, register SV *sstr)
209{
210 sv_setsv_flags(dstr, sstr, SV_GMAGIC);
211}
212
213/* sv_catpvn() is now a macro using Perl_sv_catpvn_flags();
214 * this function provided for binary compatibility only
215 */
216
217void
218Perl_sv_catpvn(pTHX_ SV *dsv, const char* sstr, STRLEN slen)
219{
220 sv_catpvn_flags(dsv, sstr, slen, SV_GMAGIC);
221}
222
b347df82 223/*
224=for apidoc sv_catpvn_mg
225
226Like C<sv_catpvn>, but also handles 'set' magic.
227
228=cut
229*/
230
231void
232Perl_sv_catpvn_mg(pTHX_ register SV *sv, register const char *ptr, register STRLEN len)
233{
234 sv_catpvn_flags(sv,ptr,len,SV_GMAGIC|SV_SMAGIC);
235}
236
7ee2227d 237/* sv_catsv() is now a macro using Perl_sv_catsv_flags();
238 * this function provided for binary compatibility only
239 */
240
241void
242Perl_sv_catsv(pTHX_ SV *dstr, register SV *sstr)
243{
244 sv_catsv_flags(dstr, sstr, SV_GMAGIC);
245}
246
0feed65a 247/*
b347df82 248=for apidoc sv_catsv_mg
249
250Like C<sv_catsv>, but also handles 'set' magic.
251
252=cut
253*/
254
255void
256Perl_sv_catsv_mg(pTHX_ SV *dsv, register SV *ssv)
257{
258 sv_catsv_flags(dsv,ssv,SV_GMAGIC|SV_SMAGIC);
259}
260
261/*
0feed65a 262=for apidoc sv_iv
263
264A private implementation of the C<SvIVx> macro for compilers which can't
265cope with complex macro expressions. Always use the macro instead.
266
267=cut
268*/
269
270IV
271Perl_sv_iv(pTHX_ register SV *sv)
272{
273 if (SvIOK(sv)) {
274 if (SvIsUV(sv))
275 return (IV)SvUVX(sv);
276 return SvIVX(sv);
277 }
278 return sv_2iv(sv);
279}
280
281/*
282=for apidoc sv_uv
283
284A private implementation of the C<SvUVx> macro for compilers which can't
285cope with complex macro expressions. Always use the macro instead.
286
287=cut
288*/
289
290UV
291Perl_sv_uv(pTHX_ register SV *sv)
292{
293 if (SvIOK(sv)) {
294 if (SvIsUV(sv))
295 return SvUVX(sv);
296 return (UV)SvIVX(sv);
297 }
298 return sv_2uv(sv);
299}
300
301/*
302=for apidoc sv_nv
303
304A private implementation of the C<SvNVx> macro for compilers which can't
305cope with complex macro expressions. Always use the macro instead.
306
307=cut
308*/
309
310NV
311Perl_sv_nv(pTHX_ register SV *sv)
312{
313 if (SvNOK(sv))
314 return SvNVX(sv);
315 return sv_2nv(sv);
316}
317
318/*
319=for apidoc sv_pv
320
321Use the C<SvPV_nolen> macro instead
322
323=for apidoc sv_pvn
324
325A private implementation of the C<SvPV> macro for compilers which can't
326cope with complex macro expressions. Always use the macro instead.
327
328=cut
329*/
330
331char *
332Perl_sv_pvn(pTHX_ SV *sv, STRLEN *lp)
333{
334 if (SvPOK(sv)) {
335 *lp = SvCUR(sv);
336 return SvPVX(sv);
337 }
338 return sv_2pv(sv, lp);
339}
340
341
342char *
343Perl_sv_pvn_nomg(pTHX_ register SV *sv, STRLEN *lp)
344{
345 if (SvPOK(sv)) {
346 *lp = SvCUR(sv);
347 return SvPVX(sv);
348 }
349 return sv_2pv_flags(sv, lp, 0);
350}
351
7ee2227d 352/* sv_pv() is now a macro using SvPV_nolen();
353 * this function provided for binary compatibility only
354 */
355
356char *
357Perl_sv_pv(pTHX_ SV *sv)
358{
359 if (SvPOK(sv))
360 return SvPVX(sv);
361
b5445a23 362 return sv_2pv(sv, NULL);
7ee2227d 363}
364
365/* sv_pvn_force() is now a macro using Perl_sv_pvn_force_flags();
366 * this function provided for binary compatibility only
367 */
368
369char *
370Perl_sv_pvn_force(pTHX_ SV *sv, STRLEN *lp)
371{
372 return sv_pvn_force_flags(sv, lp, SV_GMAGIC);
373}
374
375/* sv_pvbyte () is now a macro using Perl_sv_2pv_flags();
376 * this function provided for binary compatibility only
377 */
378
379char *
380Perl_sv_pvbyte(pTHX_ SV *sv)
381{
b5445a23 382 sv_utf8_downgrade(sv, FALSE);
7ee2227d 383 return sv_pv(sv);
384}
385
0feed65a 386/*
387=for apidoc sv_pvbyte
388
389Use C<SvPVbyte_nolen> instead.
390
391=for apidoc sv_pvbyten
392
393A private implementation of the C<SvPVbyte> macro for compilers
394which can't cope with complex macro expressions. Always use the macro
395instead.
396
397=cut
398*/
399
400char *
401Perl_sv_pvbyten(pTHX_ SV *sv, STRLEN *lp)
402{
b5445a23 403 sv_utf8_downgrade(sv, FALSE);
0feed65a 404 return sv_pvn(sv,lp);
405}
406
7ee2227d 407/* sv_pvutf8 () is now a macro using Perl_sv_2pv_flags();
408 * this function provided for binary compatibility only
409 */
410
411char *
412Perl_sv_pvutf8(pTHX_ SV *sv)
413{
414 sv_utf8_upgrade(sv);
415 return sv_pv(sv);
416}
417
0feed65a 418/*
419=for apidoc sv_pvutf8
420
421Use the C<SvPVutf8_nolen> macro instead
422
423=for apidoc sv_pvutf8n
424
425A private implementation of the C<SvPVutf8> macro for compilers
426which can't cope with complex macro expressions. Always use the macro
427instead.
428
429=cut
430*/
431
432char *
433Perl_sv_pvutf8n(pTHX_ SV *sv, STRLEN *lp)
434{
435 sv_utf8_upgrade(sv);
436 return sv_pvn(sv,lp);
437}
438
205c02c2 439/* sv_utf8_upgrade() is now a macro using sv_utf8_upgrade_flags();
440 * this function provided for binary compatibility only
441 */
442
443STRLEN
444Perl_sv_utf8_upgrade(pTHX_ register SV *sv)
445{
446 return sv_utf8_upgrade_flags(sv, SV_GMAGIC);
447}
448
7ee2227d 449int
450Perl_fprintf_nocontext(PerlIO *stream, const char *format, ...)
451{
452 dTHXs;
453 va_list(arglist);
454 va_start(arglist, format);
455 return PerlIO_vprintf(stream, format, arglist);
456}
457
458int
459Perl_printf_nocontext(const char *format, ...)
460{
461 dTHX;
462 va_list(arglist);
463 va_start(arglist, format);
464 return PerlIO_vprintf(PerlIO_stdout(), format, arglist);
465}
466
467#if defined(HUGE_VAL) || (defined(USE_LONG_DOUBLE) && defined(HUGE_VALL))
468/*
469 * This hack is to force load of "huge" support from libm.a
470 * So it is in perl for (say) POSIX to use.
471 * Needed for SunOS with Sun's 'acc' for example.
472 */
473NV
474Perl_huge(void)
475{
c773ee7a 476# if defined(USE_LONG_DOUBLE) && defined(HUGE_VALL)
7ee2227d 477 return HUGE_VALL;
c773ee7a 478# else
7ee2227d 479 return HUGE_VAL;
c773ee7a 480# endif
7ee2227d 481}
482#endif
483
f2f0f092 484/* compatibility with versions <= 5.003. */
485void
486Perl_gv_fullname(pTHX_ SV *sv, const GV *gv)
487{
666ea192 488 gv_fullname3(sv, gv, sv == (const SV*)gv ? "*" : "");
f2f0f092 489}
490
491/* compatibility with versions <= 5.003. */
492void
493Perl_gv_efullname(pTHX_ SV *sv, const GV *gv)
494{
666ea192 495 gv_efullname3(sv, gv, sv == (const SV*)gv ? "*" : "");
f2f0f092 496}
497
2674aeec 498void
499Perl_gv_fullname3(pTHX_ SV *sv, const GV *gv, const char *prefix)
500{
501 gv_fullname4(sv, gv, prefix, TRUE);
502}
503
504void
505Perl_gv_efullname3(pTHX_ SV *sv, const GV *gv, const char *prefix)
506{
507 gv_efullname4(sv, gv, prefix, TRUE);
508}
509
887986eb 510/*
511=for apidoc gv_fetchmethod
512
513See L<gv_fetchmethod_autoload>.
514
515=cut
516*/
517
518GV *
519Perl_gv_fetchmethod(pTHX_ HV *stash, const char *name)
520{
521 return gv_fetchmethod_autoload(stash, name, TRUE);
522}
523
7a7b9979 524HE *
525Perl_hv_iternext(pTHX_ HV *hv)
526{
527 return hv_iternext_flags(hv, 0);
528}
529
bc5cdc23 530void
531Perl_hv_magic(pTHX_ HV *hv, GV *gv, int how)
532{
bd61b366 533 sv_magic((SV*)hv, (SV*)gv, how, NULL, 0);
bc5cdc23 534}
535
536#if 0 /* use the macro from hv.h instead */
537
538char*
539Perl_sharepvn(pTHX_ const char *sv, I32 len, U32 hash)
540{
541 return HEK_KEY(share_hek(sv, len, hash));
542}
543
544#endif
545
b966a812 546AV *
547Perl_av_fake(pTHX_ register I32 size, register SV **strp)
548{
549 register SV** ary;
561b68a9 550 register AV * const av = (AV*)newSV(0);
b966a812 551
552 sv_upgrade((SV *)av, SVt_PVAV);
553 Newx(ary,size+1,SV*);
554 AvALLOC(av) = ary;
555 Copy(strp,ary,size,SV*);
556 AvREIFY_only(av);
9c6bc640 557 AvARRAY(av) = ary;
b966a812 558 AvFILLp(av) = size - 1;
559 AvMAX(av) = size - 1;
560 while (size--) {
561 assert (*strp);
562 SvTEMP_off(*strp);
563 strp++;
564 }
565 return av;
566}
567
34d367cd 568bool
e4dba786 569Perl_do_open(pTHX_ GV *gv, register const char *name, I32 len, int as_raw,
570 int rawmode, int rawperm, PerlIO *supplied_fp)
571{
572 return do_openn(gv, name, len, as_raw, rawmode, rawperm,
573 supplied_fp, (SV **) NULL, 0);
574}
575
576bool
34d367cd 577Perl_do_open9(pTHX_ GV *gv, register const char *name, I32 len, int
578as_raw,
579 int rawmode, int rawperm, PerlIO *supplied_fp, SV *svs,
580 I32 num_svs)
581{
582 PERL_UNUSED_ARG(num_svs);
583 return do_openn(gv, name, len, as_raw, rawmode, rawperm,
584 supplied_fp, &svs, 1);
585}
586
587int
588Perl_do_binmode(pTHX_ PerlIO *fp, int iotype, int mode)
589{
590 /* The old body of this is now in non-LAYER part of perlio.c
591 * This is a stub for any XS code which might have been calling it.
592 */
593 const char *name = ":raw";
594#ifdef PERLIO_USING_CRLF
595 if (!(mode & O_BINARY))
596 name = ":crlf";
597#endif
598 return PerlIO_binmode(aTHX_ fp, iotype, mode, name);
599}
600
a9f96b3f 601#ifndef OS2
602bool
603Perl_do_aexec(pTHX_ SV *really, register SV **mark, register SV **sp)
604{
605 return do_aexec5(really, mark, sp, 0, 0);
606}
607#endif
608
9555a685 609#ifdef PERL_DEFAULT_DO_EXEC3_IMPLEMENTATION
610bool
611Perl_do_exec(pTHX_ const char *cmd)
612{
613 return do_exec3(cmd,0,0);
614}
615#endif
616
f95f476d 617#ifdef HAS_PIPE
618void
619Perl_do_pipe(pTHX_ SV *sv, GV *rgv, GV *wgv)
620{
97aff369 621 dVAR;
f95f476d 622 register IO *rstio;
623 register IO *wstio;
624 int fd[2];
625
626 if (!rgv)
627 goto badexit;
628 if (!wgv)
629 goto badexit;
630
631 rstio = GvIOn(rgv);
632 wstio = GvIOn(wgv);
633
634 if (IoIFP(rstio))
635 do_close(rgv,FALSE);
636 if (IoIFP(wstio))
637 do_close(wgv,FALSE);
638
639 if (PerlProc_pipe(fd) < 0)
640 goto badexit;
641 IoIFP(rstio) = PerlIO_fdopen(fd[0], "r"PIPE_OPEN_MODE);
642 IoOFP(wstio) = PerlIO_fdopen(fd[1], "w"PIPE_OPEN_MODE);
643 IoOFP(rstio) = IoIFP(rstio);
644 IoIFP(wstio) = IoOFP(wstio);
645 IoTYPE(rstio) = IoTYPE_RDONLY;
646 IoTYPE(wstio) = IoTYPE_WRONLY;
647 if (!IoIFP(rstio) || !IoOFP(wstio)) {
648 if (IoIFP(rstio)) PerlIO_close(IoIFP(rstio));
649 else PerlLIO_close(fd[0]);
650 if (IoOFP(wstio)) PerlIO_close(IoOFP(wstio));
651 else PerlLIO_close(fd[1]);
652 goto badexit;
653 }
654
655 sv_setsv(sv,&PL_sv_yes);
656 return;
657
658badexit:
659 sv_setsv(sv,&PL_sv_undef);
660 return;
661}
662#endif
663
89552e80 664/* Backwards compatibility. */
665int
666Perl_init_i18nl14n(pTHX_ int printwarn)
667{
668 return init_i18nl10n(printwarn);
669}
670
ad5d783e 671/* XXX kept for BINCOMPAT only */
672void
673Perl_save_hints(pTHX)
674{
675 Perl_croak(aTHX_ "internal error: obsolete function save_hints() called");
676}
677
c78ff979 678#if 0
679OP *
680Perl_ck_retarget(pTHX_ OP *o)
681{
682 Perl_croak(aTHX_ "NOT IMPL LINE %d",__LINE__);
683 /* STUB */
684 return o;
685}
686#endif
687
688OP *
689Perl_oopsCV(pTHX_ OP *o)
690{
691 Perl_croak(aTHX_ "NOT IMPL LINE %d",__LINE__);
692 /* STUB */
693 PERL_UNUSED_ARG(o);
694 NORETURN_FUNCTION_END;
695}
696
697PP(pp_padany)
698{
699 DIE(aTHX_ "NOT IMPL LINE %d",__LINE__);
700}
701
702PP(pp_threadsv)
703{
704 DIE(aTHX_ "tried to access per-thread data in non-threaded perl");
705}
706
707PP(pp_mapstart)
708{
709 DIE(aTHX_ "panic: mapstart"); /* uses grepstart */
710}
711
0b612f93 712/* These ops all have the same body as pp_null. */
713PP(pp_scalar)
714{
97aff369 715 dVAR;
0b612f93 716 return NORMAL;
717}
718
719PP(pp_regcmaybe)
720{
97aff369 721 dVAR;
0b612f93 722 return NORMAL;
723}
724
725PP(pp_lineseq)
726{
97aff369 727 dVAR;
0b612f93 728 return NORMAL;
729}
730
731PP(pp_scope)
732{
97aff369 733 dVAR;
0b612f93 734 return NORMAL;
735}
736
737/* Ops that are calls to do_kv. */
738PP(pp_values)
739{
740 return do_kv();
741}
742
743PP(pp_keys)
744{
745 return do_kv();
746}
747
748/* Ops that are simply calls to other ops. */
749PP(pp_dump)
750{
751 return pp_goto();
752 /*NOTREACHED*/
753}
754
755PP(pp_dofile)
756{
757 return pp_require();
758}
759
760PP(pp_dbmclose)
761{
762 return pp_untie();
763}
764
765PP(pp_read)
766{
767 return pp_sysread();
768}
769
770PP(pp_recv)
771{
772 return pp_sysread();
773}
774
775PP(pp_seek)
776{
777 return pp_sysseek();
778}
779
780PP(pp_fcntl)
781{
782 return pp_ioctl();
783}
784
785PP(pp_gsockopt)
786{
787 return pp_ssockopt();
788}
789
790PP(pp_getsockname)
791{
792 return pp_getpeername();
793}
794
795PP(pp_lstat)
796{
797 return pp_stat();
798}
799
800PP(pp_fteowned)
801{
802 return pp_ftrowned();
803}
804
805PP(pp_ftbinary)
806{
807 return pp_fttext();
808}
809
810PP(pp_localtime)
811{
812 return pp_gmtime();
813}
814
815PP(pp_shmget)
816{
817 return pp_semget();
818}
819
820PP(pp_shmctl)
821{
822 return pp_semctl();
823}
824
825PP(pp_shmread)
826{
827 return pp_shmwrite();
828}
829
830PP(pp_msgget)
831{
832 return pp_semget();
833}
834
835PP(pp_msgctl)
836{
837 return pp_semctl();
838}
839
840PP(pp_ghbyname)
841{
842 return pp_ghostent();
843}
844
845PP(pp_ghbyaddr)
846{
847 return pp_ghostent();
848}
849
850PP(pp_gnbyname)
851{
852 return pp_gnetent();
853}
854
855PP(pp_gnbyaddr)
856{
857 return pp_gnetent();
858}
859
860PP(pp_gpbyname)
861{
862 return pp_gprotoent();
863}
864
865PP(pp_gpbynumber)
866{
867 return pp_gprotoent();
868}
869
870PP(pp_gsbyname)
871{
872 return pp_gservent();
873}
874
875PP(pp_gsbyport)
876{
877 return pp_gservent();
878}
879
880PP(pp_gpwnam)
881{
882 return pp_gpwent();
883}
884
885PP(pp_gpwuid)
886{
887 return pp_gpwent();
888}
889
890PP(pp_ggrnam)
891{
892 return pp_ggrent();
893}
894
895PP(pp_ggrgid)
896{
897 return pp_ggrent();
898}
899
957b0e1d 900PP(pp_ftsize)
901{
4992681b 902 return pp_ftis();
957b0e1d 903}
904
905PP(pp_ftmtime)
906{
4992681b 907 return pp_ftis();
957b0e1d 908}
909
910PP(pp_ftatime)
911{
4992681b 912 return pp_ftis();
957b0e1d 913}
914
915PP(pp_ftctime)
916{
4992681b 917 return pp_ftis();
957b0e1d 918}
919
f1cb2d48 920PP(pp_ftzero)
921{
922 return pp_ftrowned();
923}
924
925PP(pp_ftsock)
926{
927 return pp_ftrowned();
928}
929
930PP(pp_ftchr)
931{
932 return pp_ftrowned();
933}
934
935PP(pp_ftblk)
936{
937 return pp_ftrowned();
938}
939
940PP(pp_ftfile)
941{
942 return pp_ftrowned();
943}
944
945PP(pp_ftdir)
946{
947 return pp_ftrowned();
948}
949
950PP(pp_ftpipe)
951{
952 return pp_ftrowned();
953}
954
17ad201a 955PP(pp_ftsuid)
956{
957 return pp_ftrowned();
958}
959
960PP(pp_ftsgid)
961{
962 return pp_ftrowned();
963}
964
965PP(pp_ftsvtx)
966{
967 return pp_ftrowned();
968}
969
605b9385 970PP(pp_unlink)
971{
972 return pp_chown();
973}
974
975PP(pp_chmod)
976{
977 return pp_chown();
978}
979
980PP(pp_utime)
981{
982 return pp_chown();
983}
984
985PP(pp_kill)
986{
987 return pp_chown();
988}
989
ce6987d0 990PP(pp_symlink)
991{
992 return pp_link();
993}
994
af9e49b4 995PP(pp_ftrwrite)
996{
997 return pp_ftrread();
998}
999
1000PP(pp_ftrexec)
1001{
1002 return pp_ftrread();
1003}
1004
1005PP(pp_fteread)
1006{
1007 return pp_ftrread();
1008}
1009
1010PP(pp_ftewrite)
1011{
1012 return pp_ftrread();
1013}
1014
1015PP(pp_fteexec)
1016{
1017 return pp_ftrread();
1018}
1019
c9f7ac20 1020PP(pp_msgsnd)
1021{
1022 return pp_shmwrite();
1023}
1024
1025PP(pp_msgrcv)
1026{
1027 return pp_shmwrite();
1028}
1029
64a1bc8e 1030PP(pp_syswrite)
1031{
1032 return pp_send();
1033}
1034
ca563b4e 1035PP(pp_semop)
1036{
1037 return pp_shmwrite();
1038}
1039
25a55bd7 1040PP(pp_dor)
1041{
f6a64177 1042 return pp_defined();
25a55bd7 1043}
1044
c960fc3b 1045PP(pp_andassign)
1046{
1047 return pp_and();
1048}
1049
1050PP(pp_orassign)
1051{
1052 return pp_or();
1053}
1054
1055PP(pp_dorassign)
1056{
1057 return pp_defined();
1058}
1059
12e9c124 1060PP(pp_lcfirst)
1061{
1062 return pp_ucfirst();
1063}
1064
afd9910b 1065PP(pp_slt)
1066{
1067 return pp_sle();
1068}
1069
1070PP(pp_sgt)
1071{
1072 return pp_sle();
1073}
1074
1075PP(pp_sge)
1076{
1077 return pp_sle();
1078}
1079
2723d216 1080PP(pp_rindex)
1081{
1082 return pp_index();
1083}
1084
daa2adfd 1085PP(pp_hex)
1086{
1087 return pp_oct();
1088}
1089
789b4bc9 1090PP(pp_pop)
1091{
1092 return pp_shift();
1093}
1094
71302fe3 1095PP(pp_cos)
1096{
1097 return pp_sin();
1098}
1099
1100PP(pp_exp)
1101{
1102 return pp_sin();
1103}
1104
1105PP(pp_log)
1106{
1107 return pp_sin();
1108}
1109
1110PP(pp_sqrt)
1111{
1112 return pp_sin();
1113}
1114
3658c1f1 1115PP(pp_bit_xor)
1116{
1117 return pp_bit_or();
1118}
1119
038e8d3c 1120U8 *
1121Perl_uvuni_to_utf8(pTHX_ U8 *d, UV uv)
1122{
1123 return Perl_uvuni_to_utf8_flags(aTHX_ d, uv, 0);
1124}
1125
814fafa7 1126bool
1127Perl_is_utf8_string_loc(pTHX_ const U8 *s, STRLEN len, const U8 **ep)
1128{
1129 return is_utf8_string_loclen(s, len, ep, 0);
1130}
1131
7ee2227d 1132/*
d5b2b27b 1133=for apidoc sv_nolocking
1134
1135Dummy routine which "locks" an SV when there is no locking module present.
1136Exists to avoid test for a NULL function pointer and because it could
1137potentially warn under some level of strict-ness.
1138
1139"Superseded" by sv_nosharing().
1140
1141=cut
1142*/
1143
1144void
1145Perl_sv_nolocking(pTHX_ SV *sv)
1146{
96a5add6 1147 PERL_UNUSED_CONTEXT;
d5b2b27b 1148 PERL_UNUSED_ARG(sv);
1149}
1150
1151
1152/*
1153=for apidoc sv_nounlocking
1154
1155Dummy routine which "unlocks" an SV when there is no locking module present.
1156Exists to avoid test for a NULL function pointer and because it could
1157potentially warn under some level of strict-ness.
1158
1159"Superseded" by sv_nosharing().
1160
1161=cut
1162*/
1163
1164void
1165Perl_sv_nounlocking(pTHX_ SV *sv)
1166{
96a5add6 1167 PERL_UNUSED_CONTEXT;
d5b2b27b 1168 PERL_UNUSED_ARG(sv);
1169}
1170
2053acbf 1171void
1172Perl_save_long(pTHX_ long int *longp)
1173{
1174 dVAR;
1175 SSCHECK(3);
1176 SSPUSHLONG(*longp);
1177 SSPUSHPTR(longp);
1178 SSPUSHINT(SAVEt_LONG);
1179}
1180
1181void
1182Perl_save_I16(pTHX_ I16 *intp)
1183{
1184 dVAR;
1185 SSCHECK(3);
1186 SSPUSHINT(*intp);
1187 SSPUSHPTR(intp);
1188 SSPUSHINT(SAVEt_I16);
1189}
1190
1191void
2053acbf 1192Perl_save_iv(pTHX_ IV *ivp)
1193{
1194 dVAR;
1195 SSCHECK(3);
1196 SSPUSHIV(*ivp);
1197 SSPUSHPTR(ivp);
1198 SSPUSHINT(SAVEt_IV);
1199}
1200
1201void
1202Perl_save_nogv(pTHX_ GV *gv)
1203{
1204 dVAR;
1205 SSCHECK(2);
1206 SSPUSHPTR(gv);
1207 SSPUSHINT(SAVEt_NSTAB);
1208}
1209
1210void
1211Perl_save_list(pTHX_ register SV **sarg, I32 maxsarg)
1212{
1213 dVAR;
1214 register I32 i;
1215
1216 for (i = 1; i <= maxsarg; i++) {
1217 register SV * const sv = newSV(0);
1218 sv_setsv(sv,sarg[i]);
1219 SSCHECK(3);
1220 SSPUSHPTR(sarg[i]); /* remember the pointer */
1221 SSPUSHPTR(sv); /* remember the value */
1222 SSPUSHINT(SAVEt_ITEM);
1223 }
1224}
1225
47518d95 1226/*
1227=for apidoc sv_usepvn_mg
1228
1229Like C<sv_usepvn>, but also handles 'set' magic.
1230
1231=cut
1232*/
1233
1234void
1235Perl_sv_usepvn_mg(pTHX_ SV *sv, char *ptr, STRLEN len)
1236{
1237 sv_usepvn_flags(sv,ptr,len, SV_SMAGIC);
1238}
1239
1240/*
1241=for apidoc sv_usepvn
1242
1243Tells an SV to use C<ptr> to find its string value. Implemented by
1244calling C<sv_usepvn_flags> with C<flags> of 0, hence does not handle 'set'
1245magic. See C<sv_usepvn_flags>.
1246
1247=cut
1248*/
1249
1250void
1251Perl_sv_usepvn(pTHX_ SV *sv, char *ptr, STRLEN len)
1252{
1253 sv_usepvn_flags(sv,ptr,len, 0);
1254}
1255
cbf82dd0 1256void
1257Perl_cv_ckproto(pTHX_ const CV *cv, const GV *gv, const char *p)
1258{
1259 cv_ckproto_len(cv, gv, p, p ? strlen(p) : 0);
1260}
c03e83bf 1261
1262/*
1263=for apidoc unpack_str
1264
1265The engine implementing unpack() Perl function. Note: parameters strbeg, new_s
1266and ocnt are not used. This call should not be used, use unpackstring instead.
1267
1268=cut */
1269
1270I32
1271Perl_unpack_str(pTHX_ const char *pat, const char *patend, const char *s,
1272 const char *strbeg, const char *strend, char **new_s, I32 ocnt,
1273 U32 flags)
1274{
1275 PERL_UNUSED_ARG(strbeg);
1276 PERL_UNUSED_ARG(new_s);
1277 PERL_UNUSED_ARG(ocnt);
1278
1279 return unpackstring(pat, patend, s, strend, flags);
1280}
b47163a2 1281
1282/*
1283=for apidoc pack_cat
1284
1285The engine implementing pack() Perl function. Note: parameters next_in_list and
1286flags are not used. This call should not be used; use packlist instead.
1287
1288=cut
1289*/
1290
1291void
1292Perl_pack_cat(pTHX_ SV *cat, const char *pat, const char *patend, register SV **beglist, SV **endlist, SV ***next_in_list, U32 flags)
1293{
1294 PERL_UNUSED_ARG(next_in_list);
1295 PERL_UNUSED_ARG(flags);
1296
1297 packlist(cat, pat, patend, beglist, endlist);
1298}
20fac488 1299#endif /* NO_MATHOMS */
1300
d5b2b27b 1301/*
7ee2227d 1302 * Local variables:
1303 * c-indentation-style: bsd
1304 * c-basic-offset: 4
1305 * indent-tabs-mode: t
1306 * End:
1307 *
1308 * ex: set ts=8 sts=4 sw=4 noet:
1309 */