added files

fontdump/Makefile

@@ -0,0 +1,17 @@
+
+OBJS = fontdump.obj os_calls.obj
+
+#CFLAGS = -O2 -I../common
+CFLAGS = -O2 -I../common -DUNICODE -D_UNICODE
+LDFLAGS = -W -efontdump.exe
+
+all: fontdump1
+
+fontdump1: $(OBJS)
+	$(CC) $(LDFLAGS) $(OBJS)
+
+clean:
+	del $(OBJS) fontdump.exe *.tds
+
+os_calls.obj: ../common/os_calls.c
+	$(CC) $(CFLAGS) -c ../common/os_calls.c

fontdump/fontdump.c

@@ -0,0 +1,176 @@
+
+#include <windows.h>
+#include <tchar.h>
+#include "os_calls.h"
+#include "arch.h"
+
+static HINSTANCE g_instance = 0;
+static HWND g_wnd = 0;
+static char* g_font_name = "Tahoma";
+static int g_font_size = 10;
+static HFONT g_font = 0;
+
+int
+msg(char* msg1, ...)
+{
+  return 0;
+}
+
+/*****************************************************************************/
+static int
+font_dump(void)
+{
+  HDC dc;
+  RECT rect;
+  HBRUSH brush;
+  HGDIOBJ saved;
+  ABC abc;
+  char filename[256];
+  TCHAR text[256];
+  char zero1;
+  int fd;
+  int x1;
+  int strlen1;
+  short x2;
+
+  zero1 = 0;
+  g_snprintf(filename, 255, "%s-%d.fv1", g_font_name, g_font_size);
+  g_file_delete(filename);
+  fd = g_file_open(filename);
+  g_file_write(fd, "FNT1", 4);
+  strlen1 = g_strlen(g_font_name);
+  g_file_write(fd, g_font_name, strlen1);
+  x1 = strlen1;
+  while (x1 < 32)
+  {
+    g_file_write(fd, &zero1, 1);
+    x1++;
+  }
+  x2 = g_font_size; /* font size */
+  g_file_write(fd, (char*)&x2, 2);
+  x2 = 1;
+  g_file_write(fd, (char*)&x2, 2);
+  for (x1 = 32; x1 < 1024; x1++)
+  {
+    dc = GetWindowDC(g_wnd);
+    GetCharABCWidths(dc, x1, x1, &abc);
+    ReleaseDC(g_wnd, dc);
+    text[0] = ' ';
+    text[1] = (TCHAR)x1;
+    text[2] = ' ';
+    dc = GetWindowDC(g_wnd);
+    saved = SelectObject(dc, g_font);
+    TextOut(dc, 50, 50, text, 3);
+    SelectObject(dc, saved);
+    ReleaseDC(g_wnd, dc);
+    Sleep(10);
+    dc = GetWindowDC(g_wnd);
+    rect.left = 50;
+    rect.top = 50;
+    rect.right = 100;
+    rect.bottom = 100;
+    brush = CreateSolidBrush(RGB(0, 0, 255));
+    FillRect(dc, &rect, brush);
+    DeleteObject(brush);
+    ReleaseDC(g_wnd, dc);
+  }
+  g_file_close(fd);
+  return 0;
+}
+
+/*****************************************************************************/
+static LRESULT CALLBACK
+wnd_proc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)
+{
+  PAINTSTRUCT ps;
+  HBRUSH brush;
+  RECT rect;
+
+  switch (message)
+  {
+    case WM_PAINT:
+      BeginPaint(hWnd, &ps);
+      brush = CreateSolidBrush(RGB(0, 0, 255));
+      rect = ps.rcPaint;
+      FillRect(ps.hdc, &rect, brush);
+      DeleteObject(brush);
+      EndPaint(hWnd, &ps);
+      break;
+    case WM_CLOSE:
+      DestroyWindow(g_wnd);
+      g_wnd = 0;
+      break;
+    case WM_DESTROY:
+      PostQuitMessage(0);
+      break;
+    case WM_TIMER:
+      KillTimer(g_wnd, 1);
+      font_dump();
+      break;
+  }
+  return DefWindowProc(hWnd, message, wParam, lParam);
+}
+
+/*****************************************************************************/
+static int
+create_window(void)
+{
+  WNDCLASS wc;
+  DWORD style;
+  HDC dc;
+  int height;
+
+  ZeroMemory(&wc, sizeof(wc));
+  wc.lpfnWndProc = wnd_proc; /* points to window procedure */
+  /* name of window class */
+  wc.lpszClassName = _T("fontdump");
+  wc.hCursor = LoadCursor(0, IDC_ARROW);
+  /* Register the window class. */
+  if (!RegisterClass(&wc))
+  {
+    return 0; /* Failed to register window class */
+  }
+  style = WS_OVERLAPPED | WS_CAPTION | WS_POPUP | WS_MINIMIZEBOX |
+          WS_SYSMENU | WS_SIZEBOX | WS_MAXIMIZEBOX;
+  g_wnd = CreateWindow(wc.lpszClassName, _T("fontdump"),
+                       style, 0, 0, 200, 200,
+                       (HWND) NULL, (HMENU) NULL, g_instance,
+                       (LPVOID) NULL);
+  ShowWindow(g_wnd, SW_SHOWNORMAL);
+  dc = GetDC(g_wnd);
+  height = -MulDiv(g_font_size, GetDeviceCaps(dc, LOGPIXELSY), 72);
+  g_font = CreateFontA(height, 0, 0, 0, FW_DONTCARE, 0, 0, 0, 0, 0, 0,
+                       0, 0, g_font_name);
+  if (g_font == 0)
+  {
+    MessageBox(g_wnd, _T("Font creation failed"), _T("error"), MB_OK);
+  }
+  ReleaseDC(g_wnd, dc);
+  PostMessage(g_wnd, WM_SETFONT, (WPARAM)g_font, 0);
+  SetTimer(g_wnd, 1, 1000, 0);
+  return 0;
+}
+
+/*****************************************************************************/
+static int
+main_loop(void)
+{
+  MSG msg;
+
+  while (GetMessage(&msg, NULL, 0, 0))
+  {
+    TranslateMessage(&msg);
+    DispatchMessage(&msg);
+  }
+  return (int)(msg.wParam);
+}
+
+/*****************************************************************************/
+int WINAPI
+WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
+        LPSTR lpCmdLine, int nCmdShow)
+{
+  g_instance = hInstance;
+  create_window();
+  return main_loop();
+}