PerlEZ question
--===============1392703271==
Content-Type: multipart/alternative; boundary=0016365ee9100335860472474db5
--0016365ee9100335860472474db5
Content-Type: text/plain; charset=ISO-8859-1
Hello everyone,
Just for fun, I am implementing a Smalltalk->Perl bridge using ActiveState
Perl (this is on windows), by using PerlEz.dll.
So far, I can load the library and create an interpreter, but then I am a
bit lost, when it comes to actually calling a perl script.
I receive error 5 for my PerlEzCall1, which means that the function call
caused an exception
http://docs.activestate.com/activeperl/5.8/Components/Window s/PerlEz.html
says for PerlEzCall1 to pass a pointer name of the function to call as
second parameter.
But I pass the filename (I assume script name) as part of the
PerlEzCreateOpt already - what do I need to pass here?
I would be very greatful for some help.
--0016365ee9100335860472474db5
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable
Hello everyone,<br><br>Just for fun, I am implementing a Smalltalk->Perl=
bridge using ActiveState Perl (this is on windows), by using PerlEz.dll.<b=
r><br>So far, I can load the library and create an interpreter, but then I =
am a bit lost, when it comes to actually calling a perl script.<br>
I receive error 5 for my PerlEzCall1, which means that the function
call caused an exception<br><br><a href=3D"http://docs.activestate.com/acti=
veperl/5.8/Components/Windows/PerlEz.html">http://docs.activ estate.com/acti=
veperl/5.8/Components/Windows/PerlEz.html</a><br><br>says for <a name=3D"pe=
rlezcall1">PerlEzCall1 to pass a pointer name of the function to call as se=
cond parameter.<br>
<br>But I pass the filename (I assume script name) as part of the PerlEzCre=
ateOpt already - what do I need to pass here?<br><br><br><br>I would be ver=
y greatful for some help.<br><br><br></a>
--0016365ee9100335860472474db5--
--===============1392703271==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline
_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--===============1392703271==--
RE: PerlEZ question
This is a multipart message in MIME format.
--===============1108517955==
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_0312_01CA2A42.B80628E0"
Content-Language: en-us
This is a multipart message in MIME format.
------=_NextPart_000_0312_01CA2A42.B80628E0
Content-Type: text/plain;
charset="us-ascii"
Content-Transfer-Encoding: 7bit
The script you passed to PerlEzCreate() should already have been executed by the tim PerlEzCreate() returns. But the interpreter
still hangs around at this point (and END blocks have not yet been executed). So you can call arbitrary functions, or evaluate
further Perl code before you destgroy the interpreter.
In general I prefer embedding Perl using its native embedding interface instead of using PerlEz, assuming you can write your
embedding code in C/C++:
http://docs.activestate.com/activeperl/5.10/lib/pods/perlemb ed.html
It is more work though, so for simple requirements PerlEz may be simpler to get working.
Cheers,
-Jan
From: activeperl-bounces [at] listserv.ActiveState.com [mailto:activeperl-bounces [at] listserv.ActiveState.com] On Behalf Of Claus Kick
Sent: Saturday, August 29, 2009 5:54 AM
To: activeperl [at] listserv.ActiveState.com
Subject: PerlEZ question
Hello everyone,
Just for fun, I am implementing a Smalltalk->Perl bridge using ActiveState Perl (this is on windows), by using PerlEz.dll.
So far, I can load the library and create an interpreter, but then I am a bit lost, when it comes to actually calling a perl script.
I receive error 5 for my PerlEzCall1, which means that the function call caused an exception
http://docs.activestate.com/activeperl/5.8/Components/Window s/PerlEz.html
says for PerlEzCall1 to pass a pointer name of the function to call as second parameter.
But I pass the filename (I assume script name) as part of the PerlEzCreateOpt already - what do I need to pass here?
I would be very greatful for some help.
------=_NextPart_000_0312_01CA2A42.B80628E0
Content-Type: text/html;
charset="us-ascii"
Content-Transfer-Encoding: quoted-printable
<html xmlns:v=3D"urn:schemas-microsoft-com:vml" =
xmlns:o=3D"urn:schemas-microsoft-com:office:office" =
xmlns:w=3D"urn:schemas-microsoft-com:office:word" =
xmlns:m=3D"http://schemas.microsoft.com/office/2004/12/omml" =
xmlns=3D"http://www.w3.org/TR/REC-html40"><head><meta =
http-equiv=3DContent-Type content=3D"text/html; =
charset=3Dus-ascii"><meta name=3DGenerator content=3D"Microsoft Word 14 =
(filtered medium)"><style><!--
/* Font Definitions */
[at] font-face
{font-family:"Cambria Math";
panose-1:2 4 5 3 5 4 6 3 2 4;}
[at] font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
[at] font-face
{font-family:Tahoma;
panose-1:2 11 6 4 3 5 4 4 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0in;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman","serif";}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;}
span.EmailStyle17
{mso-style-type:personal-reply;
font-family:"Calibri","sans-serif";
color:#1F497D;}
..MsoChpDefault
{mso-style-type:export-only;
font-family:"Calibri","sans-serif";}
[at] page Section1
{size:8.5in 11.0in;
margin:1.0in 1.0in 1.0in 1.0in;}
div.Section1
{page:Section1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext=3D"edit" spidmax=3D"1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext=3D"edit">
<o:idmap v:ext=3D"edit" data=3D"1" />
</o:shapelayout></xml><![endif]--></head><body lang=3DEN-US link=3Dblue =
vlink=3Dpurple><div class=3DSection1><p class=3DMsoNormal><span =
style=3D'font-size:11.0pt;font-family:"Calibri","sans-serif" ;color:#1F497=
D'>The script you passed to PerlEzCreate() should already have been =
executed by the tim PerlEzCreate() returns. But the interpreter still =
hangs around at this point (and END blocks have not yet been =
executed). So you can call arbitrary functions, or evaluate =
further Perl code before you destgroy the =
interpreter.<o:p></o:p></span></p><p class=3DMsoNormal><span =
style=3D'font-size:11.0pt;font-family:"Calibri","sans-serif" ;color:#1F497=
D'><o:p> </o:p></span></p><p class=3DMsoNormal><span =
style=3D'font-size:11.0pt;font-family:"Calibri","sans-serif" ;color:#1F497=
D'>In general I prefer embedding Perl using its native embedding =
interface instead of using PerlEz, assuming you can write your embedding =
code in C/C++:<o:p></o:p></span></p><p class=3DMsoNormal><span =
style=3D'font-size:11.0pt;font-family:"Calibri","sans-serif" ;color:#1F497=
D'><o:p> </o:p></span></p><p class=3DMsoNormal><span =
style=3D'font-size:11.0pt;font-family:"Calibri","sans-serif" ;color:#1F497=
D'><a =
href=3D"http://docs.activestate.com/activeperl/5.10/lib/pods /perlembed.ht=
ml">http://docs.activestate.com/activeperl/5.10/lib/pods/per lembed.html</=
a><o:p></o:p></span></p><p class=3DMsoNormal><span =
style=3D'font-size:11.0pt;font-family:"Calibri","sans-serif" ;color:#1F497=
D'><o:p> </o:p></span></p><p class=3DMsoNormal><span =
style=3D'font-size:11.0pt;font-family:"Calibri","sans-serif" ;color:#1F497=
D'>It is more work though, so for simple requirements PerlEz may be =
simpler to get working.<o:p></o:p></span></p><p class=3DMsoNormal><span =
style=3D'font-size:11.0pt;font-family:"Calibri","sans-serif" ;color:#1F497=
D'><o:p> </o:p></span></p><p class=3DMsoNormal><span =
style=3D'font-size:11.0pt;font-family:"Calibri","sans-serif" ;color:#1F497=
D'>Cheers,<o:p></o:p></span></p><p class=3DMsoNormal><span =
style=3D'font-size:11.0pt;font-family:"Calibri","sans-serif" ;color:#1F497=
D'>-Jan<o:p></o:p></span></p><p class=3DMsoNormal><span =
style=3D'font-size:11.0pt;font-family:"Calibri","sans-serif" ;color:#1F497=
D'><o:p> </o:p></span></p><div =
style=3D'border:none;border-left:solid blue 1.5pt;padding:0in 0in 0in =
4.0pt'><div><div style=3D'border:none;border-top:solid #B5C4DF =
1.0pt;padding:3.0pt 0in 0in 0in'><p class=3DMsoNormal><b><span =
style=3D'font-size:10.0pt;font-family:"Tahoma","sans-serif"' >From:</span>=
</b><span style=3D'font-size:10.0pt;font-family:"Tahoma","sans-serif"'> =
activeperl-bounces [at] listserv.ActiveState.com =
[mailto:activeperl-bounces [at] listserv.ActiveState.com] <b>On Behalf Of =
</b>Claus Kick<br><b>Sent:</b> Saturday, August 29, 2009 5:54 =
AM<br><b>To:</b> activeperl [at] listserv.ActiveState.com<br><b>Subject:</b> =
PerlEZ question<o:p></o:p></span></p></div></div><p =
class=3DMsoNormal><o:p> </o:p></p><p class=3DMsoNormal =
style=3D'margin-bottom:12.0pt'>Hello everyone,<br><br>Just for fun, I am =
implementing a Smalltalk->Perl bridge using ActiveState Perl (this is =
on windows), by using PerlEz.dll.<br><br>So far, I can load the library =
and create an interpreter, but then I am a bit lost, when it comes to =
actually calling a perl script.<br>I receive error 5 for my PerlEzCall1, =
which means that the function call caused an exception<br><br><a =
href=3D"http://docs.activestate.com/activeperl/5.8/Component s/Windows/Per=
lEz.html">http://docs.activestate.com/activeperl/5.8/Compone nts/Windows/P=
erlEz.html</a><br><br>says for <a name=3Dperlezcall1>PerlEzCall1 to pass =
a pointer name of the function to call as second parameter.<br><br>But I =
pass the filename (I assume script name) as part of the PerlEzCreateOpt =
already - what do I need to pass here?<br><br><br><br>I would be very =
greatful for some =
help.<br><br></a><o:p></o:p></p></div></div></body></html>
------=_NextPart_000_0312_01CA2A42.B80628E0--
--===============1108517955==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline
_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--===============1108517955==--