Can one call a program with a parameter

[bluebird]

Dear Mentors

If I want to run my program with a parameter that tells it what I want included this run,
is that supported in HMG.

Ex.
Myprogram <WithDiagnostics> // this time collect test data

Local lTest:= .F. // no unless asked for by WithDiagnostics parameter
.
.
.
if WithDiagnostics
lTest:=.T.
Endif

....later on
If lTest
... etc.
EndIf

[dragancesu]

See function PCOUNT()

[mol]

See my sample:

Code: Select all

function DebugMSG
	local i
	local cTemp := ""
	
	
	cTemp := "Call point: "+ ProcName(1)+"(" + alltrim(str(ProcLine(1)))+")" + chr(10)
	for i := 1 to pcount()
		cTemp += "TYPE:" +valtype(hb_PValue(i))+" ->"+hb_valtoexp(hb_PValue(i)) + "<-"+chr(10)
	next i
	msgbox(cTemp, "Debug Informations" )

 return

[serge_girard]

Hi Bluebird,


I use this code for testing:

Code: Select all

PUBLIC XINP_PARAM   
IF PCOUNT() = 0
   XINP_PARAM := 'P'
ELSE
   XINP_PARAM := 'T'
	MSGINFO('TEST!!!!!' ,'XINP_PARAM')
ENDIF

And this program will start on double click in your folder without parameters.

To start with paramters I use a little batchfile:

Code: Select all

START drive:\folder\program T

Serge

[edk]

If you have only one parameter you can use:

Code: Select all

Function Main()
Para WithDiagnostics

[serge_girard]

Hi Kryztof,

Can you please explain: Para WithDiagnostics

Where will input-parameter be stored and how to use it? This is completely new to me!

Thx, Serge

[edk]

Hi Serge.
It's easy, like parameters in functions. When a program is calling with parameters, the defined variables receive the values of those parameters. If there are no parameters, the variable gets Nil.

Here is an example:

Code: Select all

#include "hmg.ch"

Function Main()
PARAMETER FirstParameter, SecondParameter, ThirdParameter

MsgDebug ( FirstParameter, SecondParameter, ThirdParameter )

RETURN

Same functionality but otherwise written:

Code: Select all

#include "hmg.ch"

Function Main( FirstParameter, SecondParameter, ThirdParameter )

MsgDebug ( FirstParameter, SecondParameter, ThirdParameter )

RETURN

Try running an exe without parameters, then with one, two, and three parameters, and you'll see that the variables get their values as character variables.

PS. You can use PARAMETER and PARA interchangeably.

Regards, Edward

[apais]

Pls note that:
PARAMETETER variables have a scope equivalent to a PRIVATE variable
Variables within parenthesis eg: Main(param), have a scope equivalent to a LOCAL variable
So the PARAMETER sentence must be locate AFTER all local definitions.

HTH
Angel

[edk]

+1

[serge_girard]

Thanks all!

Serge