/*Copyright (C) 1992, 1994 by Thomas Glen Smith.  All Rights Reserved.*/
/* gettext APL2 V1.0.0 *************************************************
* Called by getchrv.                                                   *
* Obtains a line of text from the standard input file. Returns the     *
* length of the line obtained, or -1 to indicate end-of-file.          *
***********************************************************************/
#define INCLUDES STDIO+STRING
#include "includes.h"
int gettext(line,maxline) /* get line, return length */
char line[]; /* line stored here */
int maxline; /* maximum length of line */
{
	extern int aplcurs;
	int cursor, gettcom();

	cursor = strlen(line);
	cursor = gettcom(line,cursor,maxline,cursor,1); /* edit input */
	aplcurs = (cursor >= 0) ? cursor : 0;
	return(cursor);
}