I'm bringing goto back

Yeah, "goto considered harmful" considered harmful.
It's so easy to parse when it's one command per line...

Here's what I did so far


open FILE, "filename.txt" or die $!;

my @lines = <FILE>;
my %labels;

my $ind = 0;

while ($ind < @lines.length){
    my $cmd = @lines[$ind];
    if ($cmd =~ /^\s*(\w+):$/){
        if (!exists($labels{$1})){
            $labels{$1} = $ind;
        }
    }
    $ind++;
}

$ind = 0;

while ($ind < @lines.length){
    my $cmd = @lines[$ind];
    if ($cmd =~ /^\s*goto (\w+);$/){
        if (exists($labels{$1})){
            $ind = $labels{$1};
        }
    } elsif ($cmd =~ /^\s*print \"(.+)\";$/){
        print $1;
    }
    $ind++;
}

example program:

asd:
print "asd";
goto doge;
print "never printed";
doge:
print "aw! aw!";
goto asd;

imperative programming considered harmful

Hey, I was thinking, would be cool something like fork label; that spawns a new process starting at the given label

Lets see how we can replace an ugly goto with an elegant structured programming constructs.

Given an unstructured loop

line1:
  printf("Dijkstra sucks cocks in hell.\n");
  goto line1;


Without sacrificing any expressiveness, we can refactor it using goto into:

line = 0;
while (line++ > 0)
{
  switch(line)
  {
  case 1: printf("Dijkstra sucks cocks in hell.\n") break;
  case 2: line = 1; break;
  }
}


Not only did we killed goto, but also gained a way to address lines of code programmatically. I.e. we can compute the next value of "line" variable.

>>4
line = 0;
while (line++ > 0)

>while (0 > 0)

also, I know that is possible, etc, but I just wanted a simple language to make to play with, and getting that low-level feel is cool

>>5
++line
self fix

>>3
All I found was this http://cis.poly.edu/muller/CS623/FORKJOIN.htm but it doesn't say what language it is using

>>4
I know you're trolling, but why not while (true) printf("Dijkstra sucks cocks in hell.\n")? That simulated labels thing leads to just as much spaghetti as goto.

>>8
that's not what his code does

USE FORTH YOU FAT FUCKER

>>10
No one except Mentishit uses Forth. It's a dead language that belongs in the ancient Egypt exhibit in a history museum, deal with it.

>>11
I use forth.

>>12

therefore you are metifex