GammaLib 2.0.0
Loading...
Searching...
No Matches
GFitsCfitsio.hpp
Go to the documentation of this file.
1/***************************************************************************
2 * GFitsCfitsio.hpp - CFITSIO interface header *
3 * ----------------------------------------------------------------------- *
4 * copyright (C) 2008-2021 by Juergen Knoedlseder *
5 * ----------------------------------------------------------------------- *
6 * *
7 * This program is free software: you can redistribute it and/or modify *
8 * it under the terms of the GNU General Public License as published by *
9 * the Free Software Foundation, either version 3 of the License, or *
10 * (at your option) any later version. *
11 * *
12 * This program is distributed in the hope that it will be useful, *
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of *
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
15 * GNU General Public License for more details. *
16 * *
17 * You should have received a copy of the GNU General Public License *
18 * along with this program. If not, see <http://www.gnu.org/licenses/>. *
19 * *
20 ***************************************************************************/
21/**
22 * @file GFitsCfitsio.hpp
23 * @brief CFITSIO interface header
24 * @author Juergen Knoedlseder
25 */
26
27#ifndef GFITSCFITSIO_HPP
28#define GFITSCFITSIO_HPP
29
30/* __ Includes ___________________________________________________________ */
31#ifdef HAVE_CONFIG_H
32#include <config.h>
33#endif
34#include <cstring>
35
36/* __ Namespaces _________________________________________________________ */
37
38
39/***************************************************************************
40 * CFITSIO is available *
41 ***************************************************************************/
42#if defined(HAVE_LIBCFITSIO)
43
44#if defined(HAVE_CFITSIO_FITSIO_H)
45#include <cfitsio/fitsio.h>
46#elif defined(HAVE_LIBCFITSIO0_FITSIO_H)
47#include <libcfitsio0/fitsio.h>
48#else
49#include <fitsio.h>
50#endif
51
52/* __ Macros _____________________________________________________________ */
53#define __ffclos(A, B) ffclos(A, B)
54#define __ffcrim(A, B, C, D, E) ffcrim(A, B, C, D, E)
55#define __ffcrtb(A, B, C, D, E, F, G, H, I) ffcrtb(A, B, C, D, E, F, G, H, I)
56#define __ffdcol(A, B, C) ffdcol(A, B, C)
57#define __ffdelt(A, B) ffdelt(A, B)
58#define __ffdhdu(A, B, C) ffdhdu(A, B, C)
59#define __ffdrow(A, B, C, D) ffdrow(A, B, C, D)
60#define __ffflus(A, B) ffflus(A, B)
61#define __ffgabc(A, B, C, D, E, F) ffgabc(A, B, C, D, E, F)
62#define __ffgcv(A, B, C, D, E, F, G, H, I, J) ffgcv(A, B, C, D, E, F, G, H, I, J)
63#define __ffgcvb(A, B, C, D, E, F, G, H, I) ffgcvb(A, B, C, D, E, F, G, H, I)
64#define __ffgcvs(A, B, C, D, E, F, G, H, I) ffgcvs(A, B, C, D, E, F, G, H, I)
65#define __ffgdes(A, B, C, D, E, F) ffgdes(A, B, C, D, E, F)
66#define __ffgerr(A, B) ffgerr(A, B)
67#define __ffghdt(A, B, C) ffghdt(A, B, C)
68#define __ffghsp(A, B, C, D) ffghsp(A, B, C, D)
69#define __ffgidm(A, B, C) ffgidm(A, B, C)
70#define __ffgidt(A, B, C) ffgidt(A, B, C)
71#define __ffgiet(A, B, C) ffgiet(A, B, C)
72#define __ffgipr(A, B, C, D, E, F) ffgipr(A, B, C, D, E, F)
73#define __ffgisz(A, B, C, D) ffgisz(A, B, C, D)
74#define __ffgky(A, B, C, D, E, F) ffgky(A, B, C, D, E, F)
75#define __ffgkey(A, B, C, D, E) ffgkey(A, B, C, D, E)
76#define __ffgkyd(A, B, C, D, E) ffgkyd(A, B, C, D, E)
77#define __ffgkyn(A, B, C, D, E, F) ffgkyn(A, B, C, D, E, F)
78#define __ffgnrw(A, B, C) ffgnrw(A, B, C)
79#define __ffgncl(A, B, C) ffgncl(A, B, C)
80#define __ffgsv(A, B, C, D, E, F, G, H, I) ffgsv(A, B, C, D, E, F, G, H, I)
81#define __ffgtcl(A, B, C, D, E, F) ffgtcl(A, B, C, D, E, F)
82#define __ffibin(A, B, C, D, E, F, G, H, I) ffibin(A, B, C, D, E, F, G, H, I)
83#define __fficol(A, B, C, D, E) fficol(A, B, C, D, E)
84#define __ffiimg(A, B, C, D, E) ffiimg(A, B, C, D, E)
85#define __ffiimgll(A, B, C, D, E) ffiimgll(A, B, C, D, E)
86#define __ffinit(A, B, C) ffinit(A, B, C)
87#define __ffirow(A, B, C, D) ffirow(A, B, C, D)
88#define __ffitab(A, B, C, D, E, F, G, H, I, J) ffitab(A, B, C, D, E, F, G, H, I, J)
89#define __ffopen(A, B, C, D) ffopen(A, B, C, D)
90#define __ffmahd(A, B, C, D) ffmahd(A, B, C, D)
91#define __ffpcn(A, B, C, D, E, F, G, H, I) ffpcn(A, B, C, D, E, F, G, H, I)
92#define __ffpcom(A, B, C) ffpcom(A, B, C)
93#define __ffphis(A, B, C) ffphis(A, B, C)
94#define __ffpss(A, B, C, D, E, F) ffpss(A, B, C, D, E, F)
95#define __ffprec(A, B, C) ffprec(A, B, C)
96#define __ffrsim(A, B, C, D, E) ffrsim(A, B, C, D, E)
97#define __ffsrow(A, B, C, D) ffsrow(A, B, C, D)
98#define __ffthdu(A, B, C) ffthdu(A, B, C)
99#define __fftscl(A, B, C, D, E) fftscl(A, B, C, D, E)
100#define __ffuky(A, B, C, D, E, F) ffuky(A, B, C, D, E, F)
101#define __ffukye(A, B, C, D, E, F) ffukye(A, B, C, D, E, F)
102#define __ffukyd(A, B, C, D, E, F) ffukyd(A, B, C, D, E, F)
103#define __ffukyj(A, B, C, D, E) ffukyj(A, B, C, D, E)
104#define __ffukyl(A, B, C, D, E) ffukyl(A, B, C, D, E)
105#define __ffukys(A, B, C, D, E) ffukys(A, B, C, D, E)
106#define __ffukyu(A, B, C, D) ffukyu(A, B, C, D)
107#define __TNULL 0
108#define __TBIT TBIT
109#define __TBYTE TBYTE
110#define __TSBYTE TSBYTE
111#define __TLOGICAL TLOGICAL
112#define __TSTRING TSTRING
113#define __TUSHORT TUSHORT
114#define __TSHORT TSHORT
115#define __TUINT TUINT
116#define __TINT TINT
117#define __TULONG TULONG
118#define __TLONG TLONG
119#define __TFLOAT TFLOAT
120#define __TLONGLONG TLONGLONG
121#define __TDOUBLE TDOUBLE
122#define __TCOMPLEX TCOMPLEX
123#define __TDBLCOMPLEX TDBLCOMPLEX
124
125/* __ Type definition ____________________________________________________ */
126typedef fitsfile __fitsfile;
127
128/***************************************************************************
129 * CFITSIO is not available *
130 ***************************************************************************/
131#else
132
133/* __ Macros _____________________________________________________________ */
134#define __ffclos(A, B) __dummy()
135#define __ffcrim(A, B, C, D, E) __dummy()
136#define __ffcrtb(A, B, C, D, E, F, G, H, I) __dummy()
137#define __ffdcol(A, B, C) __dummy()
138#define __ffdelt(A, B) __dummy()
139#define __ffdhdu(A, B, C) __dummy()
140#define __ffdrow(A, B, C, D) __dummy()
141#define __ffflus(A, B) __dummy()
142#define __ffgabc(A, B, C, D, E, F) __dummy()
143#define __ffgcv(A, B, C, D, E, F, G, H, I, J) __dummy()
144#define __ffgcvb(A, B, C, D, E, F, G, H, I) __dummy()
145#define __ffgcvs(A, B, C, D, E, F, G, H, I) __dummy()
146#define __ffgdes(A, B, C, D, E, F) __dummy()
147#define __ffgerr(A, B) __error(A, B)
148#define __ffghdt(A, B, C) __dummy()
149#define __ffghsp(A, B, C, D) __dummy()
150#define __ffgidm(A, B, C) __dummy()
151#define __ffgidt(A, B, C) __dummy()
152#define __ffgiet(A, B, C) __dummy()
153#define __ffgipr(A, B, C, D, E, F) __dummy()
154#define __ffgisz(A, B, C, D) __dummy()
155#define __ffgky(A, B, C, D, E, F) __dummy()
156#define __ffgkey(A, B, C, D, E) __dummy()
157#define __ffgkyd(A, B, C, D, E) __dummy()
158#define __ffgkyn(A, B, C, D, E, F) __dummy()
159#define __ffgnrw(A, B, C) __dummy()
160#define __ffgncl(A, B, C) __dummy()
161#define __ffgsv(A, B, C, D, E, F, G, H, I) __dummy()
162#define __ffgtcl(A, B, C, D, E, F) __dummy()
163#define __ffibin(A, B, C, D, E, F, G, H, I) __dummy()
164#define __fficol(A, B, C, D, E) __dummy()
165#define __ffiimg(A, B, C, D, E) __dummy()
166#define __ffiimgll(A, B, C, D, E) __dummy()
167#define __ffinit(A, B, C) __dummy()
168#define __ffirow(A, B, C, D) __dummy()
169#define __ffitab(A, B, C, D, E, F, G, H, I, J) __dummy()
170#define __ffmahd(A, B, C, D) __dummy()
171#define __ffpcn(A, B, C, D, E, F, G, H, I) __dummy()
172#define __ffopen(A, B, C, D) __dummy()
173#define __ffpcom(A, B, C) __dummy()
174#define __ffphis(A, B, C) __dummy()
175#define __ffpss(A, B, C, D, E, F) __dummy()
176#define __ffprec(A, B, C) __dummy()
177#define __ffrsim(A, B, C, D, E) __dummy()
178#define __ffsrow(A, B, C, D) __dummy()
179#define __ffthdu(A, B, C) __dummy()
180#define __fftscl(A, B, C, D, E) __dummy()
181#define __ffuky(A, B, C, D, E, F) __dummy()
182#define __ffukye(A, B, C, D, E, F) __dummy()
183#define __ffukyd(A, B, C, D, E, F) __dummy()
184#define __ffukyj(A, B, C, D, E) __dummy()
185#define __ffukyl(A, B, C, D, E) __dummy()
186#define __ffukys(A, B, C, D, E) __dummy()
187#define __ffukyu(A, B, C, D) __dummy()
188#define __TNULL 0
189#define __TBIT 1
190#define __TBYTE 11
191#define __TSBYTE 12
192#define __TLOGICAL 14
193#define __TSTRING 16
194#define __TUSHORT 20
195#define __TSHORT 21
196#define __TUINT 30
197#define __TINT 31
198#define __TULONG 40
199#define __TLONG 41
200#define __TFLOAT 42
201#define __TLONGLONG 81
202#define __TDOUBLE 82
203#define __TCOMPLEX 83
204#define __TDBLCOMPLEX 163
205
206/* __ Type definition ____________________________________________________ */
207typedef struct {
208 int HDUposition; // HDU position in file; 0 = first HDU
209 int* Fptr; // Pointer to FITS file structure
210} __fitsfile;
211
212/* __ Dummy function _____________________________________________________ */
213inline
214void __error(int status, char* err_text)
215{
216 std::strcpy(err_text, "CFITSIO not available");
217}
218inline
219int __dummy(void)
220{
221 return 0;
222}
223
224#endif
225
226/* __ Common macros ______________________________________________________ */
227#define FPTR(A) ((__fitsfile*)A)
228#define FHANDLE(A) ((__fitsfile**)&A)
229#define FPTR_COPY(A, B) *((__fitsfile*)A) = *((__fitsfile*)B)
230
231#endif /* GFITSCFITSIO_HPP */
__error
void __error(int status, char *err_text)
Definition GFitsCfitsio.hpp:214
__dummy
int __dummy(void)
Definition GFitsCfitsio.hpp:219
__fitsfile
Definition GFitsCfitsio.hpp:207
__fitsfile::Fptr
int * Fptr
Definition GFitsCfitsio.hpp:209
__fitsfile::HDUposition
int HDUposition
Definition GFitsCfitsio.hpp:208