diff options
| author | Paul "LeoNerd" Evans <leonerd@leonerd.org.uk> | 2022-11-27 15:27:50 +0000 |
|---|---|---|
| committer | Paul Evans <leonerd@leonerd.org.uk> | 2022-12-08 12:59:50 +0000 |
| commit | cd7d784879026948126140d82b84bb39bb779c2e (patch) | |
| tree | 2401c913fa64207ddecaf38e2f95d5c36a5fbf2b /perlvars.h | |
| parent | fe31205d63da5c2b38cf8ffbdf08f3a18430a0da (diff) | |
| download | perl-cd7d784879026948126140d82b84bb39bb779c2e.tar.gz | |
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.
Diffstat (limited to 'perlvars.h')
| -rw-r--r-- | perlvars.h | 4 |
1 files changed, 3 insertions, 1 deletions
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</wrap_keyword_plugin>. */ #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 */ |