fcc1abdd18
* tests/ac_test2.prg
* tests/adirtest.prg
* tests/ainstest.prg
* tests/altdtest.prg
* tests/and_or.prg
* tests/array16.prg
* tests/arrayidx.prg
* tests/arrays.prg
* tests/arreval.prg
* tests/arrindex.prg
* tests/atest.prg
* tests/box.prg
* tests/boxtst2.prg
* tests/byref.prg
* tests/calling.prg
* tests/clasinit.prg
* tests/clasname.prg
* tests/classch.prg
* tests/classes.prg
* tests/clsdata.prg
* tests/cmphello.prg
* tests/codebl.prg
* tests/codebloc.prg
* tests/comments.prg
* tests/curdirt.prg
* tests/db_brows.prg
* tests/dbevalts.prg
* tests/docase.prg
* tests/dosshell.prg
* tests/dupvars.prg
* tests/dynobj.prg
* tests/dynsym.prg
* tests/exittest.prg
* tests/extend1.prg
* tests/exthrb.prg
* tests/fib.prg
* tests/fornext.prg
* tests/fortest.prg
* tests/funcarr.prg
* tests/gfx.prg
* tests/gtchars.prg
* tests/gtcolors.prg
* tests/gtkeys.prg
* tests/hello.prg
* tests/ifelse.prg
* tests/inherit.prg
* tests/inhprob.prg
* tests/inifiles.prg
* tests/initexit.prg
* tests/inline.prg
* tests/iotest.prg
* tests/iotest2.prg
* tests/keywords.prg
* tests/langmsg.prg
* tests/linecont.prg
* tests/lnlenli1.prg
* tests/lnlenli2.prg
* tests/longdev.prg
* tests/longstr.prg
* tests/longstr2.prg
* tests/mathtest.prg
* tests/memfile.prg
* tests/memory.prg
* tests/readhrb.prg
* tests/rto_get.prg
* tests/rto_tb.prg
* tests/scroll.prg
* tests/seconds.prg
* tests/set_test.prg
* tests/speedold.prg
* tests/stripem.prg
* tests/t1.prg
* tests/test_all.prg
* tests/testbrw.prg
* tests/testhtml.prg
* tests/testid.prg
* tests/testpre.prg
* tests/testwarn.prg
* tests/ticktime.prg
* tests/tstchbx.prg
* tests/tstmacro.prg
* tests/tstprag.prg
* tests/vec1.prg
* tests/videotst.prg
* tests/vidtest.prg
* cleaning up tests (roughly complete)
363 lines
9.8 KiB
Plaintext
363 lines
9.8 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
PROCEDURE Main( cFilename, cSection )
|
|
|
|
LOCAL oIni := TIniFile():New( Default( cFilename, "harbour.ini" ) )
|
|
LOCAL s, n := Val( Default( cSection, "1" ) )
|
|
|
|
QOut( "" )
|
|
QOut( "Sections:" )
|
|
s := oIni:ReadSections()
|
|
AEval( s, {| x | QOut( "[" + x + "]" ) } )
|
|
|
|
QOut( "" )
|
|
QOut( "[" + s[ n ] + "]" )
|
|
s := oIni:ReadSection( s[ n ] )
|
|
AEval( s, {| x | QOut( x ) } )
|
|
|
|
oIni:WriteDate( "Date Test", "Today", Date() )
|
|
oIni:WriteBool( "Bool Test", "True", .T. )
|
|
QOut( oIni:ReadBool( "Bool Test", "True", .F. ) )
|
|
|
|
oIni:UpdateFile()
|
|
|
|
RETURN
|
|
|
|
FUNCTION TIniFile()
|
|
|
|
STATIC oClass
|
|
|
|
IF oClass == NIL
|
|
oClass := HBClass():New( "TINIFILE" ) // starts a new class definition
|
|
|
|
oClass:AddData( "FileName" ) // define this class objects datas
|
|
oClass:AddData( "Contents" )
|
|
|
|
oClass:AddMethod( "New", @New() ) // define this class objects methods
|
|
oClass:AddMethod( "ReadString", @ReadString() )
|
|
oClass:AddMethod( "WriteString", @WriteString() )
|
|
oClass:AddMethod( "ReadNumber", @ReadNumber() )
|
|
oClass:AddMethod( "WriteNumber", @WriteNumber() )
|
|
oClass:AddMethod( "ReadDate", @ReadDate() )
|
|
oClass:AddMethod( "WriteDate", @WriteDate() )
|
|
oClass:AddMethod( "ReadBool", @ReadBool() )
|
|
oClass:AddMethod( "WriteBool", @WriteBool() )
|
|
oClass:AddMethod( "ReadSection", @ReadSection() )
|
|
oClass:AddMethod( "ReadSections", @ReadSections() )
|
|
oClass:AddMethod( "DeleteKey", @DeleteKey() )
|
|
oClass:AddMethod( "EraseSection", @EraseSection() )
|
|
oClass:AddMethod( "UpdateFile", @UpdateFile() )
|
|
|
|
oClass:Create() // builds this class
|
|
ENDIF
|
|
|
|
RETURN oClass:Instance() // builds an object of this class
|
|
|
|
STATIC FUNCTION New( cFileName )
|
|
|
|
LOCAL Self := QSelf()
|
|
LOCAL Done, hFile, cFile, cLine, cIdent, nPos
|
|
LOCAL CurrArray
|
|
|
|
IF Empty( cFileName )
|
|
// raise an error?
|
|
OutErr( "No filename passed to TIniFile():New()" )
|
|
RETURN NIL
|
|
|
|
ELSE
|
|
::FileName := cFilename
|
|
::Contents := {}
|
|
CurrArray := ::Contents
|
|
|
|
IF File( cFileName )
|
|
hFile := FOpen( cFilename, 0 )
|
|
ELSE
|
|
hFile := FCreate( cFilename )
|
|
ENDIF
|
|
|
|
cLine := ""
|
|
Done := .F.
|
|
DO WHILE !Done
|
|
cFile := Space( 256 )
|
|
Done := ( FRead( hFile, @cFile, 256 ) <= 0 )
|
|
|
|
cFile := StrTran( cFile, Chr( 10 ), "" ) // so we can just search for CHR(13)
|
|
|
|
// prepend last read
|
|
cFile := cLine + cFile
|
|
DO WHILE !Empty( cFile )
|
|
IF ( nPos := At( Chr(13 ), cFile ) ) > 0
|
|
cLine := Left( cFile, nPos - 1 )
|
|
cFile := SubStr( cFile, nPos + 1 )
|
|
|
|
IF !Empty( cLine )
|
|
IF Left( cLine, 1 ) == "[" // new section
|
|
IF ( nPos := At( "]", cLine ) ) > 1
|
|
cLine := SubStr( cLine, 2, nPos - 2 );
|
|
|
|
else
|
|
cLine := SubStr( cLine, 2 )
|
|
ENDIF
|
|
|
|
AAdd( ::Contents, { cLine, { /* this will be CurrArray */
|
|
} } )
|
|
CurrArray := ::Contents[Len(::Contents)][ 2 ]
|
|
|
|
ELSEIF Left( cLine, 1 ) == ";" // preserve comments
|
|
AAdd( CurrArray, { NIL, cLine } )
|
|
|
|
ELSE
|
|
IF ( nPos := At( "=", cLine ) ) > 0
|
|
cIdent := Left( cLine, nPos - 1 )
|
|
cLine := SubStr( cLine, nPos + 1 )
|
|
|
|
AAdd( CurrArray, { cIdent, cLine } )
|
|
|
|
ELSE
|
|
AAdd( CurrArray, { cLine, "" } )
|
|
ENDIF
|
|
ENDIF
|
|
cLine := "" // to stop prepend later on
|
|
ENDIF
|
|
|
|
ELSE
|
|
cLine := cFile
|
|
cFile := ""
|
|
ENDIF
|
|
ENDDO
|
|
ENDDO
|
|
|
|
FClose( hFile )
|
|
ENDIF
|
|
|
|
RETURN Self
|
|
|
|
STATIC FUNCTION ReadString( cSection, cIdent, cDefault )
|
|
|
|
LOCAL Self := QSelf()
|
|
LOCAL cResult := cDefault
|
|
LOCAL i, j, cFind
|
|
|
|
IF Empty( cSection )
|
|
cFind := Lower( cIdent )
|
|
j := AScan( ::Contents, {| x | ValType( x[ 1 ] ) == "C" .AND. Lower( x[ 1 ] ) == cFind .AND. ValType( x[ 2 ] ) == "C" } )
|
|
|
|
IF j > 0
|
|
cResult := ::Contents[j][ 2 ]
|
|
ENDIF
|
|
|
|
ELSE
|
|
cFind := Lower( cSection )
|
|
i := AScan( ::Contents, {| x | ValType( x[ 1 ] ) == "C" .AND. Lower( x[ 1 ] ) == cFind } )
|
|
|
|
IF i > 0
|
|
cFind := Lower( cIdent )
|
|
j := AScan( ::Contents[ i ][ 2 ], {| x | ValType( x[ 1 ] ) == "C" .AND. Lower( x[ 1 ] ) == cFind } )
|
|
|
|
IF j > 0
|
|
cResult := ::Contents[ i ][ 2 ][j][ 2 ]
|
|
ENDIF
|
|
ENDIF
|
|
ENDIF
|
|
|
|
RETURN cResult
|
|
|
|
STATIC PROCEDURE WriteString( cSection, cIdent, cString )
|
|
|
|
LOCAL Self := QSelf()
|
|
LOCAL i, j, cFind
|
|
|
|
IF Empty( cIdent )
|
|
OutErr( "Must specify an identifier" )
|
|
|
|
ELSEIF Empty( cSection )
|
|
cFind := Lower( cIdent )
|
|
j := AScan( ::Contents, {| x | ValType( x[ 1 ] ) == "C" .AND. Lower( x[ 1 ] ) == cFind .AND. ValType( x[ 2 ] ) == "C" } )
|
|
|
|
IF j > 0
|
|
::Contents[j][ 2 ] := cString
|
|
|
|
ELSE
|
|
AAdd( ::Contents, NIL )
|
|
AIns( ::Contents, 1 )
|
|
::Contents[ 1 ] := { cIdent, cString }
|
|
ENDIF
|
|
|
|
ELSE
|
|
cFind := Lower( cSection )
|
|
IF ( i := AScan( ::Contents, {| x | ValType(x[ 1 ] ) == "C" .AND. Lower(x[ 1 ] ) == cFind .AND. ValType(x[ 2 ] ) == "A" } ) ) > 0
|
|
cFind := Lower( cIdent )
|
|
j := AScan( ::Contents[ i ][ 2 ], {| x | ValType( x[ 1 ] ) == "C" .AND. Lower( x[ 1 ] ) == cFind } )
|
|
|
|
IF j > 0
|
|
::Contents[ i ][ 2 ][j][ 2 ] := cString
|
|
|
|
ELSE
|
|
AAdd( ::Contents[ i ][ 2 ], { cIdent, cString } )
|
|
ENDIF
|
|
|
|
ELSE
|
|
AAdd( ::Contents, { cSection, { {cIdent, cString} } } )
|
|
ENDIF
|
|
ENDIF
|
|
|
|
RETURN
|
|
|
|
STATIC FUNCTION ReadNumber( cSection, cIdent, nDefault )
|
|
|
|
LOCAL Self := QSelf()
|
|
|
|
RETURN Val( ::ReadString( cSection, cIdent, Str(nDefault ) ) )
|
|
|
|
STATIC PROCEDURE WriteNumber( cSection, cIdent, nNumber )
|
|
|
|
LOCAL Self := QSelf()
|
|
|
|
::WriteString( cSection, cIdent, AllTrim( Str(nNumber ) ) )
|
|
|
|
RETURN
|
|
|
|
STATIC FUNCTION ReadDate( cSection, cIdent, dDefault )
|
|
|
|
LOCAL Self := QSelf()
|
|
|
|
RETURN SToD( ::ReadString( cSection, cIdent, DToS(dDefault ) ) )
|
|
|
|
STATIC PROCEDURE WriteDate( cSection, cIdent, dDate )
|
|
|
|
LOCAL Self := QSelf()
|
|
|
|
::WriteString( cSection, cIdent, DToS( dDate ) )
|
|
|
|
RETURN
|
|
|
|
STATIC FUNCTION ReadBool( cSection, cIdent, lDefault )
|
|
|
|
LOCAL Self := QSelf()
|
|
LOCAL cDefault := iif( lDefault, ".T.", ".F." )
|
|
|
|
return ::ReadString( cSection, cIdent, cDefault ) == ".T."
|
|
|
|
STATIC PROCEDURE WriteBool( cSection, cIdent, lBool )
|
|
|
|
LOCAL Self := QSelf()
|
|
|
|
::WriteString( cSection, cIdent, iif( lBool, ".T.", ".F." ) )
|
|
|
|
RETURN
|
|
|
|
STATIC PROCEDURE DeleteKey( cSection, cIdent )
|
|
|
|
LOCAL Self := QSelf()
|
|
LOCAL i, j
|
|
|
|
cSection := Lower( cSection )
|
|
i := AScan( ::Contents, {| x | ValType( x[ 1 ] ) == "C" .AND. Lower( x[ 1 ] ) == cSection } )
|
|
|
|
IF i > 0
|
|
cIdent := Lower( cIdent )
|
|
j := AScan( ::Contents[ i ][ 2 ], {| x | ValType( x[ 1 ] ) == "C" .AND. Lower( x[ 1 ] ) == cIdent } )
|
|
|
|
ADel( ::Contents[ i ][ 2 ], j )
|
|
ASize( ::Contents[ i ][ 2 ], Len( ::Contents[ i ][ 2 ] ) - 1 )
|
|
ENDIF
|
|
|
|
RETURN
|
|
|
|
STATIC PROCEDURE EraseSection( cSection )
|
|
|
|
LOCAL Self := QSelf()
|
|
LOCAL i
|
|
|
|
IF Empty( cSection )
|
|
DO WHILE ( i := AScan( ::Contents, {| x | ValType(x[ 1 ] ) == "C" .AND. ValType(x[ 2 ] ) == "C" } ) ) > 0
|
|
ADel( ::Contents, i )
|
|
ASize( ::Contents, Len( ::Contents ) - 1 )
|
|
ENDDO
|
|
|
|
ELSE
|
|
cSection := Lower( cSection )
|
|
IF ( i := AScan( ::Contents, {| x | ValType(x[ 1 ] ) == "C" .AND. Lower(x[ 1 ] ) == cSection .AND. ValType(x[ 2 ] ) == "A" } ) ) > 0
|
|
ADel( ::Contents, i )
|
|
ASize( ::Contents, Len( ::Contents ) - 1 )
|
|
ENDIF
|
|
ENDIF
|
|
|
|
RETURN
|
|
|
|
STATIC FUNCTION ReadSection( cSection )
|
|
|
|
LOCAL Self := QSelf()
|
|
LOCAL i, j, aSection := {}
|
|
|
|
IF Empty( cSection )
|
|
FOR i := 1 TO Len( ::Contents )
|
|
IF ValType( ::Contents[ i ][ 1 ] ) == "C" .AND. ValType( ::Contents[ i ][ 2 ] ) == "C"
|
|
AAdd( aSection, ::Contents[ i ][ 1 ] )
|
|
ENDIF
|
|
NEXT
|
|
|
|
ELSE
|
|
cSection := Lower( cSection )
|
|
IF ( i := AScan( ::Contents, {| x | ValType(x[ 1 ] ) == "C" .AND. x[ 1 ] == cSection .AND. ValType(x[ 2 ] ) == "A" } ) ) > 0
|
|
|
|
FOR j := 1 TO Len( ::Contents[ i ][ 2 ] )
|
|
|
|
IF ::Contents[ i ][ 2 ][j][ 1 ] != NIL
|
|
AAdd( aSection, ::Contents[ i ][ 2 ][j][ 1 ] )
|
|
ENDIF
|
|
NEXT
|
|
ENDIF
|
|
ENDIF
|
|
|
|
RETURN aSection
|
|
|
|
STATIC FUNCTION ReadSections()
|
|
|
|
LOCAL Self := QSelf()
|
|
LOCAL i, aSections := {}
|
|
|
|
FOR i := 1 TO Len( ::Contents )
|
|
|
|
IF ValType( ::Contents[ i ][ 2 ] ) == "A"
|
|
AAdd( aSections, ::Contents[ i ][ 1 ] )
|
|
ENDIF
|
|
NEXT
|
|
|
|
RETURN aSections
|
|
|
|
STATIC PROCEDURE UpdateFile()
|
|
|
|
LOCAL Self := QSelf()
|
|
LOCAL i, j, hFile
|
|
|
|
hFile := FCreate( ::Filename )
|
|
|
|
FOR i := 1 TO Len( ::Contents )
|
|
IF ::Contents[ i ][ 1 ] == NIL
|
|
FWrite( hFile, ::Contents[ i ][ 2 ] + Chr( 13 ) + Chr( 10 ) )
|
|
|
|
ELSEIF ValType( ::Contents[ i ][ 2 ] ) == "A"
|
|
FWrite( hFile, "[" + ::Contents[ i ][ 1 ] + "]" + Chr( 13 ) + Chr( 10 ) )
|
|
FOR j := 1 TO Len( ::Contents[ i ][ 2 ] )
|
|
|
|
if ::Contents[ i ][ 2 ][j][ 1 ] == NIL
|
|
FWrite( hFile, ::Contents[ i ][ 2 ][j][ 2 ] + Chr( 13 ) + Chr( 10 ) )
|
|
ELSE
|
|
FWrite( hFile, ::Contents[ i ][ 2 ][j][ 1 ] + "=" + ::Contents[ i ][ 2 ][j][ 2 ] + Chr( 13 ) + Chr( 10 ) )
|
|
ENDIF
|
|
next
|
|
FWrite( hFile, Chr( 13 ) + Chr( 10 ) )
|
|
|
|
ELSEIF ValType( ::Contents[ i ][ 2 ] ) == "C"
|
|
FWrite( hFile, ::Contents[ i ][ 1 ] + "=" + ::Contents[ i ][ 2 ] + Chr( 13 ) + Chr( 10 ) )
|
|
|
|
ENDIF
|
|
NEXT
|
|
|
|
FClose( hFile )
|
|
|
|
RETURN
|