Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv8073
Modified Files:
Dc.f
Log Message:
Rod: enabled printing from the new console
Index: Dc.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Dc.f,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** Dc.f 19 Aug 2008 12:47:52 -0000 1.16
--- Dc.f 25 Aug 2008 18:11:04 -0000 1.17
***************
*** 1427,1437 ****
: 4print ( -- )
four-page fprint single-page ;
! ((
! 80 value MAXCONCOLS
! 80 value conscols
: #print-screen ( start_line lines -- ) \ print a range of lines from saved
\ Forth screen buffer
- cols to conscols
cursor-off
#pages-up ?dup
--- 1427,1437 ----
: 4print ( -- )
four-page fprint single-page ;
!
! : RowString ( row -- a n ) \ address and length of row (without CR)
! &the-screen zcount rot 0 ?DO 13 scan 1 /string 10 skip LOOP
! 2dup 13 scan nip - ;
: #print-screen ( start_line lines -- ) \ print a range of lines from saved
\ Forth screen buffer
cursor-off
#pages-up ?dup
***************
*** 1444,1468 ****
printer?
IF ( -- start lines )
! &the-screen -rot
! ( -- start lines ) bounds
DO
! dup getmaxcolrow drop i * + \ line starting addr
! conscols MAXCONCOLS max getmaxcolrow drop min
-trailing \ addr len
Type: ThePrinter
Cr: ThePrinter \ next line
LOOP
- drop
ELSE 2drop
THEN console single-page cursor-on ;
! : print-screen ( -- ) \ print the physical screen
! getrowoff rows
#print-screen ;
: print-console ( -- ) \ print all lines used in screen save buffer
! 0 getrowoff rows +
#print-screen ;
! ))
INTERNAL
--- 1444,1465 ----
printer?
IF ( -- start lines )
! bounds
DO
! i RowString
-trailing \ addr len
Type: ThePrinter
Cr: ThePrinter \ next line
LOOP
ELSE 2drop
THEN console single-page cursor-on ;
! : print-screen ( -- ) \ print the physical screen
! getrowoff rows \ print from first visible row to last visible row
#print-screen ;
: print-console ( -- ) \ print all lines used in screen save buffer
! 0 getrowoff rows + \ print from row 0 to last visible row (not lines scrolled off the bottom)
#print-screen ;
!
INTERNAL
|