[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Axiom-developer] [build-improvements] boottocl
From: |
Gabriel Dos Reis |
Subject: |
[Axiom-developer] [build-improvements] boottocl |
Date: |
15 Nov 2006 22:02:23 -0600 |
With this patchlet we return whather shoeNotFound returns when the
input file is invalid. This behaviour now matches that of other
translation functions.
-- Gaby
2006-11-15 Gabriel Dos Reis <address@hidden>
* ptyout.boot.pamphlet (shoeClLines): Return the result of
shoeNotFound is input file is not existent.
*** ptyout.boot.pamphlet (revision 16887)
--- ptyout.boot.pamphlet (local)
*************** BOOTCLAMLINES(lines, fn) ==
*** 96,104 ****
<<BOOTTOCLLINES>>
shoeClLines(a,fn,lines,outfn)==
if null a
! then
! shoeNotFound fn
! nil
else
$GenVarCounter:local := 0
shoeOpenOutputFile(stream,outfn,
--- 96,102 ----
<<BOOTTOCLLINES>>
shoeClLines(a,fn,lines,outfn)==
if null a
! then shoeNotFound fn
else
$GenVarCounter:local := 0
shoeOpenOutputFile(stream,outfn,
*************** PSTOUT string==
*** 860,866 ****
(DECLARE (SPECIAL |$GenVarCounter|))
(RETURN
(COND
! ((NULL |a|) (|shoeNotFound| |fn|) NIL)
('T (SETQ |$GenVarCounter| 0)
(|shoeOpenOutputFile| |stream| |outfn|
(PROGN
--- 858,864 ----
(DECLARE (SPECIAL |$GenVarCounter|))
(RETURN
(COND
! ((NULL |a|) (|shoeNotFound| |fn|))
('T (SETQ |$GenVarCounter| 0)
(|shoeOpenOutputFile| |stream| |outfn|
(PROGN
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Axiom-developer] [build-improvements] boottocl,
Gabriel Dos Reis <=