| … | |
… | |
| 497 | }, |
497 | }, |
| 498 | sub { |
498 | sub { |
| 499 | $coord2char{$_[1][0]} . $coord2char{$_[1][1]} |
499 | $coord2char{$_[1][0]} . $coord2char{$_[1][1]} |
| 500 | }, |
500 | }, |
| 501 | ); |
501 | ); |
| 502 | } elsif (s/real//) { |
502 | } elsif (s/real// || s/number//) { |
| 503 | return ( |
503 | return ( |
| 504 | sub { |
504 | sub { |
| 505 | $_[1]+0 |
505 | $_[1] |
| 506 | }, |
506 | }, |
| 507 | sub { |
507 | sub { |
| 508 | $_[1]+0 |
508 | $_[1] |
| 509 | }, |
|
|
| 510 | ); |
|
|
| 511 | } elsif (s/number//) { |
|
|
| 512 | return ( |
|
|
| 513 | sub { |
|
|
| 514 | $_[1]+0 |
|
|
| 515 | }, |
|
|
| 516 | sub { |
|
|
| 517 | int $_[1] |
|
|
| 518 | }, |
509 | }, |
| 519 | ); |
510 | ); |
| 520 | } elsif (s/text// || s/simpletext//i) { |
511 | } elsif (s/text// || s/simpletext//i) { |
| 521 | return ( |
512 | return ( |
| 522 | sub { |
513 | sub { |
