refactor: support building with API suffix

kgryte · kgryte · commit c313ca8741ba · 2024-04-27T16:00:53.000-07:00
diff --git a/lib/node_modules/@stdlib/blas/base/dscal/include/stdlib/blas/base/dscal.h b/lib/node_modules/@stdlib/blas/base/dscal/include/stdlib/blas/base/dscal.h
@@ -34,7 +34,7 @@ extern "C" {
 /**
 * Multiplies each element of a double-precision floating-point vector by a constant.
 */
-void c_dscal( const CBLAS_INT N, const double alpha, double *X, const CBLAS_INT stride );
+void API_SUFFIX(c_dscal)( const CBLAS_INT N, const double alpha, double *X, const CBLAS_INT stride );
 
 #ifdef __cplusplus
 }
diff --git a/lib/node_modules/@stdlib/blas/base/dscal/include/stdlib/blas/base/dscal_cblas.h b/lib/node_modules/@stdlib/blas/base/dscal/include/stdlib/blas/base/dscal_cblas.h
@@ -34,7 +34,7 @@ extern "C" {
 /**
 * Multiplies each element of a double-precision floating-point vector by a constant.
 */
-void cblas_dscal( const CBLAS_INT N, const double alpha, double *X, const CBLAS_INT stride );
+void API_SUFFIX(cblas_dscal)( const CBLAS_INT N, const double alpha, double *X, const CBLAS_INT stride );
 
 #ifdef __cplusplus
 }
diff --git a/lib/node_modules/@stdlib/blas/base/dscal/src/addon.c b/lib/node_modules/@stdlib/blas/base/dscal/src/addon.c
@@ -17,6 +17,7 @@
 */
 
 #include "stdlib/blas/base/dscal.h"
+#include "stdlib/blas/base/shared.h"
 #include "stdlib/napi/export.h"
 #include "stdlib/napi/argv.h"
 #include "stdlib/napi/argv_double.h"
@@ -38,7 +39,7 @@ static napi_value addon( napi_env env, napi_callback_info info ) {
 	STDLIB_NAPI_ARGV_DOUBLE( env, alpha, argv, 1 );
 	STDLIB_NAPI_ARGV_INT64( env, strideX, argv, 3 );
 	STDLIB_NAPI_ARGV_STRIDED_FLOAT64ARRAY( env, X, N, strideX, argv, 2 );
-	c_dscal( N, alpha, X, strideX );
+	API_SUFFIX(c_dscal)( N, alpha, X, strideX );
 	return NULL;
 }
 
diff --git a/lib/node_modules/@stdlib/blas/base/dscal/src/dscal.c b/lib/node_modules/@stdlib/blas/base/dscal/src/dscal.c
@@ -27,7 +27,7 @@
 * @param X       input array
 * @param stride  index increment
 */
-void c_dscal( const CBLAS_INT N, const double alpha, double *X, const CBLAS_INT stride ) {
+void API_SUFFIX(c_dscal)( const CBLAS_INT N, const double alpha, double *X, const CBLAS_INT stride ) {
 	CBLAS_INT m;
 	CBLAS_INT i;
 
diff --git a/lib/node_modules/@stdlib/blas/base/dscal/src/dscal_cblas.c b/lib/node_modules/@stdlib/blas/base/dscal/src/dscal_cblas.c
@@ -28,6 +28,6 @@
 * @param X       input array
 * @param stride  index increment
 */
-void c_dscal( const CBLAS_INT N, const double alpha, double *X, const CBLAS_INT stride ) {
-	cblas_dscal( N, alpha, X, stride );
+void API_SUFFIX(c_dscal)( const CBLAS_INT N, const double alpha, double *X, const CBLAS_INT stride ) {
+	API_SUFFIX(cblas_dscal)( N, alpha, X, stride );
 }
diff --git a/lib/node_modules/@stdlib/blas/base/dscal/src/dscal_f.c b/lib/node_modules/@stdlib/blas/base/dscal/src/dscal_f.c
@@ -28,6 +28,6 @@
 * @param X       input array
 * @param stride  index increment
 */
-void c_dscal( const CBLAS_INT N, const double alpha, double *X, const CBLAS_INT stride ) {
+void API_SUFFIX(c_dscal)( const CBLAS_INT N, const double alpha, double *X, const CBLAS_INT stride ) {
 	dscal( &N, &alpha, X, &stride );
 }

Original file line number	Diff line number	Diff line change
`@@ -34,7 +34,7 @@ extern "C" {`
`34`	`34`	`/**`
`35`	`35`	`* Multiplies each element of a double-precision floating-point vector by a constant.`
`36`	`36`	`*/`
`37`		`-void c_dscal( const CBLAS_INT N, const double alpha, double *X, const CBLAS_INT stride );`
	`37`	`+void API_SUFFIX(c_dscal)( const CBLAS_INT N, const double alpha, double *X, const CBLAS_INT stride );`
`38`	`38`
`39`	`39`	`#ifdef __cplusplus`
`40`	`40`	`}`
Original file line number	Diff line number	Diff line change
`@@ -28,6 +28,6 @@`
`28`	`28`	`* @param X input array`
`29`	`29`	`* @param stride index increment`
`30`	`30`	`*/`
`31`		`-void c_dscal( const CBLAS_INT N, const double alpha, double *X, const CBLAS_INT stride ) {`
`32`		`- cblas_dscal( N, alpha, X, stride );`
	`31`	`+void API_SUFFIX(c_dscal)( const CBLAS_INT N, const double alpha, double *X, const CBLAS_INT stride ) {`
	`32`	`+ API_SUFFIX(cblas_dscal)( N, alpha, X, stride );`
`33`	`33`	`}`