计算监视表达式

当 Visual Studio 准备好显示监视表达式的值时，它将调用 EvaluateSync，后者又调用 EvaluateSync。 此过程生成一个 IDebugProperty2 对象，该对象包含表达式的值和类型。

在此实现中，IDebugParsedExpression::EvaluateSync 表达式将同时被分析和计算。 此实现执行以下任务：

1. 分析和计算表达式以生成一个保存值的泛型对象及其类型。 在 C# 中，此表示为 object，而在 C++ 中，表示为 VARIANT。

2. 实例化一个类（在此示例中称为 CValueProperty），该类实现IDebugProperty2接口，并在类中保存要返回的值。

3. 从CValueProperty对象返回IDebugProperty2接口。

托管代码

这是托管代码的 IDebugParsedExpression::EvaluateSync 实现。 帮助程序方法 Tokenize 将表达式分析为分析树。 帮助程序函数 EvalToken 将令牌转换为值。 辅助函数 FindTerm 以递归方式遍历语法树，调用 EvalToken 表示一个值的每个节点，并在表达式中应用任何操作（加法或减法）。

namespace EEMC
{
    public class CParsedExpression : IDebugParsedExpression
    {
        public HRESULT EvaluateSync(
            uint evalFlags,
            uint timeout,
            IDebugSymbolProvider provider,
            IDebugAddress address,
            IDebugBinder binder,
            string resultType,
            out IDebugProperty2 result)
        {
            HRESULT retval = COM.S_OK;
            this.evalFlags = evalFlags;
            this.timeout = timeout;
            this.provider = provider;
            this.address = address;
            this.binder = binder;
            this.resultType = resultType;

            try
            {
                IDebugField field = null;
                // Tokenize, then parse.
                tokens = Tokenize(expression);
                result = new CValueProperty(
                        expression,
                        (int) FindTerm(EvalToken(tokens[0], out field),1),
                        field,
                        binder);
            }
            catch (ParseException)
            {
                result = new CValueProperty(expression, "Huh?");
                retval = COM.E_INVALIDARG;
            }
            return retval;
        }
    }
}

非托管代码

这是非托管代码的 IDebugParsedExpression::EvaluateSync 实现。 辅助函数 Evaluate 解析并计算表达式，返回包含结果值的VARIANT。 帮助程序函数 VariantValueToProperty 将捆绑 VARIANT 到对象 CValueProperty 中。

STDMETHODIMP CParsedExpression::EvaluateSync(
    in  DWORD                 evalFlags,
    in  DWORD                 dwTimeout,
    in  IDebugSymbolProvider* pprovider,
    in  IDebugAddress*        paddress,
    in  IDebugBinder*         pbinder,
    in  BSTR                  bstrResultType,
    out IDebugProperty2**     ppproperty )
{
    // dwTimeout parameter is ignored in this implementation.
    if (pprovider == NULL)
        return E_INVALIDARG;

    if (paddress == NULL)
        return E_INVALIDARG;

    if (pbinder == NULL)
        return E_INVALIDARG;

    if (ppproperty == NULL)
        return E_INVALIDARG;
    else
        *ppproperty = 0;

    HRESULT hr;
    VARIANT value;
    BSTR    bstrErrorMessage = NULL;
    hr = ::Evaluate( pprovider,
                     paddress,
                     pbinder,
                     m_expr,
                     &bstrErrorMessage,
                     &value );
    if (hr != S_OK)
    {
        if (bstrErrorMessage == NULL)
            return hr;

        //we can display better messages ourselves.
        HRESULT hrLocal = S_OK;
        VARIANT varType;
        VARIANT varErrorMessage;

        VariantInit( &varType );
        VariantInit( &varErrorMessage );
        varErrorMessage.vt      = VT_BSTR;
        varErrorMessage.bstrVal = bstrErrorMessage;

        CValueProperty* valueProperty = new CValueProperty();
        if (valueProperty != NULL)
        {
            hrLocal = valueProperty->Init(m_expr, varType, varErrorMessage);
            if (SUCCEEDED(hrLocal))
            {
                hrLocal = valueProperty->QueryInterface( IID_IDebugProperty2,
                        reinterpret_cast<void**>(ppproperty) );
            }
        }

        VariantClear(&varType);
        VariantClear(&varErrorMessage); //frees BSTR
        if (!valueProperty)
            return hr;
        valueProperty->Release();
        if (FAILED(hrLocal))
            return hr;
    }
    else
    {
        if (bstrErrorMessage != NULL)
            SysFreeString(bstrErrorMessage);

        hr = VariantValueToProperty( pprovider,
                                     paddress,
                                     pbinder,
                                     m_radix,
                                     m_expr,
                                     value,
                                     ppproperty );
        VariantClear(&value);
        if (FAILED(hr))
            return hr;
    }

    return S_OK;
}

相关内容

• 评估监视窗口表达式
• 表达式计算的示例实现