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)
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
|