Storage

Storage : Object

Parameter	Type		Description
Function result	Object	←	Catalog of shared objects and shared collections registered in Storage

Description

The Storage method returns the catalog of shared objects or shared collections that you have registered in the Storage object on the current machine or component.

The catalog returned by Storage is automatically created by 4D and is available to all processes of the database, including preemptive processes. There is one Storage catalog per machine and component: in a client/server application, there is one Storage shared object on the server, and one Storage shared object on each remote 4D application; if the database uses components, there is one Storage object per component.

Use the Storage catalog to reference any shared objects or shared collections that you want to be used from any preemptive or standard process. To register a shared object or a shared collection in the catalog, add its reference to the shared object returned by Storage.

Since the catalog returned by Storage is a shared object, it follows the rules described in the Shared objects and shared collections section, but with some specificities:

• This object can only contain shared objects and shared collections. Trying to add other kinds of values (non-shared objects or collections, null, scalar values) will generate an error.
• Adding a property to this object must be surrounded by the Use...End use structure, otherwise an error is returned. Reading an attribute outside of a Use...End use structure is, however, possible.
• When surrounded by the Use...End use structure, first-level attributes of Storage are locked for other processes.
• Unlike standard shared objects, the object returned by Storage will NOT share its locking identifier with shared objects or collections added as attributes (for more information, refer to the About the locking identifier (how shared groups work) section).

Example 1

A common practice could be initializing the Storage object in the :

 Use(Storage)
    Storage.counters:=New shared object("customers";0;"invoices";0)
 End use

Example 2

This example shows a standard way to set Storage values:

 Use(Storage)
    Storage.mydata:=New shared object
    Use(Storage.mydata)
       Storage.mydata.prop1:="Smith"
       Storage.mydata.prop2:=100
    End use
 End use

Example 3

Storage allows implementing a singleton with a lazy initialization, as shown in the following example.

Note: For more information about singleton patterns, you can refer to this Wikipedia page.

 var $0 : Integer
 var $counterValue : Integer
 var counter : Object //create a reference to counter for the process
 
 If(counter=Null) //if this reference is null, get if from Storage
    Use(Storage) //Use of Storage needed only once!
       If(Storage.counter=Null)
          Storage.counter:=New shared object("operation";0)
       End if
       counter:=Storage.counter //Get the reference of the counter shared object
    End use
 End if
 Use(counter) //directly use the shared object counter (no need to use Storage!)
    counter.operation:=counter.operation+1
    $counterValue:=counter.operation
 End use
 
 $0:=$counterValue

See also

Shared objects and shared collections

Properties

Command number	1525
Thread safe	✓