Detecting how many parameters were passed to a function

Question

Question

Nael Nasereldeen · Jun 27, 2019

#ObjectScript #Caché

Hi,

We have a function that takes two parameters, the second one is for output value:

MyFunc(Param1,Param2)

S Param2="it's all good"

Q 1

How can we detect if the caller called the function with one, or two arguments?

Meaning, how to distinguish this call:

S Result=$$MyFunc(1)

from this call:

S Result=$$MyFunc(1,.OutVal)

Thanks!

Nael

Discussion (7)0

Log in or sign up to continue

Alexander Koblov · Jun 27, 2019

Hi Nael

Not possible, as far as I know.

You can play with $stack. Something like this:

 set Result=$$MyFunc(1,.Out)
 quit
MyFunc(Param1,Param2)
 write $stack($stack-1,"MCODE"),!
 set Param2="it's all good"
 quit 1

USER>d ^test
 set Result=$$MyFunc(1,.Out)

But here you are looking at parsing plain strings, and this is error-prone.

0 0

score 0 · Answer 1 · 2019-06-27T08:16:51-04:00

MyFunc(Param1,Param2) Public {
    if $d(Param2)  write " 2 params",! 
    else  write " 1 param",!
  
    S Param2="it's all good"

   Q 1

}

score 0 · Answer 2 · 2019-06-27T08:24:52-04:00

Hi,

Thank you,

That would work if the caller is nice enough to set the second variable to null before calling the function.

But he may not do it..

So if the function is:

MyFunc(Param1,Param2)

    if $d(Param2) {
    S Answer= " 2 params"
    } Else {
    S Answer= " 1 params"
    }

    S Param2="it's all good"

   Q Answer

Then:

USER>w $$MyFunc^%ZWBNAEL(1)
1 params
USER>w $$MyFunc^%ZWBNAEL(1,.V)
1 params

score 0 · Answer 3 · 2019-06-27T09:51:45-04:00

Nael Nasereldeen · Jun 27, 2019

Thank you Alexander,

I was not familiar with $stack , might be useful in various situations.

0 0

score 0 · Answer 4 · 2019-06-27T09:55:02-04:00

Nael Nasereldeen · Jun 27, 2019

Nice!

I did not know this was possible.

Thank you!

0 0

score 0 · Answer 5 · 2019-06-27T11:03:27-04:00

I miss Public { } in your example
it ensures that only parameters are visible as <Private variables> or all %*

score 0 · Answer 6 · 2019-06-27T09:47:27-04:00

  w $$MyFunc(1),!,
    $$MyFunc(1,.V)," V=",V,!

MyFunc(p...)
  s Answer=p_" params"
  s:p=2 p(2)="it's all good"
  q Answer


USER>do ^test
1 params
2 params V=it's all good