]>
git.saurik.com Git - wxWidgets.git/blob - src/msw/regconf.cpp
1 ///////////////////////////////////////////////////////////////////////////////
2 // Name: msw/regconf.cpp
4 // Author: Vadim Zeitlin
8 // Copyright: (c) 1998 Vadim Zeitlin <zeitlin@dptmaths.ens-cachan.fr>
9 // Licence: wxWindows licence
10 ///////////////////////////////////////////////////////////////////////////////
13 #pragma implementation "regconf.h"
16 // For compilers that support precompilation, includes "wx.h".
17 #include "wx/wxprec.h"
24 #include "wx/string.h"
34 #include "wx/config.h"
38 #include "wx/msw/registry.h"
39 #include "wx/msw/regconf.h"
41 // ----------------------------------------------------------------------------
43 // ----------------------------------------------------------------------------
45 // we put our data in HKLM\SOFTWARE_KEY\appname
46 #define SOFTWARE_KEY wxString(wxT("Software\\"))
48 // ----------------------------------------------------------------------------
50 // ----------------------------------------------------------------------------
52 // get the value if the key is opened and it exists
53 bool TryGetValue(const wxRegKey
& key
, const wxString
& str
, wxString
& strVal
)
55 return key
.IsOpened() && key
.HasValue(str
) && key
.QueryValue(str
, strVal
);
58 bool TryGetValue(const wxRegKey
& key
, const wxString
& str
, long *plVal
)
60 return key
.IsOpened() && key
.HasValue(str
) && key
.QueryValue(str
, plVal
);
63 // ============================================================================
65 // ============================================================================
67 // ----------------------------------------------------------------------------
69 // ----------------------------------------------------------------------------
71 // create the config object which stores its data under HKCU\vendor\app and, if
72 // style & wxCONFIG_USE_GLOBAL_FILE, under HKLM\vendor\app
73 wxRegConfig::wxRegConfig(const wxString
& appName
, const wxString
& vendorName
,
74 const wxString
& strLocal
, const wxString
& strGlobal
,
76 : wxConfigBase(appName
, vendorName
, strLocal
, strGlobal
, style
)
80 bool bDoUseGlobal
= (style
& wxCONFIG_USE_GLOBAL_FILE
) != 0;
82 // the convention is to put the programs keys under <vendor>\<appname>
83 // (but it can be overriden by specifying the pathes explicitly in strLocal
85 if ( strLocal
.IsEmpty() || (strGlobal
.IsEmpty() && bDoUseGlobal
) )
87 if ( vendorName
.IsEmpty() )
90 strRoot
= wxTheApp
->GetVendorName();
97 // no '\\' needed if no vendor name
98 if ( !strRoot
.IsEmpty() )
103 if ( appName
.IsEmpty() )
105 wxCHECK_RET( wxTheApp
, wxT("No application name in wxRegConfig ctor!") );
106 strRoot
<< wxTheApp
->GetAppName();
113 //else: we don't need to do all the complicated stuff above
115 wxString str
= strLocal
.IsEmpty() ? strRoot
: strLocal
;
117 // as we're going to change the name of these keys fairly often and as
118 // there are only few of wxRegConfig objects (usually 1), we can allow
119 // ourselves to be generous and spend some memory to significantly improve
120 // performance of SetPath()
121 static const size_t MEMORY_PREALLOC
= 512;
123 m_keyLocalRoot
.ReserveMemoryForName(MEMORY_PREALLOC
);
124 m_keyLocal
.ReserveMemoryForName(MEMORY_PREALLOC
);
126 m_keyLocalRoot
.SetName(wxRegKey::HKCU
, SOFTWARE_KEY
+ str
);
127 m_keyLocal
.SetName(m_keyLocalRoot
, wxEmptyString
);
131 str
= strGlobal
.IsEmpty() ? strRoot
: strGlobal
;
133 m_keyGlobalRoot
.ReserveMemoryForName(MEMORY_PREALLOC
);
134 m_keyGlobal
.ReserveMemoryForName(MEMORY_PREALLOC
);
136 m_keyGlobalRoot
.SetName(wxRegKey::HKLM
, SOFTWARE_KEY
+ str
);
137 m_keyGlobal
.SetName(m_keyGlobalRoot
, wxEmptyString
);
140 // Create() will Open() if key already exists
141 m_keyLocalRoot
.Create();
143 // as it's the same key, Open() shouldn't fail (i.e. no need for Create())
146 // OTOH, this key may perfectly not exist, so suppress error messages the call
147 // to Open() might generate
151 m_keyGlobalRoot
.Open();
156 wxRegConfig::~wxRegConfig()
158 // nothing to do - key will be closed in their dtors
161 // ----------------------------------------------------------------------------
163 // ----------------------------------------------------------------------------
165 // this function is called a *lot* of times (as I learned after seeing from
166 // profiler output that it is called ~12000 times from Mahogany start up code!)
167 // so it is important to optimize it - in particular, avoid using generic
168 // string functions here and do everything manually because it is faster
170 // I still kept the old version to be able to check that the optimized code has
171 // the same output as the non optimized version.
172 void wxRegConfig::SetPath(const wxString
& strPath
)
174 // remember the old path
175 wxString strOldPath
= m_strPath
;
177 #ifdef WX_DEBUG_SET_PATH // non optimized version kept here for testing
178 wxString m_strPathAlt
;
181 wxArrayString aParts
;
183 // because GetPath() returns "" when we're at root, we must understand
184 // empty string as "/"
185 if ( strPath
.IsEmpty() || (strPath
[0] == wxCONFIG_PATH_SEPARATOR
) ) {
187 wxSplitPath(aParts
, strPath
);
190 // relative path, combine with current one
191 wxString strFullPath
= GetPath();
192 strFullPath
<< wxCONFIG_PATH_SEPARATOR
<< strPath
;
193 wxSplitPath(aParts
, strFullPath
);
196 // recombine path parts in one variable
198 m_strPathAlt
.Empty();
199 for ( size_t n
= 0; n
< aParts
.Count(); n
++ ) {
200 strRegPath
<< '\\' << aParts
[n
];
201 m_strPathAlt
<< wxCONFIG_PATH_SEPARATOR
<< aParts
[n
];
206 // check for the most common case first
207 if ( strPath
.empty() )
209 m_strPath
= wxCONFIG_PATH_SEPARATOR
;
213 // construct the full path
214 wxString strFullPath
;
215 if ( strPath
[0u] == wxCONFIG_PATH_SEPARATOR
)
218 strFullPath
= strPath
;
220 else // relative path
222 strFullPath
.reserve(2*m_strPath
.length());
224 strFullPath
<< m_strPath
;
225 if ( strFullPath
.Len() == 0 ||
226 strFullPath
.Last() != wxCONFIG_PATH_SEPARATOR
)
227 strFullPath
<< wxCONFIG_PATH_SEPARATOR
;
228 strFullPath
<< strPath
;
231 // simplify it: we need to handle ".." here
233 // count the total number of slashes we have to know if we can go upper
234 size_t totalSlashes
= 0;
236 // position of the last slash to be able to backtrack to it quickly if
237 // needed, but we set it to -1 if we don't have a valid position
239 // we only remember the last position which means that we handle ".."
240 // quite efficiently but not "../.." - however the latter should be
241 // much more rare, so it is probably ok
242 int posLastSlash
= -1;
244 const wxChar
*src
= strFullPath
.c_str();
245 size_t len
= strFullPath
.length();
246 const wxChar
*end
= src
+ len
;
248 wxChar
*dst
= m_strPath
.GetWriteBuf(len
);
251 for ( ; src
< end
; src
++, dst
++ )
253 if ( *src
== wxCONFIG_PATH_SEPARATOR
)
257 // note that we don't have to check for src < end here as
258 // *end == 0 so can't be '.'
259 if ( src
[1] == _T('.') && src
[2] == _T('.') &&
260 (src
+ 3 == end
|| src
[3] == wxCONFIG_PATH_SEPARATOR
) )
264 wxLogWarning(_("'%s' has extra '..', ignored."),
265 strFullPath
.c_str());
267 else // return to the previous path component
269 // do we already have its position?
270 if ( posLastSlash
== -1 )
272 // no, find it: note that we are sure to have one
273 // because totalSlashes > 0 so we don't have to
274 // check the boundary condition below
276 // this is more efficient than strrchr()
278 while ( *dst
!= wxCONFIG_PATH_SEPARATOR
)
283 else // the position of last slash was stored
286 dst
= start
+ posLastSlash
;
288 // invalidate posLastSlash
292 // we must have found a slash one way or another!
293 wxASSERT_MSG( *dst
== wxCONFIG_PATH_SEPARATOR
,
294 _T("error in wxRegConfig::SetPath") );
296 // stay at the same position
308 if ( (dst
== start
) || (dst
[-1] != wxCONFIG_PATH_SEPARATOR
) )
310 *dst
= wxCONFIG_PATH_SEPARATOR
;
312 posLastSlash
= dst
- start
;
316 else // previous char was a slash too
318 // squeeze several subsequent slashes into one: i.e.
319 // just ignore this one
324 else // normal character
331 // NUL terminate the string
332 if ( dst
[-1] == wxCONFIG_PATH_SEPARATOR
&& (dst
!= start
+ 1) )
334 // if it has a trailing slash we remove it unless it is the only
341 m_strPath
.UngetWriteBuf(dst
- start
);
344 #ifdef WX_DEBUG_SET_PATH
345 wxASSERT( m_strPath
== m_strPathAlt
);
348 if ( m_strPath
== strOldPath
)
351 // registry APIs want backslashes instead of slashes
353 if ( !m_strPath
.empty() )
355 size_t len
= m_strPath
.length();
357 const wxChar
*src
= m_strPath
.c_str();
358 wxChar
*dst
= strRegPath
.GetWriteBuf(len
);
360 const wxChar
*end
= src
+ len
;
361 for ( ; src
< end
; src
++, dst
++ )
363 if ( *src
== wxCONFIG_PATH_SEPARATOR
)
369 strRegPath
.UngetWriteBuf(len
);
372 // this is not needed any longer as we don't create keys unnecessarily any
373 // more (now it is done on demand, i.e. only when they're going to contain
376 // as we create the registry key when SetPath(key) is done, we can be left
377 // with plenty of empty keys if this was only done to try to read some
378 // value which, in fact, doesn't exist - to prevent this from happening we
379 // automatically delete the old key if it was empty
380 if ( m_keyLocal
.Exists() && LocalKey().IsEmpty() )
382 m_keyLocal
.DeleteSelf();
386 // change current key(s)
387 m_keyLocal
.SetName(m_keyLocalRoot
, strRegPath
);
388 m_keyGlobal
.SetName(m_keyGlobalRoot
, strRegPath
);
390 // don't create it right now, wait until it is accessed
391 //m_keyLocal.Create();
397 // ----------------------------------------------------------------------------
398 // enumeration (works only with current group)
399 // ----------------------------------------------------------------------------
402 We want to enumerate all local keys/values after the global ones, but, of
403 course, we don't want to repeat a key which appears locally as well as
406 We use the 15th bit of lIndex for distinction between global and local.
409 #define LOCAL_MASK 0x8000
410 #define IS_LOCAL_INDEX(l) (((l) & LOCAL_MASK) != 0)
412 bool wxRegConfig::GetFirstGroup(wxString
& str
, long& lIndex
) const
415 return GetNextGroup(str
, lIndex
);
418 bool wxRegConfig::GetNextGroup(wxString
& str
, long& lIndex
) const
420 // are we already enumerating local entries?
421 if ( m_keyGlobal
.IsOpened() && !IS_LOCAL_INDEX(lIndex
) ) {
422 // try to find a global entry which doesn't appear locally
423 while ( m_keyGlobal
.GetNextKey(str
, lIndex
) ) {
424 if ( !m_keyLocal
.Exists() || !LocalKey().HasSubKey(str
) ) {
425 // ok, found one - return it
430 // no more global entries
431 lIndex
|= LOCAL_MASK
;
434 // if we don't have the key at all, don't try to enumerate anything under it
435 if ( !m_keyLocal
.Exists() )
438 // much easier with local entries: get the next one we find
439 // (don't forget to clear our flag bit and set it again later)
440 lIndex
&= ~LOCAL_MASK
;
441 bool bOk
= LocalKey().GetNextKey(str
, lIndex
);
442 lIndex
|= LOCAL_MASK
;
447 bool wxRegConfig::GetFirstEntry(wxString
& str
, long& lIndex
) const
450 return GetNextEntry(str
, lIndex
);
453 bool wxRegConfig::GetNextEntry(wxString
& str
, long& lIndex
) const
455 // are we already enumerating local entries?
456 if ( m_keyGlobal
.IsOpened() && !IS_LOCAL_INDEX(lIndex
) ) {
457 // try to find a global entry which doesn't appear locally
458 while ( m_keyGlobal
.GetNextValue(str
, lIndex
) ) {
459 if ( !m_keyLocal
.Exists() || !LocalKey().HasValue(str
) ) {
460 // ok, found one - return it
465 // no more global entries
466 lIndex
|= LOCAL_MASK
;
469 // if we don't have the key at all, don't try to enumerate anything under it
470 if ( !m_keyLocal
.Exists() )
473 // much easier with local entries: get the next one we find
474 // (don't forget to clear our flag bit and set it again later)
475 lIndex
&= ~LOCAL_MASK
;
476 bool bOk
= LocalKey().GetNextValue(str
, lIndex
);
477 lIndex
|= LOCAL_MASK
;
482 size_t wxRegConfig::GetNumberOfEntries(bool WXUNUSED(bRecursive
)) const
489 bool bCont
= ((wxRegConfig
*)this)->GetFirstEntry(str
, l
);
493 bCont
= ((wxRegConfig
*)this)->GetNextEntry(str
, l
);
499 size_t wxRegConfig::GetNumberOfGroups(bool WXUNUSED(bRecursive
)) const
506 bool bCont
= ((wxRegConfig
*)this)->GetFirstGroup(str
, l
);
510 bCont
= ((wxRegConfig
*)this)->GetNextGroup(str
, l
);
516 // ----------------------------------------------------------------------------
517 // tests for existence
518 // ----------------------------------------------------------------------------
520 bool wxRegConfig::HasGroup(const wxString
& key
) const
522 wxConfigPathChanger
path(this, key
);
524 wxString
strName(path
.Name());
526 return (m_keyLocal
.Exists() && LocalKey().HasSubKey(strName
)) ||
527 m_keyGlobal
.HasSubKey(strName
);
530 bool wxRegConfig::HasEntry(const wxString
& key
) const
532 wxConfigPathChanger
path(this, key
);
534 wxString
strName(path
.Name());
536 return (m_keyLocal
.Exists() && LocalKey().HasValue(strName
)) ||
537 m_keyGlobal
.HasValue(strName
);
540 wxConfigBase::EntryType
wxRegConfig::GetEntryType(const wxString
& key
) const
542 wxConfigPathChanger
path(this, key
);
544 wxString
strName(path
.Name());
547 if ( m_keyLocal
.Exists() && LocalKey().HasValue(strName
) )
548 isNumeric
= m_keyLocal
.IsNumericValue(strName
);
549 else if ( m_keyGlobal
.HasValue(strName
) )
550 isNumeric
= m_keyGlobal
.IsNumericValue(strName
);
552 return wxConfigBase::Type_Unknown
;
554 return isNumeric
? wxConfigBase::Type_Integer
: wxConfigBase::Type_String
;
557 // ----------------------------------------------------------------------------
559 // ----------------------------------------------------------------------------
561 bool wxRegConfig::DoReadString(const wxString
& key
, wxString
*pStr
) const
563 wxCHECK_MSG( pStr
, FALSE
, _T("wxRegConfig::Read(): NULL param") );
565 wxConfigPathChanger
path(this, key
);
567 bool bQueryGlobal
= TRUE
;
569 // if immutable key exists in global key we must check that it's not
570 // overriden by the local key with the same name
571 if ( IsImmutable(path
.Name()) ) {
572 if ( TryGetValue(m_keyGlobal
, path
.Name(), *pStr
) ) {
573 if ( m_keyLocal
.Exists() && LocalKey().HasValue(path
.Name()) ) {
574 wxLogWarning(wxT("User value for immutable key '%s' ignored."),
575 path
.Name().c_str());
581 // don't waste time - it's not there anyhow
582 bQueryGlobal
= FALSE
;
586 // first try local key
587 if ( (m_keyLocal
.Exists() && TryGetValue(LocalKey(), path
.Name(), *pStr
)) ||
588 (bQueryGlobal
&& TryGetValue(m_keyGlobal
, path
.Name(), *pStr
)) ) {
595 // this exactly reproduces the string version above except for ExpandEnvVars(),
596 // we really should avoid this code duplication somehow...
598 bool wxRegConfig::DoReadLong(const wxString
& key
, long *plResult
) const
600 wxCHECK_MSG( plResult
, FALSE
, _T("wxRegConfig::Read(): NULL param") );
602 wxConfigPathChanger
path(this, key
);
604 bool bQueryGlobal
= TRUE
;
606 // if immutable key exists in global key we must check that it's not
607 // overriden by the local key with the same name
608 if ( IsImmutable(path
.Name()) ) {
609 if ( TryGetValue(m_keyGlobal
, path
.Name(), plResult
) ) {
610 if ( m_keyLocal
.Exists() && LocalKey().HasValue(path
.Name()) ) {
611 wxLogWarning(wxT("User value for immutable key '%s' ignored."),
612 path
.Name().c_str());
618 // don't waste time - it's not there anyhow
619 bQueryGlobal
= FALSE
;
623 // first try local key
624 if ( (m_keyLocal
.Exists() && TryGetValue(LocalKey(), path
.Name(), plResult
)) ||
625 (bQueryGlobal
&& TryGetValue(m_keyGlobal
, path
.Name(), plResult
)) ) {
632 bool wxRegConfig::DoWriteString(const wxString
& key
, const wxString
& szValue
)
634 wxConfigPathChanger
path(this, key
);
636 if ( IsImmutable(path
.Name()) ) {
637 wxLogError(wxT("Can't change immutable entry '%s'."), path
.Name().c_str());
641 return LocalKey().SetValue(path
.Name(), szValue
);
644 bool wxRegConfig::DoWriteLong(const wxString
& key
, long lValue
)
646 wxConfigPathChanger
path(this, key
);
648 if ( IsImmutable(path
.Name()) ) {
649 wxLogError(wxT("Can't change immutable entry '%s'."), path
.Name().c_str());
653 return LocalKey().SetValue(path
.Name(), lValue
);
656 // ----------------------------------------------------------------------------
658 // ----------------------------------------------------------------------------
660 bool wxRegConfig::RenameEntry(const wxString
& oldName
, const wxString
& newName
)
662 // check that the old entry exists...
663 if ( !HasEntry(oldName
) )
666 // and that the new one doesn't
667 if ( HasEntry(newName
) )
670 return m_keyLocal
.RenameValue(oldName
, newName
);
673 bool wxRegConfig::RenameGroup(const wxString
& oldName
, const wxString
& newName
)
675 // check that the old group exists...
676 if ( !HasGroup(oldName
) )
679 // and that the new one doesn't
680 if ( HasGroup(newName
) )
683 return wxRegKey(m_keyLocal
, oldName
).Rename(newName
);
686 // ----------------------------------------------------------------------------
688 // ----------------------------------------------------------------------------
689 bool wxRegConfig::DeleteEntry(const wxString
& value
, bool WXUNUSED(bGroupIfEmptyAlso
))
691 wxConfigPathChanger
path(this, value
);
693 if ( m_keyLocal
.Exists() ) {
694 if ( !m_keyLocal
.DeleteValue(path
.Name()) )
697 if ( m_keyLocal
.IsEmpty() ) {
698 wxString strKey
= GetPath().AfterLast(wxCONFIG_PATH_SEPARATOR
);
699 SetPath(_T("..")); // changes m_keyLocal
700 return LocalKey().DeleteKey(strKey
);
707 bool wxRegConfig::DeleteGroup(const wxString
& key
)
709 wxConfigPathChanger
path(this, key
);
711 return m_keyLocal
.Exists() ? LocalKey().DeleteKey(path
.Name()) : TRUE
;
714 bool wxRegConfig::DeleteAll()
719 bool bOk
= m_keyLocalRoot
.DeleteSelf();
721 // make sure that we opened m_keyGlobalRoot and so it has a reasonable name:
722 // otherwise we will delete HKEY_CLASSES_ROOT recursively
723 if ( bOk
&& m_keyGlobalRoot
.IsOpened() )
724 bOk
= m_keyGlobalRoot
.DeleteSelf();