[Win32forth-cvs] win32forth/src REGISTRY.F,1.5,1.6

[Dirk B. <db...@us...>]

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

Modified Files:
	REGISTRY.F 
Log Message:
- Some more changes to work with Rod's RegistrySupport.f

Index: REGISTRY.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/REGISTRY.F,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** REGISTRY.F	24 May 2005 15:54:01 -0000	1.5
--- REGISTRY.F	25 May 2005 15:40:53 -0000	1.6
***************
*** 12,19 ****
  \ Sonntag, Dezember 26 2004 dbu mostly rewritten
  \ Dienstag, Mai 24 2005 dbu 
! \   - Changed to work with Rod's RegistrySupport.f and
  \   - fixed a bug in (RegQueryValue)      
  \   - removed the deprecated words .REGISTRY and RE-REGISTER
  \   - Expanded TAB's into spaces
  
  cr .( Loading Windows Registry...)
--- 12,21 ----
  \ Sonntag, Dezember 26 2004 dbu mostly rewritten
  \ Dienstag, Mai 24 2005 dbu 
! \   - Changed to work with Rod's RegistrySupport.f
  \   - fixed a bug in (RegQueryValue)      
  \   - removed the deprecated words .REGISTRY and RE-REGISTER
  \   - Expanded TAB's into spaces
+ \ Mittwoch, Mai 25 2005 dbu 
+ \   - Some more changes to work with Rod's RegistrySupport.f
  
  cr .( Loading Windows Registry...)
***************
*** 117,121 ****
  \ sadr,slen = the registry section to get the key of  (for read accesss)
  \ return -1 if we could not get the key
! : RegGetKey     { sadr slen \ section$ -- regkey }  \ read the key of a section
                  MAXSTRING 2 + LocalAlloc: section$
                  regBaseKey
--- 119,123 ----
  \ sadr,slen = the registry section to get the key of  (for read accesss)
  \ return -1 if we could not get the key
! : RegGetKeyRead { sadr slen \ section$ -- regkey }  \ read the key of a section
                  MAXSTRING 2 + LocalAlloc: section$
                  regBaseKey
***************
*** 135,140 ****
                  ReturnedKey$ off                \ initially clear return buffer
  
!                 sadr slen RegGetKey dup INVALID_HANDLE_VALUE =
!                 if   drop ReturnedKey$ count
                       EXIT \ return on error, empty data
                  then
--- 137,142 ----
                  ReturnedKey$ off                \ initially clear return buffer
  
!                 sadr slen RegGetKeyRead dup INVALID_HANDLE_VALUE =
!                 if   drop ReturnedKey$ count regLen off regType off
                       EXIT \ return on error, empty data
                  then
***************
*** 158,162 ****
  \ sadr,slen = the registry section to get the key of (for write accesss)
  \ return -1 if we could not get the key
! : RegGetKeyWrite { sadr slen \ section$ -- regkey }  \ read the key of a section
                  MAXSTRING 2 + LocalAlloc: section$
                  regBaseKey
--- 160,164 ----
  \ sadr,slen = the registry section to get the key of (for write accesss)
  \ return -1 if we could not get the key
! : RegGetKey     { sadr slen \ section$ -- regkey }  \ read the key of a section
                  MAXSTRING 2 + LocalAlloc: section$
                  regBaseKey
***************
*** 171,175 ****
  : RegSetString  { dadr dlen vadr vlen sadr slen \ val$ khdl -- }
  
!                 sadr slen RegGetKeyWrite to khdl
                  khdl INVALID_HANDLE_VALUE =
                  if exit then \ just return, ignore error
--- 173,177 ----
  : RegSetString  { dadr dlen vadr vlen sadr slen \ val$ khdl -- }
  
!                 sadr slen RegGetKey to khdl
                  khdl INVALID_HANDLE_VALUE =
                  if exit then \ just return, ignore error