• 前へ
• 次へ

数値→ローマ数字へ

概要

数値からローマ数字への変換してみましょう。
簡単なところからHm.CppInvokeの雰囲気になれていきましょう。

数値→ローマ数字へ

• C++側のソース

  ToRoman.dllとしてコンパイル

  #include <windows.h>
  #include <string>
  #include <vector>
  
  #include "HmCppInvoke.h"
  
  using namespace std;
  using namespace Hidemaru;
  
  // 数値をローマ数字にする
  std::wstring to_roman(int value) {
      vector<pair<int, wstring>> const roman_map_data{
        { 1000, L"M" },{ 900, L"CM" },
        { 500, L"D" },{ 400, L"CD" },
        { 100, L"C" },{ 90, L"XC" },
        { 50, L"L" },{ 40, L"XL" },
        { 10, L"X" },{ 9, L"IX" },
        { 5, L"V" },{ 4, L"IV" },
        { 1, L"I" }
      };
  
      wstring result;
      for (auto const& [num, str] : roman_map_data) {
          while (value >= num) {
              result += str;
              value -= num;
          }
      }
  
      return result;
  }
  
  
  extern "C" __declspec(dllexport) THmNumber test() {
      Hm.funcDllExport();
  
      try {
          // 数値を入力してください。input関数。
          auto ret = Hm.Macro.doFunction(L"input", L"数値入れてください");
  
          // 関数実行自体に何か不具合がありそう
          auto err = ret.getException();
          if (err.has_value()) {
              throw err.value();
          }
  
          // 文字列としてinputの内容を取得。失敗したらcatch節に飛ぶ
          wstring result = ret.getResult<wstring>();
  
          // 数値に変換してみる。失敗したらcatch節に飛ぶ
          int value = std::stoi(result);
  
          wstring roman_num = to_roman(value);
  
          Hm.OutputPane.output(L"変換結果:" + roman_num + L"\r\n");
      }
      catch (exception& e) {
          // エラー内容をchar → wstring へ
          auto wide_what = Text::Encoding::cp932_to_utf16( e.what() );
          Hm.OutputPane.output(wide_what + L"\r\n");
      }
  
  
      return 1;
  }
  

• 秀丸マクロ側のソース

  test.mac

  // ToRoman.dllとしてコンパイルした
  #dll = loaddll(currentmacrodirectory + @"\ToRoman.dll");
   
  // 途中でマクロの文法や型の致命的エラーが発生した場合でもdllを解放する。
  if (version >= 898) { eval "keepdll #dll, 0"; }
   
  #r = dllfuncw(#dll, "test");
   
  freedll(#dll);
  
  

• 前へ
• 次へ