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