exerb 6.0.1

data/src/exerb/resource.rc

@@ -0,0 +1,121 @@
+// $Id: resource.rc,v 1.3 2007/02/26 08:22:40 yuya Exp $
+
+#include "resource.h"
+#include "winresrc.h"
+
+////////////////////////////////////////////////////////////////////////////////
+
+#if defined(CUI) || defined(GUI) || defined(RUNTIME)
+
+LANGUAGE LANG_NEUTRAL, SUBLANG_DEFAULT
+
+VS_VERSION_INFO VERSIONINFO
+ FILEVERSION    EXERB_RES_EXERB_VERSION1
+ PRODUCTVERSION EXERB_RES_EXERB_VERSION1
+ FILEFLAGSMASK  0x3fL
+#if defined(_DEBUG)
+ FILEFLAGS      0x1L
+#else
+ FILEFLAGS      0x0L
+#endif
+ FILEOS         0x40004L
+#if defined(RUNTIME)
+ FILETYPE       0x2L
+#else
+ FILETYPE       0x1L
+#endif
+ FILESUBTYPE    0x0L
+BEGIN
+    BLOCK "StringFileInfo"
+    BEGIN
+        BLOCK "000004b0"
+        BEGIN
+            VALUE "Comments",         "Generated by Exerb\0"
+            VALUE "CompanyName",      "Exerb Project\0"
+            VALUE "LegalCopyright",   "Copyright(C) Exerb Project, 2001-2006,2014 All rights reserved.\0"
+            VALUE "LegalTrademarks",  "\0"
+            VALUE "FileVersion",      EXERB_RES_EXERB_VERSION2 "\0"
+            VALUE "ProductVersion",   EXERB_RES_EXERB_VERSION2 "\0"
+            VALUE "ProductName",      "Exerb\0"
+            VALUE "FileDescription",  "Exerb\0"
+            VALUE "InternalName",     "exerb\0"
+            VALUE "OriginalFilename", "exerb.exe\0"
+            VALUE "PrivateBuild",     "\0"
+            VALUE "SpecialBuild",     "\0"
+        END
+    END
+    BLOCK "VarFileInfo"
+    BEGIN
+        VALUE "Translation", 0x0000, 0x04b0
+    END
+END
+
+#endif
+
+////////////////////////////////////////////////////////////////////////////////
+
+#if defined(GUI)
+
+LANGUAGE LANG_NEUTRAL, SUBLANG_DEFAULT
+
+IDI_RUBY ICON DISCARDABLE "ruby.ico"
+
+#endif
+
+////////////////////////////////////////////////////////////////////////////////
+
+#if defined(GUI)
+
+LANGUAGE LANG_ENGLISH, SUBLANG_DEFAULT
+
+IDD_EXCEPTION DIALOG DISCARDABLE 0, 0, 267, 215
+ STYLE DS_MODALFRAME | DS_CENTER | WS_MINIMIZEBOX | WS_POPUP | WS_CAPTION | WS_SYSMENU
+ CAPTION "Exception - %s"
+ FONT 9, "MS UI Gothic"
+BEGIN
+    DEFPUSHBUTTON   "&Close",ID_CLOSE,212,5,50,14
+    ICON            IDI_ERROR,IDC_STATIC,5,5,20,20
+    LTEXT           "The exception was raised in the program.\nDetails are as follows.",IDC_STATIC,33,8,171,20
+    LTEXT           "&Type",IDC_STATIC,5,42,95,8
+    EDITTEXT        IDC_EDIT_TYPE,5,52,257,12,ES_AUTOHSCROLL | ES_READONLY
+    LTEXT           "&Message",IDC_STATIC,5,70,95,8
+    EDITTEXT        IDC_EDIT_MESSAGE,5,80,257,48,ES_MULTILINE | ES_READONLY | WS_VSCROLL | WS_HSCROLL
+    LTEXT           "&BackTrace",IDC_STATIC,5,134,77,8
+    EDITTEXT        IDC_EDIT_BACKTRACE,5,144,257,65,ES_MULTILINE | ES_READONLY | WS_VSCROLL | WS_HSCROLL
+END
+
+LANGUAGE LANG_JAPANESE, SUBLANG_DEFAULT
+
+IDD_EXCEPTION DIALOG DISCARDABLE 0, 0, 267, 215
+ STYLE DS_MODALFRAME | DS_CENTER | WS_MINIMIZEBOX | WS_POPUP | WS_CAPTION | WS_SYSMENU
+ CAPTION "��O - %s"
+ FONT 9, "�l�r �o�S�V�b�N"
+BEGIN
+    DEFPUSHBUTTON   "�‚���(&C)",ID_CLOSE,212,5,50,14
+    ICON            IDI_ERROR,IDC_STATIC,5,5,20,20
+    LTEXT           "�v���O�����ŗ�O���������܂����B\n�ڍׂ͉��L�̒ʂ�ł��B",IDC_STATIC,33,8,171,20
+    LTEXT           "�^�C�v(&T)",IDC_STATIC,5,42,95,8
+    EDITTEXT        IDC_EDIT_TYPE,5,52,257,12,ES_AUTOHSCROLL | ES_READONLY
+    LTEXT           "���b�Z�[�W(&M)",IDC_STATIC,5,70,95,8
+    EDITTEXT        IDC_EDIT_MESSAGE,5,80,257,48,ES_MULTILINE | ES_READONLY | WS_VSCROLL | WS_HSCROLL
+    LTEXT           "�o�b�N�g���[�X(&B)",IDC_STATIC,5,134,77,8
+    EDITTEXT        IDC_EDIT_BACKTRACE,5,144,257,65,ES_MULTILINE | ES_READONLY | WS_VSCROLL | WS_HSCROLL
+END
+
+#endif
+
+////////////////////////////////////////////////////////////////////////////////
+
+#if defined(CUI) || defined(GUI)
+
+LANGUAGE LANG_NEUTRAL, SUBLANG_DEFAULT
+
+#if defined(_DEBUG)
+ID_EXERB RT_EXERB DISCARDABLE "debug.exa"
+#else
+ID_EXERB RT_EXERB DISCARDABLE "default.exa"
+#endif
+
+#endif
+
+////////////////////////////////////////////////////////////////////////////////

data/src/exerb/utility.c

@@ -0,0 +1,263 @@
+// $Id: utility.cpp,v 1.20 2006/05/09 01:10:49 yuya Exp $
+
+#include <ruby.h>
+#include <windows.h>
+#include "exerb.h"
+#include "utility.h"
+
+////////////////////////////////////////////////////////////////////////////////
+
+extern VALUE rb_eExerbRuntimeError;
+
+extern NAME_TABLE_HEADER *g_name_table_header;
+extern FILE_TABLE_HEADER *g_file_table_header;
+
+////////////////////////////////////////////////////////////////////////////////
+
+char*
+exerb_strdup(const char* str)
+{
+	if ( str == NULL ) return NULL;
+
+	char *newstr = malloc(strlen(str) + 1);
+	strcpy(newstr, str);
+
+	return newstr;
+}
+
+HANDLE
+exerb_fopen_for_read(const char *filepath)
+{
+	HANDLE file = CreateFile(filepath, GENERIC_READ, FILE_SHARE_READ, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);
+	if ( file == INVALID_HANDLE_VALUE ) exerb_raise_runtime_error(GetLastError());
+
+	return file;
+}
+
+HANDLE
+exerb_fopen_for_write(const char *filepath)
+{
+	HANDLE file = CreateFile(filepath, GENERIC_WRITE, FILE_SHARE_READ, NULL, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL);
+	if ( file == INVALID_HANDLE_VALUE ) exerb_raise_runtime_error(GetLastError());
+
+	return file;
+}
+
+BOOL
+exerb_fclose(const HANDLE file)
+{
+	BOOL ret = CloseHandle(file);
+	if ( !ret ) exerb_raise_runtime_error(GetLastError());
+
+	return ret;
+}
+
+DWORD
+exerb_fseek(const HANDLE file, const LONG pos, const DWORD method)
+{
+	DWORD ret = SetFilePointer(file, pos, NULL, method);
+	//if ( ret == INVALID_SET_FILE_POINTER ) exerb_raise_runtime_error(GetLastError())
+
+	return ret;
+}
+
+DWORD
+exerb_fread(const HANDLE file, void *buffer, const int size)
+{
+	DWORD read_size = 0;
+	BOOL  ret = ReadFile(file, buffer, size, &read_size, NULL);
+	if ( !ret ) {
+		DWORD error = GetLastError();
+		CloseHandle(file);
+		exerb_raise_runtime_error(error);
+	}
+
+	return read_size;
+}
+
+DWORD
+exerb_fwrite(const HANDLE file, const void *buffer, const int size)
+{
+	DWORD written = 0;
+	BOOL ret = WriteFile(file, buffer, size, &written, NULL);
+	if ( !ret ) {
+		DWORD error = GetLastError();
+		CloseHandle(file);
+		exerb_raise_runtime_error(error);
+	}
+
+	return written;
+}
+
+DWORD
+exerb_fsize(const HANDLE file)
+{
+	DWORD size = GetFileSize(file, NULL);
+	if ( size == (DWORD)-1 ) {
+		DWORD error = GetLastError();
+		CloseHandle(file);
+		exerb_raise_runtime_error(error);
+	}
+
+	return size;
+}
+
+const char*
+exerb_get_module_filepath(const HMODULE handle, char *filepath, int size)
+{
+	const DWORD ret = GetModuleFileName(handle, filepath, size);
+	if ( !ret ) exerb_raise_runtime_error(GetLastError());
+
+	return exerb_get_filename(filepath);
+}
+
+const char*
+exerb_get_self_filepath(char *filepath, const int size)
+{
+	return exerb_get_module_filepath(NULL, filepath, size);
+}
+
+const char*
+exerb_get_filename(const char *filepath)
+{
+	char *filename = NULL;
+	if ( filename = strrchr(filepath, '\\') ) return filename + 1;
+	if ( filename = strrchr(filepath, '/')  ) return filename + 1;
+
+	return filepath;
+}
+
+int
+exerb_cmp_filename_with_ext(const char *name1, const char *name2, const char *ext)
+{
+	const int name2len = strlen(name2);
+	return (strnicmp(name1, name2, name2len) == 0 && name1[name2len] == '.' && stricmp(name1 + name2len + 1, ext) == 0);
+}
+
+void
+exerb_create_tmpfile(const char *prefix, char *filepath, const void *buffer, const int size)
+{
+	char tmp_dirpath[MAX_PATH]  = "";
+	GetTempPath(sizeof(tmp_dirpath), tmp_dirpath);
+	GetTempFileName(tmp_dirpath, prefix, 0, filepath);
+
+	HANDLE file = exerb_fopen_for_write(filepath);
+	exerb_fwrite(file, buffer, size);
+	exerb_fclose(file);
+}
+
+void
+exerb_raise_runtime_error(const DWORD error_no)
+{
+	char message0[1024] = "";
+	char message1[1024 + 128] = "";
+	FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, NULL, error_no, MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), message0, sizeof(message0), NULL);
+	_snprintf(message1, sizeof(message1), "Win32API Error #%i --- %s", error_no, message0);
+	rb_raise(rb_eExerbRuntimeError, message1);
+}
+
+NAME_ENTRY_HEADER*
+exerb_get_first_name_entry()
+{
+	return (NAME_ENTRY_HEADER*)((DWORD)g_name_table_header + g_name_table_header->offset_of_headers);
+}
+
+FILE_ENTRY_HEADER*
+exerb_get_first_file_entry()
+{
+	return (FILE_ENTRY_HEADER*)((DWORD)g_file_table_header + g_file_table_header->offset_of_headers);
+}
+
+char*
+exerb_get_name_from_entry(const NAME_ENTRY_HEADER *name_entry)
+{
+	return (char*)((DWORD)g_name_table_header + g_name_table_header->offset_of_pool + name_entry->offset_of_name);
+}
+
+char*
+exerb_get_file_from_entry1(const FILE_ENTRY_HEADER *file_entry)
+{
+	return (char*)((DWORD)g_file_table_header + g_file_table_header->offset_of_pool + file_entry->offset_of_file);
+}
+
+VALUE
+exerb_get_file_from_entry2(const FILE_ENTRY_HEADER *file_entry)
+{
+	const VALUE code = rb_str_new(exerb_get_file_from_entry1(file_entry), file_entry->size_of_file);
+	if (file_entry->zipd)
+	{
+		VALUE code2;
+		rb_require("zlib");
+		code2 = rb_funcall(rb_const_get(rb_cObject, rb_intern("Zlib")), rb_intern("inflate"), 1, code);
+		return code2;
+	} else {
+		return code;
+	}
+}
+
+NAME_ENTRY_HEADER*
+exerb_find_name_entry(const WORD id)
+{
+	NAME_ENTRY_HEADER *name_entry = exerb_get_first_name_entry();
+
+	for ( int i = 0; i < g_name_table_header->number_of_headers; i++, name_entry++ ) {
+		if ( name_entry->id == id ) {
+			return name_entry;
+		}
+	}
+
+	rb_raise(rb_eExerbRuntimeError, "Couldn't find a name entry --- %i", id);
+
+	return NULL;
+}
+
+NAME_ENTRY_HEADER*
+exerb_find_name_entry_by_filename(const char *filename, const char *ext)
+{
+	{
+		NAME_ENTRY_HEADER *name_entry = exerb_get_first_name_entry();
+
+		for ( int i = 0; i < g_name_table_header->number_of_headers; i++, name_entry++ ) {
+			if ( stricmp(exerb_get_name_from_entry(name_entry), filename) == 0 ) {
+				return name_entry;
+			}
+		}
+	}
+
+	if ( ext ) {
+		NAME_ENTRY_HEADER *name_entry = exerb_get_first_name_entry();
+
+		for ( int i = 0; i < g_name_table_header->number_of_headers; i++, name_entry++ ) {
+			if ( exerb_cmp_filename_with_ext(exerb_get_name_from_entry(name_entry), filename, ext) ) {
+				return name_entry;
+			}
+		}
+	}
+
+	return NULL;
+}
+
+FILE_ENTRY_HEADER*
+exerb_find_file_entry(const WORD id)
+{
+	FILE_ENTRY_HEADER *file_entry = exerb_get_first_file_entry();
+
+	for ( int i = 0; i < g_file_table_header->number_of_headers; i++, file_entry++ ) {
+		if ( file_entry->id == id ) {
+			return file_entry;
+		}
+	}
+
+	rb_raise(rb_eExerbRuntimeError, "Couldn't find a file entry --- %i", id);
+
+	return NULL;
+}
+
+FILE_ENTRY_HEADER*
+exerb_find_file_entry_by_filename(const char *filename, const char *ext)
+{
+	NAME_ENTRY_HEADER *name_entry = exerb_find_name_entry_by_filename(filename, ext);
+	return (name_entry ? exerb_find_file_entry(name_entry->id) : NULL);
+}
+
+////////////////////////////////////////////////////////////////////////////////

data/src/exerb/utility.h

@@ -0,0 +1,33 @@
+// $Id: utility.h,v 1.13 2005/04/17 11:50:55 yuya Exp $
+
+#ifndef UTILITY_H
+#define UTILITY_H 1 
+
+#include <windows.h>
+
+char* exerb_strdup(const char* str);
+HANDLE exerb_fopen_for_read(const char *filepath);
+HANDLE exerb_fopen_for_write(const char *filepath);
+BOOL exerb_fclose(const HANDLE file);
+DWORD exerb_fseek(const HANDLE file, const LONG pos, const DWORD method);
+DWORD exerb_fread(const HANDLE file, void *buffer, const int size);
+/* char* exerb_fread(const HANDLE file); */
+DWORD exerb_fwrite(const HANDLE file, const void *buffer, const int size);
+DWORD exerb_fsize(const HANDLE file);
+const char* exerb_get_module_filepath(const HMODULE handle, char *filepath, const int size);
+const char* exerb_get_self_filepath(char *filepath, const int size);
+const char* exerb_get_filename(const char *filepath);
+int exerb_cmp_filename_with_ext(const char *name1, const char *name2, const char *ext);
+void exerb_create_tmpfile(const char *prefix, char *filepath, const void *buffer, const int size);
+void exerb_raise_runtime_error(const DWORD error_no);
+NAME_ENTRY_HEADER* exerb_get_first_name_entry();
+FILE_ENTRY_HEADER* exerb_get_first_file_entry();
+char* exerb_get_name_from_entry(const NAME_ENTRY_HEADER *name_entry);
+char* exerb_get_file_from_entry1(const FILE_ENTRY_HEADER *file_entry);
+VALUE exerb_get_file_from_entry2(const FILE_ENTRY_HEADER *file_entry);
+NAME_ENTRY_HEADER* exerb_find_name_entry(const WORD id);
+NAME_ENTRY_HEADER* exerb_find_name_entry_by_filename(const char *filename, const char *ext);
+FILE_ENTRY_HEADER* exerb_find_file_entry(const WORD id);
+FILE_ENTRY_HEADER* exerb_find_file_entry_by_filename(const char *filename, const char *ext);
+
+#endif /* UTILITY_H */

data/test/alltests.rb

@@ -0,0 +1,16 @@
+#! /usr/local/bin/ruby
+
+#==============================================================================#
+# $Id: alltests.rb,v 1.4 2003/11/29 08:39:56 yuya Exp $
+#==============================================================================#
+
+#==============================================================================#
+
+Dir.glob('test-*.rb').each { |file|
+  pad = '#' * (38-file.size/2)
+  puts "\n\n\n#{pad} #{file} #{pad}"
+  system "#{Gem.ruby} -I. \"#{file}\" "
+}
+
+#==============================================================================#
+#==============================================================================#

data/test/test-argv.rb

@@ -0,0 +1,26 @@
+
+#==============================================================================#
+# $Id: test-argv.rb,v 1.5 2005/04/15 09:42:52 yuya Exp $
+#==============================================================================#
+
+require 'testcase'
+
+#==============================================================================#
+
+class ArgvTestCase < Minitest::Test
+  include ExerbTestCase
+
+  def name2
+    return 'test-argv'
+  end
+
+  def test_argv
+    ret1 = read_result(@name)
+    ret2 = execute_exe(@name, 'a b c d e')
+    assert_equal(ret1, ret2)
+  end
+
+end # ArgvTestCase
+
+#==============================================================================#
+#==============================================================================#