[perl5.git] / pp.h

/***********************************************************
 *
 * $Header: /usr/src/local/lwall/perl5/RCS/pp.h,v 4.1 92/08/07 18:26:20 lwall Exp Locker: lwall $
 *
 * Description:
 *	Push/Pop code defs.
 *
 * Standards:
 *
 * Created:
 *	Mon Jun 15 16:47:20 1992
 *
 * Author:
 *	Larry Wall <lwall@netlabs.com>
 *
 * $Log:	pp.h,v $
 * Revision 4.1  92/08/07  18:26:20  lwall
 * 
 *
 **********************************************************/

#define ARGS
#define ARGSproto void
#define dARGS
#define PP(s) OP* s(ARGS) dARGS

#define SP sp
#define MARK mark
#define TARG targ

#define POPMARK		(*markstack_ptr--)
#define dSP		register SV **sp = stack_sp
#define dMARK		register SV **mark = stack_base + POPMARK
#define dORIGMARK	I32 origmark = mark - stack_base
#define SETORIGMARK	origmark = mark - stack_base
#define ORIGMARK	stack_base + origmark

#define SPAGAIN		sp = stack_sp
#define MSPAGAIN	sp = stack_sp; mark = ORIGMARK

#define GETTARGETSTACKED targ = (op->op_flags & OPf_STACKED ? POPs : PAD_SV(op->op_targ))
#define dTARGETSTACKED SV * GETTARGETSTACKED

#define GETTARGET targ = PAD_SV(op->op_targ)
#define dTARGET SV * GETTARGET

#define GETATARGET targ = (op->op_flags & OPf_STACKED ? sp[-1] : PAD_SV(op->op_targ))
#define dATARGET SV * GETATARGET

#define dTARG SV *targ

#define GETavn(a,g,st) \
	a = sv_2av(cGVOP->op_gv ? (SV*)cGVOP->op_gv : POPs, &st, &g, 1)
#define GEThvn(h,g,st) \
	h = sv_2hv(cGVOP->op_gv ? (SV*)cGVOP->op_gv : POPs, &st, &g, 1)
#define GETav(a,g,st) \
	a = sv_2av(cGVOP->op_gv ? (SV*)cGVOP->op_gv : POPs, &st, &g, 0)
#define GEThv(h,g,st) \
	h = sv_2hv(cGVOP->op_gv ? (SV*)cGVOP->op_gv : POPs, &st, &g, 0)
#define GETcv(r,g,st) \
	r = sv_2cv(POPs, &st, &g, 0)

#define NORMAL op->op_next
#define DIE return die
#define PROP if (dying) return die("%s", dying);

#define PUTBACK		stack_sp = sp
#define RETURN		return PUTBACK, NORMAL
#define RETURNOP(o)	return PUTBACK, o
#define RETURNX(x)	return x, PUTBACK, NORMAL

#define POPs		(*sp--)
#define POPp		(SvPVx(POPs, na))
#define POPn		(SvNVx(POPs))
#define POPi		((int)SvIVx(POPs))
#define POPl		((long)SvIVx(POPs))

#define TOPs		(*sp)
#define TOPp		(SvPV(TOPs, na))
#define TOPn		(SvNV(TOPs))
#define TOPi		((int)SvIV(TOPs))
#define TOPl		((long)SvIV(TOPs))

/* Go to some pains in the rare event that we must extend the stack. */
#define EXTEND(p,n)	do { if (stack_max - p < (n)) {		  	    \
			    av_fill(stack, (p - stack_base) + (n) + 128);   \
			    sp = AvARRAY(stack) + (sp - stack_base);	    \
			    stack_base = AvARRAY(stack);		    \
			    stack_max = stack_base + AvMAX(stack) - 1;	    \
			} } while (0)
/* Same thing, but update mark register too. */
#define MEXTEND(p,n)	do {if (stack_max - p < (n)) {			    \
			    av_fill(stack, (p - stack_base) + (n) + 128);   \
			    sp   = AvARRAY(stack) + (sp   - stack_base);    \
			    mark = AvARRAY(stack) + (mark - stack_base);    \
			    stack_base = AvARRAY(stack);		    \
			    stack_max = stack_base + AvMAX(stack) - 1;	    \
			} } while (0)

#define PUSHs(s)	(*++sp = (s))
#define PUSHTARG	do { SvSETMAGIC(TARG); PUSHs(TARG); } while (0)
#define PUSHp(p,l)	do { sv_setpvn(TARG, (p), (l)); PUSHTARG; } while (0)
#define PUSHn(n)	do { sv_setnv(TARG, (n)); PUSHTARG; } while (0)
#define PUSHi(i)	do { sv_setiv(TARG, (i)); PUSHTARG; } while (0)

#define XPUSHs(s)	do { EXTEND(sp,1); (*++sp = (s)); } while (0)
#define XPUSHTARG	do { SvSETMAGIC(TARG); XPUSHs(TARG); } while (0)
#define XPUSHp(p,l)	do { sv_setpvn(TARG, (p), (l)); XPUSHTARG; } while (0)
#define XPUSHn(n)	do { sv_setnv(TARG, (n)); XPUSHTARG; } while (0)
#define XPUSHi(i)	do { sv_setiv(TARG, (i)); XPUSHTARG; } while (0)

#define MXPUSHs(s)	do { MEXTEND(sp,1); (*++sp = (s)); } while (0)
#define MXPUSHTARG	do { SvSETMAGIC(TARG); XPUSHs(TARG); } while (0)
#define MXPUSHp(p,l)	do { sv_setpvn(TARG, (p), (l)); XPUSHTARG; } while (0)
#define MXPUSHn(n)	do { sv_setnv(TARG, (n)); XPUSHTARG; } while (0)
#define MXPUSHi(i)	do { sv_setiv(TARG, (i)); XPUSHTARG; } while (0)

#define SETs(s)		(*sp = s)
#define SETTARG		do { SvSETMAGIC(TARG); SETs(TARG); } while (0)
#define SETp(p,l)	do { sv_setpvn(TARG, (p), (l)); SETTARG; } while (0)
#define SETn(n)		do { sv_setnv(TARG, (n)); SETTARG; } while (0)
#define SETi(i)		do { sv_setiv(TARG, (i)); SETTARG; } while (0)

#define dTOPss		SV *sv = TOPs
#define dPOPss		SV *sv = POPs
#define dTOPnv		double value = TOPn
#define dPOPnv		double value = POPn
#define dTOPiv		I32 value = TOPi
#define dPOPiv		I32 value = POPi

#define dPOPPOPssrl	SV *rstr = POPs; SV *lstr = POPs
#define dPOPPOPnnrl	double right = POPn; double left = POPn
#define dPOPPOPiirl	I32 right = POPi; I32 left = POPi

#define dPOPTOPssrl	SV *rstr = POPs; SV *lstr = TOPs
#define dPOPTOPnnrl	double right = POPn; double left = TOPn
#define dPOPTOPiirl	I32 right = POPi; I32 left = TOPi

#define RETPUSHYES	RETURNX(PUSHs(&sv_yes))
#define RETPUSHNO	RETURNX(PUSHs(&sv_no))
#define RETPUSHUNDEF	RETURNX(PUSHs(&sv_undef))

#define RETSETYES	RETURNX(SETs(&sv_yes))
#define RETSETNO	RETURNX(SETs(&sv_no))
#define RETSETUNDEF	RETURNX(SETs(&sv_undef))

#define ARGTARG		op->op_targ
#define MAXARG		op->op_private

#define SWITCHSTACK(f,t)	AvFILL(f) = sp - stack_base;		\
				stack_base = AvARRAY(t);		\
				stack_max = stack_base + AvMAX(t);	\
				sp = stack_base + AvFILL(t);		\
				stack = t;

#define ENTER push_scope()
#define LEAVE pop_scope()

#define SAVEINT(i) save_int((int*)(&i));
#define SAVEI32(i) save_I32((I32*)(&i));
#define SAVELONG(l) save_long((long*)(&l));
#define SAVESPTR(s) save_sptr((SV**)(&s))
#define SAVEPPTR(s) save_pptr((char**)(&s))
#define SAVETMPS save_int(&tmps_floor), tmps_floor = tmps_ix
#define SAVEFREESV(s) save_freesv((SV*)(s))
#define SAVEFREEOP(o) save_freeop((OP*)(o))
#define SAVEFREEPV(p) save_freepv((char*)(p))
#define SAVECLEARSV(sv) save_clearsv((SV**)(&sv))
#define SAVEDELETE(h,k,l) save_delete((HV*)(h), (char*)(k), (I32)l)
Commit	Line	Data
79072805 LW	1	/***********************************************************
	2	*
	3	* $Header: /usr/src/local/lwall/perl5/RCS/pp.h,v 4.1 92/08/07 18:26:20 lwall Exp Locker: lwall $
	4	*
	5	* Description:
	6	* Push/Pop code defs.
	7	*
	8	* Standards:
	9	*
	10	* Created:
	11	* Mon Jun 15 16:47:20 1992
	12	*
	13	* Author:
	14	* Larry Wall <lwall@netlabs.com>
	15	*
	16	* $Log: pp.h,v $
	17	* Revision 4.1 92/08/07 18:26:20 lwall
	18	*
	19	*
	20	**********************************************************/
	21
	22	#define ARGS
463ee0b2	23	#define ARGSproto void
79072805 LW	24	#define dARGS
	25	#define PP(s) OP* s(ARGS) dARGS
	26
	27	#define SP sp
	28	#define MARK mark
	29	#define TARG targ
	30
	31	#define POPMARK (*markstack_ptr--)
	32	#define dSP register SV **sp = stack_sp
	33	#define dMARK register SV **mark = stack_base + POPMARK
	34	#define dORIGMARK I32 origmark = mark - stack_base
	35	#define SETORIGMARK origmark = mark - stack_base
	36	#define ORIGMARK stack_base + origmark
	37
	38	#define SPAGAIN sp = stack_sp
	39	#define MSPAGAIN sp = stack_sp; mark = ORIGMARK
	40
	41	#define GETTARGETSTACKED targ = (op->op_flags & OPf_STACKED ? POPs : PAD_SV(op->op_targ))
	42	#define dTARGETSTACKED SV * GETTARGETSTACKED
	43
	44	#define GETTARGET targ = PAD_SV(op->op_targ)
	45	#define dTARGET SV * GETTARGET
	46
	47	#define GETATARGET targ = (op->op_flags & OPf_STACKED ? sp[-1] : PAD_SV(op->op_targ))
	48	#define dATARGET SV * GETATARGET
	49
	50	#define dTARG SV *targ
	51
	52	#define GETavn(a,g,st) \
	53	a = sv_2av(cGVOP->op_gv ? (SV*)cGVOP->op_gv : POPs, &st, &g, 1)
	54	#define GEThvn(h,g,st) \
	55	h = sv_2hv(cGVOP->op_gv ? (SV*)cGVOP->op_gv : POPs, &st, &g, 1)
	56	#define GETav(a,g,st) \
	57	a = sv_2av(cGVOP->op_gv ? (SV*)cGVOP->op_gv : POPs, &st, &g, 0)
	58	#define GEThv(h,g,st) \
	59	h = sv_2hv(cGVOP->op_gv ? (SV*)cGVOP->op_gv : POPs, &st, &g, 0)
	60	#define GETcv(r,g,st) \
	61	r = sv_2cv(POPs, &st, &g, 0)
	62
	63	#define NORMAL op->op_next
	64	#define DIE return die
	65	#define PROP if (dying) return die("%s", dying);
	66
	67	#define PUTBACK stack_sp = sp
	68	#define RETURN return PUTBACK, NORMAL
	69	#define RETURNOP(o) return PUTBACK, o
	70	#define RETURNX(x) return x, PUTBACK, NORMAL
	71
	72	#define POPs (*sp--)
463ee0b2 LW	73	#define POPp (SvPVx(POPs, na))
	74	#define POPn (SvNVx(POPs))
	75	#define POPi ((int)SvIVx(POPs))
	76	#define POPl ((long)SvIVx(POPs))
79072805 LW	77
79072805 LW	78	#define TOPs (*sp)
463ee0b2 LW	79	#define TOPp (SvPV(TOPs, na))
	80	#define TOPn (SvNV(TOPs))
	81	#define TOPi ((int)SvIV(TOPs))
	82	#define TOPl ((long)SvIV(TOPs))
79072805 LW	83
	84	/* Go to some pains in the rare event that we must extend the stack. */
	85	#define EXTEND(p,n) do { if (stack_max - p < (n)) { \
8990e307	86	av_fill(stack, (p - stack_base) + (n) + 128); \
79072805 LW	87	sp = AvARRAY(stack) + (sp - stack_base); \
79072805 LW	88	stack_base = AvARRAY(stack); \
8990e307	89	stack_max = stack_base + AvMAX(stack) - 1; \
79072805 LW	90	} } while (0)
	91	/* Same thing, but update mark register too. */
	92	#define MEXTEND(p,n) do {if (stack_max - p < (n)) { \
8990e307	93	av_fill(stack, (p - stack_base) + (n) + 128); \
79072805 LW	94	sp = AvARRAY(stack) + (sp - stack_base); \
	95	mark = AvARRAY(stack) + (mark - stack_base); \
	96	stack_base = AvARRAY(stack); \
8990e307	97	stack_max = stack_base + AvMAX(stack) - 1; \
79072805 LW	98	} } while (0)
	99
	100	#define PUSHs(s) (*++sp = (s))
	101	#define PUSHTARG do { SvSETMAGIC(TARG); PUSHs(TARG); } while (0)
	102	#define PUSHp(p,l) do { sv_setpvn(TARG, (p), (l)); PUSHTARG; } while (0)
	103	#define PUSHn(n) do { sv_setnv(TARG, (n)); PUSHTARG; } while (0)
	104	#define PUSHi(i) do { sv_setiv(TARG, (i)); PUSHTARG; } while (0)
	105
	106	#define XPUSHs(s) do { EXTEND(sp,1); (*++sp = (s)); } while (0)
	107	#define XPUSHTARG do { SvSETMAGIC(TARG); XPUSHs(TARG); } while (0)
	108	#define XPUSHp(p,l) do { sv_setpvn(TARG, (p), (l)); XPUSHTARG; } while (0)
	109	#define XPUSHn(n) do { sv_setnv(TARG, (n)); XPUSHTARG; } while (0)
	110	#define XPUSHi(i) do { sv_setiv(TARG, (i)); XPUSHTARG; } while (0)
	111
	112	#define MXPUSHs(s) do { MEXTEND(sp,1); (*++sp = (s)); } while (0)
	113	#define MXPUSHTARG do { SvSETMAGIC(TARG); XPUSHs(TARG); } while (0)
	114	#define MXPUSHp(p,l) do { sv_setpvn(TARG, (p), (l)); XPUSHTARG; } while (0)
	115	#define MXPUSHn(n) do { sv_setnv(TARG, (n)); XPUSHTARG; } while (0)
	116	#define MXPUSHi(i) do { sv_setiv(TARG, (i)); XPUSHTARG; } while (0)
	117
	118	#define SETs(s) (*sp = s)
	119	#define SETTARG do { SvSETMAGIC(TARG); SETs(TARG); } while (0)
	120	#define SETp(p,l) do { sv_setpvn(TARG, (p), (l)); SETTARG; } while (0)
	121	#define SETn(n) do { sv_setnv(TARG, (n)); SETTARG; } while (0)
	122	#define SETi(i) do { sv_setiv(TARG, (i)); SETTARG; } while (0)
	123
	124	#define dTOPss SV *sv = TOPs
	125	#define dPOPss SV *sv = POPs
	126	#define dTOPnv double value = TOPn
	127	#define dPOPnv double value = POPn
	128	#define dTOPiv I32 value = TOPi
	129	#define dPOPiv I32 value = POPi
	130
	131	#define dPOPPOPssrl SV rstr = POPs; SV lstr = POPs
	132	#define dPOPPOPnnrl double right = POPn; double left = POPn
	133	#define dPOPPOPiirl I32 right = POPi; I32 left = POPi
	134
	135	#define dPOPTOPssrl SV rstr = POPs; SV lstr = TOPs
	136	#define dPOPTOPnnrl double right = POPn; double left = TOPn
	137	#define dPOPTOPiirl I32 right = POPi; I32 left = TOPi
	138
	139	#define RETPUSHYES RETURNX(PUSHs(&sv_yes))
	140	#define RETPUSHNO RETURNX(PUSHs(&sv_no))
	141	#define RETPUSHUNDEF RETURNX(PUSHs(&sv_undef))
	142
	143	#define RETSETYES RETURNX(SETs(&sv_yes))
	144	#define RETSETNO RETURNX(SETs(&sv_no))
	145	#define RETSETUNDEF RETURNX(SETs(&sv_undef))
	146
	147	#define ARGTARG op->op_targ
	148	#define MAXARG op->op_private
	149
	150	#define SWITCHSTACK(f,t) AvFILL(f) = sp - stack_base; \
	151	stack_base = AvARRAY(t); \
	152	stack_max = stack_base + AvMAX(t); \
	153	sp = stack_base + AvFILL(t); \
	154	stack = t;
	155
79072805 LW	156	#define ENTER push_scope()
	157	#define LEAVE pop_scope()
	158
	159	#define SAVEINT(i) save_int((int*)(&i));
85e6fe83 LW	160	#define SAVEI32(i) save_I32((I32*)(&i));
85e6fe83 LW	161	#define SAVELONG(l) save_long((long*)(&l));
79072805	162	#define SAVESPTR(s) save_sptr((SV**)(&s))
85e6fe83	163	#define SAVEPPTR(s) save_pptr((char**)(&s))
79072805	164	#define SAVETMPS save_int(&tmps_floor), tmps_floor = tmps_ix
8990e307 LW	165	#define SAVEFREESV(s) save_freesv((SV*)(s))
	166	#define SAVEFREEOP(o) save_freeop((OP*)(o))
	167	#define SAVEFREEPV(p) save_freepv((char*)(p))
	168	#define SAVECLEARSV(sv) save_clearsv((SV**)(&sv))
	169	#define SAVEDELETE(h,k,l) save_delete((HV)(h), (char)(k), (I32)l)