Lines Matching refs:var
296 VARIANT var;
339 static HRESULT ole_val_ary2variant_ary(VALUE val, VARIANT *var, VARTYPE vt);
340 static void ole_val2variant(VALUE val, VARIANT *var);
341 static void ole_val2variant_ex(VALUE val, VARIANT *var, VARTYPE vt);
342 static void ole_val2ptr_variant(VALUE val, VARIANT *var);
343 static void ole_set_byref(VARIANT *realvar, VARIANT *var, VARTYPE vt);
345 static void ole_val2variant2(VALUE val, VARIANT *var);
592 static VOID * val2variant_ptr(VALUE val, VARIANT *var, VARTYPE vt);
1495 VARIANT var;
1500 VariantInit(&var);
1501 p = val2variant_ptr(val1, &var, vt);
1503 if ((V_VT(&var) == VT_DISPATCH && V_DISPATCH(&var) == NULL) ||
1504 (V_VT(&var) == VT_UNKNOWN && V_UNKNOWN(&var) == NULL)) {
1568 ole_val_ary2variant_ary(VALUE val, VARIANT *var, VARTYPE vt)
1618 V_VT(var) = vt;
1619 V_ARRAY(var) = psa;
1629 ole_val2variant(VALUE val, VARIANT *var)
1636 V_VT(var) = VT_DISPATCH;
1637 V_DISPATCH(var) = pole->pDispatch;
1642 VariantCopy(var, &(pvar->var));
1647 V_VT(var) = VT_DATE;
1648 V_DATE(var) = rbtime2vtdate(val);
1653 ole_val_ary2variant_ary(val, var, VT_VARIANT|VT_ARRAY);
1656 V_VT(var) = VT_BSTR;
1657 V_BSTR(var) = ole_vstr2wc(val);
1660 V_VT(var) = VT_I4;
1661 V_I4(var) = NUM2INT(val);
1664 V_VT(var) = VT_R8;
1665 V_R8(var) = rb_big2dbl(val);
1668 V_VT(var) = VT_R8;
1669 V_R8(var) = NUM2DBL(val);
1672 V_VT(var) = VT_BOOL;
1673 V_BOOL(var) = VARIANT_TRUE;
1676 V_VT(var) = VT_BOOL;
1677 V_BOOL(var) = VARIANT_FALSE;
1681 V_VT(var) = VT_ERROR;
1682 V_ERROR(var) = DISP_E_PARAMNOTFOUND;
1684 V_VT(var) = VT_EMPTY;
1688 V_VT(var) = VT_DISPATCH;
1689 V_DISPATCH(var) = val2dispatch(val);
1695 ole_val2variant_ex(VALUE val, VARIANT *var, VARTYPE vt)
1699 ole_val2variant2(val, var);
1701 V_VT(var) = (vt & ~VT_BYREF);
1702 if (V_VT(var) == VT_DISPATCH) {
1703 V_DISPATCH(var) = NULL;
1704 } else if (V_VT(var) == VT_UNKNOWN) {
1705 V_UNKNOWN(var) = NULL;
1713 V_VT(var) = VT_I8;
1714 V_I8(var) = NUM2I8 (val);
1717 V_VT(var) = VT_UI8;
1718 V_UI8(var) = NUM2UI8(val);
1721 ole_val2variant2(val, var);
1725 ole_val2variant2(val, var);
1730 ole_val2ptr_variant(VALUE val, VARIANT *var)
1734 if (V_VT(var) == (VT_BSTR | VT_BYREF)) {
1735 *V_BSTRREF(var) = ole_vstr2wc(val);
1739 switch(V_VT(var)) {
1741 *V_UI1REF(var) = NUM2CHR(val);
1744 *V_I2REF(var) = (short)NUM2INT(val);
1747 *V_I4REF(var) = NUM2INT(val);
1750 *V_R4REF(var) = (float)NUM2INT(val);
1753 *V_R8REF(var) = NUM2INT(val);
1760 switch(V_VT(var)) {
1762 *V_I2REF(var) = (short)NUM2INT(val);
1765 *V_I4REF(var) = NUM2INT(val);
1768 *V_R4REF(var) = (float)NUM2DBL(val);
1771 *V_R8REF(var) = NUM2DBL(val);
1778 if (V_VT(var) == (VT_R8 | VT_BYREF)) {
1779 *V_R8REF(var) = rb_big2dbl(val);
1783 if (V_VT(var) == (VT_BOOL | VT_BYREF)) {
1784 *V_BOOLREF(var) = VARIANT_TRUE;
1788 if (V_VT(var) == (VT_BOOL | VT_BYREF)) {
1789 *V_BOOLREF(var) = VARIANT_FALSE;
1798 ole_set_byref(VARIANT *realvar, VARIANT *var, VARTYPE vt)
1800 V_VT(var) = vt;
1802 V_VARIANTREF(var) = realvar;
1809 V_I1REF(var) = &V_I1(realvar);
1812 V_UI1REF(var) = &V_UI1(realvar);
1815 V_I2REF(var) = &V_I2(realvar);
1818 V_UI2REF(var) = &V_UI2(realvar);
1821 V_I4REF(var) = &V_I4(realvar);
1824 V_UI4REF(var) = &V_UI4(realvar);
1827 V_R4REF(var) = &V_R4(realvar);
1830 V_R8REF(var) = &V_R8(realvar);
1836 V_I8REF(var) = &V_I8(realvar);
1841 V_UI8REF(var) = &V_UI8(realvar);
1846 V_INTREF(var) = &V_INT(realvar);
1850 V_UINTREF(var) = &V_UINT(realvar);
1854 V_CYREF(var) = &V_CY(realvar);
1857 V_DATEREF(var) = &V_DATE(realvar);
1860 V_BSTRREF(var) = &V_BSTR(realvar);
1863 V_DISPATCHREF(var) = &V_DISPATCH(realvar);
1866 V_ERRORREF(var) = &V_ERROR(realvar);
1869 V_BOOLREF(var) = &V_BOOL(realvar);
1872 V_UNKNOWNREF(var) = &V_UNKNOWN(realvar);
1875 V_ARRAYREF(var) = &V_ARRAY(realvar);
1908 V_VT(&(pvar->var)) = vt;
1909 V_ARRAYREF(&(pvar->var)) = &(V_ARRAY(&(pvar->realvar)));
1911 hr = VariantCopy(&(pvar->var), &(pvar->realvar));
1919 V_VT(&(pvar->var)) = vt;
1921 V_ARRAYREF(&(pvar->var)) = &(V_ARRAY(&(pvar->realvar)));
1927 V_VT(&(pvar->var)) = vt;
1928 V_ARRAYREF(&(pvar->var)) = &(V_ARRAY(&(pvar->realvar)));
1930 hr = VariantCopy(&(pvar->var), &(pvar->realvar));
1937 ole_val2variant_ex(val, &(pvar->var), (vt & ~VT_BYREF));
1938 V_VT(&(pvar->var)) = vt;
1940 ole_set_byref(&(pvar->realvar), &(pvar->var), vt);
1945 V_VT(&(pvar->var)) = vt;
1947 ole_set_byref(&(pvar->realvar), &(pvar->var), vt);
1951 ole_set_byref(&(pvar->realvar), &(pvar->var), vt);
1957 ole_set_byref(&(pvar->realvar), &(pvar->var), vt);
1964 ole_set_byref(&(pvar->realvar), &(pvar->var), vt);
1968 hr = VariantCopy(&(pvar->var), &(pvar->realvar));
1970 hr = VariantChangeTypeEx(&(pvar->var), &(pvar->realvar),
1982 ole_val2variant2(VALUE val, VARIANT *var)
1985 ole_val2variant(val, var);
3454 VariantCopy(&op.dp.rgvarg[n], &(pvar->var));
6130 VALUE var;
6147 var = Data_Make_Struct(cWIN32OLE_VARIABLE, struct olevariabledata,
6152 rb_ivar_set(var, rb_intern("name"), WC2VSTR(bstr));
6153 rb_ary_push(variables, var);
8642 VariantClear(&(pvar->var));
8653 VariantInit(&(pvar->var));
8712 V_VT(&(pvar->var)) = vt;
8716 V_ARRAYREF(&(pvar->var)) = &(V_ARRAY(&(pvar->realvar)));
8718 V_ARRAY(&(pvar->var)) = psa;
8746 VARIANT var;
8756 VariantInit(&var);
8780 ole_val2variant(val, &(pvar->var));
8786 vt = V_VT(&pvar->var);
8797 if (!(V_VT(&(pvar->var)) & VT_ARRAY)) {
8800 psa = V_ISBYREF(&(pvar->var)) ? *V_ARRAYREF(&(pvar->var)) : V_ARRAY(&(pvar->var));
8872 if (!V_ISARRAY(&(pvar->var))) {
8884 V_VT(&variant) = (V_VT(&(pvar->var)) & ~VT_ARRAY) | VT_BYREF;
8897 val2variant_ptr(VALUE val, VARIANT *var, VARTYPE vt)
8901 ole_val2variant_ex(val, var, vt);
8903 p = var;
8905 if ( (vt & ~VT_BYREF) != V_VT(var)) {
8906 hr = VariantChangeTypeEx(var, var,
8912 p = get_ptr_of_variant(var);
8946 VARIANT var;
8953 if (!V_ISARRAY(&(pvar->var))) {
8964 VariantInit(&var);
8965 vt = (V_VT(&(pvar->var)) & ~VT_ARRAY);
8966 p = val2variant_ptr(argv[argc-1], &var, vt);
8967 if ((V_VT(&var) == VT_DISPATCH && V_DISPATCH(&var) == NULL) ||
8968 (V_VT(&var) == VT_UNKNOWN && V_UNKNOWN(&var) == NULL)) {
9000 val = ole_variant2val(&(pvar->var));
9001 vt = V_VT(&(pvar->var));
9005 psa = *V_ARRAYREF(&(pvar->var));
9007 psa = V_ARRAY(&(pvar->var));
9034 return INT2FIX(V_VT(&pvar->var));
9057 vt = V_VT(&(pvar->var));
9058 if (V_ISARRAY(&(pvar->var)) && ((vt & ~VT_BYREF) != (VT_UI1|VT_ARRAY) || TYPE(val) != T_STRING)) {