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