[jackhill/mal.git] / perl6 / step0_repl.pl

use v6;
#use Linenoise;

sub read ($str) {
  return $str;
}

sub eval ($ast) {
  return $ast;
}

sub print ($exp) {
  return $exp;
}

sub rep ($str) {
  return print(eval(read($str)));
}

sub MAIN {
  #while (my $line = linenoise('user> ')).defined {
  #  say rep($line);
  #}
  while (my $line = prompt 'user> ').defined {
    say rep($line);
  }
}
Commit	Line	Data
a7081401 HÖS	1	use v6;
	2	#use Linenoise;
	3
	4	sub read ($str) {
	5	return $str;
	6	}
	7
	8	sub eval ($ast) {
	9	return $ast;
	10	}
	11
	12	sub print ($exp) {
	13	return $exp;
	14	}
	15
	16	sub rep ($str) {
	17	return print(eval(read($str)));
	18	}
	19
	20	sub MAIN {
	21	#while (my $line = linenoise('user> ')).defined {
	22	# say rep($line);
	23	#}
	24	while (my $line = prompt 'user> ').defined {
	25	say rep($line);
	26	}
	27	}