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