[comp.text] Problems with undumping TeX after web2 on Pyramid

schmidt@cadlab.uucp (Michael Schmidt) (03/22/89)

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.

Any ideas, comments?

BTW, has anybody a working undump for SUNOS4.0 ?
-- 
    Michael Schmidt, CADLAB / FB 17, Uni-GH Paderborn, Bahnhofstr. 32,
                     D-4790 Paderborn, West Germany
Mail:   schmidt@cadlab.UUCP         or          schmidt%cadlab@uunet.uu.net
	"AMOK - Im Tiefflug ueber Deutschland"		HRK

piet@cs.ruu.nl (Piet van Oostrum) (03/23/89)

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)