
{
{   NOTE:
{     ***********************************************************************
{     ***********************************************************************
{     ****** This program interface is obsolete.  Modules presently    ******
{     ****** using it should be changed to use CLP$EVALUATE_TOKEN.     ******
{     ***********************************************************************
{     ***********************************************************************
{

  PROCEDURE [XREF] clp$scan_token ALIAS 'clpstok'
    (    text: string ( * );
     VAR index {input, output} : ost$string_index;
     VAR token: clt$token;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc cle$ecc_lexical
*copyc clt$token
*copyc ost$status
*copyc ost$string
?? POP ??
