newlispfanclub.alh.net

Posted: **Sun May 09, 2004 7:49 am**

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))
	)
)

Posted: **Sun May 09, 2004 2:41 pm**

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

Lutz

Posted: **Mon May 10, 2004 6:05 am**

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.

newlispfanclub.alh.net

Progress display in console

Progress display in console