Read array

Purpose: Get data from array.

 // Random access to array data:

 read-array <array> \
     key <key> \
     value <value> \
     [ delete [ <delete> ] ] \
     [ status <status> ]

 // Sequential access to array data:

 read-array <array> traverse begin

 read-array <array> traverse \
     key <key> \
     value <value>  \
     [ delete [ <delete> ] ] \
     [ status <status> ] \

Copied!

Without "traverse" clause

read-array will obtain an element from <array>, which is a string <value> (in "value" clause) based on a string <key> (in "key" clause). <array> was created by new-array.

You can also delete an element from the array by using "delete" clause - the <value> is still obtained though it is no longer in the array table. The array element is deleted if "delete" clause is used without boolean variable <delete>, or if <delete> evaluates to true.

If no <key> was found in the array table, <status> number (in "status" clause) is GG_ERR_EXIST and <value> is unchanged, otherwise <status> is GG_OKAY.

With "traverse" clause

read-array with "traverse" clause obtains <key> and <value> of the current element, and then positions to the next one. You can also delete this element from the array by using "delete" clause - the <key> and <value> are still obtained though the element is no longer in the array table. The array element is deleted if "delete" clause is used without boolean variable <delete>, or if <delete> evaluates to true.

Use "begin" clause to position at the very first element. This is useful if you wish to get all the key/value pairs from a array table - note they are not extracted in any particular order. When there are no more elements, <key> and <value> are unchanged and <status> number (in "status" clause) is GG_ERR_EXIST, otherwise <status> is GG_OKAY.

You may search, add or delete elements while traversing a array table, and this will be reflected in all elements not yet traversed.

Examples

In this example, new array is created, a key/value pair is written to it, and then the value is obtained and the element deleted; return status is checked:

 // Create new array
 new-array h

 // Write to array
 write-array h key "X0029" value "some data"

 // Read from array
 read-array h key "X0029" value res status f delete
 if-true f equal GG_ERR_EXIST
     @No data in array!
 else-if
     @Deleted value is <<p-out res>>
 end-if

Copied!

The following will traverse the entire array and display all the data:

 // Position at the beginning of array table
 read-array h traverse begin
 start-loop
     // Get elements, one by one, until NULL returned as a key
     read-array h traverse key k value r status f
     if-true f equal GG_ERR_EXIST
         break;
     end-if
     pf-out "Key [%s] data [%s]\n", k, r
 end-loop

Copied!