ING_DB
This commit is contained in:
Oliver Lehmann
parent
e52eebf644
commit
c1a5330f1b
|
|
@ -0,0 +1,251 @@
|
|||
/*
|
||||
** --- R_CODE.H -------- BASIC DECLARATIONS ---------------------------------
|
||||
**
|
||||
** INTERFACE between REPORT
|
||||
** compiler and
|
||||
** interpreter (generator)
|
||||
**
|
||||
** Version: @(#)r_code.h 4.0 02/05/89
|
||||
**
|
||||
*/
|
||||
|
||||
|
||||
# include "r_useful.h"
|
||||
# include "r_dbs.h"
|
||||
|
||||
|
||||
/* conversion stuff */
|
||||
|
||||
# define BIT 2
|
||||
# define OCT 8
|
||||
# define DEC 10
|
||||
# define HEX 16
|
||||
|
||||
|
||||
/* TIME / DATE stuff */
|
||||
|
||||
# define SECOND 0
|
||||
# define MINUTE 1
|
||||
# define HOUR 2
|
||||
# define M_DAY 3 /* month day */
|
||||
# define MONTH 4
|
||||
# define YEAR 5
|
||||
# define W_DAY 6 /* week day */
|
||||
# define Y_DAY 7 /* year day */
|
||||
# define IS_DST 8 /* day light saving flag */
|
||||
|
||||
|
||||
/* variables */
|
||||
|
||||
# define MAX_VAR 500 /* user var's */
|
||||
# define MAX_BVAR 200
|
||||
# define VAR_VAR_MASK 0140000
|
||||
# define VAR_MASK 0100000
|
||||
# define VAR_VALUE 0037777
|
||||
|
||||
|
||||
/* DOMAIN handling */
|
||||
|
||||
struct desc_t
|
||||
{
|
||||
char domfrmt; /* format type */
|
||||
char domfrml; /* format length */
|
||||
short domoff; /* domain offset */
|
||||
};
|
||||
typedef struct desc_t DESC_T;
|
||||
|
||||
extern int Doms; /* # of actual domains */
|
||||
extern int Tup_len; /* actual tupel length */
|
||||
|
||||
|
||||
/* R-CODE ARGUMENT defaults */
|
||||
|
||||
# define A_BATCH 0
|
||||
# define A_BEFORE 0
|
||||
# define A_BIT 0
|
||||
# define A_BVAR 0
|
||||
# define A_CHAR 0
|
||||
# define A_COL 0
|
||||
# define A_DOM 0
|
||||
# define A_FROM 0
|
||||
# define A_GRAPHIC 50
|
||||
# define A_HEX 0
|
||||
# define A_INTEGER 0
|
||||
# define A_NEWLINE 1
|
||||
# define H_NEWLINE 512 /* high */
|
||||
# define L_NORM -99 /* low */
|
||||
# define A_NORM 100
|
||||
# define H_NORM 99 /* high */
|
||||
# define A_OCT 0
|
||||
# define A_POINT 6
|
||||
# define A_REAL 0
|
||||
# define A_REPEAT 1
|
||||
# define A_SCALE (double) 1
|
||||
# define A_SPACE 1
|
||||
# define A_SWITCH 0
|
||||
# define A_TO MAX_FIELD
|
||||
# define A_VAR 0
|
||||
# define B_IGNORE 01
|
||||
# define B_NORM 02
|
||||
|
||||
|
||||
/* R-CODE HEADER defaults */
|
||||
|
||||
# define D_COLS 132
|
||||
# define D_LINES 66
|
||||
# define D_ALL_LINES D_LINES
|
||||
# define D_FOR_ALL 0
|
||||
# define D_FIRST_PAGE 0
|
||||
# define D_LAST_PAGE MAX_I2
|
||||
# define D_FROM_TUPLE 0
|
||||
# define D_TO_TUPLE MAX_I2
|
||||
|
||||
|
||||
/* R-CODE BUFFER */
|
||||
|
||||
# define MIN_R_CODE 8
|
||||
# define MAX_R_CODE 8192
|
||||
|
||||
/* header */
|
||||
# define R_res "* reserved for further extensions *"
|
||||
extern int R_cols;
|
||||
extern int R_lines;
|
||||
extern int R_all_lines;
|
||||
extern int R_for_all;
|
||||
extern int R_first_page;
|
||||
extern int R_last_page;
|
||||
extern int R_from_tuple;
|
||||
extern int R_to_tuple;
|
||||
# define R_big *R_code
|
||||
|
||||
/* r-code */
|
||||
extern char R_code[];
|
||||
extern char *R_rc; /* r-code pointer */
|
||||
|
||||
|
||||
/* R-CODE-VALUES */
|
||||
enum R_CODE_VAL
|
||||
{
|
||||
|
||||
/* BOUND OPERATORS */
|
||||
rcEXPR, /* 0 */
|
||||
bdLT, /* < */
|
||||
bdEQ, /* == */
|
||||
bdLE, /* <= */
|
||||
bdGT, /* > */
|
||||
bdNE, /* != */
|
||||
bdGE, /* >= */
|
||||
|
||||
/* PUSH VALUES */
|
||||
/**/ L_PUSH, /* LOW push code */
|
||||
pushFALSE, /* COLUMN */
|
||||
pushTRUE,
|
||||
pushNULL,
|
||||
push1INT,
|
||||
push2INT,
|
||||
push4INT,
|
||||
pushREAL,
|
||||
pushSTRING,
|
||||
pushCONST, /* TIME/DATE const */
|
||||
pushCOL,
|
||||
pushLINE,
|
||||
pushALLINES,
|
||||
pushPAGE,
|
||||
pushTUPLE,
|
||||
pushLAST,
|
||||
pushVALUE,
|
||||
pushNEXT,
|
||||
pushVAR,
|
||||
pushSWITCH,
|
||||
/**/ H_PUSH, /* HIGH push code */
|
||||
|
||||
/* LOGICAL OPERATORS */
|
||||
rcNOT,
|
||||
rcOR,
|
||||
rcAND,
|
||||
rcEND_SET, /* end of expression */
|
||||
|
||||
/* ARITHMETIC OPERATORS */
|
||||
rcMIN, /* - (unary) */
|
||||
rcADD, /* + */
|
||||
rcSUB, /* - (binary) */
|
||||
rcMUL, /* * */
|
||||
rcDIV, /* / */
|
||||
rcDIV_R, /* : */
|
||||
rcMOD, /* % */
|
||||
|
||||
|
||||
/* ONE BYTE CODE */
|
||||
rcRC_END,
|
||||
rcRETURN,
|
||||
rcRTTS,
|
||||
rcEOTUP,
|
||||
rcALL,
|
||||
rcONE,
|
||||
rcDATE,
|
||||
rcTIME,
|
||||
prCOL,
|
||||
prLINE,
|
||||
prALLINES,
|
||||
prNEWPAGE,
|
||||
prPAGE,
|
||||
prTUPLE,
|
||||
/* THE ANACHRONISM CODE */
|
||||
/* prVAR has a one byte argument, but the var */
|
||||
/* value is not expected */
|
||||
prVAR,
|
||||
|
||||
/* TWO Bytes CODES */
|
||||
/* the one byte argument is an integer value, or */
|
||||
/* a variable, which contains the integer value */
|
||||
/**/ L_2_BYTES, /* LOW code */
|
||||
prCONST,
|
||||
prSPACE,
|
||||
prNEWLINE,
|
||||
prNEWCOL,
|
||||
prLAST,
|
||||
prVALUE,
|
||||
prNEXT,
|
||||
fmtB_BIT,
|
||||
fmtW_BIT,
|
||||
fmtB_OCT,
|
||||
fmtW_OCT,
|
||||
fmtB_DEC,
|
||||
fmtW_DEC,
|
||||
fmtB_HEX,
|
||||
fmtW_HEX,
|
||||
/* THE ANACHRONISM CODE */
|
||||
/* codes have more than two bytes, let */
|
||||
/* them read the rest self */
|
||||
prSTRING,
|
||||
prINPUT,
|
||||
fmtINT,
|
||||
fmtREAL,
|
||||
fmtCHAR,
|
||||
fmtGRAPH,
|
||||
|
||||
/* THREE BYTES CODES */
|
||||
/* the two bytes argument is a relative address */
|
||||
/**/ L_3_BYTES, /* LOW code */
|
||||
/* THE ANACHRONISM CODE */
|
||||
/* codes expects a one and a two byte argument, */
|
||||
/* give him both */
|
||||
rcCASE,
|
||||
rcREPEAT,
|
||||
/**/ H_2_BYTES, /* HIGH code */
|
||||
/* exception codes */
|
||||
onBATCH,
|
||||
onB_LINE,
|
||||
onE_LINE,
|
||||
onB_PAGE,
|
||||
onE_PAGE,
|
||||
/* jump / call */
|
||||
rcJUMP,
|
||||
rcCALL,
|
||||
/* expression / conditional */
|
||||
setVAR,
|
||||
setSWITCH,
|
||||
rcIF,
|
||||
rcTHEN,
|
||||
/**/ H_3_BYTES /* HIGH code */
|
||||
};
|
||||
Loading…
Reference in New Issue