/***************************************************************\
*								*
*  PDMAKE, Atari ST version					*
*								*
*  Adapted from mod.sources Vol 7 Issue 71, 1986-12-03.		*
*								*
*  This port makes extensive use of the original net.sources	*
*  port by Jwahar Bammi.					*
*								*
*      Ton van Overbeek						*
*      Email: TPC862@ESTEC.BITNET				*
*             TPC862%ESTEC.BITNET@WISCVM.WISC.EDU    (ARPA)	*
*             ...!mcvax!tpc862%estec.bitnet   (UUCP Europe)	*
*             ...!ucbvax!tpc862%estec.bitnet  (UUCP U.S.A.)	*
*             71450,3537  (CompuServe)				*
*								*
\***************************************************************/

/*
 *    Read in makefile
 */


#include <stdio.h>
#include <ctype.h>
#include "h.h"


int	lineno;


/*
 *    Syntax error handler.  Print message, with line number, and exits.
 */
void
error(msg, a1, a2, a3)
char	*msg;
{
	fprintf(stderr, "%s: ", myname);
	fprintf(stderr, msg, a1, a2, a3);
	if (lineno)
		fprintf(stderr, " near line %d", lineno);
	fputc('\n', stderr);
	exit(1);
}


/*
 *    Read a line into the supplied string of length LZ.  Remove
 *    comments, ignore blank lines. Deal with quoted (\) #, and
 *    quoted newlines.  If EOF return TRUE.
 */
bool
getline(str, fd)
char	*str;
FILE	*fd;
{
	register char	*p;
	char	*q;
	int	pos = 0;


	for (; ; ) {
		fgets(str + pos, LZ - pos, fd);
		if (feof(fd))
			return TRUE;				/*  EOF  */

		lineno++;

		if ((p = strchr(str + pos, '\n')) == (char *)0)
			error("Line too long");

		if (p[-1] == '\\') {
			p[-1] = '\n';
			pos = p - str;
			continue;
		}

		p = str;
		while (((q = strchr(p, '#')) != (char *)0) && 
		    (p != q) && (q[-1] == '\\')) {
			char	*a;

			a = q - 1;	/*  Del \ chr; move rest back  */
			p = q;
			while (*a++ = *q++)
				;
		}
		if (q != (char *)0) {
			q[0] = '\n';
			q[1] = '\0';
		}

		p = str;
		while (isspace(*p))		/*  Checking for blank  */
			p++;

		if (*p != '\0')
			return FALSE;
		pos = 0;
	}
}


/*
 *    Get a word from the current line, surounded by white space.
 *    Return a pointer to it. String returned has no white spaces
 *    in it.
 */
char	*
gettok(ptr)
char	**ptr;
{
	register char	*p;


	while (isspace(**ptr))		/*  Skip spaces  */
		(*ptr)++;

	if (**ptr == '\0')			/*  Nothing after spaces  */
		return NULL;

	p = *ptr;				/*  Word starts here  */

	while ((**ptr != '\0') && (!isspace(**ptr)))
		(*ptr)++;			/*  Find end of word  */

	*(*ptr)++ = '\0';			/*  Terminate it  */

	return(p);
}