tstate->filename,tstate->reportlineno);
}
-void parseerrprint(const char *fmt, ...) {
+int parseerrprint(const char *fmt, ...) {
va_list al;
char errmsg[MAX_ERRMSG_LEN];
vsnytprintfcat(errmsg,sizeof(errmsg),fmt,al);
senderrmsg(errmsg,eh.handling);
va_end(al);
+
+ return tokv_error;
}
static int unexpected(int found, int wanted, const char *wantedstr) {
*/
if (found == wanted) return 0;
if (found == tokv_error) return found;
- parseerrprint("found %s, expected %s",printtoken(found),wantedstr);
- return tokv_error;
+ return parseerrprint("found %s, expected %s",printtoken(found),wantedstr);
}
static int stringoverflow(const char *where) {
- parseerrprint("string buffer became far too large building %s",where);
- return tokv_error;
+ return parseerrprint("string buffer became far too large building %s",where);
}
/*
free(array);
}
+static void countnewlines(void) {
+ char *p;
+ for (p=yytext; *p; p++)
+ if (*p == '\n')
+ cstate->lineno++;
+}
+
static int dequote(char *inplace) {
char *p, *q, buf[4], *bep;
int v;
while (*p && *p != '"') {
if (*p != '\\') { *q++= *p++; continue; }
switch (*++p) {
- case 'n': *q++= '\n'; continue;
- case 'r': *q++= '\r'; continue;
- case 't': *q++= '\t'; continue;
+ case 'n': *q++= '\n'; p++; continue;
+ case 'r': *q++= '\r'; p++; continue;
+ case 't': *q++= '\t'; p++; continue;
case 'x':
p++;
- if (!((buf[0]= *p++) && (buf[1]= *p++))) {
- parseerrprint("quoted string ends inside \\x<hex> sequence");
- return tokv_error;
- }
+ if (!((buf[0]= *p++) && (buf[1]= *p++)))
+ return parseerrprint("quoted string ends inside \\x<hex> sequence");
buf[2]= 0;
v= strtoul(buf,&bep,16);
- if (bep != buf+2) {
- parseerrprint("invalid \\<hex> sequence \\x%s in quoted string",buf);
- return tokv_error;
- }
+ if (bep != buf+2)
+ return parseerrprint("invalid \\<hex> sequence \\x%s in quoted string",buf);
assert(!(v & ~0xff));
*q++= v;
continue;
default:
- if (isalpha(*p)) {
- parseerrprint("unknown \\<letter> sequence \\%c in quoted string",*p);
- return tokv_error;
- } else if (isdigit(*p)) {
+ if (isalpha(*p))
+ return parseerrprint("unknown \\<letter> sequence \\%c in quoted string",*p);
+ if (isdigit(*p)) {
if (!((buf[0]= *p++) && (buf[1]= *p++) && (buf[2]= *p++))) abort();
buf[3]= 0; v= strtoul(buf,&bep,8);
- if (bep != buf+3 || (v & ~0xff)) {
- parseerrprint("invalid \\<octal> sequence \\%s in quoted string",buf);
- return tokv_error;
- }
+ if (bep != buf+3 || (v & ~0xff))
+ return parseerrprint("invalid \\<octal> sequence \\%s in quoted string",buf);
*q++= v; continue;
} else if (ispunct(*p)) {
*q++= *p++; continue;
}
if (used>=size) {
if (used >= MAX_ARGSDEFVAR) {
- parseerrprint("far too many arguments to service program");
- r= tokv_error; goto error;
+ r= parseerrprint("far too many arguments to service program");
+ goto error;
}
size= (used+5)<<1;
newargs= xrealloc(newargs,sizeof(char*)*(size+1));
/* Returned value is invalidated by repeated calls. */
static char *buildbuf;
static int buildbuflen;
+ const char *usetext;
int r, tl;
buildbuf[0]= 0;
for (;;) {
r= yylex(); if (r == tokv_error) return r;
- if (r == tokv_eof) {
- parseerrprint("unexpected end of file in message text");
- return tokv_error;
- }
+ if (r == tokv_eof)
+ return parseerrprint("unexpected end of file in message text");
if (r == tokv_newline) break;
- tl+= strlen(yytext);
+ usetext= r == tokv_lwsp ? " " : yytext;
+ tl+= strlen(usetext);
if (makeroom(&buildbuf,&buildbuflen,tl)) return stringoverflow("message");
- strcat(buildbuf,yytext);
+ strcat(buildbuf,usetext);
}
*message_r= buildbuf;
return 0;
if (token == tokv_newline) return 0;
if (token == tokv_error) return token;
assert(token == tokv_eof);
- parseerrprint("unexpected end of file while looking for end of line");
- return tokv_error;
+ return parseerrprint("unexpected end of file while looking for end of line");
}
static int skip(int allowce) {
r= skip(token); if (r & tokt_exception) return r;
}
} else if (!(token & tokt_directive) && !(token & tokt_condop)) {
- parseerrprint("not a directive (or conditional operator) "
- "while looking for control structure end");
- return tokv_error;
+ return parseerrprint("not a directive (or conditional operator) "
+ "while looking for control structure end");
}
r= skiptoeol(); if (r) return r;
}
r= paa_1path(&cp); if (r) return r;
file= fopen(cp,"r");
- if (!file) {
- parseerrprint("unable to open file `%s' for grep: %s",cp,strerror(errno));
- return tokv_error;
- }
+ if (!file)
+ return parseerrprint("unable to open file `%s' for grep: %s",cp,strerror(errno));
maxlen= 0;
for (pp= pv; *pp; pp++) { l= strlen(*pp); if (l > maxlen) maxlen= l; }
buf= xmalloc(maxlen+2); actrue= 0; c= 0;
if (!(r & tokt_fdrange)) return unexpected(r,-1,"file descriptor range");
fdmin= lr_min; fdmax= lr_max;
if (fdmin<0 || fdmin>MAX_ALLOW_FD ||
- (fdmax != -1 && fdmax<0) || fdmax>MAX_ALLOW_FD) {
- parseerrprint("file descriptor in range is negative or far too large");
- return tokv_error;
- }
+ (fdmax != -1 && fdmax<0) || fdmax>MAX_ALLOW_FD)
+ return parseerrprint("file descriptor in range is negative or far too large");
r= yylex(); if (r == tokv_error) return r;
if (r == tokv_newline) {
- if (needreadwrite > 0) {
- parseerrprint("read or write is required");
- return tokv_error;
- }
+ if (needreadwrite > 0)
+ return parseerrprint("read or write is required");
havereadwrite= 0;
} else if (r == tokv_lwsp) {
- if (needreadwrite < 0) {
- parseerrprint("read or write not allowed"); return tokv_error;
- }
+ if (needreadwrite < 0)
+ return parseerrprint("read or write not allowed");
r= yylex(); if (r == tokv_error) return r;
if (!(r & tokt_readwrite))
return unexpected(r,-1,"read or write (or perhaps newline)");
ensurefdarray(fdmin);
if (fdmax == -1) {
if (!(dtoken == tokv_word_rejectfd || dtoken == tokv_word_ignorefd))
- parseerrprint("unspecified maximum only allowed with reject-fd and ignore-fd");
+ return parseerrprint("unspecified maximum only allowed"
+ " with reject-fd and ignore-fd");
fdmax= fdarrayused-1;
restfdwantstate= dtoken;
restfdwantrw= havereadwrite;
r= paa_1path(&cp); if (r) return r;
file= fopen(cp,"a");
- if (!file) {
- parseerrprint("unable to open error log file `%s': %s",cp,strerror(errno));
- return tokv_error;
- }
+ if (!file)
+ return parseerrprint("unable to open error log file `%s': %s",cp,strerror(errno));
if (setvbuf(file,0,_IOLBF,MAX_ERRMSG_LEN)) {
parseerrprint("unable to set line buffering on errors file: %s",strerror(errno));
fclose(file); return tokv_error;
r= paa_1path(&cp); if (r) return r;
r= parse_file(cp,&found); if (r) return r;
if (found || dtoken == tokv_word_includeifexist) return 0;
- parseerrprint(dtoken == tokv_word_includesysconfig ?
- "system configuration file `%s' does not exist" :
- "included file `%s' does not exist",
- cp);
- return tokv_error;
+ return parseerrprint(dtoken == tokv_word_includesysconfig ?
+ "system configuration file `%s' does not exist" :
+ "included file `%s' does not exist",
+ cp);
}
int df_includedirectory(int dtoken) {
r= paa_1path(&cpget); if (r) return r;
d= opendir(cpget);
- if (!d) {
- parseerrprint("unable to open directory `%s': %s",cpget,strerror(errno));
- return tokv_error;
- }
+ if (!d)
+ return parseerrprint("unable to open directory `%s': %s",cpget,strerror(errno));
cp= xstrsave(cpget);
cpl= strlen(cp);
while ((de= readdir(d))) {
snyprintf(buildbuf,buildbuflen,"%s/%s",cp,de->d_name);
r= parse_file(buildbuf,&found); if (r) goto x_err;
if (!found) {
- parseerrprint("unable to open file `%s' in included directory `%s': %s",
- de->d_name,cp,strerror(errno));
- r= tokv_error; goto x_err;
+ r= parseerrprint("unable to open file `%s' in included directory `%s': %s",
+ de->d_name,cp,strerror(errno));
+ goto x_err;
}
}
if (closedir(d)) {
r= paa_1path(&cp); if (r) return r;
if (!chdir(cp)) return 0;
- parseerrprint("unable to change directory to `%s': %s",cp,strerror(errno));
- return tokv_error;
+ return parseerrprint("unable to change directory to `%s': %s",cp,strerror(errno));
}
int df_userrcfile(int dtoken) {
int r;
r= paa_message(&mp); if (r) return r;
- parseerrprint("`error' directive: %s",mp);
- return tokv_error;
+ return parseerrprint("`error' directive: %s",mp);
}
int df_eof(int dtoken) {
char *filename;
struct stat newstab;
- if (fileparselevel >= MAX_INCLUDE_NEST) {
- parseerrprint("too many nested levels of included files");
- return tokv_error;
- }
+ if (fileparselevel >= MAX_INCLUDE_NEST)
+ return parseerrprint("too many nested levels of included files");
file= fopen(string,"r");
if (!file) {
if (errno == ENOENT) {
if (didexist) *didexist= 0;
return 0;
}
- parseerrprint("unable to open config file `%s': %s",string,strerror(errno));
- return tokv_error;
+ return parseerrprint("unable to open config file `%s': %s",string,strerror(errno));
}
r= fstat(fileno(file),&newstab); if (r) syscallerror("unable to fstat new file");
for (checkrecurse= cstate; checkrecurse; checkrecurse= checkrecurse->upstate) {
if (!checkrecurse->filestab.st_mode) continue;
if (newstab.st_dev==checkrecurse->filestab.st_dev &&
newstab.st_ino==checkrecurse->filestab.st_ino) {
- parseerrprint("recursion detected - config file `%s' calls itself",string);
fclose(file);
- return tokv_error;
+ return parseerrprint("recursion detected - config file `%s' calls itself",string);
}
}
fileparselevel++;
r= parser(0);
- if (ferror(file)) {
- parseerrprint("error reading configuration file `%s'",string);
- r= tokv_error;
- }
+ if (ferror(file))
+ r= parseerrprint("error reading configuration file `%s'",string);
fileparselevel--;
parser_pop();