proxmox-mirrors/perlmod
1
0
Fork 0
mirror of https://git.proxmox.com/git/perlmod synced 2025-10-05 08:50:06 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

perlmod: ffi: support visibility in perl_fn

Browse Source 
Signed-off-by: Wolfgang Bumiller <w.bumiller@proxmox.com>
This commit is contained in:
Wolfgang Bumiller 2022-01-04 09:55:53 +01:00
parent 9bf583ca64
commit ebd82cb7ac
1 changed files with 93 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

103
perlmod/src/ffi.rs
View File

@ -65,6 +65,74 @@ pub struct Interpreter {
_ffi: usize, _ffi: usize,
} }
#[macro_export]
macro_rules! perl_fn {
// inherited visibility
($(
$(#[$attr:meta])*
extern "C" fn($($args:tt)*) $(-> $re:ty)?
)*) => {
$crate::perl_fn_impl! {
$(
$(#[$attr])*
() extern "C" fn($($args)*) $(-> $re)?
)*
}
};
($(
$(#[$attr:meta])*
extern "C" fn $name:ident $(<($($gen:tt)*)>)? ($($args:tt)*) $(-> $re:ty)?
$(where ($($where_clause:tt)*))?
{
$($code:tt)*
}
)*) => {
$crate::perl_fn_impl! {
$(
$(#[$attr])*
() extern "C" fn $name $(<($($gen)*)>)? ($($args)*) $(-> $re)?
$(where ($($where_clause)*))?
{
$($code)*
}
)*
}
};
// same with 'pub' visibility
($(
$(#[$attr:meta])*
pub $(($($vis:tt)+))? extern "C" fn($($args:tt)*) $(-> $re:ty)?
)*) => {
$crate::perl_fn_impl! {
$(
$(#[$attr])*
(pub $(($($vis)+))?) extern "C" fn($($args)*) $(-> $re)?
)*
}
};
($(
$(#[$attr:meta])*
pub $(($($vis:tt)+))?
extern "C" fn $name:ident $(<($($gen:tt)*)>)? ($($args:tt)*) $(-> $re:ty)?
$(where ($($where_clause:tt)*))?
{
$($code:tt)*
}
)*) => {
$crate::perl_fn_impl! {
$(
$(#[$attr])*
(pub $(($($vis)+))?) extern "C" fn $name $(<($($gen)*)>)? ($($args)*) $(-> $re)?
$(where ($($where_clause)*))?
{
$($code)*
}
)*
}
};
}
#[cfg(perlmod = "multiplicity")] #[cfg(perlmod = "multiplicity")]
mod vtbl_types_impl { mod vtbl_types_impl {
use super::{Interpreter, MAGIC, SV}; use super::{Interpreter, MAGIC, SV};
@ -91,23 +159,32 @@ mod vtbl_types_impl {
) -> c_int; ) -> c_int;
pub type Local = extern "C" fn(_perl: *const Interpreter, sv: *mut SV, mg: *mut MAGIC) -> c_int; pub type Local = extern "C" fn(_perl: *const Interpreter, sv: *mut SV, mg: *mut MAGIC) -> c_int;
#[doc(hidden)]
#[macro_export] #[macro_export]
macro_rules! perl_fn { macro_rules! perl_fn_impl {
($( ($(
$(#[$attr:meta])* $(#[$attr:meta])*
extern "C" fn($($args:tt)*) $(-> $re:ty)? ($($vis:tt)*) extern "C" fn($($args:tt)*) $(-> $re:ty)?
)*) => {$( )*) => {$(
$(#[$attr])* $(#[$attr])*
extern "C" fn(*const $crate::ffi::Interpreter, $($args)*) $(-> $re)? $($vis)* extern "C" fn(*const $crate::ffi::Interpreter, $($args)*) $(-> $re)?
)*}; )*};
($( ($(
$(#[$attr:meta])* $(#[$attr:meta])*
extern "C" fn $name:ident ($($args:tt)*) $(-> $re:ty)? { ($($vis:tt)*)
extern "C" fn $name:ident $(<($($gen:tt)*)>)? ($($args:tt)*) $(-> $re:ty)?
$(where ($($where_clause:tt)*))?
{
$($code:tt)* $($code:tt)*
} }
)*) => {$( )*) => {$(
$(#[$attr])* $(#[$attr])*
extern "C" fn $name (_perl: *const $crate::ffi::Interpreter, $($args)*) $(-> $re)? { $($vis)* extern "C" fn $name $(<$($gen)*>)? (
_perl: *const $crate::ffi::Interpreter,
$($args)*
) $(-> $re)?
$(where $($where_clause)*)?
{
$($code)* $($code)*
} }
)*}; )*};
@ -135,23 +212,29 @@ mod vtbl_types_impl {
extern "C" fn(sv: *mut SV, mg: *mut MAGIC, clone_parms: *mut super::Unsupported) -> c_int; extern "C" fn(sv: *mut SV, mg: *mut MAGIC, clone_parms: *mut super::Unsupported) -> c_int;
pub type Local = extern "C" fn(sv: *mut SV, mg: *mut MAGIC) -> c_int; pub type Local = extern "C" fn(sv: *mut SV, mg: *mut MAGIC) -> c_int;
#[doc(hidden)]
#[macro_export] #[macro_export]
macro_rules! perl_fn { macro_rules! perl_fn_impl {
($( ($(
$(#[$attr:meta])* $(#[$attr:meta])*
extern "C" fn($($args:tt)*) $(-> $re:ty)? ($($vis:tt)*) extern "C" fn($($args:tt)*) $(-> $re:ty)?
)*) => {$( )*) => {$(
$(#[$attr])* $(#[$attr])*
extern "C" fn($($args)*) $(-> $re)? $($vis)* extern "C" fn($($args)*) $(-> $re)?
)*}; )*};
($( ($(
$(#[$attr:meta])* $(#[$attr:meta])*
extern "C" fn $name:ident ($($args:tt)*) $(-> $re:ty)? { ($($vis:tt)*)
extern "C" fn $name:ident $(<($($gen:tt)*)>)? ($($args:tt)*) $(-> $re:ty)?
$(where ($($where_clause:tt)*))?
{
$($code:tt)* $($code:tt)*
} }
)*) => {$( )*) => {$(
$(#[$attr])* $(#[$attr])*
extern "C" fn $name ($($args)*) $(-> $re)? { $($vis)* extern "C" fn $name $(<$($gen)*>)? ($($args)*) $(-> $re)?
$(where $($where_clause)*)?
{
$($code)* $($code)*
} }
)*}; )*};