629 lines
21 KiB
C
629 lines
21 KiB
C
|
#ifndef h_compiler
|
||
|
|
#define h_compiler
|
||
|
|
/******************************************************************************
|
||
|
|
*
|
||
|
|
* Declarations for uniVerse compilers
|
||
|
|
*
|
||
|
|
* Module %M% Version %I% Date %H%
|
||
|
|
*
|
||
|
|
* (c) Copyright 1998 Ardent Software Inc. - All Rights Reserved
|
||
|
|
* This is unpublished proprietary source code of Ardent Software Inc.
|
||
|
|
* The copyright notice above does not evidence any actual or intented
|
||
|
|
* publication of such source code.
|
||
|
|
*
|
||
|
|
*******************************************************************************
|
||
|
|
*
|
||
|
|
* Maintenence log - insert most recent change descriptions at top
|
||
|
|
*
|
||
|
|
* Date.... GTAR# WHO Description.........................................
|
||
|
|
* 06/30/99 25276 JSM Added $OPTIONS PIOPEN.EXECUTE
|
||
|
|
* 10/14/98 23801 SAP Change copyrights.
|
||
|
|
* 08/20/98 23592 WSM Add $OPTION PIOPEN.MATREAD
|
||
|
|
* 06/08/98 23063 SAP Define yylenguc, yytextuc & yytextuc for HP-UX 11.
|
||
|
|
* 05/08/98 22411 KAM Remove opt_CONVERT from default INFORMATION options
|
||
|
|
* 12/08/97 18190 KAM Added $OPTION PIOPEN.MATCHFIELD
|
||
|
|
* 04/30/97 19665 JWT/FTW/JSM Add partial Advanced PICK READU constraints.
|
||
|
|
* 04/24/96 18241 DJL Added $OPTION INPUT.RETAIN
|
||
|
|
* 01/04/96 17851 DPB Added STRING.MATH compiler option for Temenos.
|
||
|
|
* 09/21/95 17377 DPB Added TIME.MICROSECONDS $OPTION.
|
||
|
|
* 02/08/95 14946 GMH Added opt_LOCATE.R83
|
||
|
|
* 01/04/95 15424 EAP Added PI/open flavor opt_INPUTAT
|
||
|
|
* 12/16/94 14947 JSW Added opt_PISELIDX for IMP
|
||
|
|
* 09/27/94 14961 DTM Added fWAIT and fUNTIL for GET/GETX
|
||
|
|
* 06/23/94 12568 DPB Add option INT.PRECISION for precision rounding in
|
||
|
|
* the Fint() function.
|
||
|
|
* 05/20/94 14010 JSW added fINPUT for CLEAR INPUT
|
||
|
|
* 05/12/94 13933 JSW Added opt_REMOD for IMP
|
||
|
|
* 05/11/94 13836 RM Added flags for ISOLATION LEVEL
|
||
|
|
* 04/28/94 12586 DPB Added opt_COMPPREC (precision based comparisions)
|
||
|
|
* 04/28/94 13817 JSW Added opt_ECALL (make enter same as call)
|
||
|
|
* 03/08/94 12297 JSW Added opt_PIOPENINC
|
||
|
|
* 03/08/94 12297 JSW Add HEADER.BRK and room for 32 more initial options.
|
||
|
|
* 03/08/94 12297 JSW Added FSELECT option.
|
||
|
|
* 03/08/94 12307 EAP Added RAW.OUTPUT plus room for 32 more options.
|
||
|
|
* 03/08/94 12297 JSW Add PI/Open Flavour options.
|
||
|
|
* 03/08/94 12297 JSW Add $IFDEF globals.
|
||
|
|
* 03/08/94 12297 JSW Add Vdefined for $DEFINE symbols.
|
||
|
|
* 03/08/94 12297 JSW Add keywords START,COMMIT and ABORT and keyflag1
|
||
|
|
* 03/08/94 12297 JSW Add ERROR special case for ON ERROR.
|
||
|
|
* 08/02/93 10978 SHK Port to DEC AXP
|
||
|
|
* 05/11/93 11417 JWT Allow functions to require lvalues for arguments
|
||
|
|
* 05/06/93 9781 JWT added SENTENCE() as synonym for @SENTENCE
|
||
|
|
* 04/28/93 10132 DTM Added opt_S to opt_REAL to support reality SELECT
|
||
|
|
* 10/27/92 10355 JWT Add ultix format support
|
||
|
|
* 08/18/92 7571 JWT Wide 0 support for boolean tests
|
||
|
|
* 02/14/92 8826 JWT enlarge error message buffer
|
||
|
|
* 10/25/91 8806 RM Support for transaction management in BASIC
|
||
|
|
* 10/25/91 6820 JWT add optimizer options
|
||
|
|
* 06/05/91 6820 JWT add optimizer options
|
||
|
|
* 12/12/90 7364 JWT add IN2 $OPTIONS RADIANS for radiand trig functs
|
||
|
|
* 08/24/90 7394 JWT add support for DEFFUN statement
|
||
|
|
* 04/24/90 6845 JWT pick printer close (options Z)
|
||
|
|
* 11/14/89 6183 JWT Longer variable name support
|
||
|
|
* 11/14/89 6133 JWT support INPUT ELSE syntax in pick flavor
|
||
|
|
* 11/13/89 5694 JWT turn on option W (IN2 insert) for prime flavor
|
||
|
|
* 03/17/89 5329 PHH IN2 compiler options
|
||
|
|
* 01/16/89 4050 PHH Make REALITY HEADING's same as PICK
|
||
|
|
* 10/14/88 5331 CT Added Fnego
|
||
|
|
* 08/16/88 4161 PHH Flavor dependant reads
|
||
|
|
* 07/25/88 - - Maintenence log purged at 5.2.1, see release 5.1.10.
|
||
|
|
*
|
||
|
|
*****************************************************************************/
|
||
|
|
|
||
|
|
#include "tree.h"
|
||
|
|
#include "DBFILE.h"
|
||
|
|
#include "param.h"
|
||
|
|
|
||
|
|
|
||
|
|
/************************************************************************
|
||
|
|
* *
|
||
|
|
* Symbol table definition *
|
||
|
|
* *
|
||
|
|
************************************************************************/
|
||
|
|
/* See words.c for a warning about these values. */
|
||
|
|
#define SYM_ATSYS_RETCODE 0
|
||
|
|
#define SYM_STDFIL 1
|
||
|
|
#define SYM_SELECTED 2
|
||
|
|
|
||
|
|
#define SYMDEF struct symdef
|
||
|
|
struct symdef
|
||
|
|
{
|
||
|
|
#ifdef NBASIC
|
||
|
|
char *name; /* Symbol name */
|
||
|
|
#else
|
||
|
|
char name[SYMsiz]; /* Symbol name */
|
||
|
|
#endif
|
||
|
|
int type; /* Symbol type (see above) */
|
||
|
|
int domain; /* Domain ( DOM_loc, DOM_com etc ) */
|
||
|
|
UVADDR address; /* Symbol address
|
||
|
|
* Variable number for local, common,
|
||
|
|
and subroutine arguments.
|
||
|
|
* Program location for labels.
|
||
|
|
-1 means not yet defined.
|
||
|
|
* The address of a null terminated
|
||
|
|
string for equates.
|
||
|
|
*/
|
||
|
|
int value; /* Misc value
|
||
|
|
* Flag for local variables having
|
||
|
|
been assigned a value
|
||
|
|
* Named common segment number for
|
||
|
|
common.
|
||
|
|
* Address of the chain for undefined
|
||
|
|
labels (see above) */
|
||
|
|
int xdim; /* the x dimension of non redimensionable
|
||
|
|
arrays */
|
||
|
|
int ydim; /* the y dimension of non redimensionable
|
||
|
|
arrays */
|
||
|
|
};
|
||
|
|
|
||
|
|
/************************************************************************
|
||
|
|
* *
|
||
|
|
* Symbol types *
|
||
|
|
* *
|
||
|
|
************************************************************************/
|
||
|
|
#define Vlvariable 1 /* local scaler */
|
||
|
|
#define Vcvariable 2 /* COMMON scaler */
|
||
|
|
#define Vuvariable 3 /* Unused variable(subarg only) */
|
||
|
|
#define Vsvariable 4 /* scaler subroutine argument */
|
||
|
|
#define Vavariable 5 /* @ Variable (read/write) */
|
||
|
|
#define Vrvariable 6 /* @ Variable (read only) */
|
||
|
|
#define Vrarray 7 /* run-time array */
|
||
|
|
#define Vfarray 8 /* 'fixed' array */
|
||
|
|
#define Vsarray 9 /* subroutine argument array */
|
||
|
|
#define Vlabel 10 /* Label */
|
||
|
|
#define Vcommon 11 /* Named common block */
|
||
|
|
#define Vprequate 12 /* Pre-defined equate */
|
||
|
|
#define Vequate 13 /* Equated symbol */
|
||
|
|
#define Vatvariable 14 /* @ Variable */
|
||
|
|
#define Vregister 15 /* Compiler generated register */
|
||
|
|
#define Vstring 16 /* String constant */
|
||
|
|
#define Vkstring 17 /* String constant (CALL name) */
|
||
|
|
#define Vinteger 18 /* Integer constant */
|
||
|
|
#define Vnumber 19 /* Floating point constant */
|
||
|
|
#define Vgci 20 /* General Call Interface */
|
||
|
|
#define Vdeffun 21 /* User DEFined FUNction */
|
||
|
|
#define Vdefined 22 /* defined symbol */
|
||
|
|
|
||
|
|
/************************************************************************
|
||
|
|
* *
|
||
|
|
* Lexical scanner flags *
|
||
|
|
* *
|
||
|
|
************************************************************************/
|
||
|
|
|
||
|
|
#define Lbflag 1 /* Check bosflag, then keyflag */
|
||
|
|
#define Lbfunc 2 /* Check bosflag, then Check for following '(' */
|
||
|
|
#define Lbos 3 /* Check bosflag */
|
||
|
|
#define Lelse 4 /* Special case: 'ELSE' */
|
||
|
|
#define Lend 5 /* Special case: 'END' */
|
||
|
|
#define Lflag 6 /* Check keyflag */
|
||
|
|
#define Lfunct 7 /* Check for following '(' */
|
||
|
|
#define Lloc 8 /* Special case: 'LOCATE' */
|
||
|
|
#define Llock 9 /* Special case: 'LOCKED' (also checks keyflag) */
|
||
|
|
#define Lloop 10 /* Special case: 'UNTIL' & 'WHILE' */
|
||
|
|
#define Lnext 11 /* Special case: 'NEXT' */
|
||
|
|
#define Lsub 12 /* Special case: 'SUBROUTINE' */
|
||
|
|
#define Lthen 13 /* Special case: 'THEN' */
|
||
|
|
#define Lget 14 /* Special case: 'GET(' */
|
||
|
|
#define Lseek 15 /* Special case: 'SEEK(' */
|
||
|
|
#define Lprntr 16 /* Special case: 'PRINTERR' */
|
||
|
|
#define Lexec 17 /* Special case: 'PERFORM' on Microdata */
|
||
|
|
#define Lstat 18 /* Special case: 'STATUS' */
|
||
|
|
#define Lerror 19 /* Special case: '(ON) ERROR */
|
||
|
|
#define Lbig 20 /* Special case: '$DEFINE, $UNDEFINE */
|
||
|
|
#define Lcdir 21 /* Special case: '$ELSE, $ENDIF */
|
||
|
|
|
||
|
|
/************************************************************************
|
||
|
|
* *
|
||
|
|
* Function flags *
|
||
|
|
* *
|
||
|
|
************************************************************************/
|
||
|
|
|
||
|
|
#define Fone 0x01 /* Fill optional paramaters with 1 (default 0) */
|
||
|
|
#define Fsemi 0x02 /* Allow last paramater to be seperated by ';' */
|
||
|
|
#define Fovlap 0x04 /* Use overlap counting functions or not */
|
||
|
|
#define Fseq 0x08 /* Use SEQ('') rule */
|
||
|
|
#define Fptrim 0x10 /* flags for new trim */
|
||
|
|
#define Fnull 0x20 /* Fill optional paramaters with null strings */
|
||
|
|
#define Fnego 0x40 /* Fill optional paramaters with -1 */
|
||
|
|
#define Ftrig 0x80 /* Set for trig functions */
|
||
|
|
#define Fatsentence -20 /* Special tag for SENTENCE() function */
|
||
|
|
|
||
|
|
/************************************************************************
|
||
|
|
* *
|
||
|
|
* Function lvalue argument flags *
|
||
|
|
* *
|
||
|
|
************************************************************************/
|
||
|
|
|
||
|
|
#define LVA_1 0x0001
|
||
|
|
#define LVA_2 0x0002
|
||
|
|
#define LVA_3 0x0004
|
||
|
|
#define LVA_4 0x0008
|
||
|
|
#define LVA_5 0x0010
|
||
|
|
#define LVA_6 0x0020
|
||
|
|
#define LVA_7 0x0040
|
||
|
|
#define LVA_8 0x0080
|
||
|
|
#define LVA_9 0x0100
|
||
|
|
#define LVA_10 0x0200
|
||
|
|
#define LVA_11 0x0400
|
||
|
|
|
||
|
|
/************************************************************************
|
||
|
|
* *
|
||
|
|
* Keyword flags *
|
||
|
|
* *
|
||
|
|
************************************************************************/
|
||
|
|
|
||
|
|
#define fALL 0x00000001 /* "ALL" */
|
||
|
|
#define fBEFORE 0x00000002 /* "BEFORE" */
|
||
|
|
#define fBY 0x00000004 /* "BY" */
|
||
|
|
#define fCASE 0x00000008 /* "CASE" */
|
||
|
|
#define fCLOSE 0x00000010 /* "CLOSE" */
|
||
|
|
#define fCOMMON 0x00000020 /* "COMMON" */
|
||
|
|
#define fDO 0x00000040 /* "DO" */
|
||
|
|
#define fEXE 0x00000080 /* Keywords for EXECUTE */
|
||
|
|
#define fFROM 0x00000100 /* "FROM" */
|
||
|
|
#define fGO 0x00000200 /* "GO", "GOSUB", "GOTO" */
|
||
|
|
#define fIN 0x00000400 /* "IN" */
|
||
|
|
#define fKEY 0x00000800 /* "KEY" */
|
||
|
|
#define fLIT 0x00001000 /* "LIT", "LITERALLY" */
|
||
|
|
#define fLOCK 0x00002000 /* "LOCKED" */
|
||
|
|
#define fMAT 0x00004000 /* "MAT" */
|
||
|
|
#define fOFF 0x00008000 /* "OFF" */
|
||
|
|
#define fON 0x00010000 /* "ON" */
|
||
|
|
#define fRESET 0x00020000 /* "RESET" */
|
||
|
|
#define fSET 0x00040000 /* "SETTING" */
|
||
|
|
#define fSTEP 0x00080000 /* "STEP" */
|
||
|
|
#define fTO 0x00100000 /* "TO" */
|
||
|
|
#define fARG 0x00200000 /* "ARG." */
|
||
|
|
#define fUSE 0x00400000 /* "USING" */
|
||
|
|
#define fCALLING 0x00400000 /* "CALLING" */
|
||
|
|
#define fDEC 0x08000000 /* Arguments of DECLARE */
|
||
|
|
#define fLPTR 0x10000000 /* "LPTR", "MTU" */
|
||
|
|
#define fWORK 0x20000000 /* "WORK" */
|
||
|
|
#define fERROR 0x40000000 /* "ERROR" */
|
||
|
|
#define fTRANSACT 0x80000000 /* "TRANSACTION" */
|
||
|
|
|
||
|
|
/* keyword1 flags */
|
||
|
|
|
||
|
|
#define fABORT 0x00000001 /* "ABORT" */
|
||
|
|
#define fCOMMIT 0x00000002 /* "COMMIT" */
|
||
|
|
#define fSTART 0x00000004 /* "START" */
|
||
|
|
#define fSETISO 0x00000010 /* ISOLATION */
|
||
|
|
#define fISOLEVEL 0x00000020 /* NO.ISOLATION ... SERIALIZABLE */
|
||
|
|
#define fINPUT 0x00000040 /* "INPUT" for CLEAR INPUT */
|
||
|
|
#define fWAIT 0x00000080 /* Wait flag for GET/GETX */
|
||
|
|
#define fUNTIL 0x00000100 /* UNTILCOND flag for GET/GETX */
|
||
|
|
|
||
|
|
/************************************************************************
|
||
|
|
* *
|
||
|
|
* Domain reference definitions *
|
||
|
|
* *
|
||
|
|
************************************************************************/
|
||
|
|
#define DOM_KON 0 /* Constants */
|
||
|
|
#define DOM_MAT 1 /* Special $MATRIX operator */
|
||
|
|
#define DOM_LOC 2 /* Local variables */
|
||
|
|
#define DOM_ARG 3 /* Subroutine arguments */
|
||
|
|
#define DOM_COM 4 /* Common variables */
|
||
|
|
|
||
|
|
/************************************************************************
|
||
|
|
* *
|
||
|
|
* Constant definitions *
|
||
|
|
* *
|
||
|
|
************************************************************************/
|
||
|
|
#define Kundef 0 /* this is not a constant */
|
||
|
|
#define Kstr 1 /* String */
|
||
|
|
#define Knum 2 /* Floating point number */
|
||
|
|
#define Kint 3 /* Integer */
|
||
|
|
#define Kkstr 4 /* Call String */
|
||
|
|
#define Kreg 5 /* Register */
|
||
|
|
#define Katv 6 /* @Variable */
|
||
|
|
|
||
|
|
#define KON union kon
|
||
|
|
union kon
|
||
|
|
{
|
||
|
|
STRING str;
|
||
|
|
double number;
|
||
|
|
int integer;
|
||
|
|
int regnum;
|
||
|
|
int atvnum;
|
||
|
|
};
|
||
|
|
|
||
|
|
#define KONST struct konst
|
||
|
|
struct konst
|
||
|
|
{
|
||
|
|
short type;
|
||
|
|
KON data;
|
||
|
|
};
|
||
|
|
|
||
|
|
/************************************************************************
|
||
|
|
* *
|
||
|
|
* Compiler option flags *
|
||
|
|
* *
|
||
|
|
* ABCDEFGHIJKLMNOPQRSTUVWXYZ *
|
||
|
|
* XXXXXXXXXXXXXXXXXXXXXXXXXX options all used 04/24/90 *
|
||
|
|
* *
|
||
|
|
* *
|
||
|
|
************************************************************************/
|
||
|
|
/* Don't use opt_A */
|
||
|
|
#define opt_E 0x00000001 /* ERRMSG file on STOP & ABORT statments*/
|
||
|
|
#define opt_F 0x00000002 /* FOR-NEXT termination value */
|
||
|
|
#define opt_H 0x00000004 /* HEADING statment automatic eject */
|
||
|
|
#define opt_I 0x00000008 /* INPUT statments suppress echo from DATA*/
|
||
|
|
#define opt_L 0x00000010 /* Locate <> beginning expression */
|
||
|
|
#define opt_M 0x00000020 /* create matrices at comp time,not runtime */
|
||
|
|
#define opt_P 0x00000040 /* PERFORM instead of EXECUTE */
|
||
|
|
#define opt_R 0x00000080 /* Print warning for no final end stmt */
|
||
|
|
#define opt_S 0x00000100 /* SELECT TO variable instead of number */
|
||
|
|
#define opt_V 0x00000200 /* + - * / Vector math routines */
|
||
|
|
#define opt_G 0x00000400 /* determines behaviour of ONGOTO, ONGOSUB*/
|
||
|
|
#define opt_O 0x00000800 /* turn on overlap counting in count,index */
|
||
|
|
#define opt_D 0x00001000 /* Treatment of data/time within HEADINGS*/
|
||
|
|
#define opt_N 0x00002000 /* Treatment of SEQ('') */
|
||
|
|
#define opt_X 0x00004000 /* Treatment of READNEXT */
|
||
|
|
#define opt_B 0x00008000 /* reality or ultimate PRINTERR */
|
||
|
|
#define opt_C 0x00010000 /* Microdata gets perfrom not exec */
|
||
|
|
#define opt_J 0x00020000 /* Prime flavored abort statement */
|
||
|
|
#define opt_K 0x00040000 /* REALITY flavored subtrsings */
|
||
|
|
#define opt_Q 0x00080000 /* PICK & REALITY flavored READ & READV */
|
||
|
|
#define opt_T 0x00100000 /* IN2 flavored subtrsings */
|
||
|
|
#define opt_U 0x00200000 /* SELECT is a noop when Select#0 active*/
|
||
|
|
#define opt_W 0x00400000 /* Inserting null elements difference */
|
||
|
|
#define opt_Y 0x00800000 /* INPUT statement may have THEN/ELSE */
|
||
|
|
#define opt_Z 0x01000000 /* Pick style PRINTER CLOSE statement */
|
||
|
|
#define opt_OCINFMT 0x02000000 /* allow oconv in by format */
|
||
|
|
#define opt_RADIANS 0x04000000 /* trig operations are in radians*/
|
||
|
|
#define opt_WIDEIF 0x08000000 /* testfw and testtw are used */
|
||
|
|
#define opt_ULTFMT 0x10000000 /* Ult/ix treatment of format */
|
||
|
|
#define opt_NOCASE 0x20000000 /* casing is not significant */
|
||
|
|
#define opt_MARKS 0x40000000 /* use PI/Open subset of mark chars */
|
||
|
|
#define opt_CONVERT 0x80000000 /* PI/ope style FMT, I/OCONV */
|
||
|
|
/*
|
||
|
|
* Added room for another 32 options
|
||
|
|
*/
|
||
|
|
#define opt_RAWOUTPUT 0x00000001 /* PI/open style RAW.OUTPUT */
|
||
|
|
#define opt_FSELECT 0x00000002 /* full Basic Select */
|
||
|
|
#define opt_HEADERBRK 0x00000004 /* PI/Open style header at brkpt */
|
||
|
|
#define opt_PIOPENINC 0x00000008 /* PI/Open insert/include */
|
||
|
|
#define opt_ECALL 0x00000010 /* PI/Open style call */
|
||
|
|
#define opt_COMPPREC 0x00000020 /* Precision based comparisions */
|
||
|
|
#define opt_REMOD 0x00000040 /* PI/open style REM/MOD */
|
||
|
|
#define opt_INTPREC 0x00000080 /* Precision rouding in Fint() */
|
||
|
|
#define opt_PISELIDX 0x00000100 /* PI/open style SELECTINDEX */
|
||
|
|
#define opt_INPUTAT 0x00000200 /* PI/open flavor INPUT @() */
|
||
|
|
#define opt_LOCATER83 0x00000400 /* Pick R83 AR locate */
|
||
|
|
#define opt_MILLITIME 0x00000800 /* Millisecond time from SYSTEM(12) */
|
||
|
|
#define opt_STRMATH 0x00001000 /* Use string math routines +,-,/,* */
|
||
|
|
#define opt_INPUTRET 0x00002000 /* $OPTION INPUT.RETAIN */
|
||
|
|
#define opt_APREADU 0x00004000 /*Partially emulate AP readu behavior */
|
||
|
|
#define opt_PIMATCHFLD 0x00008000 /* PI/open style MATCHFIELD */
|
||
|
|
#define opt_PIMATREAD 0x00010000 /* PI/open style MATREAD */
|
||
|
|
#define opt_PIEXECUTE 0x00020000 /* PI/open style EXECUTE */
|
||
|
|
|
||
|
|
#define opt0_IN2 (opt_E|opt_S|opt_F|opt_I|opt_M|opt_G|opt_O|opt_N|opt_Q|opt_T|opt_U|opt_W|opt_Z|opt_RADIANS|opt_WIDEIF)
|
||
|
|
#define opt1_IN2 0
|
||
|
|
|
||
|
|
#define opt0_PICK (opt_E|opt_S|opt_F|opt_I|opt_M|opt_G|opt_O|opt_N|opt_Q|opt_U|opt_Y|opt_Z|opt_WIDEIF)
|
||
|
|
#define opt1_PICK 0
|
||
|
|
|
||
|
|
#ifdef NBASIC
|
||
|
|
#define opt0_INFO (opt_H|opt_L|opt_R|opt_V|opt_P|opt_D|opt_X|opt_J|opt_W|opt_WIDEIF)
|
||
|
|
#define opt1_INFO 0
|
||
|
|
#else
|
||
|
|
#define opt0_INFO (opt_H|opt_L|opt_R|opt_V|opt_P|opt_D|opt_X|opt_J|opt_WIDEIF)
|
||
|
|
#define opt1_INFO 0
|
||
|
|
#endif
|
||
|
|
#define opt0_REAL (opt_E|opt_S|opt_F|opt_R|opt_I|opt_M|opt_O|opt_N|opt_B|opt_C|opt_K|opt_Q|opt_Z|opt_OCINFMT|opt_WIDEIF)
|
||
|
|
#define opt1_REAL 0
|
||
|
|
|
||
|
|
/* for PI/open compatability */
|
||
|
|
|
||
|
|
#define opt0_PIOPEN (opt0_INFO | opt_NOCASE | opt_MARKS)
|
||
|
|
#define opt1_PIOPEN (opt_HEADERBRK | opt_PIOPENINC | opt_ECALL | opt_REMOD | opt_PISELIDX | opt_INPUTAT)
|
||
|
|
|
||
|
|
|
||
|
|
/* #define opt0_SMA (opt_O|opt_P|opt_W|opt_F|opt_H|opt_Q|opt_X|opt_N|opt_M|opt_E|opt_S|opt_V|opt_NOCASE|opt_WIDEIF)
|
||
|
|
#define opt1_SMA 0 */
|
||
|
|
|
||
|
|
/* #define opt0_INFOA (opt_R|opt_P|opt_W|opt_F|opt_D|opt_H|opt_W|opt_J|opt_L|opt_Q|opt_X|opt_M|opt_V|opt_NOCASE|opt_WIDEIF)
|
||
|
|
#define opt1_INFOA 0 */
|
||
|
|
|
||
|
|
/************************************************************************
|
||
|
|
* *
|
||
|
|
* Optimization flags *
|
||
|
|
* *
|
||
|
|
************************************************************************/
|
||
|
|
|
||
|
|
#define NBOreduce_const 0x00000001 /* Recude constant expressions */
|
||
|
|
#define NBOignore_widez 0x00000002 /* Reduce WIDE_ZERO operations */
|
||
|
|
#define NBOjump_peep 0x00000004 /* Peephole jump optimization */
|
||
|
|
#define NBOdisplay_stat 0x80000000 /* Show optimization statistics */
|
||
|
|
#define NBOfull_optim 0xFFFFFFFF /* Preform all optimizations */
|
||
|
|
|
||
|
|
#define PEEP_JMP_MAX 10 /* Size of jump peephole */
|
||
|
|
|
||
|
|
#define DEFINED (0)
|
||
|
|
#define UNDEFINED (-1)
|
||
|
|
|
||
|
|
/************************************************************************
|
||
|
|
* *
|
||
|
|
* Error message definition *
|
||
|
|
* *
|
||
|
|
************************************************************************/
|
||
|
|
|
||
|
|
#define ERRDEF struct err
|
||
|
|
struct err
|
||
|
|
{
|
||
|
|
int lc; /* Line number error occured on */
|
||
|
|
int cc; /* Character count within line */
|
||
|
|
int cp; /* Used by error printing routine */
|
||
|
|
int yylast; /* Parser condition: */
|
||
|
|
int yychar; /* Parser condition: */
|
||
|
|
int yystate; /* Parser condition: */
|
||
|
|
char msg[100]; /* Text of the error message */
|
||
|
|
ERRDEF *next;
|
||
|
|
};
|
||
|
|
|
||
|
|
/************************************************************************
|
||
|
|
* *
|
||
|
|
* Include file state save record *
|
||
|
|
* *
|
||
|
|
************************************************************************/
|
||
|
|
|
||
|
|
#define ISAVE struct isave
|
||
|
|
struct isave
|
||
|
|
{
|
||
|
|
int fnum;
|
||
|
|
long pos;
|
||
|
|
long line;
|
||
|
|
};
|
||
|
|
|
||
|
|
/************************************************************************
|
||
|
|
* *
|
||
|
|
* Automatic token definition *
|
||
|
|
* *
|
||
|
|
************************************************************************/
|
||
|
|
|
||
|
|
#define TOKEN struct token
|
||
|
|
struct token
|
||
|
|
{
|
||
|
|
int lexeme;
|
||
|
|
int state;
|
||
|
|
YYSTYPE value;
|
||
|
|
};
|
||
|
|
|
||
|
|
#define nexttok(a) { autostk[autoptr].lexeme =(a); \
|
||
|
|
autostk[autoptr].state =lexstate; \
|
||
|
|
autostk[autoptr].value.count = 0 ; \
|
||
|
|
autoptr++; \
|
||
|
|
}
|
||
|
|
|
||
|
|
#define nextstate(a,b) { autostk[autoptr].lexeme =(a); \
|
||
|
|
autostk[autoptr].state =(b); \
|
||
|
|
autostk[autoptr].value.count = 0 ; \
|
||
|
|
autoptr++; \
|
||
|
|
}
|
||
|
|
#define nextval(a,b,c) { autostk[autoptr].lexeme = (a); \
|
||
|
|
autostk[autoptr].value.b = (c) ; \
|
||
|
|
autoptr++; \
|
||
|
|
}
|
||
|
|
/************************************************************************
|
||
|
|
* *
|
||
|
|
* $IFDEF *
|
||
|
|
* *
|
||
|
|
************************************************************************/
|
||
|
|
#define MAX_NESTED_IFDEFS 10
|
||
|
|
EXTERN int else_allowed[]; /* else allowed on ifdef */
|
||
|
|
EXTERN int nested_ifdefs; /* current level of nesting */
|
||
|
|
|
||
|
|
/************************************************************************
|
||
|
|
* *
|
||
|
|
* External variable declarations *
|
||
|
|
* *
|
||
|
|
************************************************************************/
|
||
|
|
|
||
|
|
EXTERN TREE *rootnode;
|
||
|
|
|
||
|
|
EXTERN DBFILE *VOC;
|
||
|
|
|
||
|
|
EXTERN ERRDEF *error,
|
||
|
|
**errlast;
|
||
|
|
|
||
|
|
EXTERN FILE *fline,
|
||
|
|
*fobj,
|
||
|
|
*fxref,
|
||
|
|
*yyin;
|
||
|
|
|
||
|
|
EXTERN ISAVE *iptr,
|
||
|
|
istack[];
|
||
|
|
|
||
|
|
EXTERN KONST *constant;
|
||
|
|
|
||
|
|
EXTERN STRING nulstr,
|
||
|
|
AMSTR,
|
||
|
|
whitespace;
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
EXTERN TOKEN autostk[];
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
EXTERN YYSTYPE yylval;
|
||
|
|
|
||
|
|
EXTERN char errmsg[],
|
||
|
|
*filein,
|
||
|
|
*fileobj,
|
||
|
|
*fileot,
|
||
|
|
*filesrc,
|
||
|
|
*ifile[],
|
||
|
|
*lexsave,
|
||
|
|
yysbuf[];
|
||
|
|
EXTERN char *yysptr;
|
||
|
|
|
||
|
|
EXTERN int *DOMbase;
|
||
|
|
|
||
|
|
EXTERN int EQUnum,
|
||
|
|
Hcc,
|
||
|
|
Lcc,
|
||
|
|
Llc,
|
||
|
|
SYMnum,
|
||
|
|
WRDmax,
|
||
|
|
autoptr,
|
||
|
|
bosflag,
|
||
|
|
whileflag,
|
||
|
|
cc,
|
||
|
|
ccompile,
|
||
|
|
condcode,
|
||
|
|
clrcommon,
|
||
|
|
comseen,
|
||
|
|
comc,
|
||
|
|
comn,
|
||
|
|
comv,
|
||
|
|
cvc,
|
||
|
|
cxref,
|
||
|
|
dynstate,
|
||
|
|
ec,
|
||
|
|
errc,
|
||
|
|
errflg,
|
||
|
|
ewarn,
|
||
|
|
fpc,
|
||
|
|
genflg,
|
||
|
|
ifptr,
|
||
|
|
keyflag,
|
||
|
|
keyflag1,
|
||
|
|
kvc,
|
||
|
|
lastline,
|
||
|
|
lastpc,
|
||
|
|
lblflag,
|
||
|
|
lblc,
|
||
|
|
lc,
|
||
|
|
lexflag,
|
||
|
|
lexlook,
|
||
|
|
lexstate,
|
||
|
|
lfflag,
|
||
|
|
lpflag,
|
||
|
|
lptr,
|
||
|
|
lvc,
|
||
|
|
tvc,
|
||
|
|
uarg,
|
||
|
|
uflag,
|
||
|
|
ueof,
|
||
|
|
lsc,csc,
|
||
|
|
objf,
|
||
|
|
options[2],
|
||
|
|
pc,
|
||
|
|
sc,
|
||
|
|
ss,
|
||
|
|
svc,
|
||
|
|
wc,
|
||
|
|
yyleng;
|
||
|
|
|
||
|
|
EXTERN short l_flag,
|
||
|
|
p_flag,
|
||
|
|
x_flag;
|
||
|
|
|
||
|
|
#if defined(HPUX11)
|
||
|
|
int yylenguc;
|
||
|
|
char yytextuc[16],
|
||
|
|
yytextarr[16];
|
||
|
|
#endif
|
||
|
|
|
||
|
|
|
||
|
|
/************************************************************************
|
||
|
|
* *
|
||
|
|
* External function definitions *
|
||
|
|
* *
|
||
|
|
************************************************************************/
|
||
|
|
|
||
|
|
EXTERN STRING callname();
|
||
|
|
|
||
|
|
EXTERN void addsym(),
|
||
|
|
intsym(),
|
||
|
|
evalinit(),
|
||
|
|
evalclose(),
|
||
|
|
eval(),
|
||
|
|
inckon(),
|
||
|
|
setkon(),
|
||
|
|
out_op(),
|
||
|
|
out_ref(),
|
||
|
|
out_int(),
|
||
|
|
out_short();
|
||
|
|
|
||
|
|
EXTERN int out_jump(),
|
||
|
|
yyparse();
|
||
|
|
|
||
|
|
EXTERN void align_pad(),
|
||
|
|
change_op(),
|
||
|
|
fix_address(),
|
||
|
|
incsym(),
|
||
|
|
lock_op(),
|
||
|
|
yyerror(),
|
||
|
|
xref();
|
||
|
|
|
||
|
|
struct rtab
|
||
|
|
{ char ucnt;
|
||
|
|
char dfnd;
|
||
|
|
ushort varnum;
|
||
|
|
};
|
||
|
|
|
||
|
|
#endif /* end of compiler */
|