view/trunk/ec.c

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdarg.h>
#include <process.h>

#define DEBUG

#define MAX_ARGS 64
#define MAX_VALUES 256
#define MAX_FUNCS 256

#define MAX_FUNCNAME 64
#define MAX_VALUENAME 64

#define GLOBAL_FUNCID 0
#define MAIN_FUNCID 1

void ERROR(char *put);
char *skipspace(char *p);
void processing_block(char *code);
void processing_block0(char *code);

char version[] = "1.01";

char *filedat;          // 文字列格納用
int cnt0_0;                     // [ の数
int cnt0_1;                     // ] の数
int funcs;                      // 関数の数
int i;

int arg_values;                 // 変数の数

//
// 一つの変数
// とりあえずMAX_VALUES個確保しておく
// データの大きさについては検討が必要
//
// name  変数名
// type  型
// value データ
// funcid 所属関数 グローバル変数の時は0
// flag  存在確認
//
struct VALUE {
        char name[MAX_VALUENAME];
        int type;
        long value;
        int funcid;
        int flag;
} alloc_values[MAX_VALUES];

//
// 一つの関数
// 引数はMAX_ARGS個までサポート
// これそのものはMAX_FUNCS個確保しておく
//
// id   関数のID
// name 関数名
// ret  戻り値
// args 引数
// flag 存在確認
//
struct FUNCTION {
        int id;
        char name[MAX_FUNCNAME];
        char ret[6];
        struct VALUE args[MAX_ARGS];
        int flag;
} alloc_funcs[MAX_FUNCS];

void main (int argc, char *argv[])
{       
        int c, v;
        char infile[256];
        FILE *ifp;
        char outfile[256];
        FILE *ofp;
        
        // ソフト名、バージョン表示
        printf("Edison Compiler Ver.%s\n", version);

        // 領域確保
        // 4096バイト(半角4096文字)まで読み込み可能
        filedat = (char *)malloc(4096);
        
        // ************************************
        // ********* ファイル関連処理 *********
        // ************************************
        
        // 出力ファイル名が指定されていればそれをそれで出力
        // 無ければ入力ファイル名に.objを付加した名前で出力
        if (argc < 2) {
                ERROR(" usage >ec.exe [inputfile] (outputfile)");
        } else if (argc < 3) {
                strcpy(outfile, argv[1]);
                strcat(outfile, ".obj");        
        } else {
                strcpy(outfile, argv[2]);
        }
        strcpy(infile, argv[1]);
        printf(" Input: %s\n", infile);
        printf(" Output: %s\n", outfile);
        
        ifp = fopen(infile, "r");
        if (!ifp) {
                ERROR("File open error(r)");
        }
        
        // 読み込む
        fread(filedat, sizeof(char), 4096, ifp);
        fclose(ifp);

        // ****************************
        // ********* 解析処理 *********
        // ****************************
        
        puts("Compiling..\n");
        
        // 初期化処理
        for (c = 0;c < MAX_FUNCS;c++) {
                alloc_funcs[c].flag = 0;        
        }
        for (c = 0;c < MAX_VALUES;c++) {
                alloc_values[c].flag = 0;
        }
        funcs = 0;
        
        // 処理開始
        processing_block(filedat);
        
        ofp = fopen(outfile, "w");
        if (!ofp) {
                ERROR("File open error(w)");
        }
        fputs(filedat, ofp);
        
        fclose(ofp);

#ifdef DEBUG
        printf("cnt0_0=%d cnt0_1=%d\n", cnt0_0, cnt0_1);
        funcs = 0;
        while (alloc_funcs[funcs].flag == 1) {
                printf("関数「%s」はFunctionID = %d で、引数は%sです。\n", alloc_funcs[funcs].name, alloc_funcs[funcs].id, alloc_funcs[funcs].ret);
                funcs++;
        }
#endif
        
        free(filedat);
}

//
// エラーを出力して終了
//
void ERROR(char *put)
{
        puts(put);
        exit(1);
}

//
// 空白を読み飛ばす
//
char *skipspace(char *p)
{
        for (; *p == ' '; p++) ;
        return p;
}

//
// コード全体を処理する
// […]も処理する
//
void processing_block(char *code)
{
        char buf[2];
        int c;
        
        cnt0_0 = 0;
        cnt0_1 = 0;

        // […]を探してカウントする
        while (1) {
                code = skipspace(code);
                switch (*code) {
                        case '[':
                                cnt0_0++;
                                code++;
                                
                                // 関数名をスキャンする
                                // 途中で終わったらエラー
                                // 空白はスキップするのでcontinueする
                                while (*code != ']') {
                                        if (*code == ' ') {
                                                code++;
                                                continue;
                                        }
                                        sprintf(buf, "%c", *code);
                                        strcat(alloc_funcs[funcs].name, buf);
                                        alloc_funcs[funcs].flag = 1;
                                        
                                        code++;
                                        if (*code == '\0') {
                                                ERROR("Syntax error."); 
                                        }
                                }
                                        
                                //関数にIDを付与
                                if (alloc_funcs[funcs].name == "main") {
                                        alloc_funcs[funcs].id = MAIN_FUNCID;
                                } else {
                                        alloc_funcs[funcs].id = funcs + MAIN_FUNCID;
                                }
                                // 関数名を表示してから
                                // 引数リストスキャンのために一つ戻す
                                code--;
                                break;
                        case ']':
                                cnt0_1++;
                                
                                code = skipspace(code);
                                // […]の数が合わないとエラー
                                if (cnt0_1 != cnt0_0) {
                                        ERROR("Syntax error.");
                                }
                                code++;
                                code = skipspace(code);
                                if (*code != '(') {
                                        alloc_funcs[funcs].id = 0;
                                        alloc_funcs[funcs].flag = 0;
                                        memset(alloc_funcs[funcs].name, 0, sizeof(alloc_funcs[funcs].name));
                                        break;
                                }
                                code--;
                                funcs++;
                                processing_block0(code);
                                break;
                        case '\0':
                                // ソースファイルそのものが終わり
                                return;
                        default:
                                ;
                }
                code++;
        }
                        
}

//
// (…)を処理する
//
void processing_block0(char *code)
{       
        char buf[2];
        while (1) {
                code = skipspace(code);
                switch (*code) {
                        case '(':
                                code++;
                                funcs--;
                                // 引数リストをスキャンする
                                // 途中で終わったらエラー
                                // 空白はスキップするのでcontinueする
                                while (*code != '/') {
                                        if (*code == ' ') {
                                                code++;
                                                continue;
                                        }
                                        sprintf(buf, "%c", *code);
                                        strcat(alloc_funcs[funcs].ret, buf);
                                        code++;
                                        if (*code == '\0') {
                                                ERROR("Syntax error."); 
                                        }
                                }
                                funcs++;
                                return;
                        case '\0':
                                ERROR("Syntax error.");
                                return;
                        default:
                                ;
                                        
                }
                code++;
        }
}