fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2011-11-22 18:15 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* src/rtl/hbini.prg
    + keep order of ini items.
      Patch by Qatan.
    * modified to use HB_HKEEPORDER() instead of HB_HSETORDER() 
      to be consistent along the patch and because former is the 
      native, faster synonym.
This commit is contained in:
Viktor Szakats
2011-11-22 17:19:20 +00:00
parent cb71a1875b
commit 5ee6af4c38
2 changed files with 13 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
harbour/ChangeLog
View File

@@ -16,6 +16,14 @@
The license applies to all entries newer than 2009-04-28.
*/
2011-11-22 18:15 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* src/rtl/hbini.prg
+ keep order of ini items.
Patch by Qatan.
* modified to use HB_HKEEPORDER() instead of HB_HSETORDER()
to be consistent along the patch and because former is the
native, faster synonym.
2011-11-17 10:47 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
* contrib/hbqt/qtcore/qth/QLibraryInfo.qth
- Deleted: QLibraryInfo::buildDate() method call.

10
harbour/src/rtl/hbini.prg
View File

@@ -95,14 +95,14 @@ PROCEDURE hb_IniSetComment( cLc, cHlc )
RETURN
FUNCTION HB_IniNew( lAutoMain )
LOCAL hIni := hb_Hash()
LOCAL hIni := hb_HKeepOrder( { => }, .T. )
IF ! ISLOGICAL( lAutoMain )
lAutoMain := .T.
ENDIF
IF lAutoMain
hIni[ "MAIN" ] := hb_Hash()
hIni[ "MAIN" ] := hb_HKeepOrder( { => }, .T. )
ENDIF
RETURN hIni
@@ -111,7 +111,7 @@ FUNCTION hb_IniRead( cFileSpec, lKeyCaseSens, cSplitters, lAutoMain )
RETURN hb_IniReadStr( iif( ISCHARACTER( cFileSpec ), hb_IniFileLow( cFileSpec ), "" ), lKeyCaseSens, cSplitters, lAutoMain )
FUNCTION hb_IniReadStr( cData, lKeyCaseSens, cSplitters, lAutoMain )
LOCAL hIni := hb_Hash()
LOCAL hIni := hb_HKeepOrder( { => }, .T. )
/* Default case sensitiveness for keys */
IF ! ISLOGICAL( lKeyCaseSens )
@@ -130,7 +130,7 @@ FUNCTION hb_IniReadStr( cData, lKeyCaseSens, cSplitters, lAutoMain )
hb_HCaseMatch( hIni, lKeyCaseSens )
IF lAutoMain
hIni[ "MAIN" ] := hb_Hash()
hIni[ "MAIN" ] := hb_HKeepOrder( { => }, .T. )
ENDIF
RETURN hb_IniStringLow( hIni, cData, lKeyCaseSens, cSplitters, lAutoMain )
@@ -254,7 +254,7 @@ STATIC FUNCTION hb_IniStringLow( hIni, cData, lKeyCaseSens, cSplitters, lAutoMai
IF ! Empty( aKeyVal )
cLine := AllTrim( aKeyVal[ 2 ] )
IF Len( cLine ) != 0
hCurrentSection := hb_Hash()
hCurrentSection := hb_HKeepOrder( { => }, .T. )
IF ! lKeyCaseSens
cLine := Upper( cLine )
ENDIF