Windowsのコードページを返す関数 公開日時 2008-11-26T09:22:00+09:00 ラベル Gauche, Scheme (use gauche.process) (define current-code-page (let1 cp #f (lambda () (unless cp (set! cp ((#/: (\d+)$/ (process-output->string '(chcp))) 1))) cp)))
0 件のコメント:
コメントを投稿