GSP
Quick Navigator

Search Site

Unix VPS
A - Starter
B - Basic
C - Preferred
D - Commercial
MPS - Dedicated
Previous VPSs
* Sign Up! *

Support
Contact Us
Online Help
Handbooks
Domain Status
Man Pages

FAQ
Virtual Servers
Pricing
Billing
Technical

Network
Facilities
Connectivity
Topology Map

Miscellaneous
Server Agreement
Year 2038
Credits
 

USA Flag

 

 

Man Pages
FFI::Platypus::API(3) User Contributed Perl Documentation FFI::Platypus::API(3)

FFI::Platypus::API - Platypus arguments and return value API for custom types

version 1.56

 package FFI::Platypus::Type::MyCustomType;
 
 use FFI::Platypus::API;
 
 sub ffi_custom_type_api_1
 {
   {
     native_type => 'uint32',
     perl_to_native => sub {
       my($value, $i) = @_;
       # Translates ($value) passed in from Perl
       # into ($value+1, $value+2)
       arguments_set_uint32($i, $value+1);
       arguments_set_uint32($i+1, $value+2);
     },
     argument_count => 2,
   }
 }

NOTE: I added this interface early on to FFI::Platypus, but haven't used it much, generally finding function wrappers to be a more powerful (although possibly not as fast) interface. It has thus not been tested as much as the rest of Platypus. If you feel the need to use this interface please coordinate with the Platypus developers.

The custom types API for FFI::Platypus allows you to set multiple C arguments from a single Perl argument as a common type. This is sometimes useful for pointer / size pairs which are a common pattern in C, but are usually represented by a single value (a string scalar) in Perl.

The custom type API is somewhat experimental, and you should expect some changes as needs arise (I won't break compatibility lightly, however).

These functions are only valid within a custom type callback.

 my $count = argument_count;

Returns the total number of native arguments.

 my $sint8 = arguments_get_sint8 $i;

Get the 8 bit signed integer argument from position $i .

 arguments_set_sint8 $i, $sint8;

Set the 8 bit signed integer argument at position $i to $sint8.

 my $uint8 = arguments_get_uint8 $i;

Get the 8 bit unsigned integer argument from position $i .

 arguments_set_uint8 $i, $uint8;

Set the 8 bit unsigned integer argument at position $i to $uint8.

 my $sint16 = arguments_get_sint16 $i;

Get the 16 bit signed integer argument from position $i .

 arguments_set_sint16 $i, $sint16;

Set the 16 bit signed integer argument at position $i to $sint16.

 my $uint16 = arguments_get_uint16 $i;

Get the 16 bit unsigned integer argument from position $i.

 arguments_set_uint16 $i, $uint16;

Set the 16 bit unsigned integer argument at position $i to $uint16.

 my $sint32 = arguments_get_sint32 $i;

Get the 32 bit signed integer argument from position $i .

 arguments_set_sint32 $i, $sint32;

Set the 32 bit signed integer argument at position $i to $sint32.

 my $uint32 = arguments_get_uint32 $i;

Get the 32 bit unsigned integer argument from position $i.

 arguments_set_uint32 $i, $uint32;

Set the 32 bit unsigned integer argument at position $i to $uint32.

 my $sint64 = arguments_get_sint64 $i;

Get the 64 bit signed integer argument from position $i .

 arguments_set_sint64 $i, $sint64;

Set the 64 bit signed integer argument at position $i to $sint64.

 my $uint64 = arguments_get_uint64 $i;

Get the 64 bit unsigned integer argument from position $i.

 arguments_set_uint64 $i, $uint64;

Set the 64 bit unsigned integer argument at position $i to $uint64.

 my $float = arguments_get_float $i;

Get the floating point argument from position $i.

 arguments_set_float $i, $float;

Set the floating point argument at position $i to $float

 my $double = arguments_get_double $i;

Get the double precision floating point argument from position $i.

 arguments_set_double $i, $double;

Set the double precision floating point argument at position $i to $double

 my $pointer = arguments_get_pointer $i;

Get the pointer argument from position $i.

 arguments_set_pointer $i, $pointer;

Set the pointer argument at position $i to $pointer.

 my $string = arguments_get_string $i;

Get the string argument from position $i.

 arguments_set_string $i, $string;

Set the string argument at position $i to $string.

FFI::Platypus

Examples of use:

FFI::Platypus::Type::PointerSizeBuffer

Author: Graham Ollis <plicease@cpan.org>

Contributors:

Bakkiaraj Murugesan (bakkiaraj)

Dylan Cali (calid)

pipcet

Zaki Mughal (zmughal)

Fitz Elliott (felliott)

Vickenty Fesunov (vyf)

Gregor Herrmann (gregoa)

Shlomi Fish (shlomif)

Damyan Ivanov

Ilya Pavlov (Ilya33)

Petr Písař (ppisar)

Mohammad S Anwar (MANWAR)

Håkon Hægland (hakonhagland, HAKONH)

Meredith (merrilymeredith, MHOWARD)

Diab Jerius (DJERIUS)

Eric Brine (IKEGAMI)

szTheory

José Joaquín Atria (JJATRIA)

Pete Houston (openstrike, HOUSTON)

This software is copyright (c) 2015,2016,2017,2018,2019,2020 by Graham Ollis.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.

2021-10-28 perl v5.32.1

Search for    or go to Top of page |  Section 3 |  Main Index

Powered by GSP Visit the GSP FreeBSD Man Page Interface.
Output converted with ManDoc.