Description:
Check that we are currently in the
middle of defining a noticeboard.
Check that the environment static ID is not NIL and does not pertain to a primitive item.
Allocate space to describe the new item and fill in fields appropriate to a structured item such that
items at this level are in alphabetical order. (If an item of this name already exists, create a new item
but position it before the existing item).
Return the address of the item descriptor to the caller for use in subsequent calls.
Invocation
(Int)
= NBS_DEFINE_STRUCTURE (ENVSID,NAME,TYPE,SID,STATUS)
Arguments
ENVSID = INTEGER (Given)
Static identifier of the item in the noticeboard which is the parent of the item to be created.
NAME =
CHARACTER()
(Given)
Name of the new item.
TYPE =
CHARACTER()
(Given)
Type of the new item.
SID = INTEGER (Returned)
Static identifier
of the new structured item. This should be used in subsequent calls to the
NBS_DEFINE_
routines.
STATUS = INTEGER (Given and returned)
The global status. Possible return values
are,
NBS__NOTDEFINING | Not currently defining a noticeboard
|
NBS__NILSID | NIL static ID |
NBS__PRIMITIVE | Prospective parent is primitive |
NBS__NOMOREROOM | Storage area is full up |