[jackhill/mal.git] / pike / step0_repl.pike

import .Readline;

string READ(string str)
{
  return str;
}

string EVAL(string ast, string env)
{
  return ast;
}

string PRINT(string exp)
{
  return exp;
}

string rep(string str)
{
  return PRINT(EVAL(READ(str), ""));
}

int main()
{
  while(1)
  {
    string line = readline("user> ");
    if(!line) break;
    if(strlen(line) == 0) continue;
    write(({ rep(line), "\n" }));
  }
  write("\n");
  return 0;
}
Commit	Line	Data
a04e7a78 DM	1	import .Readline;
	2
	3	string READ(string str)
	4	{
	5	return str;
	6	}
	7
	8	string EVAL(string ast, string env)
	9	{
	10	return ast;
	11	}
	12
	13	string PRINT(string exp)
	14	{
	15	return exp;
	16	}
	17
	18	string rep(string str)
	19	{
	20	return PRINT(EVAL(READ(str), ""));
	21	}
	22
	23	int main()
	24	{
	25	while(1)
	26	{
	27	string line = readline("user> ");
	28	if(!line) break;
	29	if(strlen(line) == 0) continue;
	30	write(({ rep(line), "\n" }));
	31	}
	32	write("\n");
	33	return 0;
	34	}