Test for argument const

[JohnOne]

Do any of you fine people know of a way to determine if an argument is a const/literal?

Here is some kind of related code...

#nothing_here
Local Const $Const = 1
Local $Obj = ObjCreate("scripting.dictionary")

_MyFunc($Const, "String Literal", 1, True, Null, _Func, $Obj)

Func _MyFunc($val1, $val2, $val3, $val4, $val5, $val6, $val7)
    If VarGetType($val7) = "Object" Or _
            VarGetType($val6) = "UserFunction" Or _
            VarGetType($val5) = "Keyword" Then
        MsgBox(0, 0, "Argument cannot be passed as reference")
    EndIf
EndFunc   ;==>_MyFunc

Func _Func()
    Return 0.5
EndFunc   ;==>_Func

So in essence, I'm after a way to determine whether the first four args are const or literal values.

Edited February 7, 2016 by JohnOne

[jchd]

I don't fully get what you mean here. Arguments passed by value are just local variables on the stack from the point of view of the callee. I don't believe you can determine whether the values passed were originally variables or literals in the invokation line (caller).

I also don't understand what purpose the If VarGetType(... does and why the message.

[JohnOne]

I don't understand myself, anymore, after reading your reply.

I'll have to put it down to faulty brains. I'm having a bad day.

Case closed.

Thanks.