Initial revision

util/make/reader.c

@@ -0,0 +1,119 @@
+/*
+ *	Read in makefile
+ *
+ *	$Header$
+ */
+
+
+#include <stdio.h>
+#include	<ctype.h>
+#include "h.h"
+
+
+int			lineno;
+
+
+/*
+ *	Syntax error handler.  Print message, with line number, and exits.
+ */
+/*VARARGS1*/
+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 (;;)
+	{
+		if (fgets(str+pos, LZ-pos, fd) == (char *)0)
+			return TRUE;		/*  EOF  */
+
+		lineno++;
+
+		if ((p = index(str+pos, '\n')) == (char *)0)
+			error("Line too long");
+
+		if (p[-1] == '\\')
+		{
+			p[-1] = '\n';
+			pos = p - str;
+			continue;
+		}
+
+		p = str;
+		while (((q = index(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);
+}