| 1 |
|
|---|
| 2 | # How to generate the logic of the lookup table Perl_keyword() in toke.c
|
|---|
| 3 |
|
|---|
| 4 | use Devel::Tokenizer::C 0.05;
|
|---|
| 5 | use strict;
|
|---|
| 6 | use warnings;
|
|---|
| 7 |
|
|---|
| 8 | my @pos = qw(__DATA__ __END__ AUTOLOAD BEGIN CHECK DESTROY do delete defined
|
|---|
| 9 | END else eval elsif exists for format foreach grep goto glob INIT
|
|---|
| 10 | if last local m my map next no our pos print printf package
|
|---|
| 11 | prototype q qr qq qw qx redo return require s scalar sort split
|
|---|
| 12 | study sub tr tie tied use undef until untie unless while y);
|
|---|
| 13 |
|
|---|
| 14 | # In 5.8.x there is no err
|
|---|
| 15 | my @neg = qw(__FILE__ __LINE__ __PACKAGE__ and abs alarm atan2 accept bless
|
|---|
| 16 | bind binmode CORE cmp chr cos chop close chdir chomp chmod chown
|
|---|
| 17 | crypt chroot caller connect closedir continue die dump dbmopen
|
|---|
| 18 | dbmclose eq eof exp exit exec each endgrent endpwent
|
|---|
|
|---|
