Edit
IABSD.fr/src/usr.sbin/switchd/parse.y
deraadt
- usr.sbin/switchd/parse.y
-
/* $OpenBSD: parse.y,v 1.15 2019/02/13 22:57:08 deraadt Exp $ */ /* * Copyright (c) 2007-2016 Reyk Floeter <reyk@openbsd.org> * Copyright (c) 2004, 2005 Esben Norby <norby@openbsd.org> * Copyright (c) 2004 Ryan McBride <mcbride@openbsd.org> * Copyright (c) 2002, 2003, 2004 Henning Brauer <henning@openbsd.org> * Copyright (c) 2001 Markus Friedl. All rights reserved. * Copyright (c) 2001 Daniel Hartmeier. All rights reserved. * Copyright (c) 2001 Theo de Raadt. All rights reserved. * * Permission to use, copy, modify, and distribute this software for any * purpose with or without fee is hereby granted, provided that the above * copyright notice and this permission notice appear in all copies. * * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. */ %{ #include <sys/types.h> #include <sys/queue.h> #include <sys/stat.h> #include <sys/un.h> #include <ctype.h> #include <err.h> #include <errno.h> #include <limits.h> #include <netdb.h> #include <stdarg.h> #include <stdio.h> #include <syslog.h> #include <unistd.h> #include "switchd.h" TAILQ_HEAD(files, file) files = TAILQ_HEAD_INITIALIZER(files); static struct file { TAILQ_ENTRY(file) entry; FILE *stream; char *name; size_t ungetpos; size_t ungetsize; u_char *ungetbuf; int eof_reached; int lineno; int errors; } *file, *topfile; struct file *pushfile(const char *, int); int popfile(void); int yyparse(void); int yylex(void); int yyerror(const char *, ...) __attribute__((__format__ (printf, 1, 2))) __attribute__((__nonnull__ (1))); int kw_cmp(const void *, const void *); int lookup(char *); int igetc(void); int lgetc(int); void lungetc(int); int findeol(void); int host(const char *, struct sockaddr *, socklen_t); struct switchd *conf; TAILQ_HEAD(symhead, sym) symhead = TAILQ_HEAD_INITIALIZER(symhead); struct sym { TAILQ_ENTRY(sym) entry; int used; int persist; char *nam; char *val; }; int symset(const char *, const char *, int); char *symget(const char *); typedef struct { union { int64_t number; char *string; in_port_t port; struct switch_client *conn; } v; int lineno; } YYSTYPE; %} %token INCLUDE ERROR LISTEN ON TLS PORT DEVICE FORWARD TO %token <v.string> STRING %token <v.number> NUMBER %type <v.number> opttls %type <v.conn> optofcconn %type <v.port> port %% grammar : /* empty */ | grammar '\n' | grammar include '\n' | grammar listen '\n' | grammar device '\n' | grammar varset '\n' | grammar error '\n' { file->errors++; } ; include : INCLUDE STRING { struct file *nfile; if ((nfile = pushfile($2, 0)) == NULL) { yyerror("failed to include file %s", $2); free($2); YYERROR; } free($2); file = nfile; lungetc('\n'); } ; listen : LISTEN ON STRING opttls port { if (host($3, (struct sockaddr *)&conf->sc_server.srv_addr, sizeof(conf->sc_server.srv_addr)) != 0) { free($3); YYERROR; } free($3); conf->sc_server.srv_tls = $4; ((struct sockaddr_in *)&conf->sc_server.srv_addr) ->sin_port = $5; } | LISTEN ON STRING opttls { if (host($3, (struct sockaddr *)&conf->sc_server.srv_addr, sizeof(conf->sc_server.srv_addr)) != 0) { free($3); YYERROR; } free($3); conf->sc_server.srv_tls = $4; ((struct sockaddr_in *)&conf->sc_server.srv_addr) ->sin_port = htons(SWITCHD_CTLR_PORT); } ; port : PORT NUMBER { if ($2 <= 0 || $2 > (int)USHRT_MAX) { yyerror("invalid port: %lld", $2); YYERROR; } $$ = htons($2); } ; opttls : /* empty */ { $$ = 0; } | TLS { $$ = 1; } ; device : DEVICE STRING optofcconn { struct switch_client *c; struct switch_address s; struct sockaddr_un *un; memset(&s, 0, sizeof(s)); un = (struct sockaddr_un *)&s.swa_addr; if (*$2 != '/') { yyerror("not an absolute path: %s", $2); free($2); YYERROR; } un->sun_family = AF_LOCAL; un->sun_len = sizeof(*un); if (strlcpy(un->sun_path, $2, sizeof(un->sun_path)) >= sizeof(un->sun_path)) { yyerror("device name is too long: %s", $2); free($2); YYERROR; } free($2); TAILQ_FOREACH(c, &conf->sc_clients, swc_next) { if (sockaddr_cmp((struct sockaddr *) &c->swc_addr.swa_addr, (struct sockaddr *)&s.swa_addr, -1) == 0) break; } if (c != NULL) { yyerror("device name is duplicated"); YYERROR; } memcpy(&$3->swc_addr, &s, sizeof(s)); TAILQ_INSERT_TAIL(&conf->sc_clients, $3, swc_next); } ; optofcconn : /* empty */ { if (($$ = calloc(1, sizeof(struct switch_client))) == NULL) fatal("calloc"); $$->swc_addr.swa_type = $$->swc_target.swa_type = SWITCH_CONN_LOCAL; } | FORWARD TO STRING { size_t len; if (($$ = calloc(1, sizeof(struct switch_client))) == NULL) fatal("calloc"); len = 4; if (strncmp($3, "tcp:", len) == 0) $$->swc_target.swa_type = SWITCH_CONN_TCP; else if (strncmp($3, "tls:", len) == 0) $$->swc_target.swa_type = SWITCH_CONN_TLS; else { len = 0; $$->swc_target.swa_type = SWITCH_CONN_TCP; } if (parsehostport($3 + len, (struct sockaddr *)&$$->swc_target.swa_addr, sizeof($$->swc_target.swa_addr)) == -1) { yyerror("could not parse host and port part " "of forward target"); free($$); free($3); YYERROR; } free($3); } ; varset : STRING '=' STRING { if (symset($1, $3, 0) == -1) fatal("cannot store variable"); free($1); free($3); } ; %% struct keywords { const char *k_name; int k_val; }; int yyerror(const char *fmt, ...) { va_list ap; char *msg; file->errors++; va_start(ap, fmt); if (vasprintf(&msg, fmt, ap) == -1) fatal("yyerror vasprintf"); va_end(ap); log_warnx("%s:%d: %s", file->name, yylval.lineno, msg); free(msg); return (0); } int kw_cmp(const void *k, const void *e) { return (strcmp(k, ((const struct keywords *)e)->k_name)); } int lookup(char *s) { /* this has to be sorted always */ static const struct keywords keywords[] = { { "device", DEVICE }, { "forward", FORWARD }, { "include", INCLUDE }, { "listen", LISTEN }, { "on", ON }, { "port", PORT }, { "tls", TLS }, { "to", TO }, }; const struct keywords *p; p = bsearch(s, keywords, sizeof(keywords)/sizeof(keywords[0]), sizeof(keywords[0]), kw_cmp); if (p) return (p->k_val); else return (STRING); } #define START_EXPAND 1 #define DONE_EXPAND 2 static int expanding; int igetc(void) { int c; while (1) { if (file->ungetpos > 0) c = file->ungetbuf[--file->ungetpos]; else c = getc(file->stream); if (c == START_EXPAND) expanding = 1; else if (c == DONE_EXPAND) expanding = 0; else break; } return (c); } int lgetc(int quotec) { int c, next; if (quotec) { if ((c = igetc()) == EOF) { yyerror("reached end of file while parsing " "quoted string"); if (file == topfile || popfile() == EOF) return (EOF); return (quotec); } return (c); } while ((c = igetc()) == '\\') { next = igetc(); if (next != '\n') { c = next; break; } yylval.lineno = file->lineno; file->lineno++; } if (c == '\t' || c == ' ') { /* Compress blanks to a single space. */ do { c = getc(file->stream); } while (c == '\t' || c == ' '); ungetc(c, file->stream); c = ' '; } if (c == EOF) { /* * Fake EOL when hit EOF for the first time. This gets line * count right if last line in included file is syntactically * invalid and has no newline. */ if (file->eof_reached == 0) { file->eof_reached = 1; return ('\n'); } while (c == EOF) { if (file == topfile || popfile() == EOF) return (EOF); c = igetc(); } } return (c); } void lungetc(int c) { if (c == EOF) return; if (file->ungetpos >= file->ungetsize) { void *p = reallocarray(file->ungetbuf, file->ungetsize, 2); if (p == NULL) err(1, "%s", __func__); file->ungetbuf = p; file->ungetsize *= 2; } file->ungetbuf[file->ungetpos++] = c; } int findeol(void) { int c; /* skip to either EOF or the first real EOL */ while (1) { c = lgetc(0); if (c == '\n') { file->lineno++; break; } if (c == EOF) break; } return (ERROR); } int yylex(void) { u_char buf[8096]; u_char *p, *val; int quotec, next, c; int token; top: p = buf; while ((c = lgetc(0)) == ' ' || c == '\t') ; /* nothing */ yylval.lineno = file->lineno; if (c == '#') while ((c = lgetc(0)) != '\n' && c != EOF) ; /* nothing */ if (c == '$' && !expanding) { while (1) { if ((c = lgetc(0)) == EOF) return (0); if (p + 1 >= buf + sizeof(buf) - 1) { yyerror("string too long"); return (findeol()); } if (isalnum(c) || c == '_') { *p++ = c; continue; } *p = '\0'; lungetc(c); break; } val = symget(buf); if (val == NULL) { yyerror("macro '%s' not defined", buf); return (findeol()); } p = val + strlen(val) - 1; lungetc(DONE_EXPAND); while (p >= val) { lungetc(*p); p--; } lungetc(START_EXPAND); goto top; } switch (c) { case '\'': case '"': quotec = c; while (1) { if ((c = lgetc(quotec)) == EOF) return (0); if (c == '\n') { file->lineno++; continue; } else if (c == '\\') { if ((next = lgetc(quotec)) == EOF) return (0); if (next == quotec || next == ' ' || next == '\t') c = next; else if (next == '\n') { file->lineno++; continue; } else lungetc(next); } else if (c == quotec) { *p = '\0'; break; } else if (c == '\0') { yyerror("syntax error"); return (findeol()); } if (p + 1 >= buf + sizeof(buf) - 1) { yyerror("string too long"); return (findeol()); } *p++ = c; } yylval.v.string = strdup(buf); if (yylval.v.string == NULL) fatal("yylex: strdup"); return (STRING); } #define allowed_to_end_number(x) \ (isspace(x) || x == ')' || x ==',' || x == '/' || x == '}' || x == '=') if (c == '-' || isdigit(c)) { do { *p++ = c; if ((size_t)(p-buf) >= sizeof(buf)) { yyerror("string too long"); return (findeol()); } } while ((c = lgetc(0)) != EOF && isdigit(c)); lungetc(c); if (p == buf + 1 && buf[0] == '-') goto nodigits; if (c == EOF || allowed_to_end_number(c)) { const char *errstr = NULL; *p = '\0'; yylval.v.number = strtonum(buf, LLONG_MIN, LLONG_MAX, &errstr); if (errstr) { yyerror("\"%s\" invalid number: %s", buf, errstr); return (findeol()); } return (NUMBER); } else { nodigits: while (p > buf + 1) lungetc(*--p); c = *--p; if (c == '-') return (c); } } #define allowed_in_string(x) \ (isalnum(x) || (ispunct(x) && x != '(' && x != ')' && \ x != '{' && x != '}' && \ x != '!' && x != '=' && x != '#' && \ x != ',')) if (isalnum(c) || c == ':' || c == '_' || c == '/') { do { *p++ = c; if ((size_t)(p-buf) >= sizeof(buf)) { yyerror("string too long"); return (findeol()); } } while ((c = lgetc(0)) != EOF && (allowed_in_string(c))); lungetc(c); *p = '\0'; if ((token = lookup(buf)) == STRING) if ((yylval.v.string = strdup(buf)) == NULL) fatal("yylex: strdup"); return (token); } if (c == '\n') { yylval.lineno = file->lineno; file->lineno++; } if (c == EOF) return (0); return (c); } struct file * pushfile(const char *name, int secret) { struct file *nfile; if ((nfile = calloc(1, sizeof(struct file))) == NULL) { log_warn("%s", __func__); return (NULL); } if ((nfile->name = strdup(name)) == NULL) { log_warn("%s", __func__); free(nfile); return (NULL); } if ((nfile->stream = fopen(nfile->name, "r")) == NULL) { free(nfile->name); free(nfile); return (NULL); } nfile->lineno = TAILQ_EMPTY(&files) ? 1 : 0; nfile->ungetsize = 16; nfile->ungetbuf = malloc(nfile->ungetsize); if (nfile->ungetbuf == NULL) { log_warn("%s", __func__); fclose(nfile->stream); free(nfile->name); free(nfile); return (NULL); } TAILQ_INSERT_TAIL(&files, nfile, entry); return (nfile); } int popfile(void) { struct file *prev; if ((prev = TAILQ_PREV(file, files, entry)) != NULL) prev->errors += file->errors; TAILQ_REMOVE(&files, file, entry); fclose(file->stream); free(file->name); free(file->ungetbuf); free(file); file = prev; return (file ? 0 : EOF); } int parse_config(const char *filename, struct switchd *sc) { struct sym *sym; int errors = 0; struct sockaddr_in *sin4; conf = sc; /* Set the default 0.0.0.0 6653/tcp */ memset(&conf->sc_server.srv_addr, 0, sizeof(conf->sc_server.srv_addr)); sin4 = (struct sockaddr_in *)&conf->sc_server.srv_addr; sin4->sin_family = AF_INET; sin4->sin_port = htons(SWITCHD_CTLR_PORT); sin4->sin_len = sizeof(struct sockaddr_in); if ((file = pushfile(filename, 0)) == NULL) { log_warn("failed to open %s", filename); return (-1); } topfile = file; setservent(1); yyparse(); errors = file->errors; popfile(); endservent(); /* Free macros and check which have not been used. */ while ((sym = TAILQ_FIRST(&symhead))) { if (!sym->used) log_debug("warning: macro '%s' not " "used\n", sym->nam); free(sym->nam); free(sym->val); TAILQ_REMOVE(&symhead, sym, entry); free(sym); } return (errors ? -1 : 0); } int symset(const char *nam, const char *val, int persist) { struct sym *sym; TAILQ_FOREACH(sym, &symhead, entry) { if (strcmp(nam, sym->nam) == 0) break; } if (sym != NULL) { if (sym->persist == 1) return (0); else { free(sym->nam); free(sym->val); TAILQ_REMOVE(&symhead, sym, entry); free(sym); } } if ((sym = calloc(1, sizeof(*sym))) == NULL) return (-1); sym->nam = strdup(nam); if (sym->nam == NULL) { free(sym); return (-1); } sym->val = strdup(val); if (sym->val == NULL) { free(sym->nam); free(sym); return (-1); } sym->used = 0; sym->persist = persist; TAILQ_INSERT_TAIL(&symhead, sym, entry); return (0); } int cmdline_symset(char *s) { char *sym, *val; int ret; if ((val = strrchr(s, '=')) == NULL) return (-1); sym = strndup(s, val - s); if (sym == NULL) fatal("%s: strndup", __func__); ret = symset(sym, val + 1, 1); free(sym); return (ret); } char * symget(const char *nam) { struct sym *sym; TAILQ_FOREACH(sym, &symhead, entry) { if (strcmp(nam, sym->nam) == 0) { sym->used = 1; return (sym->val); } } return (NULL); } int host(const char *str, struct sockaddr *sa, socklen_t salen) { struct addrinfo hints, *ai0; int error; memset(&hints, 0, sizeof(hints)); hints.ai_flags = AI_NUMERICHOST; hints.ai_family = AF_UNSPEC; if ((error = getaddrinfo(str, NULL, &hints, &ai0)) != 0) { yyerror("invalid listen address: %s: %s", str, gai_strerror(error)); return (-1); } if (salen >= ai0->ai_addrlen) memcpy(sa, ai0->ai_addr, ai0->ai_addrlen); else { yyerror("addrlen is invalid: %d", (int)ai0->ai_addrlen); freeaddrinfo(ai0); return (-1); } freeaddrinfo(ai0); return (0); }