utils/repl.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4
   5 print "lua> ";
   6
   7 while (my $command = <STDIN>) {
   8   if ($command =~ /^\s*([a-zA-Z_0-9]+)\s*=(.*)/) {
   9     $command = "$command; return $1;";
  10   } elsif ($command =~ /return/) {
  11     $command = $command;
  12   } else {
  13     $command = "return $command";
  14   }
  15   print `notionflux -e "$command"`;
  16   print "lua> ";
  17 }