[Axiom-developer] [build-improvements] Pretty-print when boottocl and boottoclc

[Gabriel Dos Reis]

Hi,

  This patchlet makes the functions boottocl and boottoclc translators
pretty print their results -- instead of producing long lines of 
unreadable sequences of parenthesis and vertical bars.

I just bootsys from stage 2 to check the results and alter
the cached version.

Built and tested on an i686-pc-linux-gnu.

-- Gaby

2006-11-15  Gabriel Dos Reis  <address@hidden>

        * ptyout.boot.pamphlet (shoeFileTrees): Use REALLYPRETTYPRINT
        instead of shoePPtoFile.

*** ptyout.boot.pamphlet        (revision 16886)
--- ptyout.boot.pamphlet        (local)
*************** shoeFileTrees(s,st)==
*** 310,316 ****
              a:=CAR s
              if EQCAR (a,"+LINE")
              then shoeFileLine(CADR a,st)
!             else shoePPtoFile(a,st)
              s:=CDR s
   
   
--- 310,316 ----
              a:=CAR s
              if EQCAR (a,"+LINE")
              then shoeFileLine(CADR a,st)
!             else REALLYPRETTYPRINT(a,st)
              s:=CDR s
   
   
*************** PSTOUT string==
*** 1192,1198 ****
                  (SETQ |a| (CAR |s|))
                  (COND
                    ((EQCAR |a| '+LINE) (|shoeFileLine| (CADR |a|) |st|))
!                   ('T (|shoePPtoFile| |a| |st|)))
                  (SETQ |s| (CDR |s|)))))))))))
  
  (DEFUN |shoePPtoFile| (|x| |stream|)
--- 1192,1198 ----
                  (SETQ |a| (CAR |s|))
                  (COND
                    ((EQCAR |a| '+LINE) (|shoeFileLine| (CADR |a|) |st|))
!                   ('T (REALLYPRETTYPRINT |a| |st|)))
                  (SETQ |s| (CDR |s|)))))))))))
  
  (DEFUN |shoePPtoFile| (|x| |stream|)