home *** CD-ROM | disk | FTP | other *** search
/ Dream 45 / Amiga_Dream_45.iso / Amiga / Magazine / Dossier-LaTeX / AmiWeb2C.lha / source / web2c-6.1 / web2c / web / weave.chch < prev    next >
Text File  |  1995-03-26  |  1KB  |  61 lines
  1. Changes for WEAVE.CH by Andreas Scherer, March 26, 1995.
  2.  
  3. @x l.76
  4. @d banner=='This is WEAVE, Version 4.4' {more is printed later}
  5. @y
  6. @d banner=='This is WEAVE, Version 4.4' {more is printed later}
  7.  
  8. @d amiga==ifdef('_AMIGA')
  9. @d agima==endif('_AMIGA')
  10. @z
  11.  
  12. @x l.91
  13. program WEAVE;
  14. @y
  15. program WEAVE;
  16.  
  17. amiga@;
  18. @=#include "weave.version";@>
  19. agima@;
  20. @z
  21.  
  22. Patching the NULL device in WEB is much harder than in CWEB.  :-(
  23. But in the end it can be done in a portable way.  :-)
  24.  
  25. @x l.540
  26. @ @<Set up null...@>=
  27. begin
  28.   change_file_name[1]:='/';
  29.   change_file_name[2]:='d';
  30.   change_file_name[3]:='e';
  31.   change_file_name[4]:='v';
  32.   change_file_name[5]:='/';
  33.   change_file_name[6]:='n';
  34.   change_file_name[7]:='u';
  35.   change_file_name[8]:='l';
  36.   change_file_name[9]:='l';
  37.   change_file_name[10]:=' ';
  38. end
  39. @y
  40. @ @<Set up null...@>=
  41. begin
  42.   change_file_name[1]:='/';
  43.   change_file_name[2]:='d';
  44.   change_file_name[3]:='e';
  45.   change_file_name[4]:='v';
  46.   change_file_name[5]:='/';
  47.   change_file_name[6]:='n';
  48.   change_file_name[7]:='u';
  49.   change_file_name[8]:='l';
  50.   change_file_name[9]:='l';
  51.   change_file_name[10]:=' ';
  52. amiga@;
  53.   change_file_name[1]:='N';
  54.   change_file_name[2]:='I';
  55.   change_file_name[3]:='L';
  56.   change_file_name[4]:=':';
  57.   change_file_name[5]:=' ';
  58. agima@;
  59. end
  60. @z
  61.