macro_rules! raw_fn {
($env:ident, $name:ident) => { {
(*$env.raw).$name.expect(stringify!(Required module function does not exist: $name))
}};
}
macro_rules! raw_call_no_exit {
($env:ident, $name:ident $(, $args:expr)*) => {
unsafe {
let $name = raw_fn!($env, $name);
$name($env.raw $(, $args)*)
}
};
}
macro_rules! raw_call {
($env:expr, $name:ident $(, $args:expr)*) => {
{
let env = $env;
let result = unsafe {
let $name = raw_fn!(env, $name);
$name(env.raw $(, $args)*)
};
env.handle_exit(result)
}
};
}
macro_rules! raw_call_value {
($env:ident, $name:ident $(, $args:expr)*) => {
{
let result: $crate::Result<$crate::raw::emacs_value> = raw_call!($env, $name $(, $args)*);
result.map(|raw| unsafe {
$crate::Value::new_protected(raw, $env)
})
}
};
}
macro_rules! call_lisp {
($env:ident, $name:expr $(, $arg:expr)*) => {
{
let symbol: $crate::Value<'_> = $env.intern($name)?;
let args = &mut [$($arg.raw,)*];
raw_call_value!($env, funcall, symbol.raw, args.len() as $crate::deps::libc::ptrdiff_t, args.as_mut_ptr())
}
};
}
macro_rules! enable_transfers {
($($name:ident;)*) => {$(
impl<T> $crate::Transfer for $name<T> {
fn type_name() -> &'static str { stringify!($name) }
}
impl<'e, T> $crate::IntoLisp<'e> for $name<T> {
fn into_lisp(self, env: &$crate::Env) -> $crate::Result<$crate::Value<'_>> {
::std::boxed::Box::new(self).into_lisp(env)
}
}
)*};
}
#[macro_export]
#[allow(non_snake_case)]
macro_rules! plugin_is_GPL_compatible {
() => {
#[no_mangle]
#[allow(non_upper_case_globals)]
pub static plugin_is_GPL_compatible: $crate::deps::libc::c_int = 0;
};
}
#[macro_export]
macro_rules! module_init {
($init:ident) => {
#[no_mangle]
pub unsafe extern "C" fn emacs_module_init(
runtime: *mut $crate::raw::emacs_runtime,
) -> $crate::deps::libc::c_int {
$crate::func::HandleInit::handle_init($crate::Env::from_runtime(runtime), $init)
}
#[no_mangle]
pub unsafe extern "C" fn emacs_rs_module_init(
raw: *mut $crate::raw::emacs_env,
) -> $crate::deps::libc::c_int {
$crate::func::HandleInit::handle_init($crate::Env::new(raw), $init)
}
};
}
#[doc(hidden)]
#[macro_export(local_inner_macros)]
macro_rules! lambda {
($env:expr, $func:path, $arities:expr, $doc:expr $(,)*) => {
lambda!($env, $func, $arities, $doc, ::std::ptr::null_mut())
};
($env:expr, $func:path, $arities:expr $(,)*) => {
lambda!($env, $func, $arities, "")
};
($env:expr, $func:path, $arities:expr, $doc:expr, $data:expr $(,)*) => {{
use $crate::func::HandleCall;
use $crate::func::Manage;
unsafe extern "C" fn extern_lambda(
env: *mut $crate::raw::emacs_env,
nargs: $crate::deps::libc::ptrdiff_t,
args: *mut $crate::raw::emacs_value,
data: *mut $crate::deps::libc::c_void,
) -> $crate::raw::emacs_value {
let env = $crate::Env::new(env);
let env = $crate::CallEnv::new(env, nargs, args, data);
env.handle_call($func)
}
$env.make_function(extern_lambda, $arities, $doc, $data)
}};
}
#[macro_export(local_inner_macros)]
macro_rules! export_functions {
($env:expr, $prefix:expr, $mappings:tt,) => {
export_functions!($env, $prefix, $mappings)
};
($env:expr, $prefix:expr, {
$( $name:expr => $declaration:tt ),+,
}) => {
export_functions!($env, $prefix, {
$( $name => $declaration ),*
})
};
($env:expr, $prefix:expr, {
$( $name:expr => $declaration:tt ),*
}) => {
{
use $crate::func::Manage;
$( export_functions!(decl, $env, $prefix, $name, $declaration)?; )*
}
};
(decl, $env:expr, $prefix:expr, $name:expr, ($func:path, $( $opt:expr ),+,)) => {
export_functions!(decl, $env, $prefix, $name, ($func, $( $opt ),*))
};
(decl, $env:expr, $prefix:expr, $name:expr, ($func:path, $( $opt:expr ),+)) => {
$env.fset(
&_emacs_format!("{}{}", $prefix, $name),
lambda!($env, $func, $($opt),*)?
)
};
}
#[doc(hidden)]
#[macro_export]
macro_rules! _emacs_format {
($($inner:tt)*) => {
format!($($inner)*)
}
}
#[deprecated(since = "0.7.0", note = "Please use `emacs::plugin_is_GPL_compatible!` instead")]
#[doc(hidden)]
#[macro_export(local_inner_macros)]
#[allow(non_snake_case)]
macro_rules! emacs_plugin_is_GPL_compatible {
($($inner:tt)*) => {
plugin_is_GPL_compatible!($($inner)*);
};
}
#[deprecated(since = "0.7.0", note = "Please use `#[emacs::module]` instead")]
#[doc(hidden)]
#[macro_export(local_inner_macros)]
macro_rules! emacs_module_init {
($($inner:tt)*) => {
module_init!($($inner)*);
};
}
#[deprecated(since = "0.7.0", note = "Please use `#[defun]` instead")]
#[doc(hidden)]
#[macro_export(local_inner_macros)]
macro_rules! emacs_export_functions {
($($inner:tt)*) => {
export_functions!($($inner)*)
};
}
#[deprecated(since = "0.7.0", note = "Please use `emacs::lambda!` instead")]
#[doc(hidden)]
#[macro_export(local_inner_macros)]
macro_rules! emacs_lambda {
($($inner:tt)*) => {
lambda!($($inner)*)
};
}