[Win32forth-cvs] win32forth/src/lib EscapedStrings.f, 1.2, 1.3 IMAGEWINDOW.F, 1.3, 1.4 SQLite.F, 1.3, 1.4

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

Update of /cvsroot/win32forth/win32forth/src/lib
In directory vz-cvs-4.sog:/tmp/cvs-serv13444

Modified Files:
	EscapedStrings.f IMAGEWINDOW.F SQLite.F 
Log Message:
General tidy up

Index: SQLite.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/SQLite.F,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** SQLite.F	10 Aug 2011 16:17:07 -0000	1.3
--- SQLite.F	18 Aug 2011 15:34:40 -0000	1.4
***************
*** 96,107 ****
          SQLOK: self drop drop ERR: self ;M
  
! :M Close: ( -- flag )
! \ *G Closes the database.  You can still open another database with
! \ ** the same object after closing, if desired.
          stmt @ if
            stmt @ call sqlite3_finalize nip
            SQLOK: self ERR: self
            0 stmt !
!         then
          dbhndl @ if
            dbhndl @ call sqlite3_close SQLOK: self drop
--- 96,110 ----
          SQLOK: self drop drop ERR: self ;M
  
! : Finalize ( -- )
          stmt @ if
            stmt @ call sqlite3_finalize nip
            SQLOK: self ERR: self
            0 stmt !
!         then ;
! 
! :M Close: ( -- flag )
! \ *G Closes the database.  You can still open another database with
! \ ** the same object after closing, if desired.
!         Finalize
          dbhndl @ if
            dbhndl @ call sqlite3_close SQLOK: self drop
***************
*** 120,128 ****
  
  :M (Execute): ( str len -- )
!         stmt @ if
!           stmt @ call sqlite3_finalize nip
!           SQLOK: self ERR: self
!           0 stmt !
!         then
          0 stmt 2swap swap dbhndl @
          call sqlite3_prepare_v2
--- 123,127 ----
  
  :M (Execute): ( str len -- )
!         Finalize
          0 stmt 2swap swap dbhndl @
          call sqlite3_prepare_v2

Index: IMAGEWINDOW.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/IMAGEWINDOW.F,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** IMAGEWINDOW.F	21 Jul 2011 18:26:21 -0000	1.3
--- IMAGEWINDOW.F	18 Aug 2011 15:34:40 -0000	1.4
***************
*** 1,6 ****
  \ $Id$
  
- \ ImageWindow.f
- 
  \ Routines to define object class for viewing bitmaps in a window
  \ Some code extracted from 4FreeImage.f by J.v.d.Ven
--- 1,4 ----

Index: EscapedStrings.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/EscapedStrings.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** EscapedStrings.f	21 Dec 2008 08:56:16 -0000	1.2
--- EscapedStrings.f	18 Aug 2011 15:34:40 -0000	1.3
***************
*** 1,2 ****
--- 1,4 ----
+ \ $Id$
+ 
  \ RfD: Escaped Strings S\"
  \ 19 July 2007, Stephen Pelc