__MVDBGINFO()

This function returns the information about the variables for debugger

Syntax

__MVDBGINFO( <nScope> [, <nPosition> [, @<cVarName>] ] )

Arguments

<nScope> = the scope of variables for which an information is asked Supported values (defined in hbmemvar.ch) HB_MV_PUBLIC HB_MV_PRIVATE (or any other value) <nPosition> = the position of asked variable on the list of variables with specified scope - it should start from position 1 <cVarName> = the value is filled with a variable name if passed by reference and <nPosition> is specified

Returns

The return value depends on the number of arguments passed

Description

This function retrieves the information about memvar variables. It returns either the number of variables with given scope (when the first argument is passed only) or a value of variable identified by its position in the variables' list (when second argument is passed). It also returns the name of a variable if optional third argument is passed by reference.

If requested variable doesn't exist (requested position is greater then the number of defined variables) then NIL value is returned and variable name is set to "?"

The dynamic symbols table is used to find a PUBLIC variable then the PUBLIC variables are always sorted alphabetically. The PRIVATE variables are sorted in the creation order.

Note: Due to dynamic nature of memvar variables there is no guarantee that successive calls to retrieve the value of <Nth> PUBLIC variable will return the value of the same variable.
Examples

#include LOCAL nCount, i, xValue, cName nCount =_mvDBGINFO( HB_MV_PUBLIC ) FOR i:=1 TO nCount xValue =__mvDBGINFO( HB_MV_PUBLIC, i, @cName ) ? i, cName, xValue NEXT Tests #include PROCEDURE MAIN() ? 'PUBLIC=', __mvDBGINFO( HB_MV_PUBLIC ) ? 'PRIVATE=', __mvDBGINFO( HB_MV_PRIVATE ) PUBLIC cPublic:='cPublic in MAIN' ? 'PUBLIC=', __mvDBGINFO( HB_MV_PUBLIC ) ? 'PRIVATE=', __mvDBGINFO( HB_MV_PRIVATE ) PRIVATE cPrivate:='cPrivate in MAIN' ? 'PUBLIC=', __mvDBGINFO( HB_MV_PUBLIC ) ? 'PRIVATE=', __mvDBGINFO( HB_MV_PRIVATE ) CountMemvars() ? 'Back in Main' ? 'PUBLIC=', __mvDBGINFO( HB_MV_PUBLIC ) ? 'PRIVATE=', __mvDBGINFO( HB_MV_PRIVATE ) RETURN PROCEDURE CountMemvars() LOCAL i, nCnt, xVal, cName PUBLIC ccPublic:='ccPublic' PRIVATE ccPrivate:='ccPrivate' ? 'In CountMemvars' ? 'PUBLIC=', __mvDBGINFO( HB_MV_PUBLIC ) ? 'PRIVATE=', __mvDBGINFO( HB_MV_PRIVATE ) PRIVATE cPublic:='cPublic' ? 'PUBLIC=', __mvDBGINFO( HB_MV_PUBLIC ) ? 'PRIVATE=', __mvDBGINFO( HB_MV_PRIVATE ) nCnt =__mvDBGINFO( HB_MV_PRIVATE ) +1 FOR i:=1 TO nCnt xVal =__mvDBGINFO( HB_MV_PRIVATE, i, @cName ) ? i, '=', cName, xVal NEXT nCnt =__mvDBGINFO( HB_MV_PUBLIC ) +1 FOR i:=1 TO nCnt xVal =__mvDBGINFO( HB_MV_PUBLIC, i, @cName ) ? i, '=', cName, xVal NEXT RETURN
Status

Ready

Compliance

This function should be called from the debugger only.

Files

Library is vm