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