Passing unlimited number of arguments in ProcCall

RAPID Programming
, , ,
1

This question isn’t a show stopper for me at all. I have what I’m looking to do coded in a different way right now, just could be a lot cleaner if what I’m looking to do is possible. Is there a way to create a procedure without a predefined set of arguments?

such as in Python:

def ProcToCall (**args):
pass

One workaround I know I can do is predefine a larger list of optional arguments like below, but wouldn’t be ideal for what I’m trying to achieve.

PROC ProcToCall (\VAR num Arg1, \VAR num Arg2…)
IF Present(Arg1) THEN
!Do something
ENDIF
IF Present(Arg2) THEN
!Do something
ENDIF
…

Thanks in advance.

2

Hello,
you could pass an array that contains your required parameters.

If you define the array directly in the routine call, you can pass as many parameters as you want without having to create an array as a variable previously.

Attached is an example:

PROC TEST1()
    ProcToCall;
    ProcToCall\Args:=[1];
    ProcToCall\Args:=[1,2,4];
  ENDPROC

  PROC ProcToCall(\num Args{*})
    VAR num nDim;
       !Get the number of parameters
    IF Present(Args) THEN
      nDim:=Dim(Args,1);
      IF Present(Args) AND nDim>=1 THEN
        TPWrite "Arg1: "\num:=Args{1};
      ENDIF
      IF Present(Args) AND nDim>=2 THEN
        TPWrite "Arg2: "\num:=Args{2};
      ENDIF
    ENDIF
  ENDPROC
3

This is exactly what I was looking for. Thanks!