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