@stdlib/math-base-napi-unary 0.2.3 → 0.2.5

package/src/main.c

@@ -1,601 +0,0 @@
-/**
-* @license Apache-2.0
-*
-* Copyright (c) 2020 The Stdlib Authors.
-*
-* Licensed under the Apache License, Version 2.0 (the "License");
-* you may not use this file except in compliance with the License.
-* You may obtain a copy of the License at
-*
-*    http://www.apache.org/licenses/LICENSE-2.0
-*
-* Unless required by applicable law or agreed to in writing, software
-* distributed under the License is distributed on an "AS IS" BASIS,
-* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-* See the License for the specific language governing permissions and
-* limitations under the License.
-*/
-
-#include "stdlib/math/base/napi/unary.h"
-#include "stdlib/complex/float64/ctor.h"
-#include "stdlib/complex/float32/ctor.h"
-#include "stdlib/complex/float64/reim.h"
-#include "stdlib/complex/float32/reim.h"
-#include <node_api.h>
-#include <stdint.h>
-#include <assert.h>
-#include <stdbool.h>
-
-/**
-* Invokes a unary function accepting and returning double-precision floating-point numbers.
-*
-* ## Notes
-*
-* -   This function expects that the callback `info` argument provides access to the following JavaScript arguments:
-*
-*     -   `x`: input value.
-*
-* @param env    environment under which the function is invoked
-* @param info   callback data
-* @param fcn    unary function
-* @return       function return value as a Node-API double-precision floating-point number
-*/
-napi_value stdlib_math_base_napi_d_d( napi_env env, napi_callback_info info, double (*fcn)( double ) ) {
-	napi_status status;
-
-	size_t argc = 1;
-	napi_value argv[ 1 ];
-	status = napi_get_cb_info( env, info, &argc, argv, NULL, NULL );
-	assert( status == napi_ok );
-
-	if ( argc < 1 ) {
-		status = napi_throw_error( env, NULL, "invalid invocation. Must provide a number." );
-		assert( status == napi_ok );
-		return NULL;
-	}
-
-	napi_valuetype vtype0;
-	status = napi_typeof( env, argv[ 0 ], &vtype0 );
-	assert( status == napi_ok );
-	if ( vtype0 != napi_number ) {
-		status = napi_throw_type_error( env, NULL, "invalid argument. Must provide a number." );
-		assert( status == napi_ok );
-		return NULL;
-	}
-
-	double x;
-	status = napi_get_value_double( env, argv[ 0 ], &x );
-	assert( status == napi_ok );
-
-	napi_value v;
-	status = napi_create_double( env, fcn( x ), &v );
-	assert( status == napi_ok );
-
-	return v;
-}
-
-/**
-* Invokes a unary function accepting and returning single-precision floating-point numbers.
-*
-* ## Notes
-*
-* -   This function expects that the callback `info` argument provides access to the following JavaScript arguments:
-*
-*     -   `x`: input value.
-*
-* @param env    environment under which the function is invoked
-* @param info   callback data
-* @param fcn    unary function
-* @return       function return value as a Node-API double-precision floating-point number
-*/
-napi_value stdlib_math_base_napi_f_f( napi_env env, napi_callback_info info, float (*fcn)( float ) ) {
-	napi_status status;
-
-	size_t argc = 1;
-	napi_value argv[ 1 ];
-	status = napi_get_cb_info( env, info, &argc, argv, NULL, NULL );
-	assert( status == napi_ok );
-
-	if ( argc < 1 ) {
-		status = napi_throw_error( env, NULL, "invalid invocation. Must provide a number." );
-		assert( status == napi_ok );
-		return NULL;
-	}
-
-	napi_valuetype vtype0;
-	status = napi_typeof( env, argv[ 0 ], &vtype0 );
-	assert( status == napi_ok );
-	if ( vtype0 != napi_number ) {
-		status = napi_throw_type_error( env, NULL, "invalid argument. Must provide a number." );
-		assert( status == napi_ok );
-		return NULL;
-	}
-
-	double x;
-	status = napi_get_value_double( env, argv[ 0 ], &x );
-	assert( status == napi_ok );
-
-	napi_value v;
-	status = napi_create_double( env, (double)fcn( (float)x ), &v );
-	assert( status == napi_ok );
-
-	return v;
-}
-
-/**
-* Invokes a unary function accepting and returning double-precision complex floating-point numbers.
-*
-* ## Notes
-*
-* -   This function expects that the callback `info` argument provides access to the following JavaScript arguments:
-*
-*     -   `x`: input value.
-*
-* @param env    environment under which the function is invoked
-* @param info   callback data
-* @param fcn    unary function
-* @return       function return value as a Node-API complex-like object
-*/
-napi_value stdlib_math_base_napi_z_z( napi_env env, napi_callback_info info, stdlib_complex128_t (*fcn)( stdlib_complex128_t ) ) {
-	napi_status status;
-
-	size_t argc = 1;
-	napi_value argv[ 1 ];
-	status = napi_get_cb_info( env, info, &argc, argv, NULL, NULL );
-	assert( status == napi_ok );
-
-	if ( argc < 1 ) {
-		status = napi_throw_error( env, NULL, "invalid invocation. Must provide a complex number." );
-		assert( status == napi_ok );
-		return NULL;
-	}
-
-	bool hprop;
-	status = napi_has_named_property( env, argv[ 0 ], "re", &hprop );
-	assert( status == napi_ok );
-	if ( !hprop ) {
-		status = napi_throw_type_error( env, NULL, "invalid argument. Argument must have a real component." );
-		assert( status == napi_ok );
-		return NULL;
-	}
-
-	napi_value xre;
-	status = napi_get_named_property( env, argv[ 0 ], "re", &xre );
-	assert( status == napi_ok );
-
-	napi_valuetype xretype;
-	status = napi_typeof( env, xre, &xretype );
-	assert( status == napi_ok );
-	if ( xretype != napi_number ) {
-		status = napi_throw_type_error( env, NULL, "invalid argument. Argument must have a real component which is a number." );
-		assert( status == napi_ok );
-		return NULL;
-	}
-
-	status = napi_has_named_property( env, argv[ 0 ], "im", &hprop );
-	assert( status == napi_ok );
-	if ( !hprop ) {
-		status = napi_throw_type_error( env, NULL, "invalid argument. Argument must have an imaginary component." );
-		assert( status == napi_ok );
-		return NULL;
-	}
-
-	napi_value xim;
-	status = napi_get_named_property( env, argv[ 0 ], "im", &xim );
-	assert( status == napi_ok );
-
-	napi_valuetype ximtype;
-	status = napi_typeof( env, xim, &ximtype );
-	assert( status == napi_ok );
-	if ( ximtype != napi_number ) {
-		status = napi_throw_type_error( env, NULL, "invalid argument. Argument must have an imaginary component which a number." );
-		assert( status == napi_ok );
-		return NULL;
-	}
-
-	double re0;
-	status = napi_get_value_double( env, xre, &re0 );
-	assert( status == napi_ok );
-
-	double im0;
-	status = napi_get_value_double( env, xim, &im0 );
-	assert( status == napi_ok );
-
-	stdlib_complex128_t v = fcn( stdlib_complex128( re0, im0 ) );
-	double re;
-	double im;
-	stdlib_complex128_reim( v, &re, &im );
-
-	napi_value obj;
-	status = napi_create_object( env, &obj );
-	assert( status == napi_ok );
-
-	napi_value vre;
-	status = napi_create_double( env, re, &vre );
-	assert( status == napi_ok );
-
-	status = napi_set_named_property( env, obj, "re", vre );
-	assert( status == napi_ok );
-
-	napi_value vim;
-	status = napi_create_double( env, im, &vim );
-	assert( status == napi_ok );
-
-	status = napi_set_named_property( env, obj, "im", vim );
-	assert( status == napi_ok );
-
-	return obj;
-}
-
-/**
-* Invokes a unary function accepting a double-precision complex floating-point number and returning a double-precision floating-point number.
-*
-* ## Notes
-*
-* -   This function expects that the callback `info` argument provides access to the following JavaScript arguments:
-*
-*     -   `x`: input value.
-*
-* @param env    environment under which the function is invoked
-* @param info   callback data
-* @param fcn    unary function
-* @return       function return value as a Node-API complex-like object
-*/
-napi_value stdlib_math_base_napi_z_d( napi_env env, napi_callback_info info, double (*fcn)( stdlib_complex128_t ) ) {
-	napi_status status;
-
-	size_t argc = 1;
-	napi_value argv[ 1 ];
-	status = napi_get_cb_info( env, info, &argc, argv, NULL, NULL );
-	assert( status == napi_ok );
-
-	if ( argc < 1 ) {
-		status = napi_throw_error( env, NULL, "invalid invocation. Must provide a complex number." );
-		assert( status == napi_ok );
-		return NULL;
-	}
-
-	bool hprop;
-	status = napi_has_named_property( env, argv[ 0 ], "re", &hprop );
-	assert( status == napi_ok );
-	if ( !hprop ) {
-		status = napi_throw_type_error( env, NULL, "invalid argument. Argument must have a real component." );
-		assert( status == napi_ok );
-		return NULL;
-	}
-
-	napi_value xre;
-	status = napi_get_named_property( env, argv[ 0 ], "re", &xre );
-	assert( status == napi_ok );
-
-	napi_valuetype xretype;
-	status = napi_typeof( env, xre, &xretype );
-	assert( status == napi_ok );
-	if ( xretype != napi_number ) {
-		status = napi_throw_type_error( env, NULL, "invalid argument. Argument must have a real component which is a number." );
-		assert( status == napi_ok );
-		return NULL;
-	}
-
-	status = napi_has_named_property( env, argv[ 0 ], "im", &hprop );
-	assert( status == napi_ok );
-	if ( !hprop ) {
-		status = napi_throw_type_error( env, NULL, "invalid argument. Argument must have an imaginary component." );
-		assert( status == napi_ok );
-		return NULL;
-	}
-
-	napi_value xim;
-	status = napi_get_named_property( env, argv[ 0 ], "im", &xim );
-	assert( status == napi_ok );
-
-	napi_valuetype ximtype;
-	status = napi_typeof( env, xim, &ximtype );
-	assert( status == napi_ok );
-	if ( ximtype != napi_number ) {
-		status = napi_throw_type_error( env, NULL, "invalid argument. Argument must have an imaginary component which a number." );
-		assert( status == napi_ok );
-		return NULL;
-	}
-
-	double re;
-	status = napi_get_value_double( env, xre, &re );
-	assert( status == napi_ok );
-
-	double im;
-	status = napi_get_value_double( env, xim, &im );
-	assert( status == napi_ok );
-
-	napi_value v;
-	status = napi_create_double( env, fcn( stdlib_complex128( re, im ) ), &v );
-	assert( status == napi_ok );
-
-	return v;
-}
-
-/**
-* Invokes a unary function accepting and returning single-precision complex floating-point numbers.
-*
-* ## Notes
-*
-* -   This function expects that the callback `info` argument provides access to the following JavaScript arguments:
-*
-*     -   `x`: input value.
-*
-* @param env    environment under which the function is invoked
-* @param info   callback data
-* @param fcn    unary function
-* @return       function return value as a Node-API complex-like object
-*/
-napi_value stdlib_math_base_napi_c_c( napi_env env, napi_callback_info info, stdlib_complex64_t (*fcn)( stdlib_complex64_t ) ) {
-	napi_status status;
-
-	size_t argc = 1;
-	napi_value argv[ 1 ];
-	status = napi_get_cb_info( env, info, &argc, argv, NULL, NULL );
-	assert( status == napi_ok );
-
-	if ( argc < 1 ) {
-		status = napi_throw_error( env, NULL, "invalid invocation. Must provide a complex number." );
-		assert( status == napi_ok );
-		return NULL;
-	}
-
-	bool hprop;
-	status = napi_has_named_property( env, argv[ 0 ], "re", &hprop );
-	assert( status == napi_ok );
-	if ( !hprop ) {
-		status = napi_throw_type_error( env, NULL, "invalid argument. Argument must have a real component." );
-		assert( status == napi_ok );
-		return NULL;
-	}
-
-	napi_value xre;
-	status = napi_get_named_property( env, argv[ 0 ], "re", &xre );
-	assert( status == napi_ok );
-
-	napi_valuetype xretype;
-	status = napi_typeof( env, xre, &xretype );
-	assert( status == napi_ok );
-	if ( xretype != napi_number ) {
-		status = napi_throw_type_error( env, NULL, "invalid argument. Argument must have a real component which is a number." );
-		assert( status == napi_ok );
-		return NULL;
-	}
-
-	status = napi_has_named_property( env, argv[ 0 ], "im", &hprop );
-	assert( status == napi_ok );
-	if ( !hprop ) {
-		status = napi_throw_type_error( env, NULL, "invalid argument. Argument must have an imaginary component." );
-		assert( status == napi_ok );
-		return NULL;
-	}
-
-	napi_value xim;
-	status = napi_get_named_property( env, argv[ 0 ], "im", &xim );
-	assert( status == napi_ok );
-
-	napi_valuetype ximtype;
-	status = napi_typeof( env, xim, &ximtype );
-	assert( status == napi_ok );
-	if ( ximtype != napi_number ) {
-		status = napi_throw_type_error( env, NULL, "invalid argument. Argument must have an imaginary component which a number." );
-		assert( status == napi_ok );
-		return NULL;
-	}
-
-	double re0;
-	status = napi_get_value_double( env, xre, &re0 );
-	assert( status == napi_ok );
-
-	double im0;
-	status = napi_get_value_double( env, xim, &im0 );
-	assert( status == napi_ok );
-
-	stdlib_complex64_t v = fcn( stdlib_complex64( (float)re0, (float)im0 ) );
-	float re;
-	float im;
-	stdlib_complex64_reim( v, &re, &im );
-
-	napi_value obj;
-	status = napi_create_object( env, &obj );
-	assert( status == napi_ok );
-
-	napi_value vre;
-	status = napi_create_double( env, (double)re, &vre );
-	assert( status == napi_ok );
-
-	status = napi_set_named_property( env, obj, "re", vre );
-	assert( status == napi_ok );
-
-	napi_value vim;
-	status = napi_create_double( env, (double)im, &vim );
-	assert( status == napi_ok );
-
-	status = napi_set_named_property( env, obj, "im", vim );
-	assert( status == napi_ok );
-
-	return obj;
-}
-
-/**
-* Invokes a unary function accepting a single-precision complex floating-point number and returning a single-precision floating-point number.
-*
-* ## Notes
-*
-* -   This function expects that the callback `info` argument provides access to the following JavaScript arguments:
-*
-*     -   `x`: input value.
-*
-* @param env    environment under which the function is invoked
-* @param info   callback data
-* @param fcn    unary function
-* @return       function return value as a Node-API complex-like object
-*/
-napi_value stdlib_math_base_napi_c_f( napi_env env, napi_callback_info info, float (*fcn)( stdlib_complex64_t ) ) {
-	napi_status status;
-
-	size_t argc = 1;
-	napi_value argv[ 1 ];
-	status = napi_get_cb_info( env, info, &argc, argv, NULL, NULL );
-	assert( status == napi_ok );
-
-	if ( argc < 1 ) {
-		status = napi_throw_error( env, NULL, "invalid invocation. Must provide a complex number." );
-		assert( status == napi_ok );
-		return NULL;
-	}
-
-	bool hprop;
-	status = napi_has_named_property( env, argv[ 0 ], "re", &hprop );
-	assert( status == napi_ok );
-	if ( !hprop ) {
-		status = napi_throw_type_error( env, NULL, "invalid argument. Argument must have a real component." );
-		assert( status == napi_ok );
-		return NULL;
-	}
-
-	napi_value xre;
-	status = napi_get_named_property( env, argv[ 0 ], "re", &xre );
-	assert( status == napi_ok );
-
-	napi_valuetype xretype;
-	status = napi_typeof( env, xre, &xretype );
-	assert( status == napi_ok );
-	if ( xretype != napi_number ) {
-		status = napi_throw_type_error( env, NULL, "invalid argument. Argument must have a real component which is a number." );
-		assert( status == napi_ok );
-		return NULL;
-	}
-
-	status = napi_has_named_property( env, argv[ 0 ], "im", &hprop );
-	assert( status == napi_ok );
-	if ( !hprop ) {
-		status = napi_throw_type_error( env, NULL, "invalid argument. Argument must have an imaginary component." );
-		assert( status == napi_ok );
-		return NULL;
-	}
-
-	napi_value xim;
-	status = napi_get_named_property( env, argv[ 0 ], "im", &xim );
-	assert( status == napi_ok );
-
-	napi_valuetype ximtype;
-	status = napi_typeof( env, xim, &ximtype );
-	assert( status == napi_ok );
-	if ( ximtype != napi_number ) {
-		status = napi_throw_type_error( env, NULL, "invalid argument. Argument must have an imaginary component which a number." );
-		assert( status == napi_ok );
-		return NULL;
-	}
-
-	double re;
-	status = napi_get_value_double( env, xre, &re );
-	assert( status == napi_ok );
-
-	double im;
-	status = napi_get_value_double( env, xim, &im );
-	assert( status == napi_ok );
-
-	napi_value v;
-	status = napi_create_double( env, (double)fcn( stdlib_complex64( (float)re, (float)im ) ), &v );
-	assert( status == napi_ok );
-
-	return v;
-}
-
-/**
-* Invokes a unary function accepting and returning signed 32-bit integers.
-*
-* ## Notes
-*
-* -   This function expects that the callback `info` argument provides access to the following JavaScript arguments:
-*
-*     -   `x`: input value.
-*
-* @param env    environment under which the function is invoked
-* @param info   callback data
-* @param fcn    unary function
-* @return       function return value as a Node-API signed 32-bit integer
-*/
-napi_value stdlib_math_base_napi_i_i( napi_env env, napi_callback_info info, int32_t (*fcn)( int32_t ) ) {
-	napi_status status;
-
-	size_t argc = 1;
-	napi_value argv[ 1 ];
-	status = napi_get_cb_info( env, info, &argc, argv, NULL, NULL );
-	assert( status == napi_ok );
-
-	if ( argc < 1 ) {
-		status = napi_throw_error( env, NULL, "invalid invocation. Must provide a number." );
-		assert( status == napi_ok );
-		return NULL;
-	}
-
-	napi_valuetype vtype0;
-	status = napi_typeof( env, argv[ 0 ], &vtype0 );
-	assert( status == napi_ok );
-	if ( vtype0 != napi_number ) {
-		status = napi_throw_type_error( env, NULL, "invalid argument. Must provide a number." );
-		assert( status == napi_ok );
-		return NULL;
-	}
-
-	int32_t x;
-	status = napi_get_value_int32( env, argv[ 0 ], &x );
-	assert( status == napi_ok );
-
-	napi_value v;
-	status = napi_create_int32( env, fcn( x ), &v );
-	assert( status == napi_ok );
-
-	return v;
-}
-
-/**
-* Invokes a unary function accepting a signed 32-bit integer and returning a single-precision floating-point number.
-*
-* ## Notes
-*
-* -   This function expects that the callback `info` argument provides access to the following JavaScript arguments:
-*
-*     -   `x`: input value.
-*
-* @param env    environment under which the function is invoked
-* @param info   callback data
-* @param fcn    unary function
-* @return       function return value as a Node-API double-precision floating-point number
-*/
-napi_value stdlib_math_base_napi_i_d( napi_env env, napi_callback_info info, double (*fcn)( int32_t ) ) {
-	napi_status status;
-
-	size_t argc = 1;
-	napi_value argv[ 1 ];
-	status = napi_get_cb_info( env, info, &argc, argv, NULL, NULL );
-	assert( status == napi_ok );
-
-	if ( argc < 1 ) {
-		status = napi_throw_error( env, NULL, "invalid invocation. Must provide a number." );
-		assert( status == napi_ok );
-		return NULL;
-	}
-
-	napi_valuetype vtype0;
-	status = napi_typeof( env, argv[ 0 ], &vtype0 );
-	assert( status == napi_ok );
-	if ( vtype0 != napi_number ) {
-		status = napi_throw_type_error( env, NULL, "invalid argument. Must provide a number." );
-		assert( status == napi_ok );
-		return NULL;
-	}
-
-	int32_t x;
-	status = napi_get_value_int32( env, argv[ 0 ], &x );
-	assert( status == napi_ok );
-
-	napi_value v;
-	status = napi_create_double( env, fcn( x ), &v );
-	assert( status == napi_ok );
-
-	return v;
-}