;;; relog - recall into a log ; syntax: /relog <file> <recall_arguments> ; Starts logging, and silently performs a /recall into the log file. /loaded __TFLIB__/relog.tf /require textutil.tf /def -i relog = \ /let out=%; \ /if ((out:=tfopen({1}, "a")) < 0) /return 0%; /endif%; \ /echo -e %% Recalling to log file %1%;\ /test tfflush(out, 0)%; \ /quote -S -decho #%-1 %| /copyio i %out%; \ /test tfclose(out)%; \ /log %1