[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Axiom-developer] [build-improvements] Pretty-print when boottocl and bo
From: |
Gabriel Dos Reis |
Subject: |
[Axiom-developer] [build-improvements] Pretty-print when boottocl and boottoclc |
Date: |
15 Nov 2006 21:35:58 -0600 |
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|)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Axiom-developer] [build-improvements] Pretty-print when boottocl and boottoclc,
Gabriel Dos Reis <=