123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119 |
- /*
- * 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);
- }
|