NBS_DEFINE_SHAPE
- Define an initial shape for a primitive item
Description:
Check that we are currently in the middle of defining a noticeboard.
Check that the environment static ID is not NIL and pertains to a
primitive item.
Check that the requested number of dimensions is not too large.
Copy the shape information to the relevant parts of the item information.
Invocation:
(Int) = NBS_DEFINE_SHAPE (SID,NDIMS,DIMS,STATUS)
Arguments:
SID = INTEGER (Given)
Static identifier of the item in the noticeboard
which is to be given an initial shape.
NDIM = INTEGER (Given)
Number of dimensions.
DIMS = INTEGER(*) (Given)
Dimensions.
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__TOOMANYDIMS Too many dimensions