Local variables to multiple procedures in an il file

 Hello,

You can have varE in the let statement for myProcedureA, and then passed as an argument to myProcedureB:

 
procedure( myProcedureA()

                let((varA varB varE)

                     procedureB(varE)

                   ) )

procedure( myProcedureB(varE)

                let((varC varD)

                     skill coding...

                   ) )

You're in luck. You don't need to do anything. The local variables in the calling procedure are available in the called procedure.

Try it!

eg:

procedure( myProcedureA() let((varA) varA = 123 myProcedureB()))

procedure( myProcedureB() let((varC varD) println(varA) ))

myProcedureA()
123

println(varA)
E- *Error* eval: unbound variable - varA
ERROR

hi eDave and Anton,

Thanks for the solution, i tried both of them and it works~

appreciate your help on this.

hi,

actually my coding problem is like this:

I open a form handle in procedureA

procedure( procedureA()

let( (list1 list2 myform)

             list1 = '(a b c d)

             list = '(e f g h)

             ...

              myform = axlFormCreate((gensym) "anyform.form" '("E" "OUTER")   '_ncAction t)

)

I want to pass the list1 and list2 (which are defined from procedureA) to the form action procedure "_ncAction" but I want to make them (list1, list2 and myform) local to the 2 procedures only. so I define this in my _ncAction...

procedure(  _ncAction(ncform list1 list2)               

               ...

)

 and an error message is shown "_ncAction: too few arguments (3 expected, 1 given) " . It seems that list1 and list2 are NOT passed to the form action (_ncAction) procedure... is it possible to overcome this?

Thanks again for help~

Try this method:

myform = axlFormCreate((gensym) "anyform.form" '("E" "OUTER")   '_ncAction t)

myform ->list1 = '(a b c d)

myform ->list = '(e f g h)

in your callback funtion you can retrieve the lists by using:

ncform ->list1 and ncform ->list