summaryrefslogtreecommitdiff
path: root/math/octave-forge-tisean/files/patch-lazy.cc
diff options
context:
space:
mode:
Diffstat (limited to 'math/octave-forge-tisean/files/patch-lazy.cc')
-rw-r--r--math/octave-forge-tisean/files/patch-lazy.cc58
1 files changed, 0 insertions, 58 deletions
diff --git a/math/octave-forge-tisean/files/patch-lazy.cc b/math/octave-forge-tisean/files/patch-lazy.cc
deleted file mode 100644
index ae8631135e28..000000000000
--- a/math/octave-forge-tisean/files/patch-lazy.cc
+++ /dev/null
@@ -1,58 +0,0 @@
---- lazy.cc.orig 2015-08-14 22:25:52 UTC
-+++ lazy.cc
-@@ -35,7 +35,7 @@ Performs simple nonlinear noise reductio
- @item X\n\
- Must be realvector. If it is a row vector then the output will be row vectors as well.\n\
- @item m\n\
--Embedding dimension. Must be postive integer.\n\
-+Embedding dimension. Must be positive integer.\n\
- @item rv\n\
- If @var{rv} > 0 then it is equal to the absolute radius of the neighbourhoods. If @var{rv} < 0 then its opposite (-@var{rv}) is equal to the fraction of standard deviation used. It cannot be equal 0.\n\
- @item imax\n\
-@@ -71,12 +71,19 @@ Uses TISEAN package lazy\n\
- // In order to avoid clobbered warnings transposed is initialized globally.
- bool transposed;
-
-+#if defined (OCTAVE_HAVE_F77_INT_TYPE)
-+# define TO_F77_INT(x) octave::to_f77_int (x)
-+#else
-+typedef octave_idx_type F77_INT;
-+# define TO_F77_INT(x) (x)
-+#endif
-+
- extern "C"
- {
- F77_RET_T
- F77_FUNC (ts_lazy, TS_LAZY)
-- (const int& m, const double& rv,
-- const int& imax, const int& lines_read,
-+ (const F77_INT& m, const double& rv,
-+ const F77_INT& imax, const F77_INT& lines_read,
- double* in_out1, double* in_out2);
- }
-
-@@ -100,12 +107,12 @@ DEFUN_DLD (lazy, args, nargout, HELPTEXT
- {
- // Assigning inputs
- Matrix in_out1 = args(0).matrix_value();
-- int m = args(1).int_value();
-+ F77_INT m = TO_F77_INT (args(1).int_value());
- double rv = args(2).double_value();
-- int imax = DEFAULT_IMAX;
-+ F77_INT imax = DEFAULT_IMAX;
-
- if (nargin == 4)
-- imax = args(3).int_value();
-+ imax = TO_F77_INT (args(3).int_value());
-
- // --- DATA VALIDATION ---
-
-@@ -144,7 +151,7 @@ DEFUN_DLD (lazy, args, nargout, HELPTEXT
- in_out1 = in_out1.transpose();
- }
-
-- int lines_read = in_out1.numel();
-+ F77_INT lines_read = TO_F77_INT (in_out1.numel());
- NDArray in_out2 (Matrix (lines_read, 1));
-
- F77_XFCN (ts_lazy, TS_LAZY,