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

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