Coroutin/setjmp for TPASCAL
JMPCALL.PAS
ターボパスカル 4.0 以上でコルーチン,setjmp/longjmp を実現するためのユ
ニット。そのほか,手続きを呼び出す手続きがあるが,これは手続き型変数の
ない Ver 4 のパスカルの為に作ったもので,Ver 5 以降を使う人は必要ない。
PC-VAN PIG パスカル情報 #261(88/03/15)に公開。
JMPCALL.ASM, JMPCALL.OBJ
JMPCALL.PAS のいわば本体。
ONERROR.PAS
SetJmp/LongJmp を利用して BASIC の ON ERROR GOTO もどきを実現したサン
プル。旧 MSA-NET に書き込んだ(89/08/23)ものを,今回ログから切り出した。
PROCESS.PAS, PROCTEST.PAS
コルーチンの人気が悪いので,文献[3]に従ってプロセス風にし,さらに
Simula をまねて object を使ってみた。PROCTEST はそのサンプル。
PC-VAN PIG パスカル情報 #1382(90/02/14)に公開。