source: trunk/third/perl/keywords.pl @ 10724

Revision 10724, 2.2 KB checked in by ghudson, 27 years ago (diff)
This commit was generated by cvs2svn to compensate for changes in r10723, which included commits to RCS files with non-trunk default branches.
  • Property svn:executable set to *
Line 
1#!/usr/bin/perl
2
3unlink "keywords.h";
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
28__FILE__
29__LINE__
30__PACKAGE__
31__DATA__
32__END__
33AUTOLOAD
34BEGIN
35CORE
36DESTROY
37END
38EQ
39GE
40GT
41LE
42LT
43NE
44abs
45accept
46alarm
47and
48atan2
49bind
50binmode
51bless
52caller
53chdir
54chmod
55chomp
56chop
57chown
58chr
59chroot
60close
61closedir
62cmp
63connect
64continue
65cos
66crypt
67dbmclose
68dbmopen
69defined
70delete
71die
72do
73dump
74each
75else
76elsif
77endgrent
78endhostent
79endnetent
80endprotoent
81endpwent
82endservent
83eof
84eq
85eval
86exec
87exists
88exit
89exp
90fcntl
91fileno
92flock
93for
94foreach
95fork
96format
97formline
98ge
99getc
100getgrent
101getgrgid
102getgrnam
103gethostbyaddr
104gethostbyname
105gethostent
106getlogin
107getnetbyaddr
108getnetbyname
109getnetent
110getpeername
111getpgrp
112getppid
113getpriority
114getprotobyname
115getprotobynumber
116getprotoent
117getpwent
118getpwnam
119getpwuid
120getservbyname
121getservbyport
122getservent
123getsockname
124getsockopt
125glob
126gmtime
127goto
128grep
129gt
130hex
131if
132index
133int
134ioctl
135join
136keys
137kill
138last
139lc
140lcfirst
141le
142length
143link
144listen
145local
146localtime
147log
148lstat
149lt
150m
151map
152mkdir
153msgctl
154msgget
155msgrcv
156msgsnd
157my
158ne
159next
160no
161not
162oct
163open
164opendir
165or
166ord
167pack
168package
169pipe
170pop
171pos
172print
173printf
174prototype
175push
176q
177qq
178quotemeta
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
238sysopen
239sysread
240sysseek
241system
242syswrite
243tell
244telldir
245tie
246tied
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
Note: See TracBrowser for help on using the repository browser.