mirror of
https://github.com/polserver/polserver
synced 2026-08-13 08:23:08 -04:00
66 lines
3 KiB
Text
66 lines
3 KiB
Text
use datafile;
|
|
|
|
// The datafile module. Nothing here reaches the disk: a data store is only written during a
|
|
// world save, which runecl never performs, so every file made below lives in memory only.
|
|
|
|
program datafiletest()
|
|
|
|
print( "--- descriptors" );
|
|
// a bare name, "::name" and ":package:name" all name a store; anything else is refused
|
|
print( "plain: " + TypeOf( CreateDataFile( "dftest" ) ) );
|
|
print( "core: " + TypeOf( CreateDataFile( "::dfcore" ) ) );
|
|
print( "package: " + TypeOf( CreateDataFile( ":filetest:dfpkg" ) ) );
|
|
print( "malformed: " + CreateDataFile( ":bad" ) );
|
|
print( "create type: " + CreateDataFile( 1 ) );
|
|
print( "listed: " + ListDataFiles().size() );
|
|
|
|
print( "--- opening" );
|
|
print( "open: " + TypeOf( OpenDataFile( "dftest" ) ) );
|
|
print( "open missing: " + OpenDataFile( "nosuchdatafile" ) );
|
|
print( "open desc: " + OpenDataFile( ":bad" ) );
|
|
print( "open type: " + OpenDataFile( 1 ) );
|
|
print( "unload: " + UnloadDataFile( "::dfcore" ) );
|
|
print( "unload miss: " + UnloadDataFile( "nosuchdatafile" ) );
|
|
print( "unload type: " + UnloadDataFile( 1 ) );
|
|
|
|
print( "--- integer keys" );
|
|
var intfile := CreateDataFile( "dfint", DF_KEYTYPE_INTEGER );
|
|
var elem := intfile.CreateElement( 5 );
|
|
print( "element: " + TypeOf( elem ) );
|
|
print( "setprop: " + elem.SetProp( "one", 1 ) );
|
|
print( "propnames: " + elem.PropNames() );
|
|
print( "getprop: " + elem.GetProp( "one" ) );
|
|
print( "keys: " + intfile.Keys() );
|
|
print( "find: " + TypeOf( intfile.FindElement( 5 ) ) );
|
|
print( "find missing: " + intfile.FindElement( 3 ) );
|
|
print( "delete: " + intfile.DeleteElement( 5 ) );
|
|
print( "delete again: " + intfile.DeleteElement( 5 ) );
|
|
print( "keys after: " + intfile.Keys() );
|
|
|
|
print( "--- key type is enforced both ways" );
|
|
print( "create none: " + intfile.CreateElement() );
|
|
print( "create type: " + intfile.CreateElement( "five" ) );
|
|
print( "find none: " + intfile.FindElement() );
|
|
print( "find type: " + intfile.FindElement( "five" ) );
|
|
print( "delete none: " + intfile.DeleteElement() );
|
|
print( "delete type: " + intfile.DeleteElement( "five" ) );
|
|
|
|
var strfile := CreateDataFile( "dfstr" );
|
|
print( "screate type: " + strfile.CreateElement( 1 ) );
|
|
print( "sfind type: " + strfile.FindElement( 1 ) );
|
|
print( "sdelete type: " + strfile.DeleteElement( 1 ) );
|
|
print( "sdelete: " + strfile.DeleteElement( "nosuchkey" ) );
|
|
|
|
print( "--- by name and by value" );
|
|
var strelem := strfile.CreateElement( "key" );
|
|
strelem.SetProp( "p", 7 );
|
|
// a method the compiler does not know is looked up on the object by name
|
|
print( "file method: " + strfile.zzz_not_a_method() );
|
|
print( "elem method: " + strelem.zzz_not_a_method() );
|
|
// copying an array copies each element, the only route to the copy handlers
|
|
var holder := { strfile, strelem };
|
|
var copied := holder;
|
|
print( "copies: " + TypeOf( copied[1] ) + " " + TypeOf( copied[2] ) );
|
|
print( "copied prop: " + copied[2].GetProp( "p" ) );
|
|
|
|
endprogram
|