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