mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 16:34:07 +00:00
205 lines
4.0 KiB
C
205 lines
4.0 KiB
C
/*
|
|
Copyright 1982
|
|
Alcyon Corporation
|
|
8716 Production Ave.
|
|
San Diego, Ca. 92121
|
|
*/
|
|
|
|
#include "machine.h"
|
|
#ifdef WHITESM
|
|
# include <stdio.h>
|
|
# include <klib.h>
|
|
# define ALTER_PR 1
|
|
#endif
|
|
#ifdef CPM
|
|
# include <stdio.h>
|
|
# include <klib.h>
|
|
# define ALTER_PR 1
|
|
#endif
|
|
|
|
#ifdef DECC
|
|
# define ALTER_PR 1
|
|
# define NONEST 1
|
|
#endif
|
|
|
|
#ifdef VERSADOS
|
|
# define NONEST 1
|
|
# define NOFORKS 1
|
|
# define ALTER_PR 1
|
|
#endif
|
|
|
|
|
|
#ifdef VAX11
|
|
# ifndef VMS
|
|
# define UNIX 1
|
|
# endif
|
|
#endif
|
|
|
|
#ifdef PDP11
|
|
# define UNIX 1
|
|
#endif
|
|
|
|
/*cexpr operators*/
|
|
#define EOF 0
|
|
#define SUB 1
|
|
#define ADD 2
|
|
#define NOT 3
|
|
#define NEG 4
|
|
#define LPAREN 5
|
|
#define RPAREN 6
|
|
#define QMARK 7
|
|
#define COLON 8
|
|
#define OR 9
|
|
#define AND 10
|
|
#define XOR 11
|
|
#define EQUAL 12
|
|
#define NEQUAL 13
|
|
#define LESS 14
|
|
#define LSEQUAL 15
|
|
#define GREAT 16
|
|
#define GREQUAL 17
|
|
#define LSHIFT 18
|
|
#define RSHIFT 19
|
|
#define MULT 20
|
|
#define DIV 21
|
|
#define MOD 22
|
|
#define COMPL 23
|
|
#define CONST 24
|
|
#define LASTOP COMPL /*up to here used by cexpr*/
|
|
#define SQUOTE 25
|
|
#define DQUOTE 26
|
|
#define ANYC 27
|
|
#define BADC 28
|
|
#define COMMA 29
|
|
#define NEWL 30
|
|
#define POUND 31
|
|
#define ALPHA 32
|
|
#define DIGIT 33
|
|
#define BSLASH 34
|
|
#define WHITE 35
|
|
|
|
/* Types of preprocessor macros */
|
|
#define DEFINE 1
|
|
#define UNDEF 2
|
|
#define INCLUDE 3
|
|
#define IFDEF 4
|
|
#define IFNDEF 5
|
|
#define ELSE 6
|
|
#define ENDIF 7
|
|
#define IF 8
|
|
#define LINE 9
|
|
|
|
/* Magic Numbers used in Macros */
|
|
#define ARG -1
|
|
#define NEWLABEL -2
|
|
#define LABEL -3
|
|
#define NOARGS -4
|
|
|
|
/* Skip state, using #ifdef... */
|
|
#define SKIP 0
|
|
#define NOSKIP 1
|
|
|
|
/* General Defines */
|
|
#define SOH '\01'
|
|
#define SSIZE 8
|
|
#define BSIZE 512
|
|
#define LINESIZE 512
|
|
#define MAXARGS 60
|
|
#define ARGBSIZE 1000
|
|
#define TOKSIZE 300 /*BUG 4/20/82 was 128*/
|
|
#define DEFSIZE 1024
|
|
#define PBSIZE 1000
|
|
#define STDERR 2 /* [vlh] 4.2, write errors to.... */
|
|
|
|
#define TRUE 1
|
|
#define FALSE 0
|
|
#define NDEFS 20
|
|
|
|
#define CSTKSIZE 20
|
|
#define FILESEP '/'
|
|
#define NINCL 10
|
|
#define LABSTART 1000
|
|
#define NUMLEN 6
|
|
|
|
#ifndef VERSADOS
|
|
# define HSIZE 1024
|
|
#else
|
|
# define HSIZE 2048
|
|
#endif
|
|
|
|
/* Symbol Table Entry structure */
|
|
struct symbol {
|
|
char s_name[SSIZE];
|
|
char *s_def;
|
|
} symtab[HSIZE];
|
|
|
|
/*buffered I/O structure*/
|
|
struct iob {
|
|
int fd;
|
|
int cc;
|
|
char *cp;
|
|
char cbuf[BSIZE];
|
|
} outbuf;
|
|
|
|
/* command line define structure */
|
|
struct defstruc {
|
|
char *ptr;
|
|
char *value;
|
|
} defs[NDEFS];
|
|
|
|
#define FSTACK 10
|
|
#define MAXPSIZE 128
|
|
struct stackstruc { /* [vlh] */
|
|
int ifd;
|
|
char ifile[MAXPSIZE];
|
|
int lineno;
|
|
#ifdef NONEST
|
|
char tbuf[BSIZE]; /* hold buffer in include... */
|
|
int tcc; /* hold count into buffer... */
|
|
char *tcp; /* pointer into buffer... */
|
|
#else /*sw Nesting really could be allowed on all */
|
|
struct iob inbuf; /*sw Moved this for include file nesting */
|
|
#endif
|
|
} filestack[FSTACK], *filep; /* stack of incl files, ptr to... */
|
|
|
|
/* Variables used by #line macros */
|
|
int literal; /*[vlh] 4.0 using #line */
|
|
int lit_num; /* for error messages */
|
|
char lit_file[]; /* for error messages */
|
|
|
|
/* Flag Variable Declarations */
|
|
int pflag;
|
|
int Cflag;
|
|
int Eflag;
|
|
int asflag;
|
|
char *source; /* preprocessor source file */
|
|
char dest[MAXPSIZE]; /* preprocessor destination file */
|
|
|
|
/* Miscellaneous Variable Declarations */
|
|
int skip; /*skipping current line*/
|
|
char *defap; /*pointer to available define area*/
|
|
char *defp; /*pointer to next avail define byte*/
|
|
int defcount; /*bytes left in define area*/
|
|
int defused; /*number of bytes used in define area*/
|
|
int defmax; /*maximum define area used*/
|
|
|
|
/*line to output after macro substitution*/
|
|
char line[LINESIZE+2]; /*line buffer*/
|
|
char *linep; /*current line pointer*/
|
|
int loverflow; /*line overflow flag*/
|
|
int lineno;
|
|
|
|
/*push back buffer*/
|
|
char pbbuf[PBSIZE]; /*push back buffer*/
|
|
char *pbp; /*push back pointer*/
|
|
int pbflag; /*checks for recursive definition*/
|
|
|
|
/* Function declarations */
|
|
char *lookup();
|
|
char *setend();
|
|
char *makecopy();
|
|
char *maketemp();
|
|
char *sbrk();
|
|
struct symbol *getsp();
|
|
|