source/texk/web2c/web2c/cvtbib.sed

   1 /#include "cpascal.h"/a\
   2 \#include \<setjmp.h\> \
   3 jmp_buf jmp9998, jmp32; int lab31=0;
   4 /#include "u*ptexdir\/kanji.h"/a\
   5 \#include \<setjmp.h\> \
   6 jmp_buf jmp9998, jmp32; int lab31=0;
   7 s/goto lab31 ; */{lab31=1; return;}/
   8 s/goto lab32/longjmp(jmp32,1)/
   9 s/goto lab9998/longjmp(jmp9998,1)/g
  10 s/lab31://
  11 s/lab32://
  12 s/hack0 () ;/if(setjmp(jmp9998)==1) goto lab9998;/
  13 s/hack1 () ;/if(setjmp(jmp32)==0)for(;;)/
  14 s/hack2 ()/break/
  15 /^void mainbody/,$s/while ( true/while (lab31==0/