Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!csd4.milw.wisc.edu!lll-winken!uunet!mcvax!hp4nl!ruuinf!piet
From: piet@cs.ruu.nl (Piet van Oostrum)
Newsgroups: comp.text
Subject: Re: Problems with undumping TeX after web2 on Pyramid
Message-ID: <1224@ruuinf.UUCP>
Date: 23 Mar 89 13:34:15 GMT
References: <437@cadlab.cadlab.de>
Sender: piet@ruuinf.UUCP
Reply-To: piet@cs.ruu.nl (Piet van Oostrum)
Organization: Dept of Computer Science, University of Utrecht, Holland
Lines: 56
In-reply-to: schmidt@cadlab.uucp (Michael Schmidt)

In article <437@cadlab.cadlab.de>, schmidt@cadlab (Michael Schmidt) writes:
 `
 `We now have the C sources of virtex, as produced by web2c. We can get a
 `working virtex out of it, we can let it dump a core and we can
 `produce a somewhat working TeX from it with undump. 
 `
 `But, this TeX ignores all environment variables. A short
 `examination shows, that the procedure, which reads the
 `environment is never executed by the undumped program. This may
 `be a fault (feature) of undump, but I believe that surely
 `somebody has fixed it, since the environment variables are
 `essentials. Furthermore, it seems to work with the Pascal derived TeX.

There is a bug in the distributed version of ctex.ch. I believe it has been
fixed in newer version. Anyway here is a patch:

*** ctex.ch.org	Tue Aug 16 15:24:59 1988
--- ctex.ch	Fri Nov 11 17:06:37 1988
***************
*** 1670,1676
  begin @!{|start_here|}
  history:=fatal_error_stop; {in case we quit during initialization}
  t_open_out; {open the terminal for output}
- if ready_already=314159 then goto start_of_TEX;
  set_paths; {get default file paths from the Unix environment}
  @z
  

--- 1670,1675 -----
  begin @!{|start_here|}
  history:=fatal_error_stop; {in case we quit during initialization}
  t_open_out; {open the terminal for output}
  set_paths; {get default file paths from the Unix environment}
  if ready_already=314159 then goto start_of_TEX;
  @z
***************
*** 1672,1677
  t_open_out; {open the terminal for output}
  if ready_already=314159 then goto start_of_TEX;
  set_paths; {get default file paths from the Unix environment}
  @z
  
  @x

--- 1671,1677 -----
  history:=fatal_error_stop; {in case we quit during initialization}
  t_open_out; {open the terminal for output}
  set_paths; {get default file paths from the Unix environment}
+ if ready_already=314159 then goto start_of_TEX;
  @z
  
  @x
-- 
Piet van Oostrum, Dept of Computer Science, University of Utrecht
Padualaan 14, P.O. Box 80.089, 3508 TB Utrecht, The Netherlands
Telephone: +31-30-531806. piet@cs.ruu.nl (mcvax!hp4nl!ruuinf!piet)