hrm.c

#include <stdio.h>
#include <stdbool.h>
#include <stdlib.h>
#include <ctype.h>

#define debug

#ifdef debug
#define dprint printf
#else
#define dprint(...) ;
#endif

#define bufend (buf + buflen)
#define LAW_SIZE 80
#define BUF_SIZE 128
#define LABEL_NUM 64
#define CARPET_SIZE 64
#define KW_NEED_NEWLINE 4

const char *kwtbl[] = {
	"[",
	"]",
	"inbox",
	"outbox",
	//ここから改行なし
	"copyfrom",
	"copyto",
	"add",
	"sub",
	"bump+",
	"bump-",
	"jumpifzero",
	"jumpifneg",
	"jump",
	//ここから独自のキーワード
	":",	//ラベル
	"get",	//即値
	
	//ここから中間コードに対応なし
	"run"	//実行
};

const int KWTBL_SIZE = sizeof(kwtbl)/sizeof(char *);

enum {
	i_open,
	i_close,
	i_inbox,
	i_outbox,
	i_copyfrom,
	i_copyto,
	i_add,
	i_sub,
	i_bump_p,
	i_bump_m,
	i_jumpifzero,
	i_jumpifneg,
	i_jump,
	//ここから独自のキーワード
	i_label,	//ラベル
	i_get,	//即値
	i_run,
	//特殊キーワード
	i_num,
	i_pass,
	i_char,
};

typedef struct
{
	int name;
	int* p;
} label;

enum {
	type_empty,
	type_num,
	type_char
};

typedef struct
{
	char type;
	int num;
} tile;

char raw[LAW_SIZE];

int buf[BUF_SIZE];
int buflen = 0;

label lblls[LABEL_NUM];
int labelpt = 0;

tile acm = {type_empty, 0};
tile carpet[CARPET_SIZE];

void init()
{
	for(int i=0;i<CARPET_SIZE;i++){
		carpet[i].type = type_empty;
		carpet[i].num = 0;
	}
}

void buf_clear()
{
	buflen = 0;
}

void trans()
{
	char *rawp = raw;	//文字列走査位置
	int iword = 0;		//中間コード置き場
	bool is_find;

	while(*rawp){//文字列の終端まで
		is_find = false;
		while(isspace(*rawp)) rawp++;
		if(!*rawp) break;

		//数字変換
		if(isdigit(*rawp)||
		*rawp=='-'||*rawp=='+'){
			iword = atoi(rawp);
			buf[buflen++] = i_num;
			buf[buflen++] = iword;
			while(isdigit(*rawp)||
			*rawp=='-'||*rawp=='+')
				rawp++;
			continue;
		}

		//文字解決
		if(*rawp=='\''){
			char temp = *(++rawp);
			if(temp == '\\'){
				switch(*(++rawp)){
				case 'n':
					temp = '\n';
					break;
				case '\\':
					temp = '\\';
					break;
				case 'b':
					temp = '\b';
					break;
				default:
					printf("char error\n");
					return;
				}
			}
			if(*(++rawp) != '\''){	//終端確認
				printf("char error\n");
				return;
			}
			buf[buflen++] = i_char;
			buf[buflen++] = temp;
			rawp++;
			continue;
		}

		//テーブル走査
		for(iword=0;iword < KWTBL_SIZE;iword++)
		{
			int k = 0;
			while(kwtbl[iword][k]!=0 &&
				kwtbl[iword][k]==rawp[k])
				k++;
			if(kwtbl[iword][k]==0 &&
				!isalpha(rawp[k])){
				buf[buflen++] = iword;
				rawp += k;
				is_find = true;
				break;
			}
			dprint("i:%d\n",iword);
		}
		if(!is_find){
			printf("error find unkown word\n");
			return;//----------error---------->
		}
		//end---------
	}
	printf("ok\n");
}

//LABELS***************************

void setlabel(int name, int* p)
{
	dprint("set %d\n",name);
	lblls[labelpt].name = name;
	lblls[labelpt].p = p;
	labelpt++;
}
int* labelsearch(int name)
{
	//dprint("search num%d\n",name);
	for(int i = 0;i < labelpt;i++)
	{
		if(lblls[i].name == name)
			return lblls[i].p;
	}
	printf("label error\nnumber:%d\n",labelpt);
	return NULL;
}

/*  old
void input()
{
	fgets(buf, BUF_SIZE, stdin);
	//bufend = buf + BUF_SIZE;
}
*/

void setup()
{
	int* bufp = buf;
	int lbname;
	for(;bufp < bufend;bufp++)
	{
		if(*bufp == i_label)
		{
			if(*(bufp+1) != i_num){
				printf("no name label\n");
				return;//---------error------->
			}
			bufp += 2;
			lbname = *bufp;
			*(bufp-2)= *(bufp-1)= *bufp=i_pass;
			//^i_label   ^i_num    ^label name
			setlabel(lbname, bufp);
		}
	}
}

//reader*******************************

int* bufp;
void stop(){
	bufp=bufend;
}
int refsolver()
{	// " i_num NUM " or " [ i_num NUM ] "
	bufp++;
	if(*bufp==i_num){
		return *(++bufp);
	}else if(*bufp==i_open){
		bufp += 2;
		if(0<=*bufp || *bufp<CARPET_SIZE){
			if(carpet[*bufp].type==type_num){
				return carpet[*bufp++].num;
			}else{
				printf("type error");
			}
		}else{
			printf("out of index");
		}
	}
	printf("\nref-error stop\n");
	stop();
	return 0;
}

void reader()
{
	int refn;
	int command;
	for(bufp=buf;bufp<bufend;bufp++)
	{
		command = *bufp;
		switch(command)
		{
		case i_copyto:
			if(acm.type==type_empty){
				printf("no value");
			}

			carpet[refsolver()] = acm;
			break;

		case i_copyfrom:
			refn = refsolver();
			if(carpet[refn].type==type_empty){
				printf("no value");
				bufp=buf;
			}else{
				acm=carpet[refn];
			}
			break;

		case i_bump_p:
		case i_bump_m:
			refn = refsolver();
			if(carpet[refn].type==type_empty){
				printf("no value");
				bufp=buf;
			}else{
				if(command==i_bump_p){
					carpet[refn].num++;
				}else{
					carpet[refn].num--;
				}
				acm=carpet[refn];
			}
			break;

		case i_outbox:
			switch (acm.type) {
				case type_empty:
					printf("error nothing to outbox\n");
					return;
				case type_char:
					putchar(acm.num);
					break;
				case type_num:
					printf(" %d",acm.num);
					break;
			}
			acm.type = type_empty;
			//printf("!outbox\n");
			break;

		case i_get:
			switch(*(++bufp)){
				case i_num:
					acm.type = type_num;
					acm.num = *(++bufp);
					break;
				case i_char:
					acm.type = type_char;
					acm.num = *(++bufp);
					break;
				default:
					printf("get error\n");
					return;
			}
			break;

		//jump----------------
		case i_jumpifneg:
		//原作の仕様通り、型チェックはしない
		//空のときのみ例外
			bufp += 2;				
			if(acm.type == type_empty){
				printf("if error no tile\n");
				return;
			}
			if(acm.num < 0){
				int* p = labelsearch(*bufp);
				if(p == NULL)
					return;
				bufp = p;
			}
			break;

		case i_jumpifzero:
		//原作の仕様通り、型チェックはしない
		//空のときのみ例外
			bufp += 2;
			if(acm.type == type_empty){
				printf("if error no tile\n");
				return;
			}
			if(acm.num==0){
				int* p = labelsearch(*bufp);
				if(p == NULL)
					return;
				bufp = p;
			}
			break;

		case i_label:
			printf("?\n");
		case i_jump:
			bufp += 2;
			int* p = labelsearch(*bufp);
			if(p == NULL)
				return;
			bufp = p;
			break;

		//jump end --------------
		}
		//dprint("iok\n");
	}
}

//-------------------------------

void run()
{
	setup();
	reader();
}

int main()
{
	init();
	bool run_start = false;
	dprint("table size: %d\n",KWTBL_SIZE);
	for(;;)
	{
		putchar('>');
		if(fgets(raw, 256, stdin) == NULL){
			putchar('\n');
			return 0;
		}
		trans();
		run_start = false;
		dprint("-----------\n");
		for(int i=0;i<buflen;i++){
			if(buf[i] == i_run){
				buflen = i;
				run_start = true;
				break;
			}
			#ifdef debug
			if(buf[i] == i_num){
				//printf("i_num\n");
				printf("%d\n",buf[++i]);
				continue;
			}
			if(buf[i] == i_char){
				printf("'");
				printf("%c",buf[++i]);
				printf("'\n");
				continue;
			}
			if(buf[i] == i_pass){
				//printf("i_pass\n");
				continue;
			}
			if(0<buf[i] && buf[i]<KWTBL_SIZE){
				if(buf[i]<KW_NEED_NEWLINE){
				printf("%s\n",kwtbl[buf[i]]);
				}else{
				printf("%s ",kwtbl[buf[i]]);
				}
			}
			#endif
		}
		dprint("-----------\n");
		if(run_start){
			printf("start!\n");
			run();
		}
	}
	return 0;
}