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