@stdlib/blas-base-wasm-scasum 0.1.0

package/lib/module.js

@@ -0,0 +1,198 @@
+/**
+* @license Apache-2.0
+*
+* Copyright (c) 2025 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.
+*/
+
+/* eslint-disable no-restricted-syntax, no-invalid-this */
+
+'use strict';
+
+// MODULES //
+
+var isWebAssemblyMemory = require( '@stdlib/assert-is-wasm-memory' );
+var setReadOnly = require( '@stdlib/utils-define-nonenumerable-read-only-property' );
+var inherits = require( '@stdlib/utils-inherit' );
+var WasmModule = require( '@stdlib/wasm-module-wrapper' );
+var format = require( '@stdlib/string-format' );
+var wasmBinary = require( './binary.js' );
+
+
+// MAIN //
+
+/**
+* BLAS routine WebAssembly module wrapper constructor.
+*
+* @constructor
+* @param {Object} memory - WebAssembly memory instance
+* @throws {TypeError} must provide a WebAssembly memory instance
+* @returns {Module} module instance
+*
+* @example
+* var Memory = require( '@stdlib/wasm-memory' );
+* var oneTo = require( '@stdlib/array-one-to' );
+*
+* // Create a new memory instance with an initial size of 10 pages (640KiB) and a maximum size of 100 pages (6.4MiB):
+* var mem = new Memory({
+*     'initial': 10,
+*     'maximum': 100
+* });
+*
+* // Create a BLAS routine:
+* var scasum = new Module( mem );
+* // returns <Module>
+*
+* // Initialize the routine:
+* scasum.initializeSync();
+*
+* // Define a vector data type:
+* var dtype = 'complex64';
+*
+* // Specify a vector length:
+* var N = 4;
+*
+* // Define a pointer (i.e., byte offset) for storing the input vector:
+* var xptr = 0;
+*
+* // Write vector values to module memory:
+* scasum.write( xptr, oneTo( N, dtype ) );
+*
+* // Perform computation:
+* var sum = scasum.main( N, xptr, 1 );
+* // returns 10.0
+*/
+function Module( memory ) {
+	if ( !( this instanceof Module ) ) {
+		return new Module( memory );
+	}
+	if ( !isWebAssemblyMemory( memory ) ) {
+		throw new TypeError( format( 'invalid argument. Must provide a WebAssembly memory instance. Value: `%s`.', memory ) );
+	}
+	// Call the parent constructor:
+	WasmModule.call( this, wasmBinary, memory, {
+		'env': {
+			'memory': memory
+		}
+	});
+
+	return this;
+}
+
+// Inherit from the parent constructor:
+inherits( Module, WasmModule );
+
+/**
+* Computes the sum of the absolute values of the real and imaginary components of a single-precision complex floating-point vector.
+*
+* @name main
+* @memberof Module.prototype
+* @readonly
+* @type {Function}
+* @param {PositiveInteger} N - number of indexed elements
+* @param {NonNegativeInteger} xptr - input array pointer (i.e., byte offset)
+* @param {integer} strideX - `x` stride length
+* @returns {number} sum of absolute values
+*
+* @example
+* var Memory = require( '@stdlib/wasm-memory' );
+* var oneTo = require( '@stdlib/array-one-to' );
+*
+* // Create a new memory instance with an initial size of 10 pages (640KiB) and a maximum size of 100 pages (6.4MiB):
+* var mem = new Memory({
+*     'initial': 10,
+*     'maximum': 100
+* });
+*
+* // Create a BLAS routine:
+* var scasum = new Module( mem );
+* // returns <Module>
+*
+* // Initialize the routine:
+* scasum.initializeSync();
+*
+* // Define a vector data type:
+* var dtype = 'complex64';
+*
+* // Specify a vector length:
+* var N = 4;
+*
+* // Define a pointer (i.e., byte offset) for storing the input vector:
+* var xptr = 0;
+*
+* // Write vector values to module memory:
+* scasum.write( xptr, oneTo( N, dtype ) );
+*
+* // Perform computation:
+* var sum = scasum.main( N, xptr, 1 );
+* // returns 10.0
+*/
+setReadOnly( Module.prototype, 'main', function scasum( N, xptr, strideX ) {
+	return this._instance.exports.c_scasum( N, xptr, strideX );
+});
+
+/**
+* Computes the sum of the absolute values of the real and imaginary components of a single-precision complex floating-point vector using alternative indexing semantics.
+*
+* @name ndarray
+* @memberof Module.prototype
+* @readonly
+* @type {Function}
+* @param {PositiveInteger} N - number of indexed elements
+* @param {NonNegativeInteger} xptr - input array pointer (i.e., byte offset)
+* @param {integer} strideX - `x` stride length
+* @param {NonNegativeInteger} offsetX - starting index for `x`
+* @returns {number} sum of absolute values
+*
+* @example
+* var Memory = require( '@stdlib/wasm-memory' );
+* var oneTo = require( '@stdlib/array-one-to' );
+*
+* // Create a new memory instance with an initial size of 10 pages (640KiB) and a maximum size of 100 pages (6.4MiB):
+* var mem = new Memory({
+*     'initial': 10,
+*     'maximum': 100
+* });
+*
+* // Create a BLAS routine:
+* var scasum = new Module( mem );
+* // returns <Module>
+*
+* // Initialize the routine:
+* scasum.initializeSync();
+*
+* // Define a vector data type:
+* var dtype = 'complex64';
+*
+* // Specify a vector length:
+* var N = 4;
+*
+* // Define a pointer (i.e., byte offset) for storing the input vector:
+* var xptr = 0;
+*
+* // Write vector values to module memory:
+* scasum.write( xptr, oneTo( N, dtype ) );
+*
+* // Perform computation:
+* var sum = scasum.ndarray( N, xptr, 1, 0 );
+* // returns 10.0
+*/
+setReadOnly( Module.prototype, 'ndarray', function scasum( N, xptr, strideX, offsetX ) {
+	return this._instance.exports.c_scasum_ndarray( N, xptr, strideX, offsetX );
+});
+
+
+// EXPORTS //
+
+module.exports = Module;

package/lib/routine.js

@@ -0,0 +1,166 @@
+/**
+* @license Apache-2.0
+*
+* Copyright (c) 2025 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.
+*/
+
+/* eslint-disable max-len, no-restricted-syntax, no-invalid-this */
+
+'use strict';
+
+// MODULES //
+
+var setReadOnly = require( '@stdlib/utils-define-nonenumerable-read-only-property' );
+var inherits = require( '@stdlib/utils-inherit' );
+var stride2offset = require( '@stdlib/strided-base-stride2offset' );
+var Memory = require( '@stdlib/wasm-memory' );
+var arrays2ptrs = require( '@stdlib/wasm-base-arrays2ptrs' );
+var strided2object = require( '@stdlib/wasm-base-strided2object' );
+var Module = require( './module.js' );
+
+
+// MAIN //
+
+/**
+* Routine constructor.
+*
+* @private
+* @constructor
+* @returns {Routine} routine instance
+*
+* @example
+* var Complex64Array = require( '@stdlib/array-complex64' );
+*
+* // Create a new routine:
+* var scasum = new Routine();
+*
+* // Initialize the module:
+* scasum.initializeSync();
+*
+* // Define a strided array:
+* var x = new Complex64Array( [ 2.0, 1.0, 3.0, 5.0, 4.0, 0.0, 1.0, 3.0 ]);
+*
+* // Perform operation:
+* var sum = scasum.main( x.length, x, 1 );
+* // returns 19.0
+*
+* @example
+* var Complex64Array = require( '@stdlib/array-complex64' );
+*
+* // Create a new routine:
+* var scasum = new Routine();
+*
+* // Initialize the module:
+* scasum.initializeSync();
+*
+* // Define a strided array:
+* var x = new Complex64Array( [ 2.0, 1.0, 3.0, 5.0, 4.0, 0.0, 1.0, 3.0 ]);
+*
+* // Perform operation:
+* var sum = scasum.ndarray( x.length, x, 1, 0 );
+* // returns 19.0
+*/
+function Routine() {
+	if ( !( this instanceof Routine ) ) {
+		return new Routine();
+	}
+	Module.call( this, new Memory({
+		'initial': 0
+	}));
+	return this;
+}
+
+// Inherit from the parent constructor:
+inherits( Routine, Module );
+
+/**
+* Computes the sum of the absolute values of the real and imaginary components of a single-precision complex floating-point vector.
+*
+* @name main
+* @memberof Routine.prototype
+* @readonly
+* @type {Function}
+* @param {PositiveInteger} N - number of indexed elements
+* @param {Float32Array} x - input array
+* @param {integer} strideX - `x` stride length
+* @returns {number} sum of absolute values
+*
+* @example
+* var Complex64Array = require( '@stdlib/array-complex64' );
+*
+* // Create a new routine:
+* var scasum = new Routine();
+*
+* // Initialize the module:
+* scasum.initializeSync();
+*
+* // Define a strided array:
+* var x = new Complex64Array( [ 2.0, 1.0, 3.0, 5.0, 4.0, 0.0, 1.0, 3.0 ]);
+*
+* // Perform operation:
+* var sum = scasum.main( x.length, x, 1 );
+* // returns 19.0
+*/
+setReadOnly( Routine.prototype, 'main', function scasum( N, x, strideX ) {
+	return this.ndarray( N, x, strideX, stride2offset( N, strideX ) );
+});
+
+/**
+* Computes the sum of the absolute values of the real and imaginary components of a single-precision complex floating-point vector using alternative indexing semantics.
+*
+* @name ndarray
+* @memberof Routine.prototype
+* @readonly
+* @type {Function}
+* @param {PositiveInteger} N - number of indexed elements
+* @param {Float32Array} x - input array
+* @param {integer} strideX - `x` stride length
+* @param {NonNegativeInteger} offsetX - starting `x` index
+* @returns {number} sum of absolute values
+*
+* @example
+* var Complex64Array = require( '@stdlib/array-complex64' );
+*
+* // Create a new routine:
+* var scasum = new Routine();
+*
+* // Initialize the module:
+* scasum.initializeSync();
+*
+* // Define a strided array:
+* var x = new Complex64Array( [ 2.0, 1.0, 3.0, 5.0, 4.0, 0.0, 1.0, 3.0 ]);
+*
+* // Perform operation:
+* var sum = scasum.ndarray( x.length, x, 1, 0 );
+* // returns 19.0
+*/
+setReadOnly( Routine.prototype, 'ndarray', function scasum( N, x, strideX, offsetX ) {
+	var ptrs;
+	var p0;
+
+	// Convert the input arrays to "pointers" in the module's memory:
+	ptrs = arrays2ptrs( this, [
+		strided2object( N, x, strideX, offsetX )
+	]);
+	p0 = ptrs[ 0 ];
+
+	// Perform computation by calling the corresponding parent method:
+	return Module.prototype.ndarray.call( this, N, p0.ptr, p0.stride, p0.offset );
+});
+
+
+// EXPORTS //
+
+module.exports = Routine;

package/manifest.json

@@ -0,0 +1,36 @@
+{
+    "options": {},
+    "fields": [
+      {
+        "field": "src",
+        "resolve": true,
+        "relative": true
+      },
+      {
+        "field": "include",
+        "resolve": true,
+        "relative": true
+      },
+      {
+        "field": "libraries",
+        "resolve": false,
+        "relative": false
+      },
+      {
+        "field": "libpath",
+        "resolve": true,
+        "relative": false
+      }
+    ],
+    "confs": [
+      {
+        "src": [],
+        "include": [],
+        "libraries": [],
+        "libpath": [],
+        "dependencies": [
+          "@stdlib/blas-base-scasum"
+        ]
+      }
+    ]
+  }

package/package.json

@@ -0,0 +1,92 @@
+{
+  "name": "@stdlib/blas-base-wasm-scasum",
+  "version": "0.1.0",
+  "description": "Compute the sum of the absolute values of the real and imaginary components of a single-precision complex floating-point vector.",
+  "license": "Apache-2.0",
+  "author": {
+    "name": "The Stdlib Authors",
+    "url": "https://github.com/stdlib-js/stdlib/graphs/contributors"
+  },
+  "contributors": [
+    {
+      "name": "The Stdlib Authors",
+      "url": "https://github.com/stdlib-js/stdlib/graphs/contributors"
+    }
+  ],
+  "main": "./lib",
+  "browser": {
+    "./lib/binary.js": "./lib/binary.browser.js"
+  },
+  "directories": {
+    "doc": "./docs",
+    "lib": "./lib",
+    "scripts": "./scripts",
+    "src": "./src",
+    "dist": "./dist"
+  },
+  "types": "./docs/types",
+  "scripts": {},
+  "homepage": "https://stdlib.io",
+  "repository": {
+    "type": "git",
+    "url": "git://github.com/stdlib-js/blas-base-wasm-scasum.git"
+  },
+  "bugs": {
+    "url": "https://github.com/stdlib-js/stdlib/issues"
+  },
+  "dependencies": {
+    "@stdlib/assert-is-wasm-memory": "^0.1.0",
+    "@stdlib/blas-base-scasum": "^0.2.0",
+    "@stdlib/fs-read-wasm": "^0.2.2",
+    "@stdlib/strided-base-stride2offset": "^0.1.0",
+    "@stdlib/string-format": "^0.2.2",
+    "@stdlib/utils-define-nonenumerable-read-only-property": "^0.2.2",
+    "@stdlib/utils-inherit": "^0.2.2",
+    "@stdlib/wasm-base-arrays2ptrs": "github:stdlib-js/wasm-base-arrays2ptrs#main",
+    "@stdlib/wasm-base-strided2object": "github:stdlib-js/wasm-base-strided2object#main",
+    "@stdlib/wasm-memory": "^0.1.0",
+    "@stdlib/wasm-module-wrapper": "github:stdlib-js/wasm-module-wrapper#main",
+    "@stdlib/error-tools-fmtprodmsg": "^0.2.2"
+  },
+  "devDependencies": {},
+  "engines": {
+    "node": ">=0.10.0",
+    "npm": ">2.7.0"
+  },
+  "os": [
+    "aix",
+    "darwin",
+    "freebsd",
+    "linux",
+    "macos",
+    "openbsd",
+    "sunos",
+    "win32",
+    "windows"
+  ],
+  "keywords": [
+    "stdlib",
+    "stdmath",
+    "mathematics",
+    "math",
+    "blas",
+    "level 1",
+    "scasum",
+    "linear",
+    "algebra",
+    "subroutines",
+    "sum",
+    "vector",
+    "array",
+    "ndarray",
+    "complex64",
+    "complex",
+    "complex64array",
+    "webassembly",
+    "wasm"
+  ],
+  "funding": {
+    "type": "opencollective",
+    "url": "https://opencollective.com/stdlib"
+  }
+}

package/src/exports.json

@@ -0,0 +1,4 @@
+[
+    "_c_scasum",
+    "_c_scasum_ndarray"
+  ]

package/src/main.wat

@@ -0,0 +1,93 @@
+;; @license Apache-2.0
+;;
+;; Copyright (c) 2025 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.
+
+(module
+  (type (;0;) (func))
+  (type (;1;) (func (param i32 i32 i32) (result f32)))
+  (type (;2;) (func (param i32 i32 i32 i32) (result f32)))
+  (import "env" "memory" (memory (;0;) 0))
+  (func (;0;) (type 0)
+    nop)
+  (func (;1;) (type 1) (param i32 i32 i32) (result f32)
+    local.get 0
+    local.get 1
+    local.get 2
+    i32.const 1
+    local.get 0
+    i32.sub
+    local.get 2
+    i32.mul
+    i32.const 0
+    local.get 2
+    i32.const 0
+    i32.le_s
+    select
+    call 2)
+  (func (;2;) (type 2) (param i32 i32 i32 i32) (result f32)
+    (local f32 i32 i32)
+    block  ;; label = @1
+      local.get 0
+      i32.const 0
+      i32.le_s
+      if  ;; label = @2
+        br 1 (;@1;)
+      end
+      local.get 3
+      i32.const 1
+      i32.shl
+      local.set 5
+      local.get 2
+      i32.const 1
+      i32.shl
+      local.set 2
+      i32.const 0
+      local.set 3
+      loop  ;; label = @2
+        local.get 0
+        local.get 3
+        i32.eq
+        br_if 1 (;@1;)
+        local.get 4
+        local.get 1
+        local.get 5
+        i32.const 2
+        i32.shl
+        i32.add
+        local.tee 6
+        f32.load
+        f32.abs
+        local.get 6
+        f32.load offset=4
+        f32.abs
+        f32.add
+        f32.add
+        local.set 4
+        local.get 3
+        i32.const 1
+        i32.add
+        local.set 3
+        local.get 2
+        local.get 5
+        i32.add
+        local.set 5
+        br 0 (;@2;)
+      end
+      unreachable
+    end
+    local.get 4)
+  (export "__wasm_call_ctors" (func 0))
+  (export "c_scasum" (func 1))
+  (export "c_scasum_ndarray" (func 2)))