277 lines
2.2 KiB
Perl
277 lines
2.2 KiB
Perl
|
#!/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
|
||
|
|
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
|
||
|
|
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
|