diff options
Diffstat (limited to 'contrib/perl5/keywords.pl')
-rwxr-xr-x | contrib/perl5/keywords.pl | 278 |
1 files changed, 0 insertions, 278 deletions
diff --git a/contrib/perl5/keywords.pl b/contrib/perl5/keywords.pl deleted file mode 100755 index 46dd53d..0000000 --- a/contrib/perl5/keywords.pl +++ /dev/null @@ -1,278 +0,0 @@ -#!/usr/bin/perl - -unlink "keywords.h"; -open(KW, ">keywords.h") || die "Can't create keywords.h: $!\n"; -select KW; - -# Read & print data. - -$keynum = 0; -while (<DATA>) { - chop; - next unless $_; - next if /^#/; - ($keyword) = split; - print &tab(5, "#define KEY_$keyword"), $keynum++, "\n"; -} - -########################################################################### -sub tab { - local($l, $t) = @_; - $t .= "\t" x ($l - (length($t) + 1) / 8); - $t; -} -########################################################################### -__END__ - -NULL -__FILE__ -__LINE__ -__PACKAGE__ -__DATA__ -__END__ -AUTOLOAD -BEGIN -CORE -DESTROY -END -EQ -GE -GT -INIT -LE -LT -NE -CHECK -abs -accept -alarm -and -atan2 -bind -binmode -bless -caller -chdir -chmod -chomp -chop -chown -chr -chroot -close -closedir -cmp -connect -continue -cos -crypt -dbmclose -dbmopen -defined -delete -die -do -dump -each -else -elsif -endgrent -endhostent -endnetent -endprotoent -endpwent -endservent -eof -eq -eval -exec -exists -exit -exp -fcntl -fileno -flock -for -foreach -fork -format -formline -ge -getc -getgrent -getgrgid -getgrnam -gethostbyaddr -gethostbyname -gethostent -getlogin -getnetbyaddr -getnetbyname -getnetent -getpeername -getpgrp -getppid -getpriority -getprotobyname -getprotobynumber -getprotoent -getpwent -getpwnam -getpwuid -getservbyname -getservbyport -getservent -getsockname -getsockopt -glob -gmtime -goto -grep -gt -hex -if -index -int -ioctl -join -keys -kill -last -lc -lcfirst -le -length -link -listen -local -localtime -lock -log -lstat -lt -m -map -mkdir -msgctl -msgget -msgrcv -msgsnd -my -ne -next -no -not -oct -open -opendir -or -ord -our -pack -package -pipe -pop -pos -print -printf -prototype -push -q -qq -qr -quotemeta -qw -qx -rand -read -readdir -readline -readlink -readpipe -recv -redo -ref -rename -require -reset -return -reverse -rewinddir -rindex -rmdir -s -scalar -seek -seekdir -select -semctl -semget -semop -send -setgrent -sethostent -setnetent -setpgrp -setpriority -setprotoent -setpwent -setservent -setsockopt -shift -shmctl -shmget -shmread -shmwrite -shutdown -sin -sleep -socket -socketpair -sort -splice -split -sprintf -sqrt -srand -stat -study -sub -substr -symlink -syscall -sysopen -sysread -sysseek -system -syswrite -tell -telldir -tie -tied -time -times -tr -truncate -uc -ucfirst -umask -undef -unless -unlink -unpack -unshift -untie -until -use -utime -values -vec -wait -waitpid -wantarray -warn -while -write -x -xor -y |