mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
f169931414
https://gcc.gnu.org/gcc-10/changes.html#c > * GCC now defaults to `-fno-common`. As a result, global > variable accesses are more efficient on various targets. In > C, global variables with multiple tentative definitions now > result in linker errors. With `-fcommon` such definitions are > silently merged during linking.
87 lines
2.3 KiB
C
87 lines
2.3 KiB
C
#include "win32ole.h"
|
|
|
|
static VALUE ole_hresult2msg(HRESULT hr);
|
|
|
|
static VALUE
|
|
ole_hresult2msg(HRESULT hr)
|
|
{
|
|
VALUE msg = Qnil;
|
|
char *p_msg = NULL;
|
|
char *term = NULL;
|
|
DWORD dwCount;
|
|
|
|
char strhr[100];
|
|
sprintf(strhr, " HRESULT error code:0x%08x\n ", (unsigned)hr);
|
|
msg = rb_str_new2(strhr);
|
|
dwCount = FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER |
|
|
FORMAT_MESSAGE_FROM_SYSTEM |
|
|
FORMAT_MESSAGE_IGNORE_INSERTS,
|
|
NULL, hr,
|
|
MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US),
|
|
(LPTSTR)&p_msg, 0, NULL);
|
|
if (dwCount == 0) {
|
|
dwCount = FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER |
|
|
FORMAT_MESSAGE_FROM_SYSTEM |
|
|
FORMAT_MESSAGE_IGNORE_INSERTS,
|
|
NULL, hr, cWIN32OLE_lcid,
|
|
(LPTSTR)&p_msg, 0, NULL);
|
|
}
|
|
if (dwCount > 0) {
|
|
term = p_msg + strlen(p_msg);
|
|
while (p_msg < term) {
|
|
term--;
|
|
if (*term == '\r' || *term == '\n')
|
|
*term = '\0';
|
|
else break;
|
|
}
|
|
if (p_msg[0] != '\0') {
|
|
rb_str_cat2(msg, p_msg);
|
|
}
|
|
}
|
|
LocalFree(p_msg);
|
|
return msg;
|
|
}
|
|
|
|
void
|
|
ole_raise(HRESULT hr, VALUE ecs, const char *fmt, ...)
|
|
{
|
|
va_list args;
|
|
VALUE msg;
|
|
VALUE err_msg;
|
|
va_init_list(args, fmt);
|
|
msg = rb_vsprintf(fmt, args);
|
|
va_end(args);
|
|
|
|
err_msg = ole_hresult2msg(hr);
|
|
if(err_msg != Qnil) {
|
|
rb_str_cat2(msg, "\n");
|
|
rb_str_append(msg, err_msg);
|
|
}
|
|
rb_exc_raise(rb_exc_new_str(ecs, msg));
|
|
}
|
|
|
|
VALUE eWIN32OLERuntimeError;
|
|
VALUE eWIN32OLEQueryInterfaceError;
|
|
|
|
void
|
|
Init_win32ole_error(void)
|
|
{
|
|
/*
|
|
* Document-class: WIN32OLERuntimeError
|
|
*
|
|
* Raised when OLE processing failed.
|
|
*
|
|
* EX:
|
|
*
|
|
* obj = WIN32OLE.new("NonExistProgID")
|
|
*
|
|
* raises the exception:
|
|
*
|
|
* WIN32OLERuntimeError: unknown OLE server: `NonExistProgID'
|
|
* HRESULT error code:0x800401f3
|
|
* Invalid class string
|
|
*
|
|
*/
|
|
eWIN32OLERuntimeError = rb_define_class("WIN32OLERuntimeError", rb_eRuntimeError);
|
|
eWIN32OLEQueryInterfaceError = rb_define_class("WIN32OLEQueryInterfaceError", eWIN32OLERuntimeError);
|
|
}
|