Interface cishp

Author: amontoison

docs/src/core.md

@@ -33,6 +33,7 @@ CUTEst.cjprod
 CUTEst.ccfg
 CUTEst.ccf
 CUTEst.cish
+CUTEst.cishp
 CUTEst.ushprod
 CUTEst.cdimchp
 CUTEst.ureport

gen/wrapper.jl

@@ -31,6 +31,12 @@ function main()
     "CUTEst_realloc",
     "CUTEst_free",
     "VarTypes",
+    "cutest_load_routines_",
+    "cutest_load_routines_s_",
+    "cutest_load_routines_q_",
+    "cutest_unload_routines_",
+    "cutest_unload_routines_s_",
+    "cutest_unload_routines_q_",
   ]
 
   args = get_default_args()

src/core_interface.jl

@@ -2275,6 +2275,30 @@ for (cutest_cish, T) in
   end
 end
 
+"""
+    cishp(T, libsif, status, n, iprob, nnzh, lh, irnh, icnh)
+"""
+function cishp end
+
+for (cutest_cishp, T) in
+    ((:cutest_cishp_s_, :Float32), (:cutest_cishp_, :Float64), (:cutest_cishp_q_, :Float128))
+  @eval begin
+    function cishp(
+      ::Type{$T},
+      libsif::Ptr{Cvoid},
+      status::StrideOneVector{Cint},
+      n::StrideOneVector{Cint},
+      iprob::StrideOneVector{Cint},
+      nnzh::StrideOneVector{Cint},
+      lh::StrideOneVector{Cint},
+      irnh::StrideOneVector{Cint},
+      icnh::StrideOneVector{Cint},
+    )
+      $cutest_cishp(libsif, status, n, iprob, nnzh, lh, irnh, icnh)
+    end
+  end
+end
+
 """
     csgrsh(T, libsif, status, n, m, x, y, grlagf, nnzj, lj, j_val, j_var, j_fun, nnzh, lh, h_val, h_row, h_col)
 

src/libcutest.jl

@@ -420,6 +420,12 @@ function cutest_cish_(libsif, status, n, x, iprob, nnzh, lh, h, irnh, icnh)
                            icnh::Ptr{Cint})::Cvoid
 end
 
+function cutest_cishp_(libsif, status, n, iprob, nnzh, lh, irnh, icnh)
+  ptr_cutest_cishp_ = Libdl.dlsym(libsif, :cutest_cishp_)
+  @ccall $ptr_cutest_cishp_(status::Ptr{Cint}, n::Ptr{Cint}, iprob::Ptr{Cint}, nnzh::Ptr{Cint},
+                            lh::Ptr{Cint}, irnh::Ptr{Cint}, icnh::Ptr{Cint})::Cvoid
+end
+
 function cutest_cint_csgrsh_(libsif, status, n, m, x, y, grlagf, nnzj, lcjac, cjac, indvar, indfun,
                              nnzh, lh, h, irnh, icnh)
   ptr_cutest_cint_csgrsh_ = Libdl.dlsym(libsif, :cutest_cint_csgrsh_)
@@ -976,6 +982,12 @@ function cutest_cish_s_(libsif, status, n, x, iprob, nnzh, lh, h, irnh, icnh)
                              icnh::Ptr{Cint})::Cvoid
 end
 
+function cutest_cishp_s_(libsif, status, n, iprob, nnzh, lh, irnh, icnh)
+  ptr_cutest_cishp_s_ = Libdl.dlsym(libsif, :cutest_cishp_s_)
+  @ccall $ptr_cutest_cishp_s_(status::Ptr{Cint}, n::Ptr{Cint}, iprob::Ptr{Cint}, nnzh::Ptr{Cint},
+                              lh::Ptr{Cint}, irnh::Ptr{Cint}, icnh::Ptr{Cint})::Cvoid
+end
+
 function cutest_cint_csgrsh_s_(libsif, status, n, m, x, y, grlagf, nnzj, lcjac, cjac, indvar,
                                indfun, nnzh, lh, h, irnh, icnh)
   ptr_cutest_cint_csgrsh_s_ = Libdl.dlsym(libsif, :cutest_cint_csgrsh_s_)
@@ -1536,6 +1548,12 @@ function cutest_cish_q_(libsif, status, n, x, iprob, nnzh, lh, h, irnh, icnh)
                              icnh::Ptr{Cint})::Cvoid
 end
 
+function cutest_cishp_q_(libsif, status, n, iprob, nnzh, lh, irnh, icnh)
+  ptr_cutest_cishp_q_ = Libdl.dlsym(libsif, :cutest_cishp_q_)
+  @ccall $ptr_cutest_cishp_q_(status::Ptr{Cint}, n::Ptr{Cint}, iprob::Ptr{Cint}, nnzh::Ptr{Cint},
+                              lh::Ptr{Cint}, irnh::Ptr{Cint}, icnh::Ptr{Cint})::Cvoid
+end
+
 function cutest_cint_csgrsh_q_(libsif, status, n, m, x, y, grlagf, nnzj, lcjac, cjac, indvar,
                                indfun, nnzh, lh, h, irnh, icnh)
   ptr_cutest_cint_csgrsh_q_ = Libdl.dlsym(libsif, :cutest_cint_csgrsh_q_)