How to stop macro execution ?

[440bx]

Hello,

In a normal Pascal program, the procedure Halt can be used to stop the program's execution.

Is there something like Halt that stops the execution of a SynEdit macro ?  I tried Halt but, it didn't like it.

Thank you for your help.

[Martin_fr]

I don't (didn't) know.

But I followed an idea: exit;
That seems to do it.

[LV]

Yes, PascalScript (used in SynEdit macros) does not implement the full Delphi/Lazarus RTL.
Halt is a compiler intrinsic in native Pascal, not available in the PascalScript environment.

I use PascalScript in my applications and do something like this:

Code: Pascal  [Select][+][-]

1. procedure RunMacro;
2. begin
3.   // Macro logic here...
4.   if ShouldStop then
5.     Exit; // Exits the procedure
6.   // Code after exit won't run
7. end;
8.  
9. begin
10.   RunMacro; // Execute the procedure
11. end.
12.  

[Martin_fr]

Actually, exit appears to even work in the main begin end. block

[LV]

@Martin_fr. You're right, that's the way it is. 

[440bx]

Yes, exit is basically Halt when used in the main begin end block.

The problem is that in some cases I painted myself in a corner.  The macro detects a problem for which there is no solution and should stop execution but, it is several layers deep in the execution where "exit" will just go up one layer, without stopping execution.

I implemented a "band-aid", simply a message saying that a fatal problem was found.  Execution continues but, now I know the result is wrong even when it is sometimes not obviously wrong.

Thank you Martin and LV.  I appreciate your input.

[Martin_fr]

Code: Pascal  [Select][+][-]

1. var
2. a: integer;
3. begin
4.   a := 1;
5.   a := 1 div (a-1);
6. end;
7.  

[440bx]

Dividing by zero does the trick.  Stops the macro execution on its tracks.

Thank you Martin, that's very useful.

I simply created a procedure:

Code: Pascal  [Select][+][-]

1. procedure Halt();
2.   { halts macro execution                               }
3. var
4.   i : integer;
5. begin
6.   i := i div 0;
7. end;
8.  

[LV]

Dividing by zero does the trick.  Stops the macro execution on its tracks.

Thank you Martin, that's very useful.

I simply created a procedure:

Code: Pascal  [Select][+][-]

1. procedure Halt();
2.   { halts macro execution                               }
3. var
4.   i : integer;
5. begin
6.   i := i div 0;
7. end;
8.  

This is an interesting trick.  But you can do it differently (see attached project).

Pascal Script:

Code: Pascal  [Select][+][-]

1. var
2.   i: integer;
3. begin
4.   for i := 1 to 5 do
5.   begin
6.     Writeln(IntToStr(i));
7.     if i = 3 then Halt();
8.   end;
9.   Writeln('Hello, World!');
10. end.
11.  

Output:

Code: Text  [Select][+][-]

1. 1
2. 2
3. 3
4. Halt;
5.  

[440bx]

This is an interesting trick.  But you can do it differently (see attached project).

I need it to work in a macro and the real "halt" isn't available in macros.

Did I miss your point ?

[LV]

I need it to work in a macro and the real "halt" isn't available in macros.

Did I miss your point ?

*Halt* is defined in the code of the attached project.

[440bx]

I need it to work in a macro and the real "halt" isn't available in macros.

Did I miss your point ?

*Halt* is defined in the code of the attached project.

I must be missing something.  My interest is in using "Halt" in a Synedit _macro_.  The code you posted is not "macro-acceptable" since "Halt" is not available in macros and writeln isn't either.

I don't follow what you're saying, you lost me.

[LV]

I'm sorry for any confusion. I provided an example of how to achieve this in PascalScript, assuming that, since SynEdit macros are based on PascalScript, something similar can be done there as well.

[440bx]

I'm sorry for any confusion. I provided an example of how to achieve this in PascalScript, assuming that, since SynEdit macros are based on PascalScript, something similar can be done there as well.

Now, I get you.

The problem is that PascalScript in a macro is a small subset of the full PascalScript language.  No Halt, no writeln and no-many-other-things.

[Martin_fr]

If there are useful (for macros) features in the PascalScript package, and all they need is to be "enabled" (E.g. by calling some register procedure, or using some existing unit), then please provide patches or at least detailed info.

Mind you: Useful for macros.

Adding TForm is not useful for macros. Yes sure you could have an entire app running as macro, but that is not the purpose macros have (also any interactivity in macros must be modal / you can't have a macros that stays active in the background). A macro runs as a whole, and must complete and exit, before the IDE can do anything else.

If you need more, then it is time to look at IdeIntf, and write an add on (it's not that hard / just search an existing for how to register a menu or keycombo, and then use the Intf packages eg for SourceEdit)