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