%% /lifo public
new-lifo mylist
write-lifo mylist key "key1" value "value1"
write-lifo mylist key "some2" value "other2"
start-loop
read-lifo mylist key k value v status st
if-true st not-equal GG_OKAY
break-loop
end-if
@Obtained key <<p-out k>> with value <<p-out v>>
end-loop
rewind-lifo mylist
start-loop
read-lifo mylist key k value v status st
if-true st not-equal GG_OKAY
break-loop
end-if
@Again obtained key <<p-out k>> with value <<p-out v>>
end-loop
purge-lifo mylist
rewind-lifo mylist
read-lifo mylist key k value v status st
if-true st not-equal GG_OKAY
@LIFO is empty
end-if
%%
Copied!