forked from adesutherland/CMS-370-BREXX
-
Notifications
You must be signed in to change notification settings - Fork 0
/
ldefs.h
142 lines (122 loc) · 3.22 KB
/
ldefs.h
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
/*
* $Id: ldefs.h,v 1.4 2008/07/14 13:09:21 bnv Exp $
* $Log: ldefs.h,v $
* Revision 1.4 2008/07/14 13:09:21 bnv
* MVS,CMS support
*
* Revision 1.3 2004/08/16 15:31:09 bnv
* Changed: From float to double
*
* Revision 1.2 2001/06/25 18:52:04 bnv
* Header -> Id
*
* Revision 1.1 1999/11/29 14:58:00 bnv
* Initial revision
*
*/
#ifndef __LDEFS_H__
#define __LDEFS_H__
/* ----------- some global data type definitions ------------------ */
typedef unsigned char byte;
typedef unsigned short word;
typedef unsigned long dword;
typedef int bool;
/* ---------------- comonly used definitions ----------------- */
#ifndef FALSE
# define FALSE 0
# define TRUE 1
#endif
#ifndef OFF
# define OFF 0
# define ON 1
#endif
#ifndef NO
# define NO 0
# define YES 1
#endif
#ifndef PI
# define PI 3.14159265358979323844
#endif
#define PIover180 1.74532925199433E-02
#define PIunder180 5.72957795130823E+01
#define Ln10 2.30258509299405
#define ONEoverLn10 0.43429448190325
#ifdef __MSDOS__
# define BREAK asm int 3;
#endif
/* --- BIT definitions --- */
#define MASK1 0x0001
#define MASK2 0x0003
#define MASK3 0x0007
#define MASK4 0x000f
#define MASK5 0x001f
#define MASK6 0x003f
#define MASK7 0x007f
#define MASK8 0x00ff
#define MASK9 0x01ff
#define MASK10 0x03ff
#define MASK11 0x07ff
#define MASK12 0x0fff
#define MASK13 0x1fff
#define MASK14 0x3fff
#define MASK15 0x7fff
#define MASK16 0xffff
#define BIT0 0x0001
#define BIT1 0x0002
#define BIT2 0x0004
#define BIT3 0x0008
#define BIT4 0x0010
#define BIT5 0x0020
#define BIT6 0x0040
#define BIT7 0x0080
#define BIT8 0x0100
#define BIT9 0x0200
#define BIT10 0x0400
#define BIT11 0x0800
#define BIT12 0x1000
#define BIT13 0x2000
#define BIT14 0x4000
#define BIT15 0x8000
#define BIT16 0x10000L
/* ------------------ comonly used macros -------------------- */
#define ISPRINT(c) ((c)>=' ' && (c)<='~' && (c)!='\'')
/*#define ISSPACE(c) ((c==0x09) || (c==0x0D) || (c==0x20))*/
#if defined(__CMS__) || defined(__MVS__) /* compiler bug hack */
#define HEXVAL(x) (((x)>='0')?((x)-'0'):(((x)&0x0F) + 9))
#else
#define HEXVAL(x) (((x)>='A')? \
((((x)>='a')? ((x)&(0xDF)) : (x)) -'A'+10) :\
((x)-'0'))
#endif
#define CTL(a) (('a') & 0x1F)
#define SWAP(a, b) a ^= b ^= a ^= b;
#define DIMENSION(p) (sizeof(p) / sizeof(p[0]))
#define ABS(a) (((a)<0)?-(a):(a))
#ifndef MAX
# define MAX(a, b) (((a)>(b))?(a):(b))
# define MIN(a, b) (((a)<(b))?(a):(b))
#endif
#define MAX3(a, b, c) MAX(MAX(a,b),c)
#define MAX4(a, b, c, d) MAX(MAX3(a,b,c),d)
#define MIN3(a, b, c) MIN(MIN(a,b),c)
#define MIN4(a, b, c, d) MIN(MIN3(a,b,c),d)
#define RANGE(a, x, b) ((x)<(a)?(a): ((x)>(b)?(b):(x)))
#define IN_RANGE(a, x, b) (((a) <= (x)) && ((x) <= (b)))
#define TRUNC(a) ((a)>=0? (int)(a) : (int)((a)-1))
#define ROUND(a) ((a)>=0? (int)((a)+0.5): -(int)(0.5-(a)))
#define CEILING(a) ((a)==(int)(a)? (int)(a): \
(a)>0? (int)(1+(int)(a)): -(int)(1+(int)(-(a))))
#define FRAC(x) ((x)-(double)((int)(x)))
#define SIGN(x) ((x)>0? 1:(((x)==0)?0:-1))
#define SQR(x) ((x)*(x))
#define RAD(a) ((a)*PIover180)
#define DEG(a) ((a)*PIunder180)
#define COSD(a) cos(RAD(a))
#define SIND(a) sin(RAD(a))
#define TAND(a) tan(RAD(a))
#define LOG(x) (log(x)*ONEoverLn10)
#define EXP10(x) exp((x)*Ln10)
#ifndef __BORLANDC__
# define huge
#endif
#endif