Generating Macros with Macros

technicorn · Post by **technicorn** » Thu Dec 04, 2008 12:16 pm

Getting PB to generate Macros with Macros is a bit tricky,
but her's one solution

; First we need some macros:
Macro _EndOfMacro1
EndM
EndMacro

Macro _EndOfMacro2
acro
EndMacro

Macro EndOfMacro
:_EndOfMacro1#_EndOfMacro2
EndMacro

; Now for the test:
Macro g1(x)
  Macro x
    Debug "Hi from macro generated macro"
  EndOfMacro
EndMacro

Macro g2(x, p1)
  Macro x
    Debug p1
  EndOfMacro
EndMacro

Macro g3(x)
  Macro x(p1)
    Debug p1
  EndOfMacro
EndMacro


g1(sayhi)
g2(saythat, "A nother macro generated macro")
g3(useparameter)
sayhi
saythat
useparameter("This is my parameter text 1")
useparameter("This is my parameter text 2")

Happy coding

Trond · Post by **Trond** » Thu Dec 04, 2008 7:25 pm

Doesn't work with the beta.

technicorn · Post by **technicorn** » Thu Dec 04, 2008 9:49 pm

Hi Trond,

I downloaded 430 beta 5 and cut and past my example to it
and it compiles without problems

PS. I'm using the windows version on XP
But maybe this isn't a reliably feature anyway.

einander · Post by **einander** » Thu Dec 04, 2008 10:33 pm

It works here with PB4.30 beta 4, XP Pro Sp3.
These are really twisted macros!

Psychophanta · Post by **Psychophanta** » Thu Dec 04, 2008 11:16 pm

Trond wrote:Doesn't work with the beta.

Same here with b5

jack · Post by **jack** » Thu Dec 04, 2008 11:16 pm

I with Trond, keep getting "EndMacro is missing" error

technicorn · Post by **technicorn** » Thu Dec 04, 2008 11:30 pm

Hi all,

maybe the ':' before the '_EndOfMacro1#_EndOfMacro2' from macro EndOfMacro got removed when you cut an past.
This is mandatory for this to work.
Seems like this is what makes the compiler re-interprete the line, so the
generated 'EndMacro' get's recognized.

Maybe Fred can say if this is something you can rely on or not,
till then, you shouldn't build a huge amount of macro generating macros

Psychophanta · Post by **Psychophanta** » Thu Dec 04, 2008 11:35 pm

technicorn wrote:Hi all,

maybe the ':' before the '_EndOfMacro1#_EndOfMacro2' from macro EndOfMacro got removed when you cut an past.
This is mandatory for this to work.

Still same.
Does this work for you?
http://www.purebasic.fr/english/viewtopic.php?t=35341

pdwyer · Post by **pdwyer** » Fri Dec 05, 2008 1:15 am

10 out of 10 for imagination
1 out of 10 for supportability

Interesting to read how it works but I probably won't use it

technicorn · Post by **technicorn** » Fri Dec 05, 2008 6:17 am

@Psychophanta

Your example doesn't work neither on 420 final windows nor 430 beta 5 windows
Tried it with and without parentheses on the first to macros, no success

But the error box that pops ub shows exactly the right macro name, so this really is a bug

SFSxOI · Post by **SFSxOI** » Fri Dec 05, 2008 2:17 pm

does not work here on 4.2. I get "EndMacro is missing" error and if I add a "EndMacro" at the very bottom of code it compiles and runs but doesn't do anything. So overall its doesn't work here.

Trond · Post by **Trond** » Fri Dec 05, 2008 4:09 pm

I just get "EndMacro" missing.

hallodri · Post by **hallodri** » Sat Dec 06, 2008 10:10 pm

Remove the space after "EndM " and "acro ".

Psychophanta · Post by **Psychophanta** » Sun Dec 07, 2008 10:34 am

hallodri wrote:Remove the space after "EndM " and "acro ".

Good observation, that was the fault.
I removed every space after every line. I hate those spaces got when copy from the forum.

ABBKlaus · Post by **ABBKlaus** » Sun Dec 07, 2008 10:57 pm

adding a semicolon would solve that issue.

Code: Select all

Macro _EndOfMacro1 
EndM; 
EndMacro 

Macro _EndOfMacro2 
acro; 
EndMacro