exerb 6.0.1

data/src/exerb/exerb.h

@@ -0,0 +1,92 @@
+// $Id: exerb.h,v 1.42 2007/02/26 10:20:44 yuya Exp $
+#ifndef EXERB_H
+#define EXERB_H 1 
+
+#include <windows.h>
+
+#pragma pack(push, 1)
+
+typedef struct {
+	DWORD signature1;
+	DWORD signature2;
+	union {
+		DWORD options;
+		struct {
+			DWORD kcode:2;
+			DWORD reserved:30;
+		};
+	};
+	DWORD offset_of_name_table;
+	DWORD offset_of_file_table;
+} ARCHIVE_HEADER;
+
+typedef struct {
+	DWORD signature;
+	WORD  number_of_headers;
+	DWORD offset_of_headers;
+	DWORD offset_of_pool;
+} NAME_TABLE_HEADER;
+
+typedef struct {
+	WORD  id;
+	DWORD offset_of_name;
+} NAME_ENTRY_HEADER;
+
+typedef struct {
+	DWORD signature;
+	WORD  number_of_headers;
+	DWORD offset_of_headers;
+	DWORD offset_of_pool;
+} FILE_TABLE_HEADER;
+
+typedef struct {
+	WORD  id;
+	DWORD offset_of_file;
+	DWORD size_of_file;
+	union {
+		BYTE flag_of_file;
+		struct {
+			BYTE type_of_file:3;
+			BYTE flag_no_replace_function:1;
+			BYTE flag_reserved:4;
+		};
+	};
+	BYTE zipd;
+} FILE_ENTRY_HEADER;
+
+#pragma pack(pop)
+
+//typedef VALUE (*RUBY_PROC)(...);
+
+#define ARCHIVE_HEADER_SIGNATURE1          0x52455845
+#define ARCHIVE_HEADER_SIGNATURE2          0x04000042
+#define ARCHIVE_HEADER_OPTIONS_KCODE_NONE  0
+#define ARCHIVE_HEADER_OPTIONS_KCODE_EUC   1
+#define ARCHIVE_HEADER_OPTIONS_KCODE_SJIS  2
+#define ARCHIVE_HEADER_OPTIONS_KCODE_UTF8  3
+
+#define NAME_TABLE_HEADER_SIGNATURE    0x0100544E
+#define FILE_TABLE_HEADER_SIGNATURE    0x04005446
+
+#define FILE_ENTRY_HEADER_TYPE_RUBY_SCRIPT       1
+#define FILE_ENTRY_HEADER_TYPE_EXTENSION_LIBRARY 2
+#define FILE_ENTRY_HEADER_TYPE_DYNAMIC_LIBRARY   3
+#define FILE_ENTRY_HEADER_TYPE_RESOURCE_LIBRARY  4
+#define FILE_ENTRY_HEADER_TYPE_DATA_BINARY       5
+#define FILE_ENTRY_HEADER_TYPE_COMPILED_SCRIPT   6
+
+#ifndef RSTRING_PTR
+#define RSTRING_PTR(value) RSTRING(value)->ptr
+#endif
+
+#ifndef RSTRING_LEN
+#define RSTRING_LEN(value) RSTRING(value)->len
+#endif
+
+VALUE exerb_rb_f_require(VALUE obj, VALUE fname);
+VALUE exerb_require(VALUE fname);
+#ifdef RUBY19
+VALUE exerb_require_safe(VALUE fname, int safe);
+#endif
+
+#endif /* EXERB_H */

data/src/exerb/gui.c

@@ -0,0 +1,176 @@
+// $Id: gui.cpp,v 1.15 2008/12/19 12:17:50 arton Exp $
+
+#include <ruby.h>
+#include <windowsx.h>
+#include "exerb.h"
+#include "resource.h"
+
+////////////////////////////////////////////////////////////////////////////////
+
+int exerb_main(int argc, char** argv, void (*on_init)(VALUE, VALUE, VALUE), void (*on_fail)(VALUE)); // exerb.cpp
+
+int WINAPI WinMain(HINSTANCE current_instance, HINSTANCE prev_instance, LPSTR cmd_line, int show_cmd);
+static void on_init(VALUE io_stdin, VALUE io_stdout, VALUE io_stderr);
+static void on_fail(VALUE errinfo);
+
+static void exerb_replace_io_methods(const VALUE io);
+static VALUE rb_exerbio_write(VALUE self, VALUE str);
+static VALUE rb_exerbio_return_nil(int argc, VALUE *argv, VALUE self);
+
+static LRESULT CALLBACK dialog_proc(HWND hwnd, UINT message, WPARAM wparam, LPARAM lparam);
+
+////////////////////////////////////////////////////////////////////////////////
+
+int WINAPI
+WinMain(HINSTANCE current_instance, HINSTANCE prev_instance, LPSTR cmd_line, int show_cmd)
+{
+#ifdef _DEBUG
+	__asm { int 3 }
+#endif
+	return exerb_main(0, NULL, on_init, on_fail);
+}
+
+static void
+on_init(VALUE io_stdin, VALUE io_stdout, VALUE io_stderr)
+{
+	exerb_replace_io_methods(io_stdin);
+	exerb_replace_io_methods(io_stdout);
+	exerb_replace_io_methods(io_stderr);
+
+	rb_define_global_function("gets",      rb_exerbio_return_nil, -1);
+	rb_define_global_function("readline",  rb_exerbio_return_nil, -1);
+	rb_define_global_function("getc",      rb_exerbio_return_nil, -1);
+	rb_define_global_function("readlines", rb_exerbio_return_nil, -1);
+}
+
+static void
+on_fail(VALUE errinfo)
+{
+	DialogBoxParam(GetModuleHandle(NULL), MAKEINTRESOURCE(IDD_EXCEPTION), NULL, (DLGPROC)dialog_proc, (LPARAM)errinfo);
+}
+
+////////////////////////////////////////////////////////////////////////////////
+
+static void
+exerb_replace_io_methods(const VALUE io)
+{
+	rb_define_singleton_method(io, "reopen", rb_exerbio_return_nil, -1);
+	rb_define_singleton_method(io, "each", rb_exerbio_return_nil, -1);
+	rb_define_singleton_method(io, "each_line", rb_exerbio_return_nil, -1);
+	rb_define_singleton_method(io, "each_byte", rb_exerbio_return_nil, -1);
+	rb_define_singleton_method(io, "syswrite", rb_exerbio_return_nil, -1);
+	rb_define_singleton_method(io, "sysread", rb_exerbio_return_nil, -1);
+	rb_define_singleton_method(io, "fileno", rb_exerbio_return_nil, -1);
+	rb_define_singleton_method(io, "to_i", rb_exerbio_return_nil, -1);
+	rb_define_singleton_method(io, "to_io", rb_exerbio_return_nil, -1);
+	rb_define_singleton_method(io, "fsync", rb_exerbio_return_nil, -1);
+	rb_define_singleton_method(io, "sync", rb_exerbio_return_nil, -1);
+	rb_define_singleton_method(io, "sync=", rb_exerbio_return_nil, -1);
+	rb_define_singleton_method(io, "lineno", rb_exerbio_return_nil, -1);
+	rb_define_singleton_method(io, "lineno=", rb_exerbio_return_nil, -1);
+	rb_define_singleton_method(io, "readlines", rb_exerbio_return_nil, -1);
+	rb_define_singleton_method(io, "read", rb_exerbio_return_nil, -1);
+	rb_define_singleton_method(io, "write", rb_exerbio_write, 1);
+	rb_define_singleton_method(io, "gets", rb_exerbio_return_nil, -1);
+	rb_define_singleton_method(io, "readline", rb_exerbio_return_nil, -1);
+	rb_define_singleton_method(io, "getc", rb_exerbio_return_nil, -1);
+	rb_define_singleton_method(io, "readchar", rb_exerbio_return_nil, -1);
+	rb_define_singleton_method(io, "ungetc", rb_exerbio_return_nil, -1);
+	rb_define_singleton_method(io, "flush", rb_exerbio_return_nil, -1);
+	rb_define_singleton_method(io, "tell", rb_exerbio_return_nil, -1);
+	rb_define_singleton_method(io, "seek", rb_exerbio_return_nil, -1);
+	rb_define_singleton_method(io, "rewind", rb_exerbio_return_nil, -1);
+	rb_define_singleton_method(io, "pos", rb_exerbio_return_nil, -1);
+	rb_define_singleton_method(io, "pos=", rb_exerbio_return_nil, -1);
+	rb_define_singleton_method(io, "eof", rb_exerbio_return_nil, -1);
+	rb_define_singleton_method(io, "eof?", rb_exerbio_return_nil, -1);
+	rb_define_singleton_method(io, "close", rb_exerbio_return_nil, -1);
+	rb_define_singleton_method(io, "closed?", rb_exerbio_return_nil, -1);
+	rb_define_singleton_method(io, "close_read", rb_exerbio_return_nil, -1);
+	rb_define_singleton_method(io, "close_write", rb_exerbio_return_nil, -1);
+	rb_define_singleton_method(io, "isatty", rb_exerbio_return_nil, -1);
+	rb_define_singleton_method(io, "tty?", rb_exerbio_return_nil, -1);
+	rb_define_singleton_method(io, "binmode", rb_exerbio_return_nil, -1);
+	rb_define_singleton_method(io, "sysseek", rb_exerbio_return_nil, -1);
+	rb_define_singleton_method(io, "ioctl", rb_exerbio_return_nil, -1);
+	rb_define_singleton_method(io, "fcntl", rb_exerbio_return_nil, -1);
+	rb_define_singleton_method(io, "pid", rb_exerbio_return_nil, -1);
+}
+
+static VALUE
+rb_exerbio_write(VALUE self, VALUE str)
+{
+	rb_secure(1);
+	if ( TYPE(str) != T_STRING ) str = rb_obj_as_string(str);
+	if ( RSTRING_LEN(str) > 0 ) OutputDebugString(RSTRING_PTR(str));
+	return Qnil;
+}
+
+static VALUE
+rb_exerbio_return_nil(int argc, VALUE *argv, VALUE self)
+{
+	return Qnil;
+}
+
+////////////////////////////////////////////////////////////////////////////////
+
+static LRESULT CALLBACK
+dialog_proc(HWND hwnd, UINT message, WPARAM wparam, LPARAM lparam)
+{
+	static HFONT font = NULL;
+
+	switch ( message ) {
+		case WM_INITDIALOG:
+			if ( lparam ) {
+				const VALUE errinfo       = (VALUE)lparam;
+				const VALUE message       = rb_funcall(errinfo, rb_intern("message"), 0);
+				const VALUE message_str   = rb_funcall(message, rb_intern("gsub"), 2, rb_str_new2("\n"), rb_str_new2("\r\n"));
+				const VALUE backtrace     = rb_funcall(errinfo, rb_intern("backtrace"), 0);
+				const VALUE backtrace_str = rb_str_concat(rb_ary_join(backtrace, rb_str_new2("\r\n")), rb_str_new2("\r\n"));
+
+				SetDlgItemText(hwnd, IDC_EDIT_TYPE,      rb_obj_classname(errinfo));
+#ifdef RUBY19
+				SetDlgItemText(hwnd, IDC_EDIT_MESSAGE,   rb_string_value_ptr((volatile VALUE*) &message_str));
+				SetDlgItemText(hwnd, IDC_EDIT_BACKTRACE, rb_string_value_ptr((volatile VALUE*) &backtrace_str));
+#else
+				SetDlgItemText(hwnd, IDC_EDIT_MESSAGE,   STR2CSTR(message_str));
+				SetDlgItemText(hwnd, IDC_EDIT_BACKTRACE, STR2CSTR(backtrace_str));
+#endif        
+			}
+
+			{
+				char self_filename[MAX_PATH]       = "";
+				char window_title_format[MAX_PATH] = "";
+				char window_title[MAX_PATH]        = "";
+				GetModuleFileName(NULL, self_filename, sizeof(self_filename));
+				GetWindowText(hwnd, window_title_format, sizeof(window_title_format));
+				wsprintf(window_title, window_title_format, self_filename);
+				SetWindowText(hwnd, window_title);
+			}
+
+			font = CreateFont(14, 0, 0, 0, FW_REGULAR, FALSE, FALSE, FALSE, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, PROOF_QUALITY, FIXED_PITCH | FF_MODERN, "Terminal");
+			SetWindowFont(GetDlgItem(hwnd, IDC_EDIT_TYPE),      font, FALSE);
+			SetWindowFont(GetDlgItem(hwnd, IDC_EDIT_MESSAGE),   font, FALSE);
+			SetWindowFont(GetDlgItem(hwnd, IDC_EDIT_BACKTRACE), font, FALSE);
+
+			MessageBeep(MB_ICONHAND);
+			
+			return TRUE;
+		case WM_DESTROY:
+			DeleteObject(font);
+			return TRUE;
+		case WM_CLOSE:
+			EndDialog(hwnd, ID_CLOSE);
+			return TRUE;
+		case WM_COMMAND:
+			if ( LOWORD(wparam) == ID_CLOSE ) {
+				EndDialog(hwnd, ID_CLOSE);
+				return TRUE;
+			}
+			break;
+	}
+
+	return FALSE;
+}
+
+////////////////////////////////////////////////////////////////////////////////

data/src/exerb/module.c

@@ -0,0 +1,138 @@
+// $Id: module.cpp,v 1.11 2007/02/25 16:44:51 yuya Exp $
+
+#include <ruby.h>
+#include "exerb.h"
+#include "module.h"
+#include "utility.h"
+
+////////////////////////////////////////////////////////////////////////////////
+
+extern VALUE rb_mExerbRuntime;
+extern VALUE rb_eExerbRuntimeError;
+
+extern FILE_TABLE_HEADER *g_file_table_header;
+
+extern int     g_loaded_resource_count;
+extern HMODULE g_loaded_resource_table[];
+
+////////////////////////////////////////////////////////////////////////////////
+
+static VALUE rb_exerbruntime_s_filepath(VALUE self);
+static VALUE rb_exerbruntime_s_filename(VALUE self);
+static VALUE rb_exerbruntime_s_open(VALUE self, VALUE filename);
+static VALUE rb_exerbruntime_s_load_string(VALUE self, VALUE id);
+static VALUE rb_exerbruntime_s_load_icon(VALUE self, VALUE id);
+static VALUE rb_exerbruntime_s_load_cursor(VALUE self, VALUE id);
+static LPCTSTR exerb_convert_resource_id(VALUE value);
+
+////////////////////////////////////////////////////////////////////////////////
+
+void
+Init_ExerbRuntime()
+{
+	static VALUE gv_exerb = Qtrue;
+	rb_define_readonly_variable("$Exerb", &gv_exerb);
+
+	rb_mExerbRuntime = rb_define_module("ExerbRuntime");
+
+	rb_define_singleton_method(rb_mExerbRuntime, "filepath",    rb_exerbruntime_s_filepath, 0);
+	rb_define_singleton_method(rb_mExerbRuntime, "filename",    rb_exerbruntime_s_filename, 0);
+	rb_define_singleton_method(rb_mExerbRuntime, "open",        rb_exerbruntime_s_open, 1);
+	rb_define_singleton_method(rb_mExerbRuntime, "load_string", rb_exerbruntime_s_load_string, 1);
+	rb_define_singleton_method(rb_mExerbRuntime, "load_icon",   rb_exerbruntime_s_load_icon, 1);
+	rb_define_singleton_method(rb_mExerbRuntime, "load_cursor", rb_exerbruntime_s_load_cursor, 1);
+
+	rb_eExerbRuntimeError = rb_define_class_under(rb_mExerbRuntime, "Error", rb_eException);
+}
+
+static VALUE
+rb_exerbruntime_s_filepath(VALUE self)
+{
+	char filepath[MAX_PATH] = "";
+	exerb_get_self_filepath(filepath, sizeof(filepath));
+	return rb_str_new2(filepath);
+}
+
+static VALUE
+rb_exerbruntime_s_filename(VALUE self)
+{
+	char filepath[MAX_PATH] = "";
+	const char *filename = exerb_get_self_filepath(filepath, sizeof(filepath));
+	return rb_str_new2(filename);
+}
+
+static VALUE
+rb_exerbruntime_s_open(VALUE self, VALUE filename)
+{
+#ifdef RUBY19
+        SafeStringValue(filename);
+#else
+	Check_SafeStr(filename);
+#endif  
+	rb_require("stringio");
+
+	NAME_ENTRY_HEADER *name_entry = exerb_find_name_entry_by_filename(RSTRING_PTR(filename), NULL);
+	if ( !name_entry ) rb_raise(rb_eLoadError, "No such file to load -- %s", RSTRING_PTR(filename));
+
+	FILE_ENTRY_HEADER *file_entry = exerb_find_file_entry(name_entry->id);
+	VALUE file = exerb_get_file_from_entry2(file_entry);
+
+	return rb_funcall(rb_path2class("StringIO"), rb_intern("new"), 2, file, rb_str_new2("r"));
+}
+
+static VALUE
+rb_exerbruntime_s_load_string(VALUE self, VALUE id)
+{
+	LPCSTR res_id = exerb_convert_resource_id(id);
+	char buffer[512] = "";
+
+	for ( int i = 0; i < g_loaded_resource_count; i++ ) {
+		if ( LoadString(g_loaded_resource_table[i], (unsigned int)res_id, buffer, sizeof(buffer)) ) {
+			return rb_str_new2(buffer);
+		}
+	}
+
+	return Qnil;
+}
+
+static VALUE
+rb_exerbruntime_s_load_icon(VALUE self, VALUE id)
+{
+	LPCSTR res_id = exerb_convert_resource_id(id);
+
+	for ( int i = 0; i < g_loaded_resource_count; i++ ) {
+		HICON icon = LoadIcon(g_loaded_resource_table[i], res_id);
+		if ( icon ) return INT2NUM((int)icon);
+	}
+
+	return Qnil;
+}
+
+static VALUE
+rb_exerbruntime_s_load_cursor(VALUE self, VALUE id)
+{
+	LPCSTR res_id = exerb_convert_resource_id(id);
+
+	for ( int i = 0; i < g_loaded_resource_count; i++ ) {
+		HCURSOR icon = LoadCursor(g_loaded_resource_table[i], res_id);
+		if ( icon ) return INT2NUM((int)icon);
+	}
+
+	return Qnil;
+}
+
+static LPCTSTR
+exerb_convert_resource_id(VALUE value)
+{
+	switch ( TYPE(value) ) {
+	case T_FIXNUM:
+		return MAKEINTRESOURCE(FIX2INT(value));
+	case T_STRING:
+		return RSTRING_PTR(value);
+	default:
+		rb_raise(rb_eArgError, "argument needs to be integer or string");
+		return NULL;
+	}
+}
+
+////////////////////////////////////////////////////////////////////////////////

data/src/exerb/module.h

@@ -0,0 +1,7 @@
+// $Id: module.h,v 1.4 2005/04/25 16:40:45 yuya Exp $
+#ifndef MODULE_H
+#define MODULE_H 1 
+
+void Init_ExerbRuntime();
+
+#endif /* MODULE_H */

data/src/exerb/patch.c

@@ -0,0 +1,27 @@
+#include <stdio.h>
+
+#include "ruby.h"
+#include "exerb.h"
+
+VALUE __real_rb_require(const char *);
+#ifdef RUBY19
+VALUE __real_rb_require_safe(VALUE, int);
+#endif
+
+VALUE
+__wrap_rb_require(const char *fname)
+{
+        VALUE fn = rb_str_new2(fname);
+        OBJ_FREEZE(fn);
+        return exerb_require(fn);
+}
+
+#ifdef RUBY19
+
+VALUE
+__wrap_rb_require_safe(VALUE fname, int safe)
+{
+        return exerb_require(fname);
+}
+
+#endif

data/src/exerb/resource.h

@@ -0,0 +1,22 @@
+// $Id: resource.h,v 1.14 2010/12/26 00:03:43 arton Exp $
+#ifndef RESOURCE_H
+#define RESOURCE_H 1
+
+#define RT_EXERB                        100
+#define ID_EXERB                        1
+#define IDD_EXCEPTION                   101
+#define IDI_RUBY                        102
+
+#define ID_CLOSE                        1000
+#define IDC_EDIT_MESSAGE                1001
+#define IDC_EDIT_BACKTRACE              1002
+#define IDC_EDIT_TYPE                   1003
+
+#ifndef IDC_STATIC
+#define IDC_STATIC -1
+#endif
+
+#define EXERB_RES_EXERB_VERSION1 6,0,1,0
+#define EXERB_RES_EXERB_VERSION2 "6.0.1"
+
+#endif /* RESOURCE_H */