/*Copyright (C) 1992, 1996 by Thomas Glen Smith.  All Rights Reserved.*/
/* execglc APL2 V1.0.0 *************************************************
* Called from execgets to obtain QUAD_LC, i.e. the line counter vector.*
***********************************************************************/
#define INCLUDES APLTOKEN+APLCB+TREE
#include "includes.h"
Aplcb execglc()
{
	Errstop; Getcb;
	extern Treelist treehdr;
	Treelist hdr;
	Aplcb out;
	int datacnt,*ip;

	datacnt = 0;
	for (hdr = treehdr; hdr->treenext != NULL; hdr = hdr->treenext)
		datacnt++;
	out = getcb(NULL,datacnt,APLINT + APLTEMP,1,NULL); /* get vector */
	if (out == NULL)
		return(NULL); /* out of storage */
	ip = out->aplptr.aplint;
	for (hdr = treehdr; hdr->treenext != NULL; hdr = hdr->treenext)
		*ip++ = hdr->avlstmt;
	return(errstop(0,NULL,NULL,out));
}