@@ -338,23 +338,23 @@ def token
338
338
339
339
def lex_init ( )
340
340
@OP = IRB ::SLex . new
341
- @OP . def_rules ( "\0 " , "\004 " , "\032 " ) do
341
+ @OP . def_rules ( "\0 " , "\004 " , "\032 " ) do | op , io |
342
342
Token ( TkEND_OF_SCRIPT )
343
343
end
344
344
345
- @OP . def_rules ( " " , "\t " , "\f " , "\r " , "\13 " ) do
345
+ @OP . def_rules ( " " , "\t " , "\f " , "\r " , "\13 " ) do | op , io |
346
346
@space_seen = true
347
347
while getc =~ /[ \t \f \r \13 ]/ ; end
348
348
ungetc
349
349
Token ( TkSPACE )
350
350
end
351
351
352
- @OP . def_rule ( "#" ) do
353
- |op , io |
352
+ @OP . def_rule ( "#" ) do |op , io |
354
353
identify_comment
355
354
end
356
355
357
- @OP . def_rule ( "=begin" , proc { @prev_char_no == 0 && peek ( 0 ) =~ /\s / } ) do
356
+ @OP . def_rule ( "=begin" ,
357
+ proc { |op , io | @prev_char_no == 0 && peek ( 0 ) =~ /\s / } ) do
358
358
|op , io |
359
359
@ltype = "="
360
360
until getc == "\n " ; end
@@ -366,7 +366,7 @@ def lex_init()
366
366
Token ( TkRD_COMMENT )
367
367
end
368
368
369
- @OP . def_rule ( "\n " ) do
369
+ @OP . def_rule ( "\n " ) do | op , io |
370
370
print "\\ n\n " if RubyLex . debug?
371
371
case @lex_state
372
372
when EXPR_BEG , EXPR_FNAME , EXPR_DOT
@@ -478,13 +478,13 @@ def lex_init()
478
478
Token ( TkOPASGN , $1)
479
479
end
480
480
481
- @OP . def_rule ( "+@" , proc { @lex_state == EXPR_FNAME } ) do
481
+ @OP . def_rule ( "+@" , proc { | op , io | @lex_state == EXPR_FNAME } ) do
482
482
|op , io |
483
483
@lex_state = EXPR_ARG
484
484
Token ( op )
485
485
end
486
486
487
- @OP . def_rule ( "-@" , proc { @lex_state == EXPR_FNAME } ) do
487
+ @OP . def_rule ( "-@" , proc { | op , io | @lex_state == EXPR_FNAME } ) do
488
488
|op , io |
489
489
@lex_state = EXPR_ARG
490
490
Token ( op )
@@ -509,6 +509,7 @@ def lex_init()
509
509
end
510
510
511
511
@OP . def_rule ( "." ) do
512
+ |op , io |
512
513
@lex_state = EXPR_BEG
513
514
if peek ( 0 ) =~ /[0-9]/
514
515
ungetc
@@ -539,6 +540,7 @@ def lex_int2
539
540
end
540
541
541
542
@OP . def_rule ( ":" ) do
543
+ |op , io |
542
544
if @lex_state == EXPR_END || peek ( 0 ) =~ /\s /
543
545
@lex_state = EXPR_BEG
544
546
Token ( TkCOLON )
@@ -549,6 +551,7 @@ def lex_int2
549
551
end
550
552
551
553
@OP . def_rule ( "::" ) do
554
+ |op , io |
552
555
# p @lex_state.id2name, @space_seen
553
556
if @lex_state == EXPR_BEG or @lex_state == EXPR_ARG && @space_seen
554
557
@lex_state = EXPR_BEG
@@ -576,6 +579,7 @@ def lex_int2
576
579
end
577
580
578
581
@OP . def_rules ( "^" ) do
582
+ |op , io |
579
583
@lex_state = EXPR_BEG
580
584
Token ( "^" )
581
585
end
@@ -603,16 +607,19 @@ def lex_int2
603
607
end
604
608
605
609
@OP . def_rule ( "~" ) do
610
+ |op , io |
606
611
@lex_state = EXPR_BEG
607
612
Token ( "~" )
608
613
end
609
614
610
- @OP . def_rule ( "~@" , proc { @lex_state == EXPR_FNAME } ) do
615
+ @OP . def_rule ( "~@" , proc { |op , io | @lex_state == EXPR_FNAME } ) do
616
+ |op , io |
611
617
@lex_state = EXPR_BEG
612
618
Token ( "~" )
613
619
end
614
620
615
621
@OP . def_rule ( "(" ) do
622
+ |op , io |
616
623
@indent += 1
617
624
if @lex_state == EXPR_BEG || @lex_state == EXPR_MID
618
625
@lex_state = EXPR_BEG
@@ -625,17 +632,20 @@ def lex_int2
625
632
tk = Token ( tk_c )
626
633
end
627
634
628
- @OP . def_rule ( "[]" , proc { @lex_state == EXPR_FNAME } ) do
635
+ @OP . def_rule ( "[]" , proc { |op , io | @lex_state == EXPR_FNAME } ) do
636
+ |op , io |
629
637
@lex_state = EXPR_ARG
630
638
Token ( "[]" )
631
639
end
632
640
633
- @OP . def_rule ( "[]=" , proc { @lex_state == EXPR_FNAME } ) do
641
+ @OP . def_rule ( "[]=" , proc { |op , io | @lex_state == EXPR_FNAME } ) do
642
+ |op , io |
634
643
@lex_state = EXPR_ARG
635
644
Token ( "[]=" )
636
645
end
637
646
638
647
@OP . def_rule ( "[" ) do
648
+ |op , io |
639
649
@indent += 1
640
650
if @lex_state == EXPR_FNAME
641
651
tk_c = TkfLBRACK
@@ -654,6 +664,7 @@ def lex_int2
654
664
end
655
665
656
666
@OP . def_rule ( "{" ) do
667
+ |op , io |
657
668
@indent += 1
658
669
if @lex_state != EXPR_END && @lex_state != EXPR_ARG
659
670
tk_c = TkLBRACE
@@ -666,6 +677,7 @@ def lex_int2
666
677
end
667
678
668
679
@OP . def_rule ( '\\' ) do
680
+ |op , io |
669
681
if getc == "\n "
670
682
@space_seen = true
671
683
@continue = true
@@ -692,10 +704,12 @@ def lex_int2
692
704
end
693
705
694
706
@OP . def_rule ( '$' ) do
707
+ |op , io |
695
708
identify_gvar
696
709
end
697
710
698
711
@OP . def_rule ( '@' ) do
712
+ |op , io |
699
713
if peek ( 0 ) =~ /[\w _@]/
700
714
ungetc
701
715
identify_identifier
0 commit comments