119 lines
1.8 KiB
C
119 lines
1.8 KiB
C
/*
|
|
* 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);
|
|
}
|