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