blob: 36501d145dc37d5317f1a99a18446040384761d8 (
plain)
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
|
#ifndef _MACHDEFS_H_
#define _MACHDEFS_H_
#ifdef ANSI
#define PROTO(x) x
#else
#define PROTO(x) ()
#endif
#ifdef sgi
#define SGI
#endif
#if defined(SGI) || defined(CM5) || defined (DEC)
#define F77NAME(a,b,c) a
#else
#ifdef HP
#define F77NAME(a,b,c) b
#else
#ifdef CRAY
#define F77NAME(a,b,c) c
#endif
#endif
#endif
#ifndef F77NAME
#define F77NAME(a,b,c) a
#endif
#ifndef SX5
#ifndef SGI
#ifdef WIN32
typedef __int64 Long8;
#else
/* typedef long Long8; JMS 64-bit file offset kludge? */
#include <inttypes.h>
typedef int64_t Long8;
#endif
#else /* default SGI behavior. long longs=8 bytes long=4 bytes*/
typedef long long Long8;
#endif
#else /* Quick hack for SX5 */
typedef long long Long8;
#endif
#ifdef T3E
#ifndef FFIO
#define FFIO /* forces it to use FFIO if on a T3E */
#endif
typedef short Int; /* T3E uses 8-byte integers as default */
typedef short Long; /* this is wierd, but its a T3E... */
#else
typedef int Int; /* every other sane design uses 4-byte ints */
typedef int Long; /* for now Long *MUST* be 32bit integer for PC compatability */
/* if we run into problems later we'll just need have a separate rev of the file format for PC's */
#endif
#ifdef WIN32 /* this aint a happenin thang yet... */
/* #include <sys/types.h> ... bahh!!! Win32 doesn't have this! */
typedef unsigned int IOFile; /* cast to integer for pointers :( */
union Integer8 {
long l;
int i[2];
char c[8];
}; /* what can be said about the byte order though? */
#else /* its a Mac or Unix box probably */
#include <sys/types.h>
typedef caddr_t IOFile; /* use caddr_t to store pointers */
#endif
#ifdef HP
#define NO_RECURSIVE_INLINE
#endif
#ifndef CONST_BROKEN
#define CONST const
#else
#ifdef CONST
#undef CONST
#endif
#endif
#endif
|
