Ruby
2.7.2p137(2020-10-01revision5445e0435260b449decf2ac16f9d09bae3cafe72)
|
Go to the documentation of this file.
8 static HRESULT recordinfo_from_itypelib(ITypeLib *pTypeLib,
VALUE name, IRecordInfo **ppri);
10 static void olerecord_free(
void *pvar);
11 static size_t olerecord_size(
const void *
ptr);
25 {
NULL, olerecord_free, olerecord_size,},
30 recordinfo_from_itypelib(ITypeLib *pTypeLib,
VALUE name, IRecordInfo **ppri)
39 count = pTypeLib->lpVtbl->GetTypeInfoCount(pTypeLib);
41 hr = pTypeLib->lpVtbl->GetDocumentation(pTypeLib,
i,
46 hr = pTypeLib->lpVtbl->GetTypeInfo(pTypeLib,
i, &pTypeInfo);
51 hr = GetRecordInfoFromTypeInfo(pTypeInfo, ppri);
76 hr =
pri->lpVtbl->PutField(
pri, INVOKE_PROPERTYPUT, prec->
pdata, pbuf, &var);
112 fields = folerecord_to_h(rec);
114 V_RECORDINFO(var) =
pri;
115 V_RECORD(var) = prec->
pdata;
116 V_VT(var) = VT_RECORD;
141 hr =
pri->lpVtbl->GetName(
pri, &bstr);
147 if (FAILED(hr) ||
count == 0)
150 hr =
pri->lpVtbl->GetFieldNames(
pri, &
count, bstrs);
162 hr =
pri->lpVtbl->GetFieldNoCopy(
pri, prec, bstrs[
i], &var, &
pdata);
216 olerecord_free(
void *
ptr) {
226 olerecord_size(
const void *
ptr)
235 hr = pvar->
pri->lpVtbl->GetSize(pvar->
pri, &
size);
284 ITypeLib *pTypeLib =
NULL;
313 hr = recordinfo_from_itypelib(pTypeLib,
typename, &
pri);
358 folerecord_to_h(
VALUE self)
395 folerecord_typename(
VALUE self)
416 if (p[
len-1] ==
'=') {
457 #if SIZEOF_SIZE_T > SIZEOF_LONG
467 return olerecord_ivar_get(
self,
name);
468 }
else if (
argc == 2) {
469 return olerecord_ivar_set(
self,
name,
argv[1]);
513 return olerecord_ivar_get(
self, sname);
552 return olerecord_ivar_set(
self, sname, val);
578 folerecord_inspect(
VALUE self)
582 tname = folerecord_typename(
self);
void ole_val2variant(VALUE val, VARIANT *var)
VALUE rb_define_class(const char *name, VALUE super)
Defines a top-level class.
#define TypedData_Make_Struct(klass, type, data_type, sval)
VALUE ole_variant2val(VARIANT *pvar)
#define RB_TYPE_P(obj, type)
VALUE rb_inspect(VALUE)
Convenient wrapper of Object::inspect.
void rb_define_method(VALUE klass, const char *name, VALUE(*func)(ANYARGS), int argc)
ITypeLib * itypelib(VALUE self)
void ole_rec2variant(VALUE rec, VARIANT *var)
size_t strlen(const char *)
void rb_raise(VALUE exc, const char *fmt,...)
VALUE rb_ivar_get(VALUE, ID)
void olerecord_set_ivar(VALUE obj, IRecordInfo *pri, void *prec)
HRESULT typelib_from_val(VALUE obj, ITypeLib **pTypeLib)
void Init_win32ole_record(void)
#define ALLOCA_N(type, n)
#define StringValuePtr(v)
void rb_hash_foreach(VALUE hash, rb_foreach_func *func, VALUE farg)
#define StringValueCStr(v)
RUBY_EXTERN VALUE rb_cObject
#define TypedData_Get_Struct(obj, type, data_type, sval)
VALUE rb_sprintf(const char *format,...)
VALUE rb_str_subseq(VALUE, long, long)
typedef HRESULT(STDAPICALLTYPE FNCOCREATEINSTANCEEX)(REFCLSID
#define RUBY_TYPED_FREE_IMMEDIATELY
VALUE rb_hash_aset(VALUE hash, VALUE key, VALUE val)
VALUE rb_hash_fetch(VALUE hash, VALUE key)
LPWSTR ole_vstr2wc(VALUE vstr)
VALUE eWIN32OLERuntimeError
VALUE rb_ivar_set(VALUE, ID, VALUE)
void ole_raise(HRESULT hr, VALUE ecs, const char *fmt,...)
VALUE rb_obj_is_kind_of(VALUE, VALUE)
Determines if obj is a kind of c.
void rb_define_alloc_func(VALUE, rb_alloc_func_t)
VALUE create_win32ole_record(IRecordInfo *pri, void *prec)
int rb_str_cmp(VALUE, VALUE)