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