4.61 b1 - Macro error

Seymour Clufley · **Posted:** Sun Feb 19, 2012 3:48 pm

Running the following code on Windows XP and 7, I get a compiler error on the line where the macro StringifyGroupParameter is used.

Code:

Structure TestStructure
   Map parameter.b()
EndStructure
Global NewMap Group.TestStructure()

Macro StringifyGroupParameter(type)
   key.s = Str(type)
   If FindMapElement(\parameter(),key)
      Debug "ok"
   EndIf
EndMacro

Procedure.s Test(ocode.s)
   
   With Group(ocode)
      
      Dim paramt.s(1)
      StringifyGroupParameter(0)
      
   EndWith
   
EndProcedure

STARGÅTE · **Posted:** Sun Feb 19, 2012 5:20 pm

With isn't work in the inserted macro!

c4s · **Posted:** Sun Feb 19, 2012 5:27 pm

Unfortunately the With / EndWidth keyword doesn't work inside Macros.

Edit: STARGÅTE already said it.

ozzie · **Posted:** Sun Feb 19, 2012 6:02 pm

I encountered a similar problem recently regarding Macros and With, so I now pass the group instance as a parameter to the macro, eg:

Code:

Structure TestStructure
   Map parameter.b()
EndStructure
Global NewMap Group.TestStructure()

Macro StringifyGroupParameter(type, pGroup)
   key.s = Str(type)
   If FindMapElement(pGroup\parameter(),key)
      Debug "ok"
   EndIf
EndMacro

Procedure.s Test(ocode.s)
   
   Dim paramt.s(1)
   StringifyGroupParameter(0, Group(ocode))
      
EndProcedure

You can still use With inside Test if you need it for other reasons - it's just that the Macro cannot use it and macros also cannot contain With.

PureBasic Forum

4.61 b1 - Macro error

Who is online