/*Copyright (C) 1992, 1996 by Thomas Glen Smith.  All Rights Reserved.*/
/* apledcm APL2 V1.0.0 *************************************************
* Called aplediw to capture the text for a comment statement.          *
***********************************************************************/
#define INCLUDES APLMEM+APLED+APLTOKEN
#include "includes.h"
void apledcm(newed,stmt,stmtlen)
struct apled *newed;	/* Edit statement element.				*/
char *stmt;			/* Pointer to current input.				*/
int stmtlen;			/* Length of current input.				*/
{
	Chrcopy;
	char *cp;

	if (NULL != (newed->apledch = malloc(stmtlen + 1))) {
		cp = chrcopy(newed->apledch,stmt,stmtlen,1);
		*cp = '\0'; /* add string delimiter */
	}
}