aibika 1.3.12

data/samples/mime-types_sample.rb

@@ -0,0 +1,4 @@
+# frozen_string_literal: true
+
+require 'rubygems'
+require 'mime/types'

data/samples/pg_sample.rb

@@ -0,0 +1,4 @@
+# frozen_string_literal: true
+
+require 'rubygems'
+require 'pg'

data/samples/prawn_sample.rb

@@ -0,0 +1,9 @@
+# frozen_string_literal: true
+
+require 'prawn'
+exit if defined?(Aibika)
+Prawn::Document.generate('prawn_sample.pdf') do
+  text 'Hello, World!'
+  font.instance_eval { find_font('Helvetica.afm') } or raise
+end
+File.unlink('prawn_sample.pdf')

data/samples/readchar.rb

@@ -0,0 +1,4 @@
+# frozen_string_literal: true
+
+exit if defined?(Aibika)
+$stdin.readchar

data/samples/sysproctable.rb

@@ -0,0 +1,12 @@
+# frozen_string_literal: true
+
+require 'rubygems'
+gem 'sys-proctable'
+require 'sys/proctable'
+require 'time'
+include Sys
+
+# Everything
+ProcTable.ps do |p|
+  puts "#{p.pid}    #{p.comm}"
+end

data/samples/tk.rb

@@ -0,0 +1,13 @@
+# frozen_string_literal: true
+
+require 'tk'
+root = TkRoot.new { title 'Hello, World!' }
+TkLabel.new(root) do
+  text 'Hello, World!'
+  pack do
+    padx 15
+    pady 15
+    side 'left'
+  end
+end
+Tk.mainloop

data/samples/tkextlib.rb

@@ -0,0 +1,4 @@
+# frozen_string_literal: true
+
+require 'tk'
+require 'tkextlib'

data/samples/watir_sample.rb

@@ -0,0 +1,31 @@
+#!/usr/bin/ruby
+# frozen_string_literal: true
+
+require 'watir'
+exit if defined?(Aibika)
+
+test_site = 'http://www.google.com'
+
+ie = Watir::IE.new
+
+puts 'Beginning of test: Google search.'
+puts " Step 1: go to the test site: #{test_site}"
+ie.goto test_site
+
+puts " Step 2: enter 'pickaxe' in the search text field."
+ie.text_field(:name, 'q').set 'pickaxe' # "q" is the name of the search field
+
+puts " Step 3: click the 'Google Search' button."
+ie.button(:name, 'btnG').click # "btnG" is the name of the Search button
+
+puts ' Expected Result:'
+puts "  A Google page with results should be shown. 'Programming Ruby' should be high on the list."
+
+puts ' Actual Result:'
+if ie.text.include? 'Programming Ruby'
+  puts "  Test Passed. Found the test string: 'Programming Ruby'. Actual Results match Expected Results."
+else
+  puts "  Test Failed! Could not find: 'Programming Ruby'."
+end
+
+ie.close

data/samples/win32_api_sample.rb

@@ -0,0 +1,5 @@
+# frozen_string_literal: true
+
+require 'win32/api'
+exit if defined?(Aibika)
+Win32::API.new('MessageBox', 'LPPI', 'I', 'user32').call(0, 'Hello, World!', 'Greeting', 0)

data/samples/win32ole.rb

@@ -0,0 +1,4 @@
+# frozen_string_literal: true
+
+require 'win32ole'
+WIN32OLE.new('Wscript.Shell')

data/samples/wxruby_sample.rbw

@@ -0,0 +1,29 @@
+# frozen_string_literal: true
+
+require 'rubygems'
+require 'wx'
+
+# Main window frame with a button.
+class MyMainWindow < Wx::Frame
+  MY_BUTTON_ID = 1001
+  def initialize
+    super(nil, -1, 'AIBIKA wxWidgets sample application')
+    @button = Wx::Button.new(self, MY_BUTTON_ID, 'AIBIKA Sample')
+    evt_button(MY_BUTTON_ID) { close }
+  end
+end
+
+# The sample application.
+class MyApp < Wx::App
+  def on_init
+    @frame = MyMainWindow.new
+    @frame.show
+  end
+end
+
+# Create MyApp
+app = MyApp.new
+
+# Run MyApp (unless Aibika is currently defined, and we are compiling
+# the application).
+app.main_loop unless defined?(Aibika)

data/src/Makefile

@@ -0,0 +1,37 @@
+SRCS = lzma/LzmaDec.c
+OBJS = $(SRCS:.c=.o) stubicon.o
+CC = gcc
+BINDIR = $(CURDIR)/../share/aibika
+
+CFLAGS = -Wall -O2 -DWITH_LZMA -Ilzma -s
+STUB_CFLAGS = -D_CONSOLE $(CFLAGS)
+STUBW_CFLAGS = -mwindows $(CFLAGS)
+# -D_MBCS
+
+all: stub.exe stubw.exe edicon.exe
+
+stubicon.o: stub.rc
+	windres -i $< -o $@
+
+stub.exe: $(OBJS) stub.o
+	$(CC) $(STUB_CFLAGS) $(OBJS) stub.o -o stub
+
+stubw.exe: $(OBJS) stubw.o
+	$(CC) $(STUBW_CFLAGS) $(OBJS) stubw.o -o stubw
+
+edicon.exe: edicon.o
+	$(CC) $(CFLAGS) edicon.o -o edicon
+
+stub.o: stub.c
+	$(CC) $(STUB_CFLAGS) -o $@ -c $<
+
+stubw.o: stub.c
+	$(CC) $(STUBW_CFLAGS) -o $@ -c $<
+
+clean:
+	rm -f $(OBJS) stub.exe stubw.exe edicon.exe edicon.o stubw.o stub.o
+
+install: stub.exe stubw.exe edicon.exe
+	cp -f stub.exe $(BINDIR)/stub.exe
+	cp -f stubw.exe $(BINDIR)/stubw.exe
+	cp -f edicon.exe $(BINDIR)/edicon.exe

data/src/edicon.c

@@ -0,0 +1,146 @@
+/**
+   Changes the Icon in a PE executable.
+*/
+
+#include <windows.h>
+#include <stdio.h>
+
+#pragma pack(push, 2)
+
+/* Icon file header */
+typedef struct
+{
+   WORD Reserved;
+   WORD ResourceType;
+   WORD ImageCount;
+} IconFileHeader;
+
+/* Icon File directory entry structure */
+typedef struct
+{
+   BYTE Width;
+   BYTE Height;
+   BYTE Colors;
+   BYTE Reserved;
+   WORD Planes;
+   WORD BitsPerPixel;
+   DWORD ImageSize;
+   DWORD ImageOffset;
+} IconDirectoryEntry;
+
+/* Group Icon Resource directory entry structure */
+typedef struct
+{
+   BYTE Width;
+   BYTE Height;
+   BYTE Colors;
+   BYTE Reserved;
+   WORD Planes;
+   WORD BitsPerPixel;
+   DWORD ImageSize;
+   WORD ResourceID;
+} IconDirResEntry, *PIconDirResEntry;
+
+/* Group Icon Structore (RT_GROUP_ICON) */
+typedef struct
+{
+   WORD Reserved;
+   WORD ResourceType;
+   WORD ImageCount;
+   IconDirResEntry Enries[0]; /* Number of these is in ImageCount */
+} GroupIcon;
+
+#pragma pack(pop)
+
+BOOL UpdateIcon(LPTSTR ExecutableFileName, LPTSTR IconFileName)
+{
+   HANDLE h = BeginUpdateResource(ExecutableFileName, FALSE);
+   if (h == INVALID_HANDLE_VALUE)
+   {
+      printf("Failed to BeginUpdateResource\n");
+      return FALSE;
+   }
+
+   /* Read the Icon file */
+   HANDLE hIconFile = CreateFile(IconFileName, GENERIC_READ, 0, NULL, OPEN_EXISTING, 0, NULL);
+   if (hIconFile == INVALID_HANDLE_VALUE)
+   {
+      fprintf(stderr, "Failed to open icon file.\n");
+      return FALSE;
+   }
+   DWORD Size = GetFileSize(hIconFile, NULL);
+   BYTE* Data = LocalAlloc(LMEM_FIXED, Size);
+   DWORD BytesRead;
+   if (!ReadFile(hIconFile, Data, Size, &BytesRead, NULL))
+   {
+      fprintf(stderr, "Failed to read icon file.\n");
+      return FALSE;
+   }
+   CloseHandle(hIconFile);
+   
+   IconFileHeader* header = (IconFileHeader*)Data;
+   IconDirectoryEntry* entries = (IconDirectoryEntry*)(header + 1);
+   
+   /* Create the RT_ICON resources */
+   int i;
+   for (i = 0; i < header->ImageCount; ++i)
+   {
+      BOOL b = UpdateResource(h, MAKEINTRESOURCE(RT_ICON), MAKEINTRESOURCE(101 + i), MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), Data + entries[i].ImageOffset, entries[i].ImageSize);
+      if (!b)
+      {
+         fprintf(stderr, "failed to UpdateResource %lu\n", GetLastError());
+         return FALSE;
+      }
+   }
+
+   /* Create the RT_GROUP_ICON structure */
+   DWORD GroupIconSize = sizeof(GroupIcon) + header->ImageCount * sizeof(IconDirectoryEntry);
+   GroupIcon* gi = (GroupIcon*)LocalAlloc(LMEM_FIXED, GroupIconSize);
+   gi->Reserved = 0;
+   gi->ResourceType = header->ResourceType;
+   gi->ImageCount = header->ImageCount;
+   for (i = 0; i < header->ImageCount; ++i)
+   {
+      IconDirResEntry* e = &gi->Enries[i];
+      e->Width = entries[i].Width;
+      e->Height = entries[i].Height;
+      e->Colors = entries[i].Colors;
+      e->Reserved = entries[i].Reserved;
+      e->Planes = entries[i].Planes;
+      e->BitsPerPixel = entries[i].BitsPerPixel;
+      e->ImageSize = entries[i].ImageSize;
+      e->ResourceID = 101 + i;
+   }
+
+   /* Save the RT_GROUP_ICON resource */
+   BOOL b = UpdateResource(h, MAKEINTRESOURCE(RT_GROUP_ICON), MAKEINTRESOURCE(100), MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), gi, GroupIconSize);
+   if (!b)
+   {
+      fprintf(stderr, "Failed to create group icon.\n");
+      return FALSE;
+   }
+
+   if (!EndUpdateResource(h, FALSE))
+   {
+      fprintf(stderr, "Failed to EndUpdateResource.\n");
+      return FALSE;
+   }
+   
+   return TRUE;
+}
+
+int main(int argc, char* argv[])
+{
+   if (argc == 3)
+   {
+      if (UpdateIcon(argv[1], argv[2]))
+         return 0;
+      else
+         return -1;
+   }
+   else
+   {
+      fprintf(stderr, "Usage: edicon.exe <exefile> <icofile>\n");
+      return -1;
+   }
+}