006724dc11
* bin/bld.bat
+ Added hbpcre to lib list.
* source/rtl/hbini.prg
; Some formatting.
* tests/Makefile
+ tests/parseini.prg
+ tests/parseini.ini
+ tests/parseins.ini
+ Added .ini handling tests. Adapted from xhb.
111 lines
2.5 KiB
Plaintext
111 lines
2.5 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
******************************************************************
|
|
* Test for Ini file reading/writing
|
|
*
|
|
* Giancarlo Niccolai
|
|
*
|
|
|
|
PROCEDURE Main( cName )
|
|
LOCAL aIni, aSect
|
|
LOCAL cSection
|
|
LOCAL cKey
|
|
LOCAL nRow := 1
|
|
|
|
set color to w+/b
|
|
CLEAR SCREEN
|
|
@nRow++,20 SAY "H A R B O U R - .ini file parser test"
|
|
@nRow++,5 SAY "Call from command line using a .ini filename as the only parameter"
|
|
nRow++
|
|
|
|
IF Empty( cName )
|
|
cName := "parseini.ini"
|
|
@nRow++, 5 SAY "Using default parseini.ini file"
|
|
ENDIF
|
|
|
|
aIni := hb_IniRead( cName )
|
|
|
|
@nRow, 0
|
|
|
|
? "Content of " + cName
|
|
|
|
IF Empty( aIni )
|
|
? "Not a valid .ini file!"
|
|
ELSE
|
|
FOR EACH cSection IN aIni:Keys
|
|
?
|
|
? "Section [" + cSection + "]"
|
|
aSect := aIni[ cSection ]
|
|
|
|
FOR EACH cKey IN aSect:Keys
|
|
? cKey + " = " + aSect[ cKey ]
|
|
NEXT
|
|
NEXT
|
|
ENDIF
|
|
|
|
?
|
|
? "Adding section 'Added', with key NEW = new"
|
|
aIni[ "Added" ] := hb_Hash()
|
|
aIni[ "Added" ][ "NEW" ] := "new"
|
|
|
|
? "Writing output to parseini_out.ini"
|
|
IF hb_IniWrite( "parseini_out.ini", aIni, "#Generated file; don't touch", "#End of file")
|
|
? "File written"
|
|
ELSE
|
|
? "Can't write file"
|
|
ENDIF
|
|
?
|
|
? "Press any key to next text."
|
|
Inkey(0)
|
|
?
|
|
? "REPEATING TESTS WITHOUT AUTOMATIC MAIN SECTION"
|
|
|
|
aIni := hb_IniRead( cName, /*default case*/ , /*Default key indicators */ , .F. )
|
|
|
|
@nRow, 0
|
|
|
|
? "Content of " + cName
|
|
|
|
IF Empty( aIni )
|
|
? "Not a valid .ini file!"
|
|
ELSE
|
|
FOR EACH cSection IN aIni:Keys
|
|
/* Now (without automatic main), toplevel options may be in the root hash */
|
|
aSect := aIni[ cSection ]
|
|
|
|
IF HB_IsHash( aSect )
|
|
/* It's a section */
|
|
?
|
|
? "Section [" + cSection + "]"
|
|
|
|
FOR EACH cKey IN aSect:Keys
|
|
? cKey + " = " + aSect[ cKey ]
|
|
NEXT
|
|
ELSE
|
|
/* It's a toplevel option */
|
|
? "TOPLEVEL option:", cSection + " = " + aSect
|
|
ENDIF
|
|
NEXT
|
|
ENDIF
|
|
|
|
?
|
|
? "Adding section 'Added', with key NEW = new"
|
|
aIni[ "Added" ] := hb_Hash()
|
|
aIni[ "Added" ][ "NEW" ] := "new"
|
|
|
|
? "Writing output to parseini_out1.ini"
|
|
IF hb_IniWrite( "parseini_out1.ini", aIni,;
|
|
"#Generated file without main auto section; don't touch", "#End of file",;
|
|
.F. )
|
|
? "File written"
|
|
ELSE
|
|
? "Can't write file"
|
|
ENDIF
|
|
?
|
|
? "Press any key to next text."
|
|
Inkey(0)
|
|
|
|
RETURN
|