jw_cad 外部変形 - (1000) gccで文字フォントを取得する(cn"$<~>) -

外部変形は データのやり取りをテキストファイルで行うので プログラム言語は 自由に選ぶことができます。図形は機能的かつシンプルなため、数多くのユーザーに受け入れられています。

 

gccで文字フォントを取得する(cn"$<~>)

:gccで文字フォントを取得する(cn"$<~>)
@echo off
if not exist %~dpn0.exe (
  for /f "delims=:" %%n in ('findstr /n "^#!" %0') do (
    more +%%n %0 > %~dpn0.c
    gcc -Os %~dpn0.c -o %~dpn0.exe -s
  )
)
%~dpn0
goto:eof

REM #jww
REM #e

#!この次の行からプログラムを書いてください
#include "jw.h"
int main(void)
{
  FILE *f;
  int n;
  char S_[256], *F[20];
  char SS[256];
  char font[80], pfont[80];
  int flg = 0;
  if ( (f = fopen("jwc_temp.txt", "r")) != NULL) {
    while (fgets(S_, 256, f) != NULL) {
      strcpy(SS, chomp(S_));
      split(SS, F);
      if (strncmp(S_, "cn\"$<", 5) == 0) {
        n = strlen(chomp(S_));
        substr(chomp(S_), 5, n-5-1, pfont);
        if (flg == 0) { strcpy(font, pfont); flg = 1; }
      }
    }
  } else {
    exit(MISSING_JWC_TEMP_TXT);
  }
  fclose(f);
  f = fopen("jwc_temp.txt", "w");
  fprintf(f, "h#font=%s\n", font);
  fclose(f);
  return 0;
}