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