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