blob: 21d15e088296f2d1ee3bec59d4545fdb96b065d2 (
plain) (
blame)
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
|
/*
* GRAMMAR.H -- Include stuff for parser and other grammar-related routines.
*/
/* fieldcvt() takes the p_xxx parameter field spec and replaces it with
* one of these field_name letters. this makes testing and using fields much
* faster for paramget(), paramset(), etc.
* the letter is the first letter of the field, or the second if ambiguous.
* FN_NULL is to test when field came back from fieldcvt() unspecified.
* or when calling paramset() or paramget() and you want the "worth" field.
* The aliases for p_value all use FN_VALUE. see fieldcvt() in gram.c.
*/
#define FN_NAME 'N'
#define FN_TYPE 'T'
#define FN_MODE 'O'
#define FN_VALUE 'V'
#define FN_LENGTH 'L'
#define FN_MIN 'I'
#define FN_MAX 'A'
#define FN_PROMPT 'P'
#define FN_XTYPE 'X' /* Extended type (list, gcur, etc) */
#define FN_NULL '\0'
/* possible return values from keyword(), in gram.c.
*/
#define KWBAD (-1) /* keyword not found */
#define KWAMBIG (-2) /* keyword ambiguous */
/* magic constants.
*/
#define CL_EOF (-2) /* integer value of EOF in language */
#define CL_EOFSTR "-2" /* string equivalent of the above */
#define PBRACE 1000 /* start brace level in procedure */
#define NOLOG 0 /* do not save command block in logfile */
#define LOG 1 /* save command block in logfile */
/* Constants determining how the parser is being called. */
#define PARSE_PARAMS 0 /* Parsing parameters at beginning. */
#define PARSE_BODY 1 /* Parsing body of script. */
#define PARSE_FREE 2 /* Not a procedure script. */
/* Command/compute mode status package. The lexical mode may be set
* explicitly for a particular command input stream. While in command
* mode (the default), the sequence #{ at the beginning of a line causes
* compute mode to be permanently set for that stream (e.g., in a comment
* at the head of a script file). We use an otherwise unused bit in the
* stdio file descriptor flag word to record whether or not compute mode
* is set on a stream.
*/
#define _LEXBIT 0100000
#define lex_setcpumode(fp) ((fp)->_fflags |= _LEXBIT)
#define lex_clrcpumode(fp) ((fp)->_fflags &= ~_LEXBIT)
#define lex_cpumodeset(fp) ((fp)->_fflags & _LEXBIT)
extern int parse_state; /* What are we parsing? */
extern int proc_script; /* In a procedure script? */
extern struct pfile *parse_pfile; /* Where parsed params are added. */
char *today(); /* returns pointer to todays date */
|
