feat(src): add the C source files

stdlib-js · Planeshifter · Apr 30, 2025 · Jan 5, 2025 · Jan 5, 2025 · Jan 5, 2025
commit 7f0e049ebb0ca72ea484a906dba48bf04279c55f
diff --git a/.../base/dists/negative-binomial/mgf/include/stdlib/stats/base/dists/negative-binomial/mgf.h b/.../base/dists/negative-binomial/mgf/include/stdlib/stats/base/dists/negative-binomial/mgf.h
@@ -0,0 +1,43 @@
+/**
+ * @license Apache-2.0
+ *
+ * Copyright (c) 2024 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.
+ */
+
+#ifndef STDLIB_STATS_BASE_DISTS_NEGATIVE_BINOMIAL_MGF_H
+#define STDLIB_STATS_BASE_DISTS_NEGATIVE_BINOMIAL_MGF_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.
+ */
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+/**
+ * Evaluates the moment-generating function (MGF) for a negative binomial distribution.
+ *
+ * @param t    input value
+ * @param r    number of successes until experiment is stopped
+ * @param p    success probability
+ * @return     evaluated MGF
+ */
+double stdlib_base_negative_binomial_mgf(const double t, const double r, const double p);
+
+#ifdef __cplusplus
+}
+#endif
+
+#endif // !STDLIB_STATS_BASE_DISTS_NEGATIVE_BINOMIAL_MGF_H
diff --git a/lib/node_modules/@stdlib/stats/base/dists/negative-binomial/mgf/src/Makefile b/lib/node_modules/@stdlib/stats/base/dists/negative-binomial/mgf/src/Makefile
@@ -0,0 +1,70 @@
+#/
+# @license Apache-2.0
+#
+# Copyright (c) 2024 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.
+#/
+
+# VARIABLES #
+
+ifndef VERBOSE
+	QUIET := @
+else
+	QUIET :=
+endif
+
+# Determine the OS ([1][1], [2][2]).
+#
+# [1]: https://en.wikipedia.org/wiki/Uname#Examples
+# [2]: http://stackoverflow.com/a/27776822/2225624
+OS ?= $(shell uname)
+ifneq (, $(findstring MINGW,$(OS)))
+	OS := WINNT
+else
+ifneq (, $(findstring MSYS,$(OS)))
+	OS := WINNT
+else
+ifneq (, $(findstring CYGWIN,$(OS)))
+	OS := WINNT
+else
+ifneq (, $(findstring Windows_NT,$(OS)))
+	OS := WINNT
+endif
+endif
+endif
+endif
+
+
+# RULES #
+
+#/
+# Removes generated files for building an add-on.
+#
+# @example
+# make clean-addon
+#/
+clean-addon:
+	$(QUIET) -rm -f *.o *.node
+
+.PHONY: clean-addon
+
+#/
+# Removes generated files.
+#
+# @example
+# make clean
+#/
+clean: clean-addon
+
+.PHONY: clean
diff --git a/lib/node_modules/@stdlib/stats/base/dists/negative-binomial/mgf/src/addon.c b/lib/node_modules/@stdlib/stats/base/dists/negative-binomial/mgf/src/addon.c
@@ -0,0 +1,23 @@
+/**
+ * @license Apache-2.0
+ *
+ * Copyright (c) 2024 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/stats/base/dists/negative-binomial/mgf.h"
+#include "stdlib/math/base/napi/ternary.h"
+
+// cppcheck-suppress shadowFunction
+STDLIB_MATH_BASE_NAPI_MODULE_DDD_D( stdlib_base_negative_binomial_mgf )
diff --git a/lib/node_modules/@stdlib/stats/base/dists/negative-binomial/mgf/src/main.c b/lib/node_modules/@stdlib/stats/base/dists/negative-binomial/mgf/src/main.c
@@ -0,0 +1,57 @@
+/**
+ * @license Apache-2.0
+ *
+ * Copyright (c) 2024 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/assert/is_nan.h"
+#include "stdlib/math/base/special/exp.h"
+#include "stdlib/math/base/special/pow.h"
+#include "stdlib/math/base/special/ln.h"
+
+/**
+ * Evaluates the moment-generating function (MGF) for a negative binomial distribution.
+ *
+ * @param t    input value
+ * @param r    number of successes until experiment is stopped
+ * @param p    success probability
+ * @return     evaluated MGF
+ *
+ * @example
+ * double y = stdlib_base_negative_binomial_mgf( 0.05, 20.0, 0.8 );
+ * // returns ~267.839
+ */
+double stdlib_base_negative_binomial_mgf(const double t, const double r, const double p) {
+    // Check for invalid input values:
+    if (
+        stdlib_base_is_nan(t) ||
+        stdlib_base_is_nan(r) ||
+        stdlib_base_is_nan(p) ||
+        r <= 0.0 ||
+        p < 0.0 ||
+        p > 1.0 ||
+        t >= -stdlib_base_ln(p)
+    ) {
+        return 0.0 / 0.0; // NaN
+    }
+
+    // Compute the MGF value:
+    double exp_t = stdlib_base_exp(t);
+    double numerator = (1.0 - p) * exp_t;
+    double denominator = 1.0 - (p * exp_t);
+    double ratio = numerator / denominator;
+
+    return stdlib_base_pow(ratio, r);
+}