Integrate mainline.
[p5sagit/p5-mst-13.2.git] / keywords.pl
CommitLineData
a0d0e21e 1#!/usr/bin/perl
2
36477c24 3unlink "keywords.h";
a0d0e21e 4open(KW, ">keywords.h") || die "Can't create keywords.h: $!\n";
5select KW;
6
eb1102fc 7print <<EOM;
8/*
9 * keywords.h
10 *
11 * Copyright (c) 1997-2002, Larry Wall
12 *
13 * You may distribute under the terms of either the GNU General Public
14 * License or the Artistic License, as specified in the README file.
15 *
ed423f7a 16 * !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
17 * This file is built by keywords.pl from its data. Any changes made here
18 * will be lost!
eb1102fc 19 */
20EOM
21
a0d0e21e 22# Read & print data.
23
24$keynum = 0;
25while (<DATA>) {
26 chop;
27 next unless $_;
28 next if /^#/;
29 ($keyword) = split;
30 print &tab(5, "#define KEY_$keyword"), $keynum++, "\n";
31}
32
33###########################################################################
34sub tab {
35 local($l, $t) = @_;
36 $t .= "\t" x ($l - (length($t) + 1) / 8);
37 $t;
38}
39###########################################################################
40__END__
41
42NULL
a0d0e21e 43__FILE__
68dc0745 44__LINE__
45__PACKAGE__
e50aee73 46__DATA__
a0d0e21e 47__END__
48AUTOLOAD
49BEGIN
50CORE
51DESTROY
52END
7d07dbc2 53INIT
7d30b5c4 54CHECK
a0d0e21e 55abs
56accept
57alarm
58and
59atan2
60bind
61binmode
62bless
63caller
64chdir
65chmod
66chomp
67chop
68chown
69chr
70chroot
71close
72closedir
73cmp
74connect
75continue
76cos
77crypt
78dbmclose
79dbmopen
80defined
81delete
82die
83do
84dump
85each
86else
87elsif
88endgrent
89endhostent
90endnetent
91endprotoent
92endpwent
93endservent
94eof
95eq
ed423f7a 96err
a0d0e21e 97eval
98exec
99exists
100exit
101exp
102fcntl
103fileno
104flock
105for
106foreach
107fork
108format
109formline
110ge
111getc
112getgrent
113getgrgid
114getgrnam
115gethostbyaddr
116gethostbyname
117gethostent
118getlogin
119getnetbyaddr
120getnetbyname
121getnetent
122getpeername
123getpgrp
124getppid
125getpriority
126getprotobyname
127getprotobynumber
128getprotoent
129getpwent
130getpwnam
131getpwuid
132getservbyname
133getservbyport
134getservent
135getsockname
136getsockopt
137glob
138gmtime
139goto
140grep
141gt
142hex
143if
144index
145int
146ioctl
147join
148keys
149kill
150last
151lc
152lcfirst
153le
154length
155link
156listen
157local
158localtime
c0329465 159lock
a0d0e21e 160log
161lstat
162lt
163m
164map
165mkdir
166msgctl
167msgget
168msgrcv
169msgsnd
170my
171ne
172next
173no
174not
175oct
176open
177opendir
178or
179ord
77ca0c92 180our
a0d0e21e 181pack
182package
183pipe
184pop
185pos
186print
187printf
c07a80fd 188prototype
a0d0e21e 189push
190q
191qq
8782bef2 192qr
a0d0e21e 193quotemeta
194qw
195qx
196rand
197read
198readdir
199readline
200readlink
201readpipe
202recv
203redo
204ref
205rename
206require
207reset
208return
209reverse
210rewinddir
211rindex
212rmdir
213s
214scalar
215seek
216seekdir
217select
218semctl
219semget
220semop
221send
222setgrent
223sethostent
224setnetent
225setpgrp
226setpriority
227setprotoent
228setpwent
229setservent
230setsockopt
231shift
232shmctl
233shmget
234shmread
235shmwrite
236shutdown
237sin
238sleep
239socket
240socketpair
241sort
242splice
243split
244sprintf
245sqrt
246srand
247stat
248study
249sub
250substr
251symlink
252syscall
c07a80fd 253sysopen
a0d0e21e 254sysread
137443ea 255sysseek
a0d0e21e 256system
257syswrite
258tell
259telldir
260tie
c07a80fd 261tied
a0d0e21e 262time
263times
264tr
265truncate
266uc
267ucfirst
268umask
269undef
270unless
271unlink
272unpack
273unshift
274untie
275until
276use
277utime
278values
279vec
280wait
281waitpid
282wantarray
283warn
284while
285write
286x
287xor
288y