/* Copyright (C) 1992 by Thomas Glen Smith.  All Rights Reserved. */
/* popnesx APL2 V1.0.0 *************************************************
* Popnesx is called from popnest when the result is to be a simple     *
* array of data type character.                                        *
***********************************************************************/
#define INCLUDES APLCB+APLTOKEN
#include "includes.h"
void popnesx(hdr,out)
void *hdr; /* Operand stack */
Aplcb out; /* new output operand */
{
     Execgetp; Pop; Value;
     Aplcb wrk;
     int datacnt;
     double *op;


     op = out->aplptr.apldata;
     datacnt = out->aplcount;
     while( datacnt-- ) {
          wrk = execgetp(pop(hdr)); /* pop token, get aplcb ptr */
          *op++ = value(wrk);
     }
}