-# $OpenBSD: Makefile,v 1.27 2023/08/13 09:49:47 mpi Exp $
+# $OpenBSD: Makefile,v 1.28 2023/08/28 21:23:46 dv Exp $
BTRACE?= /usr/sbin/btrace
ALLOWDT!= sysctl -n kern.allowdt 2>/dev/null
# scripts that don't need /dev/dt
-BT_LANG_SCRIPTS= arithm beginend boolean comments delete exit \
- histempty if \
+BT_LANG_SCRIPTS= arithm beginend beginend-argn boolean comments delete \
+ exit histempty if \
map mapclear mapempty mapsyntax mapzero map-unnamed \
maxoperand min+max+sum multismts nsecs+var \
precedence print read-map-after-clear staticv-empty \
-/* $OpenBSD: bt_parse.y,v 1.50 2023/08/13 13:19:23 dv Exp $ */
+/* $OpenBSD: bt_parse.y,v 1.51 2023/08/28 21:23:46 dv Exp $ */
/*
* Copyright (c) 2019-2021 Martin Pieuchot <mpi@openbsd.org>
static void yyerror(const char *, ...);
static int yylex(void);
-static int pflag;
+static int pflag = 0; /* probe parsing context flag */
+static int beflag = 0; /* BEGIN/END parsing context flag */
%}
%token <v.i> ERROR ENDFILT
| grammar error
;
-rule : plist filter action { br_new($1, $2, $3); }
+rule : plist filter action { br_new($1, $2, $3); beflag = 0; }
;
beginend: BEGIN | END ;
;
probe : { pflag = 1; } pname { $$ = $2; pflag = 0; }
- | beginend { $$ = bp_new(NULL, NULL, NULL, $1); }
+ | { beflag = 1; } beginend { $$ = bp_new(NULL, NULL, NULL, $2); }
;
pname : STRING ':' STRING ':' STRING { $$ = bp_new($1, $3, $5, 0); }
yylval.v.string = kwp->word;
return STRING;
}
+ } else if (beflag) {
+ /* Interpret tokens in a BEGIN/END context. */
+ if (kwp->type >= B_AT_BI_ARG0 &&
+ kwp->type <= B_AT_BI_ARG9)
+ yyerror("the %s builtin cannot be used with "
+ "BEGIN or END probes", kwp->word);
}
yylval.v.i = kwp->type;
return kwp->token;