Merge pull request #881 from Hywan/feat-runtime-core-imported-closure

feat(runtime-core) Add documentation and make macros more readable.
This commit is contained in:
Syrus Akbary 2019-10-16 16:20:29 -07:00 committed by GitHub
commit eafb1237a8
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -91,17 +91,35 @@ impl Wasm {
/// This type, as part of the `Func` type signature, represents a function that is created /// This type, as part of the `Func` type signature, represents a function that is created
/// by the host. /// by the host.
pub struct Host(()); pub struct Host(());
impl Kind for Wasm {} impl Kind for Wasm {}
impl Kind for Host {} impl Kind for Host {}
/// Represents a list of WebAssembly values.
pub trait WasmTypeList { pub trait WasmTypeList {
type CStruct; type CStruct;
type RetArray: AsMut<[u64]>; type RetArray: AsMut<[u64]>;
/// Construct `Self` based on an array of returned values.
fn from_ret_array(array: Self::RetArray) -> Self; fn from_ret_array(array: Self::RetArray) -> Self;
/// Generates an empty array that will hold the returned values of
/// the WebAssembly function.
fn empty_ret_array() -> Self::RetArray; fn empty_ret_array() -> Self::RetArray;
/// Transforms C values into Rust values.
fn from_c_struct(c_struct: Self::CStruct) -> Self; fn from_c_struct(c_struct: Self::CStruct) -> Self;
/// Transforms Rust values into C values.
fn into_c_struct(self) -> Self::CStruct; fn into_c_struct(self) -> Self::CStruct;
/// Get types of the current values.
fn types() -> &'static [Type]; fn types() -> &'static [Type];
/// This method is used to distribute the values onto a function,
/// e.g. `(1, 2).call(func, …)`. This form is unlikely to be used
/// directly in the code, see the `Func:call` implementation.
unsafe fn call<Rets>( unsafe fn call<Rets>(
self, self,
f: NonNull<vm::Func>, f: NonNull<vm::Func>,
@ -112,6 +130,8 @@ pub trait WasmTypeList {
Rets: WasmTypeList; Rets: WasmTypeList;
} }
/// Represents a function that can be converted to a `vm::Func`
/// (function pointer) that can be called within WebAssembly.
pub trait ExternalFunction<Args, Rets> pub trait ExternalFunction<Args, Rets>
where where
Args: WasmTypeList, Args: WasmTypeList,
@ -149,15 +169,7 @@ where
} }
} }
// pub fn Func<'a, Args, Rets, F>(f: F) -> Func<'a, Args, Rets, Unsafe> /// Represents a function that can be used by WebAssembly.
// where
// Args: WasmTypeList,
// Rets: WasmTypeList,
// F: ExternalFunction<Args, Rets>
// {
// Func::new(f)
// }
pub struct Func<'a, Args = (), Rets = (), Inner: Kind = Wasm> { pub struct Func<'a, Args = (), Rets = (), Inner: Kind = Wasm> {
inner: Inner, inner: Inner,
f: NonNull<vm::Func>, f: NonNull<vm::Func>,
@ -215,9 +227,12 @@ where
Rets: WasmTypeList, Rets: WasmTypeList,
Inner: Kind, Inner: Kind,
{ {
/// Returns the types of the function inputs.
pub fn params(&self) -> &'static [Type] { pub fn params(&self) -> &'static [Type] {
Args::types() Args::types()
} }
/// Returns the types of the function outputs.
pub fn returns(&self) -> &'static [Type] { pub fn returns(&self) -> &'static [Type] {
Rets::types() Rets::types()
} }
@ -226,62 +241,83 @@ where
impl WasmTypeList for Infallible { impl WasmTypeList for Infallible {
type CStruct = Infallible; type CStruct = Infallible;
type RetArray = [u64; 0]; type RetArray = [u64; 0];
fn from_ret_array(_: Self::RetArray) -> Self { fn from_ret_array(_: Self::RetArray) -> Self {
unreachable!() unreachable!()
} }
fn empty_ret_array() -> Self::RetArray { fn empty_ret_array() -> Self::RetArray {
unreachable!() unreachable!()
} }
fn from_c_struct(_: Self::CStruct) -> Self { fn from_c_struct(_: Self::CStruct) -> Self {
unreachable!() unreachable!()
} }
fn into_c_struct(self) -> Self::CStruct { fn into_c_struct(self) -> Self::CStruct {
unreachable!() unreachable!()
} }
fn types() -> &'static [Type] { fn types() -> &'static [Type] {
&[] &[]
} }
#[allow(non_snake_case)] #[allow(non_snake_case)]
unsafe fn call<Rets: WasmTypeList>( unsafe fn call<Rets>(
self, self,
_: NonNull<vm::Func>, _: NonNull<vm::Func>,
_: Wasm, _: Wasm,
_: *mut Ctx, _: *mut Ctx,
) -> Result<Rets, RuntimeError> { ) -> Result<Rets, RuntimeError>
where
Rets: WasmTypeList,
{
unreachable!() unreachable!()
} }
} }
impl<A: WasmExternType> WasmTypeList for (A,) { impl<A> WasmTypeList for (A,)
where
A: WasmExternType,
{
type CStruct = S1<A>; type CStruct = S1<A>;
type RetArray = [u64; 1]; type RetArray = [u64; 1];
fn from_ret_array(array: Self::RetArray) -> Self { fn from_ret_array(array: Self::RetArray) -> Self {
(WasmExternType::from_native(NativeWasmType::from_binary( (WasmExternType::from_native(NativeWasmType::from_binary(
array[0], array[0],
)),) )),)
} }
fn empty_ret_array() -> Self::RetArray { fn empty_ret_array() -> Self::RetArray {
[0u64] [0u64]
} }
fn from_c_struct(c_struct: Self::CStruct) -> Self { fn from_c_struct(c_struct: Self::CStruct) -> Self {
let S1(a) = c_struct; let S1(a) = c_struct;
(WasmExternType::from_native(a),) (WasmExternType::from_native(a),)
} }
fn into_c_struct(self) -> Self::CStruct { fn into_c_struct(self) -> Self::CStruct {
#[allow(unused_parens, non_snake_case)] #[allow(unused_parens, non_snake_case)]
let (a,) = self; let (a,) = self;
S1(WasmExternType::to_native(a)) S1(WasmExternType::to_native(a))
} }
fn types() -> &'static [Type] { fn types() -> &'static [Type] {
&[A::Native::TYPE] &[A::Native::TYPE]
} }
#[allow(non_snake_case)] #[allow(non_snake_case)]
unsafe fn call<Rets: WasmTypeList>( unsafe fn call<Rets>(
self, self,
f: NonNull<vm::Func>, f: NonNull<vm::Func>,
wasm: Wasm, wasm: Wasm,
ctx: *mut Ctx, ctx: *mut Ctx,
) -> Result<Rets, RuntimeError> { ) -> Result<Rets, RuntimeError>
where
Rets: WasmTypeList,
{
let (a,) = self; let (a,) = self;
let args = [a.to_native().to_binary()]; let args = [a.to_native().to_binary()];
let mut rets = Rets::empty_ret_array(); let mut rets = Rets::empty_ret_array();
@ -323,34 +359,57 @@ where
macro_rules! impl_traits { macro_rules! impl_traits {
( [$repr:ident] $struct_name:ident, $( $x:ident ),* ) => { ( [$repr:ident] $struct_name:ident, $( $x:ident ),* ) => {
#[repr($repr)] #[repr($repr)]
pub struct $struct_name <$( $x: WasmExternType ),*> ( $( <$x as WasmExternType>::Native ),* ); pub struct $struct_name< $( $x ),* > ( $( <$x as WasmExternType>::Native ),* )
where
$( $x: WasmExternType ),*;
impl< $( $x: WasmExternType, )* > WasmTypeList for ( $( $x ),* ) { impl< $( $x ),* > WasmTypeList for ( $( $x ),* )
where
$( $x: WasmExternType ),*
{
type CStruct = $struct_name<$( $x ),*>; type CStruct = $struct_name<$( $x ),*>;
type RetArray = [u64; count_idents!( $( $x ),* )]; type RetArray = [u64; count_idents!( $( $x ),* )];
fn from_ret_array(array: Self::RetArray) -> Self { fn from_ret_array(array: Self::RetArray) -> Self {
#[allow(non_snake_case)] #[allow(non_snake_case)]
let [ $( $x ),* ] = array; let [ $( $x ),* ] = array;
( $( WasmExternType::from_native(NativeWasmType::from_binary($x)) ),* ) ( $( WasmExternType::from_native(NativeWasmType::from_binary($x)) ),* )
} }
fn empty_ret_array() -> Self::RetArray { fn empty_ret_array() -> Self::RetArray {
[0; count_idents!( $( $x ),* )] [0; count_idents!( $( $x ),* )]
} }
fn from_c_struct(c_struct: Self::CStruct) -> Self { fn from_c_struct(c_struct: Self::CStruct) -> Self {
#[allow(non_snake_case)] #[allow(non_snake_case)]
let $struct_name ( $( $x ),* ) = c_struct; let $struct_name ( $( $x ),* ) = c_struct;
( $( WasmExternType::from_native($x) ),* ) ( $( WasmExternType::from_native($x) ),* )
} }
fn into_c_struct(self) -> Self::CStruct { fn into_c_struct(self) -> Self::CStruct {
#[allow(unused_parens, non_snake_case)] #[allow(unused_parens, non_snake_case)]
let ( $( $x ),* ) = self; let ( $( $x ),* ) = self;
$struct_name ( $( WasmExternType::to_native($x) ),* ) $struct_name ( $( WasmExternType::to_native($x) ),* )
} }
fn types() -> &'static [Type] { fn types() -> &'static [Type] {
&[$( $x::Native::TYPE, )*] &[$( $x::Native::TYPE ),*]
} }
#[allow(non_snake_case)] #[allow(non_snake_case)]
unsafe fn call<Rets: WasmTypeList>(self, f: NonNull<vm::Func>, wasm: Wasm, ctx: *mut Ctx) -> Result<Rets, RuntimeError> { unsafe fn call<Rets>(
self,
f: NonNull<vm::Func>,
wasm: Wasm,
ctx: *mut Ctx,
) -> Result<Rets, RuntimeError>
where
Rets: WasmTypeList
{
#[allow(unused_parens)] #[allow(unused_parens)]
let ( $( $x ),* ) = self; let ( $( $x ),* ) = self;
let args = [ $( $x.to_native().to_binary()),* ]; let args = [ $( $x.to_native().to_binary()),* ];
@ -358,7 +417,16 @@ macro_rules! impl_traits {
let mut trap = WasmTrapInfo::Unknown; let mut trap = WasmTrapInfo::Unknown;
let mut user_error = None; let mut user_error = None;
if (wasm.invoke)(wasm.trampoline, ctx, f, args.as_ptr(), rets.as_mut().as_mut_ptr(), &mut trap, &mut user_error, wasm.invoke_env) { if (wasm.invoke)(
wasm.trampoline,
ctx,
f,
args.as_ptr(),
rets.as_mut().as_mut_ptr(),
&mut trap,
&mut user_error,
wasm.invoke_env
) {
Ok(Rets::from_ret_array(rets)) Ok(Rets::from_ret_array(rets))
} else { } else {
if let Some(data) = user_error { if let Some(data) = user_error {
@ -370,18 +438,36 @@ macro_rules! impl_traits {
} }
} }
impl< $( $x: WasmExternType, )* Rets: WasmTypeList, Trap: TrapEarly<Rets>, FN: Fn( &mut Ctx $( ,$x )* ) -> Trap> ExternalFunction<($( $x ),*), Rets> for FN { impl< $( $x, )* Rets, Trap, FN > ExternalFunction<( $( $x ),* ), Rets> for FN
where
$( $x: WasmExternType, )*
Rets: WasmTypeList,
Trap: TrapEarly<Rets>,
FN: Fn(&mut Ctx $( , $x )*) -> Trap,
{
#[allow(non_snake_case)] #[allow(non_snake_case)]
fn to_raw(&self) -> NonNull<vm::Func> { fn to_raw(&self) -> NonNull<vm::Func> {
if mem::size_of::<Self>() == 0 { if mem::size_of::<Self>() == 0 {
/// This is required for the llvm backend to be able to unwind through this function. /// This is required for the llvm backend to be able to unwind through this function.
#[cfg_attr(nightly, unwind(allowed))] #[cfg_attr(nightly, unwind(allowed))]
extern fn wrap<$( $x: WasmExternType, )* Rets: WasmTypeList, Trap: TrapEarly<Rets>, FN: Fn( &mut Ctx $( ,$x )* ) -> Trap>( ctx: &mut Ctx $( ,$x: <$x as WasmExternType>::Native )* ) -> Rets::CStruct { extern fn wrap<$( $x, )* Rets, Trap, FN>(
ctx: &mut Ctx $( , $x: <$x as WasmExternType>::Native )*
) -> Rets::CStruct
where
$( $x: WasmExternType, )*
Rets: WasmTypeList,
Trap: TrapEarly<Rets>,
FN: Fn(&mut Ctx $( , $x )*) -> Trap,
{
let f: FN = unsafe { mem::transmute_copy(&()) }; let f: FN = unsafe { mem::transmute_copy(&()) };
let err = match panic::catch_unwind(panic::AssertUnwindSafe(|| { let err = match panic::catch_unwind(
f( ctx $( ,WasmExternType::from_native($x) )* ).report() panic::AssertUnwindSafe(
})) { || {
f(ctx $( , WasmExternType::from_native($x) )* ).report()
}
)
) {
Ok(Ok(returns)) => return returns.into_c_struct(), Ok(Ok(returns)) => return returns.into_c_struct(),
Ok(Err(err)) => { Ok(Err(err)) => {
let b: Box<_> = err.into(); let b: Box<_> = err.into();
@ -397,7 +483,12 @@ macro_rules! impl_traits {
NonNull::new(wrap::<$( $x, )* Rets, Trap, Self> as *mut vm::Func).unwrap() NonNull::new(wrap::<$( $x, )* Rets, Trap, Self> as *mut vm::Func).unwrap()
} else { } else {
assert_eq!(mem::size_of::<Self>(), mem::size_of::<usize>(), "you cannot use a closure that captures state for `Func`."); assert_eq!(
mem::size_of::<Self>(),
mem::size_of::<usize>(),
"you cannot use a closure that captures state for `Func`."
);
NonNull::new(unsafe { NonNull::new(unsafe {
::std::mem::transmute_copy::<_, *mut vm::Func>(self) ::std::mem::transmute_copy::<_, *mut vm::Func>(self)
}).unwrap() }).unwrap()
@ -405,14 +496,22 @@ macro_rules! impl_traits {
} }
} }
impl<'a, $( $x: WasmExternType, )* Rets> Func<'a, ( $( $x ),* ), Rets, Wasm> impl<'a $( , $x )*, Rets> Func<'a, ( $( $x ),* ), Rets, Wasm>
where where
$( $x: WasmExternType, )*
Rets: WasmTypeList, Rets: WasmTypeList,
{ {
#[allow(non_snake_case)] #[allow(non_snake_case)]
pub fn call(&self, $( $x: $x, )* ) -> Result<Rets, RuntimeError> { pub fn call(&self, $( $x: $x, )* ) -> Result<Rets, RuntimeError> {
#[allow(unused_parens)] #[allow(unused_parens)]
unsafe { <( $( $x ),* ) as WasmTypeList>::call(( $($x),* ), self.f, self.inner, self.ctx) } unsafe {
<( $( $x ),* ) as WasmTypeList>::call(
( $( $x ),* ),
self.f,
self.inner,
self.ctx
)
}
} }
} }
}; };