Front page | perl.tcltk |
Postings from March 2010
RE: Tcl_CreateSlave
Thread Previous
|
Thread Next
From:
Konovalov, Vadim ** CTR **
Date:
March 21, 2010 04:26
Subject:
RE: Tcl_CreateSlave
Message ID:
35BF8D9716175C43BB9D67CA60CC345E1577ACEB@FRMRSSXCHMBSC2.dc-m.alcatel-lucent.com
> On 19/03/2010 5:09 PM, Eric Windisch wrote:
> > I feel it would be particularly useful to be able to create slave
> > interpreters from Perl. This patch includes this capability
> and allows
> > sandbox (MakeSafe) execution of Tcl code.
>
> Patch seems to have been stripped, but can be found at
> https://rt.cpan.org/Public/Bug/Display.html?id=55717.
>
> > Usage as follows:
> >
> > use Tcl;
> > my $interp=Tcl::new();
> > # Arbitrary name and a boolean 'safe' argument
> > my $safeslave=$interp->CreateSlave('name',1);
> > open (my $fh, 'script.tcl');
> > $safeslave->EvalFileHandle($fh);
> >
> > Speaking to Jeff, he argued perhaps changing the name of
> the method and
> > accepting a hash argument:
> > <tclguy> my $interp = new Tcl;
> > <tclguy> my $safeslave = $interp->interp_create(-safe => 1);
>
I am fine with the code,
especially if it will be updated in current repository, which is 'tcl.pm' at github.com
as we remember :)
Regards,
Vadim.
Thread Previous
|
Thread Next