Skip to content

Stringified keyboard constants redux #9

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

Open
jbarrett wants to merge 6 commits into
base: pu
Choose a base branch
from
Open

Stringified keyboard constants redux #9

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
5837c90
Create internal keymap from stringified constants passed in $key_map
jbarrett Mar 9, 2026
2828589
Text needs DrawText import
jbarrett Mar 9, 2026
ab8d2e7
Update examples to use stringified constants
jbarrett Mar 9, 2026
3f76ce9
Import all in test example
jbarrett Mar 9, 2026
b175070
Allow passing in key names without 'KEY_' prefix
jbarrett Mar 10, 2026
00336e7
Allow numeric scancodes / constants to be passed in key_map
jbarrett Mar 10, 2026
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
24 changes: 12 additions & 12 deletions ex/rlt-01.pl
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -29,22 +29,22 @@
key_map => {

# vim keys
KEY_H() => sub { $player_x -= 10 },
KEY_L() => sub { $player_x += 10 },
KEY_K() => sub { $player_y -= 10 },
KEY_J() => sub { $player_y += 10 },
KEY_H => sub { $player_x -= 10 },
KEY_L => sub { $player_x += 10 },
KEY_K => sub { $player_y -= 10 },
KEY_J => sub { $player_y += 10 },

# wasd keys
KEY_W() => sub { $player_y -= 10 },
KEY_S() => sub { $player_y += 10 },
KEY_A() => sub { $player_x -= 10 },
KEY_D() => sub { $player_x += 10 },
KEY_W => sub { $player_y -= 10 },
KEY_S => sub { $player_y += 10 },
KEY_A => sub { $player_x -= 10 },
KEY_D => sub { $player_x += 10 },

# arrow keys
KEY_UP() => sub { $player_y -= 10 },
KEY_DOWN() => sub { $player_y += 10 },
KEY_LEFT() => sub { $player_x -= 10 },
KEY_RIGHT() => sub { $player_x += 10 },
UP => sub { $player_y -= 10 },
DOWN => sub { $player_y += 10 },
LEFT => sub { $player_x -= 10 },
RIGHT => sub { $player_x += 10 },
},
);

Expand Down
24 changes: 12 additions & 12 deletions ex/rlt-02.pl
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -162,22 +162,22 @@
key_map => {

# vim keys
KEY_H() => sub { movement_action( -1, 0 ) },
KEY_L() => sub { movement_action( 1, 0 ) },
KEY_K() => sub { movement_action( 0, -1 ) },
KEY_J() => sub { movement_action( 0, 1 ) },
KEY_H => sub { movement_action( -1, 0 ) },
KEY_L => sub { movement_action( 1, 0 ) },
KEY_K => sub { movement_action( 0, -1 ) },
KEY_J => sub { movement_action( 0, 1 ) },

# wasd keys
KEY_W() => sub { movement_action( 0, -1 ) },
KEY_S() => sub { movement_action( 0, 1 ) },
KEY_A() => sub { movement_action( -1, 0 ) },
KEY_D() => sub { movement_action( 1, 0 ) },
KEY_W => sub { movement_action( 0, -1 ) },
KEY_S => sub { movement_action( 0, 1 ) },
KEY_A => sub { movement_action( -1, 0 ) },
KEY_D => sub { movement_action( 1, 0 ) },

# arrow keys
KEY_UP() => sub { movement_action( 0, -1 ) },
KEY_DOWN() => sub { movement_action( 0, 1 ) },
KEY_LEFT() => sub { movement_action( -1, 0 ) },
KEY_RIGHT() => sub { movement_action( 1, 0 ) },
KEY_UP => sub { movement_action( 0, -1 ) },
KEY_DOWN => sub { movement_action( 0, 1 ) },
KEY_LEFT => sub { movement_action( -1, 0 ) },
KEY_RIGHT => sub { movement_action( 1, 0 ) },
},
)
}
Expand Down
2 changes: 1 addition & 1 deletion ex/test.pl
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
use 5.36.3;
use lib qw(lib);
use Raylib::FFI;
use Raylib::FFI ':all';
use constant Color => 'Raylib::FFI::Color';

InitWindow( 800, 600, "Testing!" );
Expand Down
25 changes: 20 additions & 5 deletions lib/Raylib/Keyboard.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,9 @@ use 5.36.3;
use Feature::Compat::Class;

class Raylib::Keyboard {
use Raylib::FFI;
use Raylib::FFI qw( GetKeyPressed );
use Scalar::Util qw( looks_like_number );
use Carp qw( carp );
our %key_map;

BEGIN {
Expand Down Expand Up @@ -130,15 +132,28 @@ class Raylib::Keyboard {
*key_pressed = &Raylib::FFI::GetKeyPressed;
}

our @EXPORT_OK( keys %key_map );

field $key_map :param = {};
field $key_const_map = {};

method handle_events() {
while ( my $key = GetKeyPressed() ) {
next unless $key_map->{$key};
$key_map->{$key}->();
next unless $key_const_map->{$key};
$key_const_map->{$key}->();
}
}

ADJUST {
for my ( $key, $sub ) ( $key_map->%* ) {
my $const = looks_like_number( $key )
? sub { $key }
: $self->can( $key ) // $self->can( "KEY_$key" );
if ( ! $const ) {
carp "Unrecognised key $key";
next;
}
$key_const_map->{ $const->() } = $sub
}
}
}

1;
2 changes: 1 addition & 1 deletion lib/Raylib/Text.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@ use 5.36.3;
use Feature::Compat::Class;

class Raylib::Text {
use Raylib::FFI;
use Raylib::FFI qw( DrawText );

field $text : param;
field $color : param;
Expand Down
Loading