newLISP Fan Club

Forum => newLISP in the real world => Topic started by: HPW on May 09, 2004, 12:49:32 AM

Title: Progress display in console
Post by: HPW on May 09, 2004, 12:49:32 AM
Is this code the right method to display progress inside console-mode?

The backspaces bring back the cursor to linestart.



(define (repstr str num , lst)
(dotimes(x num) (push str lst))
(join lst))

(dolist(linestr inputlist)
..
..
..
(inc 'Loopcount)
(if (=(mod Loopcount 1000)0)
(print (string (repstr "08" 30)"Processing Line: " Loopcount))
)
)
Title:
Post by: Lutz on May 09, 2004, 07:41:17 AM
On your Solaris box the display code for backspace may or may not be different.



Lutz
Title:
Post by: HPW on May 09, 2004, 11:05:26 PM
Yes you are right. It is a bit different, since it does not show every value. It should show everey 1000 line but the terminal is only updated about 19000 lines. But you see the progress and the screen is not full of messages. You see start, progress and end of session.