Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Implement undef-aware equality operators (PPC0030, PPC0031) #22942

Draft
wants to merge 6 commits into
base: blead
Choose a base branch
from
Draft

Implement undef-aware equality operators (PPC0030, PPC0031) #22942

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
6 commits
Select commit Hold shift + click to select a range
5eb0d3b
regen_perly.y: Slight modernisation; use Getopt::Long; support -Wfoo …
leonerd Jan 27, 2025
aa01106
Initial attempt at defining an `equ` operator
leonerd Jan 24, 2025
6545ece
Work-in-progress: Implement a PPC0031-style `eq:u` flagged operator
leonerd Jan 27, 2025
f27b250
Additionally implement a numerical version, `==:u`
leonerd Jan 27, 2025
8c46e3e
Also implement the negated versions of the flagged operators; ne:u an…
leonerd Jan 27, 2025
f2536d2
Support new token type in perly.c's clear_yystack() and debug dumper
leonerd Jan 30, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
1 change: 1 addition & 0 deletions MANIFEST
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -6315,6 +6315,7 @@ t/op/dor.t See if defined-or (//) works
t/op/dump.t See if dump works.
t/op/each.t See if hash iterators work
t/op/each_array.t See if array iterators work
t/op/equ.t See if the equ operator works
t/op/eval.t See if eval operator works
t/op/evalbytes.t See if evalbytes operator works
t/op/exec.t See if exec, system and qx work
Expand Down
2 changes: 2 additions & 0 deletions embed.fnc
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -701,6 +701,8 @@ Apx |void |apply_attrs_string \
Adp |OP * |apply_builtin_cv_attributes \
|NN CV *cv \
|NULLOK OP *attrlist
Xp |U32 |apply_opflags |U32 optype \
|NULLOK char *flagstr
CTp |void |atfork_lock
CTp |void |atfork_unlock
Cop |SV ** |av_arylen_p |NN AV *av
Expand Down
1 change: 1 addition & 0 deletions embed.h
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -1000,6 +1000,7 @@
# define amagic_applies(a,b,c) Perl_amagic_applies(aTHX_ a,b,c)
# define amagic_is_enabled(a) Perl_amagic_is_enabled(aTHX_ a)
# define apply(a,b,c) Perl_apply(aTHX_ a,b,c)
# define apply_opflags(a,b) Perl_apply_opflags(aTHX_ a,b)
# define av_extend_guts(a,b,c,d,e) Perl_av_extend_guts(aTHX_ a,b,c,d,e)
# define av_nonelem(a,b) Perl_av_nonelem(aTHX_ a,b)
# define av_remove_offset(a) Perl_av_remove_offset(aTHX_ a)
Expand Down
2 changes: 1 addition & 1 deletion gv.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -614,7 +614,7 @@ S_maybe_add_coresub(pTHX_ HV * const stash, GV *gv,
case KEY_catch : case KEY_class :
case KEY_continue: case KEY_cmp : case KEY_defer :
case KEY_do : case KEY_dump : case KEY_else : case KEY_elsif :
case KEY_eq : case KEY_eval : case KEY_field :
case KEY_eq : case KEY_equ : case KEY_eval : case KEY_field :
case KEY_finally:
case KEY_for : case KEY_foreach: case KEY_format: case KEY_ge :
case KEY_goto : case KEY_grep : case KEY_gt :
Expand Down
12 changes: 10 additions & 2 deletions keywords.c
View file
Open in desktop

Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.

Loading