extremely general top level threaded loop

[David L. Nicol]

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]