John Porter wrote:
>
> "All flow control will implemented as longjumps."
>
> --
> John Porter
# language description has a lot to do.
# this is a general, threaded, top-level loop.
# a no-brainer.
$rearrange = sub{ # so this can be redefinied
my $i, $t, $n;
for (my $i = 0; $i < @_; $i++){
$t = $_[$n = rand @_];
$_[$n] = $_[$i];
$_[$i] = $t;
}
@_;
};
require "language_description.pl"; # must define the following:
push @threads, tokens2thread tokenize(<>);
while(&$rearrange(@threads)){
$_->load_run_unload for @threads;
};
--
David Nicol 816.235.1187 [EMAIL PROTECTED]