#include "quit.h"
Go to the source code of this file.
Defines |
#define | xSTRINGIZE(x) #x |
#define | STRINGIZE(x) xSTRINGIZE(x) |
#define | F77_XFCN_ERROR(f, F) |
#define | F77_XFCN(f, F, args) |
#define | F77_FCN(f, F) F77_FUNC (f, F) |
#define | F77_CHAR_ARG(x) x |
#define | F77_CONST_CHAR_ARG(x) F77_CHAR_ARG (x) |
#define | F77_CHAR_ARG2(x, l) x |
#define | F77_CONST_CHAR_ARG2(x, l) F77_CHAR_ARG2 (x, l) |
#define | F77_CXX_STRING_ARG(x) F77_CONST_CHAR_ARG2 (x.c_str (), x.length ()) |
#define | F77_CHAR_ARG_LEN(l) , l |
#define | F77_CHAR_ARG_DECL char * |
#define | F77_CONST_CHAR_ARG_DECL const char * |
#define | F77_CHAR_ARG_LEN_DECL , long |
#define | F77_CHAR_ARG_DEF(s, len) char *s |
#define | F77_CONST_CHAR_ARG_DEF(s, len) const char *s |
#define | F77_CHAR_ARG_LEN_DEF(len) , long len |
#define | F77_CHAR_ARG_USE(s) s |
#define | F77_CHAR_ARG_LEN_USE(s, len) len |
#define | F77_RET_T int |
#define | F77_RETURN(retval) return retval; |
#define | F77_CSTRING(s, len, cs) |
Functions |
CRUFT_API F77_RET_T | F77_FUNC (xstopx, XSTOPX)(F77_CONST_CHAR_ARG_DECL F77_CHAR_ARG_LEN_DECL) GCC_ATTR_NORETURN |
Variables |
CRUFT_API int | f77_exception_encountered |
Define Documentation
#define F77_CHAR_ARG |
( |
|
x |
) |
x |
#define F77_CHAR_ARG2 |
( |
|
x, |
|
|
|
l | |
|
) |
| | x |
#define F77_CHAR_ARG_DECL char * |
#define F77_CHAR_ARG_DEF |
( |
|
s, |
|
|
|
len | |
|
) |
| | char *s |
#define F77_CHAR_ARG_LEN |
( |
|
l |
) |
, l |
#define F77_CHAR_ARG_LEN_DEF |
( |
|
len |
) |
, long len |
#define F77_CHAR_ARG_LEN_USE |
( |
|
s, |
|
|
|
len | |
|
) |
| | len |
#define F77_CHAR_ARG_USE |
( |
|
s |
) |
s |
#define F77_CONST_CHAR_ARG |
( |
|
x |
) |
F77_CHAR_ARG (x) |
#define F77_CONST_CHAR_ARG2 |
( |
|
x, |
|
|
|
l | |
|
) |
| | F77_CHAR_ARG2 (x, l) |
#define F77_CONST_CHAR_ARG_DEF |
( |
|
s, |
|
|
|
len | |
|
) |
| | const char *s |
#define F77_CSTRING |
( |
|
s, |
|
|
|
len, |
|
|
|
cs | |
|
) |
| | |
#define F77_CXX_STRING_ARG |
( |
|
x |
) |
F77_CONST_CHAR_ARG2 (x.c_str (), x.length ()) |
#define F77_FCN |
( |
|
f, |
|
|
|
F | |
|
) |
| | F77_FUNC (f, F) |
#define F77_RETURN |
( |
|
retval |
) |
return retval; |
#define F77_XFCN |
( |
|
f, |
|
|
|
F, |
|
|
|
args | |
|
) |
| | |
#define F77_XFCN_ERROR |
( |
|
f, |
|
|
|
F | |
|
) |
| | |
Value:(*current_liboctave_error_handler) \
("exception encountered in Fortran subroutine %s", \
STRINGIZE (F77_FUNC (f, F)))
#define STRINGIZE |
( |
|
x |
) |
xSTRINGIZE(x) |
#define xSTRINGIZE |
( |
|
x |
) |
#x |
Function Documentation
CRUFT_API F77_RET_T F77_FUNC |
( |
xstopx |
, |
|
|
XSTOPX |
| |
|
) |
| | |
Variable Documentation