Context Navigation

Changeset 3887 for src/perl5

Timestamp:

05/26/05 02:17:16 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5477

Message:

* Method invocation into Perl 5 now carries the current

context around.

Location:

src/perl5

Files:

r3876	r3887
139	139
140	140	SV *
141		perl5_call(char subname, int argc, SV* args)
	141	perl5_call(char subname, int argc, SV* args, int cxt)
142	142	{
143	143	int i;
…	…
155	155	PUTBACK;
156	156
157		call_method(subname, ~~G_SCALAR~~);
	157	call_method(subname, cxt);
158	158
159	159	SPAGAIN;
…	…
169	169
170	170	SV *
171		perl5_eval(char *code)
172		{
	171	perl5_eval(char *code, int cxt)
	172	{
	173	/* XXX - does not respect context yet */
173	174	return (eval_pv(code, TRUE));
174	175	}

r3876	r3887
7	7	SV * perl5_newSVpv ( char * pv );
8	8	SV * perl5_newSViv ( int iv );
9		SV * perl5_call(char subname, int argc, SV* args);
	9	SV * perl5_call(char subname, int argc, SV* args, int cxt);
10	10	bool perl5_can(SV inv, char subname);
11		SV * perl5_eval(char *code);
	11	SV * perl5_eval(char *code, int cxt);