From cd7d784879026948126140d82b84bb39bb779c2e Mon Sep 17 00:00:00 2001 From: "Paul \"LeoNerd\" Evans" Date: Sun, 27 Nov 2022 15:27:50 +0000 Subject: Define a PL_infix_plugin hook, of a similar style to PL_keyword_plugin Runs for identifier-named custom infix operators and sequences of non-identifier symbol characters. Defines multiple precedence levels for custom infix operators that fit alongside exponentiation, multiplication, addition, or relational comparision operators, as well as a "high" and "low" at either end. --- perlvars.h | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'perlvars.h') diff --git a/perlvars.h b/perlvars.h index 8779ad1a50..2c2d806df3 100644 --- a/perlvars.h +++ b/perlvars.h @@ -235,10 +235,12 @@ Instead, use the function L. */ #if defined(USE_ITHREADS) -PERLVAR(G, keyword_plugin_mutex, perl_mutex) /* Mutex for PL_keyword_plugin */ +PERLVAR(G, keyword_plugin_mutex, perl_mutex) /* Mutex for PL_keyword_plugin and PL_infix_plugin */ #endif PERLVARI(G, keyword_plugin, Perl_keyword_plugin_t, Perl_keyword_plugin_standard) +PERLVARI(G, infix_plugin, Perl_infix_plugin_t, Perl_infix_plugin_standard) + PERLVARI(G, op_sequence, HV *, NULL) /* dump.c */ PERLVARI(G, op_seq, UV, 0) /* dump.c */ -- cgit v1.2.1