Newer
Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
/*
fitscat_defs.h
*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
*
* Part of: The LDAC Tools
*
* Author: E.BERTIN, DeNIS/LDAC
*
* Contents: Simplified version of the LDACTools: internal defs
*
* Last modify: 16/08/2004
*
*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
*/
/* Check if we are using a configure script here */
#ifndef HAVE_CONFIG_H
#define VERSION "2.0"
#define DATE "2003-x-x"
#define HAVE_SYS_MMAN_H 1
#endif
/*------------------------ what, who, when and where ------------------------*/
#define BANNER "LDACTools"
#define COPYRIGHT "Emmanuel BERTIN (bertin@iap.fr)"
#define INSTITUTE "IAP/Leiden"
/*----------------------------- External constants --------------------------*/
extern int bswapflag; /* != 0 if bytes are swapped/IEEE */
/*----------------------------- Internal constants --------------------------*/
#define OUTPUT stdout /* where all msgs are sent */
#define KBYTE 1024 /* 1 kbyte! */
#define MBYTE (1024*KBYTE) /* 1 Mbyte! */
#define GBYTE (1024*MBYTE) /* 1 Gbyte! */
#define DATA_BUFSIZE (4*MBYTE) /* data buffer size for I/O's */
#define BODY_DEFRAM (256*MBYTE) /* a fair number by 1999 standards */
#define BODY_DEFVRAM (1.9*GBYTE) /* a fair number by 1999 standards */
#define BODY_DEFSWAPDIR "/tmp" /* OK at least for Unix systems */
#define BIG 1e+30 /* a huge number */
#ifndef PI
#define PI 3.14159265359 /* never met before? */
#endif
/* NOTES:
We must have: MAXCHARS >= 16
DATA_BUFSIZE >= 2 although DATA_BUFSIZE >= 100000
is better!!
*/
/*--------------------- in case of missing constants ------------------------*/
#ifndef SEEK_SET
#define SEEK_SET 0
#endif
#ifndef SEEK_CUR
#define SEEK_CUR 1
#endif
#ifndef EXIT_SUCCESS
#define EXIT_SUCCESS 0
#endif
#ifndef EXIT_FAILURE
#define EXIT_FAILURE -1
#endif
/*--------------------------------- typedefs --------------------------------*/
typedef unsigned char BYTE; /* a byte */
typedef int LONG; /* for DEC-Alpha... */
/*------------------------------- Other Macros -----------------------------*/
#if _LARGEFILE_SOURCE
#define FSEEKO fseeko
#define FTELLO ftello
#else
#define FSEEKO fseek
#define FTELLO ftell
#endif
#define QFREAD(ptr, size, file, fname) \
{if (fread(ptr, (size_t)(size), (size_t)1, file)!=1) \
error(EXIT_FAILURE, "*Error* while reading ", fname);;}
#define QFWRITE(ptr, size, file, fname) \
{if (fwrite(ptr, (size_t)(size), (size_t)1, file)!=1) \
error(EXIT_FAILURE, "*Error* while writing ", fname);;}
#define QFSEEK(file, offset, pos, fname) \
{if (FSEEKO(file, offset, pos)) \
error(EXIT_FAILURE,"*Error*: File positioning failed in ", \
fname);;}
#define QFTELL(file, pos, fname) \
{if ((pos=FTELLO(file))==-1) \
error(EXIT_FAILURE,"*Error*: File position unknown in ", \
fname);;}
#define QFREE(x) {free(x); x = NULL;}
#define QCALLOC(ptr, typ, nel) \
{if (!(ptr = (typ *)calloc((size_t)(nel),sizeof(typ)))) \
error(EXIT_FAILURE, "Not enough memory for ", \
#ptr " (" #nel " elements) !");;}
#define QMALLOC(ptr, typ, nel) \
{if (!(ptr = (typ *)malloc((size_t)(nel)*sizeof(typ)))) \
error(EXIT_FAILURE, "Not enough memory for ", \
#ptr " (" #nel " elements) !");;}
#define QMEMCPY(ptrin, ptrout, typ, nel) \
{if (!(ptrout = (typ *)malloc((size_t)(nel)*sizeof(typ)))) \
error(EXIT_FAILURE, "Not enough memory for ", \
#ptrout " (" #nel " elements) !"); \
memcpy(ptrout, ptrin, (size_t)(nel)*sizeof(typ));}
#define QREALLOC(ptr, typ, nel) \
{if (!(ptr = (typ *)realloc(ptr, (size_t)(nel)*sizeof(typ)))) \
error(EXIT_FAILURE, "Not enough memory for ", \
#ptr " (" #nel " elements) !");;}
#define RINT(x) (int)(floor(x+0.5))
#define QPRINTF if (qflag) fprintf
#define QFPRINTF(w,x) {if (qflag) \
fprintf(w, "\33[1M> %s\n\33[1A",x);;}
#define QGETKEY(tab, key, keyname, dest) \
{if (!(key = name_to_key(tab, keyname))) \
error(EXIT_FAILURE, "*Error*: No such parameter in catalog: ", \
keyname); \
dest = key->ptr;}
#define MIN(a,b) (a<b?a:b)