Mercurial > octave
annotate liboctave/util/f77-fcn.h @ 27919:1891570abac8
update Octave Project Developers copyright for the new year
In files that have the "Octave Project Developers" copyright notice,
update for 2020.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Mon, 06 Jan 2020 22:29:51 -0500 |
parents | b442ec6dda5c |
children | bd51beb6205e |
rev | line source |
---|---|
2544 | 1 /* |
2 | |
27919
1891570abac8
update Octave Project Developers copyright for the new year
John W. Eaton <jwe@octave.org>
parents:
27918
diff
changeset
|
3 Copyright (C) 1996-2020 The Octave Project Developers |
27918
b442ec6dda5c
use centralized file for copyright info for individual contributors
John W. Eaton <jwe@octave.org>
parents:
26377
diff
changeset
|
4 |
b442ec6dda5c
use centralized file for copyright info for individual contributors
John W. Eaton <jwe@octave.org>
parents:
26377
diff
changeset
|
5 See the file COPYRIGHT.md in the top-level directory of this distribution |
b442ec6dda5c
use centralized file for copyright info for individual contributors
John W. Eaton <jwe@octave.org>
parents:
26377
diff
changeset
|
6 or <https://octave.org/COPYRIGHT.html/>. |
b442ec6dda5c
use centralized file for copyright info for individual contributors
John W. Eaton <jwe@octave.org>
parents:
26377
diff
changeset
|
7 |
2544 | 8 |
9 This file is part of Octave. | |
10 | |
24534
194eb4bd202b
maint: Update punctuation for GPL v3 license text.
Rik <rik@octave.org>
parents:
24520
diff
changeset
|
11 Octave is free software: you can redistribute it and/or modify it |
22755
3a2b891d0b33
maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents:
22410
diff
changeset
|
12 under the terms of the GNU General Public License as published by |
24534
194eb4bd202b
maint: Update punctuation for GPL v3 license text.
Rik <rik@octave.org>
parents:
24520
diff
changeset
|
13 the Free Software Foundation, either version 3 of the License, or |
22755
3a2b891d0b33
maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents:
22410
diff
changeset
|
14 (at your option) any later version. |
2544 | 15 |
22755
3a2b891d0b33
maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents:
22410
diff
changeset
|
16 Octave is distributed in the hope that it will be useful, but |
3a2b891d0b33
maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents:
22410
diff
changeset
|
17 WITHOUT ANY WARRANTY; without even the implied warranty of |
3a2b891d0b33
maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents:
22410
diff
changeset
|
18 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
3a2b891d0b33
maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents:
22410
diff
changeset
|
19 GNU General Public License for more details. |
2544 | 20 |
21 You should have received a copy of the GNU General Public License | |
7016 | 22 along with Octave; see the file COPYING. If not, see |
24534
194eb4bd202b
maint: Update punctuation for GPL v3 license text.
Rik <rik@octave.org>
parents:
24520
diff
changeset
|
23 <https://www.gnu.org/licenses/>. |
2544 | 24 |
25 */ | |
26 | |
20791
f7084eae3318
maint: Use Octave coding conventions for #if statements.
Rik <rik@octave.org>
parents:
20545
diff
changeset
|
27 #if ! defined (octave_f77_fcn_h) |
2544 | 28 #define octave_f77_fcn_h 1 |
29 | |
21244
1473547f50f5
include octave-config.h in public header files
John W. Eaton <jwe@octave.org>
parents:
21229
diff
changeset
|
30 #include "octave-config.h" |
1473547f50f5
include octave-config.h in public header files
John W. Eaton <jwe@octave.org>
parents:
21229
diff
changeset
|
31 |
22843
a2809b2938d6
* f77-fcn.h (to_f77_int): New inline function.
John W. Eaton <jwe@octave.org>
parents:
22842
diff
changeset
|
32 #include "lo-error.h" |
4268 | 33 #include "quit.h" |
34 | |
21724
aba2e6293dd8
use "#if ..." consistently instead of "#ifdef" and "#ifndef"
John W. Eaton <jwe@octave.org>
parents:
21662
diff
changeset
|
35 #if defined (__cplusplus) |
22843
a2809b2938d6
* f77-fcn.h (to_f77_int): New inline function.
John W. Eaton <jwe@octave.org>
parents:
22842
diff
changeset
|
36 # include <limits> |
a2809b2938d6
* f77-fcn.h (to_f77_int): New inline function.
John W. Eaton <jwe@octave.org>
parents:
22842
diff
changeset
|
37 #endif |
a2809b2938d6
* f77-fcn.h (to_f77_int): New inline function.
John W. Eaton <jwe@octave.org>
parents:
22842
diff
changeset
|
38 |
a2809b2938d6
* f77-fcn.h (to_f77_int): New inline function.
John W. Eaton <jwe@octave.org>
parents:
22842
diff
changeset
|
39 #if defined (__cplusplus) |
2544 | 40 extern "C" { |
41 #endif | |
42 | |
24520
c5c11b07598a
refactor signal handling (bug #52757)
John W. Eaton <jwe@octave.org>
parents:
23426
diff
changeset
|
43 /* This macro is obsolete. */ |
2544 | 44 |
24520
c5c11b07598a
refactor signal handling (bug #52757)
John W. Eaton <jwe@octave.org>
parents:
23426
diff
changeset
|
45 #define F77_XFCN(f, F, args) \ |
c5c11b07598a
refactor signal handling (bug #52757)
John W. Eaton <jwe@octave.org>
parents:
23426
diff
changeset
|
46 F77_FUNC (f, F) args |
2544 | 47 |
20791
f7084eae3318
maint: Use Octave coding conventions for #if statements.
Rik <rik@octave.org>
parents:
20545
diff
changeset
|
48 #if ! defined (F77_FCN) |
24520
c5c11b07598a
refactor signal handling (bug #52757)
John W. Eaton <jwe@octave.org>
parents:
23426
diff
changeset
|
49 # define F77_FCN(f, F) F77_FUNC (f, F) |
3938 | 50 #endif |
51 | |
15128
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
52 /* |
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
53 |
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
54 The following macros are used for handling Fortran <-> C calling |
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
55 conventions. They are defined below for three different types of |
22134
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
56 systems, Cray (possibly now obsolete), Visual Fortran, and gfortran. |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
57 Note that we don't attempt to handle Fortran functions, we always use |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
58 subroutine wrappers for them and pass the return value as an extra |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
59 argument. |
15128
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
60 |
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
61 Use these macros to pass character strings from C to Fortran: |
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
62 |
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
63 F77_CHAR_ARG(x) |
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
64 F77_CONST_CHAR_ARG(x) |
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
65 F77_CXX_STRING_ARG(x) |
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
66 F77_CHAR_ARG_LEN(l) |
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
67 F77_CHAR_ARG_DECL |
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
68 F77_CONST_CHAR_ARG_DECL |
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
69 F77_CHAR_ARG_LEN_DECL |
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
70 |
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
71 Use these macros to write C-language functions that accept |
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
72 Fortran-style character strings: |
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
73 |
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
74 F77_CHAR_ARG_DEF(s, len) |
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
75 F77_CONST_CHAR_ARG_DEF(s, len) |
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
76 F77_CHAR_ARG_LEN_DEF(len) |
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
77 F77_CHAR_ARG_USE(s) |
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
78 F77_CHAR_ARG_LEN_USE(s, len) |
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
79 |
22133
59cadee1c74b
new macros for F77 data types
John W. Eaton <jwe@octave.org>
parents:
22022
diff
changeset
|
80 Use these macros for C++ code |
15128
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
81 |
22133
59cadee1c74b
new macros for F77 data types
John W. Eaton <jwe@octave.org>
parents:
22022
diff
changeset
|
82 F77_INT Equivalent to Fortran INTEGER type |
59cadee1c74b
new macros for F77 data types
John W. Eaton <jwe@octave.org>
parents:
22022
diff
changeset
|
83 F77_INT4 Equivalent to Fortran INTEGER*4 type |
59cadee1c74b
new macros for F77 data types
John W. Eaton <jwe@octave.org>
parents:
22022
diff
changeset
|
84 F77_DBLE Equivalent to Fortran DOUBLE PRECISION type |
59cadee1c74b
new macros for F77 data types
John W. Eaton <jwe@octave.org>
parents:
22022
diff
changeset
|
85 F77_REAL Equivalent to Fortran REAL type |
59cadee1c74b
new macros for F77 data types
John W. Eaton <jwe@octave.org>
parents:
22022
diff
changeset
|
86 F77_CMPLX Equivalent to Fortran COMPLEX type |
59cadee1c74b
new macros for F77 data types
John W. Eaton <jwe@octave.org>
parents:
22022
diff
changeset
|
87 F77_DBLE_CMPLX Equivalent to Fortran DOUBLE COMPLEX type |
59cadee1c74b
new macros for F77 data types
John W. Eaton <jwe@octave.org>
parents:
22022
diff
changeset
|
88 F77_LOGICAL Equivalent to Fortran LOGICAL type |
59cadee1c74b
new macros for F77 data types
John W. Eaton <jwe@octave.org>
parents:
22022
diff
changeset
|
89 F77_RET_T Return type of a C++ function that acts like a |
59cadee1c74b
new macros for F77 data types
John W. Eaton <jwe@octave.org>
parents:
22022
diff
changeset
|
90 Fortran subroutine. |
15128
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
91 |
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
92 Use these macros to return from C-language functions that are supposed |
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
93 to act like Fortran subroutines. F77_NORETURN is intended to be used |
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
94 as the last statement of such a function that has been tagged with a |
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
95 "noreturn" attribute. If the compiler supports the "noreturn" |
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
96 attribute or if F77_RET_T is void, then it should expand to nothing so |
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
97 that we avoid warnings about functions tagged as "noreturn" |
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
98 containing a return statement. Otherwise, it should expand to a |
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
99 statement that returns the given value so that we avoid warnings about |
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
100 not returning a value from a function declared to return something. |
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
101 |
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
102 F77_RETURN(retval) |
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
103 F77_NORETURN(retval) |
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
104 |
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
105 */ |
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
106 |
4552 | 107 #if defined (F77_USES_CRAY_CALLING_CONVENTION) |
108 | |
109 #include <fortran.h> | |
6072 | 110 |
22134
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
111 /* Use these macros to pass character strings from C to Fortran. Cray |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
112 Fortran uses a descriptor structure to pass a pointer to the string |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
113 and the length in a single argument. */ |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
114 |
4552 | 115 #define F77_CHAR_ARG(x) octave_make_cray_ftn_ch_dsc (x, strlen (x)) |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22157
diff
changeset
|
116 #define F77_CONST_CHAR_ARG(x) \ |
4552 | 117 octave_make_cray_const_ftn_ch_dsc (x, strlen (x)) |
4577 | 118 #define F77_CHAR_ARG2(x, l) octave_make_cray_ftn_ch_dsc (x, l) |
119 #define F77_CONST_CHAR_ARG2(x, l) octave_make_cray_const_ftn_ch_dsc (x, l) | |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22157
diff
changeset
|
120 #define F77_CXX_STRING_ARG(x) \ |
4552 | 121 octave_make_cray_const_ftn_ch_dsc (x.c_str (), x.length ()) |
122 #define F77_CHAR_ARG_LEN(l) | |
22134
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
123 #define F77_CHAR_ARG_LEN_TYPE |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
124 #define F77_CHAR_ARG_LEN_DECL |
4577 | 125 #define F77_CHAR_ARG_DECL octave_cray_ftn_ch_dsc |
126 #define F77_CONST_CHAR_ARG_DECL octave_cray_ftn_ch_dsc | |
6072 | 127 |
128 /* Use these macros to write C-language functions that accept | |
129 Fortran-style character strings. */ | |
130 #define F77_CHAR_ARG_DEF(s, len) octave_cray_ftn_ch_dsc s | |
131 #define F77_CONST_CHAR_ARG_DEF(s, len) octave_cray_ftn_ch_dsc s | |
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
132 #define F77_CHAR_ARG_LEN_DEF(len) |
6072 | 133 #define F77_CHAR_ARG_USE(s) s.ptr |
21662
5b9868c2e212
maint: Octave coding convention cleanups.
Rik <rik@octave.org>
parents:
21244
diff
changeset
|
134 #define F77_CHAR_ARG_LEN_USE(s, len) (s.mask.len >> 3) |
6072 | 135 |
4552 | 136 #define F77_RET_T int |
15128
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
137 |
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
138 /* Use these macros to return from C-language functions that are |
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
139 supposed to act like Fortran subroutines. F77_NORETURN is intended |
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
140 to be used as the last statement of such a function that has been |
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
141 tagged with a "noreturn" attribute. */ |
22134
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
142 |
4552 | 143 #define F77_RETURN(retval) return retval; |
21229
a83e7a384ee0
create and install a subset of config.h in octave-config.h
John W. Eaton <jwe@octave.org>
parents:
21227
diff
changeset
|
144 #if defined (HAVE_OCTAVE_NORETURN_ATTR) |
21202
f7121e111991
maint: indent #ifdef blocks in liboctave and src directories.
Rik <rik@octave.org>
parents:
21076
diff
changeset
|
145 # define F77_NORETURN(retval) |
15127
87411930d6c4
avoid "function declared 'noreturn' has a return statement" warning.
John W. Eaton <jwe@octave.org>
parents:
14138
diff
changeset
|
146 #else |
21202
f7121e111991
maint: indent #ifdef blocks in liboctave and src directories.
Rik <rik@octave.org>
parents:
21076
diff
changeset
|
147 # define F77_NORETURN(retval) return retval; |
15127
87411930d6c4
avoid "function declared 'noreturn' has a return statement" warning.
John W. Eaton <jwe@octave.org>
parents:
14138
diff
changeset
|
148 #endif |
4552 | 149 |
21066
258c787cd9ce
maint: Use "FIXME:" consistently in code base.
Rik <rik@octave.org>
parents:
21040
diff
changeset
|
150 /* FIXME: These should work for SV1 or Y-MP systems but will |
258c787cd9ce
maint: Use "FIXME:" consistently in code base.
Rik <rik@octave.org>
parents:
21040
diff
changeset
|
151 need to be changed for others. */ |
4552 | 152 |
4558 | 153 typedef union |
4552 | 154 { |
4558 | 155 const char *const_ptr; |
156 char *ptr; | |
4552 | 157 struct |
158 { | |
159 unsigned off : 6; | |
160 unsigned len : 26; | |
161 unsigned add : 32; | |
162 } mask; | |
4558 | 163 } octave_cray_descriptor; |
4552 | 164 |
165 typedef void *octave_cray_ftn_ch_dsc; | |
166 | |
25103
078b795c5219
maint: style check C++ ahead of 4.4 release.
Rik <rik@octave.org>
parents:
25054
diff
changeset
|
167 #if defined (__cplusplus) |
21202
f7121e111991
maint: indent #ifdef blocks in liboctave and src directories.
Rik <rik@octave.org>
parents:
21076
diff
changeset
|
168 # define OCTAVE_F77_FCN_INLINE inline |
4558 | 169 #else |
21202
f7121e111991
maint: indent #ifdef blocks in liboctave and src directories.
Rik <rik@octave.org>
parents:
21076
diff
changeset
|
170 # define OCTAVE_F77_FCN_INLINE |
4555 | 171 #endif |
172 | |
173 static OCTAVE_F77_FCN_INLINE octave_cray_ftn_ch_dsc | |
4552 | 174 octave_make_cray_ftn_ch_dsc (char *ptr_arg, unsigned long len_arg) |
175 { | |
176 octave_cray_descriptor desc; | |
177 desc.ptr = ptr_arg; | |
178 desc.mask.len = len_arg << 3; | |
4558 | 179 return *((octave_cray_ftn_ch_dsc *) &desc); |
4552 | 180 } |
181 | |
4555 | 182 static OCTAVE_F77_FCN_INLINE octave_cray_ftn_ch_dsc |
4552 | 183 octave_make_cray_const_ftn_ch_dsc (const char *ptr_arg, unsigned long len_arg) |
184 { | |
185 octave_cray_descriptor desc; | |
186 desc.const_ptr = ptr_arg; | |
187 desc.mask.len = len_arg << 3; | |
4558 | 188 return *((octave_cray_ftn_ch_dsc *) &desc); |
4552 | 189 } |
190 | |
22133
59cadee1c74b
new macros for F77 data types
John W. Eaton <jwe@octave.org>
parents:
22022
diff
changeset
|
191 #undef OCTAVE_F77_FCN_INLINE |
22157
c5842206aaea
maint: Strip trailing whitespace from source files.
John W. Eaton <jwe@octave.org>
parents:
22135
diff
changeset
|
192 |
4552 | 193 #elif defined (F77_USES_VISUAL_FORTRAN_CALLING_CONVENTION) |
194 | |
22134
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
195 /* Use these macros to pass character strings from C to Fortran. |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
196 Visual Fortran inserts the length after each character string |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
197 argument. */ |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
198 |
4552 | 199 #define F77_CHAR_ARG(x) x, strlen (x) |
200 #define F77_CONST_CHAR_ARG(x) F77_CHAR_ARG (x) | |
201 #define F77_CHAR_ARG2(x, l) x, l | |
202 #define F77_CONST_CHAR_ARG2(x, l) F77_CHAR_ARG2 (x, l) | |
203 #define F77_CXX_STRING_ARG(x) F77_CONST_CHAR_ARG2 (x.c_str (), x.length ()) | |
204 #define F77_CHAR_ARG_LEN(l) | |
22134
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
205 #define F77_CHAR_ARG_LEN_TYPE int |
4552 | 206 #define F77_CHAR_ARG_LEN_DECL |
22134
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
207 #define F77_CHAR_ARG_DECL char *, F77_CHAR_ARG_LEN_TYPE |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
208 #define F77_CONST_CHAR_ARG_DECL const char *, F77_CHAR_ARG_LEN_TYPE |
6072 | 209 |
22134
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
210 #define F77_CHAR_ARG_DEF(s, len) char *s, F77_CHAR_ARG_LEN_TYPE len |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
211 #define F77_CONST_CHAR_ARG_DEF(s, len) const char *s, F77_CHAR_ARG_LEN_TYPE len |
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
212 #define F77_CHAR_ARG_LEN_DEF(len) |
6072 | 213 #define F77_CHAR_ARG_USE(s) s |
214 #define F77_CHAR_ARG_LEN_USE(s, len) len | |
215 | |
4552 | 216 #define F77_RET_T void |
15128
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
217 |
15127
87411930d6c4
avoid "function declared 'noreturn' has a return statement" warning.
John W. Eaton <jwe@octave.org>
parents:
14138
diff
changeset
|
218 #define F77_RETURN(retval) return; |
87411930d6c4
avoid "function declared 'noreturn' has a return statement" warning.
John W. Eaton <jwe@octave.org>
parents:
14138
diff
changeset
|
219 #define F77_NORETURN(retval) |
4552 | 220 |
22134
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
221 #elif defined (F77_USES_GFORTRAN_CALLING_CONVENTION) |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
222 |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
223 /* Use these macros to pass character strings from C to Fortran. |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
224 gfortran appends length arguments for assumed size character |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
225 strings to the and ignores others. |
4552 | 226 |
22134
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
227 FIXME: I don't think we correctly handle the case of mixing some |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
228 fixed-length and some assumed-length character string arguments as |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
229 we don't handle each case separately, so it seems there could be |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
230 mismatch? However, I don't think we currently have to handle this |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
231 case in Octave. */ |
4552 | 232 |
233 #define F77_CHAR_ARG(x) x | |
234 #define F77_CONST_CHAR_ARG(x) F77_CHAR_ARG (x) | |
235 #define F77_CHAR_ARG2(x, l) x | |
236 #define F77_CONST_CHAR_ARG2(x, l) F77_CHAR_ARG2 (x, l) | |
237 #define F77_CXX_STRING_ARG(x) F77_CONST_CHAR_ARG2 (x.c_str (), x.length ()) | |
5760 | 238 #define F77_CHAR_ARG_LEN(l) , l |
25364
bbc47fb89973
use size_t for f77 char arg length params with GCC 8 (bug #53872)
John W. Eaton <jwe@octave.org>
parents:
25103
diff
changeset
|
239 #if defined (__GNUC__) && __GNUC__ >= 8 |
bbc47fb89973
use size_t for f77 char arg length params with GCC 8 (bug #53872)
John W. Eaton <jwe@octave.org>
parents:
25103
diff
changeset
|
240 # define F77_CHAR_ARG_LEN_TYPE size_t |
bbc47fb89973
use size_t for f77 char arg length params with GCC 8 (bug #53872)
John W. Eaton <jwe@octave.org>
parents:
25103
diff
changeset
|
241 #else |
bbc47fb89973
use size_t for f77 char arg length params with GCC 8 (bug #53872)
John W. Eaton <jwe@octave.org>
parents:
25103
diff
changeset
|
242 # define F77_CHAR_ARG_LEN_TYPE int |
bbc47fb89973
use size_t for f77 char arg length params with GCC 8 (bug #53872)
John W. Eaton <jwe@octave.org>
parents:
25103
diff
changeset
|
243 #endif |
22134
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
244 #define F77_CHAR_ARG_LEN_DECL , F77_CHAR_ARG_LEN_TYPE |
4552 | 245 #define F77_CHAR_ARG_DECL char * |
246 #define F77_CONST_CHAR_ARG_DECL const char * | |
6072 | 247 |
248 #define F77_CHAR_ARG_DEF(s, len) char *s | |
249 #define F77_CONST_CHAR_ARG_DEF(s, len) const char *s | |
22134
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
250 #define F77_CHAR_ARG_LEN_DEF(len) , F77_CHAR_ARG_LEN_TYPE len |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
251 #define F77_CHAR_ARG_USE(s) s |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
252 #define F77_CHAR_ARG_LEN_USE(s, len) len |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
253 |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
254 #define F77_RET_T void |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
255 |
22410
bc38c1ff6698
fix definition of F77_RETURN for gfortran
John W. Eaton <jwe@octave.org>
parents:
22402
diff
changeset
|
256 #define F77_RETURN(retval) return; |
22134
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
257 #if defined (HAVE_OCTAVE_NORETURN_ATTR) |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
258 # define F77_NORETURN(retval) |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
259 #else |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
260 # define F77_NORETURN(retval) return retval; |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
261 #endif |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
262 |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
263 #elif defined (F77_USES_F2C_CALLING_CONVENTION) |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
264 |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
265 /* Assume f2c-compatible calling convention. */ |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
266 |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
267 /* Use these macros to pass character strings from C to Fortran. f2c |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
268 appends all length arguments at the end of the parameter list. */ |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
269 |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
270 #define F77_CHAR_ARG(x) x |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
271 #define F77_CONST_CHAR_ARG(x) F77_CHAR_ARG (x) |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
272 #define F77_CHAR_ARG2(x, l) x |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
273 #define F77_CONST_CHAR_ARG2(x, l) F77_CHAR_ARG2 (x, l) |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
274 #define F77_CXX_STRING_ARG(x) F77_CONST_CHAR_ARG2 (x.c_str (), x.length ()) |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
275 #define F77_CHAR_ARG_LEN(l) , l |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
276 #define F77_CHAR_ARG_LEN_TYPE long |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
277 #define F77_CHAR_ARG_LEN_DECL , F77_CHAR_ARG_LEN_TYPE |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
278 #define F77_CHAR_ARG_DECL char * |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
279 #define F77_CONST_CHAR_ARG_DECL const char * |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
280 |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
281 #define F77_CHAR_ARG_DEF(s, len) char *s |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
282 #define F77_CONST_CHAR_ARG_DEF(s, len) const char *s |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
283 #define F77_CHAR_ARG_LEN_DEF(len) , F77_CHAR_ARG_LEN_TYPE len |
6072 | 284 #define F77_CHAR_ARG_USE(s) s |
285 #define F77_CHAR_ARG_LEN_USE(s, len) len | |
286 | |
4552 | 287 #define F77_RET_T int |
15128
4d52239daef5
improve internal documentation of F77_ macros.
John W. Eaton <jwe@octave.org>
parents:
15127
diff
changeset
|
288 |
4552 | 289 #define F77_RETURN(retval) return retval; |
21229
a83e7a384ee0
create and install a subset of config.h in octave-config.h
John W. Eaton <jwe@octave.org>
parents:
21227
diff
changeset
|
290 #if defined (HAVE_OCTAVE_NORETURN_ATTR) |
21202
f7121e111991
maint: indent #ifdef blocks in liboctave and src directories.
Rik <rik@octave.org>
parents:
21076
diff
changeset
|
291 # define F77_NORETURN(retval) |
15127
87411930d6c4
avoid "function declared 'noreturn' has a return statement" warning.
John W. Eaton <jwe@octave.org>
parents:
14138
diff
changeset
|
292 #else |
21202
f7121e111991
maint: indent #ifdef blocks in liboctave and src directories.
Rik <rik@octave.org>
parents:
21076
diff
changeset
|
293 # define F77_NORETURN(retval) return retval; |
15127
87411930d6c4
avoid "function declared 'noreturn' has a return statement" warning.
John W. Eaton <jwe@octave.org>
parents:
14138
diff
changeset
|
294 #endif |
4552 | 295 |
22134
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
296 #else |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
297 |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
298 #error "unknown C++ to Fortran calling convention" |
a51d5c5c71e6
handle gfortran and f2c calling conventions separately
John W. Eaton <jwe@octave.org>
parents:
22133
diff
changeset
|
299 |
4552 | 300 #endif |
301 | |
22841
5605a786086d
use typedefs instead of macros for F77 types
John W. Eaton <jwe@octave.org>
parents:
22755
diff
changeset
|
302 typedef double F77_DBLE; |
5605a786086d
use typedefs instead of macros for F77 types
John W. Eaton <jwe@octave.org>
parents:
22755
diff
changeset
|
303 typedef float F77_REAL; |
5605a786086d
use typedefs instead of macros for F77 types
John W. Eaton <jwe@octave.org>
parents:
22755
diff
changeset
|
304 typedef double _Complex F77_DBLE_CMPLX; |
5605a786086d
use typedefs instead of macros for F77 types
John W. Eaton <jwe@octave.org>
parents:
22755
diff
changeset
|
305 typedef float _Complex F77_CMPLX; |
22842
60405b73e439
provide separate typedefs for octave_idx_type and octave_f77_int_type
John W. Eaton <jwe@octave.org>
parents:
22841
diff
changeset
|
306 typedef octave_f77_int_type F77_INT; |
22841
5605a786086d
use typedefs instead of macros for F77 types
John W. Eaton <jwe@octave.org>
parents:
22755
diff
changeset
|
307 typedef int32_t F77_INT4; |
22842
60405b73e439
provide separate typedefs for octave_idx_type and octave_f77_int_type
John W. Eaton <jwe@octave.org>
parents:
22841
diff
changeset
|
308 typedef octave_f77_int_type F77_LOGICAL; |
22133
59cadee1c74b
new macros for F77 data types
John W. Eaton <jwe@octave.org>
parents:
22022
diff
changeset
|
309 |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22157
diff
changeset
|
310 #define F77_CMPLX_ARG(x) \ |
22135
407c66ae1e20
reduce warnings from GCC's link-time optimization feature (bug #48531)
John W. Eaton <jwe@octave.org>
parents:
22134
diff
changeset
|
311 reinterpret_cast<float _Complex *> (x) |
407c66ae1e20
reduce warnings from GCC's link-time optimization feature (bug #48531)
John W. Eaton <jwe@octave.org>
parents:
22134
diff
changeset
|
312 |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22157
diff
changeset
|
313 #define F77_CONST_CMPLX_ARG(x) \ |
22135
407c66ae1e20
reduce warnings from GCC's link-time optimization feature (bug #48531)
John W. Eaton <jwe@octave.org>
parents:
22134
diff
changeset
|
314 reinterpret_cast<const float _Complex *> (x) |
407c66ae1e20
reduce warnings from GCC's link-time optimization feature (bug #48531)
John W. Eaton <jwe@octave.org>
parents:
22134
diff
changeset
|
315 |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22157
diff
changeset
|
316 #define F77_DBLE_CMPLX_ARG(x) \ |
22135
407c66ae1e20
reduce warnings from GCC's link-time optimization feature (bug #48531)
John W. Eaton <jwe@octave.org>
parents:
22134
diff
changeset
|
317 reinterpret_cast<double _Complex *> (x) |
407c66ae1e20
reduce warnings from GCC's link-time optimization feature (bug #48531)
John W. Eaton <jwe@octave.org>
parents:
22134
diff
changeset
|
318 |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22157
diff
changeset
|
319 #define F77_CONST_DBLE_CMPLX_ARG(x) \ |
22135
407c66ae1e20
reduce warnings from GCC's link-time optimization feature (bug #48531)
John W. Eaton <jwe@octave.org>
parents:
22134
diff
changeset
|
320 reinterpret_cast<const double _Complex *> (x) |
407c66ae1e20
reduce warnings from GCC's link-time optimization feature (bug #48531)
John W. Eaton <jwe@octave.org>
parents:
22134
diff
changeset
|
321 |
6072 | 322 /* Build a C string local variable CS from the Fortran string parameter S |
323 declared as F77_CHAR_ARG_DEF(s, len) or F77_CONST_CHAR_ARG_DEF(s, len). | |
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
324 The string will be cleaned up at the end of the current block. |
6072 | 325 Needs to include <cstring> and <vector>. */ |
326 | |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22157
diff
changeset
|
327 #define F77_CSTRING(s, len, cs) \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22157
diff
changeset
|
328 OCTAVE_LOCAL_BUFFER (char, cs, F77_CHAR_ARG_LEN_USE (s, len) + 1); \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22157
diff
changeset
|
329 memcpy (cs, F77_CHAR_ARG_USE (s), F77_CHAR_ARG_LEN_USE (s, len)); \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22157
diff
changeset
|
330 cs[F77_CHAR_ARG_LEN_USE(s, len)] = '\0' |
6072 | 331 |
21227 | 332 OCTAVE_NORETURN OCTAVE_API extern |
21076
b433f9990452
strip trailing whitespace from files
John W. Eaton <jwe@octave.org>
parents:
21066
diff
changeset
|
333 F77_RET_T |
4801 | 334 F77_FUNC (xstopx, XSTOPX) (F77_CONST_CHAR_ARG_DECL |
21029
e3b3bb522d62
maint: Move GCC_ attributes to start of declaration for future compatibility.
Rik <rik@octave.org>
parents:
20791
diff
changeset
|
335 F77_CHAR_ARG_LEN_DECL); |
4552 | 336 |
21724
aba2e6293dd8
use "#if ..." consistently instead of "#ifdef" and "#ifndef"
John W. Eaton <jwe@octave.org>
parents:
21662
diff
changeset
|
337 #if defined (__cplusplus) |
22843
a2809b2938d6
* f77-fcn.h (to_f77_int): New inline function.
John W. Eaton <jwe@octave.org>
parents:
22842
diff
changeset
|
338 |
22988
cd33c785e80e
put to_f77_int inside octave namespace
John W. Eaton <jwe@octave.org>
parents:
22944
diff
changeset
|
339 namespace octave |
22843
a2809b2938d6
* f77-fcn.h (to_f77_int): New inline function.
John W. Eaton <jwe@octave.org>
parents:
22842
diff
changeset
|
340 { |
22988
cd33c785e80e
put to_f77_int inside octave namespace
John W. Eaton <jwe@octave.org>
parents:
22944
diff
changeset
|
341 inline F77_INT |
cd33c785e80e
put to_f77_int inside octave namespace
John W. Eaton <jwe@octave.org>
parents:
22944
diff
changeset
|
342 to_f77_int (octave_idx_type x) |
cd33c785e80e
put to_f77_int inside octave namespace
John W. Eaton <jwe@octave.org>
parents:
22944
diff
changeset
|
343 { |
cd33c785e80e
put to_f77_int inside octave namespace
John W. Eaton <jwe@octave.org>
parents:
22944
diff
changeset
|
344 if (x < std::numeric_limits<F77_INT>::min () |
cd33c785e80e
put to_f77_int inside octave namespace
John W. Eaton <jwe@octave.org>
parents:
22944
diff
changeset
|
345 || x > std::numeric_limits<F77_INT>::max ()) |
cd33c785e80e
put to_f77_int inside octave namespace
John W. Eaton <jwe@octave.org>
parents:
22944
diff
changeset
|
346 (*current_liboctave_error_handler) |
cd33c785e80e
put to_f77_int inside octave namespace
John W. Eaton <jwe@octave.org>
parents:
22944
diff
changeset
|
347 ("integer dimension or index out of range for Fortran INTEGER type"); |
22843
a2809b2938d6
* f77-fcn.h (to_f77_int): New inline function.
John W. Eaton <jwe@octave.org>
parents:
22842
diff
changeset
|
348 |
22988
cd33c785e80e
put to_f77_int inside octave namespace
John W. Eaton <jwe@octave.org>
parents:
22944
diff
changeset
|
349 return static_cast<F77_INT> (x); |
cd33c785e80e
put to_f77_int inside octave namespace
John W. Eaton <jwe@octave.org>
parents:
22944
diff
changeset
|
350 } |
cd33c785e80e
put to_f77_int inside octave namespace
John W. Eaton <jwe@octave.org>
parents:
22944
diff
changeset
|
351 } |
22843
a2809b2938d6
* f77-fcn.h (to_f77_int): New inline function.
John W. Eaton <jwe@octave.org>
parents:
22842
diff
changeset
|
352 |
a2809b2938d6
* f77-fcn.h (to_f77_int): New inline function.
John W. Eaton <jwe@octave.org>
parents:
22842
diff
changeset
|
353 #endif |
a2809b2938d6
* f77-fcn.h (to_f77_int): New inline function.
John W. Eaton <jwe@octave.org>
parents:
22842
diff
changeset
|
354 |
a2809b2938d6
* f77-fcn.h (to_f77_int): New inline function.
John W. Eaton <jwe@octave.org>
parents:
22842
diff
changeset
|
355 #if defined (__cplusplus) |
2544 | 356 } |
357 #endif | |
358 | |
359 #endif |