Source-Changes-HG archive
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index][Old Index]
[src/trunk]: src/usr.bin/make make(1): rename CondLexer to CondParser
details: https://anonhg.NetBSD.org/src/rev/ec8e6061fa8f
branches: trunk
changeset: 943797:ec8e6061fa8f
user: rillig <rillig%NetBSD.org@localhost>
date: Fri Sep 11 04:07:44 2020 +0000
description:
make(1): rename CondLexer to CondParser
The name CondLexer was wrong since this type is about parsing conditions
that can be arbitrarily nested.
diffstat:
usr.bin/make/cond.c | 219 ++++++++++++++++++++++++++-------------------------
1 files changed, 111 insertions(+), 108 deletions(-)
diffs (truncated from 555 to 300 lines):
diff -r 1f0ce1711bc0 -r ec8e6061fa8f usr.bin/make/cond.c
--- a/usr.bin/make/cond.c Fri Sep 11 03:54:14 2020 +0000
+++ b/usr.bin/make/cond.c Fri Sep 11 04:07:44 2020 +0000
@@ -1,4 +1,4 @@
-/* $NetBSD: cond.c,v 1.120 2020/09/10 23:37:54 rillig Exp $ */
+/* $NetBSD: cond.c,v 1.121 2020/09/11 04:07:44 rillig Exp $ */
/*
* Copyright (c) 1988, 1989, 1990 The Regents of the University of California.
@@ -70,14 +70,14 @@
*/
#ifndef MAKE_NATIVE
-static char rcsid[] = "$NetBSD: cond.c,v 1.120 2020/09/10 23:37:54 rillig Exp $";
+static char rcsid[] = "$NetBSD: cond.c,v 1.121 2020/09/11 04:07:44 rillig Exp $";
#else
#include <sys/cdefs.h>
#ifndef lint
#if 0
static char sccsid[] = "@(#)cond.c 8.2 (Berkeley) 1/2/94";
#else
-__RCSID("$NetBSD: cond.c,v 1.120 2020/09/10 23:37:54 rillig Exp $");
+__RCSID("$NetBSD: cond.c,v 1.121 2020/09/11 04:07:44 rillig Exp $");
#endif
#endif /* not lint */
#endif
@@ -128,17 +128,20 @@
*
* 'symbol' is some other symbol to which the default function is applied.
*
- * Tokens are scanned from the lexer. The scanner (CondToken)
- * will return TOK_AND for '&' and '&&', TOK_OR for '|' and '||',
- * TOK_NOT for '!', TOK_LPAREN for '(', TOK_RPAREN for ')' and will evaluate
- * the other terminal symbols, using either the default function or the
- * function given in the terminal, and return the result as either TOK_TRUE
- * or TOK_FALSE.
+ * The tokens are scanned by CondToken, which returns:
+ * TOK_AND for '&' or '&&'
+ * TOK_OR for '|' or '||'
+ * TOK_NOT for '!'
+ * TOK_LPAREN for '('
+ * TOK_RPAREN for ')'
+ * Other terminal symbols are evaluated using either the default function or
+ * the function given in the terminal, they return either TOK_TRUE or
+ * TOK_FALSE.
*
* TOK_FALSE is 0 and TOK_TRUE 1 so we can directly assign C comparisons.
*
- * All Non-Terminal functions (CondE, CondF and CondT) return TOK_ERROR on
- * error.
+ * All non-terminal functions (CondE, CondF and CondT) return either
+ * TOK_FALSE, TOK_TRUE, or TOK_ERROR on error.
*/
typedef enum {
TOK_FALSE = 0, TOK_TRUE = 1, TOK_AND, TOK_OR, TOK_NOT,
@@ -149,10 +152,10 @@
const struct If *if_info; /* Info for current statement */
const char *condExpr; /* The expression to parse */
Token curr; /* Single push-back token used in parsing */
-} CondLexer;
+} CondParser;
-static Token CondE(CondLexer *lex, Boolean);
-static CondEvalResult do_Cond_EvalExpression(CondLexer *lex, Boolean *);
+static Token CondE(CondParser *par, Boolean);
+static CondEvalResult do_Cond_EvalExpression(CondParser *par, Boolean *);
static unsigned int cond_depth = 0; /* current .if nesting level */
static unsigned int cond_min_depth = 0; /* depth at makefile open */
@@ -177,19 +180,19 @@
/* Push back the most recent token read. We only need one level of this. */
static void
-CondLexer_PushBack(CondLexer *lex, Token t)
+CondParser_PushBack(CondParser *par, Token t)
{
- assert(lex->curr == TOK_NONE);
+ assert(par->curr == TOK_NONE);
assert(t != TOK_NONE);
- lex->curr = t;
+ par->curr = t;
}
static void
-CondLexer_SkipWhitespace(CondLexer *lex)
+CondParser_SkipWhitespace(CondParser *par)
{
- while (isspace((unsigned char)lex->condExpr[0]))
- lex->condExpr++;
+ while (isspace((unsigned char)par->condExpr[0]))
+ par->condExpr++;
}
/* Parse the argument of a built-in function.
@@ -399,7 +402,7 @@
*/
/* coverity:[+alloc : arg-*3] */
static const char *
-CondGetString(CondLexer *lex, Boolean doEval, Boolean *quoted, void **freeIt,
+CondGetString(CondParser *par, Boolean doEval, Boolean *quoted, void **freeIt,
Boolean strictLHS)
{
Buffer buf;
@@ -412,25 +415,25 @@
Buf_Init(&buf, 0);
str = NULL;
*freeIt = NULL;
- *quoted = qt = *lex->condExpr == '"' ? 1 : 0;
+ *quoted = qt = *par->condExpr == '"' ? 1 : 0;
if (qt)
- lex->condExpr++;
- for (start = lex->condExpr; *lex->condExpr && str == NULL;) {
- switch (*lex->condExpr) {
+ par->condExpr++;
+ for (start = par->condExpr; *par->condExpr && str == NULL;) {
+ switch (*par->condExpr) {
case '\\':
- lex->condExpr++;
- if (lex->condExpr[0] != '\0') {
- Buf_AddByte(&buf, *lex->condExpr);
- lex->condExpr++;
+ par->condExpr++;
+ if (par->condExpr[0] != '\0') {
+ Buf_AddByte(&buf, *par->condExpr);
+ par->condExpr++;
}
continue;
case '"':
if (qt) {
- lex->condExpr++; /* we don't want the quotes */
+ par->condExpr++; /* we don't want the quotes */
goto got_str;
}
- Buf_AddByte(&buf, *lex->condExpr); /* likely? */
- lex->condExpr++;
+ Buf_AddByte(&buf, *par->condExpr); /* likely? */
+ par->condExpr++;
continue;
case ')':
case '!':
@@ -441,14 +444,14 @@
case '\t':
if (!qt)
goto got_str;
- Buf_AddByte(&buf, *lex->condExpr);
- lex->condExpr++;
+ Buf_AddByte(&buf, *par->condExpr);
+ par->condExpr++;
continue;
case '$':
/* if we are in quotes, then an undefined variable is ok */
eflags = ((!qt && doEval) ? VARE_UNDEFERR : 0) |
(doEval ? VARE_WANTRES : 0);
- str = Var_Parse(lex->condExpr, VAR_CMD, eflags, &len, freeIt);
+ str = Var_Parse(par->condExpr, VAR_CMD, eflags, &len, freeIt);
if (str == var_Error) {
if (*freeIt) {
free(*freeIt);
@@ -461,16 +464,16 @@
str = NULL;
goto cleanup;
}
- lex->condExpr += len;
+ par->condExpr += len;
/*
* If the '$' was first char (no quotes), and we are
* followed by space, the operator or end of expression,
* we are done.
*/
- if ((lex->condExpr == start + len) &&
- (*lex->condExpr == '\0' ||
- isspace((unsigned char)*lex->condExpr) ||
- strchr("!=><)", *lex->condExpr))) {
+ if ((par->condExpr == start + len) &&
+ (*par->condExpr == '\0' ||
+ isspace((unsigned char)*par->condExpr) ||
+ strchr("!=><)", *par->condExpr))) {
goto cleanup;
}
@@ -492,8 +495,8 @@
str = NULL;
goto cleanup;
}
- Buf_AddByte(&buf, *lex->condExpr);
- lex->condExpr++;
+ Buf_AddByte(&buf, *par->condExpr);
+ par->condExpr++;
continue;
}
}
@@ -521,7 +524,7 @@
};
static Token
-compare_expression(CondLexer *lex, Boolean doEval)
+compare_expression(CondParser *par, Boolean doEval)
{
Token t;
const char *lhs;
@@ -542,27 +545,27 @@
* Parse the variable spec and skip over it, saving its
* value in lhs.
*/
- lhs = CondGetString(lex, doEval, &lhsQuoted, &lhsFree, lhsStrict);
+ lhs = CondGetString(par, doEval, &lhsQuoted, &lhsFree, lhsStrict);
if (!lhs)
goto done;
- CondLexer_SkipWhitespace(lex);
+ CondParser_SkipWhitespace(par);
/*
* Make sure the operator is a valid one. If it isn't a
* known relational operator, pretend we got a
* != 0 comparison.
*/
- op = lex->condExpr;
- switch (*lex->condExpr) {
+ op = par->condExpr;
+ switch (*par->condExpr) {
case '!':
case '=':
case '<':
case '>':
- if (lex->condExpr[1] == '=') {
- lex->condExpr += 2;
+ if (par->condExpr[1] == '=') {
+ par->condExpr += 2;
} else {
- lex->condExpr += 1;
+ par->condExpr += 1;
}
break;
default:
@@ -581,24 +584,24 @@
goto done;
}
/* For .if ${...} check for non-empty string (defProc is ifdef). */
- if (lex->if_info->form[0] == 0) {
+ if (par->if_info->form[0] == 0) {
t = lhs[0] != 0;
goto done;
}
/* Otherwise action default test ... */
- t = lex->if_info->defProc(strlen(lhs), lhs) != lex->if_info->doNot;
+ t = par->if_info->defProc(strlen(lhs), lhs) != par->if_info->doNot;
goto done;
}
- CondLexer_SkipWhitespace(lex);
+ CondParser_SkipWhitespace(par);
- if (*lex->condExpr == '\0') {
+ if (*par->condExpr == '\0') {
Parse_Error(PARSE_WARNING,
"Missing right-hand-side of operator");
goto done;
}
- rhs = CondGetString(lex, doEval, &rhsQuoted, &rhsFree, FALSE);
+ rhs = CondGetString(par, doEval, &rhsQuoted, &rhsFree, FALSE);
if (!rhs)
goto done;
@@ -722,7 +725,7 @@
}
static Token
-compare_function(CondLexer *lex, Boolean doEval)
+compare_function(CondParser *par, Boolean doEval)
{
static const struct fn_def {
const char *fn_name;
@@ -742,7 +745,7 @@
Token t;
char *arg = NULL;
int arglen;
- const char *cp = lex->condExpr;
+ const char *cp = par->condExpr;
const char *cp1;
for (fn_def = fn_defs; fn_def->fn_name != NULL; fn_def++) {
@@ -757,20 +760,20 @@
arglen = fn_def->fn_getarg(doEval, &cp, &arg, fn_def->fn_name);
if (arglen <= 0) {
- lex->condExpr = cp;
+ par->condExpr = cp;
return arglen < 0 ? TOK_ERROR : TOK_FALSE;
}
/* Evaluate the argument using the required function. */
t = !doEval || fn_def->fn_proc(arglen, arg);
free(arg);
- lex->condExpr = cp;
+ par->condExpr = cp;
return t;
}
Home |
Main Index |
Thread Index |
Old Index