# HG changeset patch
# User John Donoghue
# Date 1548078433 18000
# Node ID fa3095a87fa7f998bdc0b8c76b474ecb154908d4
# Parent  8c1d507a7b77f90e7a7d8cfaaa4566af6d5415e5
of-nurbs: patch to compile with dev ctave

* src/of-nurbs-2-dev-fixes.patch: new file

* dist-files.mk: add ref to new file

diff -r 8c1d507a7b77 -r fa3095a87fa7 dist-files.mk
--- a/dist-files.mk	Mon Jan 21 08:47:11 2019 -0500
+++ b/dist-files.mk	Mon Jan 21 08:47:13 2019 -0500
@@ -505,6 +505,7 @@
   of-nan.mk \
   of-netcdf.mk \
   of-nurbs-1-fixes.patch \
+  of-nurbs-2-dev-fixes.patch \
   of-nurbs.mk \
   of-ocs-1-cross-fixes.patch \
   of-ocs.mk \
diff -r 8c1d507a7b77 -r fa3095a87fa7 src/of-nurbs-2-dev-fixes.patch
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/of-nurbs-2-dev-fixes.patch	Mon Jan 21 08:47:13 2019 -0500
@@ -0,0 +1,80 @@
+diff -ur nurbs-1.3.13.orig/src/bspeval.cc nurbs-1.3.13/src/bspeval.cc
+--- nurbs-1.3.13.orig/src/bspeval.cc	2019-01-02 14:26:02.941385714 -0500
++++ nurbs-1.3.13/src/bspeval.cc	2019-01-02 14:27:40.507737151 -0500
+@@ -113,7 +113,7 @@
+       error("bspeval: the knot vector should be a real vector."); 
+       return true; 
+     } 
+-  if (!args(3).is_real_type()) 
++  if (!args(3).isreal()) 
+     { 
+       error("bspeval: the set of parametric points should be an array of doubles."); 
+       return true; 
+diff -ur nurbs-1.3.13.orig/src/tbasisfun.cc nurbs-1.3.13/src/tbasisfun.cc
+--- nurbs-1.3.13.orig/src/tbasisfun.cc	2019-01-02 14:26:02.941385714 -0500
++++ nurbs-1.3.13/src/tbasisfun.cc	2019-01-02 14:27:54.744080103 -0500
+@@ -156,7 +156,7 @@
+   RowVector N(u.cols ());
+   double *Nptr = N.fortran_vec ();
+ 
+-  if (! args(2).is_cell ())
++  if (! args(2).iscell ())
+     {
+ 
+       double p = args(1).idx_type_value ();
+diff -ur nurbs-1.3.13.orig/src/nrb_srf_basisfun__.cc nurbs-1.3.13/src/nrb_srf_basisfun__.cc
+--- nurbs-1.3.13.orig/src/nrb_srf_basisfun__.cc	2019-01-02 14:34:00.900891192 -0500
++++ nurbs-1.3.13/src/nrb_srf_basisfun__.cc	2019-01-02 14:34:46.781994244 -0500
+@@ -66,7 +66,7 @@
+ 	} // spu  =  findspan (m, p, u, U); 
+ 
+       newargs(3) = U; newargs(2) = p; newargs(1) = u; newargs(0) = spu;
+-      Matrix Ik = feval (std::string("numbasisfun"), newargs, 1)(0).matrix_value (); // Ik = numbasisfun (spu, u, p, U);
++      Matrix Ik = octave::feval (std::string("numbasisfun"), newargs, 1)(0).matrix_value (); // Ik = numbasisfun (spu, u, p, U);
+ 
+       RowVector spv(v);
+       for (octave_idx_type ii(0); ii < v.numel (); ii++)
+@@ -75,7 +75,7 @@
+ 	} // spv  =  findspan (n, q, v, V);
+ 
+       newargs(3) = V; newargs(2) = q; newargs(1) = v; newargs(0) = spv;
+-      Matrix Jk = feval (std::string("numbasisfun"), newargs, 1)(0).matrix_value (); // Jk = numbasisfun (spv, v, q, V);
++      Matrix Jk = octave::feval (std::string("numbasisfun"), newargs, 1)(0).matrix_value (); // Jk = numbasisfun (spv, v, q, V);
+ 
+       Matrix NuIkuk(npt, p+1, 0.0);
+       for (octave_idx_type ii(0); ii < npt; ii++)
+diff -ur nurbs-1.3.13.orig/src/nrb_srf_basisfun_der__.cc nurbs-1.3.13/src/nrb_srf_basisfun_der__.cc
+--- nurbs-1.3.13.orig/src/nrb_srf_basisfun_der__.cc	2019-01-02 14:34:00.900891192 -0500
++++ nurbs-1.3.13/src/nrb_srf_basisfun_der__.cc	2019-01-02 14:35:50.667529890 -0500
+@@ -73,7 +73,7 @@
+ 	} // spu  =  findspan (m, p, u, U); 
+ 
+       newargs(3) = U; newargs(2) = p; newargs(1) = u; newargs(0) = spu;
+-      Matrix Ik = feval (std::string("numbasisfun"), newargs, 1)(0).matrix_value (); // Ik = numbasisfun (spu, u, p, U);
++      Matrix Ik = octave::feval (std::string("numbasisfun"), newargs, 1)(0).matrix_value (); // Ik = numbasisfun (spu, u, p, U);
+ 
+       RowVector spv(v);
+       for (octave_idx_type ii(0); ii < v.numel (); ii++)
+@@ -82,7 +82,7 @@
+ 	} // spv  =  findspan (n, q, v, V);
+ 
+       newargs(3) = V; newargs(2) = q; newargs(1) = v; newargs(0) = spv;
+-      Matrix Jk = feval (std::string("numbasisfun"), newargs, 1)(0).matrix_value (); // Jk = numbasisfun (spv, v, q, V);
++      Matrix Jk = octave::feval (std::string("numbasisfun"), newargs, 1)(0).matrix_value (); // Jk = numbasisfun (spv, v, q, V);
+ 
+       Matrix NuIkuk(npt, p+1, 0.0);
+       for (octave_idx_type ii(0); ii < npt; ii++)
+@@ -100,11 +100,11 @@
+ 
+      
+       newargs(4) = 1; newargs(3) = U; newargs(2) = u; newargs(1) = p; newargs(0) = spu;
+-      NDArray NuIkukprime = feval (std::string("basisfunder"), newargs, 1)(0).array_value (); //   NuIkukprime = basisfunder (spu, p, u, U, 1);
++      NDArray NuIkukprime = octave::feval (std::string("basisfunder"), newargs, 1)(0).array_value (); //   NuIkukprime = basisfunder (spu, p, u, U, 1);
+                                                                                               //   NuIkukprime = squeeze(NuJkukprime(:,2,:));
+       
+       newargs(4) = 1; newargs(3) = V; newargs(2) = v; newargs(1) = q; newargs(0) = spv;
+-      NDArray NvJkvkprime = feval (std::string("basisfunder"), newargs, 1)(0).array_value (); //   NvJkvkprime = basisfunder (spv, q, v, V, 1);
++      NDArray NvJkvkprime = octave::feval (std::string("basisfunder"), newargs, 1)(0).array_value (); //   NvJkvkprime = basisfunder (spv, q, v, V, 1);
+                                                                                               //   NvJkvkprime = squeeze(NvJkvkprime(:,2,:));
+       
+       for (octave_idx_type k(0); k < npt; k++)