epics-sys 0.0.5

Simplify rust usage in EPICS
Documentation
#![feature(extern_crate_item_prelude)]
#![feature(concat_idents)]
#![recursion_limit = "128"]

// Rust std crate must be imported like this
extern crate proc_macro;

use quote::quote;
use syn::spanned::Spanned;

#[proc_macro_attribute]
pub fn epics_register(
    _attr: proc_macro::TokenStream,
    item: proc_macro::TokenStream,
) -> proc_macro::TokenStream {
    let ast = syn::parse(item).unwrap();

    impl_epics_register(&ast).into()
}

fn impl_epics_register(ast: &syn::ItemFn) -> proc_macro2::TokenStream {
    let name = &ast.ident;
    let name_str = name.to_string();
    if !name_str.ends_with("_impl") {
        return syn::parse::Error::new(name.span(), "expected name to end with `_impl`")
            .to_compile_error();
    }
    let name_export = name_str.trim_end_matches(&"_impl");
    let name_ident = syn::Ident::new(name_export, name.span());
    let pvar_name = String::from("pvar_func_register_func_") + &name_export;
    let pvar_ident = syn::Ident::new(&pvar_name, name.span());
    let reg_func_name = String::from("register_func_") + &name_export;
    let reg_func_ident = syn::Ident::new(&reg_func_name, name.span());

    if ast.decl.inputs.len() != 1 {
        return syn::parse::Error::new(
            ast.decl.paren_token.span,
            "expected function to have 1 argument",
        )
        .to_compile_error();
    }
    let rec_type = &ast.decl.inputs.first().unwrap().into_value();
    let rec_type = match rec_type {
        syn::FnArg::Captured(arg) => Some(&arg.ty),
        _ => {
            return syn::parse::Error::new(rec_type.span(), "unknown argument").to_compile_error();
        }
    }
    .unwrap();
    let rec_type = match rec_type {
        syn::Type::Reference(ty) => Some(ty.elem.as_ref()),
        _ => {
            return syn::parse::Error::new(rec_type.span(), "expected reference").to_compile_error();
        }
    }
    .unwrap();
    let rec_type = match rec_type {
        syn::Type::Path(ty) => Some(ty),
        _ => {
            return syn::parse::Error::new(rec_type.span(), "expected path/type").to_compile_error();
        }
    }
    .unwrap();
    //println!("{:#?}", rec_type);

    let gen = quote! {
        #[no_mangle]
        pub extern "C" fn #name_ident(precord: *mut #rec_type)
                -> ::std::os::raw::c_long {
            match #name(unsafe {&mut *precord}) {
                Ok(()) => 0,
                Err(()) => 1,
            }
        }

        #[no_mangle]
        pub fn #reg_func_ident() {
            use std::mem;
            let fnname = format!("{}\0", stringify!(#name_ident));
            unsafe {
                registryFunctionAdd(
                    fnname.as_ptr() as *const _,
                    Some(mem::transmute::<
                        extern "C" fn(*mut #rec_type)
                            -> ::std::os::raw::c_long, unsafe extern "C" fn()
                    >(#name_ident)));
            }
        }

        #[no_mangle]
        pub static mut #pvar_ident: *const ::std::os::raw::c_void =
            #reg_func_ident as *const ::std::os::raw::c_void;

        #ast
    };
    gen.into()
}