# HG changeset patch # User Markus Mützel # Date 1668794522 -3600 # Node ID 74666bb9cc4693a0c89621e4fc0962f06112e0cb # Parent 297b371a6713aaadf594b471b67608e922203e66 of-tisean: Fix compatibility with Octave 9. * src/of-tisean-3-octave-9-compat.patch: Add patch that replaces functions that have been deprecated in Octave 7 and removed from Octave 9. * dist-files.mk: Add new file to list. diff -r 297b371a6713 -r 74666bb9cc46 dist-files.mk --- a/dist-files.mk Fri Nov 18 18:06:40 2022 +0100 +++ b/dist-files.mk Fri Nov 18 19:02:02 2022 +0100 @@ -554,6 +554,7 @@ of-symbolic.mk \ of-tisean-1-fixes.patch \ of-tisean-2-error_state.patch \ + of-tisean-3-octave-9-compat.patch \ of-tisean.mk \ of-tsa.mk \ of-video.mk \ diff -r 297b371a6713 -r 74666bb9cc46 src/of-tisean-3-octave-9-compat.patch --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/src/of-tisean-3-octave-9-compat.patch Fri Nov 18 19:02:02 2022 +0100 @@ -0,0 +1,124 @@ +The function "set_warning_state" was moved to the "octave" namespace in Octave 7 +and the function was finally removed from the global namespace in Octave 9. +Replace "fortran_vec" on const objects with "data". + +--- tisean-0.2.3/src/__lyap_spec__.cc.orig 2022-11-18 18:34:30.819911000 +0100 ++++ tisean-0.2.3/src/__lyap_spec__.cc 2022-11-18 18:36:51.153582045 +0100 +@@ -413,8 +413,8 @@ + // end old indexes = make_multi_index(); + + // Promote warnings connected with singular matrixes to errors +- set_warning_state ("Octave:nearly-singular-matrix","error"); +- set_warning_state ("Octave:singular-matrix","error"); ++ octave::set_warning_state ("Octave:nearly-singular-matrix", "error"); ++ octave::set_warning_state ("Octave:singular-matrix", "error"); + + // Prepare data for running first time + if (count == 0) + +--- tisean-0.2.3/src/__polynom__.cc.orig 2022-11-18 18:39:15.855558000 +0100 ++++ tisean-0.2.3/src/__polynom__.cc 2022-11-18 18:42:04.850651947 +0100 +@@ -223,8 +223,8 @@ + octave_idx_type *coding = coding_vec.data(); + + // Promote warnings connected with singular matrixes to errors +- set_warning_state ("Octave:nearly-singular-matrix","error"); +- set_warning_state ("Octave:singular-matrix","error"); ++ octave::set_warning_state ("Octave:nearly-singular-matrix", "error"); ++ octave::set_warning_state ("Octave:singular-matrix", "error"); + + // Make the fit + make_fit (series, coding, results, INSAMPLE, N, DIM, DELAY, + +--- tisean-0.2.3/src/__rbf__.cc.orig 2022-11-18 18:39:15.855558000 +0100 ++++ tisean-0.2.3/src/__rbf__.cc 2022-11-18 18:43:54.393150501 +0100 +@@ -153,8 +153,8 @@ + center[i][j]=series[(DIM-1)*DELAY-j*DELAY+(i*cstep)/(CENTER-1)]; + + // Promote warnings connected with singular matrixes to errors +- set_warning_state ("Octave:nearly-singular-matrix","error"); +- set_warning_state ("Octave:singular-matrix","error"); ++ octave::set_warning_state ("Octave:nearly-singular-matrix","error"); ++ octave::set_warning_state ("Octave:singular-matrix","error"); + + // Calculate coefficients + if (setdrift) + +--- tisean-0.2.3/src/__lfo_run__.cc.orig 2022-11-18 18:39:15.851560000 +0100 ++++ tisean-0.2.3/src/__lfo_run__.cc 2022-11-18 18:45:31.538549956 +0100 +@@ -324,8 +324,8 @@ + cast[i][j]=series[j][LENGTH-hdim+i]; + + // Promote warnings connected with singular matrixes to errors +- set_warning_state ("Octave:nearly-singular-matrix","error"); +- set_warning_state ("Octave:singular-matrix","error"); ++ octave::set_warning_state ("Octave:nearly-singular-matrix", "error"); ++ octave::set_warning_state ("Octave:singular-matrix", "error"); + + // Calculate the maximum epsilon that makes sense + // On the basis of 'i' and 'j' from put_in_boxes () + +--- tisean-0.2.3/src/__lfo_test__.cc.orig 2022-11-18 18:39:15.851560000 +0100 ++++ tisean-0.2.3/src/__lfo_test__.cc 2022-11-18 18:47:34.600170403 +0100 +@@ -326,8 +326,8 @@ + error_array[i]=0.0; + + // Promote warnings connected with singular matrixes to errors +- set_warning_state ("Octave:nearly-singular-matrix","error"); +- set_warning_state ("Octave:singular-matrix","error"); ++ octave::set_warning_state ("Octave:nearly-singular-matrix", "error"); ++ octave::set_warning_state ("Octave:singular-matrix", "error"); + + // Calculate the maximum epsilon that makes sense + // On the basis of 'i' and 'j' from put_in_boxes () + + +--- tisean-0.2.3/src/__lfo_ar__.cc.orig 2022-11-18 18:39:15.851560000 +0100 ++++ tisean-0.2.3/src/__lfo_ar__.cc 2022-11-18 18:49:18.465577481 +0100 +@@ -257,8 +257,8 @@ + octave_idx_type clength=(CLENGTH <= LENGTH) ? CLENGTH-STEP : LENGTH-STEP; + + // Promote warnings connected with singular matrixes to errors +- set_warning_state ("Octave:nearly-singular-matrix","error"); +- set_warning_state ("Octave:singular-matrix","error"); ++ octave::set_warning_state ("Octave:nearly-singular-matrix", "error"); ++ octave::set_warning_state ("Octave:singular-matrix", "error"); + + // Estimate maximum possible output size + octave_idx_type output_rows = (octave_idx_type) + +--- tisean-0.2.3/src/__lzo_test__.cc.orig 2022-11-18 18:39:15.855558000 +0100 ++++ tisean-0.2.3/src/__lzo_test__.cc 2022-11-18 18:51:05.883219045 +0100 +@@ -81,7 +81,7 @@ + { + casted=0.0; + // old help=series[j]+istep; +- help=series.fortran_vec()+j*len+istep; ++ help = series.data () + j * len + istep; + for (octave_idx_type i=0;i