/* Copyright (C) 1993 by Thomas Glen Smith.  All Rights Reserved. */
/* popnesv APL2 V1.0.0 *************************************************
* Popnesv 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 popnesv(hdr,out)
void *hdr; /* Operand stack */
Aplcb out; /* new output operand */
{
     Endoper; Execgetp; Pop;
     Aplcb wrk;
     int datacnt;
     char *op;

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