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
|
/* XPP error codes.
*/
#define XPP_OK OSOK /* no problems */
#define XPP_COMPERR 101 /* compiler error */
#define XPP_BADXFILE 102 /* cannot open .x file */
#define XPP_SYNTAX 104 /* language error */
#define F77 /* Fortran 77 target compiler? */
#define IRAFLIB "iraf$lib/"
#define HOSTLIB "host$hlib/"
#define HBIN_INCLUDES "hbin$arch_includes/"
/* Size limiting definitions.
*/
#define MAX_TASKS 100 /* max no. of tasks we can handle */
#define SZ_OBUF 131072 /* buffers procedure body */
#define SZ_DBUF 8192 /* for errchk, common, ect. decls */
#define SZ_SBUF 8192 /* buffers text of strings */
#define MAX_STRINGS 256 /* max strings in a procedure */
#define MAX_INCLUDE 5 /* maximum nesting of includes */
#define MIN_REALPREC 7 /* used by HMS */
#define SZ_NUMBUF 32 /* for numeric constants */
#define SZ_STBUF 4096 /* text of defined strings */
#define MAX_DEFSTR 128 /* max defined strings */
#define RUNTASK "sysruk.x"
#define OCTAL 8
#define DECIMAL 10
#define HEX 16
#define CHARCON 1
#define SEXAG 2
/* Contexts.
*/
#define GLOBAL 01
#define DECL 02
#define BODY 04
#define DEFSTMT 010
#define DATASTMT 020
#define PROCSTMT 040
/* String type codes.
*/
#define STR_INLINE 0
#define STR_DEFINE 1
#define STR_DECL 2
/* SPP keywords. The datatype keywords bool through pointer must be assigned
* the lowest numbers.
*/
#define XTY_BOOL 1
#define XTY_CHAR 2
#define XTY_SHORT 3
#define XTY_INT 4
#define XTY_LONG 5
#define XTY_REAL 6
#define XTY_DOUBLE 7
#define XTY_COMPLEX 8
#define XTY_POINTER 9
#define XTY_PROC 10
#define XTY_TRUE 11
#define XTY_FALSE 12
#define XTY_IFERR 13
#define XTY_IFNOERR 14
#define XTY_EXTERN 15
#define XTY_ERROR 16
#define MAX_KEY 16
/* RPP type keywords (must match type codes above).
*/
#define RPP_TYPES {\
"",\
"x$bool",\
"x$short", /* MACHDEP */\
"x$short",\
"x$int",\
"x$long",\
"x$real",\
"x$dble",\
"x$cplx",\
"x$pntr",\
"x$fcn",\
".true.",\
".false.",\
"iferr",\
"ifnoerr",\
"x$extn",\
"error"\
}
|
