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