From ee788201141cbc9a25d1d74982c1c762080ae6fb Mon Sep 17 00:00:00 2001
From: Athan Reines <kgryte@gmail.com>
Date: Sat, 27 Apr 2024 14:11:39 -0700
Subject: [PATCH] feat: add support for specifying integer size

---
 .../@stdlib/blas/base/dswap/README.md         | 102 ++++++++++++++++++
 .../dswap/include/stdlib/blas/base/dswap.h    |   4 +-
 .../include/stdlib/blas/base/dswap_cblas.h    |   4 +-
 .../@stdlib/blas/base/dswap/manifest.json     |  58 +++++++---
 .../@stdlib/blas/base/dswap/src/dswap.c       |  11 +-
 .../@stdlib/blas/base/dswap/src/dswap_cblas.c |   3 +-
 .../@stdlib/blas/base/dswap/src/dswap_f.c     |   3 +-
 7 files changed, 163 insertions(+), 22 deletions(-)

diff --git a/lib/node_modules/@stdlib/blas/base/dswap/README.md b/lib/node_modules/@stdlib/blas/base/dswap/README.md
index 5fb5098a4c1..9f4e0860417 100644
--- a/lib/node_modules/@stdlib/blas/base/dswap/README.md
+++ b/lib/node_modules/@stdlib/blas/base/dswap/README.md
@@ -164,6 +164,108 @@ console.log( y );
 
 <!-- /.examples -->
 
+<!-- C interface documentation. -->
+
+* * *
+
+<section class="c">
+
+## C APIs
+
+<!-- Section to include introductory text. Make sure to keep an empty line after the intro `section` element and another before the `/section` close. -->
+
+<section class="intro">
+
+</section>
+
+<!-- /.intro -->
+
+<!-- C usage documentation. -->
+
+<section class="usage">
+
+### Usage
+
+```c
+#include "stdlib/blas/base/dswap.h"
+```
+
+#### c_dswap( N, X, strideX, Y, strideY )
+
+Interchanges two double-precision floating-point vectors.
+
+```c
+double x[] = { 1.0, 2.0, 3.0, 4.0 };
+double y[] = { 0.0, 0.0, 0.0, 0.0 };
+
+c_dswap( 4, x, 1, y, 1 );
+```
+
+The function accepts the following arguments:
+
+-   **N**: `[in] CBLAS_INT` number of indexed elements.
+-   **X**: `[inout] double*` first input array.
+-   **strideX**: `[in] CBLAS_INT` index increment for `X`.
+-   **Y**: `[inout] double*` first input array.
+-   **strideY**: `[in] CBLAS_INT` index increment for `Y`.
+
+```c
+void c_dswap( const CBLAS_INT N, double *X, const CBLAS_INT strideX, double *Y, const CBLAS_INT strideY );
+```
+
+</section>
+
+<!-- /.usage -->
+
+<!-- C API usage notes. Make sure to keep an empty line after the `section` element and another before the `/section` close. -->
+
+<section class="notes">
+
+</section>
+
+<!-- /.notes -->
+
+<!-- C API usage examples. -->
+
+<section class="examples">
+
+### Examples
+
+```c
+#include "stdlib/blas/base/dswap.h"
+#include <stdio.h>
+
+int main( void ) {
+    // Create strided arrays:
+    double x[] = { 1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0, 8.0 };
+    double y[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 };
+
+    // Specify the number of elements:
+    const int N = 4;
+
+    // Specify stride lengths:
+    const int strideX = 2;
+    const int strideY = -2;
+
+    // Interchange elements:
+    c_dswap( N, x, strideX, y, strideY );
+
+    // Print the result:
+    for ( int i = 0; i < 8; i++ ) {
+        printf( "x[ %i ] = %lf\n", i, x[ i ] );
+        printf( "y[ %i ] = %lf\n", i, y[ i ] );
+    }
+}
+```
+
+</section>
+
+<!-- /.examples -->
+
+</section>
+
+<!-- /.c -->
+
 <!-- Section for related `stdlib` packages. Do not manually edit this section, as it is automatically populated. -->
 
 <section class="related">
diff --git a/lib/node_modules/@stdlib/blas/base/dswap/include/stdlib/blas/base/dswap.h b/lib/node_modules/@stdlib/blas/base/dswap/include/stdlib/blas/base/dswap.h
index 7367a0dd64f..90d6e4f0928 100644
--- a/lib/node_modules/@stdlib/blas/base/dswap/include/stdlib/blas/base/dswap.h
+++ b/lib/node_modules/@stdlib/blas/base/dswap/include/stdlib/blas/base/dswap.h
@@ -22,6 +22,8 @@
 #ifndef DSWAP_H
 #define DSWAP_H
 
+#include "stdlib/blas/base/shared.h"
+
 /*
 * If C++, prevent name mangling so that the compiler emits a binary file having undecorated names, thus mirroring the behavior of a C compiler.
 */
@@ -32,7 +34,7 @@ extern "C" {
 /**
 * Interchanges two double-precision floating-point vectors.
 */
-void c_dswap( const int N, double *X, const int strideX, double *Y, const int strideY );
+void c_dswap( const CBLAS_INT N, double *X, const CBLAS_INT strideX, double *Y, const CBLAS_INT strideY );
 
 #ifdef __cplusplus
 }
diff --git a/lib/node_modules/@stdlib/blas/base/dswap/include/stdlib/blas/base/dswap_cblas.h b/lib/node_modules/@stdlib/blas/base/dswap/include/stdlib/blas/base/dswap_cblas.h
index 9c5e7bcb144..a7b0234ea2f 100644
--- a/lib/node_modules/@stdlib/blas/base/dswap/include/stdlib/blas/base/dswap_cblas.h
+++ b/lib/node_modules/@stdlib/blas/base/dswap/include/stdlib/blas/base/dswap_cblas.h
@@ -22,6 +22,8 @@
 #ifndef DSWAP_CBLAS_H
 #define DSWAP_CBLAS_H
 
+#include "stdlib/blas/base/shared.h"
+
 /*
 * If C++, prevent name mangling so that the compiler emits a binary file having undecorated names, thus mirroring the behavior of a C compiler.
 */
@@ -32,7 +34,7 @@ extern "C" {
 /**
 * Interchanges two double-precision floating-point vectors.
 */
-void cblas_dswap( const int N, double *X, const int strideX, double *Y, const int strideY );
+void cblas_dswap( const CBLAS_INT N, double *X, const CBLAS_INT strideX, double *Y, const CBLAS_INT strideY );
 
 #ifdef __cplusplus
 }
diff --git a/lib/node_modules/@stdlib/blas/base/dswap/manifest.json b/lib/node_modules/@stdlib/blas/base/dswap/manifest.json
index a701f5d167a..21453fdd9eb 100644
--- a/lib/node_modules/@stdlib/blas/base/dswap/manifest.json
+++ b/lib/node_modules/@stdlib/blas/base/dswap/manifest.json
@@ -43,6 +43,7 @@
       "libraries": [],
       "libpath": [],
       "dependencies": [
+        "@stdlib/blas/base/shared",
         "@stdlib/napi/export",
         "@stdlib/napi/argv",
         "@stdlib/napi/argv-int64",
@@ -62,7 +63,9 @@
       ],
       "libraries": [],
       "libpath": [],
-      "dependencies": []
+      "dependencies": [
+        "@stdlib/blas/base/shared"
+      ]
     },
     {
       "task": "examples",
@@ -77,7 +80,9 @@
       ],
       "libraries": [],
       "libpath": [],
-      "dependencies": []
+      "dependencies": [
+        "@stdlib/blas/base/shared"
+      ]
     },
 
     {
@@ -97,6 +102,7 @@
       ],
       "libpath": [],
       "dependencies": [
+        "@stdlib/blas/base/shared",
         "@stdlib/napi/export",
         "@stdlib/napi/argv",
         "@stdlib/napi/argv-int64",
@@ -119,7 +125,9 @@
         "-lpthread"
       ],
       "libpath": [],
-      "dependencies": []
+      "dependencies": [
+        "@stdlib/blas/base/shared"
+      ]
     },
     {
       "task": "examples",
@@ -137,7 +145,9 @@
         "-lpthread"
       ],
       "libpath": [],
-      "dependencies": []
+      "dependencies": [
+        "@stdlib/blas/base/shared"
+      ]
     },
 
     {
@@ -155,6 +165,7 @@
       "libraries": [],
       "libpath": [],
       "dependencies": [
+        "@stdlib/blas/base/shared",
         "@stdlib/napi/export",
         "@stdlib/napi/argv",
         "@stdlib/napi/argv-int64",
@@ -174,7 +185,9 @@
       ],
       "libraries": [],
       "libpath": [],
-      "dependencies": []
+      "dependencies": [
+        "@stdlib/blas/base/shared"
+      ]
     },
     {
       "task": "examples",
@@ -189,7 +202,9 @@
       ],
       "libraries": [],
       "libpath": [],
-      "dependencies": []
+      "dependencies": [
+        "@stdlib/blas/base/shared"
+      ]
     },
 
     {
@@ -208,6 +223,7 @@
       ],
       "libpath": [],
       "dependencies": [
+        "@stdlib/blas/base/shared",
         "@stdlib/napi/export",
         "@stdlib/napi/argv",
         "@stdlib/napi/argv-int64",
@@ -229,7 +245,9 @@
         "-lblas"
       ],
       "libpath": [],
-      "dependencies": []
+      "dependencies": [
+        "@stdlib/blas/base/shared"
+      ]
     },
     {
       "task": "examples",
@@ -246,7 +264,9 @@
         "-lblas"
       ],
       "libpath": [],
-      "dependencies": []
+      "dependencies": [
+        "@stdlib/blas/base/shared"
+      ]
     },
 
     {
@@ -266,6 +286,7 @@
       ],
       "libpath": [],
       "dependencies": [
+        "@stdlib/blas/base/shared",
         "@stdlib/napi/export",
         "@stdlib/napi/argv",
         "@stdlib/napi/argv-int64",
@@ -288,7 +309,9 @@
         "-lpthread"
       ],
       "libpath": [],
-      "dependencies": []
+      "dependencies": [
+        "@stdlib/blas/base/shared"
+      ]
     },
     {
       "task": "examples",
@@ -306,7 +329,9 @@
         "-lpthread"
       ],
       "libpath": [],
-      "dependencies": []
+      "dependencies": [
+        "@stdlib/blas/base/shared"
+      ]
     },
 
     {
@@ -323,6 +348,7 @@
       "libraries": [],
       "libpath": [],
       "dependencies": [
+        "@stdlib/blas/base/shared",
         "@stdlib/napi/export",
         "@stdlib/napi/argv",
         "@stdlib/napi/argv-int64",
@@ -342,7 +368,9 @@
       ],
       "libraries": [],
       "libpath": [],
-      "dependencies": []
+      "dependencies": [
+        "@stdlib/blas/base/shared"
+      ]
     },
     {
       "task": "examples",
@@ -357,7 +385,9 @@
       ],
       "libraries": [],
       "libpath": [],
-      "dependencies": []
+      "dependencies": [
+        "@stdlib/blas/base/shared"
+      ]
     },
 
     {
@@ -373,7 +403,9 @@
       ],
       "libraries": [],
       "libpath": [],
-      "dependencies": []
+      "dependencies": [
+        "@stdlib/blas/base/shared"
+      ]
     }
   ]
 }
diff --git a/lib/node_modules/@stdlib/blas/base/dswap/src/dswap.c b/lib/node_modules/@stdlib/blas/base/dswap/src/dswap.c
index 50834a8e6e7..55c93c23334 100644
--- a/lib/node_modules/@stdlib/blas/base/dswap/src/dswap.c
+++ b/lib/node_modules/@stdlib/blas/base/dswap/src/dswap.c
@@ -17,6 +17,7 @@
 */
 
 #include "stdlib/blas/base/dswap.h"
+#include "stdlib/blas/base/shared.h"
 
 /**
 * Interchanges two double-precision floating-point vectors.
@@ -27,12 +28,12 @@
 * @param Y        second input array
 * @param strideY  Y stride length
 */
-void c_dswap( const int N, double *X, const int strideX, double *Y, const int strideY ) {
+void c_dswap( const CBLAS_INT N, double *X, const CBLAS_INT strideX, double *Y, const CBLAS_INT strideY ) {
 	double tmp;
-	int ix;
-	int iy;
-	int i;
-	int m;
+	CBLAS_INT ix;
+	CBLAS_INT iy;
+	CBLAS_INT i;
+	CBLAS_INT m;
 
 	if ( N <= 0 ) {
 		return;
diff --git a/lib/node_modules/@stdlib/blas/base/dswap/src/dswap_cblas.c b/lib/node_modules/@stdlib/blas/base/dswap/src/dswap_cblas.c
index cdfa6f1c2b3..0a99cc04463 100644
--- a/lib/node_modules/@stdlib/blas/base/dswap/src/dswap_cblas.c
+++ b/lib/node_modules/@stdlib/blas/base/dswap/src/dswap_cblas.c
@@ -18,6 +18,7 @@
 
 #include "stdlib/blas/base/dswap.h"
 #include "stdlib/blas/base/dswap_cblas.h"
+#include "stdlib/blas/base/shared.h"
 
 /**
 * Interchanges two double-precision floating-point vectors.
@@ -28,6 +29,6 @@
 * @param Y        second input array
 * @param strideY  Y stride length
 */
-void c_dswap( const int N, double *X, const int strideX, double *Y, const int strideY ) {
+void c_dswap( const CBLAS_INT N, double *X, const CBLAS_INT strideX, double *Y, const CBLAS_INT strideY ) {
 	cblas_dswap( N, X, strideX, Y, strideY );
 }
diff --git a/lib/node_modules/@stdlib/blas/base/dswap/src/dswap_f.c b/lib/node_modules/@stdlib/blas/base/dswap/src/dswap_f.c
index 02e9e452c64..4a77475c468 100644
--- a/lib/node_modules/@stdlib/blas/base/dswap/src/dswap_f.c
+++ b/lib/node_modules/@stdlib/blas/base/dswap/src/dswap_f.c
@@ -18,6 +18,7 @@
 
 #include "stdlib/blas/base/dswap.h"
 #include "stdlib/blas/base/dswap_fortran.h"
+#include "stdlib/blas/base/shared.h"
 
 /**
 * Interchanges two double-precision floating-point vectors.
@@ -28,6 +29,6 @@
 * @param Y        second input array
 * @param strideY  Y stride length
 */
-void c_dswap( const int N, double *X, const int strideX, double *Y, const int strideY ) {
+void c_dswap( const CBLAS_INT N, double *X, const CBLAS_INT strideX, double *Y, const CBLAS_INT strideY ) {
 	dswap( &N, X, &strideX, Y, &strideY );
 }