common.h

浙江大学编译原理课程设计源代码,高等院校计算机专业

#ifndef _COMMON_H
#define _COMMON_H

#include "config.h"
#include <stdio.h>
#include <stdlib.h>
#include <assert.h>
#include "error.h"
#include "ops.h"

#define KEYWORD		-1
#define _PC_VER_	"0.1.5"

#define FILE_NAME_LEN	(64)

#if 0
#if defined (_MSDOS_)
	#define _YTAB_H_		"ytab.h"
#else
	#define _YTAB_H_		"y.tab.h"
#endif
#else
	#define		_YTAB_H_		"rule.h"
#endif

#ifdef WIN32
#define YY_NO_UNISTD_H
#endif

#define MAX_LINE_LENGTH		(20480)

#define STACK_SEG_SIZE		(2048)
#define TABLE_LEN			(128)
#define LABEL_LEN			(32)
#define LAST_ENTRY			(65536 * 1024)
#define NAME_LEN			(32)
#define SIZE_CHAR			(1)
#define SIZE_INTEGER		(4)
#define SIZE_REAL			(4)
#define SIZE_BOOLEAN		SIZE_INTEGER
#define SIZE_POINTER		(4)
#define S_STACK				SIZE_INTEGER
#define DEF_UNKNOWN			(0)
#define DEF_CONST			(1)
#define DEF_VAR				(2)
#define DEF_TYPE			(3)
#define DEF_FIELD			(4)
#define DEF_VALPARA			(5)
#define DEF_VARPARA			(6)
#define DEF_PROC			(7)
#define DEF_FUNCT			(8)
#define DEF_PROG			(9)
#define DEF_TEMPVAR			(10)
#define DEF_ELEMENT			(11)
#define DEF_LABEL			(12)

typedef int					boolean;

#define false 				0
#define true 				1
#define new_index(m)		++m##_index
#define size(x)				SIZE_##x

extern	FILE 	*codfp;
extern	FILE	*datfp;
extern  FILE 	*errfp;

typedef struct
{
    char name[NAME_LEN];
    int key;
    int attr;
    int ret_type;
    int arg_type;
}
KEYENTRY;

/* memory allocation arenas. */
enum { PERM=0, FUNC, STMT, TREE, DAG, LASTARENA };

/* position of file. */
typedef struct coord
{
    char *file;
    unsigned x, y;
}
Coordinate;

void *allocate(unsigned long n, unsigned a);

/* memory allocation */
#define NEW(p,a) ((p) = allocate(sizeof *(p), (a)))
#define NEW0(p,a) memset(NEW((p),(a)), 0, sizeof *(p))

#define NELEMS(a) ((int)(sizeof (a)/sizeof ((a)[0])))
#undef roundup
#define roundup(x,n) (((x)+((n)-1))&(~((n)-1)))


/* types and storage class spcifiers */
enum {
    TYPE_UNKNOWN = 0,
    TYPE_INTEGER = 1,
    TYPE_CHAR = 2,
    TYPE_REAL = 3,
    TYPE_BOOLEAN = 4,
    TYPE_ARRAY = 5,
    TYPE_ENUM = 6,
    TYPE_SUBRANGE = 7,
    TYPE_RECORD = 8,
    TYPE_VOID = 9,
    TYPE_STRING = 10,
    TYPE_POINTER = 11,
    TYPE_DOUBLE = 12,
    TYPE_FUNCTION = 13,
    TYPE_LONG = 14,
    TYPE_CONST = 15
};

enum {
    F=TYPE_REAL,
    I=TYPE_INTEGER,
    P=TYPE_POINTER,
    V=TYPE_VOID,
    B=TYPE_RECORD
};

/* for operations. */
#include "ops.h"

#define generic(op)  ((op)&0x3F0)
#define opindex(op) (((op)>>4)&0x3F)

/* symbol and type definition. */
#include "symtab.h"

typedef struct list *List;
struct list
{
    void *x;					/* data or tail of list. */
    List link;					/* next in list. */
};

List list_append(List list, void *x);
int list_length(List list);
void **list_ltov(List list, unsigned arena);
void list_clear(List list);


typedef struct
{
    union {
        struct
        {
            int argc;
            char **argv;
            Symtab tab;
        }
        program;

        struct
        {
            Symtab tab;
        }
        main;
    }u;
}
Env;

extern Env global_env;
extern Env main_env;

/* trees */
#include "tree.h"

/* nodes and dags. */
#include "dag.h"

/* target interface */
#include "config.h"

typedef struct metrics
{
    unsigned char size, align, outofline;
}
Metrics;

typedef struct blockcontext
{
    unsigned char size;
}
BlockContext;

typedef struct interface
    {

        /* type interface */
        Metrics charmetric;
        Metrics shortmetric;
        Metrics intmetric;
        Metrics floatmetric;
        Metrics doublemetric;
        Metrics pointermetric;
        Metrics structmetric;

#if 0
        /* flag interface. */
		unsigned endian: 1;					/* little or big endian flag,  set to 1 when little endian, or 0 */
		unsigned risc_instructon_set:1;		/* risc or cisc, set 1 for RISC. */
		unsigned struct_prarmeter: 1;		/* if target supports structure as parameter, set it to 1. */
		unsigned struct_return_value: 1;	/* if target supports structure as return value, set it to 1. */
		unsigned std_call: 1;				/* stdcall flag, 1 from left to right. */
		unsigned dag_mode: 2;				/* 0 for not generate dag */
		unsigned reserved: 1;				/* reserved. set to 0 */
#endif

        /* function interface. */
        int (*program_begin)(Env *);
        int (*program_end)(Env *);
        int (*main_begin)(Env *);
        int (*main_end)(Env *);
        int (*def_address)(Symbol p, Symbol q, long n);
        int (*block_begin)(BlockContext *context);
        int (*block_end)(BlockContext *context);
        int (*global_variable)(Symbol symbol);
        int (*local_variable)(Symbol symbol);
        int (*def_label)(Symbol symbol);
        int (*def_const)(int type, Value value);
        int (*alloc_space)(int n);
        int (*mark_node)(Node rootnode);
        int (*gen_code)(Node rootnode);
        int (*function_process)(List dags);
        void (*def_export)(Symbol);
        void (*def_import)(Symbol);
        /* Xinterface x; */
    }
Interface;

typedef struct binding
{
    char *name;
    Interface *ir;
}
Binding;

extern Binding bindings[];
extern Interface *IR;

int get_keytable_size();
void *allocate(unsigned long n, unsigned a);
void deallocate(unsigned a);
void *newarray(unsigned long m, unsigned long n, unsigned a);
void const_folding(Node n);

#endif