#!/perl 
 
use strict; 
use warnings; 
use Data::Dumper; 
 
use Inline 'C'; 
 
 
printf "myfun pointer from perl %d\n", \&myfun; 
tstCall(\&myfun); 
 
sub myfun { 
   print "doing somethings\n"; 
} 
 
 
__END__ 
__C__ 
#include <stdio.h> 
 
void tstCall(unsigned int a); 
 
void tstCall(unsigned int a){ 
   printf("callback function pointer = %d\n", a); 
 
   void (*callback)(void); 
//   void __stdcall (*callback)(void); 
//   void __cdecl (*callback)(void); 
   callback=(void *)a; 
   callback(); 
 
   printf("returned from callback function\n"); 
}

#!/perl 
 
use strict; 
use warnings; 
use Data::Dumper; 
 
use Inline 'C'; 
 
 
printf "myfun pointer from perl %d\n", \&myfun; 
tstCall(\&myfun, 12, "testing 123!!"); 
 
sub myfun { 
   print Dumper \@_; 
   print "doing somethings\n"; 
} 
 
 
__END__ 
__C__ 
#include <stdio.h> 
 
void tstCall(unsigned int a, unsigned int b, char* c); 
 
void tstCall(unsigned int a, unsigned int b, char* c){ 
   printf("callback function pointer = %d\n", a); 
 
   void (*callback)(void); 
//   void __stdcall (*callback)(void); 
//   void __cdecl (*callback)(void); 
 
//   callback=(void *)a; 
//  callback(); 
 
   dSP; 
 
   PUSHMARK(SP); 
   XPUSHs(sv_2mortal(newSVuv(b))); 
   XPUSHs(sv_2mortal(newSVpv(c, 0))); 
   PUTBACK; 
 
   call_sv((SV*)a, G_VOID); 
 
   FREETMPS; 
   LEAVE; 
 
   printf("returned from callback function\n"); 
}