Thread: [poe-commits] poe/lib/POE/Wheel Curses.pm,1.12,1.13 ReadLine.pm,1.36,1.37
Brought to you by:
rcaputo
From: <rc...@us...> - 2005-04-22 20:36:40
|
Update of /cvsroot/poe/poe/lib/POE/Wheel In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16995/lib/POE/Wheel Modified Files: Curses.pm ReadLine.pm Log Message: Remove tabs from source code. People (myself included) have been introducing them with edits and patches. Index: Curses.pm =================================================================== RCS file: /cvsroot/poe/poe/lib/POE/Wheel/Curses.pm,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** Curses.pm 2 Dec 2004 00:20:58 -0000 1.12 --- Curses.pm 22 Apr 2005 20:36:31 -0000 1.13 *************** *** 9,15 **** use Carp qw(croak); ! use Curses qw( initscr start_color cbreak raw noecho nonl nodelay timeout keypad intrflush ! meta typeahead mousemask ALL_MOUSE_EVENTS clear refresh endwin COLS ! ); use POSIX qw(:fcntl_h); use POE qw( Wheel ); --- 9,15 ---- use Carp qw(croak); ! use Curses qw( initscr start_color cbreak raw noecho nonl nodelay timeout keypad intrflush ! meta typeahead mousemask ALL_MOUSE_EVENTS clear refresh endwin COLS ! ); use POSIX qw(:fcntl_h); use POE qw( Wheel ); Index: ReadLine.pm =================================================================== RCS file: /cvsroot/poe/poe/lib/POE/Wheel/ReadLine.pm,v retrieving revision 1.36 retrieving revision 1.37 diff -C2 -d -r1.36 -r1.37 *** ReadLine.pm 2 Dec 2004 00:20:58 -0000 1.36 --- ReadLine.pm 22 Apr 2005 20:36:31 -0000 1.37 *************** *** 227,267 **** # what functions are for counting my @fns_counting = ( ! 'rl_vi_arg_digit', ! 'rl_digit_argument', ! 'rl_universal-argument', ! ); # what functions are purely for movement... my @fns_movement = ( ! 'rl_beginning_of_line', [...3290 lines suppressed...] ! $self->{prefix}->{$seq}++; ! } } } --- 2969,2983 ---- if (length($seq) > 1) { ! # XXX: Should store rawkey prefixes, to avoid the ^ problem. ! # requires converting seq into raw, then applying normalize ! # later on for binding. May not need last step if we keep ! # everything as raw. ! # Some keystrokes generate multi-byte sequences. Record the prefixes ! # for multi-byte sequences so the keystroke builder knows it's in the ! # middle of something. ! while (length($seq) > 1) { ! chop $seq; ! $self->{prefix}->{$seq}++; ! } } } |