Mercurial > octave
annotate liboctave/util/oct-sparse.h @ 23391:209e749363a2
safe cast between SuiteSparse_long and octave_idx_type pointers (bug #50510)
* oct-sparse.cc: New file.
* liboctave/util/module.mk: Update.
* oct-sparse.h, oct-sparse.cc (octave::suitesparse_integer): New typedef.
(octave::to_suitesparse_intptr, octave::to_octave_idx_type_ptr):
New functions.
* amd.cc, ccolamd.cc, colamd.cc, dmperm.cc, symbfact.cc, CSparse.cc,
dSparse.cc, sparse-dmsolve.cc, sparse-lu.cc, sparse-qr.cc: Use new
functions and typedef to avoid conflicts between pointers to
octave_idx_type and SuiteSparse_long on systems where they are
equivalent types but have incompatible definitions (long long int *
vs. long int *, for example, when both are 64-bits wide).
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Wed, 12 Apr 2017 16:29:50 -0400 |
parents | 1ae9f4c1f48a |
children | 194eb4bd202b |
rev | line source |
---|---|
5512 | 1 /* |
2 | |
23219
3ac9f9ecfae5
maint: Update copyright dates.
John W. Eaton <jwe@octave.org>
parents:
23083
diff
changeset
|
3 Copyright (C) 2005-2017 David Bateman |
5512 | 4 |
5 This file is part of Octave. | |
6 | |
7 Octave is free software; you can redistribute it and/or modify it | |
22755
3a2b891d0b33
maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents:
22402
diff
changeset
|
8 under the terms of the GNU General Public License as published by |
3a2b891d0b33
maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents:
22402
diff
changeset
|
9 the Free Software Foundation; either version 3 of the License, or |
3a2b891d0b33
maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents:
22402
diff
changeset
|
10 (at your option) any later version. |
5512 | 11 |
22755
3a2b891d0b33
maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents:
22402
diff
changeset
|
12 Octave is distributed in the hope that it will be useful, but |
3a2b891d0b33
maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents:
22402
diff
changeset
|
13 WITHOUT ANY WARRANTY; without even the implied warranty of |
3a2b891d0b33
maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents:
22402
diff
changeset
|
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
3a2b891d0b33
maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents:
22402
diff
changeset
|
15 GNU General Public License for more details. |
5512 | 16 |
17 You should have received a copy of the GNU General Public License | |
7016 | 18 along with Octave; see the file COPYING. If not, see |
19 <http://www.gnu.org/licenses/>. | |
5512 | 20 |
21 */ | |
22 | |
20791
f7084eae3318
maint: Use Octave coding conventions for #if statements.
Rik <rik@octave.org>
parents:
19756
diff
changeset
|
23 #if ! defined (octave_oct_sparse_h) |
17822
ebb3ef964372
maint: Use common #define syntax "octave_filename_h" in h_files.
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
24 #define octave_oct_sparse_h 1 |
5512 | 25 |
21244
1473547f50f5
include octave-config.h in public header files
John W. Eaton <jwe@octave.org>
parents:
21229
diff
changeset
|
26 #include "octave-config.h" |
1473547f50f5
include octave-config.h in public header files
John W. Eaton <jwe@octave.org>
parents:
21229
diff
changeset
|
27 |
7619 | 28 #if defined (HAVE_SUITESPARSE_AMD_H) |
21177
a10f60e13243
style fixes in liboctave/numeric directory
John W. Eaton <jwe@octave.org>
parents:
21176
diff
changeset
|
29 # include <suitesparse/amd.h> |
7619 | 30 #elif defined (HAVE_UFSPARSE_AMD_H) |
21177
a10f60e13243
style fixes in liboctave/numeric directory
John W. Eaton <jwe@octave.org>
parents:
21176
diff
changeset
|
31 # include <ufsparse/amd.h> |
7619 | 32 #elif defined (HAVE_AMD_AMD_H) |
21177
a10f60e13243
style fixes in liboctave/numeric directory
John W. Eaton <jwe@octave.org>
parents:
21176
diff
changeset
|
33 # include <amd/amd.h> |
7619 | 34 #elif defined (HAVE_AMD_H) |
21177
a10f60e13243
style fixes in liboctave/numeric directory
John W. Eaton <jwe@octave.org>
parents:
21176
diff
changeset
|
35 # include <amd.h> |
7619 | 36 #endif |
37 | |
6231 | 38 #if defined (HAVE_SUITESPARSE_CCOLAMD_H) |
21177
a10f60e13243
style fixes in liboctave/numeric directory
John W. Eaton <jwe@octave.org>
parents:
21176
diff
changeset
|
39 # include <suitesparse/ccolamd.h> |
6186 | 40 #elif defined (HAVE_UFSPARSE_CCOLAMD_H) |
21177
a10f60e13243
style fixes in liboctave/numeric directory
John W. Eaton <jwe@octave.org>
parents:
21176
diff
changeset
|
41 # include <ufsparse/ccolamd.h> |
5610 | 42 #elif defined (HAVE_CCOLAMD_CCOLAMD_H) |
21177
a10f60e13243
style fixes in liboctave/numeric directory
John W. Eaton <jwe@octave.org>
parents:
21176
diff
changeset
|
43 # include <ccolamd/ccolamd.h> |
5512 | 44 #elif defined (HAVE_CCOLAMD_H) |
21177
a10f60e13243
style fixes in liboctave/numeric directory
John W. Eaton <jwe@octave.org>
parents:
21176
diff
changeset
|
45 # include <ccolamd.h> |
5512 | 46 #endif |
47 | |
6231 | 48 #if defined (HAVE_SUITESPARSE_CHOLMOD_H) |
21177
a10f60e13243
style fixes in liboctave/numeric directory
John W. Eaton <jwe@octave.org>
parents:
21176
diff
changeset
|
49 # include <suitesparse/cholmod.h> |
6186 | 50 #elif defined (HAVE_UFSPARSE_CHOLMOD_H) |
21177
a10f60e13243
style fixes in liboctave/numeric directory
John W. Eaton <jwe@octave.org>
parents:
21176
diff
changeset
|
51 # include <ufsparse/cholmod.h> |
6236 | 52 #elif defined (HAVE_CHOLMOD_CHOLMOD_H) |
21177
a10f60e13243
style fixes in liboctave/numeric directory
John W. Eaton <jwe@octave.org>
parents:
21176
diff
changeset
|
53 # include <cholmod/cholmod.h> |
5512 | 54 #elif defined (HAVE_CHOLMOD_H) |
21177
a10f60e13243
style fixes in liboctave/numeric directory
John W. Eaton <jwe@octave.org>
parents:
21176
diff
changeset
|
55 # include <cholmod.h> |
5512 | 56 #endif |
57 | |
23390
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
58 #if defined (HAVE_SUITESPARSE_COLAMD_H) |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
59 # include <suitesparse/colamd.h> |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
60 #elif defined (HAVE_UFSPARSE_COLAMD_H) |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
61 # include <ufsparse/colamd.h> |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
62 #elif defined (HAVE_COLAMD_COLAMD_H) |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
63 # include <colamd/colamd.h> |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
64 #elif defined (HAVE_COLAMD_H) |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
65 # include <colamd.h> |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
66 #endif |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
67 |
6231 | 68 #if defined (HAVE_SUITESPARSE_CS_H) |
21177
a10f60e13243
style fixes in liboctave/numeric directory
John W. Eaton <jwe@octave.org>
parents:
21176
diff
changeset
|
69 # include <suitesparse/cs.h> |
6186 | 70 #elif defined (HAVE_UFSPARSE_CS_H) |
21177
a10f60e13243
style fixes in liboctave/numeric directory
John W. Eaton <jwe@octave.org>
parents:
21176
diff
changeset
|
71 # include <ufsparse/cs.h> |
5648 | 72 #elif defined (HAVE_CXSPARSE_CS_H) |
21177
a10f60e13243
style fixes in liboctave/numeric directory
John W. Eaton <jwe@octave.org>
parents:
21176
diff
changeset
|
73 # include <cxsparse/cs.h> |
5648 | 74 #elif defined (HAVE_CS_H) |
21177
a10f60e13243
style fixes in liboctave/numeric directory
John W. Eaton <jwe@octave.org>
parents:
21176
diff
changeset
|
75 # include <cs.h> |
5610 | 76 #endif |
77 | |
23390
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
78 #if defined (HAVE_SUITESPARSE_UMFPACK_H) |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
79 # include <suitesparse/umfpack.h> |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
80 #elif defined (HAVE_UFSPARSE_UMFPACK_H) |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
81 # include <ufsparse/umfpack.h> |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
82 #elif defined (HAVE_UMFPACK_UMFPACK_H) |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
83 # include <umfpack/umfpack.h> |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
84 #elif defined (HAVE_UMFPACK_H) |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
85 # include <umfpack.h> |
5512 | 86 #endif |
87 | |
21160
b5b531ba93ce
build: Use configure-time test to check CXSparse version.
Rik <rik@octave.org>
parents:
21152
diff
changeset
|
88 // Cope with new SuiteSparse versions |
b5b531ba93ce
build: Use configure-time test to check CXSparse version.
Rik <rik@octave.org>
parents:
21152
diff
changeset
|
89 |
19207
4d460b124be3
Fix compilation error when building without SuiteSparse
Mike Miller <mtmiller@ieee.org>
parents:
19139
diff
changeset
|
90 #if defined (SUITESPARSE_VERSION) |
21213
f7d1050b9b53
maint: Clean up various usages of #ifdef.
Rik <rik@octave.org>
parents:
21210
diff
changeset
|
91 # if (SUITESPARSE_VERSION >= SUITESPARSE_VER_CODE (4, 3)) |
21177
a10f60e13243
style fixes in liboctave/numeric directory
John W. Eaton <jwe@octave.org>
parents:
21176
diff
changeset
|
92 # define SUITESPARSE_NAME(name) SuiteSparse_ ## name |
a10f60e13243
style fixes in liboctave/numeric directory
John W. Eaton <jwe@octave.org>
parents:
21176
diff
changeset
|
93 # define SUITESPARSE_ASSIGN_FPTR(f_name, f_var, f_assign) (SuiteSparse_config.f_name = f_assign) |
a10f60e13243
style fixes in liboctave/numeric directory
John W. Eaton <jwe@octave.org>
parents:
21176
diff
changeset
|
94 # define SUITESPARSE_ASSIGN_FPTR2(f_name, f_var, f_assign) (SuiteSparse_config.f_name = SUITESPARSE_NAME (f_assign)) |
a10f60e13243
style fixes in liboctave/numeric directory
John W. Eaton <jwe@octave.org>
parents:
21176
diff
changeset
|
95 # else |
a10f60e13243
style fixes in liboctave/numeric directory
John W. Eaton <jwe@octave.org>
parents:
21176
diff
changeset
|
96 # define SUITESPARSE_ASSIGN_FPTR(f_name, f_var, f_assign) (f_var = f_assign) |
a10f60e13243
style fixes in liboctave/numeric directory
John W. Eaton <jwe@octave.org>
parents:
21176
diff
changeset
|
97 # define SUITESPARSE_ASSIGN_FPTR2(f_name, f_var, f_assign) (f_var = CHOLMOD_NAME (f_assign)) |
a10f60e13243
style fixes in liboctave/numeric directory
John W. Eaton <jwe@octave.org>
parents:
21176
diff
changeset
|
98 # endif |
5512 | 99 #endif |
19139
afd6179d2616
allow building with new version of SuiteSparse (bug #43063)
John W. Eaton <jwe@octave.org>
parents:
17822
diff
changeset
|
100 |
23390
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
101 // Function names depend on integer type. |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
102 |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
103 #if defined (HAVE_AMD) |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
104 # if defined (OCTAVE_ENABLE_64) |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
105 # define AMD_NAME(name) amd_l ## name |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
106 # else |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
107 # define AMD_NAME(name) amd ## name |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
108 # endif |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
109 #endif |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
110 |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
111 #if defined (HAVE_CCOLAMD) |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
112 # if defined (OCTAVE_ENABLE_64) |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
113 # define CCOLAMD_NAME(name) ccolamd_l ## name |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
114 # define CSYMAMD_NAME(name) csymamd_l ## name |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
115 # else |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
116 # define CCOLAMD_NAME(name) ccolamd ## name |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
117 # define CSYMAMD_NAME(name) csymamd ## name |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
118 # endif |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
119 #endif |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
120 |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
121 #if defined (HAVE_CHOLMOD) |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
122 # if defined (OCTAVE_ENABLE_64) |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
123 # define CHOLMOD_NAME(name) cholmod_l_ ## name |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
124 # else |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
125 # define CHOLMOD_NAME(name) cholmod_ ## name |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
126 # endif |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
127 #endif |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
128 |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
129 #if defined (HAVE_COLAMD) |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
130 # if defined (OCTAVE_ENABLE_64) |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
131 # define COLAMD_NAME(name) colamd_l ## name |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
132 # define SYMAMD_NAME(name) symamd_l ## name |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
133 # else |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
134 # define COLAMD_NAME(name) colamd ## name |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
135 # define SYMAMD_NAME(name) symamd ## name |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
136 # endif |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
137 #endif |
1ae9f4c1f48a
define all suitesparse NAME macros in oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
23220
diff
changeset
|
138 |
21176
791dcb32b657
revamp sparse QR factorizatino classes
John W. Eaton <jwe@octave.org>
parents:
21160
diff
changeset
|
139 #if defined (HAVE_CXSPARSE) |
21229
a83e7a384ee0
create and install a subset of config.h in octave-config.h
John W. Eaton <jwe@octave.org>
parents:
21213
diff
changeset
|
140 # if defined (OCTAVE_ENABLE_64) |
21177
a10f60e13243
style fixes in liboctave/numeric directory
John W. Eaton <jwe@octave.org>
parents:
21176
diff
changeset
|
141 # define CXSPARSE_DNAME(name) cs_dl ## name |
a10f60e13243
style fixes in liboctave/numeric directory
John W. Eaton <jwe@octave.org>
parents:
21176
diff
changeset
|
142 # define CXSPARSE_ZNAME(name) cs_cl ## name |
a10f60e13243
style fixes in liboctave/numeric directory
John W. Eaton <jwe@octave.org>
parents:
21176
diff
changeset
|
143 # else |
a10f60e13243
style fixes in liboctave/numeric directory
John W. Eaton <jwe@octave.org>
parents:
21176
diff
changeset
|
144 # define CXSPARSE_DNAME(name) cs_di ## name |
a10f60e13243
style fixes in liboctave/numeric directory
John W. Eaton <jwe@octave.org>
parents:
21176
diff
changeset
|
145 # define CXSPARSE_ZNAME(name) cs_ci ## name |
a10f60e13243
style fixes in liboctave/numeric directory
John W. Eaton <jwe@octave.org>
parents:
21176
diff
changeset
|
146 # endif |
19139
afd6179d2616
allow building with new version of SuiteSparse (bug #43063)
John W. Eaton <jwe@octave.org>
parents:
17822
diff
changeset
|
147 #endif |
21176
791dcb32b657
revamp sparse QR factorizatino classes
John W. Eaton <jwe@octave.org>
parents:
21160
diff
changeset
|
148 |
21210
4f7d3989c462
move UMFPACK_DNAME and UMFPACK_ZNAME macros to oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
21177
diff
changeset
|
149 #if defined (HAVE_UMFPACK) |
21229
a83e7a384ee0
create and install a subset of config.h in octave-config.h
John W. Eaton <jwe@octave.org>
parents:
21213
diff
changeset
|
150 # if defined (OCTAVE_ENABLE_64) |
21210
4f7d3989c462
move UMFPACK_DNAME and UMFPACK_ZNAME macros to oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
21177
diff
changeset
|
151 # define UMFPACK_DNAME(name) umfpack_dl_ ## name |
4f7d3989c462
move UMFPACK_DNAME and UMFPACK_ZNAME macros to oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
21177
diff
changeset
|
152 # define UMFPACK_ZNAME(name) umfpack_zl_ ## name |
4f7d3989c462
move UMFPACK_DNAME and UMFPACK_ZNAME macros to oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
21177
diff
changeset
|
153 # else |
4f7d3989c462
move UMFPACK_DNAME and UMFPACK_ZNAME macros to oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
21177
diff
changeset
|
154 # define UMFPACK_DNAME(name) umfpack_di_ ## name |
4f7d3989c462
move UMFPACK_DNAME and UMFPACK_ZNAME macros to oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
21177
diff
changeset
|
155 # define UMFPACK_ZNAME(name) umfpack_zi_ ## name |
4f7d3989c462
move UMFPACK_DNAME and UMFPACK_ZNAME macros to oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
21177
diff
changeset
|
156 # endif |
21176
791dcb32b657
revamp sparse QR factorizatino classes
John W. Eaton <jwe@octave.org>
parents:
21160
diff
changeset
|
157 #endif |
21210
4f7d3989c462
move UMFPACK_DNAME and UMFPACK_ZNAME macros to oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
21177
diff
changeset
|
158 |
23391
209e749363a2
safe cast between SuiteSparse_long and octave_idx_type pointers (bug #50510)
John W. Eaton <jwe@octave.org>
parents:
23390
diff
changeset
|
159 #if (defined (HAVE_AMD) || defined (HAVE_CCOLAMD) \ |
209e749363a2
safe cast between SuiteSparse_long and octave_idx_type pointers (bug #50510)
John W. Eaton <jwe@octave.org>
parents:
23390
diff
changeset
|
160 || defined (HAVE_CHOLMOD) || defined (HAVE_COLAMD) \ |
209e749363a2
safe cast between SuiteSparse_long and octave_idx_type pointers (bug #50510)
John W. Eaton <jwe@octave.org>
parents:
23390
diff
changeset
|
161 || defined (HAVE_CXSPARSE) || defined (HAVE_UMFPACK)) |
209e749363a2
safe cast between SuiteSparse_long and octave_idx_type pointers (bug #50510)
John W. Eaton <jwe@octave.org>
parents:
23390
diff
changeset
|
162 |
209e749363a2
safe cast between SuiteSparse_long and octave_idx_type pointers (bug #50510)
John W. Eaton <jwe@octave.org>
parents:
23390
diff
changeset
|
163 namespace octave |
209e749363a2
safe cast between SuiteSparse_long and octave_idx_type pointers (bug #50510)
John W. Eaton <jwe@octave.org>
parents:
23390
diff
changeset
|
164 { |
209e749363a2
safe cast between SuiteSparse_long and octave_idx_type pointers (bug #50510)
John W. Eaton <jwe@octave.org>
parents:
23390
diff
changeset
|
165 # if defined (OCTAVE_ENABLE_64) |
209e749363a2
safe cast between SuiteSparse_long and octave_idx_type pointers (bug #50510)
John W. Eaton <jwe@octave.org>
parents:
23390
diff
changeset
|
166 typedef SuiteSparse_long suitesparse_integer; |
209e749363a2
safe cast between SuiteSparse_long and octave_idx_type pointers (bug #50510)
John W. Eaton <jwe@octave.org>
parents:
23390
diff
changeset
|
167 # else |
209e749363a2
safe cast between SuiteSparse_long and octave_idx_type pointers (bug #50510)
John W. Eaton <jwe@octave.org>
parents:
23390
diff
changeset
|
168 typedef int suitesparse_integer; |
209e749363a2
safe cast between SuiteSparse_long and octave_idx_type pointers (bug #50510)
John W. Eaton <jwe@octave.org>
parents:
23390
diff
changeset
|
169 # endif |
209e749363a2
safe cast between SuiteSparse_long and octave_idx_type pointers (bug #50510)
John W. Eaton <jwe@octave.org>
parents:
23390
diff
changeset
|
170 |
209e749363a2
safe cast between SuiteSparse_long and octave_idx_type pointers (bug #50510)
John W. Eaton <jwe@octave.org>
parents:
23390
diff
changeset
|
171 extern suitesparse_integer * |
209e749363a2
safe cast between SuiteSparse_long and octave_idx_type pointers (bug #50510)
John W. Eaton <jwe@octave.org>
parents:
23390
diff
changeset
|
172 to_suitesparse_intptr (octave_idx_type *i); |
209e749363a2
safe cast between SuiteSparse_long and octave_idx_type pointers (bug #50510)
John W. Eaton <jwe@octave.org>
parents:
23390
diff
changeset
|
173 |
209e749363a2
safe cast between SuiteSparse_long and octave_idx_type pointers (bug #50510)
John W. Eaton <jwe@octave.org>
parents:
23390
diff
changeset
|
174 extern const suitesparse_integer * |
209e749363a2
safe cast between SuiteSparse_long and octave_idx_type pointers (bug #50510)
John W. Eaton <jwe@octave.org>
parents:
23390
diff
changeset
|
175 to_suitesparse_intptr (const octave_idx_type *i); |
209e749363a2
safe cast between SuiteSparse_long and octave_idx_type pointers (bug #50510)
John W. Eaton <jwe@octave.org>
parents:
23390
diff
changeset
|
176 |
209e749363a2
safe cast between SuiteSparse_long and octave_idx_type pointers (bug #50510)
John W. Eaton <jwe@octave.org>
parents:
23390
diff
changeset
|
177 extern octave_idx_type* |
209e749363a2
safe cast between SuiteSparse_long and octave_idx_type pointers (bug #50510)
John W. Eaton <jwe@octave.org>
parents:
23390
diff
changeset
|
178 to_octave_idx_type_ptr (suitesparse_integer *i); |
209e749363a2
safe cast between SuiteSparse_long and octave_idx_type pointers (bug #50510)
John W. Eaton <jwe@octave.org>
parents:
23390
diff
changeset
|
179 |
209e749363a2
safe cast between SuiteSparse_long and octave_idx_type pointers (bug #50510)
John W. Eaton <jwe@octave.org>
parents:
23390
diff
changeset
|
180 extern const octave_idx_type* |
209e749363a2
safe cast between SuiteSparse_long and octave_idx_type pointers (bug #50510)
John W. Eaton <jwe@octave.org>
parents:
23390
diff
changeset
|
181 to_octave_idx_type_ptr (const suitesparse_integer *i); |
209e749363a2
safe cast between SuiteSparse_long and octave_idx_type pointers (bug #50510)
John W. Eaton <jwe@octave.org>
parents:
23390
diff
changeset
|
182 } |
209e749363a2
safe cast between SuiteSparse_long and octave_idx_type pointers (bug #50510)
John W. Eaton <jwe@octave.org>
parents:
23390
diff
changeset
|
183 |
21210
4f7d3989c462
move UMFPACK_DNAME and UMFPACK_ZNAME macros to oct-sparse.h
John W. Eaton <jwe@octave.org>
parents:
21177
diff
changeset
|
184 #endif |
23391
209e749363a2
safe cast between SuiteSparse_long and octave_idx_type pointers (bug #50510)
John W. Eaton <jwe@octave.org>
parents:
23390
diff
changeset
|
185 #endif |