@stdlib/math-base-napi-binary 0.2.1 → 0.3.1

package/src/zd_z.c

@@ -0,0 +1,142 @@
+/**
+* @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/binary/zd_z.h"
+#include "stdlib/complex/float64/ctor.h"
+#include "stdlib/complex/float64/reim.h"
+#include <node_api.h>
+#include <assert.h>
+
+/**
+* Invokes a binary function accepting a double-precision complex floating-point number and a double-precision floating-point number and returning a double-precision complex floating-point number.
+*
+* ## Notes
+*
+* -   This function expects that the callback `info` argument provides access to the following JavaScript arguments:
+*
+*     -   `x`: input value.
+*     -   `y`: input value.
+*
+* @param env    environment under which the function is invoked
+* @param info   callback data
+* @param fcn    binary function
+* @return       function return value as a Node-API complex-like object
+*/
+napi_value stdlib_math_base_napi_zd_z( napi_env env, napi_callback_info info, stdlib_complex128_t (*fcn)( stdlib_complex128_t, double ) ) {
+	napi_status status;
+
+	size_t argc = 2;
+	napi_value argv[ 2 ];
+	status = napi_get_cb_info( env, info, &argc, argv, NULL, NULL );
+	assert( status == napi_ok );
+
+	if ( argc < 2 ) {
+		status = napi_throw_error( env, NULL, "invalid invocation. Must provide two arguments." );
+		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. First 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. First 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. First 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. First argument must have an imaginary component which a number." );
+		assert( status == napi_ok );
+		return NULL;
+	}
+
+	napi_valuetype vtype1;
+	status = napi_typeof( env, argv[ 1 ], &vtype1 );
+	assert( status == napi_ok );
+	if ( vtype1 != napi_number ) {
+		status = napi_throw_type_error( env, NULL, "invalid argument. Second argument must be 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 );
+
+	double y;
+	status = napi_get_value_double( env, argv[ 1 ], &y );
+	assert( status == napi_ok );
+
+	stdlib_complex128_t v = fcn( stdlib_complex128( re0, im0 ), y );
+	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;
+}

package/src/zi_z.c

@@ -0,0 +1,143 @@
+/**
+* @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/binary/zi_z.h"
+#include "stdlib/complex/float64/ctor.h"
+#include "stdlib/complex/float64/reim.h"
+#include <node_api.h>
+#include <stdint.h>
+#include <assert.h>
+
+/**
+* Invokes a binary function accepting a double-precision complex floating-point number and a signed 32-bit integer and returning a double-precision complex floating-point number.
+*
+* ## Notes
+*
+* -   This function expects that the callback `info` argument provides access to the following JavaScript arguments:
+*
+*     -   `x`: input value.
+*     -   `y`: input value.
+*
+* @param env    environment under which the function is invoked
+* @param info   callback data
+* @param fcn    binary function
+* @return       function return value as a Node-API complex-like object
+*/
+napi_value stdlib_math_base_napi_zi_z( napi_env env, napi_callback_info info, stdlib_complex128_t (*fcn)( stdlib_complex128_t, int32_t ) ) {
+	napi_status status;
+
+	size_t argc = 2;
+	napi_value argv[ 2 ];
+	status = napi_get_cb_info( env, info, &argc, argv, NULL, NULL );
+	assert( status == napi_ok );
+
+	if ( argc < 2 ) {
+		status = napi_throw_error( env, NULL, "invalid invocation. Must provide two arguments." );
+		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. First 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. First 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. First 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. First argument must have an imaginary component which a number." );
+		assert( status == napi_ok );
+		return NULL;
+	}
+
+	napi_valuetype vtype1;
+	status = napi_typeof( env, argv[ 1 ], &vtype1 );
+	assert( status == napi_ok );
+	if ( vtype1 != napi_number ) {
+		status = napi_throw_type_error( env, NULL, "invalid argument. Second argument must be 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 );
+
+	int32_t y;
+	status = napi_get_value_int32( env, argv[ 1 ], &y );
+	assert( status == napi_ok );
+
+	stdlib_complex128_t v = fcn( stdlib_complex128( re0, im0 ), y );
+	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;
+}

package/src/zz_z.c

@@ -0,0 +1,179 @@
+/**
+* @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/binary/zz_z.h"
+#include "stdlib/complex/float64/ctor.h"
+#include "stdlib/complex/float64/reim.h"
+#include <node_api.h>
+#include <assert.h>
+
+/**
+* Invokes a binary 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.
+*     -   `y`: input value.
+*
+* @param env    environment under which the function is invoked
+* @param info   callback data
+* @param fcn    binary function
+* @return       function return value as a Node-API complex-like object
+*/
+napi_value stdlib_math_base_napi_zz_z( napi_env env, napi_callback_info info, stdlib_complex128_t (*fcn)( stdlib_complex128_t, stdlib_complex128_t ) ) {
+	napi_status status;
+
+	size_t argc = 2;
+	napi_value argv[ 2 ];
+	status = napi_get_cb_info( env, info, &argc, argv, NULL, NULL );
+	assert( status == napi_ok );
+
+	if ( argc < 2 ) {
+		status = napi_throw_error( env, NULL, "invalid invocation. Must provide two complex numbers." );
+		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. First 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. First 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. First 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. First argument must have an imaginary component which a number." );
+		assert( status == napi_ok );
+		return NULL;
+	}
+
+	status = napi_has_named_property( env, argv[ 1 ], "re", &hprop );
+	assert( status == napi_ok );
+	if ( !hprop ) {
+		status = napi_throw_type_error( env, NULL, "invalid argument. Second argument must have a real component." );
+		assert( status == napi_ok );
+		return NULL;
+	}
+
+	napi_value yre;
+	status = napi_get_named_property( env, argv[ 1 ], "re", &yre );
+	assert( status == napi_ok );
+
+	napi_valuetype yretype;
+	status = napi_typeof( env, yre, &yretype );
+	assert( status == napi_ok );
+	if ( yretype != napi_number ) {
+		status = napi_throw_type_error( env, NULL, "invalid argument. Second argument must have a real component which is a number." );
+		assert( status == napi_ok );
+		return NULL;
+	}
+
+	status = napi_has_named_property( env, argv[ 1 ], "im", &hprop );
+	assert( status == napi_ok );
+	if ( !hprop ) {
+		status = napi_throw_type_error( env, NULL, "invalid argument. Second argument must have an imaginary component." );
+		assert( status == napi_ok );
+		return NULL;
+	}
+
+	napi_value yim;
+	status = napi_get_named_property( env, argv[ 1 ], "im", &yim );
+	assert( status == napi_ok );
+
+	napi_valuetype yimtype;
+	status = napi_typeof( env, yim, &yimtype );
+	assert( status == napi_ok );
+	if ( yimtype != napi_number ) {
+		status = napi_throw_type_error( env, NULL, "invalid argument. Second 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 );
+
+	double re1;
+	status = napi_get_value_double( env, yre, &re1 );
+	assert( status == napi_ok );
+
+	double im1;
+	status = napi_get_value_double( env, yim, &im1 );
+	assert( status == napi_ok );
+
+	stdlib_complex128_t v = fcn( stdlib_complex128( re0, im0 ), stdlib_complex128( re1, im1 ) );
+	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;
+}

package/include.gypi

@@ -1,53 +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.
-
-# A GYP include file for building a Node.js native add-on.
-#
-# Main documentation:
-#
-# [1]: https://gyp.gsrc.io/docs/InputFormatReference.md
-# [2]: https://gyp.gsrc.io/docs/UserDocumentation.md
-{
-  # Define variables to be used throughout the configuration for all targets:
-  'variables': {
-    # Source directory:
-    'src_dir': './src',
-
-    # Include directories:
-    'include_dirs': [
-      '<!@(node -e "var arr = require(\'@stdlib/utils-library-manifest\')(\'./manifest.json\',{},{\'basedir\':process.cwd(),\'paths\':\'posix\'}).include; for ( var i = 0; i < arr.length; i++ ) { console.log( arr[ i ] ); }")',
-    ],
-
-    # Add-on destination directory:
-    'addon_output_dir': './src',
-
-    # Source files:
-    'src_files': [
-      '<(src_dir)/addon.c',
-      '<!@(node -e "var arr = require(\'@stdlib/utils-library-manifest\')(\'./manifest.json\',{},{\'basedir\':process.cwd(),\'paths\':\'posix\'}).src; for ( var i = 0; i < arr.length; i++ ) { console.log( arr[ i ] ); }")',
-    ],
-
-    # Library dependencies:
-    'libraries': [
-      '<!@(node -e "var arr = require(\'@stdlib/utils-library-manifest\')(\'./manifest.json\',{},{\'basedir\':process.cwd(),\'paths\':\'posix\'}).libraries; for ( var i = 0; i < arr.length; i++ ) { console.log( arr[ i ] ); }")',
-    ],
-
-    # Library directories:
-    'library_dirs': [
-      '<!@(node -e "var arr = require(\'@stdlib/utils-library-manifest\')(\'./manifest.json\',{},{\'basedir\':process.cwd(),\'paths\':\'posix\'}).libpath; for ( var i = 0; i < arr.length; i++ ) { console.log( arr[ i ] ); }")',
-    ],
-  }, # end variables
-}