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