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