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