X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pod%2Fperlcall.pod;h=dd520afcaa1aa967564721dc1090f5b58d845c57;hb=10ac92784f49d4a1fe54cc1ed7d05f0d3b2a2f29;hp=ac9229fbb1d742a142cd2002308cce1f69ac325e;hpb=184e971831b273a4209000a9990327c3ea67e866;p=p5sagit%2Fp5-mst-13.2.git diff --git a/pod/perlcall.pod b/pod/perlcall.pod index ac9229f..dd520af 100644 --- a/pod/perlcall.pod +++ b/pod/perlcall.pod @@ -5,7 +5,7 @@ perlcall - Perl calling conventions from C =head1 DESCRIPTION The purpose of this document is to show you how to call Perl subroutines -directly from C, i.e. how to write I. +directly from C, i.e., how to write I. Apart from discussing the C interface provided by Perl for writing callbacks the document uses a series of examples to show how the @@ -30,7 +30,7 @@ called instead. The classic example of where callbacks are used is when writing an event driven program like for an X windows application. In this case you register functions to be called whenever specific events occur, -e.g. a mouse button is pressed, the cursor moves into a window or a +e.g., a mouse button is pressed, the cursor moves into a window or a menu item is selected. =back @@ -45,7 +45,7 @@ Before you launch yourself head first into the rest of this document, it would be a good idea to have read the following two documents - L and L. -=head1 THE PERL_CALL FUNCTIONS +=head1 THE CALL_ FUNCTIONS Although this stuff is easier to explain using examples, you first need be aware of a few important definitions. @@ -53,17 +53,17 @@ be aware of a few important definitions. Perl has a number of C functions that allow you to call Perl subroutines. They are - I32 perl_call_sv(SV* sv, I32 flags) ; - I32 perl_call_pv(char *subname, I32 flags) ; - I32 perl_call_method(char *methname, I32 flags) ; - I32 perl_call_argv(char *subname, I32 flags, register char **argv) ; + I32 call_sv(SV* sv, I32 flags) ; + I32 call_pv(char *subname, I32 flags) ; + I32 call_method(char *methname, I32 flags) ; + I32 call_argv(char *subname, I32 flags, register char **argv) ; -The key function is I. All the other functions are +The key function is I. All the other functions are fairly simple wrappers which make it easier to call Perl subroutines in -special cases. At the end of the day they will all call I -to actually invoke the Perl subroutine. +special cases. At the end of the day they will all call I +to invoke the Perl subroutine. -All the I functions have a C parameter which is +All the I functions have a C parameter which is used to pass a bit mask of options to Perl. This bit mask operates identically for each of the functions. The settings available in the bit mask are discussed in L. @@ -72,40 +72,40 @@ Each of the functions will now be discussed in turn. =over 5 -=item B +=item call_sv -I takes two parameters, the first, C, is an SV*. +I takes two parameters, the first, C, is an SV*. This allows you to specify the Perl subroutine to be called either as a C string (which has first been converted to an SV) or a reference to a -subroutine. The section, I, shows how you can make -use of I. +subroutine. The section, I, shows how you can make +use of I. -=item B +=item call_pv -The function, I, is similar to I except it +The function, I, is similar to I except it expects its first parameter to be a C char* which identifies the Perl -subroutine you want to call, e.g. C. If the +subroutine you want to call, e.g., C. If the subroutine you want to call is in another package, just include the -package name in the string, e.g. C<"pkg::fred">. +package name in the string, e.g., C<"pkg::fred">. -=item B +=item call_method -The function I is used to call a method from a Perl +The function I is used to call a method from a Perl class. The parameter C corresponds to the name of the method to be called. Note that the class that the method belongs to is passed on the Perl stack rather than in the parameter list. This class can be either the name of the class (for a static method) or a reference to an object (for a virtual method). See L for more information on -static and virtual methods and L for an example -of using I. +static and virtual methods and L for an example +of using I. -=item B +=item call_argv -I calls the Perl subroutine specified by the C string +I calls the Perl subroutine specified by the C string stored in the C parameter. It also takes the usual C parameter. The final parameter, C, consists of a NULL terminated list of C strings to be passed as parameters to the Perl subroutine. -See I. +See I. =back @@ -116,20 +116,45 @@ subroutine are stored on the Perl stack. As a general rule you should I check the return value from these functions. Even if you are expecting only a particular number of values to be returned from the Perl subroutine, there is nothing to -stop someone from doing something unexpected - don't say you haven't +stop someone from doing something unexpected--don't say you haven't been warned. =head1 FLAG VALUES -The C parameter in all the I functions is a bit mask +The C parameter in all the I functions is a bit mask which can consist of any combination of the symbols defined below, OR'ed together. +=head2 G_VOID + +Calls the Perl subroutine in a void context. + +This flag has 2 effects: + +=over 5 + +=item 1. + +It indicates to the subroutine being called that it is executing in +a void context (if it executes I the result will be the +undefined value). + +=item 2. + +It ensures that nothing is actually returned from the subroutine. + +=back + +The value returned by the I function indicates how many +items have been returned by the Perl subroutine - in this case it will +be 0. + + =head2 G_SCALAR Calls the Perl subroutine in a scalar context. This is the default -context flag setting for all the I functions. +context flag setting for all the I functions. This flag has 2 effects: @@ -140,7 +165,6 @@ This flag has 2 effects: It indicates to the subroutine being called that it is executing in a scalar context (if it executes I the result will be false). - =item 2. It ensures that only a scalar is actually returned from the subroutine. @@ -150,7 +174,7 @@ returned. =back -The value returned by the I function indicates how many +The value returned by the I function indicates how many items have been returned by the Perl subroutine - in this case it will be either 0 or 1. @@ -163,8 +187,8 @@ many items the Perl subroutine returns, only the last one will be accessible from the stack - think of the case where only one value is returned as being a list with only one element. Any other items that were returned will not exist by the time control returns from the -I function. The section I shows an example of this behaviour. +I function. The section I shows an example of this behavior. =head2 G_ARRAY @@ -177,18 +201,18 @@ As with G_SCALAR, this flag has 2 effects: =item 1. -It indicates to the subroutine being called that it is executing in an -array context (if it executes I the result will be true). +It indicates to the subroutine being called that it is executing in a +list context (if it executes I the result will be true). =item 2. It ensures that all items returned from the subroutine will be -accessible when control returns from the I function. +accessible when control returns from the I function. =back -The value returned by the I function indicates how many +The value returned by the I function indicates how many items have been returned by the Perl subroutine. If 0, then you have specified the G_DISCARD flag. @@ -201,23 +225,23 @@ Perl stack. =head2 G_DISCARD -By default, the I functions place the items returned from +By default, the I functions place the items returned from by the Perl subroutine on the stack. If you are not interested in these items, then setting this flag will make Perl get rid of them automatically for you. Note that it is still possible to indicate a context to the Perl subroutine by using either G_SCALAR or G_ARRAY. If you do not set this flag then it is I important that you make -sure that any temporaries (i.e. parameters passed to the Perl +sure that any temporaries (i.e., parameters passed to the Perl subroutine and values returned from the subroutine) are disposed of yourself. The section I gives details of how to -explicitly dispose of these temporaries and the section I discusses the specific circumstances where you can ignore the problem and let Perl deal with it for you. =head2 G_NOARGS -Whenever a Perl subroutine is called using one of the I +Whenever a Perl subroutine is called using one of the I functions, it is assumed by default that parameters are to be passed to the subroutine. If you are not passing any parameters to the Perl subroutine, you can save a bit of time by setting this flag. It has @@ -231,7 +255,7 @@ has been called to think that you have passed it parameters. In fact, what can happen is that the Perl subroutine you have called can access the C<@_> array from a previous Perl subroutine. This will -occur when the code that is executing the I function has +occur when the code that is executing the I function has itself been called from another Perl subroutine. The code below illustrates this @@ -251,19 +275,19 @@ What has happened is that C accesses the C<@_> array which belongs to C. -=head2 G_EVAL +=head2 G_EVAL It is possible for the Perl subroutine you are calling to terminate -abnormally, e.g. by calling I explicitly or by not actually -existing. By default, when either of these of events occurs, the -process will terminate immediately. If though, you want to trap this +abnormally, e.g., by calling I explicitly or by not actually +existing. By default, when either of these events occurs, the +process will terminate immediately. If you want to trap this type of event, specify the G_EVAL flag. It will put an I around the subroutine call. -Whenever control returns from the I function you need to +Whenever control returns from the I function you need to check the C<$@> variable as you would in a normal Perl script. -The value returned from the I function is dependent on +The value returned from the I function is dependent on what other flags have been specified and whether an error has occurred. Here are all the different cases that can occur: @@ -271,7 +295,7 @@ occurred. Here are all the different cases that can occur: =item * -If the I function returns normally, then the value +If the I function returns normally, then the value returned is as specified in the previous sections. =item * @@ -293,7 +317,7 @@ from the stack. =back -See I for details of using G_EVAL. +See I for details on using G_EVAL. =head2 G_KEEPERR @@ -314,31 +338,38 @@ such situations, you will not want to clear C<$@> at all, but simply to append any new errors to any existing value of C<$@>. The G_KEEPERR flag is meant to be used in conjunction with G_EVAL in -I functions that are used to implement such code. This flag +I functions that are used to implement such code. This flag has no effect when G_EVAL is not used. When G_KEEPERR is used, any errors in the called code will be prefixed with the string "\t(in cleanup)", and appended to the current value -of C<$@>. +of C<$@>. an error will not be appended if that same error string is +already at the end of C<$@>. + +In addition, a warning is generated using the appended string. This can be +disabled using C. The G_KEEPERR flag was introduced in Perl version 5.002. See I for an example of a situation that warrants the use of this flag. -=head2 Determining the Context +=head2 Determining the Context As mentioned above, you can determine the context of the currently -executing subroutine in Perl with I. The equivalent test can -be made in C by using the C macro. This will return C -if you have been called in a scalar context and C if in an -array context. An example of using the C macro is shown in -section I. +executing subroutine in Perl with I. The equivalent test +can be made in C by using the C macro, which returns +C if you have been called in a list context, C if +in a scalar context, or C if in a void context (i.e. the +return value will not be used). An older version of this macro is +called C; in a void context it returns C instead of +C. An example of using the C macro is shown in +section I. =head1 KNOWN PROBLEMS This section outlines all known problems that exist in the -I functions. +I functions. =over 5 @@ -351,12 +382,12 @@ flags will not work as described in the section I. Specifically, if the two flags are used when calling a subroutine and that subroutine does not call I, the value returned by -I will be wrong. +I will be wrong. =item 2. -In Perl 5.000 and 5.001 there is a problem with using I if +In Perl 5.000 and 5.001 there is a problem with using I if the Perl sub you are calling attempts to trap a I. The symptom of this problem is that the called Perl sub will continue @@ -368,7 +399,7 @@ For example, say you want to call this Perl sub sub fred { eval { die "Fatal Error" ; } - print "Trapped error: $@\n" + print "Trapped error: $@\n" if $@ ; } @@ -377,8 +408,8 @@ via this XSUB void Call_fred() CODE: - PUSHMARK(sp) ; - perl_call_pv("fred", G_DISCARD|G_NOARGS) ; + PUSHMARK(SP) ; + call_pv("fred", G_DISCARD|G_NOARGS) ; fprintf(stderr, "back in Call_fred\n") ; When C is executed it will print @@ -388,14 +419,14 @@ When C is executed it will print As control never returns to C, the C<"back in Call_fred"> string will not get printed. -To work around this problem, you can either upgrade to Perl 5.002 (or -later), or use the G_EVAL flag with I as shown below +To work around this problem, you can either upgrade to Perl 5.002 or +higher, or use the G_EVAL flag with I as shown below void Call_fred() CODE: - PUSHMARK(sp) ; - perl_call_pv("fred", G_EVAL|G_DISCARD|G_NOARGS) ; + PUSHMARK(SP) ; + call_pv("fred", G_EVAL|G_DISCARD|G_NOARGS) ; fprintf(stderr, "back in Call_fred\n") ; =back @@ -408,15 +439,15 @@ Enough of the definition talk, let's have a few examples. Perl provides many macros to assist in accessing the Perl stack. Wherever possible, these macros should always be used when interfacing -to Perl internals. Hopefully this should make the code less vulnerable +to Perl internals. We hope this should make the code less vulnerable to any changes made to Perl in the future. Another point worth noting is that in the first series of examples I -have made use of only the I function. This has been done +have made use of only the I function. This has been done to keep the code simpler and ease you into the topic. Wherever -possible, if the choice is between using I and -I, you should always try to use I. See -I for details. +possible, if the choice is between using I and +I, you should always try to use I. See +I for details. =head2 No Parameters, Nothing returned @@ -435,8 +466,8 @@ and here is a C function to call it { dSP ; - PUSHMARK(sp) ; - perl_call_pv("PrintUID", G_DISCARD|G_NOARGS) ; + PUSHMARK(SP) ; + call_pv("PrintUID", G_DISCARD|G_NOARGS) ; } Simple, eh. @@ -447,7 +478,7 @@ A few points to note about this example. =item 1. -Ignore C and C for now. They will be discussed in +Ignore C and C for now. They will be discussed in the next example. =item 2. @@ -458,29 +489,29 @@ specified. =item 3. We aren't interested in anything returned from I, so -G_DISCARD is specified. Even if I was changed to actually +G_DISCARD is specified. Even if I was changed to return some value(s), having specified G_DISCARD will mean that they -will be wiped by the time control returns from I. +will be wiped by the time control returns from I. =item 4. -As I is being used, the Perl subroutine is specified as a +As I is being used, the Perl subroutine is specified as a C string. In this case the subroutine name has been 'hard-wired' into the code. =item 5. Because we specified G_DISCARD, it is not necessary to check the value -returned from I. It will always be 0. +returned from I. It will always be 0. =back =head2 Passing Parameters Now let's make a slightly more complex example. This time we want to -call a Perl subroutine, C, which will take 2 parameters - a -string (C<$s>) and an integer (C<$n>). The subroutine will simply -print the first C<$n> characters of the string. +call a Perl subroutine, C, which will take 2 parameters--a +string ($s) and an integer ($n). The subroutine will simply +print the first $n characters of the string. So the Perl subroutine would look like this @@ -499,12 +530,18 @@ The C function required to call I would look like this. { dSP ; - PUSHMARK(sp) ; + ENTER ; + SAVETMPS ; + + PUSHMARK(SP) ; XPUSHs(sv_2mortal(newSVpv(a, 0))); XPUSHs(sv_2mortal(newSViv(b))); PUTBACK ; - perl_call_pv("LeftString", G_DISCARD); + call_pv("LeftString", G_DISCARD); + + FREETMPS ; + LEAVE ; } Here are a few notes on the C function I. @@ -515,13 +552,14 @@ Here are a few notes on the C function I. Parameters are passed to the Perl subroutine using the Perl stack. This is the purpose of the code beginning with the line C and -ending with the line C. - +ending with the line C. The C declares a local copy +of the stack pointer. This local copy should B be accessed +as C. =item 2. If you are going to put something onto the Perl stack, you need to know -where to put it. This is the purpose of the macro C - it declares +where to put it. This is the purpose of the macro C--it declares and initializes a I copy of the Perl stack pointer. All the other macros which will be used in this example require you to @@ -529,49 +567,75 @@ have used this macro. The exception to this rule is if you are calling a Perl subroutine directly from an XSUB function. In this case it is not necessary to -explicitly use the C macro - it will be declared for you +use the C macro explicitly--it will be declared for you automatically. =item 3. Any parameters to be pushed onto the stack should be bracketed by the C and C macros. The purpose of these two macros, in -this context, is to automatically count the number of parameters you -are pushing. Then whenever Perl is creating the C<@_> array for the +this context, is to count the number of parameters you are +pushing automatically. Then whenever Perl is creating the C<@_> array for the subroutine, it knows how big to make it. The C macro tells Perl to make a mental note of the current stack pointer. Even if you aren't passing any parameters (like the example shown in the section I) you must still call the C macro before you can call any of the -I functions - Perl still needs to know that there are no +I functions--Perl still needs to know that there are no parameters. The C macro sets the global copy of the stack pointer to be -the same as our local copy. If we didn't do this I -wouldn't know where the two parameters we pushed were - remember that +the same as our local copy. If we didn't do this I +wouldn't know where the two parameters we pushed were--remember that up to now all the stack pointer manipulation we have done is with our local copy, I the global copy. =item 4. -The only flag specified this time is G_DISCARD. Since we are passing 2 -parameters to the Perl subroutine this time, we have not specified -G_NOARGS. - -=item 5. - Next, we come to XPUSHs. This is where the parameters actually get pushed onto the stack. In this case we are pushing a string and an integer. -See the L for details +See L for details on how the XPUSH macros work. +=item 5. + +Because we created temporary values (by means of sv_2mortal() calls) +we will have to tidy up the Perl stack and dispose of mortal SVs. + +This is the purpose of + + ENTER ; + SAVETMPS ; + +at the start of the function, and + + FREETMPS ; + LEAVE ; + +at the end. The C/C pair creates a boundary for any +temporaries we create. This means that the temporaries we get rid of +will be limited to those which were created after these calls. + +The C/C pair will get rid of any values returned by +the Perl subroutine (see next example), plus it will also dump the +mortal SVs we have created. Having C/C at the +beginning of the code makes sure that no other mortals are destroyed. + +Think of these macros as working a bit like using C<{> and C<}> in Perl +to limit the scope of local variables. + +See the section I for details of +an alternative to using these macros. + =item 6. -Finally, I can now be called via the I -function. +Finally, I can now be called via the I function. +The only flag specified this time is G_DISCARD. Because we are passing +2 parameters to the Perl subroutine this time, we have not specified +G_NOARGS. =back @@ -580,7 +644,7 @@ function. Now for an example of dealing with the items returned from a Perl subroutine. -Here is a Perl subroutine, I, which takes 2 integer parameters +Here is a Perl subroutine, I, that takes 2 integer parameters and simply returns their sum. sub Adder @@ -589,7 +653,7 @@ and simply returns their sum. $a + $b ; } -Since we are now concerned with the return value from I, the C +Because we are now concerned with the return value from I, the C function required to call it is now a bit more complex. static void @@ -603,12 +667,12 @@ function required to call it is now a bit more complex. ENTER ; SAVETMPS; - PUSHMARK(sp) ; + PUSHMARK(SP) ; XPUSHs(sv_2mortal(newSViv(a))); XPUSHs(sv_2mortal(newSViv(b))); PUTBACK ; - count = perl_call_pv("Adder", G_SCALAR); + count = call_pv("Adder", G_SCALAR); SPAGAIN ; @@ -626,68 +690,36 @@ Points to note this time are =over 5 -=item 1. +=item 1. The only flag specified this time was G_SCALAR. That means the C<@_> array will be created and that the value returned by I will -still exist after the call to I. - - +still exist after the call to I. =item 2. -Because we are interested in what is returned from I we cannot -specify G_DISCARD. This means that we will have to tidy up the Perl -stack and dispose of any temporary values ourselves. This is the -purpose of - - ENTER ; - SAVETMPS ; - -at the start of the function, and - - FREETMPS ; - LEAVE ; - -at the end. The C/C pair creates a boundary for any -temporaries we create. This means that the temporaries we get rid of -will be limited to those which were created after these calls. - -The C/C pair will get rid of any values returned by -the Perl subroutine, plus it will also dump the mortal SV's we have -created. Having C/C at the beginning of the code -makes sure that no other mortals are destroyed. - -Think of these macros as working a bit like using C<{> and C<}> in Perl -to limit the scope of local variables. - -See the section I for details of -an alternative to using these macros. - -=item 3. - The purpose of the macro C is to refresh the local copy of the stack pointer. This is necessary because it is possible that the memory -allocated to the Perl stack has been re-allocated whilst in the -I call. +allocated to the Perl stack has been reallocated whilst in the +I call. If you are making use of the Perl stack pointer in your code you must -always refresh the your local copy using SPAGAIN whenever you make use -of the I functions or any other Perl internal function. +always refresh the local copy using SPAGAIN whenever you make use +of the I functions or any other Perl internal function. -=item 4. +=item 3. Although only a single value was expected to be returned from I, -it is still good practice to check the return code from I +it is still good practice to check the return code from I anyway. Expecting a single value is not quite the same as knowing that there will be one. If someone modified I to return a list and we didn't check for that possibility and take appropriate action the Perl stack would end up in an inconsistent state. That is something you -I don't want to ever happen. +I don't want to happen ever. -=item 5. +=item 4. The C macro is used here to pop the return value from the stack. In this case we wanted an integer, so C was used. @@ -702,7 +734,7 @@ they return. POPi integer POPl long -=item 6. +=item 5. The final C is used to leave the Perl stack in a consistent state before exiting the function. This is necessary because when we @@ -739,12 +771,12 @@ and this is the C function ENTER ; SAVETMPS; - PUSHMARK(sp) ; + PUSHMARK(SP) ; XPUSHs(sv_2mortal(newSViv(a))); XPUSHs(sv_2mortal(newSViv(b))); PUTBACK ; - count = perl_call_pv("AddSubtract", G_ARRAY); + count = call_pv("AddSubtract", G_ARRAY); SPAGAIN ; @@ -774,7 +806,7 @@ Notes =item 1. -We wanted array context, so G_ARRAY was used. +We wanted list context, so G_ARRAY was used. =item 2. @@ -802,12 +834,12 @@ context, like this ENTER ; SAVETMPS; - PUSHMARK(sp) ; + PUSHMARK(SP) ; XPUSHs(sv_2mortal(newSViv(a))); XPUSHs(sv_2mortal(newSViv(b))); PUTBACK ; - count = perl_call_pv("AddSubtract", G_SCALAR); + count = call_pv("AddSubtract", G_SCALAR); SPAGAIN ; @@ -834,7 +866,7 @@ then the output will be Value 1 = 3 In this case the main point to note is that only the last item in the -list returned from the subroutine, I actually made it back to +list is returned from the subroutine, I actually made it back to I. @@ -870,12 +902,12 @@ and here is a C function to call it. sva = sv_2mortal(newSViv(a)) ; svb = sv_2mortal(newSViv(b)) ; - PUSHMARK(sp) ; + PUSHMARK(SP) ; XPUSHs(sva); XPUSHs(svb); PUTBACK ; - count = perl_call_pv("Inc", G_DISCARD); + count = call_pv("Inc", G_DISCARD); if (count != 0) croak ("call_Inc: expected 0 values from 'Inc', got %d\n", @@ -889,12 +921,12 @@ and here is a C function to call it. } To be able to access the two parameters that were pushed onto the stack -after they return from I it is necessary to make a note -of their addresses - thus the two variables C and C. +after they return from I it is necessary to make a note +of their addresses--thus the two variables C and C. The reason this is necessary is that the area of the Perl stack which held them will very likely have been overwritten by something else by -the time control returns from I. +the time control returns from I. @@ -927,19 +959,20 @@ and some C to call it ENTER ; SAVETMPS; - PUSHMARK(sp) ; + PUSHMARK(SP) ; XPUSHs(sv_2mortal(newSViv(a))); XPUSHs(sv_2mortal(newSViv(b))); PUTBACK ; - count = perl_call_pv("Subtract", G_EVAL|G_SCALAR); + count = call_pv("Subtract", G_EVAL|G_SCALAR); SPAGAIN ; /* Check the eval first */ - if (SvTRUE(GvSV(errgv))) + if (SvTRUE(ERRSV)) { - printf ("Uh oh - %s\n", SvPV(GvSV(errgv), na)) ; + STRLEN n_a; + printf ("Uh oh - %s\n", SvPV(ERRSV, n_a)) ; POPs ; } else @@ -977,11 +1010,12 @@ I. =item 2. -The code +The code - if (SvTRUE(GvSV(errgv))) + if (SvTRUE(ERRSV)) { - printf ("Uh oh - %s\n", SvPV(GvSV(errgv), na)) ; + STRLEN n_a; + printf ("Uh oh - %s\n", SvPV(ERRSV, n_a)) ; POPs ; } @@ -989,16 +1023,16 @@ is the direct equivalent of this bit of Perl print "Uh oh - $@\n" if $@ ; -C is a perl global of type C that points to the -symbol table entry containing the error. C therefore +C is a perl global of type C that points to the +symbol table entry containing the error. C therefore refers to the C equivalent of C<$@>. =item 3. Note that the stack is popped using C in the block where -C is true. This is necessary because whenever a -I function invoked with G_EVAL|G_SCALAR returns an error, -the top of the stack holds the value I. Since we want the +C is true. This is necessary because whenever a +I function invoked with G_EVAL|G_SCALAR returns an error, +the top of the stack holds the value I. Because we want the program to continue after detecting this error, it is essential that the stack is tidied up by removing the I. @@ -1012,7 +1046,7 @@ version of the call_Subtract example above inside a destructor: package Foo; sub new { bless {}, $_[0] } - sub Subtract { + sub Subtract { my($a,$b) = @_; die "death can be fatal" if $a < $b ; $a - $b; @@ -1026,19 +1060,19 @@ version of the call_Subtract example above inside a destructor: This example will fail to recognize that an error occurred inside the C. Here's why: the call_Subtract code got executed while perl -was cleaning up temporaries when exiting the eval block, and since -call_Subtract is implemented with I using the G_EVAL +was cleaning up temporaries when exiting the eval block, and because +call_Subtract is implemented with I using the G_EVAL flag, it promptly reset C<$@>. This results in the failure of the outermost test for C<$@>, and thereby the failure of the error trap. -Appending the G_KEEPERR flag, so that the I call in +Appending the G_KEEPERR flag, so that the I call in call_Subtract reads: - count = perl_call_pv("Subtract", G_EVAL|G_SCALAR|G_KEEPERR); + count = call_pv("Subtract", G_EVAL|G_SCALAR|G_KEEPERR); will preserve the error and restore reliable error handling. -=head2 Using perl_call_sv +=head2 Using call_sv In all the previous examples I have 'hard-wired' the name of the Perl subroutine to be called from C. Most of the time though, it is more @@ -1060,26 +1094,26 @@ Here is a snippet of XSUB which defines I. CallSubPV(name) char * name CODE: - PUSHMARK(sp) ; - perl_call_pv(name, G_DISCARD|G_NOARGS) ; + PUSHMARK(SP) ; + call_pv(name, G_DISCARD|G_NOARGS) ; -That is fine as far as it goes. The thing is, the Perl subroutine -can be specified only as a string. For Perl 4 this was adequate, +That is fine as far as it goes. The thing is, the Perl subroutine +can be specified as only a string. For Perl 4 this was adequate, but Perl 5 allows references to subroutines and anonymous subroutines. -This is where I is useful. +This is where I is useful. The code below for I is identical to I except that the C parameter is now defined as an SV* and we use -I instead of I. +I instead of I. void CallSubSV(name) SV * name CODE: - PUSHMARK(sp) ; - perl_call_sv(name, G_DISCARD|G_NOARGS) ; + PUSHMARK(SP) ; + call_sv(name, G_DISCARD|G_NOARGS) ; -Since we are using an SV to call I the following can all be used +Because we are using an SV to call I the following can all be used CallSubSV("fred") ; CallSubSV(\&fred) ; @@ -1087,12 +1121,12 @@ Since we are using an SV to call I the following can all be used CallSubSV($ref) ; CallSubSV( sub { print "Hello there\n" } ) ; -As you can see, I gives you much greater flexibility in +As you can see, I gives you much greater flexibility in how you can specify the Perl subroutine. You should note that if it is necessary to store the SV (C in the example above) which corresponds to the Perl subroutine so that it can -be used later in the program, it not enough to just store a copy of the +be used later in the program, it not enough just to store a copy of the pointer to the SV. Say the code above had been like this static SV * rememberSub ; @@ -1106,8 +1140,8 @@ pointer to the SV. Say the code above had been like this void CallSavedSub1() CODE: - PUSHMARK(sp) ; - perl_call_sv(rememberSub, G_DISCARD|G_NOARGS) ; + PUSHMARK(SP) ; + call_sv(rememberSub, G_DISCARD|G_NOARGS) ; The reason this is wrong is that by the time you come to use the pointer C in C, it may or may not still refer @@ -1121,31 +1155,31 @@ particularly true for these cases CallSavedSub1() ; By the time each of the C statements above have been executed, -the SV*'s which corresponded to the parameters will no longer exist. +the SV*s which corresponded to the parameters will no longer exist. Expect an error message from Perl of the form Can't use an undefined value as a subroutine reference at ... for each of the C lines. -Similarly, with this code +Similarly, with this code $ref = \&fred ; SaveSub1($ref) ; $ref = 47 ; CallSavedSub1() ; -you can expect one of these messages (which you actually get is dependent on -the version of Perl you are using) +you can expect one of these messages (which you actually get is dependent on +the version of Perl you are using) Not a CODE reference at ... Undefined subroutine &main::47 called ... -The variable C<$ref> may have referred to the subroutine C +The variable $ref may have referred to the subroutine C whenever the call to C was made but by the time -C gets called it now holds the number C<47>. Since we +C gets called it now holds the number C<47>. Because we saved only a pointer to the original SV in C, any changes to -C<$ref> will be tracked by the pointer C. This means that +$ref will be tracked by the pointer C. This means that whenever C gets called, it will attempt to execute the code which is referenced by the SV* C. In this case though, it now refers to the integer C<47>, so expect Perl to complain @@ -1159,7 +1193,7 @@ A similar but more subtle problem is illustrated with this code CallSavedSub1() ; This time whenever C get called it will execute the Perl -subroutine C (assuming it exists) rather than C as was +subroutine C (assuming it exists) rather than C as was originally requested in the call to C. To get around these problems it is necessary to take a full copy of the @@ -1182,10 +1216,10 @@ SV. The code below shows C modified to do that void CallSavedSub2() CODE: - PUSHMARK(sp) ; - perl_call_sv(keepSub, G_DISCARD|G_NOARGS) ; + PUSHMARK(SP) ; + call_sv(keepSub, G_DISCARD|G_NOARGS) ; -In order to avoid creating a new SV every time C is called, +To avoid creating a new SV every time C is called, the function first checks to see if it has been called before. If not, then space for a new SV is allocated and the reference to the Perl subroutine, C is copied to the variable C in one @@ -1193,7 +1227,7 @@ operation using C. Thereafter, whenever C is called the existing SV, C, is overwritten with the new value using C. -=head2 Using perl_call_argv +=head2 Using call_argv Here is a Perl subroutine which prints whatever parameters are passed to it. @@ -1205,7 +1239,7 @@ to it. foreach (@list) { print "$_\n" } } -and here is an example of I which will call +and here is an example of I which will call I. static char * words[] = {"alpha", "beta", "gamma", "delta", NULL} ; @@ -1215,13 +1249,13 @@ I. { dSP ; - perl_call_argv("PrintList", G_DISCARD, words) ; + call_argv("PrintList", G_DISCARD, words) ; } Note that it is not necessary to call C in this instance. -This is because I will do it for you. +This is because I will do it for you. -=head2 Using perl_call_method +=head2 Using call_method Consider the following Perl code @@ -1247,9 +1281,9 @@ Consider the following Perl code } } -It just implements a very simple class to manage an array. Apart from +It implements just a very simple class to manage an array. Apart from the constructor, C, it declares methods, one static and one -virtual. The static method, C, simply prints out the class +virtual. The static method, C, prints out simply the class name and a version number. The virtual method, C, prints out a single element of the array. Here is an all Perl example of using it. @@ -1260,7 +1294,7 @@ single element of the array. Here is an all Perl example of using it. will print 1: green - This is Class Mine version 1.0 + This is Class Mine version 1.0 Calling a Perl method from C is fairly straightforward. The following things are required @@ -1291,23 +1325,23 @@ the C and C methods from C. char * method int index CODE: - PUSHMARK(sp); + PUSHMARK(SP); XPUSHs(ref); XPUSHs(sv_2mortal(newSViv(index))) ; PUTBACK; - perl_call_method(method, G_DISCARD) ; + call_method(method, G_DISCARD) ; void call_PrintID(class, method) char * class char * method CODE: - PUSHMARK(sp); + PUSHMARK(SP); XPUSHs(sv_2mortal(newSVpv(class, 0))) ; PUTBACK; - perl_call_method(method, G_DISCARD) ; + call_method(method, G_DISCARD) ; So the methods C and C can be invoked like this @@ -1317,43 +1351,48 @@ So the methods C and C can be invoked like this call_PrintID('Mine', 'PrintID') ; The only thing to note is that in both the static and virtual methods, -the method name is not passed via the stack - it is used as the first -parameter to I. +the method name is not passed via the stack--it is used as the first +parameter to I. -=head2 Using GIMME +=head2 Using GIMME_V -Here is a trivial XSUB which prints the context in which it is +Here is a trivial XSUB which prints the context in which it is currently executing. void PrintContext() CODE: - if (GIMME == G_SCALAR) + I32 gimme = GIMME_V; + if (gimme == G_VOID) + printf ("Context is Void\n") ; + else if (gimme == G_SCALAR) printf ("Context is Scalar\n") ; else printf ("Context is Array\n") ; and here is some Perl to test it + PrintContext ; $a = PrintContext ; @a = PrintContext ; The output from that will be + Context is Void Context is Scalar Context is Array =head2 Using Perl to dispose of temporaries In the examples given to date, any temporaries created in the callback -(i.e. parameters passed on the stack to the I function or +(i.e., parameters passed on the stack to the I function or values returned via the stack) have been freed by one of these methods =over 5 =item * -specifying the G_DISCARD flag with I. +specifying the G_DISCARD flag with I. =item * @@ -1401,11 +1440,11 @@ situation ... error occurs ... - external library --> perl_call --> perl + external library --> call_* --> perl | - perl <-- XSUB <-- external library <-- perl_call <----+ + perl <-- XSUB <-- external library <-- call_* <----+ -After processing of the error using I is completed, +After processing of the error using I is completed, control reverts back to Perl more or less immediately. In the diagram, the further right you go the more deeply nested the @@ -1418,39 +1457,39 @@ will be more like this perl --> XSUB --> event handler ... - event handler --> perl_call --> perl + event handler --> call_* --> perl | - event handler <-- perl_call --<--+ + event handler <-- call_* <----+ ... - event handler --> perl_call --> perl + event handler --> call_* --> perl | - event handler <-- perl_call --<--+ + event handler <-- call_* <----+ ... - event handler --> perl_call --> perl + event handler --> call_* --> perl | - event handler <-- perl_call --<--+ + event handler <-- call_* <----+ In this case the flow of control can consist of only the repeated sequence - event handler --> perl_call --> perl + event handler --> call_* --> perl -for the practically the complete duration of the program. This means -that control may I drop back to the surrounding scope in Perl at -the extreme left. +for practically the complete duration of the program. This means that +control may I drop back to the surrounding scope in Perl at the +extreme left. So what is the big problem? Well, if you are expecting Perl to tidy up those temporaries for you, you might be in for a long wait. For Perl -to actually dispose of your temporaries, control must drop back to the +to dispose of your temporaries, control must drop back to the enclosing scope at some stage. In the event driven scenario that may never happen. This means that as time goes on, your program will create more and more temporaries, none of which will ever be freed. As each of these temporaries consumes some memory your program will -eventually consume all the available memory in your system - kapow! +eventually consume all the available memory in your system--kapow! -So here is the bottom line - if you are sure that control will revert +So here is the bottom line--if you are sure that control will revert back to the enclosing Perl scope fairly quickly after the end of your -callback, then it isn't absolutely necessary to explicitly dispose of +callback, then it isn't absolutely necessary to dispose explicitly of any temporaries you may have created. Mind you, if you are at all uncertain about what to do, it doesn't do any harm to tidy up anyway. @@ -1490,10 +1529,10 @@ Now change that to call a Perl subroutine instead { dSP ; - PUSHMARK(sp) ; + PUSHMARK(SP) ; /* Call the Perl sub to process the callback */ - perl_call_sv(callback, G_DISCARD) ; + call_sv(callback, G_DISCARD) ; } @@ -1524,7 +1563,7 @@ registers, C, might look like this The mapping between the C callback and the Perl equivalent is stored in the global variable C. -This will be adequate if you ever need to have only 1 callback +This will be adequate if you ever need to have only one callback registered at any time. An example could be an error handler like the code sketched out above. Remember though, repeated calls to C will replace the previously registered callback @@ -1540,7 +1579,7 @@ require is a means of storing the mapping between the opened file and the Perl subroutine we want to be called for that file. Say the i/o library has a function C which associates a C -function C with a file handle C - this assumes that it +function C with a file handle C--this assumes that it has also provided some routine to open the file and so obtain the file handle. @@ -1553,7 +1592,7 @@ This may expect the C I function of this form int fh ; char * buffer ; { - ... + ... } To provide a Perl interface to this library we need to be able to map @@ -1593,13 +1632,13 @@ and C could look like this if (sv == (SV**)NULL) croak("Internal error...\n") ; - PUSHMARK(sp) ; + PUSHMARK(SP) ; XPUSHs(sv_2mortal(newSViv(fh))) ; XPUSHs(sv_2mortal(newSVpv(buffer, 0))) ; PUTBACK ; /* Call the Perl sub */ - perl_call_sv(*sv, G_DISCARD) ; + call_sv(*sv, G_DISCARD) ; } For completeness, here is C. This shows how to remove @@ -1646,7 +1685,7 @@ the C parameter like this Without the file handle there is no straightforward way to map from the C callback to the Perl subroutine. -In this case a possible way around this problem is to pre-define a +In this case a possible way around this problem is to predefine a series of C functions to act as the interface to Perl, thus #define MAX_CB 3 @@ -1677,12 +1716,12 @@ series of C functions to act as the interface to Perl, thus { dSP ; - PUSHMARK(sp) ; + PUSHMARK(SP) ; XPUSHs(sv_2mortal(newSVpv(buffer, 0))) ; PUTBACK ; /* Call the Perl sub */ - perl_call_sv(Map[index].PerlSub, G_DISCARD) ; + call_sv(Map[index].PerlSub, G_DISCARD) ; } static void @@ -1761,7 +1800,7 @@ series of C functions to act as the interface to Perl, thus asynch_close(fh) ; -In this case the functions C, C and C are used to +In this case the functions C, C, and C are used to remember the Perl subroutine to be called. Each of the functions holds a separate hard-wired index which is used in the function C to access the C array and actually call the Perl subroutine. @@ -1774,7 +1813,7 @@ example. Secondly, there is a hard-wired limit (in this case 3) to the number of callbacks that can exist simultaneously. The only way to increase the limit is by modifying the code to add more functions and then -re-compiling. None the less, as long as the number of functions is +recompiling. None the less, as long as the number of functions is chosen with some care, it is still a workable solution and in some cases is the only one available. @@ -1831,16 +1870,16 @@ of values> recoded to use C instead of C. ENTER ; SAVETMPS; - PUSHMARK(sp) ; + PUSHMARK(SP) ; XPUSHs(sv_2mortal(newSViv(a))); XPUSHs(sv_2mortal(newSViv(b))); PUTBACK ; - count = perl_call_pv("AddSubtract", G_ARRAY); + count = call_pv("AddSubtract", G_ARRAY); SPAGAIN ; - sp -= count ; - ax = (sp - stack_base) + 1 ; + SP -= count ; + ax = (SP - PL_stack_base) + 1 ; if (count != 2) croak("Big trouble\n") ; @@ -1869,8 +1908,8 @@ you. The code SPAGAIN ; - sp -= count ; - ax = (sp - stack_base) + 1 ; + SP -= count ; + ax = (SP - PL_stack_base) + 1 ; sets the stack up so that we can use the C macro. @@ -1878,18 +1917,38 @@ sets the stack up so that we can use the C macro. Unlike the original coding of this example, the returned values are not accessed in reverse order. So C refers to the -first value returned by the Perl subroutine and C +first value returned by the Perl subroutine and C refers to the last. =back +=head2 Creating and calling an anonymous subroutine in C + +As we've already shown, C can be used to invoke an +anonymous subroutine. However, our example showed a Perl script +invoking an XSUB to perform this operation. Let's see how it can be +done inside our C code: + + ... + + SV *cvrv = eval_pv("sub { print 'You will not find me cluttering any namespace!' }", TRUE); + + ... + + call_sv(cvrv, G_VOID|G_NOARGS); + +C is used to compile the anonymous subroutine, which +will be the return value as well (read more about C in +L). Once this code reference is in hand, it +can be mixed in with all the previous examples we've shown. + =head1 SEE ALSO L, L, L =head1 AUTHOR -Paul Marquess EFE +Paul Marquess Special thanks to the following people who assisted in the creation of the document. @@ -1899,4 +1958,4 @@ and Larry Wall. =head1 DATE -Version 1.2, 16th Jan 1996 +Version 1.3, 14th Apr 1997