SRL Archive - Help and Support

While coding today I realized I wanted to have an exit function for all the procedures in my script, in a hierarchy.

So if my code looks like this:

procedure FindTree;
begin
  if not FindColor then
  begin
    Writeln('FATAL ERROR, KILLING PROCEDURE STACK');
    while (sender != CutDownTree) //possible inf loop... getPossibleSenders()?
      sender = sender.getSender();
    sender.kill();
  end;

end;

procedure CutDownTree;
begin
  FindTree;
  FindTree;
  FindTree;
  FindTree;
end;

procedure TreeLoop;
begin
  CutDownTree;
end;

This allows me to avoid having to add a fail case for every single procedure:

procedure CutDownTree;
begin
  if not FindTree then
  begin
    Writeln('I failed - 1');
    Exit;
  end;
  
  if not FindTree then
  begin
    Writeln('I failed - 2');
    Exit;
  end;
  
  if not FindTree then Exit;
  if not FindTree then Exit;
end;

What are your suggestions? I have thought about using exceptions, but that still requires making try/except blocks for every procedure/function.


TL;DR:
procedure a -> procedure b -> procedure c
I want to kill procedure a from procedure c. How?

That's basically what exceptions do. There's not much else, really.. :p

for..to..do?

From: Rich
for..to..do?

Explain please? Maybe with an example?

Edit: I think you missed the point.

Throw a custom exception and propagate it as you need it to be done.

Yeah exceptions are working out ok… /thread lol

I'd recommend exceptions in any other language, but it seems they might be slow(er?) in interpreted pascal - have you noticed any detrimental effects?