Mercurial > octave-libtiff

comparison liboctave/cruft/misc/f77-fcn.h @ 21227:25150962bfd3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
eliminate CRUFT_API macro * oct-conf-post.in.h (CRUFT_API): Delete definition. * f77-fcn.h, lo-error.h, quit.h: Use OCTAVE_API instead of CRUFT_API.
author John W. Eaton <jwe@octave.org>
date Mon, 08 Feb 2016 20:40:55 -0500
parents f7121e111991
children a83e7a384ee0
comparison
equal deleted inserted replaced
21226:a55b8ece1ecd 21227:25150962bfd3
72 } \ 72 } \
73 } \ 73 } \
74 while (0) 74 while (0)
75 75
76 /* So we can check to see if an exception has occurred. */ 76 /* So we can check to see if an exception has occurred. */
77 CRUFT_API extern int f77_exception_encountered; 77 OCTAVE_API extern int f77_exception_encountered;
78 78
79 #if ! defined (F77_FCN) 79 #if ! defined (F77_FCN)
80 #define F77_FCN(f, F) F77_FUNC (f, F) 80 #define F77_FCN(f, F) F77_FUNC (f, F)
81 #endif 81 #endif
82 82
281 OCTAVE_LOCAL_BUFFER (char, cs, F77_CHAR_ARG_LEN_USE (s, len) + 1); \ 281 OCTAVE_LOCAL_BUFFER (char, cs, F77_CHAR_ARG_LEN_USE (s, len) + 1); \
282 memcpy (cs, F77_CHAR_ARG_USE (s), F77_CHAR_ARG_LEN_USE (s, len)); \ 282 memcpy (cs, F77_CHAR_ARG_USE (s), F77_CHAR_ARG_LEN_USE (s, len)); \
283 cs[F77_CHAR_ARG_LEN_USE(s, len)] = '\0' 283 cs[F77_CHAR_ARG_LEN_USE(s, len)] = '\0'
284 284
285 285
286 OCTAVE_NORETURN CRUFT_API extern 286 OCTAVE_NORETURN OCTAVE_API extern
287 F77_RET_T 287 F77_RET_T
288 F77_FUNC (xstopx, XSTOPX) (F77_CONST_CHAR_ARG_DECL 288 F77_FUNC (xstopx, XSTOPX) (F77_CONST_CHAR_ARG_DECL
289 F77_CHAR_ARG_LEN_DECL); 289 F77_CHAR_ARG_LEN_DECL);
290 290
291 #ifdef __cplusplus 291 #ifdef __cplusplus