Progress display in console

[HPW]

Is this code the right method to display progress inside console-mode?
The backspaces bring back the cursor to linestart.

Code: Select all

(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 "\008" 30)"Processing Line: " Loopcount))
	)
)

[Lutz]

On your Solaris box the display code for backspace may or may not be different.

Lutz

[HPW]

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.