win32forth-cvs

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16899/win32forth/src/lib

Modified Files:
	SUB_DIRS.F ScintillaEdit.f file.f 
Log Message:
gah:  minor optimizations

Index: file.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/file.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** file.f	1 May 2005 06:27:42 -0000	1.2
--- file.f	3 May 2005 12:21:10 -0000	1.3
***************
*** 44,49 ****
                  msg$ +null
                  MB_OK MB_ICONSTOP or MB_TASKMODAL or
!                 z" Warning!" ( title )
!                 msg$ 1+ ( message )
                  NULL Call MessageBox drop
                  msgtext off ;
--- 44,49 ----
                  msg$ +null
                  MB_OK MB_ICONSTOP or MB_TASKMODAL or
!                 z" Warning!"  ( title )
!                 msg$ 1+       ( message )
                  NULL Call MessageBox drop
                  msgtext off ;
***************
*** 112,117 ****
  :M RePosition:  ( ud -- )
                  hfile
!                 if      hfile reposition-file to errorcode
!                 else    2drop
                  then    ;M
  
--- 112,117 ----
  :M RePosition:  ( ud -- )
                  hfile
!                 -if     reposition-file to errorcode
!                 else    3drop
                  then    ;M
  
***************
*** 141,148 ****
  
  :M WriteLine:   ( addr len -- )
!                 hfile ?dup
!                 if      write-line to errorcode
                          s" Write Line" ismsgtext ?fileerror
!                 else    2drop
                  then    ;M
  
--- 141,148 ----
  
  :M WriteLine:   ( addr len -- )
!                 hfile
!                 -if      write-line to errorcode
                          s" Write Line" ismsgtext ?fileerror
!                 else    3drop
                  then    ;M
  

Index: ScintillaEdit.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/ScintillaEdit.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** ScintillaEdit.f	21 Dec 2004 00:19:10 -0000	1.1
--- ScintillaEdit.f	3 May 2005 12:21:10 -0000	1.2
***************
*** 285,289 ****
                  >month,day,year" $buf place
  
!                 time&date 2drop drop
                  s"  - " $buf +place
                  (.)   $buf +place s" :" $buf +place
--- 285,289 ----
                  >month,day,year" $buf place
  
!                 time&date 3drop
                  s"  - " $buf +place
                  (.)   $buf +place s" :" $buf +place
***************
*** 344,350 ****
                  buf$ swap 2dup
                  BEGIN   2dup bl scan dup
!                 WHILE   2swap 2drop
                          bl skip
!                 REPEAT  2drop drop 2 pick - dup dup>r
                  /string 2dup bl scan nip - r@ + nip
  
--- 344,350 ----
                  buf$ swap 2dup
                  BEGIN   2dup bl scan dup
!                 WHILE   2nip
                          bl skip
!                 REPEAT  3drop 2 pick - dup dup>r
                  /string 2dup bl scan nip - r@ + nip
  
***************
*** 428,429 ****
--- 428,430 ----
  
  
+