# HG changeset patch # User John Donoghue # Date 1554496438 14400 # Node ID 5e4292853f84a5a519ebe985fd2074a0e277f39a # Parent d475c9d019f3fe1644ba9616ff82f295b83174b7 of-control: update to v3.2.0 * dist-files.mk: remove patch ref * src/of-control.mk: update version, checksum * src/of-control-1-deprecated.patch: removed diff -r d475c9d019f3 -r 5e4292853f84 dist-files.mk --- a/dist-files.mk Fri Apr 05 16:30:03 2019 -0400 +++ b/dist-files.mk Fri Apr 05 16:33:58 2019 -0400 @@ -456,7 +456,6 @@ of-communications-5-fixes.patch \ of-communications-6-deprecated.patch \ of-communications.mk \ - of-control-1-deprecated.patch \ of-control.mk \ of-data-smoothing.mk \ of-database-1-fixes.patch \ diff -r d475c9d019f3 -r 5e4292853f84 src/of-control-1-deprecated.patch --- a/src/of-control-1-deprecated.patch Fri Apr 05 16:30:03 2019 -0400 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,1100 +0,0 @@ -# HG changeset patch -# User Doug Stewart -# Date 1546452658 18000 -# Wed Jan 02 13:10:58 2019 -0500 -# Node ID 1daba0a585562de91c4078183460f325bf879683 -# Parent fa91b35bee7151b8d81cfcb92d6d0ce6454f98d8 -bug #55361 getting ready for Octave 5 - -diff -r fa91b35bee71 -r 1daba0a58556 src/__control_helper_functions__.cc ---- a/src/__control_helper_functions__.cc Fri May 04 04:10:35 2018 +0200 -+++ b/src/__control_helper_functions__.cc Wed Jan 02 13:10:58 2019 -0500 -@@ -6,7 +6,7 @@ - #include "is_zp_vector.cc" - #include "lti_input_idx.cc" - --#include "nfields2.cc" // delete this if support for Octave 3.8 gets dropped -+// #include "nfields2.cc" // delete this if support for Octave 3.8 gets dropped - - - -# HG changeset patch -# User Doug Stewart -# Date 1546468344 18000 -# Wed Jan 02 17:32:24 2019 -0500 -# Node ID e8c2f63907da0ec4729ba4f33c2d54d674838d45 -# Parent 1daba0a585562de91c4078183460f325bf879683 -is_matrix.cc bug #55361 getting ready for Octave 5 - -diff -r 1daba0a58556 -r e8c2f63907da src/is_matrix.cc ---- a/src/is_matrix.cc Wed Jan 02 13:10:58 2019 -0500 -+++ b/src/is_matrix.cc Wed Jan 02 17:32:24 2019 -0500 -@@ -48,8 +48,8 @@ - { - for (octave_idx_type i = 0; i < nargin; i++) - { -- if (args(i).ndims () != 2 || ! args(i).is_numeric_type () -- || ! (args(i).is_complex_type () || args(i).is_real_type ()) -+ if (args(i).ndims () != 2 || ! args(i).isnumeric () -+ || ! (args(i).iscomplex () || args(i).isreal ()) - || (args(i).array_value().isfinite().all().all()(0) != true)) - { - retval = false; -# HG changeset patch -# User Doug Stewart -# Date 1546468851 18000 -# Wed Jan 02 17:40:51 2019 -0500 -# Node ID a72e758cab961c2a25ab9b8319a9f101c9d8d037 -# Parent e8c2f63907da0ec4729ba4f33c2d54d674838d45 -bug #55361 getting ready for Octave 5 - -diff -r e8c2f63907da -r a72e758cab96 src/is_real_matrix.cc ---- a/src/is_real_matrix.cc Wed Jan 02 17:32:24 2019 -0500 -+++ b/src/is_real_matrix.cc Wed Jan 02 17:40:51 2019 -0500 -@@ -48,8 +48,8 @@ - { - for (octave_idx_type i = 0; i < nargin; i++) - { -- if (args(i).ndims () != 2 || ! args(i).is_numeric_type () -- || ! args(i).is_real_type () -+ if (args(i).ndims () != 2 || ! args(i).isnumeric () -+ || ! args(i).isreal () - || (args(i).array_value().isfinite().all().all()(0) != true)) - { - retval = false; -diff -r e8c2f63907da -r a72e758cab96 src/is_real_scalar.cc ---- a/src/is_real_scalar.cc Wed Jan 02 17:32:24 2019 -0500 -+++ b/src/is_real_scalar.cc Wed Jan 02 17:40:51 2019 -0500 -@@ -48,8 +48,8 @@ - { - for (octave_idx_type i = 0; i < nargin; i++) - { - if (args(i).ndims () != 2 || ! args(i).is_scalar_type () -- || ! args(i).is_numeric_type () || ! args(i).is_real_type () -+ || ! args(i).isnumeric () || ! args(i).isreal () - || (args(i).array_value().isfinite().all().all()(0) != true)) - { - retval = false; -# HG changeset patch -# User Doug Stewart -# Date 1546469478 18000 -# Wed Jan 02 17:51:18 2019 -0500 -# Node ID 0462251d1ef7923540e49c73a8376e87688c0590 -# Parent a72e758cab961c2a25ab9b8319a9f101c9d8d037 -bug #55361 getting ready for Octave 5 - -diff -r a72e758cab96 -r 0462251d1ef7 src/is_real_square_matrix.cc ---- a/src/is_real_square_matrix.cc Wed Jan 02 17:40:51 2019 -0500 -+++ b/src/is_real_square_matrix.cc Wed Jan 02 17:51:18 2019 -0500 -@@ -49,7 +49,7 @@ - for (octave_idx_type i = 0; i < nargin; i++) - { - if (args(i).ndims () != 2 || args(i).rows () != args(i).columns () -- || ! args(i).is_numeric_type () || ! args(i).is_real_type () -+ || ! args(i).isnumeric () || ! args(i).isreal () - || (args(i).array_value().isfinite().all().all()(0) != true)) - { - retval = false; -diff -r a72e758cab96 -r 0462251d1ef7 src/is_real_vector.cc ---- a/src/is_real_vector.cc Wed Jan 02 17:40:51 2019 -0500 -+++ b/src/is_real_vector.cc Wed Jan 02 17:51:18 2019 -0500 -@@ -49,7 +49,7 @@ - for (octave_idx_type i = 0; i < nargin; i++) - { - if (args(i).ndims () != 2 || ! (args(i).rows () == 1 || args(i).columns () == 1) -- || ! args(i).is_numeric_type () || ! args(i).is_real_type () -+ || ! args(i).isnumeric () || ! args(i).isreal () - || (args(i).array_value().isfinite().all().all()(0) != true)) - { - retval = false; -diff -r a72e758cab96 -r 0462251d1ef7 src/is_zp_vector.cc ---- a/src/is_zp_vector.cc Wed Jan 02 17:40:51 2019 -0500 -+++ b/src/is_zp_vector.cc Wed Jan 02 17:51:18 2019 -0500 -@@ -50,8 +50,8 @@ - { - if (args(i).ndims () != 2 - || (args(i).rows () > 1 && args(i).columns () > 1) -- || ! args(i).is_numeric_type () -- || ! (args(i).is_complex_type () || args(i).is_real_type ()) -+ || ! args(i).isnumeric () -+ || ! (args(i).iscomplex () || args(i).isreal ()) - || (args(i).array_value().isfinite().all().all()(0) != true)) - { - retval = false; -diff -r a72e758cab96 -r 0462251d1ef7 src/lti_input_idx.cc ---- a/src/lti_input_idx.cc Wed Jan 02 17:40:51 2019 -0500 -+++ b/src/lti_input_idx.cc Wed Jan 02 17:51:18 2019 -0500 -@@ -60,7 +60,7 @@ - octave_idx_type nargin = args.length (); - - // first, check whether a cell is passed -- if (nargin == 1 && args(0).is_defined () && args(0).is_cell ()) -+ if (nargin == 1 && args(0).is_defined () && args(0).iscell ()) - { - octave_idx_type len = args(0).cell_value().numel(); - octave_idx_type idx = len; -@@ -87,7 +87,7 @@ - // and after strings) are not recognized as objects. - // ss (a, b, ltisys, c, d, 'key', val, 'lti', ltisys) - if (len > 0 && idx > 0 -- && args(0).cell_value().elem(idx-1).is_object ()) -+ && args(0).cell_value().elem(idx-1).isobject ()) - { - offset = 1; - } -# HG changeset patch -# User Doug Stewart -# Date 1546532608 18000 -# Thu Jan 03 11:23:28 2019 -0500 -# Node ID 6f05c32bbbafa758c1d76995e8aab914a67db499 -# Parent 23110e3e6cc745e01e00586ac3cc13d596d8e216 -removed F77_exception_encounterd obsolete - -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_ab01od.cc ---- a/src/sl_ab01od.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_ab01od.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -72,7 +72,7 @@ - Matrix a = args(0).matrix_value (); - Matrix b = args(1).matrix_value (); - double tol = args(2).double_value (); -- -+f77_exception_encountered - F77_INT n = TO_F77_INT (a.rows ()); // n: number of states - F77_INT m = TO_F77_INT (b.columns ()); // m: number of inputs - -@@ -116,8 +116,8 @@ - dwork, ldwork, - info)); - -- if (f77_exception_encountered) -- error ("__sl_ab01od__: exception in SLICOT subroutine AB01OD"); -+// if (f77_exception_encountered) -+// error ("__sl_ab01od__: exception in SLICOT subroutine AB01OD"); - - if (info != 0) - error ("__sl_ab01od__: AB01OD returned info = %d", info); -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_ab04md.cc ---- a/src/sl_ab04md.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_ab04md.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -111,8 +111,8 @@ - dwork, ldwork, - info)); - -- if (f77_exception_encountered) -- error ("__sl_ab04md__: exception in SLICOT subroutine AB04MD"); -+// if (f77_exception_encountered) -+// error ("__sl_ab04md__: exception in SLICOT subroutine AB04MD"); - - if (info != 0) - error ("__sl_ab04md__: AB04MD returned info = %d", info); -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_ab08nd.cc ---- a/src/sl_ab08nd.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_ab08nd.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -149,8 +149,8 @@ - iwork, dwork, ldwork, - info)); - -- if (f77_exception_encountered) -- error ("ss: zero: __sl_ab08nd__: exception in SLICOT subroutine AB08ND"); -+// if (f77_exception_encountered) -+// error ("ss: zero: __sl_ab08nd__: exception in SLICOT subroutine AB08ND"); - - if (info != 0) - error ("ss: zero: __sl_ab08nd__: AB08ND returned info = %d", info); -@@ -186,8 +186,8 @@ - work, lwork, - info2)); - -- if (f77_exception_encountered) -- error ("ss: zero: __sl_ab08nd__: exception in LAPACK subroutine DGGEV"); -+// if (f77_exception_encountered) -+// error ("ss: zero: __sl_ab08nd__: exception in LAPACK subroutine DGGEV"); - - if (info2 != 0) - error ("ss: zero: __sl_ab08nd__: DGGEV returned info = %d", info2); -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_ab09hd.cc ---- a/src/sl_ab09hd.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_ab09hd.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -174,8 +174,8 @@ - bwork, - iwarn, info)); - -- if (f77_exception_encountered) -- error ("bstmodred: exception in SLICOT subroutine AB09HD"); -+// if (f77_exception_encountered) -+// error ("bstmodred: exception in SLICOT subroutine AB09HD"); - - - static const char* err_msg[] = { -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_ab09id.cc ---- a/src/sl_ab09id.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_ab09id.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -315,8 +315,8 @@ - dwork, ldwork, - iwarn, info)); - -- if (f77_exception_encountered) -- error ("modred: exception in SLICOT subroutine AB09ID"); -+// if (f77_exception_encountered) -+// error ("modred: exception in SLICOT subroutine AB09ID"); - - - static const char* err_msg[] = { -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_ab09jd.cc ---- a/src/sl_ab09jd.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_ab09jd.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -290,8 +290,8 @@ - dwork, ldwork, - iwarn, info)); - -- if (f77_exception_encountered) -- error ("hnamodred: exception in SLICOT subroutine AB09JD"); -+// if (f77_exception_encountered) -+// error ("hnamodred: exception in SLICOT subroutine AB09JD"); - - - static const char* err_msg[] = { -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_ab13ad.cc ---- a/src/sl_ab13ad.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_ab13ad.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -98,7 +98,7 @@ - - // workspace - F77_INT ldwork = max (1, n*(max (n, m, p) + 5) + n*(n+1)/2); -- -+ f77_exception_encountered - OCTAVE_LOCAL_BUFFER (double, dwork, ldwork); - - // error indicators -@@ -118,8 +118,8 @@ - dwork, ldwork, - info)); - -- if (f77_exception_encountered) -- error ("hsvd: __sl_ab13ad__: exception in SLICOT subroutine AB13AD"); -+// if (f77_exception_encountered) -+// error ("hsvd: __sl_ab13ad__: exception in SLICOT subroutine AB13AD"); - - if (info != 0) - error ("hsvd: __sl_ab13ad__: AB13AD returned info = %d", info); -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_ab13bd.cc ---- a/src/sl_ab13bd.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_ab13bd.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -22,7 +22,7 @@ - - - Author: Lukas Reichlin --Created: November 2009 -+Created: November 2009f77_exception_encountered - Version: 0.5 - - */ -@@ -118,8 +118,8 @@ - iwarn, - info); - -- if (f77_exception_encountered) -- error ("lti: norm: __sl_ab13bd__: exception in SLICOT subroutine AB13BD"); -+// if (f77_exception_encountered) -+// error ("lti: norm: __sl_ab13bd__: exception in SLICOT subroutine AB13BD"); - - if (info != 0) - error ("lti: norm: __sl_ab13bd__: AB13BD returned info = %d", info); -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_ab13dd.cc ---- a/src/sl_ab13dd.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_ab13dd.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -143,8 +143,8 @@ - cwork, lcwork, - info)); - -- if (f77_exception_encountered) -- error ("lti: norm: __sl_ab13dd__: exception in SLICOT subroutine AB13DD"); -+// if (f77_exception_encountered) -+// error ("lti: norm: __sl_ab13dd__: exception in SLICOT subroutine AB13DD"); - - static const char* err_msg[] = { - "0: OK", -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_ag08bd.cc ---- a/src/sl_ag08bd.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_ag08bd.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -152,8 +152,8 @@ - iwork, dwork, ldwork, - info)); - -- if (f77_exception_encountered) -- error ("dss: zero: __sl_ag08bd__: exception in SLICOT subroutine AG08BD"); -+// if (f77_exception_encountered) -+// error ("dss: zero: __sl_ag08bd__: exception in SLICOT subroutine AG08BD"); - - if (info != 0) - error ("dss: zero: __sl_ag08bd__: AG08BD returned info = %d", info); -@@ -182,7 +182,7 @@ - OCTAVE_LOCAL_BUFFER (double, work, lwork); - - F77_INT info2; -- -+ f77_exception_encountered - F77_XFCN (dggev, DGGEV, - (jobvl, jobvr, - nfz, -@@ -195,8 +195,8 @@ - work, lwork, - info2)); - -- if (f77_exception_encountered) -- error ("dss: zero: __sl_ag08bd__: exception in LAPACK subroutine DGGEV"); -+// if (f77_exception_encountered) -+// error ("dss: zero: __sl_ag08bd__: exception in LAPACK subroutine DGGEV"); - - if (info2 != 0) - error ("dss: zero: __sl_ag08bd__: DGGEV returned info = %d", info2); -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_ib01ad.cc ---- a/src/sl_ib01ad.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_ib01ad.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -330,8 +330,8 @@ - iwarn_a, info_a)); - - -- if (f77_exception_encountered) -- error ("ident: exception in SLICOT subroutine IB01AD"); -+// if (f77_exception_encountered) -+// error ("ident: exception in SLICOT subroutine IB01AD"); - - static const char* err_msg[] = { - "0: OK", -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_ib01cd.cc ---- a/src/sl_ib01cd.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_ib01cd.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -159,8 +159,8 @@ - iwarn_c, info_c)); - - -- if (f77_exception_encountered) -- error ("__sl_ib01cd__: exception in SLICOT subroutine IB01CD"); -+// if (f77_exception_encountered) -+// error ("__sl_ib01cd__: exception in SLICOT subroutine IB01CD"); - - static const char* err_msg_c[] = { - "0: OK", -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_ident.cc ---- a/src/sl_ident.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_ident.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -366,8 +366,8 @@ - iwarn_a, info_a)); - - -- if (f77_exception_encountered) -- error ("ident: exception in SLICOT subroutine IB01AD"); -+// if (f77_exception_encountered) -+// error ("ident: exception in SLICOT subroutine IB01AD"); - - static const char* err_msg[] = { - "0: OK", -@@ -545,8 +545,8 @@ - iwarn_b, info_b)); - - -- if (f77_exception_encountered) -- error ("ident: exception in SLICOT subroutine IB01BD"); -+// if (f77_exception_encountered) -+// error ("ident: exception in SLICOT subroutine IB01BD"); - - static const char* err_msg_b[] = { - "0: OK", -@@ -667,8 +667,8 @@ - iwarn_c, info_c)); - - -- if (f77_exception_encountered) -- error ("ident: exception in SLICOT subroutine IB01CD"); -+// if (f77_exception_encountered) -+// error ("ident: exception in SLICOT subroutine IB01CD"); - - static const char* err_msg_c[] = { - "0: OK", -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_mb05nd.cc ---- a/src/sl_mb05nd.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_mb05nd.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -93,8 +93,8 @@ - dwork, ldwork, - info)); - -- if (f77_exception_encountered) -- error ("__sl_mb05nd__: exception in SLICOT subroutine MB05ND"); -+// if (f77_exception_encountered) -+// error ("__sl_mb05nd__: exception in SLICOT subroutine MB05ND"); - - if (info > 0) - { -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_sb01bd.cc ---- a/src/sl_sb01bd.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_sb01bd.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -23,7 +23,7 @@ - - Author: Lukas Reichlin - Created: November 2009 --Version: 0.6 -+Version: 0.6f77_exception_encountered - - */ - -@@ -121,8 +121,8 @@ - dwork, ldwork, - iwarn, info)); - -- if (f77_exception_encountered) -- error ("place: __sl_sb01bd__: exception in SLICOT subroutine SB01BD"); -+// if (f77_exception_encountered) -+// error ("place: __sl_sb01bd__: exception in SLICOT subroutine SB01BD"); - - static const char* err_msg[] = { - "0: OK", -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_sb02od.cc ---- a/src/sl_sb02od.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_sb02od.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -170,8 +170,8 @@ - bwork, - info)); - -- if (f77_exception_encountered) -- error ("are: __sl_sb02od__: exception in SLICOT subroutine SB02OD"); -+// if (f77_exception_encountered) -+// error ("are: __sl_sb02od__: exception in SLICOT subroutine SB02OD"); - - static const char* err_msg[] = { - "0: OK", -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_sb03md.cc ---- a/src/sl_sb03md.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_sb03md.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -118,8 +118,8 @@ - dwork, ldwork, - info)); - -- if (f77_exception_encountered) -- error ("lyap: __sl_sb03md__: exception in SLICOT subroutine SB03MD"); -+// if (f77_exception_encountered) -+// error ("lyap: __sl_sb03md__: exception in SLICOT subroutine SB03MD"); - - if (info != 0) - error ("lyap: __sl_sb03md__: SB03MD returned info = %d", info); -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_sb03od.cc ---- a/src/sl_sb03od.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_sb03od.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -115,8 +115,8 @@ - dwork, ldwork, - info)); - -- if (f77_exception_encountered) -- error ("lyapchol: __sl_sb03od__: exception in SLICOT subroutine SB03OD"); -+// if (f77_exception_encountered) -+// error ("lyapchol: __sl_sb03od__: exception in SLICOT subroutine SB03OD"); - - if (info != 0) - error ("lyapchol: __sl_sb03od__: SB03OD returned info = %d", info); -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_sb04md.cc ---- a/src/sl_sb04md.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_sb04md.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -96,8 +96,8 @@ - dwork, ldwork, - info)); - -- if (f77_exception_encountered) -- error ("lyap: __sl_sb04md__: exception in SLICOT subroutine SB04MD"); -+// if (f77_exception_encountered) -+// error ("lyap: __sl_sb04md__: exception in SLICOT subroutine SB04MD"); - - if (info != 0) - error ("lyap: __sl_sb04md__: SB04MD returned info = %d", info); -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_sb04qd.cc ---- a/src/sl_sb04qd.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_sb04qd.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -96,8 +96,8 @@ - dwork, ldwork, - info)); - -- if (f77_exception_encountered) -- error ("dlyap: __sl_sb04qd__: exception in SLICOT subroutine SB04QD"); -+// if (f77_exception_encountered) -+// error ("dlyap: __sl_sb04qd__: exception in SLICOT subroutine SB04QD"); - - if (info != 0) - error ("dlyap: __sl_sb04qd__: SB04QD returned info = %d", info); -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_sb10ad.cc ---- a/src/sl_sb10ad.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_sb10ad.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -189,8 +189,8 @@ - bwork, lbwork, - info)); - -- if (f77_exception_encountered) -- error ("hinfsyn: __sl_sb10ad__: exception in SLICOT subroutine SB10AD"); -+// if (f77_exception_encountered) -+// error ("hinfsyn: __sl_sb10ad__: exception in SLICOT subroutine SB10AD"); - - static const char* err_msg[] = { - "0: successful exit", -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_sb10dd.cc ---- a/src/sl_sb10dd.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_sb10dd.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -150,8 +150,8 @@ - bwork, - info)); - -- if (f77_exception_encountered) -- error ("hinfsyn: __sl_sb10dd__: exception in SLICOT subroutine SB10DD"); -+// if (f77_exception_encountered) -+// error ("hinfsyn: __sl_sb10dd__: exception in SLICOT subroutine SB10DD"); - - static const char* err_msg[] = { - "0: OK", -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_sb10ed.cc ---- a/src/sl_sb10ed.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_sb10ed.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -138,8 +138,8 @@ - bwork, - info)); - -- if (f77_exception_encountered) -- error ("h2syn: __sl_sb10ed__: exception in SLICOT subroutine SB10ED"); -+ // if (f77_exception_encountered) -+ // error ("h2syn: __sl_sb10ed__: exception in SLICOT subroutine SB10ED"); - - static const char* err_msg[] = { - "0: OK", -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_sb10fd.cc ---- a/src/sl_sb10fd.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_sb10fd.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -143,8 +143,8 @@ - bwork, - info)); - -- if (f77_exception_encountered) -- error ("hinfsyn: __sl_sb10fd__: exception in SLICOT subroutine SB10FD"); -+// if (f77_exception_encountered) -+// error ("hinfsyn: __sl_sb10fd__: exception in SLICOT subroutine SB10FD"); - - static const char* err_msg[] = { - "0: OK", -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_sb10hd.cc ---- a/src/sl_sb10hd.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_sb10hd.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -135,8 +135,8 @@ - bwork, - info)); - -- if (f77_exception_encountered) -- error ("h2syn: __sl_sb10hd__: exception in SLICOT subroutine SB10HD"); -+// if (f77_exception_encountered) -+// error ("h2syn: __sl_sb10hd__: exception in SLICOT subroutine SB10HD"); - - static const char* err_msg[] = { - "0: OK", -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_sb10id.cc ---- a/src/sl_sb10id.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_sb10id.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -127,8 +127,8 @@ - bwork, - info)); - -- if (f77_exception_encountered) -- error ("ncfsyn: __sl_sb10id__: exception in SLICOT subroutine SB10ID"); -+// if (f77_exception_encountered) -+// error ("ncfsyn: __sl_sb10id__: exception in SLICOT subroutine SB10ID"); - - static const char* err_msg[] = { - "0: OK", -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_sb10jd.cc ---- a/src/sl_sb10jd.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_sb10jd.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -100,8 +100,8 @@ - dwork, ldwork, - info)); - -- if (f77_exception_encountered) -- error ("__sl_sb10jd__: exception in SLICOT subroutine SB10JD"); -+// if (f77_exception_encountered) -+// error ("__sl_sb10jd__: exception in SLICOT subroutine SB10JD"); - - if (info != 0) - error ("__sl_sb10jd__: SB10JD returned info = %d", info); -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_sb10kd.cc ---- a/src/sl_sb10kd.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_sb10kd.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -123,8 +123,8 @@ - bwork, - info)); - -- if (f77_exception_encountered) -- error ("ncfsyn: slsb10kd: exception in SLICOT subroutine SB10KD"); -+// if (f77_exception_encountered) -+// error ("ncfsyn: slsb10kd: exception in SLICOT subroutine SB10KD"); - - static const char* err_msg[] = { - "0: OK", -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_sb10yd.cc ---- a/src/sl_sb10yd.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_sb10yd.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -141,8 +141,8 @@ - zwork, lzwork, - info)); - -- if (f77_exception_encountered) -- error ("fitfrd: __sl_sb10yd__: exception in SLICOT subroutine SB10YD"); -+// if (f77_exception_encountered) -+// error ("fitfrd: __sl_sb10yd__: exception in SLICOT subroutine SB10YD"); - - if (info != 0) - error ("fitfrd: __sl_sb10yd__: SB10YD returned info = %d", info); -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_sb10zd.cc ---- a/src/sl_sb10zd.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_sb10zd.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -130,8 +130,8 @@ - bwork, - info)); - -- if (f77_exception_encountered) -- error ("ncfsyn: __sl_sb10zd__: exception in SLICOT subroutine SB10ZD"); -+// if (f77_exception_encountered) -+// error ("ncfsyn: __sl_sb10zd__: exception in SLICOT subroutine SB10ZD"); - - static const char* err_msg[] = { - "0: OK", -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_sb16ad.cc ---- a/src/sl_sb16ad.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_sb16ad.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -261,8 +261,8 @@ - iwarn, info)); - - -- if (f77_exception_encountered) -- error ("conred: exception in SLICOT subroutine SB16AD"); -+// if (f77_exception_encountered) -+// error ("conred: exception in SLICOT subroutine SB16AD"); - - static const char* err_msg[] = { - "0: OK", -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_sb16bd.cc ---- a/src/sl_sb16bd.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_sb16bd.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -225,8 +225,8 @@ - iwarn, info)); - - -- if (f77_exception_encountered) -- error ("cfconred: exception in SLICOT subroutine SB16BD"); -+// if (f77_exception_encountered) -+// error ("cfconred: exception in SLICOT subroutine SB16BD"); - - static const char* err_msg[] = { - "0: OK", -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_sb16cd.cc ---- a/src/sl_sb16cd.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_sb16cd.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -190,8 +190,8 @@ - iwarn, info)); - - -- if (f77_exception_encountered) -- error ("fwcfconred: exception in SLICOT subroutine SB16CD"); -+// if (f77_exception_encountered) -+// error ("fwcfconred: exception in SLICOT subroutine SB16CD"); - - static const char* err_msg[] = { - "0: OK", -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_sg02ad.cc ---- a/src/sl_sg02ad.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_sg02ad.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -179,8 +179,8 @@ - bwork, - iwarn, info)); - -- if (f77_exception_encountered) -- error ("are: __sl_sg02ad__: exception in SLICOT subroutine SG02AD"); -+// if (f77_exception_encountered) -+// error ("are: __sl_sg02ad__: exception in SLICOT subroutine SG02AD"); - - static const char* err_msg[] = { - "0: OK", -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_sg03ad.cc ---- a/src/sl_sg03ad.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_sg03ad.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -132,8 +132,8 @@ - dwork, ldwork, - info)); - -- if (f77_exception_encountered) -- error ("lyap: __sl_sg03ad__: exception in SLICOT subroutine SG03AD"); -+// if (f77_exception_encountered) -+// error ("lyap: __sl_sg03ad__: exception in SLICOT subroutine SG03AD"); - - if (info != 0) - error ("lyap: __sl_sg03ad__: SG03AD returned info = %d", info); -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_sg03bd.cc ---- a/src/sl_sg03bd.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_sg03bd.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -123,8 +123,8 @@ - dwork, ldwork, - info)); - -- if (f77_exception_encountered) -- error ("lyap: __sl_sg03bd__: exception in SLICOT subroutine SG03BD"); -+// if (f77_exception_encountered) -+// error ("lyap: __sl_sg03bd__: exception in SLICOT subroutine SG03BD"); - - if (info != 0) - error ("lyap: __sl_sg03bd__: SG03BD returned info = %d", info); -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_tb01id.cc ---- a/src/sl_tb01id.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_tb01id.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -95,8 +95,8 @@ - scale.fortran_vec (), - info)); - -- if (f77_exception_encountered) -- error ("ss: prescale: __sl_tb01id__: exception in SLICOT subroutine TB01ID"); -+// if (f77_exception_encountered) -+// error ("ss: prescale: __sl_tb01id__: exception in SLICOT subroutine TB01ID"); - - if (info != 0) - error ("ss: prescale: __sl_tb01id__: TB01ID returned info = %d", info); -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_tb01pd.cc ---- a/src/sl_tb01pd.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_tb01pd.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -119,8 +119,8 @@ - dwork, ldwork, - info)); - -- if (f77_exception_encountered) -- error ("ss: minreal: __sl_tb01pd__: exception in SLICOT subroutine TB01PD"); -+// if (f77_exception_encountered) -+// error ("ss: minreal: __sl_tb01pd__: exception in SLICOT subroutine TB01PD"); - - if (info != 0) - error ("ss: minreal: __sl_tb01pd__: TB01PD returned info = %d", info); -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_tb01ud.cc ---- a/src/sl_tb01ud.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_tb01ud.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -116,8 +116,8 @@ - dwork, ldwork, - info)); - -- if (f77_exception_encountered) -- error ("__sl_tb01ud__: exception in SLICOT subroutine TB01UD"); -+// if (f77_exception_encountered) -+// error ("__sl_tb01ud__: exception in SLICOT subroutine TB01UD"); - - if (info != 0) - error ("__sl_tb01ud__: TB01UD returned info = %d", info); -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_tb04bd.cc ---- a/src/sl_tb04bd.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_tb04bd.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -131,8 +131,8 @@ - dwork, ldwork, - info)); - -- if (f77_exception_encountered) -- error ("ss2tf: __sl_tb04bd__: exception in SLICOT subroutine TB04BD"); -+// if (f77_exception_encountered) -+// error ("ss2tf: __sl_tb04bd__: exception in SLICOT subroutine TB04BD"); - - if (info != 0) - error ("ss2tf: __sl_tb04bd__: TB04BD returned info = %d", info); -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_td04ad.cc ---- a/src/sl_td04ad.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_td04ad.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -130,8 +130,8 @@ - dwork, ldwork, - info)); - -- if (f77_exception_encountered) -- error ("tf2ss: __sl_td04ad__: exception in SLICOT subroutine TD04AD"); -+// if (f77_exception_encountered) -+// error ("tf2ss: __sl_td04ad__: exception in SLICOT subroutine TD04AD"); - - if (info != 0) - error ("tf2ss: __sl_td04ad__: TD04AD returned info = %d", info); -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_tg01ad.cc ---- a/src/sl_tg01ad.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_tg01ad.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -105,8 +105,8 @@ - dwork, - info)); - -- if (f77_exception_encountered) -- error ("ss: prescale: __sl_tg01ad__: exception in SLICOT subroutine TG01AD"); -+// if (f77_exception_encountered) -+// error ("ss: prescale: __sl_tg01ad__: exception in SLICOT subroutine TG01AD"); - - if (info != 0) - error ("ss: prescale: __sl_tg01ad__: TG01AD returned info = %d", info); -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_tg01fd.cc ---- a/src/sl_tg01fd.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_tg01fd.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -130,8 +130,8 @@ - dwork, ldwork, - info)); - -- if (f77_exception_encountered) -- error ("__sl_tg01fd__: exception in SLICOT subroutine TG01FD"); -+// if (f77_exception_encountered) -+// error ("__sl_tg01fd__: exception in SLICOT subroutine TG01FD"); - - if (info != 0) - error ("__sl_tg01fd__: TG01FD returned info = %d", info); -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_tg01hd.cc ---- a/src/sl_tg01hd.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_tg01hd.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -122,8 +122,8 @@ - iwork, dwork, - info)); - -- if (f77_exception_encountered) -- error ("__sl_tg01hd__: exception in SLICOT subroutine TG01HD"); -+// if (f77_exception_encountered) -+// error ("__sl_tg01hd__: exception in SLICOT subroutine TG01HD"); - - if (info != 0) - error ("__sl_tg01hd__: TG01HD returned info = %d", info); -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_tg01id.cc ---- a/src/sl_tg01id.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_tg01id.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -124,8 +124,8 @@ - iwork, dwork, - info)); - -- if (f77_exception_encountered) -- error ("__sl_tg01id__: exception in SLICOT subroutine TG01ID"); -+// if (f77_exception_encountered) -+// error ("__sl_tg01id__: exception in SLICOT subroutine TG01ID"); - - if (info != 0) - error ("__sl_tg01id__: TG01ID returned info = %d", info); -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_tg01jd.cc ---- a/src/sl_tg01jd.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_tg01jd.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -189,8 +189,8 @@ - dwork, ldwork, - info)); - -- if (f77_exception_encountered) -- error ("dss: minreal: __sl_tg01jd__: exception in SLICOT subroutine TG01JD"); -+// if (f77_exception_encountered) -+// error ("dss: minreal: __sl_tg01jd__: exception in SLICOT subroutine TG01JD"); - - if (info != 0) - error ("dss: minreal: __sl_tg01jd__: TG01JD returned info = %d", info); -diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_tg04bx.cc ---- a/src/sl_tg04bx.cc Thu Jan 03 09:19:49 2019 -0500 -+++ b/src/sl_tg04bx.cc Thu Jan 03 11:23:28 2019 -0500 -@@ -106,8 +106,8 @@ - gain, - iwork)); - -- if (f77_exception_encountered) -- error ("dss: zero: __sl_tg04bx__: exception in TG04BX"); -+// if (f77_exception_encountered) -+// error ("dss: zero: __sl_tg04bx__: exception in TG04BX"); - - // return values - retval(0) = octave_value (gain); -# HG changeset patch -# User Doug Stewart -# Date 1546533621 18000 -# Thu Jan 03 11:40:21 2019 -0500 -# Node ID 3243832f441cd1cc8417b02bf37f3253204be681 -# Parent 6f05c32bbbafa758c1d76995e8aab914a67db499 -removed F77_exception_encounterd obsolete - -diff -r 6f05c32bbbaf -r 3243832f441c src/sl_ab01od.cc ---- a/src/sl_ab01od.cc Thu Jan 03 11:23:28 2019 -0500 -+++ b/src/sl_ab01od.cc Thu Jan 03 11:40:21 2019 -0500 -@@ -72,7 +72,7 @@ - Matrix a = args(0).matrix_value (); - Matrix b = args(1).matrix_value (); - double tol = args(2).double_value (); --f77_exception_encountered -+// f77_exception_encountered - F77_INT n = TO_F77_INT (a.rows ()); // n: number of states - F77_INT m = TO_F77_INT (b.columns ()); // m: number of inputs - -diff -r 6f05c32bbbaf -r 3243832f441c src/sl_ab13ad.cc ---- a/src/sl_ab13ad.cc Thu Jan 03 11:23:28 2019 -0500 -+++ b/src/sl_ab13ad.cc Thu Jan 03 11:40:21 2019 -0500 -@@ -98,7 +98,7 @@ - - // workspace - F77_INT ldwork = max (1, n*(max (n, m, p) + 5) + n*(n+1)/2); -- f77_exception_encountered -+// f77_exception_encountered - OCTAVE_LOCAL_BUFFER (double, dwork, ldwork); - - // error indicators -diff -r 6f05c32bbbaf -r 3243832f441c src/sl_ag08bd.cc ---- a/src/sl_ag08bd.cc Thu Jan 03 11:23:28 2019 -0500 -+++ b/src/sl_ag08bd.cc Thu Jan 03 11:40:21 2019 -0500 -@@ -182,7 +182,7 @@ - OCTAVE_LOCAL_BUFFER (double, work, lwork); - - F77_INT info2; -- f77_exception_encountered -+// f77_exception_encountered - F77_XFCN (dggev, DGGEV, - (jobvl, jobvr, - nfz, -# HG changeset patch -# User Mike Miller -# Date 1549586531 28800 -# Thu Feb 07 16:42:11 2019 -0800 -# Node ID 549466e74db52bae75e2da528c88f4a1c9339065 -# Parent 37e80b55b0f9339106a56c3b19118c1b1cdf05f4 -use numfields, drop all references to deleted nfields2 (bug #55671) - -* @lti/__lti_group__.m: Use numfields as a replacement for nfields2. Remove -workaround for ancient bug in orderfields. -* @lti/__lti_prune__.m: Use numfields as a replacement for nfields2. -* @lti/display.m: Likewise. -* __control_helper_functions__.cc: Delete commented inclusion of nfields2.cc. -* nfields2.cc: Delete. - -diff -r 37e80b55b0f9 -r 549466e74db5 inst/@lti/__lti_group__.m ---- a/inst/@lti/__lti_group__.m Thu Jan 10 11:52:56 2019 -0500 -+++ b/inst/@lti/__lti_group__.m Thu Feb 07 16:42:11 2019 -0800 -@@ -31,7 +31,7 @@ - if (any (strcmpi (dim, {"blkdiag", "horzcat"}))) # blkdiag, horzcat - retlti.inname = [lti1.inname; lti2.inname]; - -- if (nfields2 (lti1.ingroup) || nfields2 (lti2.ingroup)) -+ if (numfields (lti1.ingroup) || numfields (lti2.ingroup)) - m1 = numel (lti1.inname); - lti2_ingroup = structfun (@(x) x + m1, lti2.ingroup, "uniformoutput", false); - retlti.ingroup = __merge_struct__ (lti1.ingroup, lti2_ingroup); -@@ -44,7 +44,7 @@ - if (any (strcmpi (dim, {"blkdiag", "vertcat"}))) # blkdiag, vertcat - retlti.outname = [lti1.outname; lti2.outname]; - -- if (nfields2 (lti1.outgroup) || nfields2 (lti2.outgroup)) -+ if (numfields (lti1.outgroup) || numfields (lti2.outgroup)) - p1 = numel (lti1.outname); - lti2_outgroup = structfun (@(x) x + p1, lti2.outgroup, "uniformoutput", false); - retlti.outgroup = __merge_struct__ (lti1.outgroup, lti2_outgroup); -@@ -76,14 +76,8 @@ - ## FIXME: this is too complicated; - ## isn't there a simple function for this task? - -- ## bug #40224: orderfields (struct ()) errors out in Octave 3.6.4 -- ## therefore use nfields2 to check for empty structs -- if (nfields2 (a)) -- a = orderfields (a); -- endif -- if (nfields2 (b)) -- b = orderfields (b); -- endif -+ a = orderfields (a); -+ b = orderfields (b); - - fa = fieldnames (a); - fb = fieldnames (b); -diff -r 37e80b55b0f9 -r 549466e74db5 inst/@lti/__lti_prune__.m ---- a/inst/@lti/__lti_prune__.m Thu Jan 10 11:52:56 2019 -0500 -+++ b/inst/@lti/__lti_prune__.m Thu Feb 07 16:42:11 2019 -0800 -@@ -42,14 +42,14 @@ - in_idx = vertcat (tmp{:}); - endif - -- if (nfields2 (lti.outgroup)) -+ if (numfields (lti.outgroup)) - p = numel (lti.outname); # get size before pruning outnames! - [lti.outgroup, empty] = structfun (@(x) __group_prune__ (x, out_idx, p), lti.outgroup, "uniformoutput", false); - empty = cell2mat (struct2cell (empty)); - fields = fieldnames (lti.outgroup); - lti.outgroup = rmfield (lti.outgroup, fields(empty)); - endif -- if (nfields2 (lti.ingroup)) -+ if (numfields (lti.ingroup)) - m = numel (lti.inname); - [lti.ingroup, empty] = structfun (@(x) __group_prune__ (x, in_idx, m), lti.ingroup, "uniformoutput", false); - empty = cell2mat (struct2cell (empty)); -diff -r 37e80b55b0f9 -r 549466e74db5 inst/@lti/display.m ---- a/inst/@lti/display.m Thu Jan 10 11:52:56 2019 -0500 -+++ b/inst/@lti/display.m Thu Feb 07 16:42:11 2019 -0800 -@@ -24,11 +24,11 @@ - - function display (sys) - -- if (nfields2 (sys.ingroup) > 0) -+ if (numfields (sys.ingroup) > 0) - __disp_group__ (sys.ingroup, "Input"); - endif - -- if (nfields2 (sys.outgroup) > 0) -+ if (numfields (sys.outgroup) > 0) - __disp_group__ (sys.outgroup, "Output"); - endif - -diff -r 37e80b55b0f9 -r 549466e74db5 src/__control_helper_functions__.cc ---- a/src/__control_helper_functions__.cc Thu Jan 10 11:52:56 2019 -0500 -+++ b/src/__control_helper_functions__.cc Thu Feb 07 16:42:11 2019 -0800 -@@ -6,9 +6,6 @@ - #include "is_zp_vector.cc" - #include "lti_input_idx.cc" - --// #include "nfields2.cc" // delete this if support for Octave 3.8 gets dropped -- -- - - // stub function to avoid gen_doc_cache warning upon package installation - DEFUN_DLD (__control_helper_functions__, args, nargout, -diff -r 37e80b55b0f9 -r 549466e74db5 src/nfields2.cc ---- a/src/nfields2.cc Thu Jan 10 11:52:56 2019 -0500 -+++ /dev/null Thu Jan 01 00:00:00 1970 +0000 -@@ -1,23 +0,0 @@ --#include --#include -- --// PKG_ADD: autoload ("nfields2", "__control_helper_functions__.oct"); --DEFUN_DLD (nfields2, args, , -- "-*- texinfo -*-\n\ --@deftypefn {Built-in Function} {} nfields (@var{s})\n\ --Return the number of fields of the structure @var{s}.\n\ --@end deftypefn") --{ -- octave_value retval; -- -- octave_idx_type nargin = args.length (); -- -- if (nargin == 1 && args(0).is_map ()) -- { -- retval = static_cast (args(0).nfields ()); -- } -- else -- print_usage (); -- -- return retval; --} -# HG changeset patch -# User Mike Miller -# Date 1549918550 28800 -# Mon Feb 11 12:55:50 2019 -0800 -# Node ID 6c0a3108c82c8d2731e4615bef0c1c3e67cf0922 -# Parent 3b79c72063765b79f5b4e9dfa5acf36ea67d097d -fix build failure with Octave 6 while remaining compatible (bug #55361) - -* common.h (f77_exception_encountered): Define as a constant to retain -functionality that depends on this value in older versions of Octave. - -diff -r 3b79c7206376 -r 6c0a3108c82c src/common.h ---- a/src/common.h Thu Feb 07 17:38:25 2019 -0800 -+++ b/src/common.h Mon Feb 11 12:55:50 2019 -0800 -@@ -47,4 +47,12 @@ - void warning_msg (const char name[], octave_idx_type index, octave_idx_type max, const char* msg[]); - void warning_msg (const char name[], octave_idx_type index, octave_idx_type max, const char* msg[], octave_idx_type offset); - -+// FIXME: Keep until Octave 4.2 and older are no longer supported. -+// This conditional defines f77_exception_encountered as a dummy constant -+// to preserve code that needed to check its value to work correctly in older -+// versions of Octave. -+#if defined (OCTAVE_MAJOR_VERSION) && OCTAVE_MAJOR_VERSION >= 6 -+static const int f77_exception_encountered = 0; - #endif -+ -+#endif diff -r d475c9d019f3 -r 5e4292853f84 src/of-control.mk --- a/src/of-control.mk Fri Apr 05 16:30:03 2019 -0400 +++ b/src/of-control.mk Fri Apr 05 16:33:58 2019 -0400 @@ -3,8 +3,8 @@ PKG := of-control $(PKG)_IGNORE := -$(PKG)_VERSION := 3.1.0 -$(PKG)_CHECKSUM := 573d9256c6c49b9b2940347ef0c8772fc7cbdfce +$(PKG)_VERSION := 3.2.0 +$(PKG)_CHECKSUM := 46e8e04ea456f871d74049fed2db0840e6d7dc8a $(PKG)_REMOTE_SUBDIR := $(PKG)_SUBDIR := control-$($(PKG)_VERSION) $(PKG)_FILE := control-$($(PKG)_VERSION).tar.gz