外部変形は データのやり取りをテキストファイルで行うので プログラム言語は 自由に選ぶことができます。図形は機能的かつシンプルなため、数多くのユーザーに受け入れられています。
clispで時刻を書き込む
:clispで時刻を書き込む
@echo off
for /f "delims=:" %%n in ('findstr /n "^#!" %0') do (
more +%%n %0 | clisp -q > nul
)
goto:eof
REM #jww
REM #0 時刻を書き込む基点を指示してください。
REM #e
#!この次の行からプログラムを書いてください
;universal-timeは1900年から経過した秒数
(setq jweek '("月" "火" "水" "木" "金" "土" "日"))
(setq utime (get-universal-time))
(setq jtime (multiple-value-bind (s m h dd mm yy ww)
(decode-universal-time utime)
(format nil "日本時間 ~4,'0d/~2,'0d/~2,'0d ~2,'0d:~2,'0d:~2,'0d(~a)" yy mm dd h m s (nth ww jweek))
)
)
( ;jwc_temp.txt へ 出力
with-open-file (f "jwc_temp.txt" :direction :output)
(format f "ch 0 0 1 0 \"~a~%" jtime)
)
