a334469c05
* extras/hbxlsxml/xlsxml.prg
* extras/httpsrv/modules/info.prg
* extras/httpsrv/modules/showcounter.prg
* extras/httpsrv/modules/testajax.prg
* tests/mathtest.prg
* tests/memfile.prg
* tests/memory.prg
* tests/memtst.prg
* tests/memvar.prg
* tests/newrdd.prg
* contrib/hbmisc/hbeditc.c
* formatting
* src/rdd/usrrdd/rdds/hscdx.prg
* src/rdd/usrrdd/rdds/rlcdx.prg
* hbformat, manual fixups
* contrib/hbformat/hbfmtcls.prg
* added TOFIX for not recognizing INIT/EXIT PROCEDURE
statements
* tests/memtst.prg
! typo in comment
* tests/mathtest.prg
! added CLS to run well under hbrun
79 lines
1.4 KiB
Plaintext
79 lines
1.4 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
// ; Donated to the public domain by
|
|
// Viktor Szakats (harbour syenar.net)
|
|
|
|
MEMVAR mcLongerNameThen10Chars
|
|
#ifdef __HARBOUR__
|
|
MEMVAR mcLongerNa
|
|
#endif
|
|
MEMVAR mcString
|
|
MEMVAR mnDouble
|
|
MEMVAR mnDoubleH
|
|
MEMVAR mnInt
|
|
MEMVAR mnLong
|
|
MEMVAR mdDate
|
|
MEMVAR mlLogicalT
|
|
MEMVAR mlLogicalF
|
|
MEMVAR mxStayHere
|
|
|
|
PROCEDURE Main()
|
|
PRIVATE mcLongerNameThen10Chars := "Long String Name!"
|
|
PRIVATE mcString := "This is a" + Chr( 0 ) + "string to save."
|
|
PRIVATE mnDouble := 100.0000
|
|
PRIVATE mnDoubleH := 5000000000
|
|
PRIVATE mnInt := 35
|
|
PRIVATE mnLong := 3000000
|
|
PRIVATE mdDate := Date()
|
|
PRIVATE mlLogicalT := .F.
|
|
PRIVATE mlLogicalF := .T.
|
|
|
|
SAVE TO memfile ALL
|
|
SAVE TO memsome ALL LIKE "mnDouble*"
|
|
|
|
CLEAR MEMORY
|
|
|
|
SAVE TO memempt ALL
|
|
|
|
PRIVATE mxStayHere := "CONST"
|
|
|
|
RESTORE FROM memfile ADDITIVE
|
|
|
|
? mxStayHere
|
|
? mcLongerNa /* Can't restore the part of the name beyond the tenth char */
|
|
? mcString
|
|
? mnDouble
|
|
? mnDoubleH
|
|
? mnInt
|
|
? mnLong
|
|
? mdDate
|
|
? mlLogicalF
|
|
? mlLogicalT
|
|
|
|
RESTORE FROM memfile
|
|
|
|
// ? mxStayHere
|
|
? mcLongerNa /* Can't restore the part of the name beyond the tenth char */
|
|
? mcString
|
|
? mnDouble
|
|
? mnDoubleH
|
|
? mnInt
|
|
? mnLong
|
|
? mdDate
|
|
? mlLogicalF
|
|
? mlLogicalT
|
|
|
|
? __MRestore( "memfile", .F., "mndouble*", .T. )
|
|
? mnDouble
|
|
? mnDoubleH
|
|
? __mvScope("mnInt")
|
|
|
|
RETURN
|
|
|
|
#ifndef __HARBOUR__
|
|
FUNCTION __mvScope()
|
|
RETURN -1
|
|
#endif
|