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
|
