make code independent of -DUNICODE

1 files changed, 159 insertions, 0 deletions

diff --git a/common/winfont.c b/common/winfont.c
new file mode 100644
index 0000000..a79952b
--- /dev/null
+++ b/common/winfont.c
@@ -0,0 +1,159 @@
+#include "winfont.h"
+#include <windows.h>
+
+struct font_win32 {
+  HFONT font;
+  HDC dc;
+  HBITMAP bitmap;
+  HBRUSH white;
+  HBRUSH black;
+  uint8_t *data;
+  uint8_t buf[16];
+};
+
+/*
+#include "jisunih.h"
+
+uint16_t jis2unih(uint8_t jis) {
+  if (jis & 0x80) {
+    const uint16_t *tab = jis2unicode_h;
+    while (tab[0]) {
+      if (tab[0] == jis) return tab[1];
+      tab += 2;
+    }
+    return 0;
+  } else {
+    return jis;
+  }
+}
+*/
+uint16_t jis2unih(uint8_t jis) {
+  uint16_t wbuf[2];
+  int outchar = MultiByteToWideChar(932, MB_ERR_INVALID_CHARS,
+                                    (char *)&jis, 1, (wchar_t *)wbuf, 2);
+  if (!outchar) return 0;
+  return wbuf[0];
+}
+/*
+#include "jisuni.h"
+
+uint16_t jis2uni(uint16_t jis) {
+  if ((jis>>8) == 0x29) {
+    return jis2unih(jis & 0xff);
+  }
+  const uint16_t *tab = jis2unicode;
+  while (tab[0]) {
+    if (tab[0] == jis) return tab[1];
+    tab += 2;
+  }
+  return 0;
+}
+*/
+uint16_t jis2uni(uint16_t jis) {
+  uint16_t sjis = jis2sjis(jis);
+  uint8_t abuf[2] = {sjis>>8, sjis};
+  uint16_t wbuf[2];
+  int outchar = MultiByteToWideChar(932, MB_ERR_INVALID_CHARS,
+                                    (char *)abuf, 2, (wchar_t *)wbuf, 2);
+  if (!outchar) return 0;
+  return wbuf[0];
+}
+
+static const void *winfont_get(const struct fmdsp_font *font,
+                               uint16_t c, enum fmdsp_font_type type) {
+  struct font_win32 *fw = (struct font_win32 *)font->data;
+  RECT r = {
+    0, 0, 8, 16
+  };
+  FillRect(fw->dc, &r, fw->white);
+  wchar_t text[2] = {0};
+  switch (type) {
+  case FMDSP_FONT_ANK:
+    text[0] = jis2unih(c);
+    TextOutW(fw->dc, 0, 0, text, 1);
+    break;
+  case FMDSP_FONT_JIS_LEFT:
+    {
+      uint8_t row = c >> 8;
+      if (row == 0x29 || row == 0x2a) {
+        // doublebyte halfwidth ANK
+        // JIS doublewidth  JIS halfwidth
+        // 0x2921-0x297e -> 0x21-0x7e (ASCII)
+        // 0x2a21-0x2a7e -> 0xa1-0xfe (halfwidth katakana)
+        uint16_t jis = (c & 0xff) | ((row-0x29) * 0x80);
+        text[0] = jis2unih(jis);
+      } else {
+        text[0] = jis2uni(c);
+      }
+    }
+    TextOutW(fw->dc, 0, 0, text, 1);
+    break;
+  case FMDSP_FONT_JIS_RIGHT:
+    text[0] = jis2uni(c);
+    TextOutW(fw->dc, -8, 0, text, 1);
+    break;
+  }
+  GdiFlush();
+//  return fw->data;
+  for (int y = 0; y < 16; y++) {
+    fw->buf[y] = fw->data[y*4];
+  }
+  return fw->buf;
+}
+
+struct BITMAPINFO_mono {
+  BITMAPINFOHEADER bmihead;
+  RGBQUAD bmicolors[2];
+};
+
+bool fmdsp_font_win(struct fmdsp_font *font) {
+  struct font_win32 *fw = HeapAlloc(
+    GetProcessHeap(), 0, sizeof(struct font_win32)
+  );
+  if (!fw) goto err;
+  fw->font = CreateFontW(16, 0, 0, 0, 
+                         FW_NORMAL, FALSE, FALSE, FALSE,
+                         SHIFTJIS_CHARSET,
+                         OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS,
+                         NONANTIALIASED_QUALITY, FIXED_PITCH,
+                         L"MS Gothic");
+  if (!fw->font) goto err_fw;
+  fw->dc = CreateCompatibleDC(0);
+  if (!fw->dc) goto err_font;
+  struct BITMAPINFO_mono bmi = {0};
+  bmi.bmihead.biSize = sizeof(bmi.bmihead);
+  bmi.bmihead.biWidth = 8;
+  bmi.bmihead.biHeight = -16;
+  bmi.bmihead.biPlanes = 1;
+  bmi.bmihead.biBitCount = 1;
+  bmi.bmihead.biCompression = BI_RGB;
+  bmi.bmihead.biSizeImage = 16;
+  bmi.bmihead.biClrUsed = 2;
+  bmi.bmicolors[0].rgbRed = 0xff;
+  bmi.bmicolors[0].rgbGreen = 0xff;
+  bmi.bmicolors[0].rgbBlue = 0xff;
+  fw->bitmap = CreateDIBSection(
+    fw->dc, (BITMAPINFO *)&bmi,
+    DIB_RGB_COLORS, (void **)&fw->data,
+    0, 0);
+  if (!fw->bitmap) {
+    goto err_dc;
+  }
+  SelectObject(fw->dc, fw->bitmap);
+  SelectObject(fw->dc, fw->font);
+  fw->white = CreateSolidBrush(RGB(0xff, 0xff, 0xff));
+  fw->black = CreateSolidBrush(RGB(0x00, 0x00, 0x00));
+  font->get = winfont_get;
+  font->data = fw;
+  font->width_half = 8;
+  font->height = 16;
+  return true;
+err_dc:
+  DeleteDC(fw->dc);
+err_font:
+  DeleteObject(fw->font);
+err_fw:
+  HeapFree(GetProcessHeap(), 0, fw);
+err:
+  return false;
+}