ack/lang/cem/cemcom/main.c

482 lines
10 KiB
C
Raw Normal View History

/*
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
* See the copyright notice in the ACK home directory, in the file "Copyright".
*/
1986-03-10 13:07:55 +00:00
/* $Header$ */
/* MAIN PROGRAM */
#include "lint.h"
#include "nofloat.h"
1986-03-25 10:39:23 +00:00
#include <system.h>
1986-03-10 13:07:55 +00:00
#include "nopp.h"
#include "target_sizes.h"
#include "debug.h"
#include "use_tmp.h"
#include "inputtype.h"
#include "input.h"
#include "level.h"
#include "idf.h"
#include "arith.h"
#include "type.h"
1986-03-10 15:10:56 +00:00
#include "declar.h"
1986-03-10 13:07:55 +00:00
#include "tokenname.h"
#include "Lpars.h"
#include "LLlex.h"
#include <alloc.h>
1986-03-10 13:07:55 +00:00
#include "specials.h"
1987-03-25 23:14:43 +00:00
#include "noRoption.h"
#include "nocross.h"
#include "sizes.h"
#include "align.h"
1990-06-06 16:54:30 +00:00
#include "assert.h"
1990-06-06 14:42:53 +00:00
#include "macro.h"
1986-03-10 13:07:55 +00:00
extern struct tokenname tkidf[], tkother[];
extern char *symbol2str();
extern char options[128];
1986-03-10 13:07:55 +00:00
1990-06-06 14:42:53 +00:00
1986-03-10 13:07:55 +00:00
#ifndef NOPP
int inc_pos = 1; /* place where next -I goes */
int inc_total = 0;
int inc_max;
char **inctable;
1986-03-10 13:07:55 +00:00
1990-06-06 14:42:53 +00:00
extern int do_dependencies;
extern char *dep_file;
static File *dep_fd = STDOUT;
extern char *getwdir();
1986-03-10 13:07:55 +00:00
#endif NOPP
struct sp_id special_ids[] = {
{"setjmp", SP_SETJMP}, /* non-local goto's are registered */
{0, 0}
};
1987-03-25 23:14:43 +00:00
#ifndef NOCROSS
1986-03-10 13:07:55 +00:00
arith
short_size = SZ_SHORT,
word_size = SZ_WORD,
dword_size = (2 * SZ_WORD),
int_size = SZ_INT,
long_size = SZ_LONG,
#ifndef NOFLOAT
1986-03-10 13:07:55 +00:00
float_size = SZ_FLOAT,
double_size = SZ_DOUBLE,
#endif NOFLOAT
1986-03-10 13:07:55 +00:00
pointer_size = SZ_POINTER;
int
short_align = AL_SHORT,
word_align = AL_WORD,
int_align = AL_INT,
long_align = AL_LONG,
#ifndef NOFLOAT
1986-03-10 13:07:55 +00:00
float_align = AL_FLOAT,
double_align = AL_DOUBLE,
#endif NOFLOAT
1986-03-10 13:07:55 +00:00
pointer_align = AL_POINTER,
struct_align = AL_STRUCT,
union_align = AL_UNION;
1987-03-25 23:14:43 +00:00
#endif NOCROSS
1986-03-10 13:07:55 +00:00
#ifndef NOPP
arith ifval; /* ifval will contain the result of the #if expression */
#endif NOPP
char *prog_name;
main(argc, argv)
char *argv[];
{
/* parse and interpret the command line options */
prog_name = argv[0];
init_hmask();
#ifndef NOPP
inctable = (char **) Malloc(10 * sizeof(char *));
inctable[0] = "";
inctable[1] = "/usr/include";
inctable[2] = 0;
1990-01-26 12:00:35 +00:00
inc_total = 3;
inc_max = 10;
1986-03-10 13:07:55 +00:00
init_pp(); /* initialise the preprocessor macros */
#endif NOPP
/* Note: source file "-" indicates that the source is supplied
as standard input. This is only allowed if INP_READ_IN_ONE is
1986-03-10 13:07:55 +00:00
not defined!
*/
#ifdef INP_READ_IN_ONE
1986-04-28 09:56:33 +00:00
while (argc > 1 && *argv[1] == '-')
#else INP_READ_IN_ONE
1986-04-28 09:56:33 +00:00
while (argc > 1 && *argv[1] == '-' && argv[1][1] != '\0')
#endif INP_READ_IN_ONE
1986-04-28 09:56:33 +00:00
{
1986-03-10 13:07:55 +00:00
char *par = &argv[1][1];
do_option(par);
argc--, argv++;
}
1988-11-03 15:18:46 +00:00
#ifdef LINT
lint_init();
#endif LINT
1986-03-10 13:07:55 +00:00
compile(argc - 1, &argv[1]);
#ifdef DEBUG
hash_stat();
#endif DEBUG
1990-06-06 14:42:53 +00:00
#ifndef NOPP
if (do_dependencies) {
extern char *source;
list_dependencies(source);
}
#endif
1988-09-16 23:19:50 +00:00
sys_stop(err_occurred ? S_EXIT : S_END);
/*NOTREACHED*/
1986-03-10 13:07:55 +00:00
}
1990-06-06 14:42:53 +00:00
#ifndef NOPP
struct idf *file_head;
extern char *strrindex();
list_dependencies(source)
char *source;
{
register struct idf *p = file_head;
if (source) {
register char *s = strrindex(source, '.');
if (s && *(s+1)) {
s++;
*s++ = 'o';
*s = '\0';
/* the source may be in another directory than the
* object generated, so don't include the pathname
* leading to it.
*/
if (s = strrindex(source, '/')) {
source = s + 1;
}
}
else source = 0;
}
if (dep_file && !sys_open(dep_file, OP_WRITE, &dep_fd)) {
fatal("could not open %s", dep_file);
}
while (p) {
1990-06-06 16:54:30 +00:00
ASSERT(p->id_resmac == K_FILE);
1990-06-06 14:42:53 +00:00
dependency(p->id_text, source);
p = (struct idf *) (p->id_file);
}
}
add_dependency(s)
char *s;
{
register struct idf *p = str2idf(s);
1990-06-06 14:42:53 +00:00
if (! p->id_resmac) {
p->id_resmac = K_FILE;
p->id_file = (char *) file_head;
file_head = p;
}
}
dependency(s, source)
char *s, *source;
{
1990-06-06 16:00:28 +00:00
if (options['i'] && !strncmp(s, "/usr/include/", 13)) {
1990-06-06 14:42:53 +00:00
return;
}
if (options['m'] && source) {
fprint(dep_fd, "%s: %s\n", source, s);
}
else fprint(dep_fd, "%s\n", s);
}
#endif NOPP
1986-03-10 13:07:55 +00:00
char *source = 0;
char *nmlist = 0;
compile(argc, argv)
char *argv[];
{
char *result;
#ifndef LINT
register char *destination = 0;
#endif LINT
#ifdef DEBUG
1986-03-10 13:07:55 +00:00
#ifndef NOPP
int pp_only = options['E'] || options['P'] || options['C'];
1986-03-10 13:07:55 +00:00
#endif NOPP
#endif
1986-03-10 13:07:55 +00:00
switch (argc) {
case 1:
#ifndef LINT
#ifdef DEBUG
1986-03-10 13:07:55 +00:00
#ifndef NOPP
if (!pp_only)
#endif NOPP
#endif
1986-03-10 13:07:55 +00:00
fatal("%s: destination file not specified", prog_name);
#endif LINT
1986-03-10 13:07:55 +00:00
break;
1988-09-16 23:19:50 +00:00
#ifndef LINT
1986-03-10 13:07:55 +00:00
case 2:
destination = argv[1];
break;
case 3:
nmlist = argv[2];
destination = argv[1];
break;
#endif LINT
1986-03-10 13:07:55 +00:00
default:
#ifndef LINT
1986-03-10 13:07:55 +00:00
fatal("use: %s source destination [namelist]", prog_name);
#else LINT
fatal("use: %s source", prog_name);
#endif LINT
1986-03-10 13:07:55 +00:00
break;
}
1988-09-16 23:19:50 +00:00
1987-03-20 08:30:31 +00:00
if (strcmp(argv[0], "-"))
FileName = source = argv[0];
else {
source = 0;
FileName = "standard input";
}
1986-03-10 13:07:55 +00:00
if (!InsertFile(source, (char **) 0, &result)) /* read the source file */
1987-03-20 08:30:31 +00:00
fatal("%s: no source file %s\n", prog_name, FileName);
File_Inserted = 1;
1986-03-10 13:07:55 +00:00
init();
LineNumber = 0;
nestlow = -1;
1991-11-08 15:12:28 +00:00
#ifndef LINT
init_code(destination && strcmp(destination, "-") != 0 ?
destination : 0);
#endif
#ifndef NOPP
WorkingDir = getwdir(source);
#endif NOPP
1988-08-19 13:55:22 +00:00
PushLex(); /* initialize lex machine */
1986-03-10 13:07:55 +00:00
#ifdef DEBUG
1986-03-10 13:07:55 +00:00
#ifndef NOPP
1986-03-25 10:39:23 +00:00
if (pp_only) /* run the preprocessor as if it is stand-alone */
1986-03-10 13:07:55 +00:00
preprocess();
else
1986-03-10 13:07:55 +00:00
#endif NOPP
#endif DEBUG
{
#ifndef LINT
1986-03-10 13:07:55 +00:00
/* compile the source text */
C_program();
1988-11-16 11:23:58 +00:00
#ifdef PREPEND_SCOPES
prepend_scopes();
1988-11-16 11:23:58 +00:00
#endif PREPEND_SCOPES
end_code();
#else LINT
/* lint the source text */
C_program();
#endif LINT
1986-03-10 13:07:55 +00:00
#ifdef DEBUG
if (options['u']) {
unstack_level(); /* unstack L_GLOBAL */
}
1986-03-10 13:07:55 +00:00
if (options['f'] || options['t'])
dumpidftab("end of main", options['f'] ? 0 : 0);
#endif DEBUG
}
PopLex();
}
init()
{
init_cst(); /* initialize variables of "cstoper.c" */
reserve(tkidf); /* mark the C reserved words as such */
init_specials(special_ids); /* mark special ids as such */
1987-03-25 23:14:43 +00:00
#ifndef NOROPTION
1986-03-10 13:07:55 +00:00
if (options['R'])
reserve(tkother);
1987-03-25 23:14:43 +00:00
#endif
1986-03-10 13:07:55 +00:00
char_type = standard_type(CHAR, 0, 1, (arith)1);
uchar_type = standard_type(CHAR, UNSIGNED, 1, (arith)1);
short_type = standard_type(SHORT, 0, short_align, short_size);
ushort_type = standard_type(SHORT, UNSIGNED, short_align, short_size);
/* Treat type `word' as `int', having its own size and
alignment requirements.
This type is transparent to the user.
*/
word_type = standard_type(INT, 0, word_align, word_size);
uword_type = standard_type(INT, UNSIGNED, word_align, word_size);
int_type = standard_type(INT, 0, int_align, int_size);
uint_type = standard_type(INT, UNSIGNED, int_align, int_size);
long_type = standard_type(LONG, 0, long_align, long_size);
ulong_type = standard_type(LONG, UNSIGNED, long_align, long_size);
#ifndef NOFLOAT
1986-03-10 13:07:55 +00:00
float_type = standard_type(FLOAT, 0, float_align, float_size);
double_type = standard_type(DOUBLE, 0, double_align, double_size);
#endif NOFLOAT
void_type = standard_type(VOID, 0, 1, (arith)0);
1986-03-10 13:07:55 +00:00
label_type = standard_type(LABEL, 0, 0, (arith)0);
error_type = standard_type(ERRONEOUS, 0, 1, (arith)1);
/* Pointer Arithmetic type: all arithmetics concerning
pointers is supposed to be performed in the
pointer arithmetic type which is equal to either
int_type or long_type, depending on the pointer_size
*/
1988-07-05 18:06:00 +00:00
if ((int)pointer_size == (int)word_size)
1986-03-10 13:07:55 +00:00
pa_type = word_type;
else
1988-07-05 18:06:00 +00:00
if ((int)pointer_size == (int)short_size)
1986-03-10 13:07:55 +00:00
pa_type = short_type;
else
1988-07-05 18:06:00 +00:00
if ((int)pointer_size == (int)int_size)
1986-03-10 13:07:55 +00:00
pa_type = int_type;
else
1988-07-05 18:06:00 +00:00
if ((int)pointer_size == (int)long_size)
1986-03-10 13:07:55 +00:00
pa_type = long_type;
else
fatal("pointer size incompatible with any integral size");
1988-07-05 18:06:00 +00:00
if ((int)int_size != (int)word_size)
fatal("int_size and word_size are not equal");
1988-07-05 18:06:00 +00:00
if ((int)short_size > (int)int_size || (int)int_size > (int)long_size)
1986-03-10 13:07:55 +00:00
fatal("sizes of short/int/long decreasing");
/* Build a type for function returning int, RM 13 */
funint_type = construct_type(FUNCTION, int_type, (arith)0);
string_type = construct_type(POINTER, char_type, (arith)0);
/* Define the standard type identifiers. */
add_def(str2idf("char"), TYPEDEF, char_type, L_UNIVERSAL);
add_def(str2idf("int"), TYPEDEF, int_type, L_UNIVERSAL);
#ifndef NOFLOAT
1986-03-10 13:07:55 +00:00
add_def(str2idf("float"), TYPEDEF, float_type, L_UNIVERSAL);
add_def(str2idf("double"), TYPEDEF, double_type, L_UNIVERSAL);
#endif NOFLOAT
1986-03-10 13:07:55 +00:00
add_def(str2idf("void"), TYPEDEF, void_type, L_UNIVERSAL);
stack_level();
}
init_specials(si)
register struct sp_id *si;
1986-03-10 13:07:55 +00:00
{
while (si->si_identifier) {
struct idf *idf = str2idf(si->si_identifier);
if (idf->id_special)
fatal("maximum identifier length insufficient");
idf->id_special = si->si_flag;
si++;
}
}
#ifdef DEBUG
1986-03-10 13:07:55 +00:00
#ifndef NOPP
preprocess()
{
/* preprocess() is the "stand-alone" preprocessor which
consecutively calls the lexical analyzer LLlex() to get
the tokens and prints them in a suitable way.
*/
static unsigned int lastlineno = 0;
static char *lastfilenm = "";
while (LLlex() != EOI) {
if (lastlineno != dot.tk_line) {
if (strcmp(lastfilenm, dot.tk_file) == 0) {
if (dot.tk_line - lastlineno <= 1) {
lastlineno++;
1986-04-03 14:32:56 +00:00
print("\n");
1986-03-10 13:07:55 +00:00
}
else {
lastlineno = dot.tk_line;
if (!options['P'])
1986-04-03 14:32:56 +00:00
print("\n#line %ld \"%s\"\n",
1986-03-17 17:47:04 +00:00
lastlineno,
lastfilenm
);
1986-03-10 13:07:55 +00:00
}
}
else {
lastfilenm = dot.tk_file;
lastlineno = dot.tk_line;
if (!options['P'])
1986-04-03 14:32:56 +00:00
print("\n#line %ld \"%s\"\n",
1986-03-10 13:07:55 +00:00
lastlineno, lastfilenm);
}
}
else
if (strcmp(lastfilenm, dot.tk_file) != 0) {
lastfilenm = dot.tk_file;
if (!options['P'])
1986-04-03 14:32:56 +00:00
print("\n#line %ld \"%s\"\n",
1986-03-10 13:07:55 +00:00
lastlineno, lastfilenm);
}
switch (DOT) {
case IDENTIFIER:
case TYPE_IDENTIFIER:
1986-04-03 14:32:56 +00:00
print("%s ", dot.tk_idf->id_text);
1986-03-10 13:07:55 +00:00
break;
case STRING:
{
1986-04-03 14:32:56 +00:00
char sbuf[1024]; /* a transient buffer */
char *bts2str();
1986-04-03 14:32:56 +00:00
print("\"%s\" ", bts2str(dot.tk_bts, dot.tk_len, sbuf));
1986-03-10 13:07:55 +00:00
break;
}
1986-03-10 13:07:55 +00:00
case INTEGER:
1986-04-03 14:32:56 +00:00
print("%ld ", dot.tk_ival);
1986-03-10 13:07:55 +00:00
break;
#ifndef NOFLOAT
1986-03-10 13:07:55 +00:00
case FLOATING:
1986-04-03 14:32:56 +00:00
print("%s ", dot.tk_fval);
1986-03-10 13:07:55 +00:00
break;
#endif NOFLOAT
1986-03-10 13:07:55 +00:00
case EOI:
case EOF:
return;
default: /* very expensive... */
1986-04-03 14:32:56 +00:00
print("%s ", symbol2str(DOT));
1986-03-10 13:07:55 +00:00
}
}
}
#endif NOPP
#endif DEBUG
1986-03-10 13:07:55 +00:00
1988-08-23 12:45:11 +00:00
No_Mem() /* called by alloc package */
1987-03-20 08:30:31 +00:00
{
fatal("out of memory");
}
1988-08-23 12:45:11 +00:00
C_failed() /* called by EM_code module */
1987-03-20 08:30:31 +00:00
{
fatal("write failed");
}
1988-08-23 12:45:11 +00:00