NAME

ctop - convert EOS-terminated string to packed string

SYNOPSIS


integer function ctop (str, i, pstr, len)
character str (ARB)
integer i, len
packed_char pstr (len)


DESCRIPTION

'Ctop' converts the EOS-terminated unpacked string in argument 'str',
starting at position 'i', to packed integer form in the array 'pstr'.
The argument 'len' gives the maximum length of the array 'pstr';
no more than 'len' words of this array will be modified by 'ctop'.
After conversion, 'i' points to the EOS at the end of 'str',
or one position past the last character packed if the maximum
length of 'pstr' is exceeded.

The function return is the number of characters transferred from
'str' to 'pstr'.

IMPLEMENTATION

'Ctop' picks up successive characters from 'str' and packs them into
'pstr' with the standard Subsystem macro 'spchar'.

ARGUMENTS MODIFIED

i, pstr

SEE ALSO

ptoc (2), other conversion routines ('cto?*' and '?*toc') (2)