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